forked from GitHub/gf-core
44 lines
1.6 KiB
Plaintext
44 lines
1.6 KiB
Plaintext
-- use this path to read the grammar from the same directory
|
|
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete TestFin of TestAbs = ResFin ** open Prelude, Syntax in {
|
|
|
|
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
|
|
|
|
-- 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" ;
|
|
|
|
Man = cnHum (mkNoun "mies" "miehen" "miehenä" "miestä" "mieheen" "miehinä"
|
|
"miehissä" "miesten" "miehiä" "miehiin") ;
|
|
Woman = cnHum (sNainen "naista") ;
|
|
Car = cnNoHum (sTalo "auto") ;
|
|
House = cnNoHum (sTalo "talo") ;
|
|
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") ;
|
|
Love = mkTransVerbCase (vPoistaa "rakastaa") Part ;
|
|
Wait = mkTransVerbCase (vOttaa "odottaa" "odotan") Part ;
|
|
|
|
Mother = funGen (n2n (cnHum (sKukko "äiti" "äidin" "äitejä"))) ;
|
|
Uncle = funGen (n2n (cnHum (sKukko "setä" "sedän" "setiä"))) ; --- eno!
|
|
|
|
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") ;
|
|
|
|
} ;
|