2:- module(errors,[warning/2,error/2,inform/2,gold/2]).    3
    4:- use_module(semlib(options),[option/2]).    5
    6warning(S,V):-
    7   option('--warnings',true), !,
    8   format(user_error,'\033[33mWARNING: ',[]),
    9   format(user_error,S,V),
   10   format(user_error,'\033[0m~n',[]).
   11
   12warning(_S,_V):-
   13   option('--warnings',false).
   14
   15gold(S,V):-
   16   option('--warnings',true), !,
   17   format(user_error,'GOLD: ',[]),
   18   format(user_error,S,V),
   19   format(user_error,'~n',[]).
   20
   21gold(_S,_V):-
   22   option('--warnings',false).
   23
   24inform(S,V):-
   25   option('--info',true), !,
   26   format(user_error,'\033[34mINFO: ',[]),
   27   format(user_error,S,V),
   28   format(user_error,'\033[0m~n',[]).
   29
   30inform(_S,_V):-
   31   option('--info',false).
   32
   33error(S,V):-
   34   format(user_error,'\033[31mERROR: ',[]),
   35   format(user_error,S,V),
   36   format(user_error,'\033[0m~n',[])