Remove floats. Add Escape module. Add renderIni to feature values.

buckaroo/Escape.fs

@@ -0,0 +1,15 @@
+namespace Buckaroo
+
+
+module Escape =
+  open System.Text.RegularExpressions
+
+  let escapeRegex = Regex(@"([\'""])")
+  let escapeReplacement = "\\$1"
+
+  let escape (quote : string) (input : string) =
+    quote + escapeRegex.Replace(input, escapeReplacement) + quote
+
+  let escapeWithoutQuotes = escape ""
+  let escapeWithSingleQuotes = escape "'"
+  let escapeWithDoubleQuotes = escape "\""

buckaroo/Feature.fs

@@ -1,13 +1,13 @@
 namespace Buckaroo
 
+open Buckaroo.BuckConfig
 open Buckaroo.Result
 open Buckaroo.Toml
 
 
 type FeatureUnitValue =
 | Boolean of bool
 | Integer of int64
-| Float of float
 | String of string
 // | Version of Version
 
@@ -22,14 +22,18 @@ module FeatureUnitValue =
     match x with
     | Boolean x -> if x then "true" else "false"
     | Integer x -> x.ToString()
-    | Float x -> x.ToString()
     | String x -> "\"" + x + "\""
 
+  let renderIni (x : FeatureUnitValue) =
+    match x with
+    | Boolean x -> if x then "true" else "false"
+    | Integer x -> x.ToString()
+    | String x -> Escape.escapeWithDoubleQuotes x
+
   let fromToml (toml : Nett.TomlObject) : Result<FeatureUnitValue, TomlError> =
     match toml with
     | :? Nett.TomlBool as v -> FeatureUnitValue.Boolean v.Value |> Result.Ok
     | :? Nett.TomlInt as v -> FeatureUnitValue.Integer v.Value |> Result.Ok
-    | :? Nett.TomlFloat as v -> FeatureUnitValue.Float v.Value |> Result.Ok
     | :? Nett.TomlString as v -> FeatureUnitValue.String v.Value |> Result.Ok
     | _ -> TomlError.UnexpectedType toml.ReadableTypeName |> Result.Error
 
@@ -45,6 +49,23 @@ module FeatureValue =
       ) + " }"
     | Array x -> "[ " + (x |> Seq.map FeatureUnitValue.show |> String.concat ", ") + " ]"
 
+  let renderIni (x : FeatureValue) =
+    match x with
+    | Value x -> x |> FeatureUnitValue.renderIni |> INIString
+    | Dictionary x ->
+      x
+      |> Map.toSeq
+      |> Seq.map (fun (key, value) ->
+        INIString <| Escape.escapeWithDoubleQuotes (key + "=" + (value |> FeatureUnitValue.renderIni))
+      )
+      |> List.ofSeq
+      |> INIList
+    | Array x ->
+      x
+      |> Seq.map (FeatureUnitValue.renderIni >> INIString)
+      |> List.ofSeq
+      |> INIList
+
   let fromToml (toml : Nett.TomlObject) : Result<FeatureValue, TomlError> =
     match FeatureUnitValue.fromToml toml with
     | Result.Ok r -> FeatureValue.Value r |> Result.Ok

buckaroo/buckaroo.fsproj

@@ -12,6 +12,7 @@
     <Compile Include="Paths.fs" />
     <Compile Include="ArchiveType.fs" />
     <Compile Include="Toml.fs" />
+    <Compile Include="Escape.fs" />
     <Compile Include="BuckConfig.fs" />
     <Compile Include="Files.fs" />
     <Compile Include="Archive.fs" />