loncom/xml/algebra/AlgParser.pm - diff

Return to AlgParser.pm CVS log

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

version 1.3, 2005/02/24 08:24:40	version 1.4, 2005/02/24 08:25:21
Line 46 my $varname = '[A-Za-z](?:_[0-9]+)?';	Line 46 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';
my $delete='zeroplace';	my $delete='zeroplace';
my $escape='infty';	my $escape='infty';
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\|'.$escape.'\|'.$greek.'\|'.$delete.')';	my $specialvalue = '(?:e\|pi\|d[a-z]\|'.$escape.'\|'.$greek.'\|'.$delete.')';
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 . ')';