1:-module(debug,
    2     [write_debug/1,writeln_debug/1,write_error/1,write_error2/1]).    3
    4:- use_module(sciff_options).    5:- use_module(text_style).    6
    7
    8writeln_debug(Message) :-
    9	get_option(sciff_debug, on),
   10	!,
   11	write(Message), nl.
   12writeln_debug(_).
   13
   14write_debug(Message) :-
   15	get_option(sciff_debug, on),
   16	!,
   17	write(Message).
   18write_debug(_).
   19write_error(T):-
   20    foreground_color(red),
   21    text_property(bold,1),
   22    write(T),
   23    reset_text_style.
   24
   25write_error2(T):-
   26    foreground_color(red),
   27    text_property(underlined,1),
   28    text_property(bold,1),
   29    write(T),
   30    reset_text_style