Numeric separators (#109)

fixes #82

Author: abyMosa

.gitignore

@@ -22,4 +22,7 @@ bin/guida.min.js
 try/public/app.js
 
 # Assets
-assets/some-application/index.html
+assets/some-application/index.html
+
+# Examples
+examples/index.html

examples/src/Underscores.guida

@@ -0,0 +1,56 @@
+module Underscores exposing (main)
+
+import Html exposing (text, table, tr, td, div)
+import Html.Attributes exposing (style)
+
+ints : List (String, Int)
+ints =
+    [ ("2_000", 2_000)
+    , ("42_000_000", 42_000_000)
+    ]
+
+
+floats : List (String, Float)
+floats =
+    [ ("111_000.602", 111_000.602)
+    , ("1_000.4_205", 1_000.4_205)
+    , ("0.000_1", 0.000_1)
+    , ("0.000_000_1", 0.000_000_1)
+    ]
+
+
+hexadecimals : List (String, Int)
+hexadecimals =
+    [ ("0x1F_2A", 0x1F_2A)
+    , ("0xDEADBEEF", 0xDEADBEEF)
+    , ("0xDE_AD_BE_EF", 0xDE_AD_BE_EF)
+    ]
+
+
+tableRow : (a -> String) -> (String, a) -> Html.Html msg
+tableRow toString (label, value) =
+    tr []
+        [ td [style "min-width" "150px", style "padding" "7px"] [ text (label) ]
+        , td [style "min-width" "150px", style "padding" "7px"] [ text (toString value) ]
+        ]
+
+
+main =
+    div
+        [ style "width" "100%"
+        , style "width" "100%"
+        , style "display" "flex"
+        , style "justify-content" "center"
+        , style "align-item" "center"
+        ]
+        [ table
+            [ style "margin" "150px"
+            , style "padding" "20px"
+            ]
+            ( List.map (tableRow String.fromInt) ints
+                ++ List.map (tableRow String.fromFloat) floats
+                ++ List.map (tableRow String.fromInt) hexadecimals
+            )
+        ]
+
+

src/Compiler/Parse/Expression.elm

@@ -31,33 +31,33 @@ term syntaxVersion =
             (\start ->
                 P.oneOf E.Start
                     [ variable start |> P.bind (accessible start)
-                    , string start
-                    , number start
+                    , string syntaxVersion start
+                    , number syntaxVersion start
                     , Shader.shader start
                     , list syntaxVersion start
                     , record syntaxVersion start |> P.bind (accessible start)
                     , tuple syntaxVersion start |> P.bind (accessible start)
                     , accessor start
-                    , character start
+                    , character syntaxVersion start
                     ]
             )
 
 
-string : A.Position -> P.Parser E.Expr Src.Expr
-string start =
-    String.string E.Start E.String_
+string : SyntaxVersion -> A.Position -> P.Parser E.Expr Src.Expr
+string syntaxVersion start =
+    String.string syntaxVersion E.Start E.String_
         |> P.bind (\( str, representation ) -> P.addEnd start (Src.Str str representation))
 
 
-character : A.Position -> P.Parser E.Expr Src.Expr
-character start =
-    String.character E.Start E.Char
+character : SyntaxVersion -> A.Position -> P.Parser E.Expr Src.Expr
+character syntaxVersion start =
+    String.character syntaxVersion E.Start E.Char
         |> P.bind (\chr -> P.addEnd start (Src.Chr chr))
 
 
-number : A.Position -> P.Parser E.Expr Src.Expr
-number start =
-    Number.number E.Start E.Number
+number : SyntaxVersion -> A.Position -> P.Parser E.Expr Src.Expr
+number syntaxVersion start =
+    Number.number syntaxVersion E.Start E.Number
         |> P.bind
             (\nmbr ->
                 P.addEnd start <|