loncom/xml/lontexconvert.pm - view

File: [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.21: download - view: text, annotated - select for diffs
Mon Mar 31 16:34:08 2003 UTC (21 years, 2 months ago) by www
Branches: MAIN
CVS tags: HEAD

Attachments displayed in normal messages.

1: # The LearningOnline Network with CAPA 2: # TeX Conversion Module 3: # 4: # $Id: lontexconvert.pm,v 1.21 2003/03/31 16:34:08 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*\/?\>/ /g; 131: $string=&HTML::Entities::decode($string); 132: return &converted(\$string); 133: } 134: 135: sub smiley { 136: my $expression=shift; 137: if ($ENV{'browser.imagesuppress'} eq 'on') { return $expression; } 138: my %smileys=('\:\-*\)' => 'smiley', 139: '8\-*\)' => 'coolsmile', 140: '8\-*I' => 'coolindiff', 141: ':\-*$' => 'frowny', 142: '\:\-*(o|O|\($)' => 'shocked', 143: '\;\-*\)' => 'wink', 144: '\:\-*P' => 'baeh', 145: '\:\-(\\\|\\/)' => 'hrrm', 146: '\:\-*D' => 'bigsmile', 147: '\:\-*C' => 'angry', 148: '\:(\'|\`)\-*$' => 'cry', 149: '\:\-*(X|\#)' => 'lipsrsealed', 150: '\:\-*S' => 'huh'); 151: my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; 152: foreach (keys %smileys) { 153: $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs; 154: } 155: return $expression; 156: } 157: 158: sub msgtexconverted { 159: my $message=shift; 160: 161: $errorstring=''; 162: if ($ENV{'browser.mathml'}) { 163: &tth::ttminit(); 164: if ($ENV{'browser.unicode'}) { 165: &tth::ttmoptions('-L -u1'); 166: } else { 167: &tth::ttmoptions('-L -u0'); 168: } 169: } else { 170: &tth::tthinit(); 171: if ($ENV{'browser.unicode'}) { 172: &tth::tthoptions('-L -u1'); 173: } else { 174: &tth::tthoptions('-L -u0'); 175: } 176: } 177: $message=~s/(\$\$.+?\$\$)/&to_convert($1)/ge; 178: $message=~s/(\$.+?\$)/&to_convert($1)/ge; 179: $message=~s/(\\\(.+?\\$)/&to_convert($1)/ge; 180: $message=~s/(\\\[.+?\\\])/&to_convert($1)/ge; 181: return &smiley($message).$errorstring; 182: } 183: 184: 1; 185: __END__ 186: 187: 188: 189: 190: 191: 192: