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

Noun stemchanges for the Lav remake.

Browse Source
This commit is contained in:
lauma
2025-08-25 17:17:51 +03:00
parent 04df53a17a
commit 943f387a23
8 changed files with 107 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/latvian/VerbLav.gf
+12 -13
View File
@@ -182,18 +182,17 @@ lin
-- VPSlash -> NP -> VP
-- e.g. 'love it'
ComplSlash vpslash np =
{- ComplSlash vpslash np =
let agr : Agreement = np.agr in {
v = vpslash.v ;
{-
compl = \\agr => case vpslash.voice of {
Act => vpslash.rightVal.s ++ np.s ! (vpslash.rightVal.c ! (fromAgr agr).num) ;
Pass => case vpslash.rightVal.c ! (fromAgr agr).num of {
Nom => np.s ! (vpslash.rightVal.c ! Sg) ;
_ => vpslash.rightVal.s ++ np.s ! (vpslash.rightVal.c ! (fromAgr agr).num)
}
} ++ vpslash.compl ! agr ;
-}
-- compl = \\agr => case vpslash.voice of {
-- Act => vpslash.rightVal.s ++ np.s ! (vpslash.rightVal.c ! (fromAgr agr).num) ;
-- Pass => case vpslash.rightVal.c ! (fromAgr agr).num of {
-- Nom => np.s ! (vpslash.rightVal.c ! Sg) ;
-- _ => vpslash.rightVal.s ++ np.s ! (vpslash.rightVal.c ! (fromAgr agr).num)
-- }
-- } ++ vpslash.compl ! agr ;
compl = \\agr => vpslash.rightVal.s ++
np.s ! (vpslash.rightVal.c ! (fromAgr agr).num) ++
vpslash.compl ! agr ;
@@ -203,7 +202,7 @@ lin
rightPol = np.pol ;
objPron = np.isPron ;
rightVal = vpslash.rightVal
} ;
} ; -} -- FIX ME tmp comment
-- VV -> VPSlash -> VPSlash
-- e.g. 'want to buy'
@@ -220,7 +219,7 @@ lin
-- V2V -> NP -> VPSlash -> VPSlash
-- e.g. '-- beg me to buy'
SlashV2VNP v2v np vpslash = insertObjSlash
{- SlashV2VNP v2v np vpslash = insertObjSlash
(\\_ => v2v.rightVal.s ++ np.s ! (v2v.rightVal.c ! (fromAgr np.agr).num))
{
v = v2v ;
@@ -231,7 +230,7 @@ lin
rightPol = np.pol ;
objPron = np.isPron ;
rightVal = v2v.rightVal
} ;
} ; -} -- FIX ME tmp comment
-- Other ways of forming verb phrases