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/french/StructuralFre.gf | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/french/StructuralFre.gf')
| -rw-r--r-- | next-lib/src/french/StructuralFre.gf | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/next-lib/src/french/StructuralFre.gf b/next-lib/src/french/StructuralFre.gf index 133455612..8096a0c8e 100644 --- a/next-lib/src/french/StructuralFre.gf +++ b/next-lib/src/french/StructuralFre.gf @@ -1,7 +1,7 @@ --# -path=.:../abstract:../romance:../common:prelude concrete StructuralFre of Structural = CatFre ** - open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, Prelude in { + open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, (X = ConstructX), Prelude in { flags optimize=all ; coding=utf8 ; @@ -57,9 +57,9 @@ lin mkPronoun "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses" Masc Sg P3 ; - less_CAdv = ss "moins" ; + less_CAdv = X.mkCAdv "moins" conjThan ; many_Det = {s,sp = \\_,c => prepCase c ++ "plusieurs" ; n = Pl ; s2 = []} ; - more_CAdv = ss "plus" ; + more_CAdv = X.mkCAdv "plus" conjThan ; most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de} ; much_Det = {s,sp = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl ; s2 = []} ; must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ; @@ -183,5 +183,7 @@ lin except_Prep = mkPreposition "excepté" ; + as_CAdv = X.mkCAdv "aussi" conjThan ; + } |