Tense to Common ; Idiom ; Text

This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent b6957f4e41
commit e0dc7034ac
39 changed files with 255 additions and 61 deletions

View File

@@ -1,4 +1,4 @@
concrete CatGer of Cat = TenseX ** open ResGer, Prelude in {
concrete CatGer of Cat = CommonX ** open ResGer, Prelude in {
flags optimize=all_subs ;
@@ -6,7 +6,7 @@ concrete CatGer of Cat = TenseX ** open ResGer, Prelude in {
-- Phrase
Text, Phr, Utt, Voc = {s : Str} ;
Utt, Voc = {s : Str} ;
-- Tensed/Untensed

View File

@@ -0,0 +1,7 @@
concrete IdiomGer of Idiom = CatGer **
open MorphoGer, ParadigmsGer, Prelude in {
flags optimize=all_subs ;
}

View File

@@ -11,10 +11,12 @@ concrete LangGer of Lang =
RelativeGer,
ConjunctionGer,
PhraseGer,
TextX,
IdiomGer,
StructuralGer,
LexiconGer
** {
flags startcat = Phr ;
flags startcat = Phr ; unlexer = text ; lexer = text ;
} ;

View File

@@ -63,7 +63,7 @@ concrete StructuralGer of Structural = CatGer **
a = Strong
} ;
only_Predet = {s = \\_,_,_ => "nur"} ;
no_Phr = ss ["Nein ."] ;
no_Phr = ss "nein" ;
on_Prep = mkPrep "auf" Dat ;
or_Conj = ss "oder" ** {n = Sg} ;
otherwise_PConj = ss "sonst" ;
@@ -123,6 +123,6 @@ concrete StructuralGer of Structural = CatGer **
youSg_Pron = mkPronPers "du" "dich" "dir" "deiner" "dein" Sg P2 ;
youPl_Pron = mkPronPers "ihr" "euch" "euch" "eurer" "euer" Pl P2 ; ---- poss
youPol_Pron = mkPronPers "Sie" "Sie" "Ihnen" "Ihrer" "Ihr" Pl P3 ;
yes_Phr = ss ["Ja ."] ;
yes_Phr = ss "ja" ;
}