WIP1

nblockchain · Sep 5, 2024 · 9e2a14e · 9e2a14e
1 parent 2b8bf4f
commit 9e2a14e
Showing 1 changed file with 12 additions and 4 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,17 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 
             File.WriteAllText(
                 autogeneratedFile.FullName,
-                initialInjectedContents
+                """module FsxScript
+"""
             )
 
-            seq {
+            File.WriteAllText(initFile.FullName, initialFileContent)
 
+            seq {
+// for !LEGACY_FRAMEWORK, this init file will be added to the fsproj file
+#if LEGACY_FRAMEWORK
+                yield CompilerInput.SourceFile initFile
+#endif
                 let startCommentInFSharp = "// "
 
                 for maybeDep in contents do