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

allow plural PN

Browse Source
This commit is contained in:
krangelov
2021-02-17 09:42:40 +01:00
parent 24bc84627b
commit 2bb3630f00
5 changed files with 12 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/bulgarian/CatBul.gf
View File

@@ -86,7 +86,7 @@ concrete CatBul of Cat = CommonX - [IAdv,AdV] ** open ResBul, Prelude, Predef, (
N = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ; N = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ;
N2 = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ** {c2 : Preposition} ; N2 = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ** {c2 : Preposition} ;
N3 = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ** {c2,c3 : Preposition} ; N3 = {s : NForm => Str; rel : AForm => Str; relType : NRelType; g : AGender} ** {c2,c3 : Preposition} ;
PN = {s : Str; g : Gender} ; PN = {s : Str; gn : GenNum} ;
lindef lindef
SSlash = \s -> {s = \\_ => s; c2 = {s=""; c=Acc}}; SSlash = \s -> {s = \\_ => s; c2 = {s=""; c=Acc}};

8
src/bulgarian/MorphoBul.gf
View File

@@ -1,14 +1,6 @@
--# -path=.:../../prelude --# -path=.:../../prelude
--# -coding=utf8 --# -coding=utf8
--1 A Simple English Resource Morphology
--
-- Aarne Ranta 2002 -- 2005
--
-- This resource morphology contains definitions needed in the resource
-- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which
-- gives a higher-level access to this module.
resource MorphoBul = ResBul ** open resource MorphoBul = ResBul ** open
Predef, Predef,
Prelude, Prelude,

8
src/bulgarian/MorphoFunsBul.gf
View File

@@ -278,8 +278,12 @@ oper
--2 Proper Names --2 Proper Names
-- --
mkPN : Str -> Gender -> PN ; mkPN = overload {
mkPN s g = {s = s; g = g ; lock_PN = <>} ; mkPN : Str -> Gender -> PN =
\s,g -> {s = s; gn = GSg g ; lock_PN = <>} ;
mkPN : Str -> GenNum -> PN =
\s,gn -> {s = s; gn = gn ; lock_PN = <>} ;
} ;
--2 IAdv --2 IAdv

2
src/bulgarian/NounBul.gf
View File

@@ -42,7 +42,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
RObj c => linCase c Pos ++ pn.s; RObj c => linCase c Pos ++ pn.s;
_ => pn.s _ => pn.s
} ; } ;
gn = GSg pn.g ; gn = pn.gn ;
p = NounP3 Pos p = NounP3 Pos
} ; } ;
UsePron p = p ; UsePron p = p ;

8
src/bulgarian/SymbolBul.gf
View File

@@ -7,10 +7,10 @@ flags
coding = utf8 ; coding = utf8 ;
lin lin
SymbPN i = {s = i.s ; g = Neut} ; SymbPN i = {s = i.s ; gn = GSg Neut} ;
IntPN i = {s = i.s ; g = Neut} ; IntPN i = {s = i.s ; gn = GSg Neut} ;
FloatPN i = {s = i.s ; g = Neut} ; FloatPN i = {s = i.s ; gn = GSg Neut} ;
NumPN i = {s = i.s ! CFNeut Indef ; g = Neut} ; NumPN i = {s = i.s ! CFNeut Indef ; gn = GSg Neut} ;
CNIntNP cn i = { CNIntNP cn i = {
s = \\c => cn.s ! NF Sg Indef ++ i.s ; s = \\c => cn.s ! NF Sg Indef ++ i.s ;
gn = gennum cn.g Sg ; gn = gennum cn.g Sg ;