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

Close to finishing new verisons of Finnish and GErman.

Browse Source
This commit is contained in:
aarne
2004-01-05 15:42:38 +00:00
parent 122d2592b2
commit 4ee91af554
15 changed files with 2544 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource-0.6/finnish/TestResourceFin.gf
View File

@@ -1,7 +1,8 @@
-- use this path to read the grammar from the same directory
--# -path=.:../abstract:../../prelude
concrete TestFin of TestAbs = ResFin ** open Prelude, SyntaxFin in {
concrete TestResourceFin of TestResource =
StructuralFin ** open Prelude, SyntaxFin in {
flags startcat=Phr ; lexer=unglue ; unlexer=glue ;
@@ -12,8 +13,9 @@ lin
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 = sNainen "amerikkalaista" ;
Finnish = sNainen "suomalaista" ;
American = noun2adj (sNainen "amerikkalaista") ;
Finnish = noun2adj (sNainen "suomalaista") ;
Happy = regAdjDegr (sNainen "onnellista") "onnellisempaa" "onnellisinta" ;
Married = sKukko "vihitty" "vihityn" "vihittyjä" ** {c = NPCase Illat} ;
--- naimisissa !
@@ -21,8 +23,11 @@ lin
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" ;
@@ -30,6 +35,7 @@ lin
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") **