my $conf;

        invocation => "InvocationPoint2",  # tmp6.oby

    plugin_init(&obyparse_info, $conf = shift(), 0);

sub obyparse_findincfiles();

sub obyparse_findspifiles();

    plugin_start(&obyparse_info, $conf);

    my ($obydata, $romfiles, $rofs1files, $udebfiles, $urelfiles, $fname) = (shift(), undef, undef, "", "", "");

    my %targets = my %patchdata = ();

    obyparse_findincfiles();

    obyparse_findspifiles();

    plugin_reset();

        next if !(my $parse = parse_obyline($_));

        if (($parse == 2) && ($gKeyword =~ FILEBITMAPSPECKEYWORD)) {

            $targets{$gTgtCmp} = $targets{File::Basename::basename($gTgtCmp)} = [$gLnum - 1,

                !$gRomid && ($gKeyword =~ ROFSBITMAPFILESPECKEYWORD) && ($gAttrib !~ /paging_unmovable/i)]

                    if ($gImgid == $gRomidCmp);

            dprint(2, "Removed attribute paging_unmovable: `$_'")

                if ($gAttrib =~ /paging_unmovable/i) && (s/\s+paging_unmovable\s*(?=\s|^)//i);

        $_ = "$gHandlestr $_";

        next if $gRomid && ($gImgid != $gRomidCmp);

        dprint(2, "#$gLnum: `$gLine'");

        } else {

            dprint(3, "Move/change all possible components to $rule");

    my ($rofs1ofs, $udebcnt, $urelcnt, @torofs1) = (0, 0, 0, ());

    plugin_reset();

        $rofs1ofs++ if ($gRomid < 2);

        next if ($parse != 2) || ($gImgid != $gRomidCmp);

            $gSrcCmp =~ /^(.+?)(?:@.+)?$/;

            next if !exists($targets{$fname = $1});

            next if !$targets{$fname}[1];

        elsif ($gKeyword =~ FILEBITMAPSPECKEYWORD) {

            $fname = File::Basename::basename($gTgtCmp);

            next if !$targets{$gTgtCmp}[1];

        elsif ($gKeyword =~ DIRECTORYKEYWORD) {

            $fname = File::Basename::basename($gTgtCmp);

            next if !(exists($targets{$gTgtCmp}) && $targets{$gTgtCmp}[1]) &&

                !(exists($targets{$fname}) && $targets{$fname}[1]);

        else { next }

        if (!$gRomid && (defined($rofs1files) && ($fname =~ $rofs1files) || defined($romfiles) && ($fname !~ $romfiles))) {

            $_ = "$gHandlestr $_";

    dprint(3, "Moved " . scalar(@torofs1) . " entries to ROFS1") if @torofs1;

    dprint(3, "Finding ROM-patched components");

        ${$obydata}[$_] =~ /^(?:$gHandlestr )?(.+)$/;

    dprint(3, "Found " . keys(%patchdata) . " ROM-patched components");

    splice(@$obydata, $rofs1ofs, 0, @torofs1) if @torofs1;

sub obyparse_findincfiles()

{

    my ($drive, $indent, $prev, $tmpoby, %files) =

        (Cwd::cwd() =~ /^([a-z]:)/i ? $1 : "", -2, "", "$gWorkdir/tmp1.oby", ());

    dprint(3, "Finding include hierarchy from `$tmpoby'");

    open(FILE, $tmpoby) or dprint(-3, "$gPluginname can't open `$tmpoby'"), return;

    while (my $line = <FILE>) {

        next if ($line !~ /^#\s+\d+\s+"(.+?)"(?:\s+(\d))?$/);

        my ($file, $flag) = ($1, defined($2) ? $2 : 0);

        next if ($file =~ /^<.*>$/);

        $indent -= 2, $prev = $file, next if ($flag == 2);

        next if (!$flag && $file eq $prev || $flag > 1);

        $indent += 2 if $flag;

        ($prev = $file) =~ /^(.*[\/\\])?(.+?)$/;

        (my $dir, $file) = ("", $2);

        $dir = abspath(defined($1) ? $1 : ".");

        dprint(2, ("." x $indent) . "`$prev' !!!"), next if ($dir eq "");

        $dir =~ s/^$drive|\/$//gi;

        $files{lc($file = "$dir/$file")} = 1;

        dprint(2, ("." x $indent) . "`$file'");

    }

    close(FILE);

    dprint(3, "Found " . keys(%files) . " different include files");

}

sub obyparse_findspifiles()

{

    my ($spicnt, $tmpoby) = (0, "$gWorkdir/tmp5.oby");

    dprint(3, "Finding SPI input files from `$tmpoby'");

    open(FILE, $tmpoby) or dprint(-3, "$gPluginname can't open `$tmpoby'"), return;

    while (my $line = <FILE>) {

        next if (parse_obyline($line) != 2) || ($gKeyword !~ /^spidata/i);

        $spicnt++;

        dprint(2, "`$gSource'" . ($gKeyword =~ /^spidata$/i ? "" : " ($gKeyword)"));

    }

    close(FILE);

    dprint(3, "Found $spicnt SPI input files");

}

    $file = "$basedir$file";

    dprint(3, "Reading $type files from $file") if $type;

    dprint(2, ("." x $indent) . "`$file'");

    open(FILE, $file) or dprint(3, "Error: $gPluginname can't open $file", 1), die("\n");

    my @files = <FILE>;

    close(FILE);

    foreach (@files) {

        if (/^\s*#include\s+(.+?)\s*$/i) {

        next if (/^\s*$/) || (/^\s*(?:#|\/\/|REM\s)/i);

        (my $fname = $_) =~ s/^\s+|\s+$//g;

        $fname =~ s/(.)/{"*" => ".*", "?" => "."}->{$1} || "\Q$1\E"/eg;