version 1.1, 2005/02/24 01:21:51
|
version 1.4, 2006/03/13 19:22:37
|
Line 6 use AlgParser;
|
Line 6 use AlgParser;
|
my $parser = new AlgParserWithImplicitExpand; |
my $parser = new AlgParserWithImplicitExpand; |
my $ret; |
my $ret; |
|
|
$ret = $parser -> parse($ARGV[0]); |
foreach $str (@ARGV) { |
if ( ref($ret) ) { |
print($str.$/); |
$parser -> tostring(); |
$ret = $parser->parse($str); |
$parser -> normalize(); |
if ( ref($ret) ) { |
print $parser -> tolatex(); |
print('1). '.$parser->tostring() .$/); |
} else { |
print('2). '.$parser->tolatex() .$/); |
print $parser->{htmlerror}; |
print('3). '.$parser->normalize().$/); |
|
print('4). '.$parser->tostring() .$/); |
|
print('5). '.$parser->tolatex() .$/); |
|
} else { |
|
print($parser->{htmlerror}.$/); |
|
} |
|
print "\n"; |
} |
} |
|
|