Aspekte der morphologischen Analyse des Deutschen - Universität ...

Anhang C: Programmcode
%type_shift_all_subtypes_sg([T]) := [simple_type & type_shift(sg,T)].
%type_shift_all_subtypes_sg([T1,T2]) :=
% [simple_type & type_shift(sg,T1),simple_type & type_shift(sg,T2)].
%type_shift_all_subtypes_pl([T]) := [simple_type & type_shift(pl,T)].
%type_shift_all_subtypes_pl([T1,T2]) :=
% [simple_type & type_shift(pl,T1),simple_type & type_shift(pl,T2)].
type_shift_all_subtypes_pl([]) := [].
type_shift_all_subtypes_pl([Type|Types]) :=
[type_shift(pl,Type)|type_shift_all_subtypes_pl(Types)].
% ignore uncountable in plural
type_shift_all_subtypes_pl([uncountable|Types]) :=
type_shift_all_subtypes_pl(Types).
/***************************************************************************************************************
****************************************************************************************************************
Lexicon templates
****************************************************************************************************************
****************************************************************************************************************/
noun(Gender) := syn:head:(noun & cat:n & gender:Gender).
verb(VForm) := syn:head:(verb & VForm & cat:v).
adj := syn:head:(adjective & cat:a).
n(Case) := syn:head:(noun & cat:n & case: Case).
p(Case,PForm) := syn:head:(cat:p & pform: PForm & dp_case: Case).
n_infl_affix := infl_affix & syn:head:cat:n.
v_infl_affix(VType) := infl_affix & syn:head:(cat:v & VType).
plural := syn:head:num:pl.
singular := syn:head:num:sg.
case(Case) := syn:head:case:Case.
% Verb stems for irregular verbs
verbstem(0) :=
verb(top).
verbstem(1) :=
verb(top) ;
verb(num:pl & tense:pres) ;
verb(tense:pres & mood:subjI).
verbstem(2) :=
verb(pers:first & num:sg & tense:pres & mood:ind) &
morph_feat(complete:minus).
verbstem(3) :=
verb(pers:(second;third) & num:sg & tense:pres & mood:ind) &
morph_feat(complete:minus).
verbstem(4) :=
verb(tense:pret & mood:ind).
verbstem(5) :=
verb(tense:pret & mood:subjII).
verbstem(6) :=
verb(verb_partII).
245