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

Merge pull request #416 from LauretteM/master

Browse Source 
Mostly Zulu VP changes
This commit is contained in:
Inari Listenmaa
2022-12-17 10:22:25 +01:00
committed by GitHub
parent 7085acacc9 1c8127bcc2
commit 4ceb822713
33 changed files with 4718 additions and 3628 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
src/zulu/BackwardZul.gf
View File

@@ -9,38 +9,89 @@ concrete BackwardZul of Backward = CatZul ** open ResZul,Prelude,ParamX in {
-- from Verb 19/4/2008
ComplV2 v2 np = {
ComplV2 v2 np = let
oc = objConc np.agr v2.r v2.syl ;
longform = case np.heavy of {
True => False ;
False => True
} ;
obj = np.s!NFull
in {
s = table {
MainCl => \\a,p,t,l => let
vform = (VFIndic MainCl p t) ;
vpref_no_oc = verb_prefix_no_oc vform l v2.r a ;
vpref_with_oc = verb_prefix_with_oc vform l a ;
tp = tensePref vform v2.r v2.syl ; -- [] / zo- / zuku-
oc = objConc np.agr v2.r v2.syl ; -- [] / m -
longform = case np.heavy of {
True => False ;
False => True
} ;
-- oc = objConc np.agr v2.r v2.syl ; -- [] / m -
-- longform = case np.heavy of {
-- True => False ;
-- False => True
-- } ;
r = v2.s!(rform (VFIndic MainCl p t) longform) ; -- bona / boni
obj = np.s!NFull -- [] / inkomo
-- obj = np.s!NFull -- [] / inkomo
in case np.proDrop of {
True => tp ++ oc ++ r ++ obj ;
False => tp ++ r ++ obj
True => vpref_with_oc ++ tp ++ oc ++ r ++ obj ;
False => vpref_no_oc ++ tp ++ r ++ obj
} ;
RelCl => \\a,p,t,l => let
vform = (VFIndic RelCl p t) ;
rc = relConc vform a v2.r ; -- o- / onga-
tp = tensePref vform v2.r v2.syl ; -- [] / zo- / zuku-
oc = objConc np.agr v2.r v2.syl ; -- [] / m -
longform = case np.heavy of {
True => False ;
False => True
} ;
-- oc = objConc np.agr v2.r v2.syl ; -- [] / m -
-- longform = case np.heavy of {
-- True => False ;
-- False => True
-- } ;
r = v2.s!(rform vform longform) ; -- bona / boni
obj = np.s!NFull -- [] / inkomo
-- obj = np.s!NFull -- [] / inkomo
in case np.proDrop of {
True => rc ++ tp ++ oc ++ r ++ obj ;
False => rc ++ tp ++ r ++ obj
}
} ;
imp_s = table {
Sg => table {
Pos => case np.proDrop of {
True => oc ++ v2.s!R_e ++ obj ;
False => v2.s!R_a ++ obj
} ;
Neg => case np.proDrop of {
True => "unga" ++BIND++ oc ++ v2.s!R_i ++ obj ;
False => "unga" ++BIND++ v2.s!R_i ++ obj
}
} ;
Pl => table {
Pos => case np.proDrop of {
True => oc ++ v2.s!R_e ++BIND++"ni" ++ obj ;
False => v2.s!R_a ++BIND++"ni" ++ obj
} ;
Neg => case np.proDrop of {
True => "ninga" ++BIND++ oc ++ v2.s!R_i ++ obj ;
False => "ninga" ++BIND++ v2.s!R_i ++ obj
}
}
} ;
inf_s = let
inf_oc = case np.proDrop of {
True => oc ;
False => []
}
in
table {
NFull => table {
Pos => "uku" ++BIND++ inf_oc ++ v2.s!R_a ++ obj ;
Neg => "uku" ++BIND++ "nga" ++BIND++ inf_oc ++ v2.s!R_i ++ obj
} ;
NReduced | NPoss => table {
Pos => "ku" ++BIND++ inf_oc ++ v2.s!R_a ++ obj ;
Neg => "ku" ++BIND++ "nga" ++BIND++ inf_oc ++ v2.s!R_i ++ obj
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++inf_oc ++ v2.s!R_a ++ obj ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++"nga"++BIND++inf_oc ++ v2.s!R_a ++ obj
}
} ;
iadv, advs, comp = [] ;
ap_comp = \\_ => [] ;
hasComp = np.heavy ;

7
src/zulu/CatExtZul.gf
View File

@@ -1,8 +1,13 @@
concrete CatExtZul of CatExt = open ResZul,Prelude,ParamX in {
lincat
Loc = { s : CType => Agr => Polarity => BasicTense => Str } ;
Loc = {
s : CType => Agr => Polarity => BasicTense => Str ;
imp_s : Number => Polarity => Str ;
inf_s : NForm => Polarity => Str
} ;
LocN = { s : Str } ;
LocAdv = { s : Str ; reqLocS : Bool } ;
QuantStem = { s : Agr => Str } ;
RelStem = { s : Str } ;
VAux = { s : Str ; at : AuxType } ;

8
src/zulu/CatZul.gf
View File

@@ -23,7 +23,7 @@ concrete CatZul of Cat = CommonX - [Temp,Tense,Adv,IAdv] **
-- s : ResZul.Tense => Anteriority => CPolarity => Order => Str ;
-- c2 : Str
-- } ;
Imp = { s : Polarity => Str } ;
Imp = { s : Number => Polarity => Str } ;
-- Question
@@ -47,11 +47,13 @@ concrete CatZul of Cat = CommonX - [Temp,Tense,Adv,IAdv] **
VP = {
s : CType => Agr => Polarity => BasicTense => Bool => Str ; -- TODO: mood
imp_s : Number => Polarity => Str ;
inf_s : NForm => Polarity => Str ;
-- oc : Str ;
comp : Str ;
iadv : Str ;
advs : Str ;
hasComp : Bool ;
hasComp : Bool ; -- indicates whether to use long form
r : RInit ;
syl : Syl ;
-- asp : Aspect ;
@@ -137,7 +139,7 @@ concrete CatZul of Cat = CommonX - [Temp,Tense,Adv,IAdv] **
-- CAdv = {s : Polarity => Str; p : Str} ;
-- Open lexical classes, e.g. Lexicon
V,V2,VA,VS,V3 = {
V,V2,VA,VS,V3,VV = {
s : RForm => Str ;
r : RInit ;
syl : Syl ;

152
src/zulu/ExtraExtZul.gf
View File

@@ -1,5 +1,5 @@
concrete ExtraExtZul of ExtraExt =
CatZul [NP,VP,CN,V,Temp,S,Cl,Adv,Pron,QCl,QS,A,RS,IAdv,IComp,Pol,Det,Quant,N,PN,Conj],
CatZul [NP,VP,CN,V,Temp,S,Cl,Adv,Pron,QCl,QS,A,RS,IAdv,IComp,Pol,Det,Quant,N,PN,Conj,VV],
CatExtZul
** open ResZul,Prelude,ParamX in {
@@ -19,6 +19,19 @@ concrete ExtraExtZul of ExtraExt =
} ;
lin
ExistNP np = {
s = let
cp = (id_cop_pref np.agr) ; -- ng-
cop_base = np.s!NFull -- umfundi
in
cp ++ cop_base ;
} ;
GreetSg = {
s = "sawubona"
} ;
GreetPl = {
s = "sanibonani"
} ;
-- PotQS pol qcl = {
-- s = pol.s ++ qcl.potqcl!pol.p!Princ ;
-- qword_pre = qcl.qword_pre ;
@@ -160,12 +173,19 @@ concrete ExtraExtZul of ExtraExt =
PossLocNP locn np = {
empty = np.empty ;
s = \\n,nform => locn.s ;
mod = \\num => poss_concord!(C17)!Sg!np.i ++BIND++ (poss_NP np) ;
s = \\n,nform => locn.s ++ poss_concord!(C17)!n!np.i ++BIND++ (poss_NP np);
-- mod = \\num => poss_concord!(C17)!Sg!np.i ++BIND++ (poss_NP np) ;
c = C17 ;
emph = False
} ;
PossNPLoc cn np = {
empty = np.empty ;
s = \\n,nform => cn.s!n!nform ++ poss_concord!cn.c!n!RC ++BIND++"s"++BIND++ (loc_NP np);
c = cn.c ;
emph = False
} ;
InstrNPAdv np =
let
pref = instrPref!(initNP np.isPron np.agr)
@@ -184,14 +204,14 @@ concrete ExtraExtZul of ExtraExt =
reqLocS = False
} ;
LocNPAdv np = {
s = np.s!NLoc ;
-- asp = Null ;
reqLocS = case np.isPron of {
False => True ;
True => False -- ki-
} ;
} ;
-- LocNPAdv np = {
-- s = np.s!NLoc ;
-- -- asp = Null ;
-- reqLocS = case np.isPron of {
-- False => True ;
-- True => False -- ki-
-- } ;
-- } ;
LocAdvNPAdv adv np = {
s = adv.s ++ (np.s!NLoc) ;
@@ -207,23 +227,11 @@ concrete ExtraExtZul of ExtraExt =
reqLocS = False
} ;
-- -- NOTE: this seems to be a specific construction. Not yet found in Poulos+Msimang
-- KwaAdvNPAdv adv np =
-- let
-- c = case np.agr of {
-- (First _ | Second _) => C1_2 ; -- people class as default
-- Third c _ => c
-- } ;
-- n = case np.agr of {
-- (First Sg | Second Sg | Third _ Sg) => Sg ;
-- (First Pl | Second Pl | Third _ Pl) => Pl
-- }
-- in
-- {
-- s = adv.s ++ poss_concord!C15!Sg!(initNP np.isPron np.agr) ++BIND++ np.s!Reduced ++ np.mod ++ np.predet_pre ++ np.predet_post ;
-- -- asp = adv.asp ;
-- reqLocS = False
-- } ;
-- NOTE: this seems to be a specific construction. Not yet found in Poulos+Msimang
KwaAdvNPAdv adv np = {
s = adv.s ++ (poss_concord_agr!(Third C17 Sg)!np.i) ++BIND++ (np.s!NReduced) ;
reqLocS = False
} ;
-- locative ku
KuNPAdv np = {
@@ -263,6 +271,37 @@ concrete ExtraExtZul of ExtraExt =
reqLocS = False
} ;
NPAdv np = {
s = case np.proDrop of {
False => np.s!NFull ;
True => "*" ++ np.s!NFull
} ;
reqLocS = False
} ;
LocAdvAdv l = l ** { reqLocS = False } ;
LocAdvNP adv np = {
s = adv.s ++ (poss_concord_agr!(Third C17 Sg)!np.i) ++BIND++ (np.s!NReduced) ;
reqLocS = False
} ; -- ngaphezu kwamahora amabili adlule
LocNAdv locn = locn ** { reqLocS = False } ;
LocNNgaAdv locn = {
s = "nga" ++BIND++ locn.s ;
reqLocS = False
} ;
LocNPAdv np = {
s = np.s!NLoc ;
-- asp = Null ;
reqLocS = case np.isPron of {
False => True ;
True => False -- ki-
} ;
} ;
RelAdv adv = {
s = \\a => relConcLookup!a!RC ++BIND++ adv.s
} ;
@@ -541,6 +580,12 @@ concrete ExtraExtZul of ExtraExt =
phakade_LocN = { s = "phakade" ; empty = [] } ;
phezulu_LocN = { s = "phezulu" ; empty = [] } ;
ngemuva_LocAdv = { s = "ngemuva" ; reqLocS = False } ;
emuva_LocAdv = { s = "emuva" ; reqLocS = False } ;
ecaleni_LocAdv = { s = "ecaleni" ; reqLocS = False } ;
ngaphezu_LocAdv = { s = "ngaphezu" ; reqLocS = False } ;
lapha_Loc = {
s = table {
MainCl => \\a,p,t => let
@@ -562,11 +607,59 @@ concrete ExtraExtZul of ExtraExt =
VFIndic _ Neg PresTense => (kho_cop vform a) ++ cop_base;
VFIndic _ _ _ => rcp ++ pcp ++ cop_base
}
} ;
imp_s = table {
Sg => table {
Pos => "yiba" ++ "lapha" ;
Neg => "ungabi" ++ "lapha"
} ;
Pl => table {
Pos => "yibani" ++ "lapha" ;
Neg => "ningabi" ++ "lapha"
}
} ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ "lapha" ;
Neg => "ukungabi" ++ "lapha"
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ "lapha" ;
Neg => "kungabi" ++ "lapha"
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ "lapha" ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ "lapha"
}
}
} ;
khona_Loc = {
s = \\c,a,p,t => kho_cop (VFIndic c p t) a ;
imp_s = table {
Sg => table {
Pos => "yiba" ++ "khona" ;
Neg => "ungabi" ++ "khona" -- this is a guess
} ;
Pl => table {
Pos => "yibani" ++ "khona" ;
Neg => "ningabi" ++ "khona"
}
} ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ "khona" ;
Neg => "ukungabi" ++ "khona"
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ "khona" ;
Neg => "kungabi" ++ "khona"
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ "khona" ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ "khona"
}
}
} ;
kakhulu_Adv = { s = "kakhulu" ; reqLocS = False } ;
@@ -588,6 +681,9 @@ concrete ExtraExtZul of ExtraExt =
fix = True
} ;
want_VV = regVerb "fun" ;
prepare_to_VV = regVerb "lungiselel" ;
-- Deverb15 v =
-- let
-- agr = Third C15 Sg ;

177
src/zulu/NounExtZul.gf
View File

