chore: bump scintilla and lexilla version

3rdparty/lexilla545/lexilla/test/examples/fsharp/x.fs

@@ -0,0 +1,53 @@
+// 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"