54 lines
1.5 KiB
Forth
54 lines
1.5 KiB
Forth
|
// x.fs
|
||
|
|
// Sample source file to test F# syntax highlighting
|
||
|
|
|
||
|
|
[<AutoOpen>]
|
||
|
|
module Example
|
||
|
|
|
||
|
|
#line 7 "A compiler directive"
|
||
|
|
#if DEBUG
|
||
|
|
open System
|
||
|
|
open System.IO
|
||
|
|
open System.Diagnostics
|
||
|
|
#endif
|
||
|
|
|
||
|
|
# 14 @"See: https://docs.microsoft.com/en-us/dotnet/fsharp/language-reference/strings#remarks"
|
||
|
|
// verbatim string
|
||
|
|
let xmlFragment1 = @"<book href=""https://www.worldcat.org/title/paradise-lost/oclc/1083714070"" title=""Paradise Lost"">"
|
||
|
|
|
||
|
|
// triple-quoted string
|
||
|
|
let xmlFragment2 = """<book href="https://www.worldcat.org/title/paradise-lost/oclc/1083714070" title="Paradise Lost">"""
|
||
|
|
|
||
|
|
(* you need .NET 5.0 to compile this:
|
||
|
|
https://docs.microsoft.com/en-us/dotnet/fsharp/whats-new/fsharp-50#string-interpolation
|
||
|
|
*)
|
||
|
|
let interpolated = $"""C:\{System.DateTime.Now.ToString("yyyy-MM-dd")}\""" + $"{System.Random().Next(System.Int32.MaxValue)}.log"
|
||
|
|
|
||
|
|
let ``a byte literal`` = '\209'B
|
||
|
|
|
||
|
|
// quoted expression
|
||
|
|
let expr =
|
||
|
|
<@@
|
||
|
|
let foo () = "bar"
|
||
|
|
foo ()
|
||
|
|
@@>
|
||
|
|
|
||
|
|
let bigNum (unused: 'a): float option =
|
||
|
|
Seq.init 10_000 (float >> (fun i -> i + 11.))
|
||
|
|
|> (List.ofSeq
|
||
|
|
>> List.take 5
|
||
|
|
>> List.fold (*) 1.0)
|
||
|
|
|> Some
|
||
|
|
|
||
|
|
match bigNum () with
|
||
|
|
| Some num -> sprintf "%.2f > %u" num ``a byte literal``
|
||
|
|
| None -> sprintf "%A" "Have a byte string!"B
|
||
|
|
|> printfn "%s"
|
||
|
|
|
||
|
|
// GitHub Issue #38
|
||
|
|
let unescapeWinPath (path: string) =
|
||
|
|
path.Replace("\\\\", "\\").Replace("\"", "")
|
||
|
|
|
||
|
|
unescapeWinPath "\\\"Program Files (x86)\\Windows NT\\Accessories\\\""
|
||
|
|
|> System.IO.Directory.GetFiles
|
||
|
|
|> printfn "%A"
|