(Spa) add invarA + fix typo in after_Prep

This commit is contained in:
Inari Listenmaa
2019-04-02 14:50:03 +02:00
parent 70e1292013
commit 63093fd459
2 changed files with 19 additions and 18 deletions

View File

@@ -156,7 +156,7 @@ oper
-- Some adjectives need the feminine form separately. -- Some adjectives need the feminine form separately.
mkA : (espanol,espanola : Str) -> A ; mkA : (español,española : Str) -> A ;
-- One-place adjectives compared with "mas" need five forms in the worst -- One-place adjectives compared with "mas" need five forms in the worst
-- case (masc and fem singular, masc plural, adverbial). -- case (masc and fem singular, masc plural, adverbial).
@@ -182,6 +182,8 @@ oper
prefixA : A -> A ; -- adjective before noun (default after noun) prefixA : A -> A ; -- adjective before noun (default after noun)
invarA : Str -> A -- invariable adjective
= \s -> mkA s s s s s ;
--3 Two-place adjectives --3 Two-place adjectives
-- --

View File

@@ -10,7 +10,7 @@ lin
-- have_not_V3 -- have_not_V3
above_Prep = mkPrep "sobre" ; above_Prep = mkPrep "sobre" ;
after_Prep = {s = ["despues"] ; c = MorphoSpa.genitive ; isDir = False} ; after_Prep = mkPrep "después" genitive ;
all_Predet = { all_Predet = {
s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ; s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ;
c = Nom ; c = Nom ;
@@ -178,4 +178,3 @@ lin
lin language_title_Utt = ss "español" ; lin language_title_Utt = ss "español" ;
} }