diff options
| author | aarne <aarne@chalmers.se> | 2010-06-03 21:43:35 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-06-03 21:43:35 +0000 |
| commit | 74811193edec2c935b4a152a5d3fc363fabca39b (patch) | |
| tree | fb384f3f5423cde3f986cc2525d8a2d55b4d985d /src/compiler | |
| parent | c760c52223c4737bf2803e2c28699a923c4c12c5 (diff) | |
case for pre in CF generation (ignores alternatives so far)
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Speech/PGFToCFG.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/compiler/GF/Speech/PGFToCFG.hs b/src/compiler/GF/Speech/PGFToCFG.hs index 6d6026284..b28582499 100644 --- a/src/compiler/GF/Speech/PGFToCFG.hs +++ b/src/compiler/GF/Speech/PGFToCFG.hs @@ -94,7 +94,10 @@ pgfToCFG pgf lang = mkCFG (showCId (lookStartCat pgf)) extCats (startRules ++ co symbolToCFSymbol (SymCat n l) = [NonTerminal (fcatToCat (args!!n) l)] symbolToCFSymbol (SymLit n l) = [NonTerminal (fcatToCat (args!!n) l)] symbolToCFSymbol (SymKS ts) = map Terminal ts - + symbolToCFSymbol (SymKP ts as) = map Terminal $ ts + ---- ++ [t | Alt ss _ <- as, t <- ss] + ---- should be alternatives in [[CFSymbol]] + ---- AR 3/6/2010 fixProfile :: Array DotPos Symbol -> Int -> Profile fixProfile row i = [k | (k,j) <- nts, j == i] where |