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

Anhang C: Programmcode
/*********************************************************************************************************************************
write_quoted(List:,Filename::
Writes the terms in List into the File "Filename" such that all atoms are quoted
*********************************************************************************************************************************/
write_quoted([],_File) :-
!.
write_quoted([Word/Lemma],File) :-
write(File,''''), write(File,Word), write(File,''''),
write(File,/),
write(File,''''), write(File,Lemma), write(File,''''),
!.
write_quoted([Word/Lemma|Rest],File) :-
write(File,''''), write(File,Word), write(File,''''),
write(File,/),
write(File,''''), write(File,Lemma), write(File,''''),
write(File,','),
write_quoted(Rest,File).
/*********************************************************************************************************************************
add_to_automation(Word/Lemma):
inserts Word into the trie-like transition graph
*********************************************************************************************************************************/
add_to_automation(Word/Lemma) :-
name(Word,CharList), % convert word to character list
char_atom_list(CharList,AtomCharList), % convert char list to atoms
startstate(StartState),
add_to_trie(AtomCharList,Word,Lemma,StartState).
% insert Word into the trie
add_to_trie([],Word,Lemma,State) :-
add_output(State,Word,Lemma). % update output function
add_to_trie([Char|Chars],Word,Lemma,State) :-
newstate(State,Char,NewState,Result),
add_to_trie(Chars,Word,Lemma,NewState).
/*********************************************************************************************************************************
newstate(State:,Char:,NewState:,Result:)
constructs a new transition from State with Char if there isn't alreday one.
*********************************************************************************************************************************/
newstate(State,Char,NewState,old_transition) :-
transition(State,Char,NewState), % there is already a transition
NewState \== fail,
!.
newstate(State,Char,NewState,new_transition) :-
transition(State,Char,fail), % no transition,
gensym(s,NewState), % so construct a new state
add_transition(State,Char,NewState). % and add a new transition
201