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 8package Parse::Pidl; 9 10require Exporter; 11@ISA = qw(Exporter); 12@EXPORT_OK = qw(warning error fatal $VERSION); 13 14use strict; 15 16use vars qw ( $VERSION ); 17 18$VERSION = '0.02'; 19 20sub 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 29sub 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 38sub fatal($$) 39{ 40 my ($e,$s) = @_; 41 die("$e->{FILE}:$e->{LINE}: $s\n"); 42} 43 441; 45