(Hun) Add some tests for noun inflection + new words for them

This commit is contained in:
Inari Listenmaa
2020-03-28 16:35:02 +01:00
parent e1a94a0741
commit 8b35ea2762
7 changed files with 171 additions and 10 deletions
+5
View File
@@ -70,6 +70,8 @@ oper
mkPrep : Str -> Case -> Prep ; -- Postposition and case
} ;
casePrep : Case -> Prep ; -- No postposition, only case
-- mkConj : (_,_ : Str) -> Number -> Conj = \s1,s2,num ->
-- lin Conj { s = s1 ; s2 = s2 } ;
@@ -136,6 +138,9 @@ oper
mkPrep : Str -> Case -> Prep
= \str,c -> lin Prep (ResHun.mkPrep str ** {c = c}) ;
} ;
casePrep : Case -> Prep
= \c -> lin Prep (ResHun.mkPrep [] ** {c = c}) ;
--------------------------------------------------------------------------------
}