added VPI category and AdvVPSlash to the Bulgarian RGL

This commit is contained in:
kr.angelov
2012-06-26 09:54:06 +00:00
parent 0b1a963d7a
commit 852d923786
10 changed files with 85 additions and 61 deletions

View File

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