[BACK]Return to lontexconvert.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml
File:  [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.24: download - view: text, annotated - select for diffs
Mon Jun 23 21:28:59 2003 UTC (20 years, 10 months ago) by albertel
Branches: MAIN
CVS tags: version_1_0_3, version_1_0_2, version_1_0_1, version_1_0_0, version_0_99_5, version_0_99_4, version_0_99_3, HEAD
- better error message
- if the calling function wants an array of results pass the errors back seperately

    1: # The LearningOnline Network with CAPA
    2: # TeX Conversion Module
    3: #
    4: # $Id: lontexconvert.pm,v 1.24 2003/06/23 21:28:59 albertel 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 '[TeX 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:     $xmlstring=~s/^\s*//;
  102:     $xmlstring=~s/\s*$//;
  103:   }
  104: ENDCONV
  105:   if ($Apache::lontexconvert::messedup || &tth::tthmessedup()) {
  106:       &Apache::lonnet::logthis("Trying to kill myself");
  107:       $Apache::lontexconvert::messedup=1;
  108:       my $request=Apache->request();
  109:       $request->child_terminate();
  110:   }
  111:   return $xmlstring;
  112: }
  113: 
  114: # ====================================================================== Footer
  115: 
  116: sub footer {
  117:   my $xmlstring='';
  118:   if ($ENV{'request.state'} eq 'construct') {
  119:       $xmlstring.='<address>'.$errorstring.'</address>';
  120:   } else {
  121:       &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring);
  122:   }
  123: # -------------------------------------------------------------------- End Body
  124:   $xmlstring.=&Apache::lonxml::xmlend();
  125:   return $xmlstring;
  126: }
  127: 
  128: # ------------------------------------------------------------ Message display
  129: 
  130: sub to_convert {
  131:     my ($string) = @_;
  132:     $string=~s/\<br\s*\/?\>/ /gs;
  133:     $string=~s/\s/ /gs;
  134:     $string=&HTML::Entities::decode($string);
  135:     return &converted(\$string);
  136: }
  137: 
  138: sub smiley {
  139:    my $expression=shift;
  140:    if ($ENV{'browser.imagesuppress'} eq 'on') { return $expression; }
  141:    my %smileys=('\:\-*\)' => 'smiley',
  142:                 '8\-*\)'  => 'coolsmile',
  143:                 '8\-*I'   => 'coolindiff',
  144:                 ':\-*\('  => 'frowny',
  145:                 '\:\-*(o|O|\(\))' => 'shocked',
  146:                 '\;\-*\)' => 'wink',
  147:                 '\:\-*P'  => 'baeh',
  148:                 '\:\-(\\\|\\/)' => 'hrrm',
  149:                 '\:\-*D'  => 'bigsmile',
  150:                 '\:\-*C'  => 'angry',
  151:                 '\:(\'|\`)\-*\(' => 'cry',
  152:                 '\:\-*(X|\#)' => 'lipsrsealed',
  153:                 '\:\-*S' => 'huh');
  154:    my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
  155:    foreach (keys %smileys) {
  156:       $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs; 
  157:    }
  158:    return $expression;
  159: }
  160: 
  161: sub msgtexconverted {
  162:     my $message=shift;
  163: 
  164:     $errorstring='';
  165:     if ($ENV{'browser.mathml'}) {
  166: 	&tth::ttminit();
  167: 	if ($ENV{'browser.unicode'}) {
  168: 	    &tth::ttmoptions('-L -u1');
  169: 	} else {
  170: 	    &tth::ttmoptions('-L -u0');
  171: 	}
  172:     } else {
  173: 	&tth::tthinit();
  174: 	if ($ENV{'browser.unicode'}) {
  175: 	    &tth::tthoptions('-L -u1');
  176: 	} else {
  177: 	    &tth::tthoptions('-L -u0');
  178: 	}
  179:     }
  180:     $message=~s/(\$\$.+?\$\$)/&to_convert($1)/gse;
  181:     $message=~s/(\$.+?\$)/&to_convert($1)/gse;
  182:     $message=~s/(\\\(.+?\\\))/&to_convert($1)/gse;
  183:     $message=~s/(\\\[.+?\\\])/&to_convert($1)/gse;
  184:     if (wantarray) {
  185: 	return (&smiley($message),$errorstring);
  186:     } else {
  187: 	return &smiley($message).$errorstring;
  188:     }
  189: }
  190: 
  191: 1;
  192: __END__
  193: 
  194: 
  195: 
  196: 
  197: 
  198: 
  199:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>