mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 14:29:31 -06:00
47 lines
2.0 KiB
Plaintext
47 lines
2.0 KiB
Plaintext
--# -path=.:../romance:../abstract:../../prelude
|
|
|
|
concrete TestResourceFre of TestResource = StructuralFre ** open Prelude, TypesFre, MorphoFre, SyntaxFre in {
|
|
|
|
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
|
|
|
|
lin
|
|
Big = mkAdjDegrReg "grand" adjPre ;
|
|
American = mkAdjective (adjGrand "américain") adjPost ;
|
|
Finnish = mkAdjective (adjGrand "finlandais") adjPost ;
|
|
Married = mkAdjCompl (adjJoli "marié") adjPost (complementCas dative) ;
|
|
Small = mkAdjDegrReg "petit" adjPre ;
|
|
Old = mkAdjDegrLong (mkAdj "vieux" "vieux" "vieille" "vieillement") adjPre ;
|
|
Young = mkAdjDegrLong (adjJeune "jeune") adjPre ;
|
|
Happy = mkAdjDegrLong (adjHeureux "heureux") adjPre ;
|
|
Wine = mkCNomReg "vin" Masc ;
|
|
Bar = mkCNomReg "bar" Masc ;
|
|
Man = mkCNomReg "homme" Masc ;
|
|
Woman = mkCNomReg "femme" Fem ;
|
|
Car = mkCNomReg "voiture" Fem ;
|
|
Light = mkCNomReg "lumière" Fem ;
|
|
House = mkCNomReg "maison" Fem ;
|
|
Bottle = mkCNomReg "bouteille" Fem ;
|
|
Walk = verbPres (conj1aimer "marcher") ;
|
|
Run = verbPres (conj3courir "courir") ;
|
|
Send = mkTransVerbDir (verbPres (conj1envoyer "envoyer")) ;
|
|
Love = mkTransVerbDir (verbPres (conj1aimer "aimer")) ;
|
|
Drink = mkTransVerbDir (verbPres (conj3boire "boire")) ;
|
|
Wait = mkTransVerbDir (verbPres (conj3rendre "attendre")) ;
|
|
Give = mkDitransVerb (verbPres (conj1aimer "donner")) [] dative [] accusative ;
|
|
Prefer = mkDitransVerb (verbPres (conj1aimer "preférer")) [] accusative [] dative ;
|
|
Say = verbSent (verbPres (conj3dire "dire")) Ind Ind ;
|
|
Prove = verbSent (verbPres (conj1aimer "démontrer")) Ind Ind ;
|
|
SwitchOn = mkTransVerbDir (verbPres (conj1aimer "allumer")) ;
|
|
SwitchOff = mkTransVerbDir (verbPres (conj3peindre "éteindre")) ;
|
|
Mother = funDe (mkCNomReg "mère" Fem) ;
|
|
Uncle = funDe (mkCNomReg "oncle" Masc) ;
|
|
Connection = mkCNomReg "connection" Fem **
|
|
{s2 = [] ; c = genitive ; s3 = [] ; c3 = dative} ;
|
|
|
|
Well = ss "bien" ;
|
|
Always = ss "toujours" ;
|
|
|
|
John = mkProperName "Jean" Masc ;
|
|
Mary = mkProperName "Marie" Fem ;
|
|
}
|