Uncommented large functions

This commit is contained in:
lauma
2025-08-25 17:19:40 +03:00
parent 943f387a23
commit e4cf12ee1a
2 changed files with 5 additions and 5 deletions

View File

@@ -18,7 +18,7 @@ lin
ImpVP vp = { s = \\pol,num => vp.v.s ! pol ! (VImp num) ++ vp.compl ! (AgrP2 num Masc) } ; 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 -- FIX ME tmp comment
AdvSlash slash adv = { AdvSlash slash adv = {

View File

@@ -182,7 +182,7 @@ lin
-- VPSlash -> NP -> VP -- VPSlash -> NP -> VP
-- e.g. 'love it' -- e.g. 'love it'
{- ComplSlash vpslash np = ComplSlash vpslash np =
let agr : Agreement = np.agr in { let agr : Agreement = np.agr in {
v = vpslash.v ; v = vpslash.v ;
-- compl = \\agr => case vpslash.voice of { -- compl = \\agr => case vpslash.voice of {
@@ -202,7 +202,7 @@ lin
rightPol = np.pol ; rightPol = np.pol ;
objPron = np.isPron ; objPron = np.isPron ;
rightVal = vpslash.rightVal rightVal = vpslash.rightVal
} ; -} -- FIX ME tmp comment } ; -- FIX ME tmp comment
-- VV -> VPSlash -> VPSlash -- VV -> VPSlash -> VPSlash
-- e.g. 'want to buy' -- e.g. 'want to buy'
@@ -219,7 +219,7 @@ lin
-- V2V -> NP -> VPSlash -> VPSlash -- V2V -> NP -> VPSlash -> VPSlash
-- e.g. '-- beg me to buy' -- 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)) (\\_ => v2v.rightVal.s ++ np.s ! (v2v.rightVal.c ! (fromAgr np.agr).num))
{ {
v = v2v ; v = v2v ;
@@ -230,7 +230,7 @@ lin
rightPol = np.pol ; rightPol = np.pol ;
objPron = np.isPron ; objPron = np.isPron ;
rightVal = v2v.rightVal rightVal = v2v.rightVal
} ; -} -- FIX ME tmp comment } ; -- FIX ME tmp comment
-- Other ways of forming verb phrases -- Other ways of forming verb phrases