1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2%%                                                                           %%
    3%%      Version:  1.00   Date: 24/11/95   File: db.pl                        %%
    4%% Last Version:                          File:                              %%
    5%% Changes:                                                                  %%
    6%% 24/11/95 Created                                                          %%
    7%%                                                                           %%
    8%% Purpose:                                                                  %%
    9%%                                                                           %%
   10%% Author:  Torsten Schaub                                                   %%
   11%%                                                                           %%
   12%% Usage:   prolog db.pl                                                     %%
   13%%                                                                           %%
   14%%                                                                           %%
   15%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   16
   17prolog_clause((Head :- Body),(Head :- Body)) :-
   18	functor(Head,Pred,_),
   19	builtin_predicate(Pred),
   20	!.
   21prolog_clause(Fact,(Fact:-true)) :-
   22	functor(Fact,Pred,_),
   23	Pred \= ':-',
   24	builtin_predicate(Pred),
   25	!.
   26prolog_clause(_,true)