1
0
forked from GitHub/gf-core

webalt0812

This commit is contained in:
alaine
2005-12-08 07:52:57 +00:00
parent 03ff170d43
commit d7759ffbb4
6 changed files with 7 additions and 7 deletions

View File

@@ -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

View File

@@ -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 ;

View File

@@ -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)) ;

View File

@@ -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

View File

@@ -1346,7 +1346,7 @@ oper
in
table {
DirQ => dusov ! Inv ;
IndirQ => dusov ! Sub
IndirQ => (strPrep CPom) ++ dusov ! Sub
}
} ;

View File

@@ -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") ;