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/finnish | |
| parent | 6b4f9715e6acb87e05b8229bafd1f41d906e6409 (diff) | |
comparative adverbs generalized to cover more of Attempto
Diffstat (limited to 'next-lib/src/finnish')
| -rw-r--r-- | next-lib/src/finnish/AdjectiveFin.gf | 3 | ||||
| -rw-r--r-- | next-lib/src/finnish/AdverbFin.gf | 4 | ||||
| -rw-r--r-- | next-lib/src/finnish/StructuralFin.gf | 7 |
3 files changed, 9 insertions, 5 deletions
diff --git a/next-lib/src/finnish/AdjectiveFin.gf b/next-lib/src/finnish/AdjectiveFin.gf index 737887d17..ee6bc58dd 100644 --- a/next-lib/src/finnish/AdjectiveFin.gf +++ b/next-lib/src/finnish/AdjectiveFin.gf @@ -13,6 +13,9 @@ concrete AdjectiveFin of Adjective = CatFin ** open ResFin, Prelude in { _ => a.s ! Compar ! AN af ++ "kuin" ++ np.s ! NPCase Nom -- isompi kuin minä } } ; + CAdvAP ad ap np = { + s = \\m,af => ad.s ++ ap.s ! m ! af ++ ad.p ++ np.s ! NPCase Nom + } ; UseComparA a = { s = \\_,nf => a.s ! Compar ! AN nf ; } ; diff --git a/next-lib/src/finnish/AdverbFin.gf b/next-lib/src/finnish/AdverbFin.gf index a331f985a..307971101 100644 --- a/next-lib/src/finnish/AdverbFin.gf +++ b/next-lib/src/finnish/AdverbFin.gf @@ -3,10 +3,10 @@ concrete AdverbFin of Adverb = CatFin ** open ResFin, Prelude in { lin PositAdvAdj a = {s = a.s ! Posit ! AAdv} ; ComparAdvAdj cadv a np = { - s = cadv.s ++ a.s ! Posit ! AAdv ++ "kuin" ++ np.s ! NPCase Nom + s = cadv.s ++ a.s ! Posit ! AAdv ++ cadv.p ++ np.s ! NPCase Nom } ; ComparAdvAdjS cadv a s = { - s = cadv.s ++ a.s ! Posit ! AAdv ++ "kuin" ++ s.s + s = cadv.s ++ a.s ! Posit ! AAdv ++ cadv.p ++ s.s } ; PrepNP prep np = {s = preOrPost prep.isPre prep.s (np.s ! prep.c)} ; diff --git a/next-lib/src/finnish/StructuralFin.gf b/next-lib/src/finnish/StructuralFin.gf index f013ad665..0a610f93e 100644 --- a/next-lib/src/finnish/StructuralFin.gf +++ b/next-lib/src/finnish/StructuralFin.gf @@ -1,5 +1,5 @@ concrete StructuralFin of Structural = CatFin ** - open MorphoFin, ParadigmsFin, Prelude in { + open MorphoFin, ParadigmsFin, (X = ConstructX), Prelude in { flags optimize=all ; @@ -57,9 +57,9 @@ concrete StructuralFin of Structural = CatFin ** a = agrP3 Sg ; isPron = False } ; - less_CAdv = ss "vähemmän" ; + less_CAdv = X.mkCAdv "vähemmän" "kuin" ; many_Det = mkDet Sg (mkN "moni" "monia") ; - more_CAdv = ss "enemmän" ; + more_CAdv = X.mkCAdv "enemmän" "kuin" ; most_Predet = {s = \\n,c => (nForms2N (dSuurin "useinta")).s ! NCase n (npform2case n c)} ; much_Det = mkDet Sg {s = \\_ => "paljon"} ; must_VV = mkVV (caseV genitive (mkV "täytyä")) ; @@ -302,6 +302,7 @@ lin at_least_AdN = ss "vähintään" ; at_most_AdN = ss "enintään" ; + as_CAdv = X.mkCAdv "yhtä" "kuin" ; } |