[LON-CAPA-cvs] cvs: modules /TexConvert/algebra AlgParser.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 24 Feb 2005 08:28:43 -0000
albertel Thu Feb 24 03:28:43 2005 EDT
Modified files:
/modules/TexConvert/algebra AlgParser.pm
Log:
- support the full family of TeX greek characters
Index: modules/TexConvert/algebra/AlgParser.pm
diff -u modules/TexConvert/algebra/AlgParser.pm:1.5 modules/TexConvert/algebra/AlgParser.pm:1.6
--- modules/TexConvert/algebra/AlgParser.pm:1.5 Thu Feb 24 03:27:17 2005
+++ modules/TexConvert/algebra/AlgParser.pm Thu Feb 24 03:28:43 2005
@@ -43,7 +43,7 @@
my $openparen = '[{(\\[]';
my $closeparen = '[})\\]]';
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 $escape='infty';
my $specialvalue = '(?:'.$escape.'|'.$greek.'|'.$delete.'|d[a-z]|e)';