Parser.fs

module LspExample.Parser

open System
open LspExample.Types.DemoLang
open Types

let private parseLine (line: string) =
    match Double.TryParse(line.AsSpan()) with
    | Success parsedNumber -> Value.Number parsedNumber
    | Nothing when String.IsNullOrWhiteSpace line -> Value.Empty line
    | Nothing -> Value.Text line

/// <summary>
/// Parse an entire file into structured data.
/// </summary>
/// <param name="contents">The entire contents of a file</param>
/// <remarks>For large files and complex languages you should consider caching AST results and using incremental updated
/// instead of reparsing the full file update from the client every time something changes.</remarks>
let ParseFile (contents: string) : Line[] =
    contents.Split('\n')
    |> Array.mapi (fun line contents ->
        { Line = line
          Contents = contents
          Value = parseLine contents })