forked from GitHub/gf-core
webalt0812
This commit is contained in:
@@ -1317,7 +1317,7 @@ oper
|
||||
-- "What do you want to do? - Wash myself."
|
||||
|
||||
verbUtterance : VerbPhrase -> Utterance = \vp ->
|
||||
ss (vp.s1 ++ vp.s ! VIInfinit ! ASgP1) ;
|
||||
ss (vp.s1 ++ vp.s ! VIInfinit ! ASgP1 ++ ".") ;
|
||||
|
||||
|
||||
--2 Sentence adverbs
|
||||
|
||||
@@ -187,7 +187,7 @@ concrete ClauseFin of Clause = CategoriesFin **
|
||||
(insertObjectInf (mkClauseInf verb) verb.c verb.s3 verb.p y)
|
||||
verb.c2 verb.s5 verb.p2 z ;
|
||||
IPredVS verb sent =
|
||||
insertComplementInf (mkClauseInf verb) sent.s ;
|
||||
insertComplementInf (mkClauseInf verb) (embedConj ++ sent.s) ;
|
||||
IPredVQ verb quest =
|
||||
insertComplementInf (mkClauseInf verb) quest.s ;
|
||||
|
||||
|
||||
@@ -63,7 +63,7 @@ lin
|
||||
PredAS adj sent = sats2clause (
|
||||
insertComplement
|
||||
(mkSats impersNounPhrase (vNom verbOlla))
|
||||
(complAdjPhrase Sg (adj2adjPhrase adj) ++ sent.s)
|
||||
((adj2adjPhrase adj).s ! APred ! AN (NCase Sg Part) ++ embedConj ++ sent.s)
|
||||
) ;
|
||||
PredV0 rain = sats2clause (mkSats impersNounPhrase (vNom rain)) ;
|
||||
|
||||
|
||||
@@ -882,7 +882,7 @@ oper
|
||||
questClause : Clause -> Question = \cl ->
|
||||
{s = \\b,c => table {
|
||||
DirQ => cl.s ! b ! c ;
|
||||
IndirQ => cl.s ! b ! c
|
||||
IndirQ => siSubj.s ++ cl.s ! b ! c
|
||||
}
|
||||
} ;
|
||||
|
||||
@@ -1174,7 +1174,7 @@ oper
|
||||
useNounPhrase (indefNounPhrase n mec) ;
|
||||
|
||||
verbUtterance : VerbPhrase -> Utterance = \vp ->
|
||||
ss (vp.s ! VIInfinit ! Masc ! Sg ! P3) ;
|
||||
ss (vp.s ! VIInfinit ! Masc ! Sg ! P3 ++ ".") ;
|
||||
|
||||
|
||||
-- one-form variants
|
||||
|
||||
@@ -1346,7 +1346,7 @@ oper
|
||||
in
|
||||
table {
|
||||
DirQ => dusov ! Inv ;
|
||||
IndirQ => dusov ! Sub
|
||||
IndirQ => (strPrep CPom) ++ dusov ! Sub
|
||||
}
|
||||
} ;
|
||||
|
||||
|
||||
@@ -75,7 +75,7 @@ lin
|
||||
factory_N = regN "fábrica" ;
|
||||
father_N2 = deN2 (regN "padre") ;
|
||||
fear_VS = mkVS (regV "temer") ;
|
||||
find_V2 = dirV2 (regV "encontrar") ;
|
||||
find_V2 = dirV2 (verboV (encontrar_38 "encontrar")) ;
|
||||
fish_N = mascN (regN "pez") ;
|
||||
floor_N = regN "suelo" ; -- piso
|
||||
forget_V2 = dirV2 (regV "olvidar") ;
|
||||
|
||||
Reference in New Issue
Block a user