some missing bits in Greek

This commit is contained in:
Krasimir Angelov
2024-10-10 13:44:54 +02:00
parent afe544bb29
commit 62b5df23d1
5 changed files with 153 additions and 12 deletions
+14 -3
View File
@@ -72,6 +72,11 @@ oper
= \ nm,gm,am,vm,pn,pa, g -> lin PN (mkName nm gm am vm pn pa g) ;
} ;
mkLN = overload {
mkLN : Str -> LN
= \s -> lin LN {s=s} ;
} ;
makeNP = overload {
makeNP : (_,_,_: Str) -> Number -> Gender -> NP = mkpanta;
makeNP : Str -> Number -> Gender ->Bool -> NP = mkkati
@@ -310,7 +315,13 @@ oper
mkGN : Str -> GN = \s -> lin GN {s = s} ;
mkSN : Str -> SN = \s -> lin SN {s = s} ;
mkAdv : Str -> Adv = \s -> lin Adv {s = s} ;
mkAdV : Str -> AdV = \s -> lin AdV {s = s} ;
mkAdA : Str -> AdA = \s -> lin AdA {s = s} ;
mkAdN : Str -> AdN = \s -> lin AdN {s = s} ;
mkInterj : Str -> Interj = \s -> lin Interj {s = s} ;
mkVoc : Str -> Voc = \s -> lin Voc {s = s} ;
}
}