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

robustness to gfcc interpreter ; make gfcc to bin

Browse Source
This commit is contained in:
aarne
2006-11-12 20:48:01 +00:00
parent 52bb034d8e
commit 49c8a52ade
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/GFCC/DataGFCC.hs
View File

@@ -88,7 +88,7 @@ compute mcfg lang args = comp where
look = lookLin mcfg lang look = lookLin mcfg lang
idx xs i = xs !! i idx xs i = if i > length xs - 1 then trace "overrun !!\n" (last xs) else xs !! i
proj r p = case (r,p) of proj r p = case (r,p) of
(_, FV ts) -> FV $ Prelude.map (proj r) ts (_, FV ts) -> FV $ Prelude.map (proj r) ts

1
src/GF/Canon/GFCC/GenGFCC.hs
View File

@@ -43,6 +43,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
gett ds (CId "Int") = (Tr (AI 12345) [], 1) gett ds (CId "Int") = (Tr (AI 12345) [], 1)
gett [] _ = (Tr (AS "TIMEOUT") [], 1) ---- gett [] _ = (Tr (AS "TIMEOUT") [], 1) ----
gett ds cat = case fns cat of gett ds cat = case fns cat of
[] -> (Tr AM [],1)
fs -> let fs -> let
d:ds2 = ds d:ds2 = ds
(f,args) = getf d fs (f,args) = getf d fs

2
src/Makefile
View File

@@ -180,7 +180,7 @@ tools/$(GF_DOC_EXE): tools/GFDoc.hs
gfcc: gfcc:
$(GHMAKE) $(GHCOPTFLAGS) -o gfcc GF/Canon/GFCC/RunGFCC.hs $(GHMAKE) $(GHCOPTFLAGS) -o gfcc GF/Canon/GFCC/RunGFCC.hs
strip gfcc strip gfcc
mv gfcc ../bin/
# #
# Distribution # Distribution
# #