GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 01:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Rebuilding resource libraries.

Browse Source 
Rebuilding resource libraries.
Working with resource interfaces.
This commit is contained in:
aarne
2003-10-21 15:15:47 +00:00
parent d0c7566791
commit 31e0deb017
15 changed files with 2072 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
grammars/resource/finnish/TestFin.gf Normal file
View File

@@ -0,0 +1,40 @@
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") ;
} ;