[BACK]Return to lontexconvert.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml
File:  [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.29: download - view: text, annotated - select for diffs
Wed Jan 28 17:16:27 2004 UTC (20 years, 4 months ago) by albertel
Branches: MAIN
CVS tags: HEAD
- consolidated tth init sections
- course parameter for tth for setting tth parameters

    1: # The LearningOnline Network with CAPA
    2: # TeX Conversion Module
    3: #
    4: # $Id: lontexconvert.pm,v 1.29 2004/01/28 17:16:27 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 init_tth {
   55:     my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'};
   56:     if ($ENV{'browser.mathml'}) {
   57: 	&tth::ttminit();
   58: 	if ($ENV{'browser.unicode'}) {
   59: 	    &tth::ttmoptions('-L -u1 '.$options);
   60: 	} else {
   61: 	    &tth::ttmoptions('-L -u0 '.$options);
   62: 	}
   63:     } else {
   64: 	&tth::tthinit();
   65: 	if ($ENV{'browser.unicode'}) {
   66: 	    &tth::tthoptions('-L -u1 '.$options);
   67: 	} else {
   68: 	    &tth::tthoptions('-L -u0 '.$options);
   69: 	}
   70:     }
   71:     &Apache::lonnet::logthis("caled and use $options");
   72:     &Apache::lonnet::logthis("caller ".join(':',caller(0)));
   73: 
   74: }
   75: 
   76: sub header {
   77:   $errorstring='';
   78:   my $time=time;
   79:   &init_tth();
   80:   return &Apache::lonxml::xmlbegin().
   81:          &Apache::lonxml::fontsettings().
   82:          "\n<head>\n".
   83:          &Apache::lonmenu::registerurl(undef,'tex').
   84: 	 "\n</head>\n";
   85: }
   86: 
   87: # ================================================================== Conversion
   88: 
   89: $Apache::lontexconvert::messedup=0;
   90: sub converted {
   91:   my $texstring=shift;
   92:   my $xmlstring='[UNDISPLAYABLE]';
   93:   if ($Apache::lontexconvert::messedup) {
   94:       return '[TeX Unconverted Due To Previous Errors]';
   95:   }
   96:   eval(<<'ENDCONV');
   97:   {
   98:     local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };
   99:     if ($ENV{'browser.mathml'}) {
  100:       $xmlstring=&tth::ttm($$texstring);
  101:       $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;
  102:       $xmlstring=~s/\<br\>/\<br\/\>/g;
  103:       $xmlstring=~s/\<p\>/\<p\>\<\/p\>/g;
  104:       $errorstring.=&tth::ttmerror();
  105:     } else {
  106:       $xmlstring=&tth::tth($$texstring);
  107:       $errorstring.=&tth::ttherror();
  108:       $xmlstring=~s-</font(\s*)>-</font>-g;
  109:     }
  110:     $xmlstring=~s/^\s*//;
  111:     $xmlstring=~s/\s*$//;
  112:   }
  113: ENDCONV
  114:   if ($Apache::lontexconvert::messedup || &tth::tthmessedup()) {
  115:       &Apache::lonnet::logthis("Trying to kill myself");
  116:       $Apache::lontexconvert::messedup=1;
  117:       my $request=Apache->request();
  118:       $request->child_terminate();
  119:   }
  120:   return $xmlstring;
  121: }
  122: 
  123: # ====================================================================== Footer
  124: 
  125: sub footer {
  126:   my $xmlstring='';
  127:   if ($ENV{'request.state'} eq 'construct') {
  128:       $xmlstring.='<address>'.$errorstring.'</address>';
  129:   } else {
  130:       &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring);
  131:   }
  132: # -------------------------------------------------------------------- End Body
  133:   $xmlstring.=&Apache::lonxml::xmlend();
  134:   return $xmlstring;
  135: }
  136: 
  137: # ------------------------------------------------------------ Message display
  138: 
  139: sub to_convert {
  140:     my ($string) = @_;
  141:     $string=~s/\<br\s*\/?\>/ /gs;
  142:     $string=~s/\s/ /gs;
  143:     $string=&HTML::Entities::decode($string);
  144:     return &converted(\$string);
  145: }
  146: 
  147: sub smiley {
  148:    my $expression=shift;
  149:    if ($ENV{'browser.imagesuppress'} eq 'on') { return $expression; }
  150:    my %smileys=('\:\-\)' => 'smiley',
  151:                 '8\-\)'  => 'coolsmile',
  152:                 '8\-(I|\|)'   => 'coolindiff',
  153:                 ':\-(I|\|)'   => 'neutral',
  154:                 '\:\-(o|O|\(\))' => 'shocked',
  155:                 ':\-\('  => 'frowny',
  156:                 '\;\-\)' => 'wink',
  157:                 '\:\-P'  => 'baeh',
  158:                 '\:\-(\\\|\\/)' => 'hrrm',
  159:                 '\:\-D'  => 'bigsmile',
  160:                 '\:\-C'  => 'angry',
  161:                 '\:(\'|\`)\-\(' => 'cry',
  162:                 '\:\-(X|\#)' => 'lipsrsealed',
  163:                 '\:\-S' => 'huh');
  164:    my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'};
  165:    foreach (keys %smileys) {
  166:       $expression=~s/$_/\<img src="$iconpath\/$smileys{$_}.gif" \/\>/gs; 
  167:    }
  168:    return $expression;
  169: }
  170: 
  171: sub msgtexconverted {
  172:     my $message=shift;
  173: 
  174:     $errorstring='';
  175:     &init_tth();
  176:     my $outmessage='';
  177:     my $tex=0;
  178:     foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {
  179: 	if ($tex) {
  180: 	    $outmessage.=&to_convert($_); $tex=0;
  181: 	} else {
  182:             $outmessage.=&smiley($_); $tex=1;
  183: 	}
  184:     }
  185:     if (wantarray) {
  186: 	return ($outmessage,$errorstring);
  187:     } else {
  188: 	return $outmessage.$errorstring;
  189:     }
  190: }
  191: 
  192: 1;
  193: __END__
  194: 
  195: 
  196: 
  197: 
  198: 
  199: 
  200:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>