G::System

FuncD

G::System::Sysrun - Perl extension for blah blah blah

  use G::System::Sysrun;
  blah blah blah

Stub documentation for G::System::Sysrun was created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.

Blah blah blah.

Methods description

Methods code

    my $self = shift;

    &opt_default();
    my @args=opt_get(@_);

    my $gcffile=shift @args;
    my $cf;
    my $Sysname;
    my @fname;
    my %data;
    my %instance;
    my $new;
    my $tmp;
    my $tmp2;
    my $i;

    open(FILE, "$gcffile");
    while(<FILE>){
	if(/\>Engine\:/){
	    @fname=split(/:/);
	    $fname[1]=~tr/ \n//d;
	    last;
	}
    }
    close(FILE);
    $Sysname=$fname[1];

    $cf=&{$Sysname.'_parser'}($gcffile);

    %instance=(@args);
    foreach(keys(%{$cf})){
	if($_ =~ /^G(\d+)/){
	    unless(defined($instance{$cf->{$_}->{instance}})){
		$instance{$cf->{$_}->{instance}}=$cf->{$_}->{data};
	    }
	}
    }
	    
    foreach(keys(%instance)){
	$i++;
	$cf->{G.$i}->{instance}="$_";
	$cf->{G.$i}->{data}="$instance{$_}";
    }

    foreach $tmp (keys(%{$cf})){
	next if($tmp eq "Order");
	foreach $tmp2 (keys(%{$cf->{$tmp}})){
	    %data=(@{opt_val("$tmp")});
	    foreach(keys(%data)){
		if($tmp2 eq $_){
		    $cf->{$tmp}->{$tmp2}=$data{$_};
		}
		elsif($cf->{$tmp}->{$tmp2}->{key} eq $_){
		    $cf->{$tmp}->{$tmp2}->{value}=$data{$_};
		}
	    }
			
	}
    }

    $new=&{$Sysname.'_scripter'}($cf);
    open(TMP,">$gcffile");
    print TMP $new;
    close(TMP);

    eval{
	&{$Sysname.'_engine'}($gcffile);
    }

    my $pkg = shift;
    my $filename = shift;
    my $option = shift;
    my $this;

    return $this;

General documentation

A. U. Thor, a.u.thor@a.galaxy.far.far.away

perl(1).