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

Anhang C: Programmcode
/*********************************************************************************************************************************
insert_segments_into_chart(Symbollist:,
State:,Pos:,Word:):
Segmentizes the word given in Symbollist into the known segments
(determined by the lexicon) and inserts them via shift/3 into the chart.
*********************************************************************************************************************************/
insert_segments_into_chart([],_State,_Index,_Word).
insert_segments_into_chart([Letter|Restletters],State,I,Word) :-
non_failure_state(State,Letter,NonFailState),
transition(NonFailState,Letter,NewState),
output(NewState,WordList),
(WordList = [] -> % is the output function defined ?
true
;
% yes, so convert the items in output into segments
( word_to_segment_conversion(WordList,I,Segments),
shift_all(Segments,Word) % insert all segments into the chart
)
),
J is I + 1,
insert_segments_into_chart(Restletters,NewState,J,Word).
/*********************************************************************************************************************************
shift_all(Segment:, Word:)
inserts all segments into the chart; Word is the word to be analyzed
*********************************************************************************************************************************/
shift_all([],_Word).
shift_all([Segment|Segments],Word) :-
shift(Segment,Word),
(morphdebug(on) ->
( write('Inserted segment:'), write(Segment), nl, nl,
complete_edges, nl,
incomplete_edges, nl,
get0(_)
)
;
true
),
shift_all(Segments,Word).
/*********************************************************************************************************************************
word_segmentation(Atomlist:,Segments:)
Standalone predicate
segmentizes Word into Segments
e.g. 'rechnest' becomes (with suitable lexicon entries): [seg(1,rechn,5),seg(6,st,8)]
*********************************************************************************************************************************/
word_segmentation(Word,Segments) :-
% convert Word into a list of atoms, e.g. 'Hi' becomes ['H',i]
atom_to_atomlist(Word,Symbollist),
startstate(StartState),
word_segmentation(Symbollist,StartState,1,[],ReverseSegments),
% reverse the segment list
reverse(ReverseSegments,Segments).
195