completed most parts of ParseSwe; some dict additions in Eng and Fin

This commit is contained in:
aarne
2013-11-03 20:29:40 +00:00
parent 125826270f
commit 6a672f5219
4 changed files with 54 additions and 59 deletions

View File

@@ -176,7 +176,9 @@ oper
compoundA : A -> A ; -- force comparison by mera - mest
-- Adjective with all positive forms the same.
invarA : Str -> A ; -- e.g. äkta
--3 Two-place adjectives
@@ -527,6 +529,8 @@ oper
compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ;
invarA s = mk3cA s s s True ;
mkA2 a p = a ** {c2 = mkComplement p.s ; lock_A2 = <>} ;
mkAdv x = ss x ** {lock_Adv = <>} ;