WIP1

nblockchain · Sep 5, 2024 · 58c29a7 · 58c29a7
1 parent a0c2077
commit 58c29a7
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -580,13 +580,15 @@ module Program =
                 | Some location -> location
 #endif
 
-            let initialInjectedContents =
-                """module FsxScript
+            let initialFileContent =
+                """[<AutoOpen>]
+module FsxScriptInit
 type FsiStub = { CommandLineArgs: array<string> }
 let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 """
 
             let autogeneratedFile = GetAutoGenerationTargets origScript "fs"
+            let initFile = GetAutoGenerationTargets origScript "init.fs"
 
             let binFolder = autogeneratedFile.Directory
 
@@ -597,11 +599,16 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 
             File.WriteAllText(
                 autogeneratedFile.FullName,
-                initialInjectedContents
+                """module FsxScript
+"""
             )
 
+            File.WriteAllText(initFile.FullName, initialFileContent)
+
             seq {
 
+                yield CompilerInput.SourceFile initFile
+
                 let startCommentInFSharp = "// "
 
                 for maybeDep in contents do