lib/util: charset modules do not exist any more
[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         if ($l) {
24                 print STDERR "$l->{FILE}:$l->{LINE}: ";
25         }
26         print STDERR "warning: $m\n";
27 }
28
29 sub 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
38 sub fatal($$) 
39
40     my ($e,$s) = @_; 
41     die("$e->{FILE}:$e->{LINE}: $s\n"); 
42 }
43
44 1;