diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-01-03 15:34:01 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 14:36:04 -0500 |
commit | f97f11eab25f0c294ff02b3c4485d7a0a91b5501 (patch) | |
tree | e1a2547a15afc65dcb118a39a74ae1b4e4a865f7 /source4/pidl/lib/Parse/Pidl.pm | |
parent | bc32b30011ec0b35d40f659675f9e4cc28ec3c79 (diff) | |
download | samba-f97f11eab25f0c294ff02b3c4485d7a0a91b5501.tar.gz samba-f97f11eab25f0c294ff02b3c4485d7a0a91b5501.tar.bz2 samba-f97f11eab25f0c294ff02b3c4485d7a0a91b5501.zip |
r20511: Combine warnings/errors/fatal functions and move them to Parse::Pidl.
(This used to be commit 959adfd0a682a4894c3bdd4ae9c6fc3ebfeeef1f)
Diffstat (limited to 'source4/pidl/lib/Parse/Pidl.pm')
-rw-r--r-- | source4/pidl/lib/Parse/Pidl.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/source4/pidl/lib/Parse/Pidl.pm b/source4/pidl/lib/Parse/Pidl.pm index c60fc59aba..249bcd9f20 100644 --- a/source4/pidl/lib/Parse/Pidl.pm +++ b/source4/pidl/lib/Parse/Pidl.pm @@ -7,10 +7,32 @@ package Parse::Pidl; +require Exporter; +@ISA = qw(Exporter); +@EXPORT = qw(warning error fatal); + use strict; use vars qw ( $VERSION ); $VERSION = '0.02'; +sub warning($$) +{ + my ($l,$m) = @_; + print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n"; +} + +sub error($$) +{ + my ($l,$m) = @_; + print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n"; +} + +sub fatal($$) +{ + my ($e,$s) = @_; + die("$e->{FILE}:$e->{LINE}: $s\n"); +} + 1; |