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

store(edge(Begin,End,Cat,Closed,Open,Positions,_)) :-
edge(Begin,End,Cat0,Closed0,Open0,_,_),
subsumes_chk(Cat0,Cat),
subsumes_chk(Closed0,Closed),
subsumes_chk(Open0,Open),
!, fail.
Anhang C: Programmcode
% special case: completed edges => test for the conditions
store(edge(Begin,End,Cat,Closed,[],Positions,Conditions)) :-
call(Conditions),
assert(edge(Begin,End,Cat,Closed,[],Positions,Conditions)).
store(edge(Begin,End,Cat,Closed,Open,Positions,Conditions)) :-
Open \== [],
assert(edge(Begin,End,Cat,Closed,Open,Positions,Conditions)).
/*********************************************************************************************************************************
Structure generation
*********************************************************************************************************************************/
/*********************************************************************************************************************************
generate_structure(Cat:,Wordlen:,
Structures:,
Collect all structures for the word
*********************************************************************************************************************************/
generate_structures(StartCat,Wordlen,Structures) :-
findall( desc(FS,Structure),
generate_structure(0,Wordlen,StartCat,Structure,FS),
Structures).
/*********************************************************************************************************************************
generate_structure(From:,To:,Mother:,Structure:,
FS:):
Generate a single structure in the chosen representation format
*********************************************************************************************************************************/
% Case 1: Terminal symbols
generate_structure(From,To,Mother,Structure,Mother) :-
edge(From,To,Mother,[term(Word/_Lemma)],[],_Positions,_),
make_lextree(Mother,Word,Structure).
% Case 2: Terminal symbols of type unknown
generate_structure(From,To,Mother,Structure,Mother) :-
edge(From,To,Mother,[term(unknown(Unknown))],[],_Positions,_),
name(Unknown,UnknownList),
concat(["unknown(",UnknownList,")"],Charlist),
name(UnknownNode,Charlist),
make_lextree(Mother,UnknownNode,Structure).
% Case 3: Nonterminal symbols
generate_structure(From,To,Mother,Structure,Mother) :-
edge(From,To,Mother,Closed,[],Positions,_),
structure_of_subconstituents(Closed,From,Positions,StructuresList),
make_pstree(Mother,StructuresList,Structure).
structure_of_subconstituents([],_From,_Positions,[]).
structure_of_subconstituents([Cat|RestCats],From,[Pos|RestPos],[Struct|Rest]) :-
generate_structure(From,Pos,Cat,Struct,_),
structure_of_subconstituents(RestCats,Pos,RestPos,Rest).
/*********************************************************************************************************************************
Different structure building primitives
*********************************************************************************************************************************/
205