From c119627dfc7943ea49b8023005d92f92520da56c Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 22 Nov 2013 13:36:14 +0000 Subject: [PATCH] fix the export for CFG grammars with BIND, SOFT_BIND and nonExist --- src/compiler/GF/Speech/PGFToCFG.hs | 4 ++++ 1 file changed, 4 insertions(+) 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