msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

*** empty log message ***

Browse Source
This commit is contained in:
peb
2004-04-30 07:17:03 +00:00
parent cbbb6d65c7
commit 181e128230
3 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
grammars/testConversions/MicroAbs.gf Normal file
View File

@@ -0,0 +1,8 @@
abstract MicroAbs = {
cat S;
fun vars : S;
}

10
grammars/testConversions/MicroCnc.gf Normal file
View File

@@ -0,0 +1,10 @@
concrete MicroCnc of MicroAbs = {
lincat S = {a : {s1:Str ; s2:Str}};
lin vars = {a = variants { {s1="a" ; s2=variants{"b";"c"}} ; {s1="d";s2="e"} }};
}

1
src/GF/UseGrammar/Custom.hs
View File

@@ -169,6 +169,7 @@ customGrammarPrinter =
-- grammar conversions, (peb)
,(strCI "gfc_show", show . grammar2canon . stateGrammarST)
,(strCI "gfc_raw", prRaw . stateGrammarST)
,(strCI "tnf", prCanon . convertCanonToTNF . stateGrammarST)
,(strCI "mcfg", prMCFG . convertCanonToMCFG . stateGrammarST)
,(strCI "mcfg_cf", prCF . convertCanonToCF . stateGrammarST)
,(strCI "mcfg_canon", prCanon . convertCanonToMCFG . stateGrammarST)