msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

general prepositions in A2

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-27 11:54:21 +02:00
parent 411da9cbd8
commit 7bf3409b05
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/bulgarian/AdjectiveBul.gf
View File

@@ -30,12 +30,12 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
} ; } ;
ComplA2 a np = { ComplA2 a np = {
s = \\aform,p => a.s ! aform ++ a.c2 ++ np.s ! RObj CPrep ; s = \\aform,p => a.s ! aform ++ a.c2.s ++ np.s ! RObj a.c2.c ;
isPre = False isPre = False
} ; } ;
ReflA2 a = { ReflA2 a = {
s = \\aform,_ => a.s ! aform ++ a.c2 ++ ["ñåáå ñè"] ; s = \\aform,_ => a.s ! aform ++ linPrep a.c2 ++ ["ñåáå ñè"] ;
isPre = False isPre = False
} ; } ;

6
src/bulgarian/CatBul.gf
View File

@@ -81,7 +81,7 @@ concrete CatBul of Cat = CommonX - [IAdv,AdV,SC] ** open ResBul, Prelude, Predef
VV = Verb ** {typ : VVType}; VV = Verb ** {typ : VVType};
A = {s : AForm => Str; adv : Str; isPre : Bool} ; A = {s : AForm => Str; adv : Str; isPre : Bool} ;
A2 = {s : AForm => Str; adv : Str; c2 : Str} ; A2 = {s : AForm => Str; adv : Str; c2 : Preposition} ;
N = {s : NForm => Str; rel : AForm => Str; relPost : Bool; g : AGender} ; N = {s : NForm => Str; rel : AForm => Str; relPost : Bool; g : AGender} ;
N2 = {s : NForm => Str; rel : AForm => Str; relPost : Bool; g : AGender} ** {c2 : Preposition} ; N2 = {s : NForm => Str; rel : AForm => Str; relPost : Bool; g : AGender} ** {c2 : Preposition} ;
@@ -103,7 +103,7 @@ concrete CatBul of Cat = CommonX - [IAdv,AdV,SC] ** open ResBul, Prelude, Predef
VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf Perf}; VV = \s -> {s = \\_,_ => s; vtype = VNormal; typ = VVInf Perf};
A = \s -> {s = \\_ => s; adv = s; isPre = True}; A = \s -> {s = \\_ => s; adv = s; isPre = True};
A2 = \s -> {s = \\_ => s; adv = s; c2 = ""}; A2 = \s -> {s = \\_ => s; adv = s; c2 = {s=""; c=Acc}};
N = \s -> {s = \\_ => s; rel = \\_ => s; relPost = False; g = AMasc NonHuman}; N = \s -> {s = \\_ => s; rel = \\_ => s; relPost = False; g = AMasc NonHuman};
N2 = \s -> {s = \\_ => s; rel = \\_ => s; relPost = False; g = AMasc NonHuman; c2 = {s=""; c=Acc}}; N2 = \s -> {s = \\_ => s; rel = \\_ => s; relPost = False; g = AMasc NonHuman; c2 = {s=""; c=Acc}};
@@ -141,7 +141,7 @@ concrete CatBul of Cat = CommonX - [IAdv,AdV,SC] ** open ResBul, Prelude, Predef
Prep = linPrep ; Prep = linPrep ;
A = \a -> a.s ! ASg Masc Indef; A = \a -> a.s ! ASg Masc Indef;
A2 = \a -> a.s ! ASg Masc Indef ++ a.c2; A2 = \a -> a.s ! ASg Masc Indef ++ linPrep a.c2;
N = \n -> n.s ! NF Sg Indef; N = \n -> n.s ! NF Sg Indef;
N2 = \n -> n.s ! NF Sg Indef ++ linPrep n.c2; N2 = \n -> n.s ! NF Sg Indef ++ linPrep n.c2;

2
src/bulgarian/MorphoFunsBul.gf
View File

@@ -30,7 +30,7 @@ oper
A2V : Type = A2 ; A2V : Type = A2 ;
mkA2 : A -> Prep -> A2 ; mkA2 : A -> Prep -> A2 ;
mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ;
mkAS : A -> AS ; mkAS : A -> AS ;
mkAS v = v ** {lock_A = <>} ; mkAS v = v ** {lock_A = <>} ;