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

moved obsolete files; updated umlaut help

Browse Source
This commit is contained in:
aarne
2005-12-22 17:27:00 +00:00
parent 8e2d67bfba
commit eda7b07087
18 changed files with 45 additions and 603 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource/abstract/Test.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../../prelude
abstract Test =
Rules,
Clause,
Structural [and_Conj,i_NP,he_NP, if_Subj, in_Prep,want_VV,which8one_IDet],
Minimal
** {
} ;

37
lib/resource/abstract/TestResource.gf
View File

@@ -1,37 +0,0 @@
abstract TestResource =
Rules,
---- Verbphrase,
Clause,
Structural ** {
-- a random sample of lexicon to test resource grammar with
fun
Big, Happy, Small, Old, Young : ADeg ;
American, Finnish : A ;
Married : A2 ;
Man, Woman, Car, House, Light, Bar, Bottle, Wine : N ;
Walk, Run : V ;
Send, Wait, Love, Drink, SwitchOn, SwitchOff : V2 ;
Give, Prefer : V3 ;
Say, Prove : VS ;
Mother, Uncle : N2 ;
Connection : N3 ;
Well, Always : Adv ;
John, Mary : PN ;
AlreadyAdv, NowAdv : Adv ; -- already, now
Paint : V2A ;
Green : ADeg ;
Beg : V2V ;
Promise : V2V ;
Try : VV ;
Wonder : VQ ;
Ask : V2Q ;
Tell : V2S ;
Look : VA ;
Important : A2S ;
Probable : AS ;
Easy : A2V ;
Rain : V0 ;
} ;

76
lib/resource/danish/TestResourceDan.gf
View File

@@ -1,76 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceDan of TestResource = RulesDan, ClauseDan, StructuralDan **
open Prelude, MorphoDan, SyntaxDan in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
optimize=values ;
-- a random sample from the lexicon
lin
Big = mkAdjective "stor" "stort" "store" "større" "størst" ;
Small = mkAdjective "lille" "lille" "små" "mindre" "mindst" ;
Old = mkAdjective "gammel" "gammelt" "gamle" "ældre" "ældst" ;
Young = mkAdjective "ung" "ungt" "unge" "yngre" "yngst" ;
American = extAdjective (aRod "amerikansk") ;
Finnish = extAdjective (aRod "finsk") ;
Happy = aRod "lykkelig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun (mkSubstantive "mand" "manden" "mænd" "mænden" ** {h1 = Utr}) ;
Bar = extCommNoun (nBil "bar") ; ---- ?
Bottle = extCommNoun (nUge "flaske") ;
Woman = extCommNoun (nUge "kvinde") ;
Car = extCommNoun (nBil "bil") ;
House = extCommNoun (nHus "hus") ;
Light = extCommNoun (nHus "lys") ;
Wine = extCommNoun (nHus "vin") ; ---- ?
Walk = mkVerb "gå" "går" "gås" "gik" "gået" "gå" ** {s1 = []} ;
Run = mkVerb "springe" "springer" "springes" "sprang" "sprunget" "spring" ** {s1 = []} ;
Drink = extTransVerb (mkVerb "drikke" "drikker" "drikkes" "drak" "drukket" "drikk" ** {s1 = []}) [] ;
Love = extTransVerb (vNopart (vHusk "ælsk")) [] ;
Send = extTransVerb (vNopart (vSpis "send")) [] ; ---- ?
Wait = extTransVerb (vNopart (vSpis "vent")) "på" ;
Give = extTransVerb (vNopart (mkVerb "give" "giver" "gives" "gav" "givet" "giv")) [] ** {s3 = "til"} ;
Prefer = extTransVerb (vNopart (vSpis "foretrækk")) [] ** {s3 = "for"} ;
Say = vNopart (mkVerb "sige" "siger" "siges" "sagde" "sagt" "sig") ;
Prove = vNopart (vSpis "bevis") ;
SwitchOn = mkDirectVerb (vHusk "lukk" ** {s1 = "op"}) ;
SwitchOff = mkDirectVerb (vHusk "slukk" ** {s1 = []}) ;
Mother = mkFun (extCommNoun (mkSubstantive "moder" "moderen" "mødre"
"mødrene" ** {h1 = Utr})) "til" ; ---- ?
Uncle = mkFun (extCommNoun (mkSubstantive "onkel" "onkelen" "onkler" "onklene" ** {h1 = Utr})) "til" ; ---- ?
Connection = mkFun (extCommNoun (nUge "forbindelse")) "fra" ** {s3 = "til"} ;
Always = advPre "altid" ;
Well = advPost "godt" ;
John = mkProperName "Johan" NUtr ;
Mary = mkProperName "Maria" NUtr ;
--- next
AlreadyAdv = advPre "allerede" ;
NowAdv = advPre "nu" ;
Paint = extTransVerb (vNopart (vHusk "mål")) [] ;
Green = mkAdjective "grøn" "grønt" "grøne" "grønnere" "grønnest" ;
Beg = extTransVerb (mkVerb "bede" "beder" "bedes" "bad" "bedt" "bed") [] ** {s3 = "at"} ;
Promise = extTransVerb (vNopart (vSpis "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vHusk "undr")) [] ;
Ask = extTransVerb (mkVerb "spørge" "spørger""spørges""spurgte""spurgt""spørg") [] ;
Tell = extTransVerb (mkVerb "fortælle" "fortæller" "fortælles"
"fortalte" "fortalt" "fortæll") [] ;
Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "set" "sedd") []
; ---- ut
Try = extTransVerb (vNopart (vSpis "forsøg")) [] ** {isAux = False} ;
Important = extAdjective (aAbstrakt "viktig") ** {s2 = "for"} ;
Probable = extAdjective (aAbstrakt "sandsynlig") ;
Easy = extAdjective (aRod "let") ** {s2 = "for"} ;
Rain = extTransVerb (vNopart (vHusk "regn")) [] ;
} ;

