summaryrefslogtreecommitdiff
path: root/next-lib/src/catalan
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-11-15 11:19:10 +0000
committeraarne <aarne@cs.chalmers.se>2008-11-15 11:19:10 +0000
commit3ff57f6184963acde7f3cc2dcf0638c0e819929a (patch)
treee5c975ae99dd3e45f9a4e700658b39d9bf90e68f /next-lib/src/catalan
parent6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff)
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/catalan')
-rw-r--r--next-lib/src/catalan/StructuralCat.gf6
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 = []} ;