From f97f11eab25f0c294ff02b3c4485d7a0a91b5501 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Wed, 3 Jan 2007 15:34:01 +0000
Subject: r20511: Combine warnings/errors/fatal functions and move them to
 Parse::Pidl. (This used to be commit
 959adfd0a682a4894c3bdd4ae9c6fc3ebfeeef1f)

---
 source4/pidl/lib/Parse/Pidl.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'source4/pidl/lib/Parse/Pidl.pm')

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;
-- 
cgit