open FParsec //https://www.quanttec.com/fparsec/

let ws = spaces

​

//-------------------------------------------------------------------------------------

//Example #1 Parser for lists of VARNAME=1.23 formatted assignments 

//-------------------------------------------------------------------------------------

let varName = many1Chars2 letter (letter <|> digit ) <?> "Variable name" 

let varAssign = varName .>> ws .>> pstring "=" .>> ws .>>. pfloat .>> ws

let vars = sepEndBy varAssign ws .>> eof |>> Map.ofList

​

///Parser tester

//-------------------------------------------------------------------------------------

let test p str =

    match run p str with

    | Success(result, _, _)   -> printfn "Success: %A" result

    | Failure(errorMsg, _, _) -> printfn "Failure: %s" errorMsg

​

[<EntryPoint>]

let main argv =

​

    //test failures

    test vars "BAND=12.3 $Band2 = 4.3" 

    test vars "BAND=12.3 Band2 = 4#.3" 

    test vars "3BAND=12.3"

    test vars "Band2 = X4.3"

    test vars "Band2 + 4.3"

​

    //test successes

    test vars "BAND=12.3\n\

               Band2 = 4.3\n\

               V2=123"

    test vars ""

    test vars "BAND=12.3 Band2 = 4.3"

​

    0 // return an integer exit code