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.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';	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 = '(?: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 . ')';