GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-16 16:29:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

merged Gf and Fg classes in generated Haskell

Browse Source
This commit is contained in:
aarne
2007-12-20 15:11:18 +00:00
parent d88071c37c
commit d46f4c49e1
9 changed files with 42 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/tutorial/embedded/TransferLoop.hs
View File

@@ -1,11 +1,11 @@
module Main where
import GF.Embed.EmbedAPI
import GF.GFCC.API
import TransferDef (transfer)
main :: IO ()
main = do
gr <- file2grammar "math.gfcm"
gr <- file2grammar "Math.gfcc"
loop (translate transfer gr)
loop :: (String -> String) -> IO ()
@@ -17,7 +17,7 @@ loop trans = do
translate :: (Tree -> Tree) -> MultiGrammar -> String -> String
translate tr gr = unlines . map transLine . lines where
transLine s = case parseAllLang gr (startCat gr) s of
transLine s = case parseAllLang gr "Question" s of
(lg,t:_):_ -> linearize gr lg (tr t)
_ -> "NO PARSE"