added ConjunctionSlv

This commit is contained in:
krasimir
2016-06-15 08:25:23 +00:00
parent 6025c59c55
commit 2f508cbd83
3 changed files with 23 additions and 2 deletions

View File

@@ -31,6 +31,7 @@ lincat
Numeral = {s : Gender => Case => Str ; n : NumAgr} ;
-- Structural
Conj = {s : Str} ;
Prep = {s : Str; c : Case} ;
-- Open lexical classes, e.g. Lexicon

View File

@@ -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} ;
}

View File

@@ -8,8 +8,8 @@ concrete GrammarSlv of Grammar =
NumeralSlv,
SentenceSlv,
QuestionSlv,
{- RelativeSlv,
ConjunctionSlv,-}
{- RelativeSlv,-}
ConjunctionSlv,
PhraseSlv,
TextX - [Pol,PPos,PNeg],
StructuralSlv,