WIP1

nblockchain · Sep 5, 2024 · cc68403 · cc68403
1 parent bc3acc4
commit cc68403
Showing 1 changed file with 13 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,19 @@ 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