diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-09-16 18:42:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-09-16 18:42:46 +0000 |
| commit | 927ad7b1355a3b72d30970cac808792f848551a6 (patch) | |
| tree | 7d58fcad9db47000abf973f8aeab7707a7f677e0 /src/GF/Canon/GFCC | |
| parent | 3917291e92ae5070fc9ec0ea8d37f77a68f243ba (diff) | |
bug fixes in multigrammar handling and GFCC generation
Diffstat (limited to 'src/GF/Canon/GFCC')
| -rw-r--r-- | src/GF/Canon/GFCC/Test.gf | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/src/GF/Canon/GFCC/Test.gf b/src/GF/Canon/GFCC/Test.gf index 86f4adbdf..6cbbd367c 100644 --- a/src/GF/Canon/GFCC/Test.gf +++ b/src/GF/Canon/GFCC/Test.gf @@ -18,26 +18,27 @@ param Case = Nom | Part ; param NForm = NF Number Case ; param VForm = VF Number Person ; ---lincat NP = {s : Case => Str ; n : Number ; p : Person} ; -lincat NP = {s : Case => Str ; a : {n : Number ; p : Person}} ; lincat N = Noun ; lincat VP = Verb ; oper Noun = {s : NForm => Str} ; oper Verb = {s : VForm => Str} ; ---lin Pred np vp = {s = np.s ! Nom ++ vp.s ! VF np.n np.p} ; -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 ; n = Sg ; p = P3} ; ---lin Dets no = {s = \\c => no.s ! NF Pl c ; n = Pl ; p = P3} ; -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}} ; +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} ; +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}} ; ---lin Mina = {s = table Case ["minä" ; "minua"] ; n = Sg ; p = P1} ; ---lin Te = {s = table Case ["te" ; "teitä"] ; n = Pl ; p = P2} ; -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 Paska = mkN "paska" ; |