diff options
| author | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-12-22 14:11:55 +0000 |
| commit | c5b963769539c8a7c9bd154585686d263c7d6d8a (patch) | |
| tree | c1bc4129d94e51c5e68ed4b7c1888ae120aac3fd /deprecated/old-lib/resource/finnish/AdjectiveFin.gf | |
| parent | ce15ec7b787479ca4c7295863ea7fa5cfdd16755 (diff) | |
removed GF/deprecated
Diffstat (limited to 'deprecated/old-lib/resource/finnish/AdjectiveFin.gf')
| -rw-r--r-- | deprecated/old-lib/resource/finnish/AdjectiveFin.gf | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/deprecated/old-lib/resource/finnish/AdjectiveFin.gf b/deprecated/old-lib/resource/finnish/AdjectiveFin.gf deleted file mode 100644 index 78e7d4a7c..000000000 --- a/deprecated/old-lib/resource/finnish/AdjectiveFin.gf +++ /dev/null @@ -1,40 +0,0 @@ -concrete AdjectiveFin of Adjective = CatFin ** open ResFin, Prelude in { - - flags optimize=all_subs ; -- gfc size from 2864336 to 6786 - i.e. factor 422 - - lin - - PositA a = { - s = \\_ => a.s ! Posit - } ; - ComparA a np = { - s = \\isMod,af => case isMod of { - True => np.s ! NPCase Part ++ a.s ! Compar ! af ; -- minua isompi - _ => a.s ! Compar ! af ++ "kuin" ++ np.s ! NPCase Nom -- isompi kuin minä - } - } ; - --- $SuperlA$ belongs to determiner syntax in $Noun$. - - ComplA2 adj np = { - s = \\isMod,af => - preOrPost isMod (appCompl True Pos adj.c2 np) (adj.s ! Posit ! af) - } ; - - ReflA2 adj = { - s = \\isMod,af => - preOrPost isMod - (appCompl True Pos adj.c2 (reflPron (agrP3 Sg))) (adj.s ! Posit ! af) - } ; - - SentAP ap sc = { - s = \\b,a => ap.s ! b ! a ++ sc.s - } ; - - AdAP ada ap = { - s = \\b,af => ada.s ++ ap.s ! b ! af - } ; - - UseA2 a = a ; - -} |
