Debug

nblockchain · Sep 5, 2024 · 1092170 · 1092170
1 parent 33ea033
commit 1092170
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -473,7 +473,7 @@ module Program =
         let preprocessScriptContents
             (origScript: FileInfo)
             (contents: List<LineAction>)
-            : List<CompilerInput> =
+            : List<CompilerInput> * FileInfo =
 
 #if LEGACY_FRAMEWORK
             // from "Microsoft.Build", "16.11.0" to .../packages/Microsoft.Build.16.11.0/lib/net472/Microsoft.Build.dll
@@ -714,7 +714,7 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
                         }
                     )
             }
-            |> List.ofSeq
+            |> List.ofSeq, autogeneratedFile
 
 #if LEGACY_FRAMEWORK
         let getSourceFiles(flags: seq<CompilerInput>) : seq<FileInfo> =
@@ -845,7 +845,11 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
             Console.WriteLine(sprintf "Building %s" script.FullName)
 
         let binFolder = GetBinFolderForAScript script
-        let compilerInputs = preprocessScriptContents script contents
+        let compilerInputs, autoGenFile = preprocessScriptContents script contents
+        Console.WriteLine ("_________________START AUTOGEN FILE_________________")
+        for line in File.ReadAllLines(autoGenFile.FullName) do
+            Console.WriteLine line
+        Console.WriteLine ("_________________END AUTOGEN FILE_________________")
 #if !LEGACY_FRAMEWORK
         let projectFile = generateProjectFile script contents
 #endif
@@ -910,6 +914,8 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
                 | _ -> "fsharpc"
 #endif
 
+            Console.WriteLine(">>>>>>>>>>>>>>>COMPFLAGS: "+ fscompilerflags)
+
             let proc =
                 Process.Execute(
                     {

diff --git a/scripts/runTests.fsx b/scripts/runTests.fsx
@@ -347,11 +347,12 @@ let dotnetFsiCmd =
 Process.Execute(dotnetFsiCmd, Echo.All) |> UnwrapDefault
 #endif
 
+(*
 let processTest = Path.Combine(TestDir.FullName, "testProcess.fsx") |> FileInfo
 
 Process.Execute(CreateCommand(processTest, String.Empty), Echo.All)
 |> UnwrapDefault
-
+*)
 
 (* this is actually only really useful for when process spits both stdout & stderr
 let processConcurrencyTest = Path.Combine(TestDir.FullName, "testProcessConcurrency.fsx") |> FileInfo