outputmessage.pm

ACE源码

package OutputMessage;

# ************************************************************
# Description   : Prints information, warnings and errors.
# Author        : Chad Elliott
# Create Date   : 2/02/2004
# ************************************************************

# ************************************************************
# Pragmas
# ************************************************************

use strict;

# ************************************************************
# Data Section
# ************************************************************

my($information) = 'INFORMATION: ';
my($warning)     = 'WARNING: ';
my($error)       = 'ERROR: ';

# ************************************************************
# Subroutine Section
# ************************************************************

sub new {
  my($class) = shift;
  my($info)  = shift;
  my($warn)  = shift;
  my($diag)  = shift;
  my($self)  = bless {'information' => $info,
                      'warnings'    => $warn,
                      'diagnostic'  => $diag,
                     }, $class;
  return $self;
}


sub split_message {
  my($self) = shift;
  my($msg)  = shift;
  my($spc)  = shift;

  $msg =~ s/\.\s+/.\n$spc/g;
  return $msg . "\n";
}


sub diagnostic {
  my($self) = shift;
  my($msg)  = shift;

  if ($self->{'diagnostic'}) {
    print "$msg\n";
  }
}


sub information {
  my($self) = shift;
  my($msg)  = shift;

  if ($self->{'information'}) {
    print $information . $self->split_message($msg, ' ' x
                                              length($information));
  }
}


sub warning {
  my($self) = shift;
  my($msg)  = shift;

  if ($self->{'warnings'}) {
    print $warning . $self->split_message($msg, ' ' x
                                          length($warning));
  }
}


sub error {
  my($self) = shift;
  my($msg)  = shift;
  my($pre)  = shift;

  if (defined $pre) {
    print STDERR "$pre\n";
  }
  print STDERR $error . $self->split_message($msg, ' ' x
                                             length($error));
}


1;