diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-09-25 13:03:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-09-25 13:03:33 +0000 |
| commit | 902ff81773fc6eb63512fbb95fc8e3d5ead0e738 (patch) | |
| tree | 9b3e77be37806fa7144f9a4a5f7ad3641eafeb59 /src/GF/Canon/GFCC/Test.gf | |
| parent | 9ae36df22079e072b302ad966fc98963d97d2654 (diff) | |
some fixes in gfcc compilation
Diffstat (limited to 'src/GF/Canon/GFCC/Test.gf')
| -rw-r--r-- | src/GF/Canon/GFCC/Test.gf | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/GF/Canon/GFCC/Test.gf b/src/GF/Canon/GFCC/Test.gf index 6cbbd367c..efb77eff6 100644 --- a/src/GF/Canon/GFCC/Test.gf +++ b/src/GF/Canon/GFCC/Test.gf @@ -24,6 +24,7 @@ lincat VP = Verb ; oper Noun = {s : NForm => Str} ; oper Verb = {s : VForm => Str} ; +-- {- lincat NP = {s : Case => Str ; n : Number ; p : Person} ; lin Pred np vp = {s = np.s ! Nom ++ vp.s ! VF np.n np.p} ; lin Pred2 np vp ob = {s = np.s ! Nom ++ vp.s ! VF np.n np.p ++ ob.s ! Part} ; @@ -31,16 +32,19 @@ lin Det no = {s = \\c => no.s ! NF Sg c ; n = Sg ; p = P3} ; lin Dets no = {s = \\c => no.s ! NF Pl c ; n = Pl ; p = P3} ; lin Mina = {s = table Case ["minä" ; "minua"] ; n = Sg ; p = P1} ; lin Te = {s = table Case ["te" ; "teitä"] ; n = Pl ; p = P2} ; ---lincat NP = {s : Case => Str ; a : {n : Number ; p : Person}} ; ---lin Pred np vp = {s = np.s ! Nom ++ vp.s ! VF np.a.n np.a.p} ; ---lin Pred2 np vp ob = {s = np.s ! Nom ++ vp.s ! VF np.a.n np.a.p ++ ob.s ! Part} ; ---lin Det no = {s = \\c => no.s ! NF Sg c ; a = {n = Sg ; p = P3}} ; ---lin Dets no = {s = \\c => no.s ! NF Pl c ; a = {n = Pl ; p = P3}} ; ---lin Mina = {s = table Case ["minä" ; "minua"] ; a = {n = Sg ; p = P1}} ; ---lin Te = {s = table Case ["te" ; "teitä"] ; a = {n = Pl ; p = P2}} ; +-- -} +{- +lincat NP = {s : Case => Str ; a : {n : Number ; p : Person}} ; +lin Pred np vp = {s = np.s ! Nom ++ vp.s ! VF np.a.n np.a.p} ; +lin Pred2 np vp ob = {s = np.s ! Nom ++ vp.s ! VF np.a.n np.a.p ++ ob.s ! Part} ; +lin Det no = {s = \\c => no.s ! NF Sg c ; a = {n = Sg ; p = P3}} ; +lin Dets no = {s = \\c => no.s ! NF Pl c ; a = {n = Pl ; p = P3}} ; +lin Mina = {s = table Case ["minä" ; "minua"] ; a = {n = Sg ; p = P1}} ; +lin Te = {s = table Case ["te" ; "teitä"] ; a = {n = Pl ; p = P2}} ; +-} -lin Raha = mkN "raha" ; +lin Raha = mkN "raha" ; lin Paska = mkN "paska" ; lin Pallo = mkN "pallo" ; lin Puhua = mkV "puhu" ; |