mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-09 19:22:50 -06:00
added VPI category and AdvVPSlash to the Bulgarian RGL
This commit is contained in:
@@ -7,7 +7,7 @@
|
||||
-- implement $Test$, it moreover contains regular lexical
|
||||
-- patterns needed for $Lex$.
|
||||
|
||||
resource ResBul = ParamX ** open Prelude in {
|
||||
resource ResBul = ParamX ** open Prelude, Predef in {
|
||||
|
||||
flags
|
||||
coding=cp1251 ; optimize=all ;
|
||||
@@ -29,6 +29,11 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
| NFPlCount
|
||||
| NFVocative
|
||||
;
|
||||
|
||||
NNumber =
|
||||
NNum Number
|
||||
| NCountable
|
||||
;
|
||||
|
||||
GenNum = GSg Gender | GPl ;
|
||||
|
||||
@@ -133,6 +138,12 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
GPl => Pl
|
||||
} ;
|
||||
|
||||
numnnum : NNumber -> Number = \nn ->
|
||||
case nn of {
|
||||
NNum n => n ;
|
||||
NCountable => Pl
|
||||
} ;
|
||||
|
||||
aform : GenNum -> Species -> Role -> AForm = \gn,spec,role ->
|
||||
case gn of {
|
||||
GSg g => case <g,spec,role> of {
|
||||
@@ -636,9 +647,9 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
GPl => "òåçè"
|
||||
} ;
|
||||
|
||||
linCoord : Bool => Str ;
|
||||
linCoord = table {True => "è"; False=>"èëè"} ;
|
||||
linCoord : Ints 2 => Str ;
|
||||
linCoord = table {0 => "è"; 1=>"èëè"; 2=>"íèòî"} ;
|
||||
|
||||
linCoordSep : Str -> Bool => Bool => Str ;
|
||||
linCoordSep : Str -> Bool => Ints 2 => Str ;
|
||||
linCoordSep s = table {True => linCoord; False=> \\_ => s} ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user