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         if ($l) {
  24                 print STDERR "$l->{FILE}:$l->{LINE}: ";
  25         }
  26         print STDERR "warning: $m\n";
  27 }
  28
  29 sub error
  30 {
  31         my ($l,$m) = @_;
  32         if ($l) {
  33                 print STDERR "$l->{FILE}:$l->{LINE}: ";
  34         }
  35         print STDERR "error: $m\n";
  36 }
  37
  38 sub fatal($$)
  39 {
  40     my ($e,$s) = @_;
  41     die("$e->{FILE}:$e->{LINE}: $s\n");
  42 }
  43
  44 1;