GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

(zul) fix for relative agreement morpheme

Browse Source
This commit is contained in:
Laurette Marais
2022-06-14 15:08:56 +02:00
parent f2c1fede4f
commit 41de2cc021
2 changed files with 31 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
src/zulu/ResZul.gf
View File

@@ -738,10 +738,12 @@ resource ResZul = open Prelude,Predef,ParamX in {
} ;
adjPref : Agr -> VForm -> Str = \agr,vform -> case vform of {
VFIndic RelCl Pos PresTense => case agr of {
(First Sg | Second Sg | Third C1_2 Sg | Third C1a_2a Sg | Third C3_4 Sg) => "m"++BIND ;
(First Pl | Second Pl | Third _ _) => []
} ;
-- VFIndic RelCl Pos PresTense => case agr of {
-- -- (First Sg | Second Sg | Third C1_2 Sg | Third C1a_2a Sg | Third C3_4 Sg) => "m"++BIND ;
-- -- Third C3_4 Pl => "mi" ++BIND ;
-- -- (First Pl | Second Pl | Third _ _) => []
-- relAdjPrefLookup!agr
-- } ;
VFIndic _ _ _ => adjPrefLookup!agr!vform
} ;
@@ -1403,7 +1405,7 @@ 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 ++BIND --++ subjConcLookup!a!SCRP
(First _ | Second _ | Third _ _ ) => shortRelConc!a --++ subjConcLookup!a!SCRP
}
} ;
@@ -1521,29 +1523,29 @@ resource ResZul = open Prelude,Predef,ParamX in {
shortRelConc : Agr => Str =
table {
Third C1_2 Sg => "o" ;
Third C1_2 Pl => "a" ;
Third C1a_2a Sg => "o" ;
Third C1a_2a Pl => "a" ;
Third C3_4 Sg => "o" ;
Third C3_4 Pl => "e" ;
Third C5_6 Sg => "e" ;
Third C5_6 Pl => "a" ;
Third C7_8 Sg => "e" ;
Third C7_8 Pl => "e" ;
Third C9_10 Sg => "e" ;
Third C9_10 Pl => "e" ;
Third C11_10 Sg => "o" ;
Third C11_10 Pl => "e" ;
Third C9_6 Sg => "e" ;
Third C9_6 Pl => "a" ;
Third C14 _ => "o" ;
Third C15 _ => "o" ;
Third C17 _ => "o" ;
First Sg => "e" ;
First Pl => "e" ;
Second Sg => "o" ;
Second Pl => "e"
Third C1_2 Sg => "o" ++BIND ;
Third C1_2 Pl => "a" ++BIND ;
Third C1a_2a Sg => "o" ++BIND ;
Third C1a_2a Pl => "a" ++BIND ;
Third C3_4 Sg => "o" ++BIND ;
Third C3_4 Pl => "e" ++BIND ;
Third C5_6 Sg => "e" ++BIND ;
Third C5_6 Pl => "a" ++BIND ;
Third C7_8 Sg => "e" ++BIND ;
Third C7_8 Pl => "e" ++BIND ;
Third C9_10 Sg => "e" ++BIND ;
Third C9_10 Pl => "e" ++BIND ;
Third C11_10 Sg => "o" ++BIND ;
Third C11_10 Pl => "e" ++BIND ;
Third C9_6 Sg => "e" ++BIND ;
Third C9_6 Pl => "a" ++BIND ;
Third C14 _ => "o" ++BIND ;
Third C15 _ => "o" ++BIND ;
Third C17 _ => "o" ++BIND ;
First Sg => "e" ++BIND ;
First Pl => "e" ++BIND ;
Second Sg => "o" ++BIND ;
Second Pl => "e" ++BIND
} ;
-- POSSESSIVE ANTECEDENT AGREEMENT MORPHEME --

2
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 = (relConcCop vform a RC) ; -- o-
rcp = shortRelConc!a ; -- 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