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

Anhang C: Programmcode
/*********************************************************************************************************************************
heuristic_tests(Startpos,EndPos,Word):
Currently it prevents the insertion of segments with one ore two characters
and tests for the phonetic wellformedness of the candidate segment.
*********************************************************************************************************************************/
heuristic_tests(Startpos,EndPos,Word) :-
length_test(Startpos,EndPos),
phonetic_wellformedness(Startpos,EndPos,Word).
length_test(Startpos,EndPos) :-
% test whether the length of the candidate segment is greater than 2
EndPos - Startpos > 3.
phonetic_wellformedness(Startpos,EndPos,Word) :-
Length is EndPos - Startpos,
substring(Word,Unknown,Startpos,Length),
% check candidate segment against the list of syllables
syllable_check(Unknown).
**********************************************************************************************************************************
insert_unknown_segments(Positions:,End:,UnknownCat:,Word:)
Inserts finally the unknown-type segments by doing a closure on each
Positions is a list of start positions
*********************************************************************************************************************************/
insert_unknown_segments([],_EndPos,_UnknownCat,_Word).
insert_unknown_segments([Begin|RestPos],EndPos,UnknownCat,Word) :-
shift_unknown(Begin,EndPos,UnknownCat,Word),
insert_unknown_segments(RestPos,EndPos,UnknownCat,Word).
shift_unknown(Begin,EndPos,UnknownCat,Word) :-
Length is EndPos - Begin,
substring(Word,Unknown,Begin,Length),
closure(Begin,EndPos,UnknownCat,[term(unknown(Unknown))],[],[EndPos],true).
shift_unknown(_Begin,_EndPos,_UnknownCat,_Word).
/*********************************************************************************************************************************
find_incomplete_edges(Begin,UnknownCat,Edgelist)
*********************************************************************************************************************************/
find_incomplete_edges(Begin,Unknown_cat,Edgelist) :-
findall( End,
(edge(_,End,_,_,[Unknown_cat|_],_,_), End < Begin),
Edgelist0),
remove_duplicates(Edgelist0,Edgelist).
208