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

started a grammar for grammatical terms, covering the cats of the RGL

Browse Source
This commit is contained in:
aarne
2011-03-14 18:48:08 +00:00
parent b9ebd48a2c
commit a59df6b495
4 changed files with 368 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
examples/grammar-terms/MkTerms.hs Normal file
View File

@@ -0,0 +1,13 @@
main = interact (unlines . map (mkTerm . words) . lines)
mkTerm ws = case ws of
"==":cat:"-":expl -> unlines [
mkFun "Cat" cat,
mkLin "Cat" "mkN" cat (unwords (takeWhile (/= "==") expl))
]
mkFun pref s = unwords ["fun", pref ++ s, ":", pref, ";"]
---mkLin pref p s e = unwords ["lin", pref ++ s, "=", p, quoted e, ";"]
mkLin pref p s e = unwords ["lin", pref ++ s, "=", quoted s, ";"]
quoted s = "\"" ++ s ++ "\""