Refactor build system to use waf. Waf is better at handling dependency paths which I need for IDL support
This commit is contained in:
parent
df7f98bc6f
commit
9fd10dec9c
77 changed files with 312 additions and 86 deletions
44
bin/pidl/lib/Parse/Pidl.pm
Normal file
44
bin/pidl/lib/Parse/Pidl.pm
Normal file
|
@ -0,0 +1,44 @@
|
|||
###################################################
|
||||
# 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 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;
|
Loading…
Add table
Add a link
Reference in a new issue