(Hun) Add Conj{S,NP,AP} + some conjunctions

This commit is contained in:
Inari Listenmaa
2020-04-13 19:58:26 +02:00
parent 3c6f7a2267
commit 57ad749ecc
3 changed files with 42 additions and 41 deletions

View File

@@ -13,14 +13,16 @@ resource ResHun = NounMorphoHun ** open Prelude, Predef in {
-- Noun morphology is in NounMorphoHun
oper
NounPhrase : Type = {
s : Case => Str ;
BaseNP : Type = {
agr : Person*Number ;
objdef : ObjDef ;
empty : Str ; -- standard trick for pro-drop
} ;
NounPhrase : Type = BaseNP ** {
s : Case => Str ;
} ;
emptyNP : NounPhrase = {
s = \\_ => [] ;
agr = <P3,Sg> ;
@@ -104,6 +106,13 @@ oper
n : Number ;
} ;
mkConj : Str -> Number -> Conj = mkDConj [] ;
mkDConj : (s1,s2 : Str) -> Number -> Conj = \s1,s2,num -> {
s1 = s1 ;
s2 = s2 ;
n = num ;
} ;
--------------------------------------------------------------------------------
-- Adjectives