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

Anhang C: Programmcode
member(role:experiencer & sel_restr:Type, Roles) &
Type.
no_instrument_thetarole([]) :=
top.
no_instrument_thetarole([role: ~instrument|RestRoles]) :=
no_instrument_thetarole(RestRoles).
% return non-deterministically a role of the given event structure
a_role_in_eventstr(activity_eventstr & event:roles:Roles) :=
member(sel_restr:Type, Roles) &
Type.
/***************************************************************************************************************
affix_order_constraint
****************************************************************************************************************/
affix_order_constraint(top, top) :=
top.
affix_precedes_star(Head1,Head2) :=
affix_precedes(Head1,Head2).
affix_precedes_star(Head1,Head2) :=
affix_precedes(Head1,Head) &
affix_precedes(Head,Head2).
% it's necessary to code this in Prolog
affix_precedes(cat:cat, tense:tense) := top.
affix_precedes(cat:cat, degree:degree) := top.
affix_precedes(degree:degree, case:case) := top.
affix_precedes(tense:tense, mood:mood) := top.
affix_precedes(mood:mood, num:num) := top.
affix_precedes(num:num, pers:pers) := top.
affix_precedes(pers:pers, case:case) := top.
/***************************************************************************************************************
SYN:HEAD:-maximality: check whether the syn:head:-features - depending
on the category - are complete
****************************************************************************************************************/
% nouns
type_maximal(Head) :=
value_instantiated(cat:n &
num:(sg;pl) &
case:(nom;acc;gen;dat) &
gender:(fem;masc;neut),
Head).
% inflected verbs
type_maximal(Head) :=
value_instantiated(cat:v &
num:(sg;pl) &
pers:(first;second;third) &
tense:(pres;pret) &
mood:(ind;imp;subjI;subjII),
Head).
% infinitive verbs
type_maximal(Head) :=
241