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

(Hun) Add UttIP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-18 08:15:20 +02:00
parent 0a21ed5e5e
commit f26b10a8b3
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/hungarian/MissingHun.gf
View File

@@ -104,7 +104,6 @@ oper Use3N3 : N3 -> N2 = notYet "Use3N3" ;
oper UseQCl : Temp -> Pol -> QCl -> QS = notYet "UseQCl" ; oper UseQCl : Temp -> Pol -> QCl -> QS = notYet "UseQCl" ;
oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ; oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ;
oper UttIAdv : IAdv -> Utt = notYet "UttIAdv" ; oper UttIAdv : IAdv -> Utt = notYet "UttIAdv" ;
oper UttIP : IP -> Utt = notYet "UttIP" ;
oper UttImpPl : Pol -> Imp -> Utt = notYet "UttImpPl" ; oper UttImpPl : Pol -> Imp -> Utt = notYet "UttImpPl" ;
oper UttImpPol : Pol -> Imp -> Utt = notYet "UttImpPol" ; oper UttImpPol : Pol -> Imp -> Utt = notYet "UttImpPol" ;
oper UttImpSg : Pol -> Imp -> Utt = notYet "UttImpSg" ; oper UttImpSg : Pol -> Imp -> Utt = notYet "UttImpSg" ;

5
src/hungarian/PhraseHun.gf
View File

@@ -10,10 +10,9 @@ concrete PhraseHun of Phrase = CatHun ** open Prelude, ResHun in {
UttImpSg pol imp = UttImpSg pol imp =
UttImpPl pol imp = UttImpPl pol imp =
UttImpPol = UttImpSg ; UttImpPol = UttImpSg ;
UttIP ip = {s = ip.s ! } ;
-} -}
UttNP np = {s = np.s ! Nom} ; UttIP,
UttNP = \np -> {s = np.s ! Nom} ;
UttVP vp = {s = vp.obj ++ vp.adv ++ vp.s ! VInf} ; UttVP vp = {s = vp.obj ++ vp.adv ++ vp.s ! VInf} ;
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN cn = {s = cn.s ! Sg ! Nom} ; UttCN cn = {s = cn.s ! Sg ! Nom} ;