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

updated gfcc to new gfcc, now with parsing

Browse Source
This commit is contained in:
aarne
2007-10-05 13:01:05 +00:00
parent 122546b9d6
commit 074ef6e09f
3 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/GFCC/Linearize.hs
View File

@@ -20,6 +20,7 @@ realize trm = case trm of
KP s _ -> unwords s ---- prefix choice TODO
W s t -> s ++ realize t
FV ts -> realize (ts !! 0) ---- other variants TODO
RP _ r -> realize r ---- DEPREC
TM -> "?"
_ -> "ERROR " ++ show trm ---- debug
@@ -40,6 +41,7 @@ compute :: GFCC -> CId -> [Term] -> Term -> Term
compute mcfg lang args = comp where
comp trm = case trm of
P r p -> proj (comp r) (comp p)
RP i t -> RP (comp i) (comp t) ---- DEPREC
W s t -> W s (comp t)
R ts -> R $ lmap comp ts
V i -> idx args i -- already computed
@@ -67,11 +69,13 @@ compute mcfg lang args = comp where
getIndex t = case t of
C i -> i
RP p _ -> getIndex p ---- DEPREC
TM -> 0 -- default value for parameter
_ -> error ("ERROR in grammar compiler: index from " ++ show t) 0
getField t i = case t of
R rs -> idx rs i
RP _ r -> getField r i ---- DEPREC
TM -> TM
_ -> error ("ERROR in grammar compiler: field from " ++ show t) t