diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-16 07:53:01 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-16 07:53:01 +0000 |
| commit | b442cde3bd01fb935c215446097592510cf8e713 (patch) | |
| tree | fe29c30f27b61ae935f3fa0e6c758c61b5b7cd16 /next-lib/src/interlingua/RelativeIna.gf | |
| parent | b2b4a7064b9fd1aec75c2b3127c36e0f8a5ee513 (diff) | |
reduce the number of variants in Interlingua
Diffstat (limited to 'next-lib/src/interlingua/RelativeIna.gf')
| -rw-r--r-- | next-lib/src/interlingua/RelativeIna.gf | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/next-lib/src/interlingua/RelativeIna.gf b/next-lib/src/interlingua/RelativeIna.gf index ebdebcd13..be3be3150 100644 --- a/next-lib/src/interlingua/RelativeIna.gf +++ b/next-lib/src/interlingua/RelativeIna.gf @@ -5,14 +5,14 @@ concrete RelativeIna of Relative = CatIna ** open ResIna in { lin RelCl cl = { - s = \\t,a,p,agr => + s = \\use_irreg,t,a,p,agr => (case agr.n of {Sg => "tal"; Pl => "tales"}) ++ - "que" ++ cl.s ! t ! a ! p ! ODir ; + "que" ++ cl.s ! use_irreg ! t ! a ! p ! ODir ; c = Nom } ; RelVP rp vp = { - s = \\t,a,p,agr => (mkClause (rp.s!Nom) agr vp).s ! t ! a ! p ! ODir; + s = \\use_irreg,t,a,p,agr => (mkClause (rp.s!Nom) agr vp).s ! use_irreg ! t ! a ! p ! ODir; c = Nom } ; -- !!! person agreement is probably bad here; see below. @@ -20,7 +20,7 @@ concrete RelativeIna of Relative = CatIna ** open ResIna in { ---- Pied piping: "a que tu invia flores" RelSlash rp slash = { - s = \\t,a,p,agr => slash.p2 ++ rp.s ! slash.c2 ++ slash.s ! t ! a ! p ! ODir ; + s = \\use_irreg,t,a,p,agr => slash.p2 ++ rp.s ! slash.c2 ++ slash.s ! use_irreg ! t ! a ! p ! ODir ; c = slash.c2; } ; -- !!! In the above The agreement feature of the RP does not match |