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

(Hun) Restrict subject case to only Nom and Dat

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-30 15:03:37 +02:00
parent 268af14dd3
commit ef0cca5463
2 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/hungarian/ResHun.gf
View File

@@ -181,7 +181,7 @@ oper
Verb : Type = { Verb : Type = {
s : VForm => Str ; s : VForm => Str ;
sc : Case ; -- subject case sc : SubjCase ; -- subject case
} ; } ;
Verb2 : Type = Verb ** { Verb2 : Type = Verb ** {
c2 : Case -- object case c2 : Case -- object case
@@ -218,7 +218,7 @@ oper
VFin P2 Pl => pl2 ; VFin P2 Pl => pl2 ;
VFin P3 Pl => pl3 VFin P3 Pl => pl3
} ; } ;
sc = Nom sc = SCNom
} ; } ;
copula : Verb = mkVerbFull copula : Verb = mkVerbFull
@@ -274,8 +274,11 @@ oper
Sentence : Type = {s : Str} ; Sentence : Type = {s : Str} ;
predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp -> vp ** { predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp -> vp ** {
s = \\t,a,p => s = \\t,a,p => let subjcase : Case = case vp.sc of {
np.s ! vp.sc SCNom => Nom ;
SCDat => Dat }
in np.s ! subjcase
++ np.empty -- standard trick for prodrop
++ vp.obj ++ vp.obj
++ vp.adv ++ vp.adv
++ vp.s ! agr2vf np.agr ++ vp.s ! agr2vf np.agr

5
src/hungarian/StructuralHun.gf
View File

@@ -149,12 +149,11 @@ lin language_title_Utt = ss "magyar" ;
lin no_Utt = ss "nem" ; lin no_Utt = ss "nem" ;
lin yes_Utt = ss "igen" ; lin yes_Utt = ss "igen" ;
{-
------- -------
-- Verb -- Verb
lin have_V2 = vtov2 copula ** {sc = ??}; lin have_V2 = vtov2 copula ** {sc = SCDat ; c2 = Nom} ;
lin can8know_VV = can_VV ; -- can (capacity) {-lin can8know_VV = can_VV ; -- can (capacity)
lin can_VV = mkVV "" ; -- can (possibility) lin can_VV = mkVV "" ; -- can (possibility)
lin must_VV = mkVV "" ; lin must_VV = mkVV "" ;
lin want_VV = mkVV "" subjunctive ; lin want_VV = mkVV "" subjunctive ;