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