GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

add SymbolBul, SymbolicBul, CompatibilityBul

Browse Source
This commit is contained in:
krasimir
2008-11-07 09:41:04 +00:00
parent e2de6a8555
commit 4a1bfac84b
3 changed files with 84 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
next-lib/src/api/SymbolicBul.gf Normal file
View File

@@ -0,0 +1,5 @@
--# -path=.:present:mathematical:prelude
resource SymbolicBul = Symbolic with
(Symbol = SymbolBul),
(Grammar = GrammarBul) ;

25
next-lib/src/bulgarian/CompatibilityBul.gf Normal file
View File

@@ -0,0 +1,25 @@
--# -path=.:../abstract:../common
concrete CompatibilityBul of Compatibility = CatBul ** open Prelude, ResBul in {
-- from Noun 19/4/2008
flags
coding = cp1251 ;
lin
NumInt n = {s = \\_ => n.s; n = Pl; nonEmpty = True} ;
OrdInt n = {s = \\aform => n.s ++ "-" ++
case aform of {
ASg Masc Indef => "òè" ;
ASg Fem Indef => "òà" ;
ASg Neut Indef => "òî" ;
ASg Masc Def => "òèÿ" ;
ASg Fem Def => "òàòà" ;
ASg Neut Def => "òîòî" ;
ASgMascDefNom => "òèÿò" ;
APl Indef => "òè" ;
APl Def => "òèòå"
}
} ;
}

54
next-lib/src/bulgarian/SymbolBul.gf Normal file
View File

@@ -0,0 +1,54 @@
--# -path=.:abstract:common
concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
flags
coding = cp1251 ;
lin
SymbPN i = {s = i.s ; g = Neut} ;
IntPN i = {s = i.s ; g = Neut} ;
FloatPN i = {s = i.s ; g = Neut} ;
NumPN i = {s = i.s ! DNeutIndef ; g = Neut} ;
CNIntNP cn i = {
s = \\c => cn.s ! NF Sg Indef ++ i.s ;
a = agrP3 (gennum cn.g Sg)
} ;
CNSymbNP det cn xs = {
s = \\c => det.s ! False ! cn.g ! RSubj ++ cn.s ! NF det.n Indef ++ xs.s ;
a = agrP3 (gennum cn.g det.n)
} ;
CNNumNP cn i = {
s = \\c => (cn.s ! NF Sg Indef ++ i.s ! DNeutIndef) ;
a = agrP3 (gennum cn.g Sg)
} ;
SymbS sy = sy ;
SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
SymbOrd sy = {s = \\aform => sy.s ++ "-" ++
case aform of {
ASg Masc Indef => "òè" ;
ASg Fem Indef => "òà" ;
ASg Neut Indef => "òî" ;
ASg Masc Def => "òèÿ" ;
ASg Fem Def => "òàòà" ;
ASg Neut Def => "òîòî" ;
ASgMascDefNom => "òèÿò" ;
APl Indef => "òè" ;
APl Def => "òèòå"
}
} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "è" ;
ConsSymb = infixSS "," ;
}