loncom/build/piml_parse.pl - diff

Return to piml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

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 {