@@ -57,7 +57,7 @@ concrete NounExtZul of NounExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
-- TODO : check mod
ApposCN cn n = {
s = \\num,nform => cn.s!num!nform ++ n.s!num!nform ;
s = \\num,nform => cn.s!num!nform ++ n.s!num!NFull ;
-- mod = \\num => n.s!num!Full ++ cn.mod!num ;
c = cn.c ; -- takes agr of cn
empty = cn.empty ;
@@ -66,7 +66,7 @@ concrete NounExtZul of NounExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
-- TODO : check mod
ApposN cn n = {
s = \\num,nform => cn.s!num!nform ++ n.s!num!nform ;
s = \\num,nform => cn.s!num!nform ++ n.s!num!NFull ;
-- mod = \\num => n.s!num!Full ++ cn.mod!num ;
c = n.c ; -- takes agr of n
empty = cn.empty ;
@@ -136,35 +136,74 @@ concrete NounExtZul of NounExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
heavy = True
} ;
Deverb15 v =
let
agr = Third C15 Sg ;
in
{
s = \\_ => table {
NFull => case v.r of {
RC => "uku"++BIND++(v.s!R_a) ;
(RA|RE) => "ukw"++BIND++(v.s!R_a) ;
_ => "uk"++BIND++(v.s!R_a)
} ;
NReduced => case v.r of {
RC => "ku"++BIND++(v.s!R_a) ;
(RA|RE) => "kw"++BIND++(v.s!R_a) ;
_ => "k"++BIND++(v.s!R_a)
} ;
NPoss => case v.r of {
RC => "ku"++BIND++(v.s!R_a) ;
(RA|RE) => "kw"++BIND++(v.s!R_a) ;
_ => "k"++BIND++(v.s!R_a)
} ;
NLoc => case v.r of {
RC => "eku"++BIND++(v.s!R_e)++BIND++"ni" ;
(RA|RE) => "ekw"++BIND++(v.s!R_e)++BIND++"ni" ;
_ => "ek"++BIND++(v.s!R_e)++BIND++"ni"
}
} ;
c = C15 ;
empty = []
-- Deverb15 v =
-- let
-- agr = Third C15 Sg ;
-- in
-- {
-- s = \\_ => table {
-- NFull => case v.r of {
-- RC => "uku"++BIND++(v.s!R_a) ;
-- (RA|RE) => "ukw"++BIND++(v.s!R_a) ;
-- _ => "uk"++BIND++(v.s!R_a)
-- } ;
-- NReduced => case v.r of {
-- RC => "ku"++BIND++(v.s!R_a) ;
-- (RA|RE) => "kw"++BIND++(v.s!R_a) ;
-- _ => "k"++BIND++(v.s!R_a)
-- } ;
-- NPoss => case v.r of {
-- RC => "ku"++BIND++(v.s!R_a) ;
-- (RA|RE) => "kw"++BIND++(v.s!R_a) ;
-- _ => "k"++BIND++(v.s!R_a)
-- } ;
-- NLoc => case v.r of {
-- RC => "eku"++BIND++(v.s!R_e)++BIND++"ni" ;
-- (RA|RE) => "ekw"++BIND++(v.s!R_e)++BIND++"ni" ;
-- _ => "ek"++BIND++(v.s!R_e)++BIND++"ni"
-- }
-- } ;
-- c = C15 ;
-- empty = []
-- } ;
-- not built to work for copulative VPs for now (specifically for agreement)
Deverb15 pol vp =
let
agr = Third C15 Sg
in
{
s = \\nform => vp.inf_s!nform!pol.p ++ pol.s ;
-- s = table {
-- NFull => case <pol.p,vp.r> of {
-- <Neg,_ > => "uku"++BIND++"nga"++BIND++v.s!R_i ;
-- <_,RC> => "uku"++BIND++v.s!R_a ;
-- <_,(RA|RE)> => "ukw"++BIND++v.s!R_a ;
-- <_,_> => "uk"++BIND++v.s!R_a
-- } ;
-- NReduced => case <pol.p,vp.r> of {
-- <Neg,_ > => "ku"++BIND++"nga"++BIND++v.s!R_i ;
-- <_,RC> => "ku"++BIND++v.s!R_a ;
-- <_,(RA|RE)> => "kw"++BIND++v.s!R_a ;
-- <_,_> => "k"++BIND++v.s!R_a
-- } ;
-- NPoss => case <pol.p,vp.r> of {
-- <Neg,_ > => "ku"++BIND++"nga"++BIND++v.s!R_i ;
-- <_,RC> => "ku"++BIND++v.s!R_a ;
-- <_,(RA|RE)> => "kw"++BIND++v.s!R_a ;
-- <_,_> => "k"++BIND++v.s!R_a
-- } ;
-- NLoc => case <pol.p,vp.r> of {
-- <Neg,_ > => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++"nga"++BIND++v.s!R_i ;
-- <_,_> => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++v.s!R_a
-- }
-- } ;
agr = agr ;
i = RU ;
proDrop = False ;
isPron = False ;
heavy = True ;
empty = []
} ;
LocNP np = {
@@ -191,28 +230,94 @@ concrete NounExtZul of NounExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
} ;
} ;
LocNLoc locn = {
-- LocNLoc locn = {
-- s = table {
-- MainCl => \\a,p,t => let
-- vform = VFIndic MainCl p t ;
-- pcp = ap_cop_pref vform a RelType ; -- u- / uzoba / akazukuba
-- cop_base = locn.s
-- in
-- case vform of {
-- VFIndic _ Neg PresTense => (kho_cop vform a) ++ cop_base;
-- VFIndic _ _ _ => pcp ++ cop_base
-- } ;
-- RelCl => \\a,p,t => let
-- vform = VFIndic RelCl p t ;
-- rcp = (relConcCop vform a RC) ; -- o- / onge-
-- pcp = ap_cop_pref vform a RelType ; -- u- / uzoba / akazukuba
-- cop_base = locn.s
-- in
-- case vform of {
-- VFIndic _ Neg PresTense => (kho_cop vform a) ++ cop_base;
-- VFIndic _ _ _ => rcp ++ pcp ++ cop_base
-- }
-- } ;
-- } ;
-- LocNPossNP locn np = {
-- s = locn.s ++ poss_concord_agr!(Third C17 Sg)!(np.i) ++BIND++ np.s!NPoss;
-- } ;
LocAdvLoc locadv = {
s = table {
MainCl => \\a,p,t => let
vform = VFIndic MainCl p t ;
pcp = ap_cop_pref vform a RelType ; -- u- / uzoba / akazukuba
cop_base = locn.s
s = case locadv.reqLocS of {
True => "s"++BIND ;
False => []
} ;
cop_base = locadv.s
in
case vform of {
VFIndic _ Neg PresTense => (kho_cop vform a) ++ cop_base;
VFIndic _ _ _ => pcp ++ cop_base
VFIndic _ _ _ => pcp ++ s ++ cop_base
} ;
RelCl => \\a,p,t => let
vform = VFIndic RelCl p t ;
rcp = (relConcCop vform a RC) ; -- o- / onge-
pcp = ap_cop_pref vform a RelType ; -- u- / uzoba / akazukuba
cop_base = locn.s
s = case locadv.reqLocS of {
True => "s"++BIND ;
False => []
} ;
cop_base = locadv.s
in
case vform of {
VFIndic _ Neg PresTense => (kho_cop vform a) ++ cop_base;
VFIndic _ _ _ => rcp ++ pcp ++ cop_base
VFIndic _ _ _ => rcp ++ pcp ++ s ++ cop_base
}
} ;
imp_s = table {
Sg => table {
Pos => "yiba" ++ "s"++BIND++ locadv.s ;
Neg => "ungabi" ++ "s"++BIND++ locadv.s
} ;
Pl => table {
Pos => "yibani" ++ "s"++BIND++ locadv.s ;
Neg => "ningabi" ++ "s"++BIND++ locadv.s
}
} ;
-- inf_s = table {
-- Pos => "ukuba" ++ "s"++BIND++ locadv.s ;
-- Neg => "ukungabi" ++ "s"++BIND++ locadv.s
-- } ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ "s"++BIND++ locadv.s ;
Neg => "ukungabi" ++ "s"++BIND++ locadv.s
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ "s"++BIND++ locadv.s ;
Neg => "kungabi" ++ "s"++BIND++ locadv.s
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ "s"++BIND++ locadv.s ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ "s"++BIND++ locadv.s
}
}
} ;
}

17
src/zulu/NounZul.gf
View File

@@ -57,7 +57,17 @@ concrete NounZul of Noun = CatZul ** open ResZul, Prelude, ParamX in {
}
} ;
-- PredetNP, PPartNP, AdvNP, ExtAdvNP : not implemented
-- PredetNP, PPartNP, ExtAdvNP : not implemented
AdvNP np adv = {
empty = np.empty ;
s = \\nform => np.s!nform ++ adv.s ;
agr = np.agr ;
i = np.i ;
proDrop = False ; -- probably right?
isPron = np.isPron ;
heavy = True
} ;
-- TODO: refactor
RelNP np rs = {
@@ -91,7 +101,10 @@ concrete NounZul of Noun = CatZul ** open ResZul, Prelude, ParamX in {
-- TODO: check refactor (no change?)
PossNP cn np = {
empty = cn.empty ;
s = \\num,nform => cn.s!num!nform ++ poss_concord!cn.c!num!np.i ++BIND++ np.s!NPoss;
s = \\num,nform => case np.agr of {
Third C1a_2a Sg => cn.s!num!nform ++ poss_concord_c1a!cn.c!num ++BIND++ np.s!NPoss ;
(First _ | Second _ | Third _ _) => cn.s!num!nform ++ poss_concord!cn.c!num!np.i ++BIND++ np.s!NPoss
} ;
-- mod = \\num => cn.mod!num ++ poss_concord!cn.c!num!np.i ++BIND++ (poss_NP np) ;
c = cn.c ;
emph = cn.emph

40
src/zulu/PChunkZul.gf
View File

@@ -6,7 +6,7 @@ concrete PChunkZul of PChunk = CatZul, CatExtZul, SymbolZul [Symb] **
lincat
Chunks = {s : Str} ;
Chunk = {s : Str};
Chunk_AP, Chunk_Adv, Chunk_S, Chunk_RS, Chunk_QS, Chunk_CN, Chunk_NP, Chunk_N, Chunk_Symb = {s: Str} ;
Chunk_Phr, Chunk_AP, Chunk_Adv, Chunk_Imp, Chunk_S, Chunk_RS, Chunk_QS, Chunk_VP, Chunk_V, Chunk_CN, Chunk_NP, Chunk_N, Chunk_Symb = {s: Str} ;
VC = V ;
@@ -15,10 +15,14 @@ concrete PChunkZul of PChunk = CatZul, CatExtZul, SymbolZul [Symb] **
PlusChunk c cs = cc2 c cs ;
ChunkPhr c = ss ("*" ++ c.s) | c ;
Phr_Chunker c = c ;
Adv_Chunker c = c ;
Imp_Chunker c = c ;
S_Chunker c = c ;
RS_Chunker c = c ;
QS_Chunker c = c ;
VP_Chunker c = c ;
V_Chunker c = c ;
CN_Chunker c = c ;
NP_Chunker c = c ;
N_Chunker c = c ;
@@ -26,10 +30,22 @@ concrete PChunkZul of PChunk = CatZul, CatExtZul, SymbolZul [Symb] **
Postdet_Chunker c = c ;
Symb_Chunker c = c ;
Phr_Chunk p = {s = p.s } ;
Adv_Chunk a = { s = a.s } ;
Imp_Sg_Chunk i = { s = variants { i.s!Sg!Pos ; i.s!Sg!Neg} } ;
Imp_Pl_Chunk i = { s = variants { i.s!Pl!Pos ; i.s!Pl!Neg} } ;
S_Chunk s = { s = s.s } ;
RS_Chunk rs = { s = rs.s!agr_vars } ;
RS_Chunk pron rs = { s = pron.s!NFull ++ rs.s!pron.agr } ;
QS_Chunk s = { s = s.qword_pre ++ s.s ++ s.qword_post } ;
VP_RelYo_Chunk temp pol pron vp = {
s = temp.s ++ pol.s ++ pron.s!NFull ++ vp.s!RelCl!pron.agr!pol.p!temp.t!True
} ;
VP_Rel_Chunk temp pol pron vp = {
s = temp.s ++ pol.s ++ pron.s!NFull ++ vp.s!RelCl!pron.agr!pol.p!temp.t!False
} ;
V_Chunk v = {
s = variants { v.s!R_a ; v.s!R_ile ; v.s!R_e ; v.s!R_i ; v.s!R_anga }
} ;
CN_Sg_Chunk cn = {
s = cn.s!Sg!NFull
} ;
@@ -42,14 +58,20 @@ concrete PChunkZul of PChunk = CatZul, CatExtZul, SymbolZul [Symb] **
np.s!NReduced
}
} ;
NP_Gen_Chunk np = {
s = poss_concord_agr!agr_vars!np.i ++BIND++ np.s!NPoss
NP_Loc_Chunk np = {
s = np.s!NLoc
} ;
Predet_Chunk predet = {
s = predet.s!agr_vars
NP_Gen_Chunk pron np = {
s = pron.s!NFull ++ poss_concord_agr!pron.agr!np.i ++BIND++ np.s!NPoss
} ;
Postdet_Chunk postdet = {
s = postdet.s!agr_vars
-- NP_Gen_Chunk np = {
-- s = poss_concord_agr!agr_vars!np.i ++BIND++ np.s!NPoss
-- } ;
Predet_Chunk pron predet = {
s = pron.s!NFull ++ predet.s!pron.agr
} ;
Postdet_Chunk pron postdet = {
s = pron.s!NFull ++ postdet.s!pron.agr
} ;
-- for unknown words that are not names
@@ -96,4 +118,6 @@ concrete PChunkZul of PChunk = CatZul, CatExtZul, SymbolZul [Symb] **
Second Pl
} ;
bool_vars : Bool = variants { True | False } ;
}

4
src/zulu/ParadigmsZul.gf
View File

@@ -72,11 +72,13 @@ resource ParadigmsZul = open
oper
mkN = overload {
mkN : (ngane : Str) -> ClassGender -> N = \n,c -> lin N (regNoun n c) ; -- "thing" nouns
mkN : (khaya, khaya : Str) -> ClassGender -> N = \n,n2,c -> lin N (mkELocN n c) ; -- "thing" nouns
mkN : (nyaka,onyakeni,eminyakeni : Str) -> ClassGender -> N = \n,ls,lp,c -> lin N (semiRegNoun n ls lp c) ;
mkN : (iso,amehlo,esweni,emehlweni : Str) -> ClassGender -> N = \ns,np,ls,lp,c -> lin N (mkNoun ns np ls lp c) ;
} ;
mkPN = overload {
mkPN : (John : Str) -> N = \n -> lin N (regNoun n C1a_2a) ;
mkPN : (John : Str) -> ClassGender -> N = \n,c -> lin N (regNoun n c) ; -- "thing" nouns
mkPN : (nyaka,onyakeni,eminyakeni : Str) -> ClassGender -> N = \n,ls,lp,c -> lin N (semiRegNoun n ls lp c) ;
mkPN : (iso,amehlo,esweni,emehlweni : Str) -> ClassGender -> N = \ns,np,ls,lp,c -> lin N (mkNoun ns np ls lp c) ;
@@ -106,7 +108,7 @@ oper
mkV : (hamb : Str) -> V = \hamb -> lin V (regVerb hamb) ;
mkV : (th,thi : Str) -> V = \th,thi -> lin V (th_Verb th thi) ;
mkV : (guqubal,guqubala,guqubele : Str) -> V = \guqubal,guqubala,guqubele -> lin V (three_Verb guqubal guqubala guqubele) ;
mkV : (guqubal,guqubala,guqubele,guqubele_2 : Str) -> V = \guqubal,guqubala,guqubele,guqubele_2 -> lin V (four_Verb guqubal guqubala guqubele guqubele_2) ;
mkV : (dlal,dlala,dlalile,dlale : Str) -> V = \dlal,dlala,dlalile,dlale -> lin V (four_Verb dlal dlala dlalile dlale) ;
} ;
passV = overload {

41
src/zulu/PhraseExtZul.gf Normal file
View File

@@ -0,0 +1,41 @@
concrete PhraseExtZul of PhraseExt = CatZul,CatExtZul ** open ResZul, Prelude, ParamX in {
lin
DirectSpeech phr t v np = {
s = let
vform = case t.t of {
PastTense => v.s!R_e ;
PresTense => v.s!R_a ;
_ => v.s!R_a ++ "*"
} ;
in
phr.s ++ "ku" ++ BIND ++ vform ++ np.s!NFull ++ t.s
} ;
DirectSpeechNP np1 t v np2 = {
s = let
vform = case t.t of {
PastTense => v.s!R_e ;
PresTense => v.s!R_a ;
_ => v.s!R_a ++ "*"
} ;
in
np1.s!NFull ++ "ku" ++ BIND ++ vform ++ np2.s!NFull ++ t.s
} ;
DirectSpeechAdv adv t v np = {
s = let
vform = case t.t of {
PastTense => v.s!R_e ;
PresTense => v.s!R_a ;
_ => v.s!R_a ++ "*"
} ;
in
adv.s ++ "ku" ++ BIND ++ vform ++ np.s!NFull ++ t.s
} ;
ExtPhrConj p1 p2 = {
s = p1.s ++ p2.s
} ;
}

8
src/zulu/PhraseZul.gf
View File

@@ -1,12 +1,12 @@
concrete PhraseZul of Phrase = CatZul ** open Prelude, ResZul in {
concrete PhraseZul of Phrase = CatZul ** open Prelude, ParamX, ResZul in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
--
UttS sent = { s = sent.s } ;
UttQS sent = { s = sent.qword_pre ++ sent.s ++ sent.qword_post } ;
UttImpSg pol imp = { s = pol.s ++ imp.s!pol.p } ;
-- UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
UttImpSg pol imp = { s = pol.s ++ imp.s!Sg!pol.p } ;
UttImpPl pol imp = {s = pol.s ++ imp.s!Pl!pol.p } ;
-- UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True} ;
-- UttIP ip = {s = ip.s ! npNom} ; --- Acc also
@@ -23,6 +23,6 @@ concrete PhraseZul of Phrase = CatZul ** open Prelude, ResZul in {
-- PConjConj conj = {s = conj.s2} ; ---
NoVoc = {s = []} ;
-- VocNP np = {s = frontComma ++ np.s ! npNom} ;
VocNP np = {s = np.s ! NReduced } ;
}

129
src/zulu/RelativeExtZul.gf Normal file
View File

@@ -0,0 +1,129 @@
concrete RelativeExtZul of RelativeExt = CatZul ** open ResZul,Prelude,ParamX in {
flags optimize=all_subs ;
lin
RelVPShort rp vp = case vp.vptype of {
CopIdent => rcl_with_id_cop_predicate_short rp vp ;
CopAssoc => rcl_with_ass_cop_predicate_short rp vp ;
CopEq => rcl_with_eq_cop_predicate_short rp vp ;
CopDescr => rcl_with_descr_predicate_short rp vp ;
_ => rcl_with_verb_predicate_short rp vp
} ;
oper
rcl_with_verb_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform = VFIndic RelCl p t ;
vow = case <vp.r,p,t> of {
<RC,Pos,PresTense> => False ;
<_,Pos,PresTense> => True ;
<RC,_,PastTense> => False ;
<_,_,PastTense> => True ;
<_,_,_> => False
} ;
rcform = RelC ;
in
-- naively only took out the subject
rp.s
++ vp.s!RelCl!a!p!t!False
++ vp.iadv
++ vp.comp
++ vp.advs
} ;
rcl_with_ass_cop_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform_main = VFIndic RelCl p t ;
pcp = relConcLookup!a!vp.r ++BIND;
-- cp = (assoc_cop_pref vp.comp_agr) ;
-- cb = (withPref ! vp.r) ++ BIND ++ vp.comp ;
-- asp = case vp.asp of {
-- Prog => progPref vform_main ;
-- _ => []
-- } ;
in
-- naively removed subject
"*" ++
rp.s ++
-- pcp ++
vp.s!RelCl!a!p!t!False ++
vp.iadv ++
vp.advs
} ;
rcl_with_id_cop_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform_main = VFIndic RelCl p t ;
pcp = relConcLookup!a!vp.r ++BIND ;
-- cp = id_cop_pref vp.comp_agr ;
cb = vp.comp ;
in
-- naively removed subject
"*" ++
rp.s ++
-- pcp ++
vp.s!RelCl!a!p!t!False ++
vp.iadv ++
vp.advs
} ;
rcl_with_ass_cop_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform_main = VFIndic RelCl p t ;
pcp = relConcLookup!a!vp.r ++BIND;
-- cp = (assoc_cop_pref vp.comp_agr) ;
-- cb = (withPref ! vp.r) ++ BIND ++ vp.comp ;
-- asp = case vp.asp of {
-- Prog => progPref vform_main ;
-- _ => []
-- } ;
in
-- naively removed subject
"*" ++
rp.s ++
-- pcp ++
vp.s!RelCl!a!p!t!False ++
vp.iadv ++
vp.advs
} ;
rcl_with_eq_cop_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform_main = VFIndic RelCl p t ;
pcp = relConcLookup!a!vp.r ++BIND;
-- cb = (eqPref ! vp.r) ++ BIND ++ vp.comp ;
in
-- naively removed subject
"*" ++
rp.s ++
pcp ++
vp.s!RelCl!a!p!t!False ++
vp.iadv ++
vp.advs
} ;
rcl_with_descr_predicate_short : RP -> VP -> { s : Agr => Polarity => BasicTense => Str } = \rp,vp -> {
s = \\a,p,t =>
let
vform_main = VFIndic RelCl p t ;
pcp = pre_cop_pref vform_main a ;
-- adjf = aformN a ;
-- adjpref = relAdjAgrLookup!p!a ++BIND ;
-- comp = vp.ap_comp!adjf ++ vp.comp
in
"*" ++
rp.s ++
-- adjpref ++
vp.s!RelCl!a!p!t!False
++ vp.iadv ++ vp.advs
} ;
}

