mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 06:49:31 -06:00
55 lines
2.2 KiB
Plaintext
55 lines
2.2 KiB
Plaintext
-- use this path to read the grammar from the same directory
|
|
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete TestResourceGer of TestResource = StructuralGer ** open SyntaxGer in {
|
|
|
|
flags startcat=Phr ; lexer=text ; unlexer=text ;
|
|
|
|
-- a random sample from the lexicon
|
|
|
|
lin
|
|
Big = adjCompReg3 "gross" "grösser" "grösst";
|
|
Small = adjCompReg "klein" ;
|
|
Happy = adjCompReg "glücklich" ;
|
|
Old = adjCompReg3 "alt" "älter" "ältest";
|
|
Young = adjCompReg3 "jung" "jünger" "jüngst";
|
|
American = adjReg "Amerikanisch" ;
|
|
Finnish = adjReg "Finnisch" ;
|
|
Married = adjReg "verheiratet" ** {s2 = "mit" ; c = Dat} ;
|
|
Man = declN2u "Mann" "Männer" ;
|
|
Woman = declN1 "Frau" ;
|
|
Bottle = declN1e "Flasche" ;
|
|
Wine = declN2 "Wein" ;
|
|
Car = declNs "Auto" ;
|
|
House = declN3uS "Haus" "Häuser" ;
|
|
Light = declN3 "Licht" ;
|
|
Bar = declNs "Bar" ;
|
|
Walk = mkVerbSimple (verbumStrongSingen "gehen" "ging" "ginge" "gegangen") ;
|
|
Run = mkVerbSimple (verbumStrongLaufen "laufen" "läuft" "lief" "liefe" "gelaufen") ;
|
|
Say = mkVerbSimple (verbumWeak "sagen") ;
|
|
Prove = mkVerbSimple (verbumGratulieren "beweisen") ; --without ge
|
|
Send = mkTransVerb (mkVerbSimple (verbumStrongSingen "senden" "sandte" "sändte" "gesandt")) [] Acc;
|
|
Drink = transDir (mkVerbSimple (verbumStrongSingen "trinken" "trank" "tränke" "getrunken")) ;
|
|
Love = mkTransVerb (mkVerbSimple (verbumWeak "lieben")) [] Acc ;
|
|
Wait = mkTransVerb (mkVerbSimple (verbumWeak "warten")) "auf" Acc ;
|
|
Give = mkDitransVerb
|
|
(mkVerbSimple (verbumStrongSehen "geben" "gibt" "gab" "gäbe" "gegeben")) [] Dat [] Acc ;
|
|
Prefer = mkDitransVerb
|
|
(mkVerb (verbumStrongSingen "ziehen" "zog" "zöge" "gezogen") "vor") [] Acc "vor" Dat ;
|
|
Mother = mkFunC (n2n (declN2uF "Mutter" "Mütter")) "von" Dat ;
|
|
Uncle = mkFunC (n2n (declN2i "Onkel")) "von" Dat ;
|
|
Connection = mkFunC (n2n (declN1 "Verbindung")) "von" Dat **
|
|
{s3 = "nach" ; c2 = Dat} ;
|
|
|
|
Always = mkAdverb "immer" ;
|
|
Well = mkAdverb "gut" ;
|
|
|
|
SwitchOn = mkTransVerb (mkVerb (verbumWeak "schalten") "auf") [] Acc ;
|
|
SwitchOff = mkTransVerb (mkVerb (verbumWeak "schalten") "aus") [] Acc ;
|
|
|
|
John = mkProperName "Johann" ;
|
|
Mary = mkProperName "Maria" ;
|
|
|
|
} ;
|
|
|