GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-14 13:42: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

87
lib/resource-0.6/finnish/StructuralFin.gf
View File

@@ -12,16 +12,59 @@ concrete StructuralFin of Structural =
ThouNP = pronNounPhrase pronSina ;
HeNP = pronNounPhrase pronHan ;
SheNP = pronNounPhrase pronHan ;
ItNP = nameNounPhrase pronSe ;
WeNP = pronNounPhrase pronMe ;
YeNP = pronNounPhrase pronTe ;
WeNP = pronWithNum pronMe ;
YeNP = pronWithNum pronTe ;
YouNP = pronNounPhrase pronTe ;
TheyNP = pronNounPhrase pronHe ; --- ne
ItNP = nameNounPhrase pronSe ;
ThisNP = pronNounPhraseNP pronTama ;
ThatNP = pronNounPhraseNP pronTuo ;
TheseNP = pronWithNum pronNama ;
ThoseNP = pronWithNum pronNuo ;
EverybodyNP = {
s = \\f => kaikkiPron Pl ! (npForm2Case Pl f) ; -- näin kaikki
n = Pl ;
p = NP3
} ;
EverythingNP = {
s = \\f => kaikkiPron Sg ! (npForm2Case Sg f) ; -- näin kaiken
n = Sg ;
p = NP3
} ;
SomebodyNP = {
s = \\f => jokuPron ! Sg ! (npForm2Case Sg f) ;
n = Sg ;
p = NP3
} ;
SomethingNP = {
s = \\f => jokinPron ! Sg ! (npForm2Case Sg f) ; -- näin kaiken
n = Sg ;
p = NP3
} ;
EveryDet = jokainenDet ;
AllDet = kaikkiDet ;
AllDet = mkDeterminer singular (kaikkiPron Sg) ;
AllsDet = kaikkiDet ;
WhichDet = mikaDet ;
MostDet = useimmatDet ;
WhichsDet n = mkDeterminerGenNum n (mikaInt ! Pl) (kukaInt ! Pl) ;
MostDet = mkDeterminer singular (caseTable singular (sSuurin "enintä")) ;
MostsDet = useimmatDet ;
ManyDet = mkDeterminer singular moniPron ;
MuchDet = mkDeterminer singular (caseTable singular (sNauris "runsasta")) ;
ThisDet = mkDeterminer Sg (\\c => pronTama.s ! PCase c) ;
ThatDet = mkDeterminer Sg (\\c => pronTuo.s ! PCase c) ;
TheseDet n = mkDeterminerNum n (\\c => pronNama.s ! PCase c) ;
ThoseDet n = mkDeterminerNum n (\\c => pronNuo.s ! PCase c) ;
SomeDet = mkDeterminerGen Sg (jokinPron ! Sg) (jokuPron ! Sg) ;
SomesDet n = mkDeterminerGenNum n (jokinPron ! Pl) (jokuPron ! Pl) ;
HowIAdv = ss "kuinka" ;
WhenIAdv = ss "koska" ;
@@ -42,7 +85,41 @@ concrete StructuralFin of Structural =
VeryAdv = ss "hyvin" ;
TooAdv = ss "liian" ;
OtherwiseAdv = ss "muuten" ;
ThereforeAdv = ss "siksi" ;
CanVV = nomVerbVerb (vJuoda "voida") ;
CanKnowVV = nomVerbVerb (vOsata "osata") ;
MustVV = vHukkua "täytyä" "täydy" ** {c = CCase Gen} ;
WantVV = nomVerbVerb (vOsata "haluta") ;
EverywhereNP = ss "kaikkialla" ;
SomewhereNP = ss "jossain" ;
NowhereNP = ss ["ei missään"] ;
AlthoughSubj = ss "vaikka" ;
AlmostAdv = ss "melkein" ;
QuiteAdv = ss "aika" ;
InPrep = prepCase Iness ;
OnPrep = prepCase Adess ;
ToPrep = prepCase Illat ; --- allat
ThroughPrep = prepPostpGen "kautta" ;
AbovePrep = prepPostpGen "yläpuolella" ;
UnderPrep = prepPostpGen "alla" ;
InFrontPrep = prepPostpGen "edessä" ;
BehindPrep = prepPostpGen "takana" ;
BetweenPrep = prepPostpGen "välissä" ;
FromPrep = prepCase Elat ; --- ablat
BeforePrep = prepPrep "ennen" Part ;
DuringPrep = prepPostpGen "aikana" ;
AfterPrep = prepPostpGen "jälkeen" ;
WithPrep = prepPostpGen "kanssa" ;
WithoutPrep = prepPrep "ilman" Part ;
ByMeansPrep = prepPostpGen "avulla" ;
PartPrep = prepCase Part ;
AgentPrep = prepPostpGen "toimesta" ;
}