This commit is contained in:
Aarne Ranta
2023-08-21 19:45:20 +03:00
4 changed files with 14 additions and 14 deletions

View File

@@ -1,5 +1,5 @@
--# -path=.:../abstract:../common:../api --# -path=.:../abstract:../common:../zulu/abstract_ext
concrete AllZul of AllZulAbs = concrete AllZul of AllZulAbs =
CatZul ** { LangZul ** {
} }

View File

@@ -1,5 +1,5 @@
--# -path=.:../abstract:../common:../api --# -path=.:../abstract:../common:../api
abstract AllZulAbs = abstract AllZulAbs =
Cat ** { Lang ** {
} }

View File

@@ -9,7 +9,7 @@ concrete GrammarZul of Grammar =
SentenceZul, SentenceZul,
QuestionZul, QuestionZul,
RelativeZul, RelativeZul,
ConjunctionZul, -- ConjunctionZul,
PhraseZul, PhraseZul,
TextX - [Temp,Adv,IAdv], TextX - [Temp,Adv,IAdv],
StructuralZul, StructuralZul,

View File

@@ -133,12 +133,12 @@ oper
mkV3 : (guqubal,guqubala,guqubele,guqubele_2 : Str) -> V3 = \guqubal,guqubala,guqubele,guqubele_2 -> lin V3 (four_Verb guqubal guqubala guqubele guqubele_2) ; mkV3 : (guqubal,guqubala,guqubele,guqubele_2 : Str) -> V3 = \guqubal,guqubala,guqubele,guqubele_2 -> lin V3 (four_Verb guqubal guqubala guqubele guqubele_2) ;
} ; } ;
mkV2V = overload { -- mkV2V = overload {
mkV2V : (hamb : Str) -> V2V = \hamb -> lin V2V (regVerb hamb) ; -- mkV2V : (hamb : Str) -> V2V = \hamb -> lin V2V (regVerb hamb) ;
mkV2V : (th,thi : Str) -> V2V = \th,thi -> lin V2V (th_Verb th thi) ; -- mkV2V : (th,thi : Str) -> V2V = \th,thi -> lin V2V (th_Verb th thi) ;
mkV2V : (guqubal,guqubala,guqubele : Str) -> V2V = \guqubal,guqubala,guqubele -> lin V2V (three_Verb guqubal guqubala guqubele) ; -- mkV2V : (guqubal,guqubala,guqubele : Str) -> V2V = \guqubal,guqubala,guqubele -> lin V2V (three_Verb guqubal guqubala guqubele) ;
mkV2V : (guqubal,guqubala,guqubele,guqubele_2 : Str) -> V2V = \guqubal,guqubala,guqubele,guqubele_2 -> lin V2V (four_Verb guqubal guqubala guqubele guqubele_2) ; -- mkV2V : (guqubal,guqubala,guqubele,guqubele_2 : Str) -> V2V = \guqubal,guqubala,guqubele,guqubele_2 -> lin V2V (four_Verb guqubal guqubala guqubele guqubele_2) ;
} ; -- } ;
mkVA = overload { mkVA = overload {
mkVA : (b : Str) -> VA = \b -> lin VA (regVerb b) ; mkVA : (b : Str) -> VA = \b -> lin VA (regVerb b) ;
@@ -148,10 +148,10 @@ oper
mkVV : (f : Str) -> VV = \f -> lin VV (regVerb f) mkVV : (f : Str) -> VV = \f -> lin VV (regVerb f)
} ; } ;
mkVS = overload { -- mkVS = overload {
mkVS : (cel : Str) -> SType -> VS = \cel,st -> lin VS ((regVerb cel) ** { s_type = st } ) ; -- mkVS : (cel : Str) -> SType -> VS = \cel,st -> lin VS ((regVerb cel) ** { s_type = st } ) ;
mkVS : (az,azi : Str) -> SType -> VS = \az,azi,st -> lin VS ((th_Verb az azi) ** { s_type = st } ) ; -- mkVS : (az,azi : Str) -> SType -> VS = \az,azi,st -> lin VS ((th_Verb az azi) ** { s_type = st } ) ;
} ; -- } ;
-- yourPl_Det = overload { -- yourPl_Det = overload {
-- yourPl_Det : Det = lin Det { s = "jou" ; n = Pl ; p = TPos } ; -- yourPl_Det : Det = lin Det { s = "jou" ; n = Pl ; p = TPos } ;