mirror of
https://github.com/samba-team/samba.git
synced 2024-12-22 13:34:15 +03:00
efef4366f1
Warnings are good. If we turn on warnings with 'use warnings', we will see bugs that have lain latent for years. Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz> Reviewed-by: Andrew Bartlett <abartlet@samba.org>
45 lines
740 B
Perl
45 lines
740 B
Perl
###################################################
|
|
# package to parse IDL files and generate code for
|
|
# rpc functions in Samba
|
|
# Copyright tridge@samba.org 2000-2003
|
|
# Copyright jelmer@samba.org 2005
|
|
# released under the GNU GPL
|
|
|
|
package Parse::Pidl;
|
|
|
|
require Exporter;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT_OK = qw(warning error fatal $VERSION);
|
|
|
|
use strict;
|
|
use warnings;
|
|
use vars qw ( $VERSION );
|
|
|
|
$VERSION = '0.02';
|
|
|
|
sub warning
|
|
{
|
|
my ($l,$m) = @_;
|
|
if ($l) {
|
|
print STDERR "$l->{FILE}:$l->{LINE}: ";
|
|
}
|
|
print STDERR "warning: $m\n";
|
|
}
|
|
|
|
sub error
|
|
{
|
|
my ($l,$m) = @_;
|
|
if ($l) {
|
|
print STDERR "$l->{FILE}:$l->{LINE}: ";
|
|
}
|
|
print STDERR "error: $m\n";
|
|
}
|
|
|
|
sub fatal($$)
|
|
{
|
|
my ($e,$s) = @_;
|
|
die("$e->{FILE}:$e->{LINE}: $s\n");
|
|
}
|
|
|
|
1;
|