From e4cf12ee1a8eff2e0da91ef963065794484f9d7a Mon Sep 17 00:00:00 2001 From: lauma Date: Mon, 25 Aug 2025 17:19:40 +0300 Subject: [PATCH] Uncommented large functions --- src/latvian/SentenceLav.gf | 2 +- src/latvian/VerbLav.gf | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/latvian/SentenceLav.gf b/src/latvian/SentenceLav.gf index 53232b32..a630ee5c 100644 --- a/src/latvian/SentenceLav.gf +++ b/src/latvian/SentenceLav.gf @@ -18,7 +18,7 @@ lin ImpVP vp = { s = \\pol,num => vp.v.s ! pol ! (VImp num) ++ vp.compl ! (AgrP2 num Masc) } ; - -- SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ; + SlashVP np vp = mkClause np vp ** { prep = vp.rightVal } ; -- FIX ME tmp comment AdvSlash slash adv = { diff --git a/src/latvian/VerbLav.gf b/src/latvian/VerbLav.gf index 0bf012e3..7933f796 100644 --- a/src/latvian/VerbLav.gf +++ b/src/latvian/VerbLav.gf @@ -182,7 +182,7 @@ 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 { @@ -202,7 +202,7 @@ lin rightPol = np.pol ; objPron = np.isPron ; rightVal = vpslash.rightVal - } ; -} -- FIX ME tmp comment + } ; -- FIX ME tmp comment -- VV -> VPSlash -> VPSlash -- e.g. 'want to buy' @@ -219,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 ; @@ -230,7 +230,7 @@ lin rightPol = np.pol ; objPron = np.isPron ; rightVal = v2v.rightVal - } ; -} -- FIX ME tmp comment + } ; -- FIX ME tmp comment -- Other ways of forming verb phrases