mirror of
https://github.com/nasa/trick.git
synced 2024-12-20 21:53:10 +00:00
14a75508a3
Changed all header file once include variables to follow the same naming convention and not start with any underscores. Also deleted old incorrect copyright notices. Also removed $Id: tags from all files. Fixes #14. Fixes #22.
54 lines
2.2 KiB
Perl
54 lines
2.2 KiB
Perl
package trick_print ;
|
||
|
||
use Exporter ();
|
||
@ISA = qw(Exporter);
|
||
@EXPORT = qw(trick_print);
|
||
|
||
use strict ;
|
||
|
||
my %message_type = (
|
||
"title_white" , { "color" , 00 , "level" , 1 } ,
|
||
"title_red" , { "color" , 31 , "level" , 1 } ,
|
||
"title_green" , { "color" , 32 , "level" , 1 } ,
|
||
"title_yellow" , { "color" , 33 , "level" , 1 } ,
|
||
"title_blue" , { "color" , 34 , "level" , 1 } ,
|
||
"title_magenta" , { "color" , 35 , "level" , 1 } ,
|
||
"title_cyan" , { "color" , 36 , "level" , 1 } ,
|
||
"normal_white" , { "color" , 00 , "level" , 2 } ,
|
||
"normal_red" , { "color" , 31 , "level" , 2 } ,
|
||
"normal_green" , { "color" , 32 , "level" , 2 } ,
|
||
"normal_yellow" , { "color" , 33 , "level" , 2 } ,
|
||
"normal_blue" , { "color" , 34 , "level" , 2 } ,
|
||
"normal_magenta" , { "color" , 35 , "level" , 2 } ,
|
||
"normal_cyan" , { "color" , 36 , "level" , 2 } ,
|
||
"debug_white" , { "color" , 00 , "level" , 3 } ,
|
||
"debug_red" , { "color" , 31 , "level" , 3 } ,
|
||
"debug_green" , { "color" , 32 , "level" , 3 } ,
|
||
"debug_yellow" , { "color" , 33 , "level" , 3 } ,
|
||
"debug_blue" , { "color" , 34 , "level" , 3 } ,
|
||
"debug_magenta" , { "color" , 35 , "level" , 3 } ,
|
||
"debug_cyan" , { "color" , 36 , "level" , 3 }
|
||
) ;
|
||
|
||
sub trick_print($$$$) {
|
||
|
||
my ($fh, $message, $mt , $verbose) = @_ ;
|
||
|
||
# print at least lvl 2 messages to the file
|
||
if ( defined $fh ) {
|
||
my ($temp_verbose) = $verbose ;
|
||
$temp_verbose = 2 if ($temp_verbose < 2) ;
|
||
if ( $temp_verbose >= $message_type{$mt}{level} ) {
|
||
print $fh "$message" ;
|
||
}
|
||
}
|
||
|
||
# print the message to the screen
|
||
if ( $verbose >= $message_type{$mt}{level} ) {
|
||
$message =~ s/(\n)?$/[00m$1/s ;
|
||
print "[$message_type{$mt}{color}m$message" ;
|
||
}
|
||
}
|
||
|
||
1;
|