[libimdb-commit] CVS: libimdb/bin swigdepend.pl,NONE,1.1 swiggen.pl,NONE,1.1

[Jerry V. <jve...@us...>]

Update of /cvsroot/libimdb/libimdb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv11812/bin

Added Files:
	swigdepend.pl swiggen.pl 
Log Message:
initial checkin

--- NEW FILE: swigdepend.pl ---
#! /usr//bin/perl

sub findInclude
{
    local($file) = @_;
    local($path);

    foreach $path (@INCPATH) {
	return "$path/$file" if (-f "$path/$file");
    }
    return undef;
}

while ($ARGV[0] =~ m/^-/) {
    if ($ARGV[0] =~ m/^-I(.*)/) {
	push(@INCPATH, $1);
    }
    shift;
}

while (<>) {
    if (m/^%include\s+"(.*)"/) {
	($include = &findInclude($1)) ||
		die "swigdepend: can't find include file: $1\n";
	print "\$(BUILD_DIR)/$ARGV: $include\n";
    }
}

--- NEW FILE: swiggen.pl ---
#!/usr/bin/perl

$|=1;

while (<>) {
    if (m/^%mymagic/) {
	my $incs="";

	while (<>) {
	    if ( m/^%mymagic_end/ ) {
		#printf STDERR ("echo \"$incs\" | $ENV{CMD}\n");
		open(FD, "| $ENV{CMD}") || die "| $ENV{CMD}: $!";
		printf FD "$incs\n";
		close(FD);
		last;
	    } elsif ( m/^%include\s+"(.*)"\n/) {
		$incs.="#include <$1>\n";
	    } elsif ( m/^\s+$/) {
		next;
	    } else {
		die "don't understand line '$_'\n";
	    }
	}
	die "missing mymagic_end" if ( !m/^%mymagic_end/ );
	next;
    } else {
	print;
    }
}
exit 0;