loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

Up to [LON-CAPA] / loncom / xml / algebra

version 1.4, 2005/02/24 08:25:21	version 1.5, 2005/02/24 08:27:17
Line 43 my $binoper1 = '[-+=><%!#]';	Line 43 my $binoper1 = '[-+=><%!#]';
my $openparen = '[{(\\[]';	my $openparen = '[{(\\[]';
my $closeparen = '[})\\]]';	my $closeparen = '[})\\]]';
my $varname = '[A-Za-z](?:_[0-9]+)?';	my $varname = '[A-Za-z](?:_[0-9]+)?';
my $greek='alpha\|bita\|gamma\|zita\|thita\|iota\|kappa\|lambda\|mu\|nu\|xi\|rho\|sigma\|tau\|phi\|chi\|psi\|omega\|zepslon\|zdelta\|xeta\|zupslon';	my $greek='alpha\|bita\|gamma\|zita\|thita\|iota\|kappa\|lambda\|mu\|nu\|xi\|rho\|sigma\|tau\|phi\|chi\|psi\|omega\|zepslon\|zdelta\|xeta\|zupslon\|pi';
my $delete='zeroplace';	my $delete='zeroplace';
my $escape='infty';	my $escape='infty';
my $specialvalue = '(?:e\|pi\|d[a-z]\|'.$escape.'\|'.$greek.'\|'.$delete.')';	my $specialvalue = '(?:'.$escape.'\|'.$greek.'\|'.$delete.'\|d[a-z]\|e)';

my $numberplain = '(?:\d+(?:\.\d*)?\|\.\d+)';	my $numberplain = '(?:\d+(?:\.\d*)?\|\.\d+)';
my $numberE = '(?:' . $numberplain . 'E[-+]?\d+)';	my $numberE = '(?:' . $numberplain . 'E[-+]?\d+)';
my $number = '(?:' . $numberE . '\|' . $numberplain . ')';	my $number = '(?:' . $numberE . '\|' . $numberplain . ')';