(Por) change mk2A paradigm

(such that the second argument is the adverb string, not the feminine
form, which is easier to predict)
- fix bug in adjVo paradigm
- add two cases to mkAdjReg smart paradigm
- update lexicon

tbh, it is much more common to need to correct the adverbial form
because it doesn't have the accents that the adjectival forms may
have, so if there's a way of removing accents easily, that might be
better.
This commit is contained in:
odanoburu
2018-10-30 13:48:26 +00:00
parent 999cdb8e36
commit 1427b1bbb8
3 changed files with 17 additions and 15 deletions
+3 -3
View File
@@ -203,9 +203,9 @@ oper
regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ;
lock_A = <>} ;
mk2A : (espanhol,espanhola : Str) -> A ;
mk2A a b = compADeg {s = \\_ => (mkAdj2N (mkN a) (mkN b) (b + "mente")).s ; isPre = False ;
lock_A = <>} ;
mk2A : (único,unicamente : Str) -> A ;
mk2A adj adv = compADeg {s = \\_ => (mkAdj2 adj adv).s ; isPre = False ;
lock_A = <>} ;
mk5A : (preto,preta,pretos,pretas,pretamente : Str) -> A ;
mk5A a b c d e = compADeg {s = \\_ => (mkAdj a b c d e).s ;