mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
61 lines
2.4 KiB
Plaintext
61 lines
2.4 KiB
Plaintext
-- use this path to read the grammar from the same directory
|
|
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete TestResourceFin of TestResource =
|
|
StructuralFin ** open Prelude, SyntaxFin in {
|
|
|
|
flags startcat=Phr ; lexer=unglue ; unlexer=glue ;
|
|
|
|
-- a random sample from the lexicon
|
|
|
|
lin
|
|
Big = regAdjDegr (sTalo "iso") "isompaa" "isointa" ;
|
|
Small = regAdjDegr (sSusi "pieni" "pienen" "pienenä") "pienempää" "pienintä" ;
|
|
Old = regAdjDegr (sKukko "vanha" "vanhan" "vanhoja") "vanhempaa" "vanhinta" ;
|
|
Young = regAdjDegr (sSusi "nuori" "nuoren" "nuorena") "nuorempaa" "nuorinta" ;
|
|
American = noun2adj (sNainen "amerikkalaista") ;
|
|
Finnish = noun2adj (sNainen "suomalaista") ;
|
|
Happy = regAdjDegr (sNainen "onnellista") "onnellisempaa" "onnellisinta" ;
|
|
|
|
Married = noun2adj (sKukko "vihitty" "vihityn" "vihittyjä") ** {c = NPCase Illat} ;
|
|
--- naimisissa !
|
|
|
|
Man = cnHum (mkNoun "mies" "miehen" "miehenä" "miestä" "mieheen" "miehinä"
|
|
"miehissä" "miesten" "miehiä" "miehiin") ;
|
|
Woman = cnHum (sNainen "naista") ;
|
|
Bottle = cnNoHum (sTalo "pullo") ;
|
|
Car = cnNoHum (sTalo "auto") ;
|
|
House = cnNoHum (sTalo "talo") ;
|
|
Bar = cnNoHum (sBaari "baaria") ;
|
|
Wine = cnNoHum (sBaari "viiniä") ;
|
|
Light = cnNoHum (sTalo "valo") ;
|
|
|
|
Walk = vJuosta "kävellä" "kävelen" ;
|
|
Run = vJuosta "juosta" "juoksen" ;
|
|
Say = vSanoa "sanoa" ;
|
|
Prove = vPoistaa "todistaa" ;
|
|
Send = mkTransVerbDir (vOttaa "lähettää" "lähetän") ;
|
|
Drink = mkTransVerbDir (vJuoda "juoda") ;
|
|
Love = mkTransVerbCase (vPoistaa "rakastaa") Part ;
|
|
Wait = mkTransVerbCase (vOttaa "odottaa" "odotan") Part ;
|
|
Give = mkTransVerbDir (vOttaa "antaa" "annan") **
|
|
{s5 = [] ; s6 = [] ; c2 = CCase Allat} ;
|
|
Prefer = mkTransVerbDir (vOttaa "asettaa" "asetan") **
|
|
{s5 = [] ; s6 = "edelle" ; c2 = CCase Gen} ; --- pitää paremp(a/i)na
|
|
|
|
Mother = funGen (n2n (cnHum (sKukko "äiti" "äidin" "äitejä"))) ;
|
|
Uncle = funGen (n2n (cnHum (sKukko "setä" "sedän" "setiä"))) ; --- eno!
|
|
Connection = n2n (cnNoHum (sRakkaus "yhteys")) **
|
|
{c = NPCase Elat ; c2 = NPCase Illat} ; --- Tampereelle !
|
|
|
|
Always = ss "aina" ;
|
|
Well = ss "hyvin" ;
|
|
|
|
SwitchOn = mkTransVerbDir (vOttaa "sytyttää" "sytytän") ;
|
|
SwitchOff = mkTransVerbDir (vOttaa "sammuttaa" "sammutan") ;
|
|
|
|
John = mkProperName (sKukko "Jussi" "Jussin" "Jusseja") ;
|
|
Mary = mkProperName (sKukko "Mari" "Marin" "Mareja") ;
|
|
|
|
} ;
|