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