From 5b0a20f7896fee4bd1ba751b38beb24d9120f0c7 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 30 Apr 2004 19:52:34 +0000 Subject: [PATCH] Improved gt; Karin C's examples. --- resource-0.6/swedish/MoreTest.gf | 93 ++++++++++++++++ resource-0.6/swedish/MoreTestSwe.gf | 164 ++++++++++++++++++++++++++++ 2 files changed, 257 insertions(+) create mode 100644 resource-0.6/swedish/MoreTest.gf create mode 100644 resource-0.6/swedish/MoreTestSwe.gf diff --git a/resource-0.6/swedish/MoreTest.gf b/resource-0.6/swedish/MoreTest.gf new file mode 100644 index 00000000..71fca982 --- /dev/null +++ b/resource-0.6/swedish/MoreTest.gf @@ -0,0 +1,93 @@ +abstract MoreTest = Structural ** { + +-- a random sample of lexicon to test resource grammar with + +fun +Big, Happy, Small, Old, Young : AdjDeg ; +Interested, Fresh : AdjDeg ; +Slow, New, Own, Free : AdjDeg ; +American, Finnish : Adj1 ; +Married : Adj2 ; + +Finale : N ; +Man, Woman, Car, House, Light, Bar, Bottle, Wine : N ; +DrinkS, Air, Glass, Letter, Fiance, Chair, Fever : N ; +Seriousness, Book, Success, HomeBake, Golf : N ; +Competition : N ; +CinemaVisit : N ; +Orientation : N ; --? vad det nu kan heta på engelska +Idea : N ; + +-- Nomen med en-ställig funktion +Mother, Uncle : Fun ; + +-- Nomen med två-ställig funktion +Connection : Fun2 ; + + +--Intransitiva verb +Walk, Run : V ; +Sleep : V ; +Rain : V ; +Dance : V ; +ArriveX : V ; +Sail : V ; +--Monotransitiva verb --som tar NP som objekt +Send, Wait, Love, Drink, SwitchOn, SwitchOff : TV ; +Hug, Rent, Surprise : TV ; +MakeDo : TV ; +Have : TV ; +Like : TV ; +Take : TV ; +Buy : TV ; +Build : TV ; +--med prep +Talk : TV ; -- prata med +Trust : TV ; -- lita på +Start : TV ; +Play : TV ; +Win : TV ; +Accustomize : V3 ; +Remind : V3 ; +Devote : V3 ; +Steal : TV ; +DeserveVV : VV ; + +--Ditransitiva verb +Give, Prefer : V3 ; +--(Pelle ger Fido till Lisa) +--(Pelle ger Lisa Fido) + +Put : V3 ; --sätter Lisa i stolen +--Direkt, indirekt objekt +Give2 : V3 ; +Envy : V3 ; +-- två ppp som dir o indir obj +Talk2 : V3 ; -- tala med ngn om ngt + +-- Verb med satskomplement +Say, Prove : VS ; + + +Hope : VS ; + +Believe : VS ; +Know : VS ; +--Seem : VS ; +UseToVV : VV ; +ShallVV : VV ; +-- Partikelverb -- se TV + + +--Adverb +Well, Difficult, Always, ToNight, Now : AdV ; + +HaveVV : VV ; +TryVV : VV; +RefuseVV : VV; +SeemVV : VV ; +ContinueVV : VV; + +--Pronomen +John, Mary, Liza, Charlie, Phido, Pelle, Anders: PN ; +} ; \ No newline at end of file diff --git a/resource-0.6/swedish/MoreTestSwe.gf b/resource-0.6/swedish/MoreTestSwe.gf new file mode 100644 index 00000000..c4bd8e75 --- /dev/null +++ b/resource-0.6/swedish/MoreTestSwe.gf @@ -0,0 +1,164 @@ +--# -path=.:../abstract:../../prelude + +concrete MoreTestSwe of MoreTest = StructuralSwe ** open Prelude, SyntaxSwe in { + +flags startcat=Phr ; lexer=text ; unlexer=text ; + +-- a random sample from the lexicon + +lin +--aFin, aFager, aGrund, aVid, aVaken, aKorkad, aAbstrakt + +Big = stor_25 ; +Small = liten_1146 ; +Old = gammal_16 ; +Young = ung_29 ; + +American = extAdjective (aFin "amerikansk") ; +Finnish = extAdjective (aFin "finsk") ; +Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ; + +Happy = aFin "lycklig" ; +Free = aFin "ledig" ; +Slow = aFin "långsam" ; +New = aVid "ny" ; +Own = aVaken "eg" ; +Fresh = aFin "frisk" ; +Interested = aGrund "intressera" ; + + +--sApa, sBil sPojke, sNyckel sKam sSak , sVarelse , +--sNivå, sParti,sMuseum sRike sLik sRum sHus sPapper +--sNummer sKikare, sProgram +Finale = extCommNoun NoMasc (sSak "final") ; +Idea = extCommNoun NoMasc (sBil "idé") ; +Orientation = extCommNoun NoMasc (sBil "orientering") ; +Air = extCommNoun NoMasc (sBil "luft") ; +Golf = extCommNoun NoMasc (sBil "golf") ; +Man = extCommNoun Masc man_1144 ; +Bar = extCommNoun NoMasc (sSak "bar") ; +DrinkS = extCommNoun NoMasc (sSak "drink") ; +Book = extCommNoun NoMasc (sSak "bok") ; -- omljud? +Bottle = extCommNoun NoMasc (sApa "flask") ; +Letter = extCommNoun NoMasc (sHus "brev") ; +Fiance = extCommNoun NoMasc (sNivå "fästmö") ; +Woman = extCommNoun NoMasc (sApa "kvinn") ; +Car = extCommNoun NoMasc (sBil "bil") ; +House = extCommNoun NoMasc (sHus "hus") ; +Glass = extCommNoun NoMasc (sHus "glas") ; +Light = extCommNoun NoMasc (sHus "ljus") ; +Wine = extCommNoun NoMasc (sParti "vin") ; +Success = extCommNoun NoMasc (sBil "framgång") ; +Seriousness = extCommNoun NoMasc (sHus "allvar") ; +Chair = extCommNoun NoMasc (sBil "stol") ; +Fever = extCommNoun NoMasc (sBil "feber") ; +HomeBake = extCommNoun NoMasc (sBil "hembakt") ; --måste ändra sen +Competition = extCommNoun NoMasc (sBil "tävling") ; +CinemaVisit = extCommNoun NoMasc (sHus "biobesök") ; + +-- Nomen med en-ställig funktion +Mother = mkFun (extCommNoun NoMasc mor_1) "till" ; +Uncle = mkFun (extCommNoun Masc farbror_8) "till" ; + +-- Nomen med två-ställig funktion +Connection = mkFun (extCommNoun NoMasc (sVarelse "förbindelse")) "från" ** + {s3 = "till"} ; + + +--vTala, vLeka vTyda vVända +--vByta vGömma vHyra vTåla +--vFinna + +-- Intransitiva verb +Walk = extVerb Act gå_1174 ; +Run = extVerb Act (vFinna "spring" "sprang" "sprung") ; +Dance = extVerb Act (vTala "dans") ; +Rain = extVerb Act (vTala "regn") ; +Sleep = extVerb Act (vFinna "sov" "sov" "sov") ; +Sail = extVerb Act (vTala "segl") ; + +--Monotransitiva verb +Surprise = extTransVerb (vTala "överrask") [] ; +Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ; +Love = extTransVerb (vTala "älsk") [] ; +Send = extTransVerb (vTala "skick") [] ; +Wait = extTransVerb (vTala "vänt") "på" ; +Build = extTransVerb (vLeka "bygg") [] ; +Buy = extTransVerb (vLeka "köp") [] ; +Rent = extTransVerb (vHyra "hyr") [] ; +MakeDo = extTransVerb (vHyra "gör") [] ; --Hack! +Hug = extTransVerb (vTala "kram") [] ; +Have = extTransVerb hava_1198 [] ; +Like = extTransVerb (vTala "gill") [] ; +Take = extTransVerb (vFinna "ta" "tog" "tag") [] ; -- +Start = extTransVerb (vTala "start") [] ; +Play = extTransVerb (vTala "spel") [] ; +Win = extTransVerb (vFinna "vinn" "vann" "vunn") [] ; + +--Bitransitiva verb +Give2 = extTransVerb (vFinna "giv" "gav" "giv") [] ** {s3 = ""} ; -- ge +Envy = extTransVerb (vTala "missunn") [] ** {s3 = ""} ; + +--(Bi)transverb med obligatorisk pp +Give = extTransVerb (vFinna "giv" "gav" "giv") [] ** {s3 = "till"} ; -- ge +Accustomize = extTransVerb (vFinna "vänj" "vande" "van") [] ** {s3 = "vid"} ; -- +Steal = extTransVerb (vHyra "stjäl") [] ; -- oh o hur ska detta böjas? + +Devote = extTransVerb (vTala "ägn") [] ** {s3 = "åt"} ; -- +Remind = extTransVerb (vTåla "påminn") [] ** {s3 = "om"} ; -- + +Prefer = extTransVerb (vFinna "föredrag" "föredrog" "föredrag") [] ** {s3 = "framför"} ; --- föredra +Put = extTransVerb (vFinna "sätt" "satte" "satt") [] ** {s3 = "i"} ; +Talk2 = extTransVerb (vTala "tal") ["med"] ** {s3 = "om"} ; + + +-- Verb med satskomplement +-- kan bara ta fullständiga satser, inledda med att? +Say = extVerb Act (vLeka "säg") ; +Prove = extVerb Act (vTala "bevis") ; + + +Hope = extVerb Pass(vTala "hopp") ;-- har ej deponens? +Believe = extTransVerb (vTala "lit") "på" ; +Know = extVerb Act (vTala "vet") ; + +-- Verb som tar infinitivt verb, "ha" tar emellertid supinum +UseToVV = extVerb Act (vTala "bruk") ** {isAux = True} ; +RefuseVV = extVerb Act (vTala "vägr") ** {isAux = variants{False;True}} ; +HaveVV = extVerb Act (vHyra "har") ** {isAux = True} ; -- finns ju redan, måste kolla +SeemVV = extVerb Act (vTala "verk") ** {isAux = True}; +ShallVV = extVerb Act (vTala "skull") ** {isAux = True}; +ContinueVV = extVerb Act (vFinna "fortsätt" "fortsatte" "fortsatt") ** {isAux = variants{False;True}} ; +DeserveVV = extVerb Act (vTala "förtjän") ** {isAux = variants{False;True}} ; +TryVV = extVerb Act (vLeka "försök") ** {isAux = variants{False;True}} ; + +--Partikelverb +SwitchOn = mkDirectVerb (extVerbPart Act (vFinna "sätt" "satte" "satt") "på") ; +SwitchOff = mkDirectVerb (extVerbPart Act (vLeka "stäng") "av") ; +ArriveX = extVerbPart Act (vFinna "komm" "kom" "kommit") "fram" ; + +-- Transitiva verb med obligatorisk pp +Talk = extTransVerb (vTala "prat") "med" ; +Trust = extTransVerb (vTala "lit") "på" ; + +--Adverb +Always = advPre "alltid" ; +Well = advPost "bra" ; +Now = advPost "nu" ; +Difficult = advPost "svårt" ; +ToNight = advPost "ikväll" ; + +-- Pronomen +John = mkProperName "Johan" Utr Masc ; +Mary = mkProperName "Maria" Utr NoMasc ; +Pelle = mkProperName "Pelle" Utr Masc ; +Liza = mkProperName "Lisa" Utr NoMasc ; +Phido = mkProperName "Fido" Utr NoMasc ; +Charlie = mkProperName "Kalle" Utr Masc ; +Anders = mkProperName "Anders" Utr Masc ; + +-- verbVara = extVerb Act vara_1200 ; +-- verbHava = extVerb Act hava_1198 ; +-- verbFinnas = mkVerb "finnas" "finns" "finns" ; + +} ; \ No newline at end of file