loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

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

version 1.5, 2005/02/24 08:27:17	version 1.6, 2005/02/24 08:28:43
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\|pi';	my $greek='alpha\|(?:(?:(?:var)?(?:[tT]h))\|(?:[bz])?)eta\|[gG]amma\|iota\|kappa\|[lL]ambda\|mu\|nu\|[xX]i\|(?:var)?rho\|(?:var)?[sS]igma\|tau\|(?:var)?(?:[pP])hi\|chi\|[oO]mega\|(?:(?:var)?(?:[eE])\|(?:[uU]))psilon\|[dD]elta\|[pP]si\|(?:var)?[pP]i';
my $delete='zeroplace';	my $delete='zeroplace';
my $escape='infty';	my $escape='infty';
my $specialvalue = '(?:'.$escape.'\|'.$greek.'\|'.$delete.'\|d[a-z]\|e)';	my $specialvalue = '(?:'.$escape.'\|'.$greek.'\|'.$delete.'\|d[a-z]\|e)';