plspec_logger

format_with_colour(Stream,_,Str,Args) :- format(Stream,Str,Args).

log(X, Format) :-
    log(X, Format, []).

log(X, Format, Args) :-
    (loglevel(X)
    -> log_stream(X,Stream,Colour),
    format(Stream,'~w ~w~`.t~20|',[plspec, X]),
    format_with_colour(Stream,Colour,Format,Args), nl(Stream)
    ; possible_loglevel(X) -> true
    ; format(user_error,'plspec internal error: ~w is not a valid loglevel!', [X])
).

log_stream(error,R,Col) :- !,R=user_error,Col=[bold,red].

log_stream(_,user_output,[blue]).

loglevel(error).

loglevel(warning).

possible_loglevel(info).

possible_loglevel(warning).

possible_loglevel(error).

possible_loglevel(debug).

possible_loglevel(nothing).

set_loglevel(X) :-
    retractall(loglevel(_)),
    print(set_loglevel(X)),nl,
    set_loglevel_aux(X).

set_loglevel_aux(debug) :-
    assertz(loglevel(debug)),
    assertz(loglevel(warning)),
    assertz(loglevel(error)),
    assertz(loglevel(info)).

set_loglevel_aux(info) :-
    assertz(loglevel(info)),
    assertz(loglevel(error)),
    assertz(loglevel(warning)).

set_loglevel_aux(warning) :-
    assertz(loglevel(error)),
    assertz(loglevel(warning)).

set_loglevel_aux(error) :-
    assertz(loglevel(error)).

set_loglevel_aux(nothing).