diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-15 11:19:10 +0000 |
| commit | 3ff57f6184963acde7f3cc2dcf0638c0e819929a (patch) | |
| tree | e5c975ae99dd3e45f9a4e700658b39d9bf90e68f /next-lib/src/catalan | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/catalan')
| -rw-r--r-- | next-lib/src/catalan/StructuralCat.gf | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/next-lib/src/catalan/StructuralCat.gf b/next-lib/src/catalan/StructuralCat.gf index 64a25b6f5..b48a94a9a 100644 --- a/next-lib/src/catalan/StructuralCat.gf +++ b/next-lib/src/catalan/StructuralCat.gf @@ -1,5 +1,5 @@ concrete StructuralCat of Structural = CatCat ** - open PhonoCat, MorphoCat, ParadigmsCat, BeschCat, Prelude in { + open PhonoCat, MorphoCat, ParadigmsCat, BeschCat, (X = ConstructX), Prelude in { flags optimize=all ; coding=utf8 ; @@ -60,10 +60,10 @@ lin "ell" "lo" "el" "ell" ["el seu"] ["la seva"] ["els seus"] ["les seves"] Masc Sg P3 ; - less_CAdv = ss "menys" ; ---- + less_CAdv = X.mkCAdv "menys" conjThan ; ---- many_Det = { s,sp = \\g,c => prepCase c ++ genForms "molts" "moltes" ! g ; n = Pl ; s2 = []} ; - more_CAdv = ss "més" ; + more_CAdv = X.mkCAdv "més" conjThan ; most_Predet = {s = \\_,c => prepCase c ++ ["la majoria"] ; c = CPrep P_de} ; much_Det = { s,sp = \\g,c => prepCase c ++ genForms "molt" "molta" ! g ; n = Sg ; s2 = []} ; |
