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

Yay!! Direct generation of PMCFG from GF grammar

Browse Source
This commit is contained in:
krasimir
2010-06-18 12:55:58 +00:00
parent d7d893d6b3
commit 2069d9c9eb
17 changed files with 500 additions and 996 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/runtime/haskell/PGF/Macros.hs
View File

@@ -117,15 +117,6 @@ contextLength ty = case ty of
showPrintName :: PGF -> Language -> CId -> String
showPrintName pgf lang id = lookMap (showCId id) id $ printnames $ lookMap (error "no lang") lang $ concretes pgf
term0 :: CId -> Term
term0 = TM . showCId
tm0 :: Term
tm0 = TM "?"
kks :: String -> Term
kks = K . KS
-- lookup with default value
lookMap :: (Show i, Ord i) => a -> i -> Map.Map i a -> a
lookMap d c m = Map.findWithDefault d c m