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

Anhang C: Programmcode
/*********************************************************************************************************************************
File: automat.pl
Description: Definition of the alphabet and the start state of the segmentizer
Date: March 98
/*********************************************************************************************************************************
startstate(s0).
/*********************************************************************************************************************************
automation_alphabet(Alphabet:):
Defines the alphabet of the segmentizer
*********************************************************************************************************************************/
automation_alphabet([a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,'-','ä','ö','ü','ß']).
/*********************************************************************************************************************************
File: gen_segment.pl
Language: Sicstus Prolog 3.5
Author: Thomas Hanneforth, University of Potsdam, Germany
Date: Feb. 98
Desc.: Creates the segmenting automation
The main predicate is create_automation/0 which compiles a
pattern matching machine (see Aho/Corasick (1975) for details)
out of the lexicon entries
*********************************************************************************************************************************/
:- dynamic
tr/3, % transition function entry
f/2, % failure function entry
o/2. % output function entry
:- unknown(_,fail).
:- ensure_loaded([library(lists)]).
:- [queues,sicsutls]. % Sicstus
:- [automat]. % Alphabet of the automation
:- [os_spec]. % Operating system specific stuff
/*********************************************************************************************************************************
create_automation/0:
top level predicate for the compiler
*********************************************************************************************************************************/
create_automation :-
nl, write('% Compiling segmentizer ...'), nl,
clear_db,
process_lex_entries,
startstate_completition,
construct_failure_function,
% for reasons of efficiency this is done after all words are processed.
write_automation,
segmentizer_information(States,Transitions,Finalstates),
write('% Morph segmentizer created and saved.'), nl,
format("% ~d states, ~d transitions, ~d final states.", [States,Transitions,Finalstates]),
nl, nl.
/*********************************************************************************************************************************
clear_db /0:
Removes all dynamic predicate clauses
*********************************************************************************************************************************/
clear_db :-
abolish(tr/3),
abolish(f/2),
abolish(o/2).
197