mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-30 10:33:18 -06:00
added ConjunctionSlv
This commit is contained in:
1 parent
b761120645
commit
68b68ba096
3 files changed
+23
-2
No files matched your search
@@ -0,0 +1,20 @@
|
||||
concrete ConjunctionSlv of Conjunction =
|
||||
CatSlv ** open ResSlv in {
|
||||
|
||||
lin
|
||||
ConjAP conj xs = {
|
||||
s = \\sp,g,c,n => xs.s1 ! sp ! g ! c ! n ++ conj.s ++ xs.s2 ! sp ! g ! c ! n
|
||||
} ;
|
||||
|
||||
-- These fun's are generated from the list cat's.
|
||||
|
||||
BaseAP x y = { s1 = x.s; s2=y.s } ;
|
||||
ConsAP x xs = {
|
||||
s1 = \\sp,g,c,n => x.s ! sp ! g ! c ! n ++ xs.s1 ! sp ! g ! c ! n ;
|
||||
s2 = xs.s2
|
||||
} ;
|
||||
|
||||
lincat
|
||||
[AP] = {s1,s2 : Species => Gender => Case => Number => Str} ;
|
||||
|
||||
}
|
||||
Reference in new issue
Block a user