mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-15 07:49:31 -06:00
49 lines
2.2 KiB
Plaintext
49 lines
2.2 KiB
Plaintext
--# -path=.:../romance:../abstract:../../prelude
|
|
|
|
concrete TestResourceSpa of TestResource =
|
|
RulesSpa, ClauseSpa, StructuralSpa ** open Prelude, TypesSpa,
|
|
MorphoSpa, BeschSpa, SyntaxSpa in {
|
|
|
|
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
|
|
|
|
lin
|
|
Big = mkAdjDegrUtil "grande" "grandes"adjPre ;
|
|
Small = mkAdjDegrSolo "pequeño" adjPre ;
|
|
Old = mkAdjDegrSolo "viejo" adjPre ;
|
|
Young = mkAdjDegrUtil "joven" "jovenes"adjPre ;
|
|
Happy = mkAdjDegrUtil "feliz" "felices" adjPost ;
|
|
American = mkAdjective (adjSolo "americano") adjPost ;
|
|
Finnish = mkAdjective (adjUtil "finlandes" "finlandeses") adjPost ;
|
|
Married = mkAdjCompl (adjSolo "casado") adjPost {s2 = "con" ; c = accusative} ;
|
|
Man = mkCNom (nomVino "hombre") Masc ;
|
|
Woman = mkCNom (nomPilar "mujer") Fem ;
|
|
Car = mkCNom (nomVino "coche") Masc ;
|
|
Light = mkCNom (numForms "luz" "luces") Fem ;
|
|
House = mkCNom (nomVino "casa") Fem ;
|
|
Wine = mkCNom (nomVino "vino") Masc ;
|
|
Bottle = mkCNom (nomVino "botella") Fem ;
|
|
Bar = mkCNom (nomTram "bar") Masc ;
|
|
Walk = verbPres (cortar_5 "pasear") AHabere ;
|
|
---- Run = (verbPres (correre_41 "correre") AHabere) ;
|
|
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 (vivir_7 "preferir") AHabere) [] accusative [] dative ;
|
|
---- Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
|
|
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 **
|
|
{s2 = [] ; c = CPrep P_de ; s3 = [] ; c3 = dative} ;
|
|
|
|
Well = ss "bien" ;
|
|
Always = ss "siempre" ;
|
|
|
|
John = mkProperName "Juan" Masc ;
|
|
Mary = mkProperName "Maria" Fem ;
|
|
}
|