20
src/zulu/RelativeZul.gf
View File

@@ -50,29 +50,11 @@ concrete RelativeZul of Relative = CatZul ** open ResZul,Prelude,ParamX in {
True => False ;
False => True
} ;
relsuf = case vp.hasComp of {
True => [] ;
False => relSuf vform
} ;
rcform = RelC ; -- case vform_main of {
-- VFIndic Part Pos PastTense _ => RelCA ;
-- VFIndic _ _ _ _ => RelC ;
-- VFPot _ _ _ => RelC ;
-- VFSubj _ => RelC
-- } ;
rcform = RelC ;
in
-- naively only took out the subject
rp.s
-- ++ (negPref vform_main)
-- -- ++ (exclSePref vform_main)
-- ++ relConc!a!rcform ++BIND
-- -- ++ (negPref2 vform_main)
-- -- ++ (exclKaPref vform)
-- ++ (tensePref vform)
-- ++ vp.oc
-- ++ vp.s!(rform vform_main reqLF)
++ vp.s!RelCl!a!p!t!reqLF
-- ++ relsuf
++ vp.iadv
++ vp.comp
++ vp.advs

511
src/zulu/ResZul.gf
View File

@@ -27,6 +27,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
VPType = CopIdent | CopAssoc | CopDescr | CopEq | VNPCompl | NoComp | VSCompl | AdvComp | CopLoc ; -- VACompl |
AuxType = PartAux ; -- TODO: add SubjAux, InfAux, ConsecAux etc (p327)
AType = AdjType | RelType ;
LocAdvType = KwaAdv | NaAdv ;
AForm = AF1 | AF2 | AF3 ; -- two forms for implementing sound changes Poulos+Msimang p143, one for monosyllabic
SCForm = SC | SCVow | SCNeg | SCNegVow | SCPS | SCPart | SCVowP | SCBe | SCRP ;
@@ -48,16 +49,28 @@ resource ResZul = open Prelude,Predef,ParamX in {
prefix_nasal : Str -> Str = \r -> case r of {
"ph"+x => "mp" + x ;
"Ph"+x => "mP" + x ;
"bh"+x => "mb" + x ;
#nasal_de_asp+"h"+x => "n"+(take 1 r) + x ;
"Bh"+x => "mB" + x ;
(#nasal_de_asp|#nasal_de_asp_cap)+"h"+x => "n"+(take 1 r) + x ;
"hl"+x => "nhl"+x ;
"Hl"+x => "Nhl"+x ;
"h"+x => "nk"+x ;
"H"+x => "Nk"+x ;
"sh"+x => "ntsh"+x ;
"Sh"+x => "Ntsh"+x ;
"l"+x => "nd"+x ;
"L"+x => "Nd"+x ;
#nasal_m+x => "m"+r ;
#nasal_m_cap+x => "M"+r ;
#nasal_ng+x => "ng"+r ;
#nasal_ng_cap+x => "Ng"+r ;
#nasal+x => r ;
#nasal_cap+x => r ;
"p"+x => "mp" + x ;
"P"+x => "Mp" + x ;
#vowel_cap+x => "N" + r ;
#cons_cap+x => "N" + r ;
_ => "n"+r
} ;
--------------
@@ -253,14 +266,24 @@ resource ResZul = open Prelude,Predef,ParamX in {
R_ile => case root of {
_+"el" => root ++BIND++ "e" ;
_+"al" => (tk 2 root) + "el" ++BIND++ "e" ;
_+"an" => (tk 2 root) + "en" ++BIND++ "e" ;
_+"w" => root ++BIND ++ "e" ;
_ => root ++BIND++ "ile"
} ;
R_e => case root of {
_+"an" => (tk 2 root) + "en" ++BIND++ "e" ;
_+"al" => (tk 2 root) + "el" ++BIND++ "e" ;
_ => root ++BIND++ "e"
} ;
R_i => root ++BIND++ "i" ;
R_anga => root ++BIND++ "anga"
R_i => case root of {
_+"w" => root ++BIND++ "a" ;
_ => root ++BIND++ "i"
} ;
R_anga => case root of {
_+"al" => (tk 2 root) + "el" ++BIND++ "anga" ;
_+"an" => (tk 2 root) + "en" ++BIND++ "anga" ;
_ => root ++BIND++ "anga"
}
} ;
r = case root of {
"a"+_ => RA ;
@@ -421,6 +444,116 @@ resource ResZul = open Prelude,Predef,ParamX in {
}
} ;
longform_ya : VForm -> Bool -> RInit -> Str = \vform,longform,rinit -> case <vform,longform,rinit> of {
<VFIndic _ Pos PresTense,True,RC> => "ya"++BIND ;
<VFIndic _ Pos PresTense,True,_> => "y"++BIND ;
<VFIndic _ _ _,_,_> => []
} ;
verb_prefix_stative : VForm -> Agr -> RInit -> Syl -> Str = \vform,agr,rinit,syl -> case vform of {
VFIndic MainCl Pos PresTense => subjConcLookup!agr!SC ++BIND ;
VFIndic MainCl Pos PastTense => subjConcLookup!agr!SCBe ++BIND ;
VFIndic MainCl Pos RemPastTense => subjConcLookup!agr!SCRP ++BIND ;
VFIndic MainCl Pos FutTense => subjConcLookup!agr!SC ++BIND++ "zo" ++BIND ;
VFIndic MainCl Pos RemFutTense => subjConcLookup!agr!SC ++BIND++ "yo" ++BIND ;
VFIndic MainCl Neg PresTense => "a" ++BIND++ subjConcLookup!agr!SCVowP ++BIND ;
VFIndic MainCl Neg PastTense => subjConcLookup!agr!SCBe ++BIND++ "nga" ++BIND ;
VFIndic MainCl Neg RemPastTense => subjConcLookup!agr!SCRP ++BIND++ "nga" ++BIND ;
VFIndic MainCl Neg FutTense => "a" ++BIND++ subjConcLookup!agr!SCVowP ++BIND++ (tensePref vform rinit syl) ;
VFIndic MainCl Neg RemFutTense => "a" ++BIND++ subjConcLookup!agr!SCVowP ++BIND++ (tensePref vform rinit syl) ;
VFIndic RelCl Pos PresTense => relConcLookup!agr!rinit ;
VFIndic RelCl Pos PastTense => relCopConcBeLookup!agr ;
VFIndic RelCl Pos RemPastTense => relCopConcRemPastLookup!agr ;
VFIndic RelCl Pos FutTense => relConcLookup!agr!rinit ++ (tensePref vform rinit syl) ;
VFIndic RelCl Pos RemFutTense => relConcLookup!agr!rinit ++ (tensePref vform rinit syl) ;
VFIndic RelCl Neg PresTense => relConcLookup!agr!RC ++ "nga" ++BIND ;
VFIndic RelCl Neg PastTense => relCopConcBeLookup!agr ++ "nga" ++BIND ;
VFIndic RelCl Neg RemPastTense => relCopConcRemPastLookup!agr ++ "nga" ++BIND ;
VFIndic RelCl Neg FutTense => relConcLookup!agr!RC ++ "nga" ++BIND++ (tensePref vform rinit syl) ;
VFIndic RelCl Neg RemFutTense => relConcLookup!agr!RC ++ "nga" ++BIND++ (tensePref vform rinit syl)
} ;
rform_stative : VForm -> RForm = \vform -> case vform of {
VFIndic _ _ PresTense => R_ile ;
VFIndic _ _ PastTense => R_ile ;
VFIndic _ _ RemPastTense => R_ile ;
VFIndic _ _ FutTense => R_a ;
VFIndic _ _ RemFutTense => R_a
} ;
verb_prefix_no_oc : VForm -> Bool -> RInit -> Agr -> Str = \vform,longform,rinit,agr -> let
sc = case <vform,longform,rinit> of {
<VFIndic MainCl Pos PresTense,False,RC> => subjConcLookup!agr!SC ++BIND ;
<VFIndic _ Pos PresTense,True,_> => subjConcLookup!agr!SC ++BIND ;
<VFIndic _ Pos PresTense,False,_> => subjConcLookup!agr!SCVow ;
<VFIndic _ Neg PresTense,_,RC> => subjConcLookup!agr!SCNeg ++BIND ;
<VFIndic _ Neg PresTense,_,_> => subjConcLookup!agr!SCNegVow ++BIND ;
<VFIndic _ Pos PastTense,_,RC> => subjConcLookup!agr!SC ++BIND ;
<VFIndic _ Pos PastTense,_,_> => subjConcLookup!agr!SCVow ;
<VFIndic _ Neg PastTense,_,RC> => subjConcLookup!agr!SCNeg ++BIND ;
<VFIndic _ Neg PastTense,_,_> => subjConcLookup!agr!SCNegVow ++BIND ;
<VFIndic _ Pos RemPastTense,_,RC> => subjConcLookup!agr!SCVow ;
<VFIndic _ Pos RemPastTense,_,_> => subjConcLookup!agr!SCVow ;
<VFIndic _ Neg RemPastTense,_,RC> => subjConcLookup!agr!SCNeg ++BIND ;
<VFIndic _ Neg RemPastTense,_,_> => subjConcLookup!agr!SCNegVow ++BIND ;
<VFIndic _ Pos _,_,_> => subjConcLookup!agr!SC ++BIND ;
<VFIndic _ Neg _,_,_> => subjConcLookup!agr!SCNeg ++BIND
} ;
ya = longform_ya vform longform rinit ;
in
(negPref vform) ++
sc ++
ya ;
verb_prefix_with_oc : VForm -> Bool -> Agr -> Str = \vform,longform,agr -> let
sc = case <vform,longform> of {
<VFIndic MainCl Pos PresTense> => subjConcLookup!agr!SC ++BIND ;
<VFIndic MainCl Pos RemPastTense> => subjConcLookup!agr!SCVow ;
<VFIndic _ Pos _> => subjConcLookup!agr!SC ++BIND ;
<VFIndic _ Neg _> => subjConcLookup!agr!SCNeg ++BIND
} ;
ya = longform_ya vform longform RC ;
in
(negPref vform) ++
sc ++
ya ;
-- rform : VForm -> Bool -> RInit -> RForm = \vform,longform,rinit -> case longform of {
-- True => case vform of {
-- VFIndic _ Pos PresTense => case rinit of {
-- RC => "ya" ++BIND++ R_a ;
-- _ => "y" ++BIND++ R_a
-- } ;
-- VFIndic MainCl Neg PresTense => R_i ;
-- VFIndic RelCl Neg PresTense => R_i ;
-- VFIndic _ _ FutTense => R_a ;
-- VFIndic _ _ RemFutTense => R_a ;
-- VFIndic _ Pos PastTense => R_ile ;
-- VFIndic _ Neg PastTense => R_anga ;
-- VFIndic _ Pos RemPastTense => R_a ;
-- VFIndic _ Neg RemPastTense => R_anga
-- } ;
-- False => case vform of {
-- VFIndic _ Pos PresTense => R_a ;
-- VFIndic MainCl Neg PresTense => R_i ;
-- VFIndic RelCl Neg PresTense => R_i ;
-- VFIndic _ _ FutTense => R_a ;
-- VFIndic _ _ RemFutTense => R_a ;
-- VFIndic _ Pos PastTense => R_e ;
-- VFIndic _ Neg PastTense => R_anga ;
-- VFIndic _ Pos RemPastTense => R_a ;
-- VFIndic _ Neg RemPastTense => R_anga
-- }
-- } ;
-- VERB MORPHEMES --
-- tense prefix
@@ -546,46 +679,6 @@ resource ResZul = open Prelude,Predef,ParamX in {
-- VFSubj _ => []
-- } ;
-- VForm = VFIndic DMood Polarity BasicTense Aspect | VFPot DMood Polarity Aspect | VFSubj Polarity ;
-- aux_be : VForm -> Agr -> Str = \vform,agr ->
-- let
-- sc = subjConc vform agr False ;
-- scvow = subjConc vform agr True ;
-- short_be = case agr of {
-- -- Second Pl => sc ++ "bu" ;
-- -- Third C3_4 Sg => sc ++ "bu" ;
-- -- Third C3_4 Pl => sc ++ "bi" ;
-- -- Third C9_6 Sg | Third C9_10 Sg => sc ++ "bi" ;
-- First _ | Second _ | Third _ _ => subjConcLookup!agr!SCBe
-- }
-- in
-- case vform of {
-- VFIndic Princ Pos PresTense _ => [] ;
-- VFIndic Princ Pos PerfTense _ => short_be ++BIND ; -- 2021-01-26, chose to only implement short form
-- VFIndic Princ Pos FutTense _ => sc ++ "zobe" ;
-- VFIndic Princ Pos PastTense _ => scvow ++ "abe" ;
--
-- VFIndic Princ Neg PresTense _ => [] ;
-- VFIndic Princ Neg PerfTense _ => short_be ++BIND ;
-- VFIndic Princ Neg FutTense _ => sc ++ "zobe" ;
-- VFIndic Princ Neg PastTense _ => scvow ++ "abe" ;
--
-- VFIndic Part Pos PresTense _ => [] ;
-- VFIndic Part Pos PerfTense _ => short_be ++BIND ;
-- VFIndic Part Pos FutTense _ => sc ++ "zobe" ;
-- VFIndic Part Pos PastTense _ => scvow ++ "abe" ;
--
-- VFIndic Part Neg PresTense _ => [] ;
-- VFIndic Part Neg PerfTense _ => short_be ++BIND ;
-- VFIndic Part Neg FutTense _ => sc ++ "zobe" ;
-- VFIndic Part Neg PastTense _ => scvow ++ "abe" ;
--
-- VFPot _ Pos _ => sc ++ "ngaba" ;
-- VFPot _ Neg _ => sc ++ "ngebe" ;
-- VFSubj Pos => sc ++ "be" ++BIND ;
-- VFSubj Neg => sc ++ "ngabi"
-- } ;
-------------
-- ADVERBS --
-------------
@@ -672,8 +765,8 @@ resource ResZul = open Prelude,Predef,ParamX in {
rel_yo_2 : Str = BIND++"yo" ;
relSuf : VForm -> Str = \vform -> case vform of {
VFIndic _ Pos PresTense => rel_yo_2 ;
VFIndic _ Pos PastTense => rel_yo_2 ;
VFIndic RelCl Pos PresTense => rel_yo_2 ;
VFIndic RelCl Pos PastTense => rel_yo_2 ;
VFIndic _ _ _ => []
} ;
@@ -871,6 +964,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
(First _ | Second _ ) => RC
} ;
locinit : Agr => RInit =
table {
Third C1_2 Sg => RC ;
@@ -892,49 +986,49 @@ resource ResZul = open Prelude,Predef,ParamX in {
<C1a_2a,Sg> => "ku"+root ;
<C1a_2a,Pl> => "ko"+root ;
<C3_4,Sg> => case root of {
"m"+_ => "e"+root ;
("m"|"M")+_ => "e"+root ;
_ => "em"+root
} ;
<C3_4,Pl> => "emi"+root ;
<C5_6,Sg> => case root of {
"i"+_ => "e" + (last root) ;
#vowel+_ => "el" + root ;
("i"|"I")+_ => "e" + (last root) ;
(#vowel|#vowel_cap)+_ => "el" + root ;
_ => "e"+root -- ili long form (not used?)
} ;
<C5_6,Pl> => case root of {
"i"+_ => "eme"+ (last root) ;
#vowel+_ => "em"+root ;
("i"|"I")+_ => "eme"+ (last root) ;
(#vowel|#vowel_cap)+_ => "em"+root ;
_ => "ema"+root
} ; -- ame for roots starting with i
<C7_8,Sg> => case root of {
#vowel+_ => "es"+root ;
(#vowel|#vowel_cap)+_ => "es"+root ;
_ => "esi"+root
} ; -- is for roots starting with vowel
<C7_8,Pl> => case root of {
#vowel+_ => "ez"+root ;
(#vowel|#vowel_cap)+_ => "ez"+root ;
_ => "ezi"+root -- iz for roots starting with vowel
} ;
<C9_10,Sg> => "e"+(prefix_nasal root) ; -- em for labial, en for alveolar (TODO: does this correctly split options?)
<C9_10,Pl> => "ezi"+(prefix_nasal root) ; -- izim for labial, izin for alveolar (TODO: does this correctly split options?)
<C11_10,Sg> => case root of {
#vowel+_ => "olw" + root ;
"w"+_ => "ol"+root ;
(#vowel|#vowel_cap)+_ => "olw" + root ;
("w"|"W")+_ => "ol"+root ;
_ => "o"+root
} ;
<C11_10,Pl> => case root of {
#vowel+_ => "ezilw" + root ;
"w"+_ => "ezil" + root ;
(#vowel|#vowel_cap)+_ => "ezilw" + root ;
("w"|"W")+_ => "ezil" + root ;
_ => "ezi"+(prefix_nasal root)
} ; -- izim for labial, izin for alveolar, izi(n|m)k for roots starting with kh
<C9_6,Sg> => "e"+(prefix_nasal root) ; -- em for labial, en for alveolar (TODO: does this correctly split options?)
<C9_6,Pl> => case root of {
"i"+_ => "eme"+root ;
("i"|"I")+_ => "eme"+root ;
_ => "ema"+root
} ; -- ame for roots starting with i
<C14,_> => "ebu"+root ;
<C15,_> => case root of {
("a"|"e")+_ => "ekw"+root ;
(#cons|"y")+_ => "eku"+root ;
("a"|"e"|"A"|"E")+_ => "ekw"+root ;
(#cons|"y"|#cons_cap|"Y")+_ => "eku"+root ;
_ => "ek"+root
} ; -- ukw for roots starting with a/e, uk for roots starting with o
<C17,_> => "eku"+root -- sometimes ukw
@@ -960,7 +1054,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
_+"wo" => (init root)+"eni" ;
_+"o" => (init root)+"weni" ;
_+"u" => (init root)+"wini" ;
_ => (init root)+"ini"
_ => root+"ini"
} ;
drop_init_vowel : Str -> Str = \s ->
@@ -970,74 +1064,80 @@ resource ResZul = open Prelude,Predef,ParamX in {
} ;
vowel : pattern Str = #("a"|"e"|"i"|"o"|"u") ;
vowel_cap : pattern Str = #("A"|"E"|"I"|"O"|"U") ;
cons : pattern Str = #("b"|"c"|"d"|"f"|"g"|"h"|"j"|"k"|"l"|"m"|"n"|"p"|"q"|"r"|"s"|"t"|"v"|"w"|"x"|"y"|"z") ;
cons_cap : pattern Str = #("B"|"C"|"D"|"F"|"G"|"H"|"J"|"K"|"L"|"M"|"N"|"P"|"Q"|"R"|"S"|"T"|"V"|"W"|"X"|"Y"|"Z") ;
labial_cons : pattern Str = #("p"|"b"|"f"|"v"|"w") ;
alveolar_cons : pattern Str = #("s"|"d"|"t"|"z") ;
nasal_de_asp : pattern Str = #("t"|"k"|"x"|"c"|"q") ;
nasal_de_asp_cap : pattern Str = #("T"|"K"|"X"|"C"|"Q") ;
nasal_m : pattern Str = #("v"|"f"|"b") ;
nasal_m_cap : pattern Str = #("V"|"F"|"B") ;
nasal_ng : pattern Str = #("x"|"c"|"q") ;
nasal_ng_cap : pattern Str = #("X"|"C"|"Q") ;
nasal : pattern Str = #("n"|"m") ;
nasal_cap : pattern Str = #("N"|"M") ;
nomNoun : Str -> Number -> ClassGender -> Str = \root,n,cg ->
case <cg,n> of
{
<C1_2,Sg> => case root of {
#vowel+_ => "um"+root ;
(#vowel|#vowel_cap)+_ => "um"+root ;
_+#cons+#vowel+#cons+_+#vowel+_ => "um"+root ;
_ => "umu"+root
} ; -- umu for single syllables, um for the rest
<C1_2,Pl> => case root of {
#vowel+_ => "ab"+root ;
(#vowel|#vowel_cap)+_ => "ab"+root ;
_ => "aba"+root -- abe for tribes or guilds
} ;
<C1a_2a,Sg> => "u"+root ;
<C1a_2a,Pl> => "o"+root ;
<C3_4,Sg> => case root of {
"m"+_+#vowel+#cons+_+#vowel+_ => "u"+root ;
("m"|"M")+_+#vowel+#cons+_+#vowel+_ => "u"+root ;
_+(#cons|"y")+#vowel+#cons+_+#vowel+_ => "um"+root ;
"o"+_ => "um"+root ;
("o"|"O")+_ => "um"+root ;
_ => "umu"+root
} ; -- umu for single syllables, um for the rest
<C3_4,Pl> => "imi"+root ;
<C5_6,Sg> => case root of {
"i"+_ => root ;
#vowel+_ => "il"+root ;
("i"|"I")+_ => root ;
(#vowel|#vowel_cap)+_ => "il"+root ;
_ => "i"+root -- ili long form (not used?)
} ;
<C5_6,Pl> => case root of {
"i"+_ => "ame"+(drop 1 root) ;
#vowel+_ => "am"+root ;
("i"|"I")+_ => "ame"+(drop 1 root) ;
(#vowel|#vowel_cap)+_ => "am"+root ;
_ => "ama"+root
} ; -- ame for roots starting with i
<C7_8,Sg> => case root of {
#vowel+_ => "is"+root ;
(#vowel|#vowel_cap)+_ => "is"+root ;
_ => "isi"+root
} ; -- is for roots starting with vowel
<C7_8,Pl> => case root of {
#vowel+_ => "iz"+root ;
(#vowel|#vowel_cap)+_ => "iz"+root ;
_ => "izi" + root
} ;
<C9_10,Sg> => "i" + prefix_nasal root ;
<C9_10,Pl> => "izi" + prefix_nasal root ;
<C11_10,Sg> => case root of {
#vowel+_ => "ulw"+root ;
"w"+_ => "ul"+root ;
(#vowel|#vowel_cap)+_ => "ulw"+root ;
("w"|"W")+_ => "ul"+root ;
_ => "u"+root
} ;
<C11_10,Pl> => case root of {
#vowel+_ => "izilw"+root ;
"w"+_ => "izil"+root ;
(#vowel|#vowel_cap)+_ => "izilw"+root ;
("w"|"W")+_ => "izil"+root ;
_ => "izi" + prefix_nasal root
} ;
<C9_6,Sg> => "i" + prefix_nasal root ;
<C9_6,Pl> => case root of {
"i"+_ => "ame"+root ;
("i"|"I")+_ => "ame"+root ;
_ => "ama"+root
} ; -- ame for roots starting with i
<C14,_> => "ubu"+root ;
<C15,_> => case root of {
("a"|"e")+_ => "ukw"+root ;
(#cons|"y")+_ => "uku"+root ;
("a"|"e"|"A"|"E")+_ => "ukw"+root ;
(#cons|#cons_cap|"y"|"Y")+_ => "uku"+root ;
_ => "uk"+root
} ; -- ukw for roots starting with a/e, uk for roots starting with o
<C17,_> => "uku"+root -- sometimes ukw
@@ -1047,65 +1147,66 @@ resource ResZul = open Prelude,Predef,ParamX in {
case <cg,n> of
{
<C1_2,Sg> => case root of {
#vowel+_ => "kum"+root ;
(#vowel|#vowel_cap)+_ => "kum"+root ;
_+#cons+#vowel+#cons+_+#vowel+_ => "kum"+root ;
_ => "kumu"+root
} ; -- umu for single syllables, um for the rest
<C1_2,Pl> => case root of {
#vowel+_ => "kub"+root ;
(#vowel|#vowel_cap)+_ => "kub"+root ;
_ => "kuba"+root -- abe for tribes or guilds
} ;
<C1a_2a,Sg> => "ku"+root ;
<C1a_2a,Pl> => "ko"+root ;
<C3_4,Sg> => case root of {
"m"+_ => "e"+(addLocSuffix root) ;
("m"|"M")+_ => "e"+(addLocSuffix root) ;
_ => "em"+(addLocSuffix root)
} ;
<C3_4,Pl> => "emi"+(addLocSuffix root) ;
<C5_6,Sg> => case root of {
"i"+_ => "e"+(addLocSuffix (drop 1 root)) ;
#vowel+_ => "el"+(addLocSuffix root) ;
("i"|"I")+_ => "e"+(addLocSuffix (drop 1 root)) ;
(#vowel|#vowel_cap)+_ => "el"+(addLocSuffix root) ;
_ => "e"+(addLocSuffix root) -- ili long form (not used?)
} ;
<C5_6,Pl> => case root of {
"i"+_ => "eme"+(addLocSuffix (drop 1 root)) ;
#vowel+_ => "em"+(addLocSuffix root) ;
("i"|"I")+_ => "eme"+(addLocSuffix (drop 1 root)) ;
(#vowel|#vowel_cap)+_ => "em"+(addLocSuffix root) ;
_ => "ema"+(addLocSuffix root)
} ; -- ame for roots starting with i
<C7_8,Sg> => case root of {
#vowel+_ => "es"+(addLocSuffix root) ;
(#vowel|#vowel_cap)+_ => "es"+(addLocSuffix root) ;
_ => "esi"+(addLocSuffix root)
} ; -- is for roots starting with vowel
<C7_8,Pl> => case root of {
#vowel+_ => "ez"+(addLocSuffix root) ;
(#vowel|#vowel_cap)+_ => "ez"+(addLocSuffix root) ;
_ => "ezi"+(addLocSuffix root) -- iz for roots starting with vowel
} ;
<C9_10,Sg> => "e"+(addLocSuffix (prefix_nasal root)) ; -- em for labial, en for alveolar (TODO: does this correctly split options?)
<C9_10,Pl> => "ezi"+(addLocSuffix (prefix_nasal root)) ; -- izim for labial, izin for alveolar (TODO: does this correctly split options?)
<C11_10,Sg> => case root of {
#vowel+_ => "olw"+(addLocSuffix root) ;
"w"+_ => "ol"+(addLocSuffix root) ;
(#vowel|#vowel_cap)+_ => "olw"+(addLocSuffix root) ;
("w"|"W")+_ => "ol"+(addLocSuffix root) ;
_ => "o"+(addLocSuffix root)
} ;
<C11_10,Pl> => case root of {
#vowel+_ => "ezilw"+(addLocSuffix root) ;
"w"+_ => "ezil"+(addLocSuffix root) ;
(#vowel|#vowel_cap)+_ => "ezilw"+(addLocSuffix root) ;
("w"|"W")+_ => "ezil"+(addLocSuffix root) ;
_ => "ezi"+(addLocSuffix (prefix_nasal root)) -- izim for labial, izin for alveolar, izi(n|m)k for roots starting with kh
} ;
<C9_6,Sg> => "e"+(addLocSuffix (prefix_nasal root)) ; -- em for labial, en for alveolar (TODO: does this correctly split options?)
<C9_6,Pl> => case root of {
"i"+_ => "eme"+(addLocSuffix root) ;
("i"|"I")+_ => "eme"+(addLocSuffix root) ;
_ => "ema"+(addLocSuffix root)
} ; -- ame for roots starting with i
<C14,_> => "ebu"+(addLocSuffix root) ;
<C15,_> => case root of {
("a"|"e")+_ => "ekw"+(addLocSuffix root) ;
(#cons|"y")+_ => "eku"+root ;
("a"|"e"|"A"|"E")+_ => "ekw"+(addLocSuffix root) ;
(#cons|"y"|#cons_cap|"Y")+_ => "eku"+root ;
_ => "ek"+(addLocSuffix root)
} ; -- ukw for roots starting with a/e, uk for roots starting with o
<C17,_> => "eku"+(addLocSuffix root) -- sometimes ukw
} ;
locS : Agr => Str = table {
Third C1_2 _ => [] ;
Third C1a_2a _ => [] ;
@@ -1154,16 +1255,16 @@ resource ResZul = open Prelude,Predef,ParamX in {
loc_NP : {
empty : Str ;
s : NForm => Str ;
mod : Str ;
dem : Str ;
predet_pre : Str ;
predet_post : Str ;
-- mod : Str ;
-- dem : Str ;
-- predet_pre : Str ;
-- predet_post : Str ;
agr : Agr ;
proDrop : Bool ;
isPron : Bool ;
-- reqLocS : Bool ;
qdef : QuantDef
} -> Str = \np -> np.s!NLoc ++ np.dem ++ np.mod ++ np.predet_pre ++ np.predet_post ;
-- qdef : QuantDef
} -> Str = \np -> np.s!NLoc ;
poss_NP : {
empty : Str ;
@@ -1210,9 +1311,9 @@ resource ResZul = open Prelude,Predef,ParamX in {
First Pl => table {SC => "si" ; SCVow => "s"++BIND ; SCNeg => "si" ; SCNegVow => "s" ; SCPart => "si" ; SCPS => "si" ; SCVowP => "si" ; SCBe => "besi" ; SCRP => "sasi" } ;
Second Pl => table {SC => "ni" ; SCVow => "n"++BIND ; SCNeg => "ni" ; SCNegVow => "n" ; SCPart => "ni" ; SCPS => "ni" ; SCVowP => "ni" ; SCBe => "beni" ; SCRP => "nani" } ;
Third C1_2 Sg => table {SC => "u" ; SCVow => "w"++BIND ; SCNeg => "ka" ; SCNegVow => "k" ; SCPart => "e" ; SCPS => "a" ; SCVowP => "wu" ; SCBe => "ube" ; SCRP => "waye" } ;
Third C1_2 Pl => table {SC => "ba" ; SCVow => "b"++BIND ; SCNeg => "ba" ; SCNegVow => "b" ; SCPart => "be" ; SCPS => "ba" ; SCVowP => "ba" ; SCBe => "babe" ; SCRP => "babe" } ;
Third C1_2 Pl => table {SC => "ba" ; SCVow => "b"++BIND ; SCNeg => "ba" ; SCNegVow => "b" ; SCPart => "be" ; SCPS => "ba" ; SCVowP => "ba" ; SCBe => "bebe" ; SCRP => "babe" } ;
Third C1a_2a Sg => table {SC => "u" ; SCVow => "w"++BIND ; SCNeg => "ka" ; SCNegVow => "k" ; SCPart => "e" ; SCPS => "a" ; SCVowP => "wu" ; SCBe => "ube" ; SCRP => "waye" } ;
Third C1a_2a Pl => table {SC => "ba" ; SCVow => "b"++BIND ; SCNeg => "ba" ; SCNegVow => "b" ; SCPart => "be" ; SCPS => "ba" ; SCVowP => "ba" ; SCBe => "babe" ; SCRP => "babe" } ;
Third C1a_2a Pl => table {SC => "ba" ; SCVow => "b"++BIND ; SCNeg => "ba" ; SCNegVow => "b" ; SCPart => "be" ; SCPS => "ba" ; SCVowP => "ba" ; SCBe => "bebe" ; SCRP => "babe" } ;
Third C3_4 Sg => table {SC => "u" ; SCVow => "w"++BIND ; SCNeg => "wu" ; SCNegVow => "w" ; SCPart => "u" ; SCPS => "u" ; SCVowP => "wu" ; SCBe => "ubu" ; SCRP => "wawu" } ;
Third C3_4 Pl => table {SC => "i" ; SCVow => "y"++BIND ; SCNeg => "yi" ; SCNegVow => "y" ; SCPart => "i" ; SCPS => "i" ; SCVowP => "yi" ; SCBe => "ibi" ; SCRP => "yayi" } ;
Third C5_6 Sg => table {SC => "li" ; SCVow => "l"++BIND ; SCNeg => "li" ; SCNegVow => "l" ; SCPart => "li" ; SCPS => "li" ; SCVowP => "li" ; SCBe => "beli" ; SCRP => "lali" } ;
@@ -1226,18 +1327,13 @@ resource ResZul = open Prelude,Predef,ParamX in {
Third C11_10 Pl => table {SC => "zi" ; SCVow => "z"++BIND ; SCNeg => "zi" ; SCNegVow => "z" ; SCPart => "zi" ; SCPS => "zi" ; SCVowP => "zi" ; SCBe => "bezi" ; SCRP => "zazi" } ;
Third C9_6 Sg => table {SC => "i" ; SCVow => "y"++BIND ; SCNeg => "yi" ; SCNegVow => "y" ; SCPart => "yi" ; SCPS => "i" ; SCVowP => "yi" ; SCBe => "ibi" ; SCRP => "yayi" } ;
Third C9_6 Pl => table {SC => "a" ; SCVow => [] ; SCNeg => "wa" ; SCNegVow => "w" ; SCPart => "e" ; SCPS => "a" ; SCVowP => "wa" ; SCBe => "abe" ; SCRP => "aye" } ;
Third C14 _ => table {SC => "bu" ; SCVow => "b"++BIND ; SCNeg => "bu" ; SCNegVow => "b" ; SCPart => "bu" ; SCPS => "bu" ; SCVowP => "bu" ; SCBe => "bebu" ; SCRP => "kwaku" } ;
Third C14 _ => table {SC => "bu" ; SCVow => "b"++BIND ; SCNeg => "bu" ; SCNegVow => "b" ; SCPart => "bu" ; SCPS => "bu" ; SCVowP => "bu" ; SCBe => "bebu" ; SCRP => "babu" } ;
Third C15 _ => table {SC => "ku" ; SCVow => "kw"++BIND ; SCNeg => "ku" ; SCNegVow => "k" ; SCPart => "ku" ; SCPS => "ku" ; SCVowP => "ku" ; SCBe => "beku" ; SCRP => "kwaku" } ;
Third C17 _ => table {SC => "ku" ; SCVow => "kw"++BIND ; SCNeg => "ku" ; SCNegVow => "k" ; SCPart => "ku" ; SCPS => "ku" ; SCVowP => "ku" ; SCBe => "beku" ; SCRP => "kwaku" }
} ;
-- scvow_bind : Agr -> Str = \agr -> case agr of {
-- (Third C5_6 Pl|Third C9_6 Pl) => [] ;
-- _ => subjConcLookup ! agr ! SCVow ++BIND
-- } ;
subjConc : VForm -> Agr -> Bool -> Str = \vform,agr,prevow ->
case <prevow,vform> of {
subjConc : VForm -> Agr -> Bool -> Str = \vform,agr,vow ->
case <vow,vform> of {
<False,VFIndic _ Neg _> => subjConcLookup ! agr ! SCNeg ++BIND ;
<True,VFIndic _ Neg _> => subjConcLookup ! agr ! SCNegVow ++BIND ;
<True,VFIndic _ _ _> => subjConcLookup ! agr ! SCVow ;
@@ -1245,19 +1341,6 @@ resource ResZul = open Prelude,Predef,ParamX in {
<_,VFIndic _ _ _> => subjConcLookup ! agr ! SC ++BIND
} ;
-- -be aux: reference time in relation to coding time
-- relSubjConc : BasicTense -> Agr -> Str = \tense,agr ->
-- relSubjConc : BasicTense -> Agr -> Str = \tense,agr ->
-- case tense of {
-- PastTense => (subjConcLookup ! agr ! SCVow) ++ "a" ++BIND++ case agr of {
-- Second Sg | Third C3_4 Sg => "w" ++BIND ;
-- Third C1_2 Sg | Third C1a_2a Sg | Third C3_4 Pl | Third C5_6 Pl | Third C9_10 Sg => "y" ++BIND ;
-- First _ | Second _ | Third _ _ => []
-- } ;
-- PerfTense | PresTense => subjConcLookup ! agr ! SC ++BIND++ "be" ; -- NOTE: present tense doesn't make much sense here, so default to perf
-- FutTense => subjConcLookup ! agr ! SC ++BIND++ "zobe"
-- } ;
impPref : Polarity -> Str = \pol -> case pol of {
Pos => [] ;
Neg => "u" ++BIND++ "nga" ++BIND
@@ -1270,7 +1353,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
in
case vform of {
VFIndic _ Pos PresTense => subjConcLookup ! agr ! SC ++BIND ;
VFIndic _ Pos PastTense => [] ; -- "be"++BIND++ subjConcLookup ! agr ! SCBe ++BIND ;
VFIndic _ Pos PastTense => [] ;
VFIndic _ Pos RemPastTense => subjConcLookup ! agr ! SC ++BIND++ "be" ++ subjConcLookup ! agr ! SCBe ++BIND ;
VFIndic _ Pos FutTense => subjConcLookup ! agr ! SC ++BIND ++ "zobe" ++ subjConcLookup ! agr ! SC ++BIND ;
VFIndic _ Pos RemFutTense => subjConcLookup ! agr ! SC ++BIND ++ "yobe" ++ subjConcLookup ! agr ! SC ++BIND ;
@@ -1325,8 +1408,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
-- ADJECTIVE ANTECEDENT AGREEMENT MORPHEME --
relAdjPrefLookup : Agr => Str = --table {
-- Pos =>
relAdjPrefLookup : Agr => Str =
table {
Third C1_2 Sg => "m" ;
Third C1_2 Pl => "" ;
@@ -1348,29 +1430,6 @@ resource ResZul = open Prelude,Predef,ParamX in {
Third C15 _ => "ku" ;
Third C17 _ => "ku" ;
(First _ | Second _ ) => "m"
-- } ;
-- Neg => table {
-- Third C1_2 Sg => "ongem" ;
-- Third C1_2 Pl => "angeba" ;
-- Third C1a_2a Sg => "ongem" ;
-- Third C1a_2a Pl => "angeba" ;
-- Third C3_4 Sg => "ongem" ;
-- Third C3_4 Pl => "engemi" ;
-- Third C5_6 Sg => "engeli" ;
-- Third C5_6 Pl => "angema" ;
-- Third C7_8 Sg => "engesi" ;
-- Third C7_8 Pl => "engezi" ;
-- Third C9_10 Sg => "enge" ;
-- Third C9_10 Pl => "engezi" ;
-- Third C11_10 Sg => "ongelu" ;
-- Third C11_10 Pl => "engezi" ;
-- Third C9_6 Sg => "enge" ;
-- Third C9_6 Pl => "angema" ;
-- Third C14 _ => "ongebu" ;
-- Third C15 _ => "ongeku" ;
-- Third C17 _ => "ongeku" ;
-- (First _ | Second _ ) => "ongem"
-- }
} ;
-- RELATIVE ANTECEDENT AGREEMENT MORPHEME --
@@ -1405,7 +1464,30 @@ resource ResZul = open Prelude,Predef,ParamX in {
VFIndic _ _ PastTense => relCopConcBeLookup!a ;
VFIndic _ _ RemPastTense => case a of {
Third C5_6 Pl => [] ; -- relConcLookup!a!RA ; -- a + aye = aye
(First _ | Second _ | Third _ _ ) => shortRelConc!a --++ subjConcLookup!a!SCRP
(First _ | Second _ | Third _ _ ) => shortRelConc!a
}
} ;
quantConcCop : VForm -> Agr -> Str = \vform,a -> case vform of {
VFIndic _ _ PresTense => relConcLookup!a!(quantinit!a) ;
VFIndic _ _ FutTense => relConcLookup!a!(quantinit!a) ;
VFIndic _ _ RemFutTense => relConcLookup!a!(quantinit!a) ;
VFIndic _ _ PastTense => relCopConcBeLookup!a ;
VFIndic _ _ RemPastTense => case a of {
Third C5_6 Pl => [] ; -- relConcLookup!a!RA ; -- a + aye = aye
(First _ | Second _ | Third _ _ ) => shortRelConc!a
}
} ;
adjConcCop : VForm -> Agr -> RInit ->Str = \vform,a,r -> case vform of {
VFIndic _ Pos PresTense => shortRelConc!a ;
VFIndic _ Neg PresTense => adjConcLookup!a!RC ;
VFIndic _ _ FutTense => adjConcLookup!a!RC ;
VFIndic _ _ RemFutTense => adjConcLookup!a!RC ;
VFIndic _ _ PastTense => relCopConcBeLookup!a ;
VFIndic _ _ RemPastTense => case a of {
Third C5_6 Pl => [] ; -- relConcLookup!a!RA ; -- a + aye = aye
(First _ | Second _ | Third _ _ ) => shortRelConc!a
}
} ;
@@ -1436,6 +1518,33 @@ resource ResZul = open Prelude,Predef,ParamX in {
Second Pl => table { RC => "eni"++BIND ; _ => "en"++BIND }
} ;
adjConcLookup : Agr => RInit => Str =
table {
Third C1_2 Sg => table { RO => [] ; (RA|RE) => "ow"++BIND ; _ => "o"++BIND } ;
Third C1_2 Pl => table { RC => "aba"++BIND ; _ => "ab"++BIND } ;
Third C1a_2a Sg => table { RO => [] ; (RA|RE) => "ow"++BIND ; _ => "o"++BIND } ;
Third C1a_2a Pl => table { RC => "aba"++BIND ; _ => "ab"++BIND } ;
Third C3_4 Sg => table { RO => [] ; (RA|RE) => "ow"++BIND ; _ => "o"++BIND } ;
Third C3_4 Pl => table { RC => "emi"++BIND ; _ => "em"++BIND } ;
Third C5_6 Sg => table { RC => "eli"++BIND ; _ => "el"++BIND } ;
Third C5_6 Pl => table { RC => "a"++BIND ; _ => [] } ;
Third C7_8 Sg => table { RC => "esi"++BIND ; _ => "es"++BIND } ;
Third C7_8 Pl => table { RC => "ezi"++BIND ; _ => "ez"++BIND } ;
Third C9_10 Sg => table { RE => [] ; (RA|RO) => "ey" ++BIND ; _ => "e"++BIND } ;
Third C9_10 Pl => table { RC => "ezi"++BIND ; _ => "ez"++BIND } ;
Third C11_10 Sg => table { RC => "olu"++BIND ; (RA|RE) => "olw" ; _ => "ol"++BIND } ;
Third C11_10 Pl => table { RC => "ezi"++BIND ; _ => "ez"++BIND } ;
Third C9_6 Sg => table { RE => [] ; (RA|RO) => "ey" ; _ => "e"++BIND } ;
Third C9_6 Pl => table { RC => "a"++BIND ; _ => [] } ;
Third C14 _ => table { RC => "obu"++BIND ; _ => "ob"++BIND } ;
Third C15 _ => table { RC => "oku"++BIND ; (RA|RE) => "okw" ; _ => "ok"++BIND } ;
Third C17 _ => table { RC => "oku"++BIND ; (RA|RE) => "okw" ; _ => "ok"++BIND } ;
First Sg => table { RC => "engi"++BIND ; _ => "eng"++BIND } ;
First Pl => table { RC => "esi"++BIND ; _ => "es"++BIND } ;
Second Sg => table { RE => "ow"++BIND ; _ => "o"++BIND } ;
Second Pl => table { RC => "eni"++BIND ; _ => "en"++BIND }
} ;
relCopConcBeLookup : Agr => Str =
table {
Third C1_2 Sg => "obe"++BIND ;
@@ -1463,6 +1572,60 @@ resource ResZul = open Prelude,Predef,ParamX in {
Second Pl => "ebeni"++BIND
} ;
-- relCopConcBeLookup : Agr => RInit => Str =
-- table {
-- Third C1_2 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obe"++BIND } ;
-- Third C1_2 Pl => table { (RA|RE|RI|RO|RU) => "abab"++BIND ; _ => "ababe"++BIND } ;
-- Third C1a_2a Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obe"++BIND } ;
-- Third C1a_2a Pl => table { (RA|RE|RI|RO|RU) => "abab"++BIND ; _ => "ababe"++BIND } ;
-- Third C3_4 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obu"++BIND } ;
-- Third C3_4 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebi"++BIND } ;
-- Third C5_6 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebeli"++BIND } ;
-- Third C5_6 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "abe"++BIND } ;
-- Third C7_8 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebesi"++BIND } ;
-- Third C7_8 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebezi"++BIND } ;
-- Third C9_10 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebi"++BIND } ;
-- Third C9_10 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebezi"++BIND } ;
-- Third C11_10 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obelu"++BIND } ;
-- Third C11_10 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebezi"++BIND } ;
-- Third C9_6 Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebi"++BIND } ;
-- Third C9_6 Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "abe"++BIND } ;
-- Third C14 _ => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obebu"++BIND } ;
-- Third C15 _ => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obeku"++BIND } ;
-- Third C17 _ => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obeku"++BIND } ;
-- First Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebengi"++BIND } ;
-- First Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebesi"++BIND } ;
-- Second Sg => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "obu"++BIND } ;
-- Second Pl => table { (RA|RE|RI|RO|RU) => "ob"++BIND ; _ => "ebeni"++BIND }
-- } ;
relCopConcRemPastLookup : Agr => Str =
table {
Third C1_2 Sg => "owaye"++BIND ;
Third C1_2 Pl => "ababe"++BIND ;
Third C1a_2a Sg => "owaye"++BIND ;
Third C1a_2a Pl => "ababe"++BIND ;
Third C3_4 Sg => "owawu"++BIND ;
Third C3_4 Pl => "eyayi"++BIND ;
Third C5_6 Sg => "elali"++BIND ;
Third C5_6 Pl => "aye"++BIND ;
Third C7_8 Sg => "esasi"++BIND ;
Third C7_8 Pl => "ezazi"++BIND ;
Third C9_10 Sg => "eyayi"++BIND ;
Third C9_10 Pl => "ezazi"++BIND ;
Third C11_10 Sg => "olwalu"++BIND ;
Third C11_10 Pl => "ezazi"++BIND ;
Third C9_6 Sg => "eyayi"++BIND ;
Third C9_6 Pl => "aye"++BIND ;
Third C14 _ => "obabu"++BIND ;
Third C15 _ => "okwaku"++BIND ;
Third C17 _ => "okwaku"++BIND ;
First Sg => "engangi"++BIND ;
First Pl => "esasi"++BIND ;
Second Sg => "owawu"++BIND ;
Second Pl => "enani"++BIND
} ;
-- relCopConcBeLookup : Agr => RInit => Str =
-- table {
-- Third C1_2 Sg => table { _ => "obe"++BIND } ;
@@ -1622,54 +1785,62 @@ resource ResZul = open Prelude,Predef,ParamX in {
}
} ;
poss_concord_c1a : ClassGender => Number => RInit => Str =
poss_concord_c1a : ClassGender => Number => Str =
table {
C1_2 => table {
Sg => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" } ;
Pl => table {(RA|RC) => "baka" ; (RE|RI) => "bake" ; (RO|RU) => "bako" }
Sg => "ka" ;
Pl => "baka"
} ;
C1a_2a => table {
Sg => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" } ;
Pl => table {(RA|RC) => "baka" ; (RE|RI) => "bake" ; (RO|RU) => "bako" }
Sg => "ka" ;
Pl => "baka"
} ;
C3_4 => table {
Sg => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" } ;
Pl => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" }
Sg => "ka" ;
Pl => "ka"
} ;
C5_6 => table {
Sg => table {(RA|RC) => "lika" ; (RE|RI) => "like" ; (RO|RU) => "liko" } ;
Pl => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" }
Sg => "lika" ;
Pl => "ka"
} ;
C7_8 => table {
Sg => table {(RA|RC) => "sika" ; (RE|RI) => "sike" ; (RO|RU) => "siko" } ;
Pl => table {(RA|RC) => "zika" ; (RE|RI) => "zike" ; (RO|RU) => "ziko" }
Sg => "sika" ;
Pl => "zika"
} ;
C9_10 => table {
Sg => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" } ;
Pl => table {(RA|RC) => "zika" ; (RE|RI) => "zike" ; (RO|RU) => "ziko" }
Sg => "ka" ;
Pl => "zika"
} ;
C11_10 => table {
Sg => table {(RA|RC) => "luka" ; (RE|RI) => "luke" ; (RO|RU) => "luko" } ;
Pl => table {(RA|RC) => "zika" ; (RE|RI) => "zike" ; (RO|RU) => "ziko" }
Sg => "luka" ;
Pl => "zika"
} ;
C9_6 => table {
Sg => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" } ;
Pl => table {(RA|RC) => "ka" ; (RE|RI) => "ke" ; (RO|RU) => "ko" }
Sg => "ka" ;
Pl => "ka"
} ;
C14 => table {
_ => table {(RA|RC) => "buka" ; (RE|RI) => "buke" ; (RO|RU) => "buko" }
_ => "buka"
} ;
C15 => table {
_ => table {(RA|RC) => "kuka" ; (RE|RI) => "kuke" ; (RO|RU) => "kuko" }
_ => "kuka"
} ;
C17 => table {
_ => table {(RA|RC) => "kuka" ; (RE|RI) => "kuke" ; (RO|RU) => "kuko" }
_ => "kuka"
}
} ;
-- QUANTITATIVE AGREEMENT MORPHEME --
-- (demonstatives)
quantinit : Agr => RInit =
table {
Third C5_6 Pl => RO ;
Third C9_6 Pl => RO ;
Third _ _ => RC ;
(First _ | Second _ ) => RC
} ;
exclQuantConc : Agr => Str = table {
Third C1_2 Sg => "ye" ;
Third C1_2 Pl => "bo" ;
@@ -1882,7 +2053,7 @@ resource ResZul = open Prelude,Predef,ParamX in {
kho_cop : VForm -> Agr -> Str = \vform,agr -> case vform of {
VFIndic MainCl Neg PresTense => neg_kho_cop_pref agr ++ "kho";
VFIndic RelCl Neg PresTense => (relConcCop vform agr RC) ++ (ap_cop_pref (VFIndic RelCl Neg PresTense) agr RelType) ++BIND++ "kho" ;
VFIndic RelCl Neg PresTense => (relConcCop vform agr RC) ++ (ap_cop_pref (VFIndic RelCl Neg PresTense) agr RelType) ++ "kho" ;
VFIndic RelCl p t => (relConcCop vform agr RC) ++ (ap_cop_pref (VFIndic RelCl p t) agr RelType) ++ "khona" ;
VFIndic MainCl p t => (ap_cop_pref (VFIndic MainCl p t) agr RelType) ++ "khona"
} ;

141
src/zulu/SentenceZul.gf
View File

@@ -19,44 +19,59 @@ concrete SentenceZul of Sentence = CatZul ** open Prelude,ResZul,ParamX in {
False => True
}
in {
s = \\p,t => np.s!NFull ++ (verb_prefix vp p t np.agr) ++ vp.s!MainCl!np.agr!p!t!longform_suffix ++ vp.comp ++ vp.iadv ++ vp.advs ;
s = \\p,t => np.s!NFull ++ vp.s!MainCl!np.agr!p!t!longform_suffix ++ vp.comp ++ vp.iadv ++ vp.advs ;
} ;
_ => cl_with_verb_predicate np vp
} ;
-- PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp ;
ImpVP vp = let
np = {
empty = [] ;
s = table {NFull|NReduced|NPoss|NLoc => []} ;
-- loc = [] ;
-- desc = [] ;
-- det = [] ;
agr = Second Sg ;
i = nominit!(Second Sg) ;
proDrop = True ;
isPron = True ;
heavy = False
-- reqLocS = True ;
-- qdef = Article Spec
} ;
impTense = PresTense
in case vp.vptype of {
VNPCompl => {
s = table {
Pos => vp.s!MainCl!np.agr!Pos!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs ;
Neg => "unga" ++ vp.s!MainCl!np.agr!Neg!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs
}
} ;
-- ImpVP vp = let
-- np = {
-- empty = [] ;
-- s = table {NFull|NReduced|NPoss|NLoc => []} ;
-- -- loc = [] ;
-- -- desc = [] ;
-- -- det = [] ;
-- agr = Second Sg ;
-- i = nominit!(Second Sg) ;
-- proDrop = True ;
-- isPron = True ;
-- heavy = False
-- -- reqLocS = True ;
-- -- qdef = Article Spec
-- } ;
-- impTense = PresTense
-- in case vp.vptype of {
-- NoComp => let
-- yi = case vp.syl of {
-- SylMono => "yi"++BIND ;
-- _ => []
-- }
-- in {
-- s = table {
-- Pos => yi ++ vp.s!MainCl!np.agr!Pos!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs ;
-- Neg => "unga" ++ vp.s!MainCl!np.agr!Neg!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs
-- }
-- } ;
-- VNPCompl => {
-- s = table {
-- Pos => vp.s!MainCl!np.agr!Pos!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs ;
-- Neg => "unga" ++ vp.s!MainCl!np.agr!Neg!impTense!False ++ vp.comp ++ vp.iadv ++ vp.advs
-- }
-- } ;
--
-- CopIdent => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
-- CopAssoc => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
-- CopDescr => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
-- CopEq => {s = \\pol => (cl_with_eq_cop_predicate np vp).s!pol!impTense } ;
-- -- VACompl => {s = \\pol => (cl_with_ap_comp_predicate np vp).s!pol!impTense!Princ } ;
-- AdvComp => {s = \\pol => (cl_with_adv_comp_predicate np vp).s!pol!impTense } ;
-- _ => {s = \\pol => (imp_verb_predicate np vp).s!pol!impTense }
-- } ;
CopIdent => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
CopAssoc => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
CopDescr => {s = \\pol => (comp_pred np vp).s!pol!impTense } ;
CopEq => {s = \\pol => (cl_with_eq_cop_predicate np vp).s!pol!impTense } ;
-- VACompl => {s = \\pol => (cl_with_ap_comp_predicate np vp).s!pol!impTense!Princ } ;
AdvComp => {s = \\pol => (cl_with_adv_comp_predicate np vp).s!pol!impTense } ;
_ => {s = \\pol => (imp_verb_predicate np vp).s!pol!impTense }
ImpVP vp = {
s = \\n,p => vp.imp_s!n!p ++ vp.comp ++ vp.iadv ++ vp.advs
} ;
-- SlashVP np vp =
@@ -95,7 +110,7 @@ concrete SentenceZul of Sentence = CatZul ** open Prelude,ResZul,ParamX in {
-- c2 = cl.c2
-- } ;
--
-- AdvS a s = {s = a.s ++ s.s} ;
AdvS a s = {s = a.s ++ s.s} ;
-- ExtAdvS a s = {s = a.s ++ frontComma ++ s.s} ;
--
-- SSubjS a s b = {s = a.s ++ frontComma ++ s.s ++ b.s} ;
@@ -168,44 +183,42 @@ concrete SentenceZul of Sentence = CatZul ** open Prelude,ResZul,ParamX in {
}
in
subj
++ (verb_prefix vp p t np.agr)
-- ++ (verb_prefix vp p t np.agr)
++ vp.s!MainCl!np.agr!p!t!longform_suffix
++ vp.iadv
++ vp.comp
++ vp.advs
} ;
verb_prefix : VP -> Polarity -> BasicTense -> Agr -> Str = \vp,p,t,agr ->
let
lfya = case <vp.hasComp,p,t,vp.r> of {
<False,Pos,PresTense,RC> => "ya" ++BIND ;
<False,Pos,PresTense,_> => "y" ++BIND ;
<_,_,_> => []
} ;
-- vow = case <vp.hasComp,vp.r,p,t> of {
vow = case <vp.hasComp,p,t,vp.r> of {
<False,Pos,PresTense,RC> => False ; -- force the compiler to understand the table
<False,Pos,PresTense,_> => False ; -- long form ya
<_,_,PresTense,RC> => False ;
<_,_,PresTense,_> => True ;
-- <_,Pos,PerfTense,RC> => False ;
-- <_,Pos,PerfTense,_> => True ;
<_,_,PastTense,RC> => False ;
<_,_,PastTense,_> => True ;
<_,_,RemPastTense,RC> => False ;
<_,_,RemPastTense,_> => True ;
<_,_,_,_> => False
} ;
vform = VFIndic MainCl p t
in
(negPref vform)
-- ++ (exclSePref vform_main)
++ (subjConc vform agr vow)
-- ++ (negPref2 vform_main)
++ lfya
-- ++ (tensePref vform)
;
-- verb_prefix : VP -> Polarity -> BasicTense -> Agr -> Str = \vp,p,t,agr ->
-- let
-- lfya = case <vp.hasComp,p,t,vp.r> of {
-- <False,Pos,PresTense,RC> => "ya" ++BIND ;
-- <False,Pos,PresTense,_> => "y" ++BIND ;
-- <_,_,_> => []
-- } ;
-- -- vow = case <vp.hasComp,vp.r,p,t> of {
-- vow = case <vp.hasComp,p,t,vp.r> of {
-- <False,Pos,PresTense,RC> => False ; -- force the compiler to understand the table
-- <False,Pos,PresTense,_> => False ; -- long form ya
--
-- <_,_,PresTense,RC> => False ;
-- <_,_,PresTense,_> => True ;
-- <_,_,PastTense,RC> => False ;
-- <_,_,PastTense,_> => True ;
-- <_,_,RemPastTense,RC> => False ;
-- <_,_,RemPastTense,_> => True ;
-- <_,_,_,_> => False
-- } ;
-- vform = VFIndic MainCl p t
-- in
-- (negPref vform)
-- -- ++ (exclSePref vform_main)
-- ++ (subjConc vform agr vow)
-- -- ++ (negPref2 vform_main)
-- ++ lfya
-- -- ++ (tensePref vform)
-- ;
-- TODO: aspect
cl_with_eq_cop_predicate : NP -> VP -> { s : Polarity => BasicTense => Str } = \np,vp -> {

2
src/zulu/StructuralZul.gf
View File

@@ -163,7 +163,7 @@ concrete StructuralZul of Structural = CatZul **
-- VV
-- can8know_VV
-- can_VV
can_VV = lin VV (mkV "yakwaz" "yakwazi") ;
-- must_VV
}

323
src/zulu/VerbExtZul.gf
View File

@@ -14,7 +14,7 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
pcp ++ adjpref ++ cop_base ;
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rcp = shortRelConc!a ; -- o-
rcp = (adjConcCop vform a RC) ; -- o-
pcp = ap_cop_pref vform a AdjType ; -- [] / -nge- / zoba / -be- / -benge- -waye- / -wayenge-
adjpref = adjPref a vform ; -- m-
cop_base = ap.s!(aformN a) -- khulu
@@ -37,6 +37,34 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
rcp ++ pcp ++ cop_base
}
} ;
imp_s = table {
Sg => let
agr = (Second Sg)
in table {
Pos => "yiba" ++ ap.s!AF1 ;
Neg => "ungabi" ++ ap.s!AF1
} ;
Pl => let
agr = (Second Pl)
in table {
Pos => "yibani" ++ ap.s!AF1 ;
Neg => "ningabi" ++ ap.s!AF1
}
} ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ ap.s!AF1 ;
Neg => "ukungabi" ++ ap.s!AF1
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ ap.s!AF1 ;
Neg => "kungabi" ++ ap.s!AF1
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ ap.s!AF1 ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ ap.s!AF1
}
} ;
comp, iadv, advs = [] ;
hasComp = True ;
r = RC ; -- should not be used
@@ -62,6 +90,30 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
in
rcp ++ pcp ++ cp ++ cop_base
} ;
imp_s = table {
Sg => table {
Pos => "yiba" ++ (id_cop_pref np.agr) ++ np.s!NFull ;
Neg => "ungabi" ++ (id_cop_pref np.agr) ++ np.s!NFull
} ;
Pl => table {
Pos => "yibani" ++ (id_cop_pref np.agr) ++ np.s!NFull ;
Neg => "ningabi" ++ (id_cop_pref np.agr) ++ np.s!NFull
}
} ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ np.s!NFull ;
Neg => "ukungabi" ++ np.s!NFull
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ np.s!NFull ;
Neg => "kungabi" ++ np.s!NFull
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ np.s!NFull ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ np.s!NFull
}
} ;
comp, iadv, advs = [] ;
hasComp = np.heavy ;
r = RC ; -- should not be used
@@ -87,6 +139,32 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
in
rcp ++ pcp ++ cp ++ cop_base
} ;
imp_s = let
cop = (assoc_cop_pref Pos np.agr) ++ np.s!NReduced
in table {
Sg => table {
Pos => "yiba" ++ cop ;
Neg => "ungabi" ++ cop
} ;
Pl => table {
Pos => "yibani" ++ cop ;
Neg => "ningabi" ++ cop
}
} ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced ;
Neg => "ukungabi" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced ;
Neg => "kungabi" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ (assoc_cop_pref Pos np.agr) ++ np.s!NReduced
}
} ;
comp, iadv, advs = [] ;
hasComp = np.heavy ;
r = RC ; -- should not be used
@@ -94,34 +172,90 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
vptype = CopAssoc
} ;
ComplV2Nonspec v2 np = {
UseVStative v = {
s = \\c,a,p,t,l => let
vform = VFIndic c p t ;
vpref = verb_prefix_stative vform a v.r v.syl ;
r = v.s!(rform_stative vform) ;
yo = case l of {
True => relSuf vform ;
False => []
}
in vpref ++ r ++ yo ;
imp_s = table {
Sg => table {
Pos => case v.syl of {
SylMono => "*" ++ "yi"++BIND++v.s!R_a ;
SylMult => "*" ++ v.s!R_a
} ;
Neg => "*" ++ "unga" ++BIND++ v.s!R_i
} ;
Pl => table {
Pos => case v.syl of {
SylMono => "*" ++ "yi"++BIND++v.s!R_a ++BIND++"ni" ;
SylMult => "*" ++ v.s!R_a ++BIND++"ni"
} ;
Neg => "*" ++ "ninga" ++BIND++ v.s!R_i
}
} ;
inf_s = table {
NFull => table {
Pos => "uku" ++BIND++ v.s!R_ile ;
Neg => "uku" ++BIND++ "nga" ++BIND++ v.s!R_i
} ;
NReduced | NPoss => table {
Pos => "ku" ++BIND++ v.s!R_ile ;
Neg => "ku" ++BIND++ "nga" ++BIND++ v.s!R_i
} ;
NLoc => table {
Pos => "e" ++BIND++ "ku"++BIND++v.s!R_e ++BIND++ "ni" ;
Neg => "e" ++BIND++ "ku"++BIND++"nga"++BIND++v.s!R_e ++BIND++ "ni"
}
} ;
iadv, advs, comp = [] ;
-- ap_comp = \\_ => [] ;
hasComp = False ;
r = v.r ;
syl = v.syl ;
vptype = NoComp
} ;
ComplV2Nonspec v2 np = let
oc = objConc np.agr v2.r v2.syl ;
longform = case np.heavy of {
True => False ;
False => True
}
in {
s = table {
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
vpref_no_oc = verb_prefix_no_oc vform l v2.r a ;
vpref_with_oc = verb_prefix_with_oc vform l a ;
tp = tensePref vform v2.r v2.syl ;
oc = objConc np.agr v2.r v2.syl ;
longform = case np.heavy of {
True => False ;
False => True
} ;
-- oc = objConc np.agr v2.r v2.syl ;
-- longform = case np.heavy of {
-- True => False ;
-- False => True
-- } ;
r = v2.s!(rform (VFIndic MainCl p t) longform) ;
obj = case p of {
Pos => np.s!NFull ;
Neg => np.s!NReduced
} ;
in case np.proDrop of {
True => tp ++ oc ++ r ++ obj ;
False => tp ++ r ++ obj
True => vpref_with_oc ++ tp ++ oc ++ r ++ obj ;
False => vpref_no_oc ++ tp ++ r ++ obj
} ;
RelCl => \\a,p,t,l => let
vform = (VFIndic RelCl p t) ;
rc = relConc vform a v2.r ;
tp = tensePref vform v2.r v2.syl ;
oc = objConc np.agr v2.r v2.syl ;
longform = case np.heavy of {
True => False ;
False => True
} ;
-- oc = objConc np.agr v2.r v2.syl ;
-- longform = case np.heavy of {
-- True => False ;
-- False => True
-- } ;
r = v2.s!(rform vform longform) ;
obj = case p of {
Pos => np.s!NFull ;
@@ -132,6 +266,53 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
False => rc ++ tp ++ r ++ obj
}
} ;
imp_s = let
obj_full = np.s!NFull ;
obj_red = np.s!NReduced
in table {
Sg => table {
Pos => case np.proDrop of {
True => oc ++ v2.s!R_e ++ obj_full ;
False => v2.s!R_a ++ obj_full
} ;
Neg => case np.proDrop of {
True => "unga" ++BIND++ oc ++ v2.s!R_i ++ obj_red ;
False => "unga" ++BIND++ v2.s!R_i ++ obj_red
}
} ;
Pl => table {
Pos => case np.proDrop of {
True => oc ++ v2.s!R_e ++BIND++"ni" ++ obj_full ;
False => v2.s!R_a ++BIND++"ni" ++ obj_full
} ;
Neg => case np.proDrop of {
True => "ninga" ++BIND++ oc ++ v2.s!R_i ++ obj_red ;
False => "ninga" ++BIND++ v2.s!R_i ++ obj_red
}
}
} ;
inf_s = let
inf_oc = case np.proDrop of {
True => oc ;
False => []
} ;
obj_full = np.s!NFull ;
obj_red = np.s!NReduced
in
table {
NFull => table {
Pos => "uku" ++BIND++ inf_oc ++ v2.s!R_a ++ obj_full ;
Neg => "uku" ++BIND++ "nga" ++BIND++ inf_oc ++ v2.s!R_i ++ obj_red
} ;
NReduced | NPoss => table {
Pos => "ku" ++BIND++ inf_oc ++ v2.s!R_a ++ obj_full ;
Neg => "ku" ++BIND++ "nga" ++BIND++ inf_oc ++ v2.s!R_i ++ obj_red
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++inf_oc ++ v2.s!R_a ++ obj_full ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++"nga"++BIND++inf_oc ++ v2.s!R_a ++ obj_red
}
} ;
iadv, advs, comp = [] ;
ap_comp = \\_ => [] ;
hasComp = np.heavy ;
@@ -140,8 +321,10 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
vptype = VNPCompl
} ;
CopLoc loc = {
CopLocative loc = {
s = \\c,a,p,t,l => loc.s!c!a!p!t ;
imp_s = loc.imp_s ;
inf_s = loc.inf_s ;
comp,advs,iadv = [] ;
hasComp = True ;
r = RC ;
@@ -149,4 +332,114 @@ concrete VerbExtZul of VerbExt = CatZul,CatExtZul ** open ResZul, Prelude, Param
vptype = CopLoc
} ;
CopPoss np = {
s = table {
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
pcp = (id_pre_cop_pref vform a) ; -- u- / uzoba / akazukuba
-- cp = (id_cop_pref np.agr) ; -- ng-
cop_base = poss_concord_agr!(Third C17 Sg)!(nominit!np.agr) ++BIND++ np.s!NPoss -- utshani
in
pcp ++ cop_base ;
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rcp = (relConcCop vform a RC) ; -- o-
pcp = (id_pre_cop_pref vform a) ; -- [] / zoba / zukuba
-- cp = (id_cop_pref np.agr) ; -- ng-
cop_base = poss_concord_agr!(Third C17 Sg)!(nominit!np.agr) ++BIND++ np.s!NPoss -- utshani
in
rcp ++ pcp ++ cop_base
} ;
imp_s = let
cop = poss_concord_agr!(Third C17 Sg)!(nominit!np.agr) ++BIND++ np.s!NPoss
in table {
Sg => table {
Pos => "yiba" ++ cop ;
Neg => "ungabi" ++ cop
} ;
Pl => table {
Pos => "yibani" ++ cop ;
Neg => "ningabi" ++ cop
}
} ;
inf_s = let
cop = poss_concord_agr!(Third C17 Sg)!(nominit!np.agr) ++BIND++ np.s!NPoss
in table {
NFull => table {
Pos => "ukuba" ++ cop ;
Neg => "ukungabi" ++ cop
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ cop ;
Neg => "kungabi" ++ cop
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ cop ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ cop
}
} ;
comp, iadv, advs = [] ;
hasComp = np.heavy ;
r = RC ; -- should not be used
syl = SylMult ;
vptype = CopIdent
} ;
CopQuant qs = {
s = table {
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
pcp = ap_cop_pref vform a RelType ; -- u-
cop_base = qs.s!a -- qotho
in
pcp ++ cop_base ;
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rcp = (quantConcCop vform a) ; -- o-
pcp = ap_cop_pref vform a RelType ; -- [] / -nge- / zoba / -benge-
cop_base = qs.s!a -- qotho
in
rcp ++ pcp ++ cop_base
} ;
imp_s = let
imp_vform = VFIndic MainCl Pos PresTense
in table {
Sg => let
agr = (Second Sg)
in table {
Pos => "yiba" ++ qs.s!agr ;
Neg => "ungabi" ++ qs.s!agr
} ;
Pl => let
agr = (Second Pl)
in table {
Pos => "yibani" ++ qs.s!agr ;
Neg => "ningabi" ++ qs.s!agr
}
} ;
-- inf_s = table {
-- Pos => "ukuba" ++ qs.s!(Third C15 Sg) ; -- this agr doesn't really make sense
-- Neg => "ukungabi" ++ qs.s!(Third C15 Sg)
-- } ;
inf_s = table {
NFull => table {
Pos => "ukuba" ++ qs.s!(Third C15 Sg) ;
Neg => "ukungabi" ++ qs.s!(Third C15 Sg)
} ;
NReduced | NPoss => table {
Pos => "kuba" ++ qs.s!(Third C15 Sg) ;
Neg => "kungabi" ++ qs.s!(Third C15 Sg)
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukuba" ++ qs.s!(Third C15 Sg) ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++"ukungabi" ++ qs.s!(Third C15 Sg)
}
} ;
comp, iadv, advs = [] ;
hasComp = True ;
r = RC ; -- should not be used
syl = SylMult ;
vptype = CopDescr
} ;
}

97
src/zulu/VerbZul.gf
View File

@@ -7,10 +7,11 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
s = table {
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
vpref = verb_prefix_no_oc vform l v.r a ;
tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
r = v.s!(rform (VFIndic MainCl p t) l) -- hamba
r = v.s!(rform vform l) -- hamba
-- rest of verb prefix built later (eg no "ya" with certain question words)
in tp ++ r ;
in vpref ++ tp ++ r ;
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rc = relConc vform a v.r ; -- o-
@@ -22,6 +23,36 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
} ;
in rc ++ tp ++ r ++ suf
} ;
imp_s = table {
Sg => table {
Pos => case v.syl of {
SylMono => "yi"++BIND++v.s!R_a ;
SylMult => v.s!R_a
} ;
Neg => "unga" ++BIND++ v.s!R_i
} ;
Pl => table {
Pos => case v.syl of {
SylMono => "yi"++BIND++v.s!R_a ++BIND++"ni" ;
SylMult => v.s!R_a ++BIND++"ni"
} ;
Neg => "ninga" ++BIND++ v.s!R_i
}
} ;
inf_s = table {
NFull => table {
Pos => "uku" ++BIND++ v.s!R_a ;
Neg => "uku" ++BIND++ "nga" ++BIND++ v.s!R_i
} ;
NReduced | NPoss => table {
Pos => "ku" ++BIND++ v.s!R_a ;
Neg => "ku" ++BIND++ "nga" ++BIND++ v.s!R_i
} ;
NLoc => table {
Pos => "e" ++BIND++ "ku"++BIND++v.s!R_e ++BIND++ "ni" ;
Neg => "e" ++BIND++ "ku"++BIND++"nga"++BIND++v.s!R_e ++BIND++ "ni"
}
} ;
iadv, advs, comp = [] ;
-- ap_comp = \\_ => [] ;
hasComp = False ;
@@ -30,7 +61,62 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
vptype = NoComp
} ;
-- ComplVV v vp = insertObj (\\a => infVP v.typ vp False Simul CPos a) (predVV v) ; ---- insertExtra?
ComplVV v vp = {
s = table {
MainCl => \\a,p,t,l => let
vform = VFIndic MainCl p t ;
tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
r = v.s!(rform (VFIndic MainCl p t) l) -- hamba
-- rest of verb prefix built later (eg no "ya" with certain question words)
in tp ++ r ++ "uku" ++ BIND ++ vp.s!MainCl!(First Sg)!Pos!PresTense!False ;
RelCl => \\a,p,t,l => let
vform = VFIndic RelCl p t ;
rc = relConc vform a v.r ; -- o-
tp = tensePref vform v.r v.syl ; -- [] / zo- / zuku-
r = v.s!(rform vform l) ; -- hamba
suf = case l of {
True => relSuf vform ;
False => []
} ;
in rc ++ tp ++ r ++ vp.inf_s!NFull!Pos
} ;
imp_s = table {
Sg => table {
Pos => case v.syl of {
SylMono => "yi"++BIND++v.s!R_a ++ vp.inf_s!NFull!Pos ;
SylMult => v.s!R_a
} ;
Neg => "unga" ++BIND++ v.s!R_i ++ vp.inf_s!NFull!Pos
} ;
Pl => table {
Pos => case v.syl of {
SylMono => "yi"++BIND++v.s!R_a ++BIND++"ni" ++ vp.inf_s!NFull!Pos ;
SylMult => v.s!R_a ++BIND++"ni" ++ vp.inf_s!NFull!Pos
} ;
Neg => "ninga" ++BIND++ v.s!R_i ++ vp.inf_s!NFull!Pos
}
} ;
inf_s = table {
NFull => table {
Pos => "uku" ++BIND++ v.s!R_a ++ vp.inf_s!NFull!Pos ;
Neg => "uku" ++BIND++ "nga" ++BIND++ v.s!R_i ++ vp.inf_s!NFull!Pos
} ;
NReduced | NPoss => table {
Pos => "ku" ++BIND++ v.s!R_a ++ vp.inf_s!NFull!Pos ;
Neg => "ku" ++BIND++ "nga" ++BIND++ v.s!R_i ++ vp.inf_s!NFull!Pos
} ;
NLoc => table {
Pos => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++v.s!R_a ++ vp.inf_s!NFull!Pos ;
Neg => "ku"++BIND++poss_pron_stem!(Third C15 Sg) ++ "uku"++BIND++"nga"++BIND++v.s!R_i ++ vp.inf_s!NFull!Pos
}
} ;
iadv, advs, comp = [] ;
-- ap_comp = \\_ => [] ;
hasComp = True ;
r = v.r ;
syl = v.syl ;
vptype = VNPCompl
} ;
-- ComplVS vs s = vs ** {
-- -- s = vs.s ;
@@ -195,7 +281,10 @@ concrete VerbZul of Verb = CatZul ** open ResZul, Prelude, ParamX in {
-- }
-- } ;
AdvVP vp adv = vp ** { advs = vp.advs ++ adv.s ; hasComp = True } ;
AdvVP vp adv = vp ** {
advs = vp.advs ++ adv.s ;
hasComp = True
} ;
-- {
-- s = vp.s ;
-- oc = vp.oc ;

1
src/zulu/abstract_ext/CatExt.gf
View File

@@ -3,6 +3,7 @@ abstract CatExt = {
cat
Loc ;
LocN ;
LocAdv ;
QuantStem ;
RelStem ;
VAux ;

37
src/zulu/abstract_ext/ExtraExt.gf
View File

@@ -6,6 +6,9 @@ abstract ExtraExt =
ProDrop : Pron -> Pron ; -- unstressed subject pronoun becomes empty: "am tired"
fun
ExistNP : NP -> S ;
GreetSg : Utt ;
GreetPl : Utt ;
-- PotQS : Pol -> QCl -> QS ;
-- SubjunctS : S -> Utt ;
@@ -27,18 +30,29 @@ abstract ExtraExt =
-- PossPronZul : CN -> Pron -> CN ; -- of you (yours)
-- RelV : CN -> V -> Temp -> Pol -> CN ; -- lights that flash
PossLocNP : LocN -> NP -> CN ;
-- PossLocNP : LocN -> NP -> CN ;
PossNPLoc : CN -> NP -> CN ; -- zasepulazini
InstrNPAdv : NP -> Adv ; -- ngokuhlinzwa
InstrAdvNPAdv : Adv -> NP -> Adv ; -- cishe ngehora
LocNPAdv : NP -> Adv ; -- emahoreni
LocAdvNPAdv : Adv -> NP -> Adv ; -- cishe emahoreni
LocAdvNPAdv : Adv -> NP -> Adv ; -- cishe emahoreni amabili
KwaNPAdv : NP -> Adv ; -- kwa-Laurette
-- KwaAdvNPAdv : Adv -> NP -> Adv ; -- ngaphezu kwamahora amabili adlule
-- KwaAdvNPAdv : LocAdv -> NP -> Adv ; -- ngaphezu kwamahora amabili adlule
KuNPAdv : NP -> Adv ; -- kwixesha [elingangeyure enye egqithileyo]
KuAdvNPAdv : Adv -> NP -> Adv ; -- ngaphezu kwamahora amabili adlule
NaNPAdv : NP -> Adv ;
-- LocNAdv : LocN -> Adv ; -- phansi kwetafula
LocAdvAdv : LocAdv -> Adv ;
LocAdvNP : LocAdv -> NP -> LocAdv ; -- ngaphezu kwamahora amabili adlule
LocNAdv : LocN -> LocAdv ;
LocNNgaAdv : LocN -> LocAdv ;
LocNPAdv : NP -> LocAdv ; -- emahoreni
NPAdv : NP -> Adv ; -- sonke lesi sikhathi
-- InstrAdvNP : NP -> NP -> NP ; -- questions about your pregnancy
-- RelAdv : Adv -> RS ;
@@ -60,13 +74,6 @@ abstract ExtraExt =
-- painful_RelStem : RelStem ;
-- sharp_RelStem : RelStem ;
-- TPerfPast : Temp ;
-- TPastPast : Temp ;
-- TPresPres : Temp ;
-- TPastPres : Temp ;
-- TPastPerf : Temp ;
-- TPerfPerf : Temp ;
-- PredNP : NP -> Cl ;
-- IAdvQS : NP -> INAdv -> QS ; -- where is the wine? iwayini liphi?
-- IAdvQCl : NP -> INAdv -> QCl ; -- where is the wine? iwayini liphi?
@@ -121,6 +128,11 @@ abstract ExtraExt =
phakade_LocN : LocN ;
phezulu_LocN : LocN ;
ngemuva_LocAdv : LocAdv ;
emuva_LocAdv : LocAdv ;
ecaleni_LocAdv : LocAdv ;
ngaphezu_LocAdv : LocAdv ;
lapha_Loc : Loc ;
khona_Loc : Loc ;
@@ -130,6 +142,9 @@ abstract ExtraExt =
with_Conj : Conj ;
want_VV : VV ;
prepare_to_VV : VV ;
-- Deverb15 : V -> N ;
-- AdvQS : IAdv -> S -> QS ; -- maybe it is a pain that burns 2020-01-15: consider that this should rather be dealt with using QuestIAdv)

11
src/zulu/abstract_ext/NounExt.gf
View File

@@ -38,10 +38,15 @@ abstract NounExt = Cat,CatExt ** {
UsePNPl : PN -> NP ;
Deverb15 : V -> N ;
Deverb15 : Pol -> VP -> NP ;
-- DeverbV215 : Pol -> V2 -> NP -> NP ;
LocNP : NP -> Loc ;
-- LocNP : NP -> Loc ;
LocNLoc : LocN -> Loc ;
-- LocNLoc : LocN -> Loc ;
-- LocNPossNP : LocN -> NP -> LocN ;
LocAdvLoc : LocAdv -> Loc ;
}

25
src/zulu/abstract_ext/PChunk.gf
View File

@@ -3,11 +3,15 @@ abstract PChunk = Cat, CatExt, Symbol [Symb] ** {
cat
Chunks ;
Chunk ;
Chunk_Phr ;
Chunk_AP ;
Chunk_Adv ;
Chunk_Imp ;
Chunk_S ;
Chunk_RS ;
Chunk_QS ;
Chunk_VP ;
Chunk_V ;
Chunk_CN ;
Chunk_NP ;
Chunk_N ;
@@ -21,11 +25,15 @@ fun
PlusChunk : Chunk -> Chunks -> Chunks ;
ChunkPhr : Chunks -> Phr ;
Phr_Chunker : Chunk_Phr -> Chunk ;
-- AP_Chunker : Chunk_AP -> Chunk ;
Adv_Chunker : Chunk_Adv -> Chunk ;
Imp_Chunker : Chunk_Imp -> Chunk ;
S_Chunker : Chunk_S -> Chunk ;
RS_Chunker : Chunk_RS -> Chunk ;
QS_Chunker : Chunk_QS -> Chunk ;
VP_Chunker : Chunk_VP -> Chunk ;
V_Chunker : Chunk_V -> Chunk ; -- wordnet
CN_Chunker : Chunk_CN -> Chunk ;
NP_Chunker : Chunk_NP -> Chunk ;
N_Chunker : Chunk_N -> Chunk ;
@@ -33,17 +41,24 @@ fun
Postdet_Chunker : Chunk_Postdet -> Chunk ;
Symb_Chunker : Chunk_Symb -> Chunk ;
-- AP_Chunk : AP -> Chunk_AP ;
Phr_Chunk : Phr -> Chunk_Phr ;
AP_Chunk : AP -> Chunk_AP ;
Adv_Chunk : Adv -> Chunk_Adv ;
Imp_Chunk : Imp -> Chunk_Imp ;
S_Chunk : S -> Chunk_S ;
RS_Chunk : RS -> Chunk_RS ;
RS_Chunk : Pron -> RS -> Chunk_RS ;
QS_Chunk : QS -> Chunk_QS ;
VP_RelYo_Chunk : Temp -> Pol -> Pron -> VP -> Chunk_VP ;
VP_Rel_Chunk : Temp -> Pol -> Pron -> VP -> Chunk_VP ;
V_Chunk : V -> Chunk_V ;
CN_Pl_Chunk : CN -> Chunk_CN ;
CN_Sg_Chunk : CN -> Chunk_CN ;
NP_Nom_Chunk : NP -> Chunk_NP ;
NP_Gen_Chunk : NP -> Chunk_NP ;
Predet_Chunk : Predet -> Chunk_Predet ;
Postdet_Chunk : Postdet -> Chunk_Postdet ;
NP_Loc_Chunk : NP -> Chunk_NP ;
NP_Gen_Chunk : Pron -> NP -> Chunk_NP ;
-- NP_Gen_Chunk : NP -> Chunk_NP ;
Predet_Chunk : Pron -> Predet -> Chunk_Predet ;
Postdet_Chunk : Pron -> Postdet -> Chunk_Postdet ;
-- N_Sg_Chunk : N -> Chunk_N ;
-- N_Pl_Chunk : N -> Chunk_N ;

10
src/zulu/abstract_ext/PhraseExt.gf Normal file
View File

@@ -0,0 +1,10 @@
abstract PhraseExt = Cat,CatExt ** {
fun
-- direct speech
DirectSpeech: Phr -> Temp -> V -> NP -> Phr ;
DirectSpeechNP : NP -> Temp -> V -> NP -> Phr ;
DirectSpeechAdv : Adv -> Temp -> V -> NP -> Phr ;
ExtPhrConj : Phr -> Phr -> Phr ;
}

9
src/zulu/abstract_ext/RelativeExt.gf Normal file
View File

@@ -0,0 +1,9 @@
--1 Relative clauses and pronouns
abstract RelativeExt = Cat ** {
fun
RelVPShort : RP -> VP -> RCl ; -- who loves John
}

6
src/zulu/abstract_ext/VerbExt.gf
View File

@@ -5,13 +5,17 @@ abstract VerbExt = Cat,CatExt ** {
CopAP : AP -> VP ;
CopNP : NP -> VP ;
CopNPAssoc : NP -> VP ;
CopLoc : Loc -> VP ;
CopLocative : Loc -> VP ;
CopPoss : NP -> VP ;
CopQuant : QuantStem -> VP ;
-- BecomeAP : AP -> VP ;
-- BecomeNP : NP -> VP ;
-- BecomeNPAssoc : NP -> VP ;
-- BecomeLoc : Loc -> VP ;
UseVStative : V -> VP ;
ComplV2Nonspec : V2 -> NP -> VP ;
}

2
src/zulu/grammar_ext/NguniChunk.gf
View File

@@ -5,7 +5,9 @@ abstract NguniChunk =
Backward[ComplV2,ComplV3],
ExtraExt,
NounExt,
RelativeExt,
VerbExt,
PhraseExt,
-- MonoLexAbs,
PChunk,
Symbol - [Symb]

2
src/zulu/grammar_ext/NguniChunkZul.gf
View File

@@ -5,7 +5,9 @@ concrete NguniChunkZul of NguniChunk =
BackwardZul[ComplV2,ComplV3],
ExtraExtZul,
NounExtZul,
RelativeExtZul,
VerbExtZul,
PhraseExtZul,
-- MonoLexZul,
PChunkZul,
SymbolZul - [Symb]

8
src/zulu/grammar_ext/NguniGrammar.gf
View File

@@ -1,16 +1,16 @@
-- All functions are explicitly inherited, in order to allow useful probabilities
abstract NguniGrammar =
Noun [DetCN, UsePron, DetQuant, NumSg, NumPl, UseN, AdjCN, RelCN, PossNP,UsePN, RelNP, PredetNP], -- MassNP,AdvCN, AdvNP,
Verb [UseV, ComplVS, ComplVA, SlashV2a, UseComp, AdvVP, CompAP, CompNP, CompAdv, ComplSlash],
Noun [DetCN, UsePron, DetQuant, NumSg, NumPl, UseN, AdjCN, RelCN, PossNP,UsePN, RelNP, PredetNP,AdvNP], -- MassNP,AdvCN, AdvNP,
Verb [UseV, ComplVS, ComplVA, SlashV2a, UseComp, AdvVP, CompAP, CompNP, CompAdv, ComplSlash, ComplVV],
Adjective [PositA, AdAP],
Adverb [PositAdvAdj, SubjS],
-- Numeral,
Sentence [PredVP, ImpVP, UseCl, UseQCl, UseRCl],
Sentence [PredVP, ImpVP, UseCl, UseQCl, UseRCl,AdvS],
Question [QuestCl, QuestIAdv, QuestIComp],
Relative [RelVP, IdRP],
-- Conjunction,
Phrase [PhrUtt, UttS, UttQS, UttImpSg, NoPConj, NoVoc],
Phrase [PhrUtt, UttS, UttQS, UttImpSg, NoPConj, NoVoc, VocNP],
Text - [Temp,Adv,IAdv],
Structural [and_Conj,how_IAdv,how8much_IAdv,i_Pron,youSg_Pron,he_Pron,she_Pron,we_Pron,youPl_Pron,they_Pron,this_Quant,that_Quant,all_Predet,only_Predet,very_AdA],
-- Idiom,

8
src/zulu/grammar_ext/NguniGrammarZul.gf
View File

@@ -1,16 +1,16 @@
-- All functions are explicitly inherited, in order to allow useful probabilities
concrete NguniGrammarZul of NguniGrammar =
NounZul [DetCN, UsePron, DetQuant, NumSg, NumPl, UseN, AdjCN, RelCN, PossNP,UsePN, RelNP, PredetNP], -- MassNP, AdvCN,AdvNP,
VerbZul [UseV, ComplVS, ComplVA, SlashV2a, UseComp, AdvVP, CompAP, CompNP, CompAdv, ComplSlash],
NounZul [DetCN, UsePron, DetQuant, NumSg, NumPl, UseN, AdjCN, RelCN, PossNP,UsePN, RelNP, PredetNP,AdvNP], -- MassNP, AdvCN,AdvNP,
VerbZul [UseV, ComplVS, ComplVA, SlashV2a, UseComp, AdvVP, CompAP, CompNP, CompAdv, ComplSlash, ComplVV],
AdjectiveZul [PositA, AdAP],
AdverbZul [PositAdvAdj, SubjS],
-- Numeral,
SentenceZul [PredVP, ImpVP, UseCl, UseQCl, UseRCl],
SentenceZul [PredVP, ImpVP, UseCl, UseQCl, UseRCl,AdvS],
QuestionZul [QuestCl, QuestIAdv, QuestIComp],
RelativeZul [RelVP, IdRP],
-- ConjunctionZul,
PhraseZul [PhrUtt, UttS, UttQS, UttImpSg, NoPConj, NoVoc],
PhraseZul [PhrUtt, UttS, UttQS, UttImpSg, NoPConj, NoVoc, VocNP],
TextX - [Temp,Adv,IAdv],
StructuralZul [and_Conj,how_IAdv,how8much_IAdv,i_Pron,youSg_Pron,he_Pron,she_Pron,we_Pron,youPl_Pron,they_Pron,this_Quant,that_Quant,all_Predet,only_Predet,very_AdA],
-- Idiom,

4
src/zulu/grammar_ext/NguniLang.gf
View File

@@ -5,7 +5,9 @@ abstract NguniLang =
Backward[ComplV2,ComplV3],
ExtraExt,
NounExt,
VerbExt
RelativeExt,
VerbExt,
PhraseExt
-- MonoLexAbs,
-- Chunk
-- Symbol - [Symb],

4
src/zulu/grammar_ext/NguniLangZul.gf
View File

@@ -5,7 +5,9 @@ concrete NguniLangZul of NguniLang =
BackwardZul[ComplV2,ComplV3],
ExtraExtZul,
NounExtZul,
VerbExtZul
RelativeExtZul,
VerbExtZul,
PhraseExtZul
-- MonoLexZul,
-- ChunkZul,
-- SymbolZul - [Symb],

40
src/zulu/lexica/MonoLex.gf
View File

@@ -2877,6 +2877,7 @@ abstract MonoLex = Cat ** {
phothwe_5_6_N : N ;
phoyinti_5_6_N : N ;
phoyisa_5_6_N : N ;
phrojekthi_5_6_N : N ;
phucuko_9_N : N ;
phucuzeko_9_10_N : N ;
phuhle_5_6_N : N ;
@@ -5114,11 +5115,12 @@ zozo_1a_2a_N : N ;
zuka_1a_2a_N : N ;
zulu_1a_2a_N : N ;
zwa_1a_2a_N : N ;
zwekazi_5_6_N : N ;
zwelonke_1a_2a_N : N ;
-- verb roots
ab_V : V ;
ab_V2 : V2 ;
-- ab_V : V ;
-- ab_V2 : V2 ;
aban_V : V ;
aban_V2 : V2 ;
abanelis_V : V ;
@@ -5225,8 +5227,8 @@ zwelonke_1a_2a_N : N ;
aluk_V2 : V2 ;
alus_V : V ;
alus_V2 : V2 ;
amb_V : V ;
amb_V2 : V2 ;
-- amb_V : V ;
-- amb_V2 : V2 ;
amban_V : V ;
amban_V2 : V2 ;
ambanis_V : V ;
@@ -5239,8 +5241,8 @@ zwelonke_1a_2a_N : N ;
ambek_V2 : V2 ;
ambekel_V : V ;
ambekel_V2 : V2 ;
ambel_V : V ;
ambel_V2 : V2 ;
-- ambel_V : V ;
-- ambel_V2 : V2 ;
ambelan_V : V ;
ambelan_V2 : V2 ;
ambelel_V : V ;
@@ -5271,8 +5273,8 @@ zwelonke_1a_2a_N : N ;
amulel_V2 : V2 ;
amulis_V : V ;
amulis_V2 : V2 ;
and_V : V ;
and_V2 : V2 ;
-- and_V : V ;
-- and_V2 : V2 ;
andel_V : V ;
andel_V2 : V2 ;
andelan_V : V ;
@@ -5315,8 +5317,8 @@ zwelonke_1a_2a_N : N ;
anganis_V2 : V2 ;
angek_V : V ;
angek_V2 : V2 ;
angel_V : V ;
angel_V2 : V2 ;
-- angel_V : V ;
-- angel_V2 : V2 ;
angelekelel_V : V ;
angelekelel_V2 : V2 ;
angis_V : V ;
@@ -5325,8 +5327,8 @@ zwelonke_1a_2a_N : N ;
angisan_V2 : V2 ;
any_V : V ;
any_V2 : V2 ;
anyan_V : V ;
anyan_V2 : V2 ;
-- anyan_V : V ;
-- anyan_V2 : V2 ;
anyelel_V : V ;
anyelel_V2 : V2 ;
anyuk_V : V ;
@@ -9221,8 +9223,8 @@ zwelonke_1a_2a_N : N ;
kholis_V2 : V2 ;
kholisek_V : V ;
kholisek_V2 : V2 ;
-- kholw_V : V ;
-- kholw_V2 : V2 ;
kholw_V : V ;
kholw_V2 : V2 ;
khomb_V : V ;
khomb_V2 : V2 ;
khomban_V : V ;
@@ -11931,6 +11933,8 @@ zwelonke_1a_2a_N : N ;
seshis_V2 : V2 ;
seshisek_V : V ;
seshisek_V2 : V2 ;
setshenzisw_V : V ;
setshenzisw_V2 : V2 ;
sev_V : V ;
sev_V2 : V2 ;
sevel_V : V ;
@@ -12287,8 +12291,8 @@ zwelonke_1a_2a_N : N ;
siphuzelis_V2 : V2 ;
sis_V : V ;
sis_V2 : V2 ;
sisek_V : V ;
sisek_V2 : V2 ;
-- sisek_V : V ;
-- sisek_V2 : V2 ;
sisel_V : V ;
sisel_V2 : V2 ;
sising_V : V ;
@@ -16967,8 +16971,8 @@ zwelonke_1a_2a_N : N ;
zuziw_V2 : V2 ;
zuzw_V : V ;
zuzw_V2 : V2 ;
-- zw_V : V ;
-- zw_V2 : V2 ;
zw_V : V ;
zw_V2 : V2 ;
zwisw_V : V ;
zwisw_V2 : V2 ;
zwiw_V : V ;

6420
src/zulu/lexica/MonoLexZul.gf
View File

File diff suppressed because it is too large Load Diff

1
src/zulu/lexica/MultiLex.gf
View File

@@ -1147,5 +1147,4 @@ abstract MultiLex = Cat ** {
-- adjectivals
colourful_R : A ;
big_A : A ;
}