diff options
| author | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-09 09:47:16 +0000 |
| commit | c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b (patch) | |
| tree | 5f0b314341c129eba1bc67b8b887fb8a4486fad8 /old-lib/resource/finnish/AdjectiveFin.gf | |
| parent | 101df06f6c8380328d4266adadac3ab6d1bac0b3 (diff) | |
moving a few things to deprecated
Diffstat (limited to 'old-lib/resource/finnish/AdjectiveFin.gf')
| -rw-r--r-- | old-lib/resource/finnish/AdjectiveFin.gf | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/old-lib/resource/finnish/AdjectiveFin.gf b/old-lib/resource/finnish/AdjectiveFin.gf deleted file mode 100644 index 78e7d4a7c..000000000 --- a/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 ; - -} |
