resource fixes

This commit is contained in:
aarne
2005-09-17 16:01:52 +00:00
parent 60d7223d34
commit 37f0795288
16 changed files with 119 additions and 278 deletions

View File

@@ -24,13 +24,7 @@ lin
SymbTwo = infixSS "and" ;
SymbMore = infixSS "," ;
LetCN x cn = {
s = \\_ => "let" ++ x.s ++ "be" ++ (indefNounPhrase singular cn).s ! NomP
} ;
LetNumCN x nu cn = {
s = \\_ => "let" ++ x.s ++ "be" ++ (indefNounPhraseNum plural nu cn).s ! NomP
} ;
LetImp x np = {s = \\_ => "let" ++ x.s ! NomP ++ "be" ++ np.s ! NomP} ;
ExistNP np = predVerbClause
(nameNounPhraseN (fromAgr np.a).n (nameReg "there" Neutr))
(regV "exist")

View File

@@ -1195,7 +1195,7 @@ oper
questClause : Clause -> Question = \cl ->
{s = \\b,c => table {
DirQ => cl.s ! Inv ! b ! c ;
IndirQ => cl.s ! Dir ! b ! c
IndirQ => "if" ++ cl.s ! Dir ! b ! c
}
} ;
{- --vg