Add #version;; directive to F# Interactive

docs/release-notes/.FSharp.Compiler.Service/11.0.100.md

@@ -1,6 +1,6 @@
 ### Fixed
 
-
 ### Added
 
 * Added warning FS3884 when a function or delegate value is used as an interpolated string argument. ([PR #19289](https://github.com/dotnet/fsharp/pull/19289))
+* Add `#version;;` directive to F# Interactive to display version and environment information. ([Issue #13307](https://github.com/dotnet/fsharp/issues/13307), [PR #19332](https://github.com/dotnet/fsharp/pull/19332))

src/Compiler/Interactive/FSIstrings.txt

@@ -35,6 +35,7 @@ fsiIntroTextHashhelpInfo,"Display help"
 fsiIntroTextHashhelpdocInfo,"Display documentation for an identifier, e.g. #help \"List.map\";;"
 fsiIntroTextHashquitInfo,"Exit"
 fsiIntroTextHashclearInfo,"Clear screen"
+fsiIntroTextHashversionInfo,"Display F# Interactive version and environment information"
 fsiIntroTextHeader2commandLine,"  F# Interactive command line options:"
 fsiIntroTextHeader3,"      See '%s' for options"
 fsiLoadingFilesPrefixText,"Loading"

src/Compiler/Interactive/fsi.fs

@@ -1263,6 +1263,21 @@ type internal FsiCommandLineOptions(fsi: FsiEvaluationSessionHostConfig, argv: s
         fsiConsoleOutput.uprintfnn "%s" (FSComp.SR.optsCopyright ())
         fsiConsoleOutput.uprintfn "%s" (FSIstrings.SR.fsiBanner3 ())
 
+    member _.ShowVersion() =
+        fsiConsoleOutput.uprintnfn "%s" tcConfigB.productNameForBannerText
+        fsiConsoleOutput.uprintnfn "Language Version: %s" tcConfigB.langVersion.SpecifiedVersionString
+
+        let fsharpCoreVersion = typeof<unit>.Assembly.GetName().Version |> string
+
+        fsiConsoleOutput.uprintnfn "FSharp.Core: %s" fsharpCoreVersion
+
+        fsiConsoleOutput.uprintnfn ".NET: %s" System.Runtime.InteropServices.RuntimeInformation.FrameworkDescription
+
+        fsiConsoleOutput.uprintnfn
+            "OS: %s (%O)"
+            System.Runtime.InteropServices.RuntimeInformation.OSDescription
+            System.Runtime.InteropServices.RuntimeInformation.ProcessArchitecture
+
     member _.ShowHelp(m) =
         let helpLine = sprintf "%s --help" executableFileNameWithoutExtension.Value
 
@@ -1294,6 +1309,11 @@ type internal FsiCommandLineOptions(fsi: FsiEvaluationSessionHostConfig, argv: s
                 fsiConsoleOutput.uprintfn "%s" msg
 
         fsiConsoleOutput.uprintfn """    #clear;;                                      // %s""" (FSIstrings.SR.fsiIntroTextHashclearInfo ())
+
+        fsiConsoleOutput.uprintfn
+            """    #version;;                                    // %s"""
+            (FSIstrings.SR.fsiIntroTextHashversionInfo ())
+
         fsiConsoleOutput.uprintfn """    #quit;;                                       // %s""" (FSIstrings.SR.fsiIntroTextHashquitInfo ())
         fsiConsoleOutput.uprintfn """    #exit;;                                       // %s""" (FSIstrings.SR.fsiIntroTextHashquitInfo ())
         fsiConsoleOutput.uprintfn ""
@@ -3886,6 +3906,10 @@ type FsiInteractionProcessor
             fsiOptions.ClearScreen()
             istate, Completed None
 
+        | ParsedHashDirective("version", [], _) ->
+            fsiOptions.ShowVersion()
+            istate, Completed None
+
         | ParsedHashDirective(("q" | "quit" | "exit"), [], _) -> fsiInterruptController.Exit()
 
         | ParsedHashDirective("help", hashArguments, m) ->

tests/FSharp.Compiler.ComponentTests/Scripting/Interactive.fs

@@ -141,3 +141,19 @@ module MultiEmit =
             """if A.v <> 7.2 then failwith $"8: Failed {A.v} <> 7.2" """
             """if B.v <> 9.3 then failwith $"9: Failed {A.v} <> 9.3" """
         |] |> Seq.iter(fun item -> item |> scriptIt)
+
+    [<Fact>]
+    let ``Version directive displays version and environment info``() =
+        Fsx """
+#version;;
+()
+"""
+        |> withOptions ["--nologo"]
+        |> runFsi
+        |> shouldSucceed
+        |> withStdOutContains "F#"
+        |> withStdOutContains "Language Version:"
+        |> withStdOutContains "FSharp.Core:"
+        |> withStdOutContains ".NET:"
+        |> withStdOutContains "OS:"
+        |> ignore

tests/FSharp.Compiler.Private.Scripting.UnitTests/DependencyManagerInteractiveTests.fs

@@ -731,6 +731,7 @@ x |> Seq.iter(fun r ->
         Assert.Contains("""#r "nuget:FSharp.Data, 3.1.2";;""", output)
         Assert.Contains("""#r "nuget:FSharp.Data";;""", output)
         Assert.Contains("""#i "package source uri";;""", output)
+        Assert.Contains("#version;;", output)
 
         // this is the end of the line each different platform has a different mechanism for starting fsi
         // Actual output looks similar to: """      See 'testhost --help' for options"""
@@ -749,6 +750,7 @@ x |> Seq.iter(fun r ->
         Assert.Contains("""#r "nuget:FSharp.Data, 3.1.2";;""", output)
         Assert.Contains("""#r "nuget:FSharp.Data";;""", output)
         Assert.Contains("""#i "package source uri";;""", output)
+        Assert.Contains("#version;;", output)
 
         // this is the end of the line each different platform has a different mechanism for starting fsi
         // Actual output looks similar to: """      See 'testhost --help' for options"""

tests/fsharp/core/printing/output.1000.stdout.bsl

@@ -1105,6 +1105,7 @@ type 'a T4063 = | AT4063 of 'a
     #r "nuget:FSharp.Data, 3.1.2";;               // Load Nuget Package 'FSharp.Data' version '3.1.2'
     #r "nuget:FSharp.Data";;                      // Load Nuget Package 'FSharp.Data' with the highest version
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit
 

tests/fsharp/core/printing/output.200.stdout.bsl

@@ -425,6 +425,7 @@ type 'a T4063 = | AT4063 of 'a
     #r "nuget:FSharp.Data, 3.1.2";;               // Load Nuget Package 'FSharp.Data' version '3.1.2'
     #r "nuget:FSharp.Data";;                      // Load Nuget Package 'FSharp.Data' with the highest version
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit
 

tests/fsharp/core/printing/output.47.stdout.bsl

@@ -4062,6 +4062,7 @@ type 'a T4063 = | AT4063 of 'a
     #help;;                                       // Display help
     #help "idn";;                                 // Display documentation for an identifier, e.g. #help "List.map";;
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit
 

tests/fsharp/core/printing/output.multiemit.stdout.bsl

@@ -4064,6 +4064,7 @@ type 'a T4063 = | AT4063 of 'a
     #r "nuget:FSharp.Data, 3.1.2";;               // Load Nuget Package 'FSharp.Data' version '3.1.2'
     #r "nuget:FSharp.Data";;                      // Load Nuget Package 'FSharp.Data' with the highest version
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit
 

tests/fsharp/core/printing/output.off.stdout.bsl

@@ -252,6 +252,7 @@ type 'a T4063 = | AT4063 of 'a
     #r "nuget:FSharp.Data, 3.1.2";;               // Load Nuget Package 'FSharp.Data' version '3.1.2'
     #r "nuget:FSharp.Data";;                      // Load Nuget Package 'FSharp.Data' with the highest version
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit
 

tests/fsharp/core/printing/output.stdout.bsl

@@ -4064,6 +4064,7 @@ type 'a T4063 = | AT4063 of 'a
     #r "nuget:FSharp.Data, 3.1.2";;               // Load Nuget Package 'FSharp.Data' version '3.1.2'
     #r "nuget:FSharp.Data";;                      // Load Nuget Package 'FSharp.Data' with the highest version
     #clear;;                                      // Clear screen
+    #version;;                                    // Display F# Interactive version and environment information
     #quit;;                                       // Exit
     #exit;;                                       // Exit