Move pidl to top-level directory.
[amitay/samba.git] / 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         print STDERR "$l->{FILE}:$l->{LINE}: warning: $m\n";
24 }
25
26 sub error
27 {
28         my ($l,$m) = @_;
29         print STDERR "$l->{FILE}:$l->{LINE}: error: $m\n";
30 }
31
32 sub fatal($$) 
33
34     my ($e,$s) = @_; 
35     die("$e->{FILE}:$e->{LINE}: $s\n"); 
36 }
37
38 1;