GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-26 19:46:26 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Rename some parameters + add show funs for param names

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-27 17:19:18 +02:00
parent fd6541846f
commit 5f6db51183
6 changed files with 49 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ResHun.gf
+2 -2
View File
@@ -271,7 +271,7 @@ oper
emptyAdp : Adposition = nomAdp [] ;
applyAdp : Adposition -> NounPhrase -> Str = \adp,np ->
adp.pr ++ np.s ! NotPossessed ! adp.c ++ adp.s ;
adp.pr ++ np.s ! NoPoss ! adp.c ++ adp.s ;
applyCase : (Str->Str->Str) -> Case -> Noun -> NumCaseStem -> Str =
\bind,cas,cn,stem -> bind (cn.s ! stem) (endCase cas ! cn.h) ;
@@ -501,7 +501,7 @@ oper
s = \\t,a,p => let subjcase : Case = case vp.sc of {
SCNom => Nom ;
SCDat => Dat }
in np.s ! NotPossessed ! subjcase
in np.s ! NoPoss ! subjcase
++ if_then_Pol p [] "nem"
++ vp.s ! agr2vf np.agr
++ vp.obj -- ! np.agr