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

started with tenses

Browse Source
This commit is contained in:
Krasimir Angelov committed 2026-04-10 19:58:11 +02:00
1 parent 1c3bb0f6eb
commit b339f7c2fc
12 files changed
+392 -136
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/macedonian/CatMkd.gf
+12 -8
View File
@@ -1,4 +1,8 @@
concrete CatMkd of Cat = CommonX ** open ResMkd, Prelude in {
concrete CatMkd of Cat = CommonX - [Temp,Tense] ** open ParamX, ResMkd, Prelude in {
lincat
Temp = {s : Str ; t : ResMkd.Tense ; a : Anteriority} ;
Tense = {s : Str ; t : ResMkd.Tense} ;
lincat N = Noun ;
lincat N2 = Noun ** {c2 : Compl} ;
@@ -9,7 +13,7 @@ lincat V2, V2S, V2Q = Verb ** {c2 : Compl} ;
lincat V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
lincat A = Adj ;
lincat A2 = Adj ** {c2 : Compl} ;
lincat Pron = Pron ;
lincat Pron = Pronoun ;
lincat Prep = Compl ;
lincat Decimal = {s : Str; n : Number; hasDot : Bool} ;
lincat Digits = {s : Str; n : Number; tail : DTail} ;
@@ -34,18 +38,18 @@ lincat VP = {present : Aspect => Number => Person => Str;
aorist : Number => Person => Str;
imperfect : Aspect => Number => Person => Str;
imperative : Aspect => Number => Str;
participle : {aorist : Aspect => GenNum => Str; perfect : Aspect => Str}} ;
participle : {aorist : Aspect => GenNum => Str;
imperfect : Aspect => GenNum => Str;
perfect : Aspect => Str}} ;
lincat VPSlash = {present : Aspect => Number => Person => Str;
aorist : Number => Person => Str;
imperfect : Aspect => Number => Person => Str;
imperative : Aspect => Number => Str;
participle : {aorist : Aspect => GenNum => Str;
imperfect : GenNum => Str; perfect : Aspect => Str;
adjectival : Aspect => Str; adverbial : Str};
imperfect : Aspect => GenNum => Str;
perfect : Aspect => Str};
noun_from_verb : Str; vtype : VType; c2 : Compl} ;
lincat Cl = {present : Aspect => Str;
aorist : Str;
participle : {aorist : Aspect => Str; perfect : Aspect => Str}} ;
lincat Cl = {s : ResMkd.Tense => Anteriority => Polarity => Order => Str} ;
lincat RP = {s : GenNum => Str} ;
lincat IP = {s : Str} ;
lincat Subj = {s : Str} ;