9
lib/resource/english/TestEng.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../abstract:../../prelude
concrete TestEng of Test =
RulesEng,
ClauseEng,
StructuralEng,
MinimalEng
** {
} ;

70
lib/resource/english/TestResourceEng.gf
View File

@@ -1,70 +0,0 @@
--# -path=.:../abstract:../../prelude
concrete TestResourceEng of TestResource = RulesEng, ClauseEng, StructuralEng **
open Prelude, SyntaxEng, OldParadigmsEng in {
flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = adjDegrIrreg "big" "bigger" "biggest";
Happy = adjDegrReg "happy" ;
Small = adjDegrReg "small" ;
Old = adjDegrReg "old" ;
Young = adjDegrReg "young" ;
American = regAdjective "American" ;
Finnish = regAdjective "Finnish" ;
Married = regAdjective "married" ** {s2 = "to"} ;
Man = cnHum (mkNoun "man" "men" "man's" "men's") ;
Woman = cnHum (mkNoun "woman" "women" "woman's" "women's") ;
Car = cnNoHum (nounReg "car") ;
House = cnNoHum (nounReg "house") ;
Light = cnNoHum (nounReg "light") ;
Bar = cnNoHum (nounReg "bar") ;
Bottle = cnNoHum (nounReg "bottle") ;
Wine = cnNoHum (nounReg "wine") ;
Walk = verbNoPart (regVerbP3 "walk") ;
Run = verbNoPart (mkVerb "run" "ran" "run") ;
Say = verbNoPart (mkVerb "say" "said" "said") ;
Prove = verbNoPart (verbP3e "prove") ;
Send = mkTransVerbDir (verbNoPart (mkVerb "send" "sent" "sent")) ;
Love = mkTransVerbDir (verbNoPart (verbP3e "love")) ;
Wait = mkTransVerb (verbNoPart (regVerbP3 "wait")) "for" ;
Drink = mkTransVerbDir (verbNoPart (mkVerb "drink" "drank" "drunk")) ;
Give = mkDitransVerb (verbNoPart (mkVerb "give" "gave" "given")) [] [] ;
Prefer = mkDitransVerb
(verbNoPart (mkVerb "prefer" "preferred" "preferred")) [] "to" ;
Mother = funOfReg "mother" human ;
Uncle = funOfReg "uncle" human ;
Connection = cnNoHum (nounReg "connection") ** {s2 = "from" ; s3 = "to"} ;
Always = ss "always" ;
Well = ss "well" ;
SwitchOn = mkTransVerbPart (verbP3s "switch") "on" ;
SwitchOff = mkTransVerbPart (verbP3s "switch") "off" ;
John = nameReg "John" Masc ;
Mary = nameReg "Mary" Fem ;
--- next
AlreadyAdv = ss "already" ;
NowAdv = ss "now" ;
Paint = mkTransVerbDir (verbNoPart (regVerbP3 "paint")) ;
Green = adjDegrReg "green" ;
Beg = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ** {s4 = "to"} ;
Promise = mkTransVerbDir (verbNoPart (verbP3e "promise")) ** {s4 = "to"} ;
Wonder = verbNoPart (regVerbP3 "wonder") ;
Ask = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ;
Tell = mkTransVerbDir (verbNoPart (mkVerb "tell" "told" "told")) ;
Look = verbNoPart (regVerbP3 "look") ;
Try = mkTransVerbDir (verbNoPart (verbP3y "tr")) ** {isAux = False} ;
Important = regAdjective "important" ** {s2 = "for"} ;
Probable = regAdjective "probable" ; ---- reg
Easy = regAdjective "easy" ** {s2 = "for"} ;
Rain = verbNoPart (regVerbP3 "rain") ;
} ;

