forked from GitHub/gf-core
33 lines
858 B
Plaintext
33 lines
858 B
Plaintext
instance LexAttemptoGer of LexAttempto =
|
|
open ExtraGer, SyntaxGer, ParadigmsGer, ConstructX,
|
|
MakeStructuralGer,
|
|
IrregGer, Prelude in {
|
|
|
|
oper
|
|
possible_A = mkA "möglich" ;
|
|
necessary_A = mkA "nötig" ;
|
|
own_A = mkA "eigen" ;
|
|
have_VV = SyntaxGer.must_VV ;
|
|
provably_Adv = mkAdv "beweisbar" ;
|
|
provable_A = mkA "beweisbar" ;
|
|
false_A = mkA "falsch" ;
|
|
such_A = mkA "solch" ;
|
|
|
|
genitiveNP np cn = mkNP (mkNP the_Art cn) (SyntaxGer.mkAdv possess_Prep np) ;
|
|
|
|
each_Det = every_Det ;
|
|
|
|
that_Subj = mkSubj "daß" ;
|
|
|
|
comma_and_Conj = mkConj [] ", und" plural ;
|
|
comma_or_Conj = mkConj [] ", oder" singular ;
|
|
slash_Conj = mkConj [] "/" singular ;
|
|
|
|
whose_IDet = mkIDet (mkIQuant "wessen") ;
|
|
|
|
eachOf np = mkNP (mkPredet (mkA "jed") "von" dative True singular) np ;
|
|
|
|
adj_thatCl : A -> S -> Cl = \a,s -> mkCl (mkVP (mkAP (mkAP a) s)) ;
|
|
|
|
}
|