mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-17 07:02:51 -06:00
added ConjunctionSlv
This commit is contained in:
@@ -31,6 +31,7 @@ lincat
|
|||||||
Numeral = {s : Gender => Case => Str ; n : NumAgr} ;
|
Numeral = {s : Gender => Case => Str ; n : NumAgr} ;
|
||||||
|
|
||||||
-- Structural
|
-- Structural
|
||||||
|
Conj = {s : Str} ;
|
||||||
Prep = {s : Str; c : Case} ;
|
Prep = {s : Str; c : Case} ;
|
||||||
|
|
||||||
-- Open lexical classes, e.g. Lexicon
|
-- Open lexical classes, e.g. Lexicon
|
||||||
|
|||||||
20
lib/src/slovenian/ConjunctionSlv.gf
Normal file
20
lib/src/slovenian/ConjunctionSlv.gf
Normal 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} ;
|
||||||
|
|
||||||
|
}
|
||||||
@@ -8,8 +8,8 @@ concrete GrammarSlv of Grammar =
|
|||||||
NumeralSlv,
|
NumeralSlv,
|
||||||
SentenceSlv,
|
SentenceSlv,
|
||||||
QuestionSlv,
|
QuestionSlv,
|
||||||
{- RelativeSlv,
|
{- RelativeSlv,-}
|
||||||
ConjunctionSlv,-}
|
ConjunctionSlv,
|
||||||
PhraseSlv,
|
PhraseSlv,
|
||||||
TextX - [Pol,PPos,PNeg],
|
TextX - [Pol,PPos,PNeg],
|
||||||
StructuralSlv,
|
StructuralSlv,
|
||||||
|
|||||||
Reference in New Issue
Block a user