equal
deleted
inserted
replaced
82 fun decorate bg en prfx = |
82 fun decorate bg en prfx = |
83 Output.writeln_default o enclose bg en o prefix_lines prfx; |
83 Output.writeln_default o enclose bg en o prefix_lines prfx; |
84 |
84 |
85 fun setup_messages () = |
85 fun setup_messages () = |
86 (Output.writeln_fn := Output.writeln_default; |
86 (Output.writeln_fn := Output.writeln_default; |
|
87 Output.status_fn := Output.writeln_default; |
87 Output.priority_fn := (fn s => decorate (special "360") (special "361") "" s); |
88 Output.priority_fn := (fn s => decorate (special "360") (special "361") "" s); |
88 Output.tracing_fn := (fn s => decorate (special "360" ^ special "375") (special "361") "" s); |
89 Output.tracing_fn := (fn s => decorate (special "360" ^ special "375") (special "361") "" s); |
89 Output.debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
90 Output.debug_fn := (fn s => decorate (special "362") (special "363") "+++ " s); |
90 Output.warning_fn := (fn s => decorate (special "362") (special "363") "### " s); |
91 Output.warning_fn := (fn s => decorate (special "362") (special "363") "### " s); |
91 Output.error_fn := (fn s => decorate (special "364") (special "365") "*** " s); |
92 Output.error_fn := (fn s => decorate (special "364") (special "365") "*** " s); |