52
lib/resource/french/TestResourceFre.gf
View File

@@ -1,52 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestResourceFre of TestResource =
RulesFre,
ClauseFre,
StructuralFre
**
open Prelude, TypesFre, MorphoFre, SyntaxFre in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
optimize=all ;
lin
Big = mkAdjDegrReg "grand" adjPre ;
American = mkAdjective (adjGrand "américain") adjPost ;
Finnish = mkAdjective (adjGrand "finlandais") adjPost ;
Married = mkAdjCompl (adjJoli "marié") adjPost (complementCas dative) ;
Small = mkAdjDegrReg "petit" adjPre ;
Old = mkAdjDegrLong (mkAdj "vieux" "vieux" "vieille" "vieillement") adjPre ;
Young = mkAdjDegrLong (adjJeune "jeune") adjPre ;
Happy = mkAdjDegrLong (adjHeureux "heureux") adjPre ;
Wine = mkCNomReg "vin" Masc ;
Bar = mkCNomReg "bar" Masc ;
Man = mkCNomReg "homme" Masc ;
Woman = mkCNomReg "femme" Fem ;
Car = mkCNomReg "voiture" Fem ;
Light = mkCNomReg "lumière" Fem ;
House = mkCNomReg "maison" Fem ;
Bottle = mkCNomReg "bouteille" Fem ;
Walk = verbPres (conj1aimer "marcher") AHabere ;
Run = verbPres (conj3courir "courir") AHabere ;
Send = mkTransVerbDir (verbPres (conj1envoyer "envoyer") AHabere) ;
Love = mkTransVerbDir (verbPres (conj1aimer "aimer") AHabere) ;
Drink = mkTransVerbDir (verbPres (conj3boire "boire") AHabere) ;
Wait = mkTransVerbDir (verbPres (conj3rendre "attendre") AHabere) ;
Give = mkDitransVerb (verbPres (conj1aimer "donner") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (conj1céder "préférer") AHabere) [] accusative [] dative ;
Say = verbSent (verbPres (conj3dire "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (conj1aimer "démontrer") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (conj1aimer "allumer") AHabere) ;
SwitchOff = mkTransVerbDir (verbPres (conj3peindre "éteindre") AHabere) ;
Mother = funDe (mkCNomReg "mère" Fem) ;
Uncle = funDe (mkCNomReg "oncle" Masc) ;
Connection = mkCNomReg "connection" Fem **
{s2 = [] ; c = genitive ; s3 = [] ; c3 = dative} ;
Well = ss "bien" ;
Always = ss "toujours" ;
John = mkProperName "Jean" Masc ;
Mary = mkProperName "Marie" Fem ;
}

4
lib/resource/french/TestVerbesAbs.gf
View File

@@ -1,4 +0,0 @@
abstract TestVerbesAbs = TestResource, VerbesAbs ** {
fun UseVN : VN -> V ;
fun UseVN2 : VN2 -> V2 ;
}

9
lib/resource/french/TestVerbesFre.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestVerbesFre of TestVerbesAbs =
TestResourceFre, VerbesFre ** open TypesFre in {
lin UseVN ve = verbPres ve.s ve.aux ;
lin UseVN2 ve = verbPres ve.s ve.aux ** {s2 = [] ; c = ve.c} ;
}

9
lib/resource/french/TestVerbsFre.gf
View File

@@ -1,9 +0,0 @@
--# -path=.:../romance:../oldabstract:../abstract:../../prelude
concrete TestVerbsFre of TestVerbsFreAbs =
TestResourceFre, VerbsFre ** open TypesFre in {
lin UseVN ve = verbPres ve.s ve.aux ;
lin UseVN2 ve = verbPres ve.s ve.aux ** {s2 = [] ; c = ve.c} ;
}

4
lib/resource/french/TestVerbsFreAbs.gf
View File

@@ -1,4 +0,0 @@
abstract TestVerbsFreAbs = TestResource, VerbsFreAbs ** {
fun UseVN : VN -> V ;
fun UseVN2 : VN2 -> V2 ;
}

48
lib/resource/italian/TestResourceIta.gf
View File

@@ -1,48 +0,0 @@
--# -path=.:../romance:../oldabstract:../abstract:../../prelude
concrete TestResourceIta of TestResource =
RulesIta, StructuralIta ** open Prelude, TypesIta, MorphoIta, SyntaxIta in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lin
Big = mkAdjDegrTale "grande" adjPre ;
Small = mkAdjDegrSolo "piccolo" adjPre ;
Old = mkAdjDegrLong (mkAdj "vecchio" "vecchia" "vecchi" "vecchie" "vecchiamente")
adjPre ;
Young = mkAdjDegrTale "giovane" adjPre ;
Happy = mkAdjDegrTale "felice" adjPost ;
American = mkAdjective (adjSolo "americano") adjPost ;
Finnish = mkAdjective (adjTale "finlandese") adjPost ;
Married = mkAdjCompl (adjSolo "sposato") adjPost {s2 = [] ; c = dative} ;
Man = mkCNom (numForms "uomo" "uomini") Masc ;
Woman = mkCNom (nomRana "donna") Fem ;
Car = mkCNom (nomRana "macchina") Fem ;
Light = mkCNom (nomSale "luce") Fem ;
House = mkCNom (nomRana "casa") Fem ;
Wine = mkCNom (nomVino "vino") Masc ;
Bottle = mkCNom (nomRana "bottiglia") Fem ;
Bar = mkCNom (nomTram "bar") Masc ;
Walk = verbPres (amare_7 "camminare") AHabere ;
Run = (verbPres (correre_41 "correre") AHabere) ;
Send = mkTransVerbDir (verbPres (amare_7 "mandare") AHabere) ;
Love = mkTransVerbDir (verbPres (amare_7 "amare") AHabere) ;
Wait = mkTransVerbCas (verbPres (amare_7 "aspettare") AHabere) dative ;
Drink = mkTransVerbDir (verbPres (bere_29 "bere") AHabere) ;
Give = mkDitransVerb (verbPres (dare_17 "dare") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (finire_103 "preferire") AHabere) [] accusative [] dative ;
Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (amare_7 "dimostrare") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (amare_7 "allumare") AHabere) ;
SwitchOff = mkTransVerbDir (verbPres (spegnere_89 "spegnere") AHabere) ;
Mother = funGen (mkCNom (nomSale "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "zio") Masc) ;
Connection = mkCNom (nomSale "connessione") Fem **
{s2 = [] ; c = CPrep P_da ; s3 = [] ; c3 = dative} ;
Well = ss "bene" ;
Always = ss "sempre" ;
John = mkProperName "Giovanni" Masc ;
Mary = mkProperName "Maria" Fem ;
}

74
lib/resource/norwegian/TestResourceNor.gf
View File

@@ -1,74 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceNor of TestResource = RulesNor, ClauseNor, StructuralNor **
open Prelude, MorphoNor, SyntaxNor in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = mkAdjective "stor" "stort" "store" "større" "størst" ;
Small = mkAdjective "liten" "litet" "små" "mindre" "minst" ; ---- ?
Old = mkAdjective "gammel" "gammelt" "gamle" "eldre" "eldst" ;
Young = mkAdjective "ung" "ungt" "unge" "yngre" "yngst" ;
American = extAdjective (aAbstrakt "amerikansk") ;
Finnish = extAdjective (aAbstrakt "finsk") ;
Happy = aAbstrakt "heldig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun (mkSubstantive "mann" "mannen" "menn" "mennen" ** {h1 = masc}) ;
Bar = extCommNoun (nBil "bar") ; ---- ?
Bottle = extCommNoun (nUke "flaske") ;
Woman = extCommNoun (nUke "kvinne") ;
Car = extCommNoun (nBil "bil") ;
House = extCommNoun (nHus "hus") ;
Light = extCommNoun (nHus "lys") ;
Wine = extCommNoun (nHus "vin") ; ---- ?
Walk = mkVerb "gå" "går" "gås" "gikk" "gått" "gå" ** {s1 = []} ;
Run = mkVerb "springe" "springer" "springes" "sprang" "sprunget" "spring" ** {s1 = []} ;
Drink = extTransVerb (mkVerb "drikke" "drikker" "drikkes" "drakk" "drukket" "drikk" ** {s1 = []}) [] ;
Love = extTransVerb (vNopart (vHusk "elsk")) [] ;
Send = extTransVerb (vNopart (vSpis "send")) [] ; ---- ?
Wait = extTransVerb (vNopart (vSpis "vent")) "på" ;
Give = extTransVerb (vNopart (mkVerb "gi" "gir" "gives" "gav" "givet" "gi")) [] ** {s3 = "til"} ; ---- ?
Prefer = extTransVerb (vNopart (vSpis "foretrekk")) [] ** {s3 = "for"} ;
Say = vNopart (mkVerb "si" "sier" "sies" "sa" "sagt" "sig") ; ---- ?
Prove = vNopart (vSpis "bevis") ;
SwitchOn = mkDirectVerb (vHusk "lukk" ** {s1 = "opp"}) ;
SwitchOff = mkDirectVerb (vHusk "slukk" ** {s1 = []}) ;
Mother = mkFun (extCommNoun (mkSubstantive "mor" "moderen" "mødre" "mødrene" ** {h1 = fem})) "til" ; ---- ?
Uncle = mkFun (extCommNoun (mkSubstantive "onkel" "onkelen" "onkler" "onklene" ** {h1 = masc})) "til" ; ---- ?
Connection = mkFun (extCommNoun (nUke "forbindelse")) "fra" ** {s3 = "til"} ;
Always = advPre "altid" ;
Well = advPost "godt" ;
John = mkProperName "Johan" (NUtr Masc) ;
Mary = mkProperName "Maria" (NUtr NoMasc) ;
--- next
AlreadyAdv = advPre "allerede" ;
NowAdv = advPre "nå" ;
Paint = extTransVerb (vNopart (vHusk "mål")) [] ;
Green = mkAdjective "grønn" "grønt" "grøne" "grønnere" "grønnest" ;
Beg = extTransVerb (mkVerb "be" "ber" "bes" "bad" "bedt" "be") [] ** {s3 = "at"} ;
Promise = extTransVerb (vNopart (vSpis "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vHusk "undr")) [] ;
Ask = extTransVerb (mkVerb "spørre" "spør""spørs""spurde""spurt""spør") [] ;
Tell = extTransVerb (mkVerb "fortelle" "forteller" "fortelles"
"fortalte" "fortalt" "fortell") [] ;
Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "sett" "sedd") []
; ---- ut
Try = extTransVerb (vNopart (vSpis "forsøk")) [] ** {isAux = False} ;
Important = extAdjective (aAbstrakt "viktig") ** {s2 = "for"} ;
Probable = extAdjective (aAbstrakt "sannsynlig") ;
Easy = extAdjective (aRod "grei") ** {s2 = "for"} ;
Rain = extTransVerb (vNopart (vHusk "regn")) [] ;
} ;

53
lib/resource/russian/TestResourceRus.gf
View File

@@ -1,53 +0,0 @@
-- use this path to read the grammar from the same directory
--# -path=.:../abstract:../../prelude
concrete TestResourceRus of TestResource = RulesRus, StructuralRus ** open SyntaxRus in {
flags
coding=utf8 ;
startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = bolshoj ;
Small = malenkij ;
Old = staruj ;
Young = molodoj ;
Connection = (noun2CommNounPhrase (doroga) )** {s2 = "из" ; c = Gen; s3 = "в"; c2=Acc} ;
American = ij_EndK_G_KH_Decl "американск" ; -- adj1Malenkij from Paradigms
Finnish = ij_EndK_G_KH_Decl "финск" ; -- adj1Malenkij from Paradigms
Married = adjInvar "замужем" ** {s2 = "за"; c = Inst} ; -- adjinvar from Paradigms
Give = mkDitransVerb verbDavat Acc Dat;
Prefer = mkDitransVerb verbPredpochitat Acc Dat ;
Bar = bar ;
Bottle = butyulka ;
Wine = vino ;
Drink = mkDirectVerb verbPit ;
Happy = schastlivyuj ;
Man = muzhchina ;
Woman = zhenchina ;
Car = mashina ;
House = dom ;
Level = uroven ;
Light = svet ;
Walk = verbGulyat ;
Run = verbBegat ;
Love = mkDirectVerb verbLubit ;
Send = mkDirectVerb verbOtpravlyat ;
Wait = mkDirectVerb verbZhdat ;
Say = verbGovorit ; --- works in present tense...
Prove = verbDokazuvat ;
SwitchOn = mkDirectVerb verbVkluchat ;
SwitchOff = mkDirectVerb verbVukluchat ;
Mother = funGen mama ;
Uncle = funGen dyadya ;
Always = vsegda ;
Well = chorosho ;
John = mkProperNameMasc "Иван" Animate ;
Mary = mkProperNameFem "Маш" Animate ;
};

48
lib/resource/spanish/TestResourceSpa.gf
View File

@@ -1,48 +0,0 @@
--# -path=.:../romance:../abstract:../../prelude
concrete TestResourceSpa of TestResource =
RulesSpa, ClauseSpa, StructuralSpa ** open Prelude, TypesSpa,
MorphoSpa, BeschSpa, SyntaxSpa in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
lin
Big = mkAdjDegrUtil "grande" "grandes"adjPre ;
Small = mkAdjDegrSolo "pequeño" adjPre ;
Old = mkAdjDegrSolo "viejo" adjPre ;
Young = mkAdjDegrUtil "joven" "jovenes"adjPre ;
Happy = mkAdjDegrUtil "feliz" "felices" adjPost ;
American = mkAdjective (adjSolo "americano") adjPost ;
Finnish = mkAdjective (adjUtil "finlandes" "finlandeses") adjPost ;
Married = mkAdjCompl (adjSolo "casado") adjPost {s2 = "con" ; c = accusative} ;
Man = mkCNom (nomVino "hombre") Masc ;
Woman = mkCNom (nomPilar "mujer") Fem ;
Car = mkCNom (nomVino "coche") Masc ;
Light = mkCNom (numForms "luz" "luces") Fem ;
House = mkCNom (nomVino "casa") Fem ;
Wine = mkCNom (nomVino "vino") Masc ;
Bottle = mkCNom (nomVino "botella") Fem ;
Bar = mkCNom (nomTram "bar") Masc ;
Walk = verbPres (cortar_5 "pasear") AHabere ;
---- Run = (verbPres (correre_41 "correre") AHabere) ;
Send = mkTransVerbDir (verbPres (cortar_5 "mandar") AHabere) ;
Love = mkTransVerbDir (verbPres (cortar_5 "amar") AHabere) ;
Wait = mkTransVerbCas (verbPres (cortar_5 "esperar") AHabere) dative ;
---- Drink = mkTransVerbDir (verbPres (bere_29 "bere") AHabere) ;
---- Give = mkDitransVerb (verbPres (dare_17 "dare") AHabere) [] dative [] accusative ;
Prefer = mkDitransVerb (verbPres (vivir_7 "preferir") AHabere) [] accusative [] dative ;
---- Say = verbSent (verbPres (dire_44 "dire") AHabere) Ind Ind ;
Prove = verbSent (verbPres (cortar_5 "demonstrar") AHabere) Ind Ind ;
SwitchOn = mkTransVerbDir (verbPres (deber_6 "enciender") AHabere) ; ----
SwitchOff = mkTransVerbDir (verbPres (cortar_5 "apagar") AHabere) ;
Mother = funGen (mkCNom (nomVino "madre") Fem) ;
Uncle = funGen (mkCNom (nomVino "tío") Masc) ;
Connection = mkCNom (nomPilar "connexión") Fem **
{s2 = [] ; c = CPrep P_de ; s3 = [] ; c3 = dative} ;
Well = ss "bien" ;
Always = ss "siempre" ;
John = mkProperName "Juan" Masc ;
Mary = mkProperName "Maria" Fem ;
}

