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