From 3ff57f6184963acde7f3cc2dcf0638c0e819929a Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 11:19:10 +0000 Subject: comparative adverbs generalized to cover more of Attempto --- next-lib/src/spanish/StructuralSpa.gf | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'next-lib/src/spanish/StructuralSpa.gf') diff --git a/next-lib/src/spanish/StructuralSpa.gf b/next-lib/src/spanish/StructuralSpa.gf index 033c2a9ab..597b207c4 100644 --- a/next-lib/src/spanish/StructuralSpa.gf +++ b/next-lib/src/spanish/StructuralSpa.gf @@ -1,5 +1,5 @@ concrete StructuralSpa of Structural = CatSpa ** - open PhonoSpa, MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in { + open PhonoSpa, MorphoSpa, ParadigmsSpa, BeschSpa, (X = ConstructX), Prelude in { flags optimize=all ; @@ -60,10 +60,10 @@ lin "el" "lo" "le" "él" "su" "su" "sus" "sus" Masc Sg P3 ; - less_CAdv = ss "meno" ; ---- + less_CAdv = X.mkCAdv "menos" conjThan ; ---- many_Det = { s,sp = \\g,c => prepCase c ++ genForms "muchos" "muchas" ! g ; n = Pl ; s2 = []} ; - more_CAdv = ss "mas" ; + more_CAdv = X.mkCAdv "más" conjThan ; most_Predet = {s = \\_,c => prepCase c ++ ["la mayor parte"] ; c = CPrep P_de} ; much_Det = { s,sp = \\g,c => prepCase c ++ genForms "mucho" "mucha" ! g ; n = Sg ; s2 = []} ; @@ -168,6 +168,8 @@ oper "y" / strs {"ya" ; "ye" ; "yo" ; "yu"} ; "e" / strs {"i" ; "hi" ; "y"} }} ** {n = Pl} ; +lin + as_CAdv = X.mkCAdv "si" conjThan ; ---- } -- cgit v1.2.3