LocParser

LocParser is a localization parser base on FParsec

Supported localization gramma

• key = 'literal value'
• key = $parameterName
• key = {$parameterName: 'pluralform1', 'pluralform2'}
  ^{Plural forms count depends on localization, supported localization you can find in LocParser.fs file}
• key = AnotherKey
• key = 'literal' + $parameterName + {$parameterName: 'pluralform1', 'pluralform2'} + anotherKey
• ; comment

Using

Example file localization.txt

key1 = 'key 1 data'
key2 = 'key 2 data ' + $param + {$param: ' one', ' many'}
key3 = 'key 3 data ' + key1

Example code

let path = @"localization.txt"
use stream = File.OpenRead(path) let parserResult = match loadLocFile stream Encoding.UTF8 with
| Success(result, _, _) -> Some result
| Failure(_, _, _) -> None
parserResult.IsSome |> should equal true
let locDataMap = parserResult.Value
|> List.filter (fun v -> match v with
| Loc.Comment x -> false
| _ -> true) |> List.map (fun v -> match v with |Loc.Data(key,value) -> (key, value)
|_ -> failwith "unexpected")
|> dict
evalLocValue locDataMap.["key1"] "en" (fun v -> v :> Object) locDataMap |> should equal "key 1 data"
evalLocValue locDataMap.["Key2"] "en" (fun v -> 1 :> Object) locDataMap |> should equal "key 2 data 1 one"
evalLocValue locDataMap.["Key3"] "en" (fun v -> v :> Object) locDataMap |> should equal "key 3 data key 1 data"