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

Anhang C: Programmcode
/*********************************************************************************************************************************
write_automation/0:
extracts the information about transitions, failure and output of the
database and writes it to three files
*********************************************************************************************************************************/
write_automation :-
% create transitions file
filename(morphsegfile,MorphSegFile),
open(MorphSegFile,write,File),
write(File,'% Morph segmentizer definition file.'),
nl(File),
write(File,'% This is a generated file.'),
nl(File), nl(File),
write_transition_func(File),
% create failure function file
write_failure_func(File),
% create output function file
write_output_func(File),
close(File).
write_transition_func(File) :-
write(File,'% Transition function'),
nl(File), nl(File),
transition(State1,Char,State2),
State2 \== fail,
write_canonical(File,tr(State1,Char,State2)),
write(File,.), nl(File),
fail.
write_transition_func(_File).
write_failure_func(File) :-
nl(File), nl(File),
write(File,'% Failure function'),
nl(File),
f(State1,State2),
write(File,f(State1,State2)), write(File,.), nl(File),
fail.
write_failure_func(_File).
write_output_func(File) :-
nl(File), nl(File),
write(File,'% Output function'),
nl(File),
o(State,Wordlist),
write(File,'o('),write(File,State),
write(File,',['),
write_quoted(Wordlist,File),
write(File,']).'), nl(File),
fail.
write_output_func(_File).
200