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

(Hun) Add negation in verbs + change some parameter names

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-21 10:44:32 +02:00
parent 53bc773db6
commit 1dcb4720d1
3 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/ParamHun.gf
+9 -2
View File
@@ -1,5 +1,12 @@
resource ParamHun = ParamX ** open Prelude in {
--------------------------------------------------------------------------------
-- Generic
oper
if_then_Pol : Polarity -> Str -> Str -> Str = \p,t,f ->
case p of {Pos => t ; Neg => f } ;
--------------------------------------------------------------------------------
-- Phonology
@@ -88,13 +95,13 @@ param
VForm =
VInf
| VFin Person Number ;
| VPres Person Number ;
oper
agr2vf : Person*Number -> VForm = \pn ->
case <pn.p1,pn.p2> of {
<p,n> => VFin p n
<p,n> => VPres p n
} ;
--------------------------------------------------------------------------------