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.4, 2002/02/05 01:29:22
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;	return $text;