[DotGNU]dotgnu.il.namespace.splitter.pl

[James Michael DuPont]

#!/usr/bin/perl # you guessed it! 
# dotgnu il splitter
# first parameter is an IL file
# all namespaces will be split int separate files.
# license GPL 
# copyright James Michael DuPont 2002
my $filename =shift @ARGV;
my $state="main";
my $name ="";
my $file =undef;
my %seen; #what have we seen
open IN ,"$filename";

openfile ("Global");

sub openfile
{
    my $name =shift;
    if (exists($seen{$name}))
    {
        $file = $seen{$name};
        print $file "// APPENDING \n";
    }
    else
    {
        my $outname = "$filename.$name.il";
        print "open $outname\n";
        open $file,">$outname" or die;
        $seen{$name}=$file;
    }    
}

while (<IN>)
{
if (/\.namespace '([\w\.]+)'/)
{
    $name = $1;

    $state = "namespace";
    
    openfile ($name);
}
print $file $_;

}
close IN;
foreach  (values %seen)
{
    close $_;
}


=====
James Michael DuPont
http://introspector.sourceforge.net/

__________________________________________________________________

Gesendet von Yahoo! Mail - http://mail.yahoo.de
Bis zu 100 MB Speicher bei http://premiummail.yahoo.de