added Spanish and Italian existentials

This commit is contained in:
aarne
2005-04-12 15:47:23 +00:00
parent 8376ef3653
commit 99582672cb
7 changed files with 95 additions and 19 deletions

View File

@@ -1,7 +1,8 @@
--# -path=.:../romance:../oldabstract:../abstract:../../prelude
--# -path=.:../romance:../abstract:../../prelude
concrete TestResourceSpa of TestResource =
RulesSpa, StructuralSpa ** open Prelude, TypesSpa, MorphoSpa, SyntaxSpa in {
RulesSpa, ClauseSpa, StructuralSpa ** open Prelude, TypesSpa,
MorphoSpa, BeschSpa, SyntaxSpa in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
@@ -18,23 +19,22 @@ lin
Woman = mkCNom (nomPilar "mujer") Fem ;
Car = mkCNom (nomVino "coche") Masc ;
Light = mkCNom (numForms "luz" "luces") Fem ;
Level = mkCNom (nomPilar "nivel") Masc ;
House = mkCNom (nomVino "casa") Fem ;
Wine = mkCNom (nomVino "vino") Masc ;
Bottle = mkCNom (nomVino "botella") Fem ;
Bar = mkCNom (nomTram "bar") Masc ;
Walk = verbPres (zurrar_3 "pasear") AHabere ;
Walk = verbPres (cortar_5 "pasear") AHabere ;
---- Run = (verbPres (correre_41 "correre") AHabere) ;
Send = mkTransVerbDir (verbPres (zurrar_3 "mandar") AHabere) ;
Love = mkTransVerbDir (verbPres (zurrar_3 "amar") AHabere) ;
Wait = mkTransVerbCas (verbPres (zurrar_3 "esperar") AHabere) dative ;
Send = mkTransVerbDir (verbPres (cortar_5 "mandar") AHabere) ;
Love = mkTransVerbDir (verbPres (cortar_5 "amar") AHabere) ;
Wait = mkTransVerbCas (verbPres (cortar_5 "esperar") AHabere) dative ;
---- Drink = mkTransVerbDir (verbPres (bere_29 "bere") AHabere) ;
---- Give = mkDitransVerb (verbPres (dare_17 "dare") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (zurrir_5 "preferir") AHabere) [] accusative [] dative ;
Prefer = mkDitransVerb (verbPres (vivir_7 "preferir") AHabere) [] accusative [] dative ;
---- Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (zurrar_3 "demonstrar") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (vender_4 "enciender") AHabere) ; ----
SwitchOff = mkTransVerbDir (verbPres (zurrar_3 "apagar") AHabere) ;
Prove = verbSent (verbPres (cortar_5 "demonstrar") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (deber_6 "enciender") AHabere) ; ----
SwitchOff = mkTransVerbDir (verbPres (cortar_5 "apagar") AHabere) ;
Mother = funGen (mkCNom (nomVino "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "tío") Masc) ;
Connection = mkCNom (nomPilar "connexión") Fem **