mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 01:52:50 -06:00
add bulgarian language (still incomplete)
This commit is contained in:
29
lib/resource/bulgarian/SentenceBul.gf
Normal file
29
lib/resource/bulgarian/SentenceBul.gf
Normal file
@@ -0,0 +1,29 @@
|
||||
concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
|
||||
|
||||
ImpVP vp = {
|
||||
s = \\p,i =>
|
||||
let gn : GenNum =
|
||||
case i of {
|
||||
ImpF _ True => GPl ;
|
||||
ImpF Sg _ => GSg (variants {Masc; Fem; Neut}) ;
|
||||
ImpF Pl _ => GPl
|
||||
} ;
|
||||
agr = {gn = gn ; p = P2} ;
|
||||
verb = vp.imp ! p ! numImp i ;
|
||||
compl = vp.s2 ! agr
|
||||
in
|
||||
verb ++ compl
|
||||
} ;
|
||||
|
||||
UseCl t a p cl = {
|
||||
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! ODir
|
||||
} ;
|
||||
UseQCl t a p cl = {
|
||||
s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q
|
||||
} ;
|
||||
}
|
||||
Reference in New Issue
Block a user