robustness to gfcc interpreter ; make gfcc to bin

src/GF/Canon/GFCC/DataGFCC.hs

@@ -88,7 +88,7 @@ compute mcfg lang args = comp where
 
   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
     (_,     FV ts) -> FV $ Prelude.map (proj r) ts

src/GF/Canon/GFCC/GenGFCC.hs

@@ -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 [] _ = (Tr (AS "TIMEOUT") [], 1) ----
     gett ds cat = case fns cat of
+      [] -> (Tr AM [],1)
       fs -> let 
           d:ds2    = ds
           (f,args) = getf d fs

src/Makefile

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