loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

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

version 1.2, 2005/02/24 06:21:10	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 $specialvalue = '(?:e\|pi\|da\|db\|dc\|de\|df\|dg\|dh\|di\|dj\|dk\|dl\|dm\|dn\|do\|dp\|dq\|dr\|ds\|dt\|du\|dv\|dw\|dx\|dy\|dz\|infty\|alpha\|bita\|gamma\|zita\|thita\|iota\|kappa\|lambda\|mu\|nu\|xi\|rho\|sigma\|tau\|phi\|chi\|psi\|omega\|zepslon\|zdelta\|xeta\|zupslon\|zeroplace)';	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 $escape='infty';
	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 . ')';