loncom/xml/lontexconvert.pm - view

File: [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.22: download - view: text, annotated - select for diffs
Sat Apr 19 20:32:24 2003 UTC (21 years, 1 month ago) by www
Branches: MAIN
CVS tags: version_0_99_1, version_0_99_0, conference_2003, HEAD

Bug 1316: tth has problems with linebreaks in formulas. Replaced linebreaks
by space.

1: # The LearningOnline Network with CAPA 2: # TeX Conversion Module 3: # 4: # $Id: lontexconvert.pm,v 1.22 2003/04/19 20:32:24 www Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # Copyright for TtHfunc and TtMfunc by Ian Hutchinson. 29: # TtHfunc and TtMfunc (the "Code") may be compiled and linked into 30: # binary executable programs or libraries distributed by the 31: # Michigan State University (the "Licensee"), but any binaries so 32: # distributed are hereby licensed only for use in the context 33: # of a program or computational system for which the Licensee is the 34: # primary author or distributor, and which performs substantial 35: # additional tasks beyond the translation of (La)TeX into HTML. 36: # The C source of the Code may not be distributed by the Licensee 37: # to any other parties under any circumstances. 38: # 39: # 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer 40: # 5/4 Gerd Kortemeyer 41: 42: package Apache::lontexconvert; 43: 44: use strict; 45: use tth; 46: use vars qw($errorstring); 47: use Apache(); 48: use Apache::lonmsg; 49: use Apache::lonxml; 50: use Apache::lonmenu; 51: 52: # ====================================================================== Header 53: 54: sub header { 55: $errorstring=''; 56: my $time=time; 57: if ($ENV{'browser.mathml'}) { 58: &tth::ttminit(); 59: if ($ENV{'browser.unicode'}) { 60: &tth::ttmoptions('-L -u1'); 61: } else { 62: &tth::ttmoptions('-L -u0'); 63: } 64: } else { 65: &tth::tthinit(); 66: if ($ENV{'browser.unicode'}) { 67: &tth::tthoptions('-L -u1'); 68: } else { 69: &tth::tthoptions('-L -u0'); 70: } 71: } 72: return &Apache::lonxml::xmlbegin(). 73: &Apache::lonxml::fontsettings(). 74: "\n<head>\n". 75: &Apache::lonmenu::registerurl(undef,'tex'). 76: "\n</head>\n"; 77: } 78: 79: # ================================================================== Conversion 80: 81: $Apache::lontexconvert::messedup=0; 82: sub converted { 83: my $texstring=shift; 84: my $xmlstring='[UNDISPLAYABLE]'; 85: if ($Apache::lontexconvert::messedup) { 86: return '[Uncoverted Due To Previous Errors]'; 87: } 88: eval(<<'ENDCONV'); 89: { 90: local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; }; 91: if ($ENV{'browser.mathml'}) { 92: $xmlstring=&tth::ttm($$texstring); 93: $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g; 94: $xmlstring=~s/\<br\>/\<br\/\>/g; 95: $xmlstring=~s/\<p\>/\<p\>\<\/p\>/g; 96: $errorstring.=&tth::ttmerror(); 97: } else { 98: $xmlstring=&tth::tth($$texstring); 99: $errorstring.=&tth::ttherror(); 100: } 101: } 102: ENDCONV 103: if ($Apache::lontexconvert::messedup || &tth::tthmessedup()) { 104: &Apache::lonnet::logthis("Trying to kill myself"); 105: $Apache::lontexconvert::messedup=1; 106: my $request=Apache->request(); 107: $request->child_terminate(); 108: } 109: return $xmlstring; 110: } 111: 112: # ====================================================================== Footer 113: 114: sub footer { 115: my $xmlstring=''; 116: if ($ENV{'request.state'} eq 'construct') { 117: $xmlstring.='<address>'.$errorstring.'</address>'; 118: } else { 119: &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring); 120: } 121: # -------------------------------------------------------------------- End Body 122: $xmlstring.=&Apache::lonxml::xmlend(); 123: return $xmlstring; 124: } 125: 126: # ------------------------------------------------------------ Message display 127: 128: sub to_convert { 129: my ($string) = @_; 130: $string=~s/\<br\s*\/?\>/ /gs; 131: $string=~s/\s/ /gs; 132: $string=&HTML::Entities::decode($string); 133: return &converted(\$string); 134: } 135: 136: sub smiley { 137: my $expression=shift; 138: if ($ENV{'browser.imagesuppress'} eq 'on') { return $expression; } 139: my %smileys=('\:\-*\)' => 'smiley', 140: '8\-*\)' => 'coolsmile', 141: '8\-*I' => 'coolindiff', 142: ':\-*$' => 'frowny', 143: '\:\-*(o|O|\($)' => 'shocked', 144: '\;\-*\)' => 'wink', 145: '\:\-*P' => 'baeh', 146: '\:\-(\\\|\\/)' => 'hrrm', 147: '\:\-*D' => 'bigsmile', 148: '\:\-*C' => 'angry', 149: '\:(\'|\`)\-*$' => 'cry', 150: '\:\-*(X|\#)' => 'lipsrsealed', 151: '\:\-*S' => 'huh'); 152: my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; 153: foreach (keys %smileys) { 154: $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs; 155: } 156: return $expression; 157: } 158: 159: sub msgtexconverted { 160: my $message=shift; 161: 162: $errorstring=''; 163: if ($ENV{'browser.mathml'}) { 164: &tth::ttminit(); 165: if ($ENV{'browser.unicode'}) { 166: &tth::ttmoptions('-L -u1'); 167: } else { 168: &tth::ttmoptions('-L -u0'); 169: } 170: } else { 171: &tth::tthinit(); 172: if ($ENV{'browser.unicode'}) { 173: &tth::tthoptions('-L -u1'); 174: } else { 175: &tth::tthoptions('-L -u0'); 176: } 177: } 178: $message=~s/(\$\$.+?\$\$)/&to_convert($1)/gse; 179: $message=~s/(\$.+?\$)/&to_convert($1)/gse; 180: $message=~s/(\\\(.+?\\$)/&to_convert($1)/gse; 181: $message=~s/(\\\[.+?\\\])/&to_convert($1)/gse; 182: return &smiley($message).$errorstring; 183: } 184: 185: 1; 186: __END__ 187: 188: 189: 190: 191: 192: 193: