second round of completing ParseFin with missing constructs: hundreds more translations

This commit is contained in:
aarne
2013-03-29 08:03:20 +00:00
parent ceb800269c
commit a47a9e2dc0
5 changed files with 94 additions and 46 deletions
+4
View File
@@ -46,6 +46,10 @@ concrete AdjectiveFin of Adjective = CatFin ** open ResFin, StemFin, Prelude in
s = \\b,af => ada.s ++ ap.s ! b ! af
} ;
AdvAP ap adv = {
s = \\b,af => adv.s ++ ap.s ! b ! af -- luonnostaan vaalea
} ;
UseA2 a = {
s = \\_ => (snoun2nounSep {s = \\f => a.s ! Posit ! SAN f ; h = a.h}).s
} ;