Add support for literals

src/compiler/GF/Compile/GrammarToLPGF.hs

@@ -53,13 +53,21 @@ mkAbstract :: (ErrorMonad err) => C.Abstract -> err (CId, L.Abstract)
 mkAbstract (C.Abstract modId flags cats funs) = return (mdi2i modId, L.Abstract {})
 
 mkConcrete :: (ErrorMonad err) => Bool -> C.Abstract -> C.Concrete -> err (CId, L.Concrete)
-mkConcrete debug (C.Abstract _ _ _ funs) (C.Concrete modId absModId flags params0 lincats lindefs0) = do
+mkConcrete debug (C.Abstract _ _ _ funs) (C.Concrete modId absModId flags params0 lincats0 lindefs0) = do
   let
     -- Some transformations on canonical grammar
 
     params :: [C.ParamDef]
     params = inlineParamAliases params0
 
+    lincats :: [C.LincatDef]
+    lincats = s:i:f:lincats0
+      where
+        ss = C.RecordType [C.RecordRow (C.LabelId "s") C.StrType]
+        s = C.LincatDef (C.CatId "String") ss
+        i = C.LincatDef (C.CatId "Int") ss
+        f = C.LincatDef (C.CatId "Float") ss
+
     lindefs :: [C.LinDef]
     lindefs =
       [ C.LinDef funId varIds linValue'

src/runtime/haskell/LPGF.hs

@@ -10,7 +10,7 @@ module LPGF where
 
 import PGF (Language)
 import PGF.CId
-import PGF.Expr (Expr)
+import PGF.Expr (Expr, Literal (..))
 import PGF.Tree (Tree (..), expr2tree, prTree)
 
 import qualified Control.Exception as EX
@@ -23,6 +23,7 @@ import qualified Data.Map.Strict as Map
 import Data.Text (Text)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as TE
+import Numeric (showFFloat)
 import Text.Printf (printf)
 
 import Prelude hiding ((!!))
@@ -191,12 +192,18 @@ linearizeConcreteText :: Concrete -> Expr -> Text
 linearizeConcreteText concr expr = lin2string $ lin (expr2tree expr)
   where
     lin :: Tree -> LinFun
-    lin tree = case tree of
+    lin = \case
       Fun f as ->
         case Map.lookup f (lins concr) of
           Just t -> eval cxt t
             where cxt = Context { cxToks = toks concr, cxArgs = map lin as }
           _ -> Missing f
+      Lit l -> Tuple [Token (T.pack s)]
+        where
+          s = case l of
+            LStr s -> s
+            LInt i -> show i
+            LFlt f -> showFFloat (Just 6) f ""
       x -> error $ printf "Cannot lin: %s" (prTree x)
 
 -- | Run a compatation and catch any exception/errors.