pidl/lib/Parse/Pidl.pm

   1 ###################################################
   2 # package to parse IDL files and generate code for
   3 # rpc functions in Samba
   4 # Copyright tridge@samba.org 2000-2003
   5 # Copyright jelmer@samba.org 2005
   6 # released under the GNU GPL
   7
   8 package Parse::Pidl;
   9
  10 require Exporter;
  11 @ISA = qw(Exporter);
  12 @EXPORT_OK = qw(warning error fatal $VERSION);
  13
  14 use strict;
  15
  16 use vars qw ( $VERSION );
  17
  18 $VERSION = '0.02';
  19
  20 sub warning
  21 {
  22         my ($l,$m) = @_;
  23         print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n";
  24 }
  25
  26 sub error
  27 {
  28         my ($l,$m) = @_;
  29         print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n";
  30 }
  31
  32 sub fatal($$)
  33 {
  34     my ($e,$s) = @_;
  35     die("$e->{FILE}:$e->{LINE}: $s\n");
  36 }
  37
  38 1;