diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-11-22 13:36:14 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-11-22 13:36:14 +0000 |
| commit | 8cc6be01526419ac6c41bc35c3d9c8e11dd875d1 (patch) | |
| tree | b53b9acbe8c3dc77175d2a7b23e4b97053e8bf88 | |
| parent | 8bcc70eac8af379ed3481039eb1bd5feea3cf195 (diff) | |
fix the export for CFG grammars with BIND, SOFT_BIND and nonExist
| -rw-r--r-- | src/compiler/GF/Speech/PGFToCFG.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/compiler/GF/Speech/PGFToCFG.hs b/src/compiler/GF/Speech/PGFToCFG.hs index 1f011dcec..5c13ca471 100644 --- a/src/compiler/GF/Speech/PGFToCFG.hs +++ b/src/compiler/GF/Speech/PGFToCFG.hs @@ -96,6 +96,10 @@ pgfToCFG pgf lang = mkCFG (showCId (lookStartCat pgf)) extCats (startRules ++ co ---- ++ [t | Alt ss _ <- as, t <- ss] ---- should be alternatives in [[CFSymbol]] ---- AR 3/6/2010 + symbolToCFSymbol SymBIND = [Terminal "&+"] + symbolToCFSymbol SymSOFT_BIND = [] + symbolToCFSymbol SymNE = [] + fixProfile :: Array DotPos Symbol -> Int -> Profile fixProfile row i = [k | (k,j) <- nts, j == i] where |