Diff for /loncom/build/piml_parse.pl between versions 1.3 and 1.5

version 1.3, 2002/01/31 17:37:19 version 1.5, 2002/02/05 01:49:39
Line 190  while ($token = $parser->get_token()) { Line 190  while ($token = $parser->get_token()) {
     $cleanstring.=$token->[4];      $cleanstring.=$token->[4];
  }   }
  if ($token->[4]=~/\/>$/) {   if ($token->[4]=~/\/>$/) {
     $hloc--;  #    $hloc--;
  }   }
     }      }
     if ($token->[0] eq 'E') {      if ($token->[0] eq 'E') {
Line 236  my $fileglob_count; Line 236  my $fileglob_count;
 my $fileglobnames_count;  my $fileglobnames_count;
 my %categorycount;  my %categorycount;
   
   my $mode;
   
 my @buildall;  my @buildall;
 my @buildinfo;  my @buildinfo;
   
Line 323  sub format_targetroot { Line 325  sub format_targetroot {
 # -------------------------------------------------- Format perl script section  # -------------------------------------------------- Format perl script section
 sub format_perlscript {  sub format_perlscript {
     my (@tokeninfo)=@_;      my (@tokeninfo)=@_;
       $mode=$tokeninfo[2]->{'mode'};
     my $text=$parser->get_text('/perlscript');      my $text=$parser->get_text('/perlscript');
     $parser->get_tag('/perlscript');      $parser->get_tag('/perlscript');
     return $text;      if ($mode eq 'bg') {
    open OUT,">/tmp/piml$$.pl";
    print OUT $text;
    close OUT;
    return <<END;
    # launch background process for $target
    system("perl /tmp/piml$$.pl &");
   END
       }
       else {
    return $text;
       }
 }  }
 # --------------------------------------------------------------- Format TARGET  # --------------------------------------------------------------- Format TARGET
 sub format_TARGET {  sub format_TARGET {

Removed from v.1.3  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>