-val optimization

This commit is contained in:
aarne
2005-01-11 15:06:12 +00:00
parent 496416d7ab
commit a19856618b
36 changed files with 829 additions and 585 deletions

View File

@@ -69,7 +69,7 @@ lin
OtherwiseAdv = ss "altramente" ;
ThereforeAdv = ss "quindi" ;
EverybodyNP = mkNameNounPhrase ["tutti"] Masc ;
EverybodyNP = normalNounPhrase (\\c => prepCase c ++ "tutti") Masc Pl ;
SomebodyNP = mkNameNounPhrase ["qualcuno"] Masc ;
NobodyNP = mkNameNounPhrase ["nessuno"] Masc ; --- ne
EverythingNP = mkNameNounPhrase ["tutto"] Masc ;

View File

@@ -71,7 +71,7 @@ lin
OtherwiseAdv = ss "otramente" ;
ThereforeAdv = ss ["por eso"] ;
EverybodyNP = mkNameNounPhrase ["todos"] Masc ;
EverybodyNP = normalNounPhrase (\\c => prepCase c ++ "todos") Masc Pl ;
SomebodyNP = mkNameNounPhrase ["algún"] Masc ;
NobodyNP = mkNameNounPhrase ["nadién"] Masc ; --- ne
EverythingNP = mkNameNounPhrase ["todo"] Masc ;

View File

@@ -36,7 +36,7 @@ lin
SwitchOn = mkTransVerbDir (verbPres (vender_4 "enciender") AHabere) ; ----
SwitchOff = mkTransVerbDir (verbPres (zurrar_3 "apagar") AHabere) ;
Mother = funGen (mkCNom (nomVino "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "zio") Masc) ;
Uncle = funGen (mkCNom (nomVino "o") Masc) ;
Connection = mkCNom (nomPilar "connexión") Fem **
{s2 = [] ; c = CPrep P_de ; s3 = [] ; c3 = dative} ;

View File

@@ -117,7 +117,7 @@ oper
VFin VFut n p => amare.s ! VP (Fut Ind n p) ;
VFin VCondit n p => amare.s ! VP (Cond n p) ;
VImper np => amare.s ! VP (Imp Sg P2) ; ---- n p ;
VPart g n => amare.s ! VI Part ---- g n ?
VPart g n => amare.s ! VP (Pass n g)
} ;
aux = a
} ;