WIP1

nblockchain · Sep 5, 2024 · b1a3a69 · b1a3a69
1 parent ac9cfaf
commit b1a3a69
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -580,8 +580,9 @@ 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() }
 """
@@ -597,11 +598,18 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 
             File.WriteAllText(
                 autogeneratedFile.FullName,
-                initialInjectedContents
+                """module FsxScript
+"""
             )
 
-            seq {
+            let initFile = GetAutoGenerationTargets origScript "init.fs"
+            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