:- module('flexion_vlex',[]).
:- use_module(['wortformen.pl']).
% Verbflexion (zu einem geladenen Vollformenlexikon word/3)
% verbflexion(+Stammform,+Formmerkmale,-Vollform)

verbflexion(Stammform,Formmerkmale,Vollform) :-
    wort(Stammform,v(_,Formmerkmale),Vollform).

% Flexionsprogramm: verbflexion(+Stammform)
verbflexion(Stammform) :-   % Stammform = Infinitiv
    form(vfin,Formmerkmale),     % moegl.Merkmale holen
    wort(Stammform,v(_,Formmerkmale),Vollform),
    write(Formmerkmale),write(': '),write(Vollform),nl,
    fail.                        % weitere Loesungen?
verbflexion(_).                  % fertig.