Convert many RGL modules from Latin-1 to UTF-8 to speed up compilation

Also add flags coding=utf8 to silence warnings.
This commit is contained in:
hallgren
2014-08-19 19:42:05 +00:00
parent efcec8e7e9
commit be301d8a5e
135 changed files with 2828 additions and 2810 deletions

View File

@@ -3,6 +3,7 @@
concrete ConstructionGer of Construction = CatGer **
open SyntaxGer, SymbolicGer, ParadigmsGer,
(L = LexiconGer), (E = ExtraGer), (G = GrammarGer), (I = IrregGer), (R = ResGer), (N = NounGer), Prelude in {
flags coding=utf8 ;
lin

View File

@@ -10,6 +10,7 @@ incomplete concrete DocumentationGerFunctor of Documentation = CatGer ** open
Prelude,
HTML
in {
flags coding=utf8 ;
lincat

View File

@@ -1,6 +1,6 @@
--# -coding=latin1
concrete ExtraGer of ExtraGerAbs = CatGer **
open ResGer, Coordination, Prelude, IrregGer, (P = ParadigmsGer) in {
flags coding=utf8 ;
lincat
VPI = {s : Bool => Str} ;
@@ -30,7 +30,7 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
TImpfSubj = {s = [] ; t = Past ; m = MConjunct} ; --# notpresent
moegen_VV = auxVV mögen_V ;
moegen_VV = auxVV mögen_V ;
ICompAP ap = {s = \\_ => "wie" ++ ap.s ! APred} ;
@@ -79,7 +79,7 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
let verb = vpi.s ! o ! agr
in case o of {
Main => subj ++ verb ;
Inv => verb ++ subj ; ---- älskar henne och sover jag
Inv => verb ++ subj ; ---- älskar henne och sover jag
Sub => subj ++ verb
}
} ;

View File

@@ -1,8 +1,8 @@
--# -coding=latin1
concrete IdiomGer of Idiom = CatGer **
open MorphoGer, ParadigmsGer, Prelude in {
flags optimize=all_subs ;
coding=utf8 ;
lin
ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
@@ -72,6 +72,6 @@ concrete IdiomGer of Idiom = CatGer **
} ;
oper
geben = dirV2 (mk6V "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
geben = dirV2 (mk6V "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
}

View File

@@ -1,5 +1,4 @@
--# -path=.:prelude:../abstract:../common
--# -coding=latin1
-- adapted from verb list in
-- http://www.iee.et.tu-dresden.de/~wernerr/grammar/verben_dt.html
@@ -10,170 +9,171 @@ concrete IrregGer of IrregGerAbs = CatGer ** open
in {
flags optimize=values ;
coding=utf8 ;
lin backen_V = irregV "backen" "bäckt" "backt" "backt" "gebacken" ;
lin backen_u_V = irregV "backen" "bäckt" "buk" "buke" "gebacken" ;
lin befehlen_V = irregV "befehlen" "befiehlt" "befahl" "beföhle" "befähle)" ;
lin beginnen_V = irregV "beginnen" "beginnt" "begann" "begönne" "begänne)" ;
lin beißen_V = irregV "beißen" "beißt" "biß" "biße" "gebissen" ;
lin bergen_V = irregV "bergen" "birgt" "barg" "bärge" "geborgen" ;
lin bersten_V = irregV "bersten" "birst" "barst" "bärste" "geborsten" ;
lin bewegen_V = irregV "bewegen" "bewegt" "bewog" "bewöge" "bewogen" ;
lin biegen_V = irregV "biegen" "biegt" "bog" "böge" "gebogen" ;
lin bieten_V = irregV "bieten" "bietet" "bot" "böte" "geboten" ;
lin binden_V = irregV "binden" "bindt" "band" "bände" "gebunden" ;
lin bitten_V = irregV "bitten" "bittet" "bat" "bäte" "gebeten" ;
lin blasen_V = irregV "blasen" "bläst" "blies" "bliese" "geblasen" ;
lin backen_V = irregV "backen" "bäckt" "backt" "backt" "gebacken" ;
lin backen_u_V = irregV "backen" "bäckt" "buk" "buke" "gebacken" ;
lin befehlen_V = irregV "befehlen" "befiehlt" "befahl" "beföhle" "befähle)" ;
lin beginnen_V = irregV "beginnen" "beginnt" "begann" "begönne" "begänne)" ;
lin beißen_V = irregV "beißen" "beißt" "biß" "biße" "gebissen" ;
lin bergen_V = irregV "bergen" "birgt" "barg" "bärge" "geborgen" ;
lin bersten_V = irregV "bersten" "birst" "barst" "bärste" "geborsten" ;
lin bewegen_V = irregV "bewegen" "bewegt" "bewog" "bewöge" "bewogen" ;
lin biegen_V = irregV "biegen" "biegt" "bog" "böge" "gebogen" ;
lin bieten_V = irregV "bieten" "bietet" "bot" "böte" "geboten" ;
lin binden_V = irregV "binden" "bindt" "band" "bände" "gebunden" ;
lin bitten_V = irregV "bitten" "bittet" "bat" "bäte" "gebeten" ;
lin blasen_V = irregV "blasen" "bläst" "blies" "bliese" "geblasen" ;
lin bleiben_V = irregV "bleiben" "bleibt" "blieb" "bliebe" "geblieben" ;
lin braten_V = irregV "braten" "brät" "briet" "briete" "gebraten" ;
lin brechen_V = irregV "brechen" "bricht" "brach" "bräche" "gebrochen" ;
lin braten_V = irregV "braten" "brät" "briet" "briete" "gebraten" ;
lin brechen_V = irregV "brechen" "bricht" "brach" "bräche" "gebrochen" ;
lin brennen_V = irregV "brennen" "brennt" "brannte" "brennte" "gebrannt" ;
lin bringen_V = irregV "bringen" "bringt" "brachte" "brachte" "gebracht" ;
lin denken_V = irregV "denken" "denkt" "dachte" "dachte" "gedacht" ;
lin dingen_V = irregV "dingen" "dingt" "dingte" "dang" "gedungen" ;
lin dreschen_V = irregV "dreschen" "drischt" "drosch" "drösche" "gedroschen" ;
lin dringen_V = irregV "dringen" "dringt" "drang" "dränge" "gedrungen" ;
lin dürfen_V = M.mkV
"dürfen" "darf" "darfst" "darf" "dürft" "dürf"
lin dreschen_V = irregV "dreschen" "drischt" "drosch" "drösche" "gedroschen" ;
lin dringen_V = irregV "dringen" "dringt" "drang" "dränge" "gedrungen" ;
lin dürfen_V = M.mkV
"dürfen" "darf" "darfst" "darf" "dürft" "dürf"
"durfte" "durftest" "durften" "durftet"
"dürfte" "gedurft" []
"dürfte" "gedurft" []
M.VHaben ** {lock_V = <>} ;
lin empfehlen_V = irregV "empfehlen" "empfiehlt" "empfahl"
"empfähle" "empfohlen" ;
"empfähle" "empfohlen" ;
lin empfehlen_o_V = irregV "empfehlen" "empfiehlt" "empfahl"
"empföhle" "empfohlen" ;
lin erlöschen_V = irregV "erlöschen" "erlischt" "erlosch" "erlösche" "erloschen" ;
"empföhle" "empfohlen" ;
lin erlöschen_V = irregV "erlöschen" "erlischt" "erlosch" "erlösche" "erloschen" ;
lin erkennen_V = irregV "erkennen" "erkennt" "erkannte" "erkannte" "erkannt" ;
lin erschrecken_V = irregV "erschrecken" "erschrickt" "erschrak" "erschräke" "erschrocken" ;
lin essen_V = irregV "essen" "ißt" "aß" "äße" "gegessen" ;
lin fahren_V = irregV "fahren" "fährt" "fuhr" "führe" "gefahren" ;
lin fallen_V = irregV "fallen" "fällt" "fiel" "fiele" "gefallen" ;
lin fangen_V = irregV "fangen" "fängt" "fing" "finge" "gefangen" ;
lin fechten_V = irregV "fechten" "fechtet" "focht" "föchte" "gefochten" ;
lin finden_V = irregV "finden" "findt" "fand" "fände" "gefunden" ;
lin flechten_V = irregV "flechten" "flicht" "flocht" "flöchte" "geflochten" ;
lin fliegen_V = irregV "fliegen" "fliegt" "flog" "flöge" "geflogen" ;
lin fliehen_V = irregV "fliehen" "flieht" "floh" "flöhe" "geflohen" ;
lin fließen_V = irregV "fließen" "fließt" "floß" "flösse" "geflossen" ;
lin fressen_V = irregV "fressen" "frißt" "fraß" "fräße" "gefressen" ;
lin frieren_V = irregV "frieren" "friert" "fror" "fröre" "gefroren" ;
lin gären_V = irregV "gären" "gärt" "gärte" "göre" "gegoren" ;
lin gären_o_V = irregV "gären" "gärt" "gor" "göre" "gegoren" ;
lin gebären_V = irregV "gebären" "gebiert" "gebar" "gebäre" "geboren" ;
lin geben_V = irregV "geben" "gibt" "gab" "gäbe" "gegeben" ;
lin erschrecken_V = irregV "erschrecken" "erschrickt" "erschrak" "erschräke" "erschrocken" ;
lin essen_V = irregV "essen" "ißt" "aß" "äße" "gegessen" ;
lin fahren_V = irregV "fahren" "fährt" "fuhr" "führe" "gefahren" ;
lin fallen_V = irregV "fallen" "fällt" "fiel" "fiele" "gefallen" ;
lin fangen_V = irregV "fangen" "fängt" "fing" "finge" "gefangen" ;
lin fechten_V = irregV "fechten" "fechtet" "focht" "föchte" "gefochten" ;
lin finden_V = irregV "finden" "findt" "fand" "fände" "gefunden" ;
lin flechten_V = irregV "flechten" "flicht" "flocht" "flöchte" "geflochten" ;
lin fliegen_V = irregV "fliegen" "fliegt" "flog" "flöge" "geflogen" ;
lin fliehen_V = irregV "fliehen" "flieht" "floh" "flöhe" "geflohen" ;
lin fließen_V = irregV "fließen" "fließt" "floß" "flösse" "geflossen" ;
lin fressen_V = irregV "fressen" "frißt" "fraß" "fräße" "gefressen" ;
lin frieren_V = irregV "frieren" "friert" "fror" "fröre" "gefroren" ;
lin gären_V = irregV "gären" "gärt" "gärte" "göre" "gegoren" ;
lin gären_o_V = irregV "gären" "gärt" "gor" "göre" "gegoren" ;
lin gebären_V = irregV "gebären" "gebiert" "gebar" "gebäre" "geboren" ;
lin geben_V = irregV "geben" "gibt" "gab" "gäbe" "gegeben" ;
lin gedeihen_V = irregV "gedeihen" "gedeiht" "gedieh" "gediehe" "gediehen" ;
lin gehen_V = irregV "gehen" "geht" "ging" "ginge" "gegangen" ;
lin gelingen_V = irregV "gelingen" "gelingt" "gelang" "gelange" "gelungen" ;
lin gelten_V = irregV "gelten" "gilt" "galt" "galte" "gegolten" ;
lin gelten_o_V = irregV "gelten" "gilt" "galt" "golte" "gegolten" ;
lin genesen_V = irregV "genesen" "genest" "genas" "genäse" "genesen" ;
lin genießen_V = irregV "genießen" "genießt" "genoß" "genösse" "genossen" ;
lin geschehen_V = irregV "geschehen" "geschieht" "geschah" "geschehen" "geschähe" ;
lin gewinnen_V = irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen" ;
lin gewinnen_o_V = irregV "gewinnen" "gewinnt" "gewann" "gewönne" "gewonnen" ;
lin gießen_V = irregV "gießen" "gießt" "goß" "gösse" "gegossen" ;
lin genesen_V = irregV "genesen" "genest" "genas" "genäse" "genesen" ;
lin genießen_V = irregV "genießen" "genießt" "genoß" "genösse" "genossen" ;
lin geschehen_V = irregV "geschehen" "geschieht" "geschah" "geschehen" "geschähe" ;
lin gewinnen_V = irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen" ;
lin gewinnen_o_V = irregV "gewinnen" "gewinnt" "gewann" "gewönne" "gewonnen" ;
lin gießen_V = irregV "gießen" "gießt" "goß" "gösse" "gegossen" ;
lin gleichen_V = irregV "gleichen" "gleicht" "glich" "gliche" "geglichen" ;
lin gleiten_V = irregV "gleiten" "gleitet" "glitt" "glitte" "geglitten" ;
lin glimmen_V = irregV "glimmen" "glimmt" "glomm" "glimmte" "glömme" ;
lin graben_V = irregV "graben" "gräbt" "grub" "grübe" "gegraben" ;
lin glimmen_V = irregV "glimmen" "glimmt" "glomm" "glimmte" "glömme" ;
lin graben_V = irregV "graben" "gräbt" "grub" "grübe" "gegraben" ;
lin greifen_V = irregV "greifen" "greift" "griff" "griffe" "gegriffen" ;
lin haben_V = irregV "haben" "hat" "hatte" "hätte" "gehabt" ;
lin halten_V = irregV "halten" "hält" "hielt" "hielte" "gehalten" ;
lin hängen_V = irregV "hängen" "hängt" "hing" "hinge" "gehangen" ;
lin haben_V = irregV "haben" "hat" "hatte" "hätte" "gehabt" ;
lin halten_V = irregV "halten" "hält" "hielt" "hielte" "gehalten" ;
lin hängen_V = irregV "hängen" "hängt" "hing" "hinge" "gehangen" ;
lin hauen_V = irregV "hauen" "haut" "hieb" "hiebe" "gehauen" ;
lin hauen_te_V = irregV "hauen" "haut" "haute" "haute" "gehauen" ;
lin heben_V = irregV "heben" "hebt" "hob" "höbe" "gehoben" ;
lin heißen_V = irregV "heißen" "heißt" "hieß" "hieße" "geheißen" ;
lin helfen_V = irregV "helfen" "hilft" "half" "hülfe" "geholfen" ;
lin heben_V = irregV "heben" "hebt" "hob" "höbe" "gehoben" ;
lin heißen_V = irregV "heißen" "heißt" "hieß" "hieße" "geheißen" ;
lin helfen_V = irregV "helfen" "hilft" "half" "hülfe" "geholfen" ;
lin kennen_V = irregV "kennen" "kennt" "kannte" "kennte" "gekannt" ;
lin klimmen_V = irregV "klimmen" "klimmt" "klomm" "klömme" "geklommen" ;
lin klingen_V = irregV "klingen" "klingt" "klang" "klänge" "geklungen" ;
lin klimmen_V = irregV "klimmen" "klimmt" "klomm" "klömme" "geklommen" ;
lin klingen_V = irregV "klingen" "klingt" "klang" "klänge" "geklungen" ;
lin kneifen_V = irregV "kneifen" "kneift" "kniff" "kniffe" "gekniffen" ;
lin kommen_V = irregV "kommen" "kommt" "kam" "käme" "gekommen" ;
lin können_V = M.mkV
"können" "kann" "kannst" "kann" "könnt" "könn"
lin kommen_V = irregV "kommen" "kommt" "kam" "käme" "gekommen" ;
lin können_V = M.mkV
"können" "kann" "kannst" "kann" "könnt" "könn"
"konnte" "konntest" "konnten" "konntet"
"könnte" "gekonnt" []
"könnte" "gekonnt" []
M.VHaben ** {lock_V = <>} ;
lin kriechen_V = irregV "kriechen" "kriecht" "kroch" "kröche" "gekrochen" ;
lin küren_V = irregV "küren" "kürt" "kürte" "kor" "gekürt" ;
lin laden_V = irregV "laden" "lädt" "lud" "lüde" "geladen" ;
lin lassen_V = irregV "lassen" "läßt" "ließ" "ließe" "gelassen" ;
lin laufen_V = irregV "laufen" "läuft" "lief" "liefe" "gelaufen" ;
lin kriechen_V = irregV "kriechen" "kriecht" "kroch" "kröche" "gekrochen" ;
lin küren_V = irregV "küren" "kürt" "kürte" "kor" "gekürt" ;
lin laden_V = irregV "laden" "lädt" "lud" "lüde" "geladen" ;
lin lassen_V = irregV "lassen" "läßt" "ließ" "ließe" "gelassen" ;
lin laufen_V = irregV "laufen" "läuft" "lief" "liefe" "gelaufen" ;
lin leiden_V = irregV "leiden" "leidt" "litt" "litte" "gelitten" ;
lin leihen_V = irregV "leihen" "leiht" "lieh" "liehe" "geliehen" ;
lin lesen_V = irregV "lesen" "liest" "las" "läse" "gelesen" ;
lin liegen_V = irregV "liegen" "liegt" "lag" "läge" "gelegen" ;
lin lügen_V = irregV "lügen" "lügt" "log" "löge" "gelogen" ;
lin lesen_V = irregV "lesen" "liest" "las" "läse" "gelesen" ;
lin liegen_V = irregV "liegen" "liegt" "lag" "läge" "gelegen" ;
lin lügen_V = irregV "lügen" "lügt" "log" "löge" "gelogen" ;
lin mahlen_V = irregV "mahlen" "mahlt" "mahlte" "mahlte" "gemahlen" ;
lin meiden_V = irregV "meiden" "meidt" "mied" "miede" "gemieden" ;
lin melken_V = irregV "melken" "milkt" "molk" "mölke" "gemolken" ;
lin messen_V = irregV "messen" "mißt" "maß" "mäße" "gemessen" ;
lin mißlingen_V = irregV "mißlingen" "mißlingt" "mißlang" "mißlungen" "mißlänge" ;
lin mögen_V = M.mkV
"mögen" "mag" "magst" "mag" "mögt" "mög"
lin melken_V = irregV "melken" "milkt" "molk" "mölke" "gemolken" ;
lin messen_V = irregV "messen" "mißt" "maß" "mäße" "gemessen" ;
lin mißlingen_V = irregV "mißlingen" "mißlingt" "mißlang" "mißlungen" "mißlänge" ;
lin mögen_V = M.mkV
"mögen" "mag" "magst" "mag" "mögt" "mög"
"mochte" "mochtest" "mochten" "mochtet"
"möchte" "gemocht" []
"möchte" "gemocht" []
M.VHaben ** {lock_V = <>} ;
lin müssen_V = M.mkV
"müssen" "muß" "mußt" "muß" "müßt" "müß"
"mußte" "mußtest" "mußten" "mußtet"
"müßte" "gemußt" []
lin müssen_V = M.mkV
"müssen" "muß" "mußt" "muß" "müßt" "müß"
"mußte" "mußtest" "mußten" "mußtet"
"müßte" "gemußt" []
M.VHaben ** {lock_V = <>} ;
lin nehmen_V = mk6V "nehmen" "nimmt" "nimm" "nahm" "nähme" "genommen" ;
lin nehmen_V = mk6V "nehmen" "nimmt" "nimm" "nahm" "nähme" "genommen" ;
lin nennen_V = irregV "nennen" "nennt" "nannte" "nennte" "genannt" ;
lin pfeifen_V = irregV "pfeifen" "pfeift" "pfiff" "pfiffe" "gepfiffen" ;
lin preisen_V = irregV "preisen" "preist" "pries" "priese" "gepriesen" ;
lin quellen_V = irregV "quellen" "quillt" "quoll" "quölle" "gequollen" ;
lin raten_V = irregV "raten" "rät" "riet" "riete" "geraten" ;
lin quellen_V = irregV "quellen" "quillt" "quoll" "quölle" "gequollen" ;
lin raten_V = irregV "raten" "rät" "riet" "riete" "geraten" ;
lin reiben_V = irregV "reiben" "reibt" "rieb" "riebe" "gerieben" ;
lin reißen_V = irregV "reißen" "reißt" "riß" "riße" "gerissen" ;
lin reißen_V = irregV "reißen" "reißt" "riß" "riße" "gerissen" ;
lin reiten_V = irregV "reiten" "reitet" "ritt" "ritte" "geritten" ;
lin rennen_V = irregV "rennen" "rennt" "rannte" "rennte" "gerannt" ;
lin riechen_V = irregV "riechen" "riecht" "roch" "röche" "gerochen" ;
lin ringen_V = irregV "ringen" "ringt" "rang" "ränge" "gerungen" ;
lin rinnen_V = irregV "rinnen" "rinnt" "rann" "ränne" "geronnen" ;
lin riechen_V = irregV "riechen" "riecht" "roch" "röche" "gerochen" ;
lin ringen_V = irregV "ringen" "ringt" "rang" "ränge" "gerungen" ;
lin rinnen_V = irregV "rinnen" "rinnt" "rann" "ränne" "geronnen" ;
lin rufen_V = irregV "rufen" "ruft" "rief" "riefe" "gerufen" ;
lin salzen_V = irregV "salzen" "salzt" "salzte" "salzte" "gesalzen" ;
lin saufen_V = irregV "saufen" "säuft" "soff" "söffe" "gesoffen" ;
lin saufen_V = irregV "saufen" "säuft" "soff" "söffe" "gesoffen" ;
lin saugen_V = irregV "saugen" "saugt" "sog" "soge" "gesogen" ;
lin schaffen_V = irregV "schaffen" "schafft" "schuf" "schüfe" "geschaffen" ;
lin schaffen_V = irregV "schaffen" "schafft" "schuf" "schüfe" "geschaffen" ;
lin scheiden_V = irregV "scheiden" "scheidt" "schied" "schiede" "geschieden" ;
lin scheinen_V = irregV "scheinen" "scheint" "schien" "schiene" "geschienen" ;
lin scheißen_V = irregV "scheißen" "scheißt" "schiß" "schiße" "geschissen" ;
lin schelten_V = irregV "schelten" "schilt" "schalt" "schölte" "gescholten" ;
lin scheren_V = irregV "scheren" "schert" "schor" "schöre" "geschoren" ;
lin schieben_V = irregV "schieben" "schiebt" "schob" "schöbe" "geschoben" ;
lin schießen_V = irregV "schießen" "schießt" "schoß" "schösse" "geschossen" ;
lin scheißen_V = irregV "scheißen" "scheißt" "schiß" "schiße" "geschissen" ;
lin schelten_V = irregV "schelten" "schilt" "schalt" "schölte" "gescholten" ;
lin scheren_V = irregV "scheren" "schert" "schor" "schöre" "geschoren" ;
lin schieben_V = irregV "schieben" "schiebt" "schob" "schöbe" "geschoben" ;
lin schießen_V = irregV "schießen" "schießt" "schoß" "schösse" "geschossen" ;
lin schinden_V = irregV "schinden" "schindt" "schund" "schunde" "geschunden" ;
lin schlafen_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
lin schlagen_V = irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen" ;
lin schlafen_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
lin schlagen_V = irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen" ;
lin schleichen_V = irregV "schleichen" "schleicht" "schlich" "schliche" "geschlichen" ;
lin schleifen_V = irregV "schleifen" "schleift" "schliff" "schliffe" "geschliffen" ;
lin schleißen_V = irregV "schleißen" "schleißt" "schliß" "schliß" "geschlissen" ;
lin schließen_V = irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen" ;
lin schlingen_V = irregV "schlingen" "schlingt" "schlang" "schlünge" "geschlungen" ;
lin schmeißen_V = irregV "schmeißen" "schmeißt" "schmiß" "schmiße" "geschmissen" ;
lin schmelzen_V = irregV "schmelzen" "schmilzt" "schmolz" "schmölze" "geschmolzen" ;
lin schleißen_V = irregV "schleißen" "schleißt" "schliß" "schliß" "geschlissen" ;
lin schließen_V = irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen" ;
lin schlingen_V = irregV "schlingen" "schlingt" "schlang" "schlünge" "geschlungen" ;
lin schmeißen_V = irregV "schmeißen" "schmeißt" "schmiß" "schmiße" "geschmissen" ;
lin schmelzen_V = irregV "schmelzen" "schmilzt" "schmolz" "schmölze" "geschmolzen" ;
lin schneiden_V = irregV "schneiden" "schneidt" "schnitt" "schnitte" "geschnitten" ;
lin schreiben_V = irregV "schreiben" "schreibt" "schrieb" "schriebe" "geschrieben" ;
lin schreien_V = irregV "schreien" "schreit" "schrie" "schrie" "geschrien" ;
lin schreiten_V = irregV "schreiten" "schreitet" "schritt" "schritte" "geschritten" ;
lin schweigen_V = irregV "schweigen" "schweigt" "schwieg" "schwiege" "geschwiegen" ;
lin schwellen_V = irregV "schwellen" "schwillt" "schwoll" "schwölle" "geschwollen" ;
lin schwimmen_V = irregV "schwimmen" "schwimmt" "schwamm" "schwämme" "geschwommen" ;
lin schwimmen_o_V = irregV "schwimmen" "schwimmt" "schwamm" "schwömme" "geschwommen" ;
lin schwinden_V = irregV "schwinden" "schwindt" "schwand" "schwände" "geschwunden" ;
lin schwingen_V = irregV "schwingen" "schwingt" "schwang" "schwänge" "geschwungen" ;
lin schwören_V = irregV "schwören" "schwört" "schwor" "schwüre" "geschworen" ;
lin sehen_V = irregV "sehen" "sieht" "sah" "sähe" "gesehen" ;
lin sein_V = irregV "sein" "ist" "war" "wäre" "gewesen" ;
lin schwellen_V = irregV "schwellen" "schwillt" "schwoll" "schwölle" "geschwollen" ;
lin schwimmen_V = irregV "schwimmen" "schwimmt" "schwamm" "schwämme" "geschwommen" ;
lin schwimmen_o_V = irregV "schwimmen" "schwimmt" "schwamm" "schwömme" "geschwommen" ;
lin schwinden_V = irregV "schwinden" "schwindt" "schwand" "schwände" "geschwunden" ;
lin schwingen_V = irregV "schwingen" "schwingt" "schwang" "schwänge" "geschwungen" ;
lin schwören_V = irregV "schwören" "schwört" "schwor" "schwüre" "geschworen" ;
lin sehen_V = irregV "sehen" "sieht" "sah" "sähe" "gesehen" ;
lin sein_V = irregV "sein" "ist" "war" "wäre" "gewesen" ;
lin senden_V = irregV "senden" "sendt" "sandte" "sandte" "gesandt" ;
lin sieden_V = irregV "sieden" "siedt" "sott" "sotte" "gesotten" ;
lin singen_V = irregV "singen" "singt" "sang" "sänge" "gesungen" ;
lin sinken_V = irregV "sinken" "sinkt" "sank" "sänke" "gesunken" ;
lin sinnen_V = irregV "sinnen" "sinnt" "sann" "sänne" "gesonnen" ;
lin sitzen_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
lin singen_V = irregV "singen" "singt" "sang" "sänge" "gesungen" ;
lin sinken_V = irregV "sinken" "sinkt" "sank" "sänke" "gesunken" ;
lin sinnen_V = irregV "sinnen" "sinnt" "sann" "sänne" "gesonnen" ;
lin sitzen_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
lin sollen_V = M.mkV
"sollen" "soll" "sollst" "soll" "sollt" "soll"
"sollte" "solltest" "sollten" "solltet"
@@ -181,52 +181,52 @@ in {
M.VHaben ** {lock_V = <>} ;
lin speien_V = irregV "speien" "speit" "spie" "spie" "gespien" ;
lin spinnen_V = irregV "spinnen" "spinnt" "spann" "spänne" "gesponnen" ;
lin spinnen_o_V = irregV "spinnen" "spinnt" "spann" "spönne" "gesponnen" ;
lin spleißen_V = irregV "spleißen" "spleißt" "spliß" "spliße" "gesplissen" ;
lin sprechen_V = irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen" ;
lin sprießen_V = irregV "sprießen" "sprießt" "sproß" "sprösse" "gesprossen" ;
lin springen_V = irregV "springen" "springt" "sprang" "spränge" "gesprungen" ;
lin stechen_V = irregV "stechen" "sticht" "stach" "stäche" "gestochen" ;
lin stehen_V = irregV "stehen" "steht" "stand" "stände" "gestanden" ;
lin stehen_u_V = irregV "stehen" "steht" "stand" "stünde" "gestanden" ;
lin stehlen_V = irregV "stehlen" "stiehlt" "stahl" "stähle" "gestohlen" ;
lin spinnen_V = irregV "spinnen" "spinnt" "spann" "spänne" "gesponnen" ;
lin spinnen_o_V = irregV "spinnen" "spinnt" "spann" "spönne" "gesponnen" ;
lin spleißen_V = irregV "spleißen" "spleißt" "spliß" "spliße" "gesplissen" ;
lin sprechen_V = irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen" ;
lin sprießen_V = irregV "sprießen" "sprießt" "sproß" "sprösse" "gesprossen" ;
lin springen_V = irregV "springen" "springt" "sprang" "spränge" "gesprungen" ;
lin stechen_V = irregV "stechen" "sticht" "stach" "stäche" "gestochen" ;
lin stehen_V = irregV "stehen" "steht" "stand" "stände" "gestanden" ;
lin stehen_u_V = irregV "stehen" "steht" "stand" "stünde" "gestanden" ;
lin stehlen_V = irregV "stehlen" "stiehlt" "stahl" "stähle" "gestohlen" ;
lin steigen_V = irregV "steigen" "steigt" "stieg" "stiege" "gestiegen" ;
lin sterben_V = irregV "sterben" "stirbt" "starb" "stürbe" "gestorben" ;
lin stieben_V = irregV "stieben" "stiebt" "stob" "stöbe" "gestoben" ;
lin stinken_V = irregV "stinken" "stinkt" "stank" "stänke" "gestunken" ;
lin stoßen_V = irregV "stoßen" "stößt" "stieß" "stieße" "gestoßen" ;
lin sterben_V = irregV "sterben" "stirbt" "starb" "stürbe" "gestorben" ;
lin stieben_V = irregV "stieben" "stiebt" "stob" "stöbe" "gestoben" ;
lin stinken_V = irregV "stinken" "stinkt" "stank" "stänke" "gestunken" ;
lin stoßen_V = irregV "stoßen" "stößt" "stieß" "stieße" "gestoßen" ;
lin streichen_V = irregV "streichen" "streicht" "strich" "striche" "gestrichen" ;
lin streiten_V = irregV "streiten" "streitet" "stritt" "stritte" "gestritten" ;
lin tragen_V = irregV "tragen" "trägt" "trug" "trüge" "getragen" ;
lin treffen_V = irregV "treffen" "trifft" "traf" "träfe" "getroffen" ;
lin tragen_V = irregV "tragen" "trägt" "trug" "trüge" "getragen" ;
lin treffen_V = irregV "treffen" "trifft" "traf" "träfe" "getroffen" ;
lin treiben_V = irregV "treiben" "treibt" "trieb" "triebe" "getrieben" ;
lin treten_V = irregV "treten" "tritt" "trat" "träte" "getreten" ;
lin trinken_V = irregV "trinken" "trinkt" "trank" "tränke" "getrunken" ;
lin trügen_V = irregV "trügen" "trügt" "trog" "tröge" "getrogen" ;
lin tun_V = irregV "tun" "tut" "tat" "täte" "getan" ;
lin treten_V = irregV "treten" "tritt" "trat" "träte" "getreten" ;
lin trinken_V = irregV "trinken" "trinkt" "trank" "tränke" "getrunken" ;
lin trügen_V = irregV "trügen" "trügt" "trog" "tröge" "getrogen" ;
lin tun_V = irregV "tun" "tut" "tat" "täte" "getan" ;
lin verderben_V = irregV "verderben" "verdirbt" "verdarb" "verdarbe" "verdorben" ;
lin verlieren_V = irregV "verlieren" "verliert" "verlor" "verlöre" "verloren" ;
lin wachsen_V = irregV "wachsen" "wächst" "wuchs" "wüchse" "gewachsen" ;
lin wägen_V = irregV "wägen" "wägt" "wog" "woge" "gewogen" ;
lin waschen_V = irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen" ;
lin weben_V = irregV "weben" "webt" "wob" "wöbe" "gewoben" ;
lin verlieren_V = irregV "verlieren" "verliert" "verlor" "verlöre" "verloren" ;
lin wachsen_V = irregV "wachsen" "wächst" "wuchs" "wüchse" "gewachsen" ;
lin wägen_V = irregV "wägen" "wägt" "wog" "woge" "gewogen" ;
lin waschen_V = irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen" ;
lin weben_V = irregV "weben" "webt" "wob" "wöbe" "gewoben" ;
lin weichen_V = irregV "weichen" "weicht" "wich" "wiche" "gewichen" ;
lin weisen_V = irregV "weisen" "weist" "wies" "wiese" "gewiesen" ;
lin wenden_V = irregV "wenden" "wendt" "wandte" "wandte" "gewandt" ;
lin werben_V = irregV "werben" "wirbt" "warb" "würbe" "geworben" ;
lin werben_V = irregV "werben" "wirbt" "warb" "würbe" "geworben" ;
lin werden_V = M.mkV
"werden" "werde" "wirst" "wird" "werdet" "werd"
"wurde" "wurdest" "wurden" "wurdet"
"würde" "geworden" []
"würde" "geworden" []
M.VHaben ** {lock_V = <>} ;
lin werfen_V = irregV "werfen" "wirft" "warf" "würfe" "geworfen" ;
lin wiegen_V = irregV "wiegen" "wiegt" "wog" "wöge" "gewogen" ;
lin winden_V = irregV "winden" "windt" "wand" "wände" "gewunden" ;
lin werfen_V = irregV "werfen" "wirft" "warf" "würfe" "geworfen" ;
lin wiegen_V = irregV "wiegen" "wiegt" "wog" "wöge" "gewogen" ;
lin winden_V = irregV "winden" "windt" "wand" "wände" "gewunden" ;
lin wissen_V = M.mkV
"wissen" "weiß" "weißt" "weiß" "wisst" "wisse"
"wissen" "weiß" "weißt" "weiß" "wisst" "wisse"
"wusste" "wusstest" "wussten" "wusstet"
"wüsste" "gewusst" []
"wüsste" "gewusst" []
M.VHaben ** {lock_V = <>} ;
lin wollen_V = M.mkV
"wollen" "will" "willst" "will" "wollt" "woll"
@@ -235,9 +235,9 @@ in {
M.VHaben ** {lock_V = <>} ;
lin wringen_V = irregV "wringen" "wringt" "wrang" "wränge" "gewrungen" ;
lin wringen_V = irregV "wringen" "wringt" "wrang" "wränge" "gewrungen" ;
lin zeihen_V = irregV "zeihen" "zeiht" "zieh" "ziehe" "geziehen" ;
lin ziehen_V = irregV "ziehen" "zieht" "zog" "zöge" "gezogen" ;
lin zwingen_V = irregV "zwingen" "zwingt" "zwang" "zwänge" "gezwungen" ;
lin ziehen_V = irregV "ziehen" "zieht" "zog" "zöge" "gezogen" ;
lin zwingen_V = irregV "zwingen" "zwingt" "zwang" "zwänge" "gezwungen" ;
}

View File

@@ -1,11 +1,11 @@
--# -coding=latin1
abstract IrregGerAbs = Cat ** {
flags coding=utf8 ;
fun backen_V : V ;
fun backen_u_V : V ;
fun befehlen_V : V ;
fun beginnen_V : V ;
fun beißen_V : V ;
fun beißen_V : V ;
fun bergen_V : V ;
fun bersten_V : V ;
fun bewegen_V : V ;
@@ -23,10 +23,10 @@ abstract IrregGerAbs = Cat ** {
fun dingen_V : V ;
fun dreschen_V : V ;
fun dringen_V : V ;
fun dürfen_V : V ;
fun dürfen_V : V ;
fun empfehlen_V : V ;
fun empfehlen_o_V : V ;
fun erlöschen_V : V ;
fun erlöschen_V : V ;
fun erkennen_V : V ;
fun erschrecken_V : V ;
fun essen_V : V ;
@@ -38,12 +38,12 @@ abstract IrregGerAbs = Cat ** {
fun flechten_V : V ;
fun fliegen_V : V ;
fun fliehen_V : V ;
fun fließen_V : V ;
fun fließen_V : V ;
fun fressen_V : V ;
fun frieren_V : V ;
fun gären_V : V ;
fun gären_o_V : V ;
fun gebären_V : V ;
fun gären_V : V ;
fun gären_o_V : V ;
fun gebären_V : V ;
fun geben_V : V ;
fun gedeihen_V : V ;
fun gehen_V : V ;
@@ -51,11 +51,11 @@ abstract IrregGerAbs = Cat ** {
fun gelten_V : V ;
fun gelten_o_V : V ;
fun genesen_V : V ;
fun genießen_V : V ;
fun genießen_V : V ;
fun geschehen_V : V ;
fun gewinnen_V : V ;
fun gewinnen_o_V : V ;
fun gießen_V : V ;
fun gießen_V : V ;
fun gleichen_V : V ;
fun gleiten_V : V ;
fun glimmen_V : V ;
@@ -63,20 +63,20 @@ abstract IrregGerAbs = Cat ** {
fun greifen_V : V ;
fun haben_V : V ;
fun halten_V : V ;
fun hängen_V : V ;
fun hängen_V : V ;
fun hauen_V : V ;
fun hauen_te_V : V ;
fun heben_V : V ;
fun heißen_V : V ;
fun heißen_V : V ;
fun helfen_V : V ;
fun kennen_V : V ;
fun klimmen_V : V ;
fun klingen_V : V ;
fun kneifen_V : V ;
fun kommen_V : V ;
fun können_V : V ;
fun können_V : V ;
fun kriechen_V : V ;
fun küren_V : V ;
fun küren_V : V ;
fun laden_V : V ;
fun lassen_V : V ;
fun laufen_V : V ;
@@ -84,14 +84,14 @@ abstract IrregGerAbs = Cat ** {
fun leihen_V : V ;
fun lesen_V : V ;
fun liegen_V : V ;
fun lügen_V : V ;
fun lügen_V : V ;
fun mahlen_V : V ;
fun meiden_V : V ;
fun melken_V : V ;
fun messen_V : V ;
fun mißlingen_V : V ;
fun mögen_V : V ;
fun müssen_V : V ;
fun mißlingen_V : V ;
fun mögen_V : V ;
fun müssen_V : V ;
fun nehmen_V : V ;
fun nennen_V : V ;
fun pfeifen_V : V ;
@@ -99,7 +99,7 @@ abstract IrregGerAbs = Cat ** {
fun quellen_V : V ;
fun raten_V : V ;
fun reiben_V : V ;
fun reißen_V : V ;
fun reißen_V : V ;
fun reiten_V : V ;
fun rennen_V : V ;
fun riechen_V : V ;
@@ -112,20 +112,20 @@ abstract IrregGerAbs = Cat ** {
fun schaffen_V : V ;
fun scheiden_V : V ;
fun scheinen_V : V ;
fun scheißen_V : V ;
fun scheißen_V : V ;
fun schelten_V : V ;
fun scheren_V : V ;
fun schieben_V : V ;
fun schießen_V : V ;
fun schießen_V : V ;
fun schinden_V : V ;
fun schlafen_V : V ;
fun schlagen_V : V ;
fun schleichen_V : V ;
fun schleifen_V : V ;
fun schleißen_V : V ;
fun schließen_V : V ;
fun schleißen_V : V ;
fun schließen_V : V ;
fun schlingen_V : V ;
fun schmeißen_V : V ;
fun schmeißen_V : V ;
fun schmelzen_V : V ;
fun schneiden_V : V ;
fun schreiben_V : V ;
@@ -137,7 +137,7 @@ abstract IrregGerAbs = Cat ** {
fun schwimmen_o_V : V ;
fun schwinden_V : V ;
fun schwingen_V : V ;
fun schwören_V : V ;
fun schwören_V : V ;
fun sehen_V : V ;
fun sein_V : V ;
fun senden_V : V ;
@@ -150,9 +150,9 @@ abstract IrregGerAbs = Cat ** {
fun speien_V : V ;
fun spinnen_V : V ;
fun spinnen_o_V : V ;
fun spleißen_V : V ;
fun spleißen_V : V ;
fun sprechen_V : V ;
fun sprießen_V : V ;
fun sprießen_V : V ;
fun springen_V : V ;
fun stechen_V : V ;
fun stehen_V : V ;
@@ -162,7 +162,7 @@ abstract IrregGerAbs = Cat ** {
fun sterben_V : V ;
fun stieben_V : V ;
fun stinken_V : V ;
fun stoßen_V : V ;
fun stoßen_V : V ;
fun streichen_V : V ;
fun streiten_V : V ;
fun tragen_V : V ;
@@ -170,12 +170,12 @@ abstract IrregGerAbs = Cat ** {
fun treiben_V : V ;
fun treten_V : V ;
fun trinken_V : V ;
fun trügen_V : V ;
fun trügen_V : V ;
fun tun_V : V ;
fun verderben_V : V ;
fun verlieren_V : V ;
fun wachsen_V : V ;
fun wägen_V : V ;
fun wägen_V : V ;
fun waschen_V : V ;
fun weben_V : V ;
fun weichen_V : V ;

View File

@@ -1,5 +1,4 @@
--# -path=.:../common:../abstract:../../prelude
--# -coding=latin1
-- work by Aarne Ranta, Andreas Priesnitz, and Henning Thielemann.
@@ -7,128 +6,129 @@ concrete LexiconGer of Lexicon = CatGer **
open Prelude, ParadigmsGer, (Mo = MorphoGer), IrregGer in {
flags
coding=utf8 ;
optimize=all_subs ;
lin
add_V3 = dirV3 (prefixV "hinzu" (regV "fügen")) zu_Prep ;
add_V3 = dirV3 (prefixV "hinzu" (regV "fügen")) zu_Prep ;
airplane_N = mkN "Flugzeug" ;
already_Adv = mkAdv "schon" ;
answer_V2S = mkV2S (regV "antworten") datPrep ;
apartment_N = mkN "Wohnung" ;
apple_N = reg2N "Apfel" "Äpfel" masculine ;
art_N = reg2N "Kunst" "Künste" feminine ;
apple_N = reg2N "Apfel" "Äpfel" masculine ;
art_N = reg2N "Kunst" "Künste" feminine ;
ask_V2Q = mkV2Q (regV "fragen") accPrep ;
baby_N = reg2N "Baby" "Babies" neuter ; ----
bad_A = regA "schlecht" ;
bank_N = reg2N "Bank" "Banken" feminine ;
beautiful_A = regA "schön" ;
beautiful_A = regA "schön" ;
become_VA = mkVA IrregGer.werden_V ;
beer_N = reg2N "Bier" "Biere" neuter ;
beg_V2V = mkV2V (mk6V "bitten" "bittet" "bitte" "bat" "bäte" "gebeten") accPrep ;
big_A = mk3A "groß" "größer" "größte" ;
bike_N = reg2N "Fahrrad" "Fahrräder" neuter ;
bird_N = reg2N "Vogel" "Vögel" masculine ;
beg_V2V = mkV2V (mk6V "bitten" "bittet" "bitte" "bat" "bäte" "gebeten") accPrep ;
big_A = mk3A "groß" "größer" "größte" ;
bike_N = reg2N "Fahrrad" "Fahrräder" neuter ;
bird_N = reg2N "Vogel" "Vögel" masculine ;
black_A = regA "schwarz" ;
blue_A = regA "blau";
boat_N = reg2N "Boot" "Boote" neuter ;
book_N = reg2N "Buch" "Bücher" neuter ;
book_N = reg2N "Buch" "Bücher" neuter ;
boot_N = reg2N "Stiefel" "Stiefel" masculine ;
boss_N = reg2N "Chef" "Chefs" masculine ; ----
boy_N = reg2N "Junge" "Jungen" masculine ;
bread_N = reg2N "Brot" "Brote" neuter ;
break_V2 = dirV2
(irregV "zerschlagen" "zerschlägt" "zerschlug" "zerschlüge" "zerschlagen") ;
(irregV "zerschlagen" "zerschlägt" "zerschlug" "zerschlüge" "zerschlagen") ;
broad_A = regA "breit" ;
brother_N2 = mkN2 (reg2N "Bruder" "Brüder" masculine) von_Prep ;
brother_N2 = mkN2 (reg2N "Bruder" "Brüder" masculine) von_Prep ;
brown_A = regA "braun" ;
butter_N = reg2N "Butter" "Butter" feminine ; ---- infl
buy_V2 = dirV2 (regV "kaufen") ;
camera_N = reg2N "Kamera" "Kameras" feminine ;
cap_N = mkN "Mütze" ;
cap_N = mkN "Mütze" ;
car_N = mkN "Auto" "Autos" neuter | mkN "Wagen" "Wagen" masculine ;
carpet_N = mkN "Teppich" ;
cat_N = mkN "Katze" ;
ceiling_N = reg2N "Dach" "Dächer" neuter ;
chair_N = reg2N "Stuhl" "Stühle" masculine ;
cheese_N = mkN "Käse" "Käse" masculine ;
ceiling_N = reg2N "Dach" "Dächer" neuter ;
chair_N = reg2N "Stuhl" "Stühle" masculine ;
cheese_N = mkN "Käse" "Käse" masculine ;
child_N = reg2N "Kind" "Kinder" neuter ;
church_N = mkN "Kirche" ;
city_N = reg2N "Stadt" "Städte" feminine ;
city_N = reg2N "Stadt" "Städte" feminine ;
clean_A = regA "rein" ;
clever_A = mk3A "klug" "klüger" "klügste" ;
close_V2 = dirV2 (irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen") ;
clever_A = mk3A "klug" "klüger" "klügste" ;
close_V2 = dirV2 (irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen") ;
coat_N = mkN "Jacke" ;
cold_A = regA "kalt" ;
come_V = seinV (mk6V "kommen" "kommt" "komm" "kam" "käme" "gekommen") ;
come_V = seinV (mk6V "kommen" "kommt" "komm" "kam" "käme" "gekommen") ;
computer_N = reg2N "Rechner" "Rechner" masculine ;
country_N = reg2N "Land" "Länder" neuter ;
country_N = reg2N "Land" "Länder" neuter ;
cousin_N = reg2N "Vetter" "Vetter" masculine ; --- Kusine
cow_N = reg2N "Kuh" "Kühe" feminine ;
die_V = seinV (irregV "sterben" "stirbt" "starb" "stürbe" "gestorben") ;
cow_N = reg2N "Kuh" "Kühe" feminine ;
die_V = seinV (irregV "sterben" "stirbt" "starb" "stürbe" "gestorben") ;
distance_N3 = mkN3 (mkN "Entfernung") von_Prep zu_Prep ;
dirty_A = regA "schmutzig" ;
do_V2 = dirV2 (irregV "tun" "tut" "tat" "täte" "getan") ;
doctor_N = reg2N "Arzt" "Ärzte" masculine ;
do_V2 = dirV2 (irregV "tun" "tut" "tat" "täte" "getan") ;
doctor_N = reg2N "Arzt" "Ärzte" masculine ;
dog_N = mkN "Hund" ;
door_N = reg2N "Tür" "Türen" feminine ;
drink_V2 = dirV2 (irregV "trinken" "trinkt" "trank" "tränke" "getrunken") ;
easy_A2V = mkA2V (regA "leicht") (mkPrep "für" accusative) ;
eat_V2 = dirV2 (irregV "essen" "ißt" "aß" "äße" "gegessen") ;
door_N = reg2N "Tür" "Türen" feminine ;
drink_V2 = dirV2 (irregV "trinken" "trinkt" "trank" "tränke" "getrunken") ;
easy_A2V = mkA2V (regA "leicht") (mkPrep "für" accusative) ;
eat_V2 = dirV2 (irregV "essen" "ißt" "aß" "äße" "gegessen") ;
empty_A = regA "leer" ; ---- check infl
enemy_N = mkN "Feind" ;
factory_N = mkN "Fabrik" "Fabriken" feminine ;
father_N2 = mkN2 (reg2N "Vater" "Väter" masculine) von_Prep ;
fear_VS = mkVS (regV "fürchten") ;
find_V2 = dirV2 (irregV "finden" "findet" "fand" "fände" "gefunden") ;
father_N2 = mkN2 (reg2N "Vater" "Väter" masculine) von_Prep ;
fear_VS = mkVS (regV "fürchten") ;
find_V2 = dirV2 (irregV "finden" "findet" "fand" "fände" "gefunden") ;
fish_N = mkN "Fisch" ;
floor_N = reg2N "Fußboden" "Fußböden" masculine ;
forget_V2 = dirV2 (irregV "vergessen" "vergißt" "vergaß" "vergäße" "vergessen") ;
fridge_N = reg2N "Kühlschrank" "Kühlschränke" masculine ;
floor_N = reg2N "Fußboden" "Fußböden" masculine ;
forget_V2 = dirV2 (irregV "vergessen" "vergißt" "vergaß" "vergäße" "vergessen") ;
fridge_N = reg2N "Kühlschrank" "Kühlschränke" masculine ;
friend_N = mkN "Freund" ;
fruit_N = reg2N "Frucht" "Früchte" feminine ;
fruit_N = reg2N "Frucht" "Früchte" feminine ;
fun_AV = mkAV (regA "toll") ;
garden_N = reg2N "Garten" "Gärten" masculine ;
girl_N = reg2N "Mädchen" "Mädchen" neuter ;
garden_N = reg2N "Garten" "Gärten" masculine ;
girl_N = reg2N "Mädchen" "Mädchen" neuter ;
glove_N = mkN "Handschuh" ;
gold_N = reg2N "Gold" "Golde" neuter ; ---- infl
good_A = mk3A "gut" "besser" "beste" ;
go_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
green_A = regA "grün" ;
harbour_N = reg2N "Hafen" "Häfen" masculine ;
green_A = regA "grün" ;
harbour_N = reg2N "Hafen" "Häfen" masculine ;
hate_V2 = dirV2 (regV "hassen") ;
hat_N = reg2N "Hut" "Hüte" masculine ;
hear_V2 = dirV2 (regV "hören") ;
hill_N = mkN "Hügel" ;
hat_N = reg2N "Hut" "Hüte" masculine ;
hear_V2 = dirV2 (regV "hören") ;
hill_N = mkN "Hügel" ;
hope_VS = mkVS (regV "hoffen") ;
horse_N = reg2N "Pferd" "Pferde" neuter ;
hot_A = regA "heiß" ;
house_N = reg2N "Haus" "Häuser" neuter ;
hot_A = regA "heiß" ;
house_N = reg2N "Haus" "Häuser" neuter ;
important_A = regA "wichtig" ;
industry_N = mkN "Industrie" ;
iron_N = reg2N "Eisen" "Eisen" neuter ;
jump_V = seinV (irregV "springen" "springt" "sprang" "spränge" "gesprungen") ;
king_N = mkN "König" ;
know_V2 = dirV2 (irregV "kennen" "kennt" "kannte" "kännte" "gekannt") ; ---- infl
jump_V = seinV (irregV "springen" "springt" "sprang" "spränge" "gesprungen") ;
king_N = mkN "König" ;
know_V2 = dirV2 (irregV "kennen" "kennt" "kannte" "kännte" "gekannt") ; ---- infl
know_VQ = mkVQ wissen_V ;
know_VS = mkVS wissen_V ;
lake_N = reg2N "See" "Seen" masculine ; --- infl
lamp_N = mkN "Lampe";
learn_V2 = dirV2 (regV "lernen") ;
leather_N = reg2N "Leder" "Leder" neuter ;
leave_V2 = dirV2 (irregV "verlassen" "verläßt" "verließ" "verließe" "verlassen") ;
like_V2 = dirV2 (irregV "mögen" "mag" "mochte" "möchte" "gemocht") ;
listen_V2 = prepV2 (prefixV "zu" (regV "hören")) datPrep ; ---- dat
leave_V2 = dirV2 (irregV "verlassen" "verläßt" "verließ" "verließe" "verlassen") ;
like_V2 = dirV2 (irregV "mögen" "mag" "mochte" "möchte" "gemocht") ;
listen_V2 = prepV2 (prefixV "zu" (regV "hören")) datPrep ; ---- dat
live_V = regV "leben" ;
long_A = mk3A "lang" "länger" "längste" ;
lose_V2 = dirV2 (irregV "verlieren" "verliert" "verlor" "verlöre" "verloren") ;
long_A = mk3A "lang" "länger" "längste" ;
lose_V2 = dirV2 (irregV "verlieren" "verliert" "verlor" "verlöre" "verloren") ;
love_N = mkN "Liebe" ;
love_V2 = dirV2 (regV "lieben") ;
man_N = reg2N "Mann" "Männer" masculine ;
man_N = reg2N "Mann" "Männer" masculine ;
married_A2 = mkA2 (regA "verheiratet") (mkPrep "mit" dative) ;
meat_N = reg2N "Fleisch" "Fleische" neuter ; ---- infl
milk_N = reg2N "Milch" "Milche" feminine ; ---- infl
moon_N = mkN "Mond" ;
mother_N2 = mkN2 (reg2N "Mutter" "Mütter" feminine) von_Prep ;
mother_N2 = mkN2 (reg2N "Mutter" "Mütter" feminine) von_Prep ;
mountain_N = mkN "Berg" ;
music_N = reg2N "Musik" "Musiken" feminine ;
narrow_A = regA "schmal" ;
@@ -136,9 +136,9 @@ lin
newspaper_N = mkN "Zeitung" ;
now_Adv = mkAdv "jetzt" ;
number_N = reg2N "Zahl" "Zahlen" feminine ;
oil_N = reg2N "Öl" "Öle" neuter ;
old_A = mk3A "alt" "älter" "älteste" ;
open_V2 = dirV2 (regV "öffnen") ;
oil_N = reg2N "Öl" "Öle" neuter ;
old_A = mk3A "alt" "älter" "älteste" ;
open_V2 = dirV2 (regV "öffnen") ;
paint_V2A = mkV2A (regV "malen") accPrep ;
paper_N = reg2N "Papier" "Papiere" neuter ;
paris_PN = mkPN "Paris" "Paris" ;
@@ -151,47 +151,47 @@ lin
priest_N = mkN "Priester" ;
probable_AS = mkAS (regA "wahrscheinlich") ;
put_V2 = dirV2 (regV "setzen") ;
queen_N = reg2N "Königin" "Königinnen" feminine ;
queen_N = reg2N "Königin" "Königinnen" feminine ;
radio_N = reg2N "Radio" "Radios" neuter ; ----
rain_V0 = mkV0 (regV "regnen") ;
read_V2 = dirV2 (irregV "lesen" "liest" "las" "läse" "gelesen") ;
read_V2 = dirV2 (irregV "lesen" "liest" "las" "läse" "gelesen") ;
red_A = regA "rot" ;
religion_N = mkN "Religion" ;
restaurant_N = reg2N "Restaurant" "Restaurants" neuter ;
river_N = reg2N "Fluß" "Flüsse" masculine ;
river_N = reg2N "Fluß" "Flüsse" masculine ;
rock_N = mkN "Stein" ;
roof_N = reg2N "Dach" "Dächer" neuter ;
roof_N = reg2N "Dach" "Dächer" neuter ;
rubber_N = reg2N "Gummi" "Gummis" neuter ;
run_V = seinV (irregV "laufen" "läuft" "lief" "liefe" "gelaufen") ;
run_V = seinV (irregV "laufen" "läuft" "lief" "liefe" "gelaufen") ;
say_VS = mkVS (regV "sagen") ;
school_N = mkN "Schule";
science_N = reg2N "Wissenschaft" "Wissenschaften" feminine ;
sea_N = reg2N "Meer" "Meere" neuter ;
seek_V2 = dirV2 (regV "suchen") ;
see_V2 = dirV2 (irregV "sehen" "sieht" "sah" "sähe" "gesehen") ;
see_V2 = dirV2 (irregV "sehen" "sieht" "sah" "sähe" "gesehen") ;
sell_V3 = accdatV3 (no_geV (regV "verkaufen")) ;
send_V3 = accdatV3 (regV "schicken") ;
sheep_N = reg2N "Schaf" "Schafe" neuter ;
ship_N = reg2N "Schiff" "Schiffe" neuter ;
shirt_N = reg2N "Hemd" "Hemden" neuter ; ---- infl
shoe_N = mkN "Schuh" ;
shop_N = reg2N "Laden" "Läden" masculine ;
short_A = mk3A "kurz" "kürzer" "kürzeste" ;
shop_N = reg2N "Laden" "Läden" masculine ;
short_A = mk3A "kurz" "kürzer" "kürzeste" ;
silver_N = reg2N "Silber" "Silber" neuter ; ---- infl
sister_N = reg2N "Schwester" "Schwestern" feminine ;
sleep_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
sleep_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
small_A = regA "klein" ;
snake_N = mkN "Schlange" ;
sock_N = reg2N "Strumpf" "Strümpfe" masculine ;
sock_N = reg2N "Strumpf" "Strümpfe" masculine ;
song_N = reg2N "Lied" "Lieder" neuter ;
speak_V2 = dirV2 (irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen") ;
speak_V2 = dirV2 (irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen") ;
star_N = mkN "Sterne" ;
steel_N = mkN "Stahl" ;
stone_N = mkN "Stein" ;
stop_V = seinV (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
stop_V = seinV (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
stove_N = mkN "Herd" ;
student_N = reg2N "Student" "Studenten" masculine ;
stupid_A = mk3A "dumm" "dümmer" "dümmste" ; ----
stupid_A = mk3A "dumm" "dümmer" "dümmste" ; ----
sun_N = mkN "Sonne" ;
switch8off_V2 = dirV2 (prefixV "aus" (regV "schalten")) ;
switch8on_V2 = dirV2 (prefixV "ein" (regV "schalten")) ;
@@ -201,32 +201,32 @@ lin
teach_V2 = dirV2 (no_geV (regV "unterrichten")) ;
television_N = reg2N "Fernsehen" "Fernsehen" neuter;
thick_A = regA "dick" ;
thin_A = regA "dünn" ;
train_N = reg2N "Zug" "Züge" masculine ;
thin_A = regA "dünn" ;
train_N = reg2N "Zug" "Züge" masculine ;
travel_V = regV "reisen" ;
tree_N = reg2N "Baum" "Bäume" masculine ;
tree_N = reg2N "Baum" "Bäume" masculine ;
---- trousers_N = mkN "trousers" ; ---- pl t !
ugly_A = regA "häßlich" ;
ugly_A = regA "häßlich" ;
understand_V2 =
dirV2 (irregV "verstehen" "versteht" "verstand" "verstände" "verstanden") ;
university_N = reg2N "Universität" "Universitäten" feminine ;
village_N = reg2N "Dorf" "Dörfer" neuter ;
dirV2 (irregV "verstehen" "versteht" "verstand" "verstände" "verstanden") ;
university_N = reg2N "Universität" "Universitäten" feminine ;
village_N = reg2N "Dorf" "Dörfer" neuter ;
wait_V2 = prepV2 (regV "warten") (mkPrep "auf" accusative) ;
walk_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
warm_A = mk3A "warm" "wärmer" "wärmste" ;
warm_A = mk3A "warm" "wärmer" "wärmste" ;
war_N = mkN "Krieg" ;
watch_V2 = prepV2 (regV "schauen") (mkPrep "an" accusative) ;
water_N = reg2N "Wasser" "Wasser" neuter ;
white_A = regA "weiß" ;
white_A = regA "weiß" ;
window_N = reg2N "Fenster" "Fenster" neuter ;
wine_N = mkN "Wein" ;
win_V2 = dirV2 (irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen") ;
win_V2 = dirV2 (irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen") ;
woman_N = reg2N "Frau" "Frauen" feminine ;
wonder_VQ = mkVQ (reflV (regV "wundern") accusative) ;
wood_N = reg2N "Holz" "Hölzer" neuter ;
wood_N = reg2N "Holz" "Hölzer" neuter ;
write_V2 = dirV2 (irregV "schreiben" "schreibt" "schrieb" "schriebe" "geschrieben") ;
yellow_A = regA "gelb" ;
young_A = mk3A "jung" "jünger" "jüngste" ;
young_A = mk3A "jung" "jünger" "jüngste" ;
left_Ord = Mo.mkOrd (regA "link") ;
right_Ord = Mo.mkOrd (regA "recht") ;
far_Adv = mkAdv "weit" ;
@@ -235,76 +235,76 @@ lin
dull_A = regA "stumpf" ;
full_A = regA "voll" ;
heavy_A = mkA "schwer" "schwere" "schwerer" "schwerste" ;
near_A = mk3A "nahe" "näher" "nächste" ;
near_A = mk3A "nahe" "näher" "nächste" ;
rotten_A = regA "verdorben" ;
round_A = regA "rund" ;
sharp_A = mk3A "scharf" "schärfer" "schärfste" ;
sharp_A = mk3A "scharf" "schärfer" "schärfste" ;
smooth_A = regA "glatt" ;
straight_A = regA "gerade" ;
wet_A = regA "naß" ;
wet_A = regA "naß" ;
wide_A = regA "breit" ;
animal_N = reg2N "Tier" "Tiere" neuter ;
ashes_N = mkN "Asche" ;
back_N = reg2N "Rücken" "Rücken" masculine ;
back_N = reg2N "Rücken" "Rücken" masculine ;
bark_N = mkN "Rinde" ;
belly_N = reg2N "Bauch" "Bäuche" masculine ;
belly_N = reg2N "Bauch" "Bäuche" masculine ;
blood_N = mkN "Blut" "Blute" neuter ;
bone_N = reg2N "Knochen" "Knochen" masculine ;
breast_N = reg2N "Brust" "Brüste" feminine ;
breast_N = reg2N "Brust" "Brüste" feminine ;
cloud_N = mkN "Wolke" ;
day_N = mkN "Tag" ;
dust_N = reg2N "Staub" "Stäube" masculine ;
dust_N = reg2N "Staub" "Stäube" masculine ;
ear_N = mkN "Ohr" "Ohren" neuter ;
earth_N = mkN "Erde" ;
egg_N = mkN "Ei" "Eier" neuter ;
eye_N = mkN "Auge" "Augen" neuter;
fat_N = mkN "Fett" "Fetter" neuter ;
feather_N = mkN "Feder" "Federn" feminine ;
fingernail_N = reg2N "Fingernagel" "Fingernägel" masculine ;
fingernail_N = reg2N "Fingernagel" "Fingernägel" masculine ;
fire_N = mkN "Feuer" "Feuer" neuter ;
flower_N = mkN "Blume" ;
fog_N = mkN "Nebel" "Nebel" masculine ;
foot_N = reg2N "Fuß" "Füße" masculine ;
forest_N = reg2N "Wald" "Wälder" masculine ;
grass_N = mkN "Gras" "Gräser" neuter ;
foot_N = reg2N "Fuß" "Füße" masculine ;
forest_N = reg2N "Wald" "Wälder" masculine ;
grass_N = mkN "Gras" "Gräser" neuter ;
guts_N = mkN "Eingeweide" ;
hair_N = mkN "Haar" "Haare" neuter ;
hand_N = mkN "Hand" "Hände" feminine ;
head_N = mkN "Kopf" "Köpfe" masculine ;
hand_N = mkN "Hand" "Hände" feminine ;
head_N = mkN "Kopf" "Köpfe" masculine ;
heart_N = mkN "Herz" "Herzen" neuter ;
horn_N = mkN "Horn" "Hörner" neuter ;
husband_N = mkN "Ehemann" "Ehemänner" masculine ;
horn_N = mkN "Horn" "Hörner" neuter ;
husband_N = mkN "Ehemann" "Ehemänner" masculine ;
ice_N = mkN "Eis" "Eise" neuter ;
knee_N = mkN "Knie" "Knien" neuter ;
leaf_N = reg2N "Blatt" "Blätter" neuter ;
leaf_N = reg2N "Blatt" "Blätter" neuter ;
leg_N = mkN "Bein" "Beine" neuter ;
liver_N = mkN "Leber" "Lebern" feminine ;
louse_N = reg2N "Laus" "Läuse" feminine ;
mouth_N = mkN "Mund" "Münder" masculine ;
louse_N = reg2N "Laus" "Läuse" feminine ;
mouth_N = mkN "Mund" "Münder" masculine ;
name_N = mkN "Name" "Namen" "Namen" "Namens" "Namen" "Namen" masculine ;
neck_N = mkN "Nacken" "Nacken" masculine ;
night_N = reg2N "Nacht" "Nächte" feminine ;
night_N = reg2N "Nacht" "Nächte" feminine ;
nose_N = mkN "Nase" ;
person_N = mkN "Person" "Personen" feminine ;
rain_N = mkN "Regen" ;
road_N = mkN "Straße" ;
road_N = mkN "Straße" ;
root_N = mkN "Wurzel" "Wurzeln" feminine ;
rope_N = mkN "Seil" "Seile" neuter ;
salt_N = mkN "Salz" "Salze" neuter ;
sand_N = mkN "Sand" ;
seed_N = mkN "Same" ;
skin_N = mkN "Haut" "Häute" feminine ;
skin_N = mkN "Haut" "Häute" feminine ;
sky_N = mkN "Himmel" ; ---- pl
smoke_N = mkN "Rauch" ;
snow_N = mkN "Schnee" "Schneen" masculine ; ---- pl
stick_N = mkN "Stock" "Stöcke" masculine ;
tail_N = mkN "Schwanz" "Schwänze" masculine ;
stick_N = mkN "Stock" "Stöcke" masculine ;
tail_N = mkN "Schwanz" "Schwänze" masculine ;
tongue_N = mkN "Zunge" ;
tooth_N = mkN "Zahn" "Zähne" masculine ;
tooth_N = mkN "Zahn" "Zähne" masculine ;
wife_N = mkN "Ehefrau" "Ehefrauen" feminine ;
wind_N = mkN "Wind" ;
wing_N = reg2N "Flügel" "Flügel" masculine ;
worm_N = mkN "Wurm" "Würmer" masculine ;
wing_N = reg2N "Flügel" "Flügel" masculine ;
worm_N = mkN "Wurm" "Würmer" masculine ;
year_N = mkN "Jahr" "Jahre" neuter ;
blow_V = regV "blasen" ;
breathe_V = regV "atmen" ;
@@ -312,16 +312,16 @@ lin
dig_V = regV "graben" ;
fall_V = regV "fallen" ;
float_V = regV "treiben" ;
flow_V = regV "fließen" ;
flow_V = regV "fließen" ;
fly_V = regV "fliegen" ;
freeze_V = regV "frieren" ;
give_V3 = accdatV3 (irregV "geben" "gibt" "gab" "gäbe" "gegeben") ;
give_V3 = accdatV3 (irregV "geben" "gibt" "gab" "gäbe" "gegeben") ;
laugh_V = regV "lachen" ;
lie_V = regV "lügen" ;
lie_V = regV "lügen" ;
play_V = regV "spielen" ;
sew_V = regV "nähen" ;
sew_V = regV "nähen" ;
sing_V = regV "singen" ;
sit_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
sit_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
smell_V = regV "riechen" ;
spit_V = regV "spucken" ;
stand_V = regV "stehen" ;
@@ -331,26 +331,26 @@ lin
turn_V = regV "drehen" ;
vomit_V = regV "kotzen" ;
bite_V2 = dirV2 (irregV "beißen" "beißt" "biss" "bisse" "gebissen") ;
count_V2 = dirV2 (regV "zählen") ;
bite_V2 = dirV2 (irregV "beißen" "beißt" "biss" "bisse" "gebissen") ;
count_V2 = dirV2 (regV "zählen") ;
cut_V2 = dirV2 (irregV "schneiden" "schneidet" "schnitt" "schnitte" "geschnitten") ;
fear_V2 = dirV2 (regV "fürchten") ;
fight_V2 = dirV2 (regV "bekämpfen") ;
hit_V2 = dirV2 (irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen") ;
hold_V2 = dirV2 (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
fear_V2 = dirV2 (regV "fürchten") ;
fight_V2 = dirV2 (regV "bekämpfen") ;
hit_V2 = dirV2 (irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen") ;
hold_V2 = dirV2 (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
hunt_V2 = dirV2 (regV "jagen") ;
kill_V2 = dirV2 (regV "töten") ;
pull_V2 = dirV2 (irregV "ziehen" "zieht" "zog" "zöge" "gezogen") ;
push_V2 = dirV2 (irregV "schieben" "schiebt" "schub" "schübe" "geschoben") ;
kill_V2 = dirV2 (regV "töten") ;
pull_V2 = dirV2 (irregV "ziehen" "zieht" "zog" "zöge" "gezogen") ;
push_V2 = dirV2 (irregV "schieben" "schiebt" "schub" "schübe" "geschoben") ;
rub_V2 = dirV2 (irregV "reiben" "reibt" "rieb" "riebe" "gerieben") ;
scratch_V2 = dirV2 (regV "kratzen") ;
split_V2 = dirV2 (prefixV "auf" (regV "teilen")) ;
squeeze_V2 = dirV2 (regV "pressen") ;
stab_V2 = dirV2 (irregV "stechen" "sticht" "stach" "stäche" "gestochen") ;
stab_V2 = dirV2 (irregV "stechen" "sticht" "stach" "stäche" "gestochen") ;
suck_V2 = dirV2 (regV "saugen") ;
throw_V2 = dirV2 (irregV "werfen" "wirft" "warf" "würfe" "geworfen") ;
tie_V2 = dirV2 (irregV "binden" "bindet" "band" "bände" "gebunden") ;
wash_V2 = dirV2 (irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen") ;
throw_V2 = dirV2 (irregV "werfen" "wirft" "warf" "würfe" "geworfen") ;
tie_V2 = dirV2 (irregV "binden" "bindet" "band" "bände" "gebunden") ;
wash_V2 = dirV2 (irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen") ;
wipe_V2 = dirV2 (regV "wischen") ;
grammar_N = reg2N "Grammatik" "Grammatiken" feminine ;
@@ -360,7 +360,7 @@ lin
john_PN = regPN "Johann" ;
question_N = mkN "Frage" ;
ready_A = regA "fertig" ;
reason_N = reg2N "Grund" "Gründe" masculine ;
reason_N = reg2N "Grund" "Gründe" masculine ;
today_Adv = mkAdv "heute" ;
uncertain_A = regA "unsicher" ;

View File

@@ -1,9 +1,8 @@
--# -path=.:../common:../../prelude
--# -coding=latin1
--
----1 A Simple German Resource Morphology
----
---- Aarne Ranta & Harald Hammarström 2002 -- 2006
---- Aarne Ranta & Harald Hammarström 2002 -- 2006
----
---- This resource morphology contains definitions needed in the resource
---- syntax. To build a lexicon, it is better to use $ParadigmsGer$, which
@@ -12,6 +11,7 @@
resource MorphoGer = ResGer ** open Prelude, (Predef=Predef) in {
flags optimize=all ;
coding=utf8 ;
oper
@@ -36,7 +36,7 @@ oper
genitS : Bool -> Str -> Str = \flag,hund -> case hund of {
_ + ("el" | "en" | "er") => hund + "s" ;
_ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
_ + ("s" | "ß" | "sch" | "st" | "x" | "z") => hund + "es" ;
_ => hund + case flag of {True => "s"; False => "es"}
} ;
pluralN : Str -> Str = \hund -> case hund of {
@@ -52,14 +52,14 @@ oper
-- Duden, p. 119
verbT : Str -> Str = \v -> case v of {
_ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
_ + ("t" | "d") => v + "et" ; -- gründen, reden, betten
_ + ("ch" | "k" | "p" | "t" | "g" | "b" | "d" | "f" | "s") +
("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
_ => v + "t" -- lernen, lärmen, qualmen etc
("m" | "n") => v + "et" ; -- atmen, widmen, öffnen, rechnen
_ => v + "t" -- lernen, lärmen, qualmen etc
} ;
verbST : Str -> Str = \v -> case v of {
_ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
_ + ("s" | "ss" | "ß" | "sch" | "x" | "z") => v + "t" ;
_ => v + "st"
} ;

View File

@@ -1,7 +1,7 @@
--# -coding=latin1
concrete NumeralGer of Numeral = CatGer [Numeral,Digits] ** open MorphoGer, Prelude in {
flags optimize = all_subs ;
coding=utf8 ;
lincat
Digit = {s : DForm => CardOrd => Str} ;
@@ -12,10 +12,10 @@ lincat
lin
num x = x ;
n2 = mkDigit "zwei" "zwölf" "zwanzig" "zweite" ;
n2 = mkDigit "zwei" "zwölf" "zwanzig" "zweite" ;
n3 = mkDigit "drei" "dreizehn" "dreissig" "dritte" ;
n4 = regDigit "vier" ;
n5 = regDigit "fünf" ;
n5 = regDigit "fünf" ;
n6 = regDigit "sechs" ;
n7 = mkDigit "sieben" "siebzehn" "siebzig" "siebte" ;
n8 = mkDigit "acht" "achzehn" "achzig" "achte" ;

View File

@@ -1,9 +1,8 @@
--# -path=.:../common:../abstract:../../prelude
--# -coding=latin1
--1 German Lexical Paradigms
--
-- Aarne Ranta, Harald Hammarström and Björn Bringert2003--2007
-- Aarne Ranta, Harald Hammarström and Björn Bringert2003--2007
--
-- This is an API for the user of the resource grammar
-- for adding lexical items. It gives functions for forming
@@ -27,6 +26,7 @@ resource ParadigmsGer = open
MorphoGer,
CatGer
in {
flags coding=utf8 ;
--2 Parameters
@@ -84,7 +84,7 @@ mkN : overload {
-- Worst case: give all four singular forms, two plural forms (others + dative),
-- and the gender.
mkN : (x1,_,_,_,_,x6 : Str) -> Gender -> N ; -- worst case: mann, mann, manne, mannes, männer, männern
mkN : (x1,_,_,_,_,x6 : Str) -> Gender -> N ; -- worst case: mann, mann, manne, mannes, männer, männern
-- compound nouns
@@ -150,7 +150,7 @@ mkN : overload {
mkA : overload {
-- The regular adjective formation works for most cases, and includes
-- variations such as "teuer - teurer", "böse - böser".
-- variations such as "teuer - teurer", "böse - böser".
mkA : Str -> A ; -- regular adjective, works for most cases
@@ -209,11 +209,11 @@ mkV : overload {
-- Regular verbs ("weak verbs") need just the infinitive form.
mkV : (führen : Str) -> V ; -- regular verb
mkV : (führen : Str) -> V ; -- regular verb
-- Irregular verbs use Ablaut and, in the worst cases, also Umlaut.
mkV : (sehen,sieht,sah,sähe,gesehen : Str) -> V ; -- irregular verb theme
mkV : (sehen,sieht,sah,sähe,gesehen : Str) -> V ; -- irregular verb theme
-- The worst-case constructor needs six forms:
-- - Infinitive,
@@ -225,7 +225,7 @@ mkV : overload {
--
--
mkV : (geben, gibt, gib, gab, gäbe, gegeben : Str) -> V ; -- worst-case verb
mkV : (geben, gibt, gib, gab, gäbe, gegeben : Str) -> V ; -- worst-case verb
-- To add a movable prefix e.g. "auf(fassen)".
@@ -289,7 +289,7 @@ mkV2 : overload {
mkV3 : overload {
mkV3 : V -> V3 ; -- geben + acc + dat
mkV3 : V -> Prep -> Prep -> V3 ; -- sprechen + mit + über
mkV3 : V -> Prep -> Prep -> V3 ; -- sprechen + mit + über
} ;
--3 Other complement patterns

View File

@@ -1,9 +1,8 @@
--# -path=.:../abstract:../common:prelude
--# -coding=latin1
--1 German auxiliary operations.
--
-- (c) 2002-2006 Aarne Ranta and Harald Hammarström
-- (c) 2002-2006 Aarne Ranta and Harald Hammarström
--
-- This module contains operations that are needed to make the
-- resource syntax work. To define everything that is needed to
@@ -13,6 +12,7 @@
resource ResGer = ParamX ** open Prelude in {
flags optimize=all ;
coding=utf8 ;
--2 For $Noun$
@@ -114,7 +114,7 @@ resource ResGer = ParamX ** open Prelude in {
param
Order = Main | Inv | Sub ;
-- Main clause mood: "es sei, es wäre, es werde sein".
-- Main clause mood: "es sei, es wäre, es werde sein".
-- Not relevant for $Fut$. ---
Mood = MIndic | MConjunct ;
@@ -574,21 +574,21 @@ resource ResGer = ParamX ** open Prelude in {
mkV
"haben" "habe" "hast" "hat" "habt" "hab"
"hatte" "hattest" "hatten" "hattet"
"hätte" "gehabt"
"hätte" "gehabt"
[] VHaben ;
werden_V : Verb =
mkV
"werden" "werde" "wirst" "wird" "werdet" "werd"
"wurde" "wurdest" "wurden" "wurdet"
"würde" "geworden"
"würde" "geworden"
[] VSein ;
werdenPass : Verb =
mkV
"werden" "werde" "wirst" "wird" "werdet" "werd"
"wurde" "wurdest" "wurden" "wurdet"
"würde" "worden"
"würde" "worden"
[] VSein ;
sein_V : Verb =
@@ -596,7 +596,7 @@ resource ResGer = ParamX ** open Prelude in {
sein = mkV
"sein" "bin" "bist" "ist" "seid" "sei"
"war" "warst" "waren" "wart"
"wäre" "gewesen"
"wäre" "gewesen"
[] VSein
in
{s = table {

View File

@@ -1,14 +1,14 @@
--# -coding=latin1
concrete StructuralGer of Structural = CatGer **
open MorphoGer, MakeStructuralGer, (X = ConstructX),
(P = ParadigmsGer), IrregGer, Prelude in {
flags optimize=all ;
coding=utf8 ;
lin
above_Prep = mkPrep "über" P.dative ;
above_Prep = mkPrep "über" P.dative ;
after_Prep = mkPrep "nach" P.dative ;
all_Predet = {s = appAdj (regA "all") ; c = noCase ; a = PAgNone} ;
almost_AdA, almost_AdN = ss "fast" ;
@@ -25,19 +25,19 @@ concrete StructuralGer of Structural = CatGer **
by8means_Prep = mkPrep "mit" P.dative ;
can8know_VV, can_VV = auxVV
(mkV
"können" "kann" "kannst" "kann" "könnt" "könn"
"können" "kann" "kannst" "kann" "könnt" "könn"
"konnte" "konntest" "konnten" "konntet"
"könnte" "gekonnt" []
"könnte" "gekonnt" []
VHaben) ;
during_Prep = mkPrep "während" P.genitive ;
during_Prep = mkPrep "während" P.genitive ;
either7or_DConj = sd2 "entweder" "oder" ** {n = Sg} ;
everybody_NP = nameNounPhrase {s = caselist "jeder" "jeden" "jedem" "jedes"} ;
every_Det = detLikeAdj False Sg "jed" ;
everything_NP = nameNounPhrase {s = caselist "alles" "alles" "allem" "alles"} ;
everywhere_Adv = ss "überall" ;
everywhere_Adv = ss "überall" ;
few_Det = detLikeAdj False Pl "wenig" ;
---- first_Ord = {s = (regA "erst").s ! Posit} ;
for_Prep = mkPrep "für" P.accusative ;
for_Prep = mkPrep "für" P.accusative ;
from_Prep = mkPrep "aus" P.dative ;
he_Pron = mkPronPers "er" "ihn" "ihm" "seiner" "sein" Masc Sg P3 ;
here7to_Adv = ss ["hierher"] ;
@@ -58,9 +58,9 @@ concrete StructuralGer of Structural = CatGer **
much_Det = detLikeAdj False Sg "viel" ;
must_VV = auxVV
(mkV
"müssen" "muß" "mußt" "muß" "müßt" "müß"
"mußte" "mußtest" "mußten" "mußtet"
"müßte" "gemußt" []
"müssen" "muß" "mußt" "muß" "müßt" "müß"
"mußte" "mußtest" "mußten" "mußtet"
"müßte" "gemußt" []
VHaben) ;
--- one_Quant = DEPREC
only_Predet = {s = \\_,_,_ => "nur" ; c = noCase ; a = PAgNone} ;
@@ -147,12 +147,12 @@ concrete StructuralGer of Structural = CatGer **
nothing_NP =
nameNounPhrase {s = \\_ => "nichts"} ;
at_least_AdN = ss "wenigstens" ;
at_most_AdN = ss "höchstens" ;
except_Prep = mkPrep "außer" P.dative ;
at_most_AdN = ss "höchstens" ;
except_Prep = mkPrep "außer" P.dative ;
as_CAdv = X.mkCAdv "ebenso" "wie" ;
have_V2 = P.dirV2 IrregGer.haben_V ;
that_Subj = ss "daß" ;
that_Subj = ss "daß" ;
lin language_title_Utt = ss "Deutsch" ;

View File

@@ -8,6 +8,7 @@ concrete TerminologyGer of Terminology = CatGer ** open
(L = LexiconGer),
Prelude
in {
flags coding=utf8 ;
lincat