ConjCN,BaseCN,ConsCN in Dutch and Slovenian

This commit is contained in:
Krasimir Angelov
2024-03-23 09:07:07 +01:00
parent 4957955df0
commit 0df8e6da39
2 changed files with 22 additions and 0 deletions
+15
View File
@@ -10,6 +10,10 @@ concrete ConjunctionSlv of Conjunction =
ConjAP conj xs = {
s = \\sp,g,c,n => xs.s1 ! sp ! g ! c ! n ++ conj.s ++ xs.s2 ! sp ! g ! c ! n
} ;
ConjCN conj xs = {
s = \\s,c,n => xs.s1 ! s ! c ! n ++ conj.s ++ xs.s2 ! s ! c ! n ;
g = xs.g ;
} ;
-- These fun's are generated from the list cat's.
@@ -28,9 +32,20 @@ concrete ConjunctionSlv of Conjunction =
s1 = \\sp,g,c,n => x.s ! sp ! g ! c ! n ++ xs.s1 ! sp ! g ! c ! n ;
s2 = xs.s2
} ;
BaseCN x y = {
s1 = x.s ;
s2 = y.s ;
g = y.g
} ;
ConsCN x xs = {
s1 = \\s,c,n => x.s ! s ! c ! n ++ "," ++ xs.s1 ! s ! c ! n ;
s2 = xs.s2 ;
g = xs.g
} ;
lincat
[NP] = {s1,s2 : Case => Str; a : Agr} ;
[AP] = {s1,s2 : Species => AGender => Case => Number => Str} ;
[CN] = {s1,s2 : Species => Case => Number => Str; g : AGender} ;
}