added missing files

This commit is contained in:
Krasimir Angelov
2026-04-11 08:45:52 +02:00
parent 6a2cb9ec77
commit 401ac1f954
5 changed files with 39 additions and 5 deletions

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

View File

@@ -15469,10 +15469,7 @@ mkA050 base =
} ;
mkAdv : Str -> Adv ;
mkAdv base_1 =
lin Adv
{ s = base_1
} ;
mkAdv s = {s=s} ;
mkPron : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> GenNum -> Person -> Pronoun =
\f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,g,p ->

View File

@@ -162,7 +162,14 @@ oper mkAdv : Str -> Adv =
param Case = Acc | Dat ;
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 ->
case n of {

View 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
}

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