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

Anhang C: Programmcode
no_arguments := argstr_relarg([]) & argstr_order([]) & defargs([]).
empty_morph_subcat := morph:msubcat:needs:[].
/***************************************************************************************************************
Theta roles
****************************************************************************************************************/
role(Thetarole,RoleArg) :=
role:Thetarole &
sel_restr:RoleArg.
agent(Type) := role(agent, Type).
patient(Type) := role(patient, Type).
instrument(Type) := role(instrument, Type).
experiencer(Type) := role(experiencer, Type).
goal(Type) := role(goal, Type).
source(Type) := role(source, Type).
theme(Type) := role(theme, Type).
location(Type) := role(location, Type).
beneficiary(Type) := role(beneficiary, Type).
/***************************************************************************************************************
****************************************************************************************************************
Testing
****************************************************************************************************************
****************************************************************************************************************/
% Note: due to the incomplete proof strategy of CUF the empty inflectional
% categories are explicitly marked with "$"
% main test predicate
test(No) :=
cat(syntactic_atom &
syn:head:cat:cat &
syn:argstr:argstr &
sem:content:content,
testword(No)).
% inflection
testword(1) := ["bibliothek","$"].
testword(2) := ["bibliothek","en"].
testword(3) := ["buch","$"].
testword(4) := ["buech","er"].
testword(5) := ["buech","ern"].
testword(6) := ["rett","en"].
testword(7) := ["giess","en"].
testword(8) := ["staun","en"].
testword(9) := ["rett","$","en"].
testword(10) := ["rett","et","en"].
testword(11) := ["rett","et","est"].
testword(12) := ["messer","$"].
testword(13) := ["sohn","$"].
testword(14) := ["soehn","e"].
testword(15) := ["messer","n"].
testword(16) := ["fabrik","en"].
testword(17) := ["arbeit","$","en"].
testword(18) := ["renovier","t"].
testword(19) := ["ge","renovier","t"]. % *
testword(20) := ["ge","rett","et"].
248