GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixed SISR bug.

Browse Source
This commit is contained in:
bringert
2007-03-26 13:12:04 +00:00
parent bc2b02e10d
commit 94bdd1fb23
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/TransformCFG.hs
View File

@@ -49,7 +49,7 @@ data CFTerm
= CFObj Fun [CFTerm] -- ^ an abstract syntax function with arguments = CFObj Fun [CFTerm] -- ^ an abstract syntax function with arguments
| CFAbs Int CFTerm -- ^ A lambda abstraction. The Int is the variable id. | CFAbs Int CFTerm -- ^ A lambda abstraction. The Int is the variable id.
| CFApp CFTerm CFTerm -- ^ Application | CFApp CFTerm CFTerm -- ^ Application
| CFRes Int -- ^ The result of the n:th non-terminal | CFRes Int -- ^ The result of the n:th (0-based) non-terminal
| CFVar Int -- ^ A lambda-bound variable | CFVar Int -- ^ A lambda-bound variable
| CFMeta String -- ^ A metavariable | CFMeta String -- ^ A metavariable
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
@@ -175,7 +175,9 @@ removeLeftRecursion start gr
shiftTerm :: CFTerm -> CFTerm shiftTerm :: CFTerm -> CFTerm
shiftTerm (CFObj f ts) = CFObj f (map shiftTerm ts) shiftTerm (CFObj f ts) = CFObj f (map shiftTerm ts)
shiftTerm (CFRes 0) = CFVar 1 shiftTerm (CFRes 0) = CFVar 1
shiftTerm (CFRes n) = CFRes (n-1)
shiftTerm t = t shiftTerm t = t
-- note: the rest don't occur in the original grammar
cats = allCats gr cats = allCats gr
rules = ungroupProds gr rules = ungroupProds gr