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

(Hun) Remove unused code

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-25 14:02:35 +02:00
parent f24d9c2cad
commit 234f74b6b0
1 changed files with 0 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/hungarian/ResHun.gf
View File

@@ -480,24 +480,6 @@ oper
adv = [] ; adv = [] ;
} ; } ;
-- insertObj : VPSlash -> NounPhrase -> VerbPhrase = \vps,np -> vps ** {
-- obj = np.s ! vps.c2 ;
--
-- -- If verb's subject case is Dat and object Nom, verb agrees with obj.
-- s = \\vf =>
-- let pron : Pronoun = case vf of {
-- VPres p n => pronTable ! <p,n> ;
-- _ => pronTable ! <P3,Sg> } ;
-- num : Num = case np.a.p2 of {
-- Sg => NumSg ; Pl => NumPl } ;
-- det : Determiner = DetQuant (PossPron pron) num ;
--
-- }
-- in case <vps.sc,vps.c2> of {
-- <SCDat,Nom> => vps.s ! np.objdef ! agr2vf np.agr ;
-- _ => vps.s ! np.objdef ! vf } ;
-- } ;
insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ; insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ;
insertAdvSlash : VPSlash -> SS -> VPSlash = \vps,adv -> vps ** {adv = adv.s} ; insertAdvSlash : VPSlash -> SS -> VPSlash = \vps,adv -> vps ** {adv = adv.s} ;
@@ -535,10 +517,6 @@ oper
RP : Type = {s : Number => Case => Str} ; RP : Type = {s : Number => Case => Str} ;
RClause : Type = {s : Tense => Anteriority => Polarity => Number => Case => Str} ; RClause : Type = {s : Tense => Anteriority => Polarity => Number => Case => Str} ;
np2rp : NounPhrase -> RP ** {agr : Person*Number} = \np -> np ** {
s = \\n => np.s ;
} ;
relVP : RP -> VerbPhrase -> RClause = \rp -> relVP' (rp ** {agr=<P3,Sg>}) ; relVP : RP -> VerbPhrase -> RClause = \rp -> relVP' (rp ** {agr=<P3,Sg>}) ;
relVP' : RP ** {agr : Person*Number} -> VerbPhrase -> RClause = \rp,vp -> { relVP' : RP ** {agr : Person*Number} -> VerbPhrase -> RClause = \rp,vp -> {