mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
added missing files
This commit is contained in:
13
src/macedonian/IdiomMkd.gf
Normal file
13
src/macedonian/IdiomMkd.gf
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
concrete IdiomMkd of Idiom = CatMkd ** open Prelude,ResMkd in {
|
||||||
|
|
||||||
|
lin ProgrVP vp = {
|
||||||
|
present = \\a,n,p => vp.present ! Imperfective ! n ! p ;
|
||||||
|
aorist = vp.aorist ;
|
||||||
|
imperfect = \\a,n,p => vp.imperfect ! Imperfective ! n ! p ;
|
||||||
|
imperative = \\a,n => vp.imperative ! Imperfective ! n ;
|
||||||
|
participle = {aorist = \\a,gn => vp.participle.aorist ! Imperfective ! gn ;
|
||||||
|
perfect = \\a => vp.participle.perfect ! Imperfective ;
|
||||||
|
imperfect = \\a => vp.participle.imperfect ! Imperfective}
|
||||||
|
} ;
|
||||||
|
|
||||||
|
}
|
||||||
@@ -15469,10 +15469,7 @@ mkA050 base =
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkAdv : Str -> Adv ;
|
mkAdv : Str -> Adv ;
|
||||||
mkAdv base_1 =
|
mkAdv s = {s=s} ;
|
||||||
lin Adv
|
|
||||||
{ s = base_1
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkPron : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> GenNum -> Person -> Pronoun =
|
mkPron : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> GenNum -> Person -> Pronoun =
|
||||||
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,g,p ->
|
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,g,p ->
|
||||||
|
|||||||
@@ -162,7 +162,14 @@ oper mkAdv : Str -> Adv =
|
|||||||
|
|
||||||
param Case = Acc | Dat ;
|
param Case = Acc | Dat ;
|
||||||
param Role = RSubj | RObj Case | RPrep ;
|
param Role = RSubj | RObj Case | RPrep ;
|
||||||
oper Pronoun = {s : Role => Str; clitic : Case => Str; g : GenNum; p : Person} ;
|
oper Pronoun = {
|
||||||
|
s : Role => Str;
|
||||||
|
clitic : Case => Str;
|
||||||
|
poss : Species => GenNum => Str ;
|
||||||
|
poss_clitic : Str ;
|
||||||
|
g : GenNum;
|
||||||
|
p : Person
|
||||||
|
} ;
|
||||||
|
|
||||||
genNum : Gender -> Number -> GenNum = \g,n ->
|
genNum : Gender -> Number -> GenNum = \g,n ->
|
||||||
case n of {
|
case n of {
|
||||||
|
|||||||
10
src/macedonian/TenseMkd.gf
Normal file
10
src/macedonian/TenseMkd.gf
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
concrete TenseMkd of Tense = CatMkd[Tense,Temp], TenseX - [Tense,Temp,TTAnt,TPres,TPast,TFut,TCond] ** open ResMkd in {
|
||||||
|
|
||||||
|
lin
|
||||||
|
TTAnt t a = {s = a.s ++ t.s ; a = a.a ; t = t.t} ;
|
||||||
|
TPres = {s = []} ** {t = VPresent} ;
|
||||||
|
TPast = {s = []} ** {t = VPastImperfect} ; --# notpresent
|
||||||
|
TFut = {s = []} ** {t = VFut} ; --# notpresent
|
||||||
|
TCond = {s = []} ** {t = VCond} ; --# notpresent
|
||||||
|
|
||||||
|
}
|
||||||
7
src/macedonian/TextMkd.gf
Normal file
7
src/macedonian/TextMkd.gf
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
concrete TextMkd of Text = open Prelude in {
|
||||||
|
lin
|
||||||
|
TEmpty = {s = []} ;
|
||||||
|
TFullStop x xs = {s = x.s ++ SOFT_BIND ++ "." ++ xs.s} ;
|
||||||
|
TQuestMark x xs = {s = x.s ++ SOFT_BIND ++ "?" ++ xs.s} ;
|
||||||
|
TExclMark x xs = {s = x.s ++ SOFT_BIND ++ "!" ++ xs.s} ;
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user