77
lib/resource/swedish/TestResourceSwe.gf
View File

@@ -1,77 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceSwe of TestResource =
RulesSwe,
ClauseSwe,
StructuralSwe
**
open Prelude, MorphoSwe, SyntaxSwe in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = stor_25 ;
Small = liten_1146 ;
Old = gammal_16 ;
Young = ung_29 ;
American = extAdjective (aFin "amerikansk") ;
Finnish = extAdjective (aFin "finsk") ;
Happy = aFin "lycklig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun man_1144 ;
Bar = extCommNoun (sSak "bar") ;
Bottle = extCommNoun (sApa "flask") ;
Woman = extCommNoun (sApa "kvinn") ;
Car = extCommNoun (sBil "bil") ;
House = extCommNoun (sHus "hus") ;
Light = extCommNoun (sHus "ljus") ;
Wine = extCommNoun (sParti "vin") ;
Walk = vNopart (mkVerb "gå" "går" "gå" "gick" "gått" "gången") ;
Run = vNopart (vFinna "spring" "sprang" "sprung") ;
Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ;
Love = extTransVerb (vNopart (vTala "älsk")) [] ;
Send = extTransVerb (vNopart (vTala "skick")) [] ;
Wait = extTransVerb (vNopart (vTala "vänt")) "på" ;
Give = extTransVerb (vNopart (mkVerb "ge" "ger" "ge" "gav" "givit" "given")) [] ** {s3 = "till"} ;
Prefer = extTransVerb (vNopart (vFinna "föredrag" "föredrog" "föredrag")) [] **
{s3 = "framför"} ; --- föredra
Say = vNopart (mkVerb "säga" "säger" "säg" "sade" "sagt" "sagd") ;
Prove = vNopart (vTala "bevis") ;
SwitchOn = mkDirectVerb (vFinna "sätt" "satte" "satt" ** {s1 = "på"}) ;
SwitchOff = mkDirectVerb (vLeka "stäng" ** {s1 = "av"}) ;
Mother = mkFun (extCommNoun mor_1) "till" ;
Uncle = mkFun (extCommNoun farbror_8) "till" ;
Connection = mkFun (extCommNoun (sVarelse "förbindelse")) "från" **
{s3 = "till"} ;
Always = advPre "alltid" ;
Well = advPost "bra" ;
John = mkProperName "Johan" (NUtr Masc) ;
Mary = mkProperName "Maria" (NUtr NoMasc) ;
--- next
AlreadyAdv = advPre "redan" ;
NowAdv = advPre "nu" ;
Paint = extTransVerb (vNopart (vTala "mål")) [] ;
Green = aFin "grön" ;
Beg = extTransVerb (mkVerbPart "be" "ber" "be" "bad" "bett" "bedd" []) [] ** {s3 = "att"} ;
Promise = extTransVerb (vNopart (vTala "lov")) [] ** {s3 = "att"} ;
Wonder = extTransVerb (vNopart (vTala "undr")) [] ;
Ask = extTransVerb (vNopart (vTala "fråg")) [] ;
Tell = extTransVerb (vNopart (vTala "berätt")) [] ;
Look = extTransVerb (mkVerbPart "se" "ser" "se" "såg" "sett" "sedd" "ut") [] ;
Try = extTransVerb (vNopart (vLeka "försök")) [] ** {isAux=False} ;
Important = extAdjective (aFin "viktig") ** {s2 = "för"} ;
Probable = extAdjective (aFin "sannolik") ;
Easy = extAdjective (aAbstrakt "lätt") ** {s2 = "för"} ;
Rain = extTransVerb (vNopart (vTala "regn")) [] ;
} ;