Annotation of loncom/xml/londefdef.pm, revision 1.72
1.1 sakharuk 1: # The LearningOnline Network with CAPA
2: # Tags Default Definition Module
3: #
1.71 sakharuk 4: # $Id: londefdef.pm,v 1.70 2002/07/11 18:20:00 sakharuk Exp $
1.41 sakharuk 5: #
1.34 www 6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: #
27: # http://www.lon-capa.org/
28: #
29: # Copyright for TtHfunc and TtMfunc by Ian Hutchinson.
30: # TtHfunc and TtMfunc (the "Code") may be compiled and linked into
31: # binary executable programs or libraries distributed by the
32: # Michigan State University (the "Licensee"), but any binaries so
33: # distributed are hereby licensed only for use in the context
34: # of a program or computational system for which the Licensee is the
35: # primary author or distributor, and which performs substantial
36: # additional tasks beyond the translation of (La)TeX into HTML.
37: # The C source of the Code may not be distributed by the Licensee
38: # to any other parties under any circumstances.
39: #
40: #
1.1 sakharuk 41: # last modified 06/26/00 by Alexander Sakharuk
1.28 www 42: # 11/6,11/30,02/01/01,5/4 Gerd Kortemeyer
1.41 sakharuk 43: # 01/18 Alex Sakharuk
1.1 sakharuk 44:
1.2 albertel 45: package Apache::londefdef;
1.1 sakharuk 46:
1.54 sakharuk 47: use Apache::lonnet;
1.1 sakharuk 48: use strict;
1.3 sakharuk 49: use Apache::lonxml;
1.57 sakharuk 50: use Apache::File();
1.70 sakharuk 51: use Image::Magick;
1.54 sakharuk 52:
1.38 harris41 53: BEGIN {
1.15 sakharuk 54:
1.65 sakharuk 55: &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','allow','frameset','pre','insert','externallink','table','tr','th','td','blankspace','bubble','bubbles','bubbleline'));
1.15 sakharuk 56:
1.3 sakharuk 57: }
1.1 sakharuk 58:
1.35 sakharuk 59: #======================= TAG SUBROUTINES =====================
1.8 sakharuk 60: #-- <output>
1.21 albertel 61: sub start_output {
62: my ($target) = @_;
1.22 albertel 63: if ($target eq 'meta') { $Apache::lonxml::metamode--; }
1.21 albertel 64: return '';
65: }
66: sub end_output {
67: my ($target) = @_;
1.22 albertel 68: if ($target eq 'meta') { $Apache::lonxml::metamode++; }
1.21 albertel 69: return '';
70: }
1.4 sakharuk 71: #-- <m> tag
1.33 albertel 72: sub start_m {
73: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
74: my $currentstring = '';
75: if ($target eq 'web') {
1.61 albertel 76: $Apache::lonxml::prevent_entity_encode++;
1.33 albertel 77: my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);
78: $inside ='\\documentstyle{article}'.$inside;
1.37 albertel 79: &Apache::lonxml::debug("M is starting with:$inside:");
1.33 albertel 80: my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
81: if ($eval eq 'on') {
82: $inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
83: #&Apache::lonxml::debug("M is evaulated to:$inside:");
84: }
85: $currentstring = &Apache::lontexconvert::converted(\$inside);
1.37 albertel 86: if ($Apache::lontexconvert::errorstring) {
87: &Apache::lonxml::warning("tth error: ".
88: $Apache::lontexconvert::errorstring);
89: $Apache::lontexconvert::errorstring='';
90: }
1.33 albertel 91: #&Apache::lonxml::debug("M is ends with:$currentstring:");
92: } elsif ($target eq 'tex') {
93: $currentstring = "";
94: }
95: return $currentstring;
96: }
97: sub end_m {
98: my ($target,$token) = @_;
99: my $currentstring = '';
100: if ($target eq 'web') {
1.61 albertel 101: $Apache::lonxml::prevent_entity_encode--;
1.33 albertel 102: } elsif ($target eq 'tex') {
103: $currentstring = "";
104: } elsif ($target eq 'meta') {
105: }
106: return $currentstring;
107: }
1.35 sakharuk 108: #-- <html> tag
1.1 sakharuk 109: sub start_html {
110: my ($target,$token) = @_;
1.41 sakharuk 111: my $currentstring = '';
1.39 albertel 112: if ($ENV{'browser.mathml'}) {
113: &tth::ttminit();
114: } else {
115: &tth::tthinit();
116: }
1.1 sakharuk 117: if ($target eq 'web') {
1.29 www 118: $currentstring = &Apache::lonxml::xmlbegin().
119: &Apache::lonxml::fontsettings();
1.35 sakharuk 120: } elsif ($target eq 'tex') {
1.53 sakharuk 121: @Apache::londefdef::table = ();
1.35 sakharuk 122: $currentstring .= '\documentclass[letterpaper]{article}
1.41 sakharuk 123: \newcommand{\keephidden}[1]{}
1.44 sakharuk 124: \usepackage[dvips]{graphicx}
1.65 sakharuk 125: \usepackage{epsfig}\usepackage{calc}';
1.35 sakharuk 126: }
1.1 sakharuk 127: return $currentstring;
128: }
129: sub end_html {
130: my ($target,$token) = @_;
131: my $currentstring = '';
132: if ($target eq 'web') {
1.28 www 133: $currentstring = &Apache::lonxml::xmlend();
1.35 sakharuk 134: }
1.1 sakharuk 135: return $currentstring;
136: }
1.35 sakharuk 137: #-- <head> tag
1.1 sakharuk 138: sub start_head {
139: my ($target,$token) = @_;
140: my $currentstring = '';
141: if ($target eq 'web') {
142: $currentstring = $token->[4];
143: }
144: return $currentstring;
145: }
146: sub end_head {
147: my ($target,$token) = @_;
148: my $currentstring = '';
149: if ($target eq 'web') {
1.47 matthew 150: $currentstring = &Apache::lonxml::registerurl(undef,$target).
1.29 www 151: $token->[2];
1.1 sakharuk 152: }
153: return $currentstring;
154: }
1.35 sakharuk 155: #-- <map> tag
1.1 sakharuk 156: sub start_map {
157: my ($target,$token) = @_;
158: my $currentstring = '';
159: if ($target eq 'web') {
160: $currentstring = $token->[4];
161: }
162: return $currentstring;
163: }
164: sub end_map {
165: my ($target,$token) = @_;
166: my $currentstring = '';
167: if ($target eq 'web') {
168: $currentstring = $token->[2];
169: }
170: return $currentstring;
171: }
1.35 sakharuk 172: #-- <select> tag
1.1 sakharuk 173: sub start_select {
174: my ($target,$token) = @_;
175: my $currentstring = '';
176: if ($target eq 'web') {
177: $currentstring = $token->[4];
178: }
179: return $currentstring;
180: }
181: sub end_select {
182: my ($target,$token) = @_;
183: my $currentstring = '';
184: if ($target eq 'web') {
185: $currentstring = $token->[2];
186: }
187: return $currentstring;
188: }
1.35 sakharuk 189: #-- <option> tag
1.1 sakharuk 190: sub start_option {
191: my ($target,$token) = @_;
192: my $currentstring = '';
193: if ($target eq 'web') {
194: $currentstring = $token->[4];
195: }
196: return $currentstring;
197: }
198: sub end_option {
199: my ($target,$token) = @_;
200: my $currentstring = '';
201: if ($target eq 'web') {
202: $currentstring = $token->[2];
203: }
204: return $currentstring;
205: }
1.35 sakharuk 206: #-- <input> tag
1.1 sakharuk 207: sub start_input {
208: my ($target,$token) = @_;
209: my $currentstring = '';
210: if ($target eq 'web') {
211: $currentstring = $token->[4];
212: }
213: return $currentstring;
214: }
215: sub end_input {
216: my ($target,$token) = @_;
217: my $currentstring = '';
218: if ($target eq 'web') {
219: $currentstring = $token->[2];
220: }
221: return $currentstring;
222: }
1.35 sakharuk 223: #-- <textarea> tag
1.1 sakharuk 224: sub start_textarea {
225: my ($target,$token) = @_;
226: my $currentstring = '';
227: if ($target eq 'web') {
228: $currentstring = $token->[4];
229: }
230: return $currentstring;
231: }
232: sub end_textarea {
233: my ($target,$token) = @_;
234: my $currentstring = '';
235: if ($target eq 'web') {
236: $currentstring = $token->[2];
237: }
238: return $currentstring;
239: }
1.35 sakharuk 240: #-- <form> tag
1.1 sakharuk 241: sub start_form {
242: my ($target,$token) = @_;
243: my $currentstring = '';
244: if ($target eq 'web') {
245: $currentstring = $token->[4];
246: }
247: return $currentstring;
248: }
249: sub end_form {
250: my ($target,$token) = @_;
251: my $currentstring = '';
252: if ($target eq 'web') {
253: $currentstring = $token->[2];
254: }
255: return $currentstring;
256: }
1.35 sakharuk 257: #-- <title> tag
1.1 sakharuk 258: sub start_title {
259: my ($target,$token) = @_;
260: my $currentstring = '';
261: if ($target eq 'web') {
262: $currentstring = $token->[4];
1.35 sakharuk 263: } elsif ($target eq 'tex') {
264: $currentstring .= '\keephidden{'
1.1 sakharuk 265: }
1.13 www 266: if ($target eq 'meta') {
267: $currentstring='<title>';
268: &start_output();
269: }
1.1 sakharuk 270: return $currentstring;
271: }
272: sub end_title {
273: my ($target,$token) = @_;
274: my $currentstring = '';
275: if ($target eq 'web') {
276: $currentstring = $token->[2];
1.35 sakharuk 277: } elsif ($target eq 'tex') {
278: $currentstring .= '}';
279: }
1.13 www 280: if ($target eq 'meta') {
281: &end_output();
282: $currentstring='</title>';
1.1 sakharuk 283: }
284: return $currentstring;
285: }
1.35 sakharuk 286: #-- <meta> tag
1.1 sakharuk 287: sub start_meta {
1.30 albertel 288: my ($target,$token,$tagstack,$parstack,$parser) = @_;
1.1 sakharuk 289: my $currentstring = '';
290: if ($target eq 'web') {
1.25 albertel 291: my $args='';
292: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
293: if ($args eq '') {
294: &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);
295: } else {
296: $currentstring = $token->[4];
297: }
1.12 www 298: }
299: if ($target eq 'meta') {
300: unless ($token->[2]->{'http-equiv'}) {
301: my $name=$token->[2]->{'name'};
302: $name=~tr/A-Z/a-z/;
303: $name=~s/\s/\_/g;
304: if ($name) {
305: $currentstring='<'.$name.'>'.
306: $token->[2]->{'content'}.
307: '</'.$name.'>';
308: }
309: }
1.1 sakharuk 310: }
311: return $currentstring;
312: }
1.26 albertel 313: sub end_meta {
1.30 albertel 314: my ($target,$token,$tagstack,$parstack,$parser) = @_;
1.26 albertel 315: my $currentstring = '';
316: if ($target eq 'web') {
317: my $args='';
318: if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
319: if ($args ne '') {
320: $currentstring = $token->[4];
321: }
322: }
323: return $currentstring;
324: }
1.35 sakharuk 325: #-- <body> tag
1.1 sakharuk 326: sub start_body {
1.41 sakharuk 327: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
328: # my ($target,$token) = @_;
1.1 sakharuk 329: my $currentstring = '';
330: if ($target eq 'web') {
1.31 albertel 331: if (!$Apache::lonxml::registered) {
1.47 matthew 332: $currentstring.='<head>'.
333: &Apache::lonxml::registerurl(undef,$target).'</head>';
1.31 albertel 334: }
1.32 albertel 335: my $onLoad='';
336: foreach my $key (keys(%{$token->[2]})) {
337: if ($key =~ /^onload$/i) {
338: $onLoad.=$token->[2]->{$key}.';';
339: delete($token->[2]->{$key});
340: }
341: }
1.56 albertel 342: $token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
343: ';'.$onLoad;
1.32 albertel 344: my $onUnload='';
345: foreach my $key (keys(%{$token->[2]})) {
346: if ($key =~ /^onunload$/i) {
347: $onUnload.=$token->[2]->{$key}.';';
348: delete($token->[2]->{$key});
349: }
350: }
1.56 albertel 351: $token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
352: ';'.$onUnload;
1.31 albertel 353:
354: $currentstring .= '<'.$token->[1];
1.37 albertel 355: foreach (keys %{$token->[2]}) {
356: $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
357: }
1.31 albertel 358: $currentstring.='>';
1.40 albertel 359: if ($ENV{'request.state'} ne 'published') {
360: $currentstring.=(<<EDITBUTTON);
361: <form method="post">
1.49 albertel 362: <input type="submit" name="editmode" value="Edit" />
1.40 albertel 363: </form>
364: EDITBUTTON
365: }
1.28 www 366: } elsif ($target eq 'tex') {
1.35 sakharuk 367: $currentstring = '\begin{document}';
1.1 sakharuk 368: }
369: return $currentstring;
370: }
371: sub end_body {
372: my ($target,$token) = @_;
373: my $currentstring = '';
374: if ($target eq 'web') {
375: $currentstring = $token->[2];
376: } elsif ($target eq 'tex') {
1.35 sakharuk 377: $currentstring = '\end{document}';
1.1 sakharuk 378: }
379: return $currentstring;
380: }
1.35 sakharuk 381: #-- <center> tag
1.1 sakharuk 382: sub start_center {
383: my ($target,$token) = @_;
384: my $currentstring = '';
385: if ($target eq 'web') {
386: $currentstring = $token->[4];
387: } elsif ($target eq 'tex') {
1.35 sakharuk 388: $currentstring = '\begin{center}';
1.18 sakharuk 389: } elsif ($target eq 'latexsource') {
1.35 sakharuk 390: $currentstring = '\begin{center}';
1.1 sakharuk 391: }
392: return $currentstring;
393: }
394: sub end_center {
395: my ($target,$token) = @_;
396: my $currentstring = '';
397: if ($target eq 'web') {
398: $currentstring = $token->[2];
399: } elsif ($target eq 'tex') {
1.35 sakharuk 400: $currentstring = '\end{center}';
1.18 sakharuk 401: } elsif ($target eq 'latexsource') {
1.35 sakharuk 402: $currentstring = '\end{center}';
1.1 sakharuk 403: }
404: return $currentstring;
405: }
1.35 sakharuk 406: #-- <b> tag
1.1 sakharuk 407: sub start_b {
408: my ($target,$token) = @_;
409: my $currentstring = '';
410: if ($target eq 'web') {
411: $currentstring = $token->[4];
412: } elsif ($target eq 'tex') {
1.35 sakharuk 413: $currentstring = '\textbf{';
1.18 sakharuk 414: } elsif ($target eq 'latexsource') {
1.35 sakharuk 415: $currentstring = '\textbf{';
1.1 sakharuk 416: }
417: return $currentstring;
418: }
419: sub end_b {
420: my ($target,$token) = @_;
421: my $currentstring = '';
422: if ($target eq 'web') {
423: $currentstring = $token->[2];
424: } elsif ($target eq 'tex') {
1.35 sakharuk 425: $currentstring = '}';
426:
1.18 sakharuk 427: } elsif ($target eq 'latexsource') {
1.35 sakharuk 428: $currentstring = '}';
1.1 sakharuk 429: }
430: return $currentstring;
431: }
1.35 sakharuk 432: #-- <strong> tag
1.1 sakharuk 433: sub start_strong {
434: my ($target,$token) = @_;
435: my $currentstring = '';
436: if ($target eq 'web') {
437: $currentstring = $token->[4];
438: } elsif ($target eq 'tex') {
1.35 sakharuk 439: $currentstring = '\textbf{';
1.18 sakharuk 440: } elsif ($target eq 'latexsource') {
1.35 sakharuk 441: $currentstring = '\textbf{';
1.1 sakharuk 442: }
443: return $currentstring;
444: }
445: sub end_strong {
446: my ($target,$token) = @_;
447: my $currentstring = '';
448: if ($target eq 'web') {
449:
450: $currentstring = $token->[2];
451: } elsif ($target eq 'tex') {
1.35 sakharuk 452: $currentstring = '}';
1.18 sakharuk 453: } elsif ($target eq 'latexsource') {
1.35 sakharuk 454: $currentstring = '}';
1.1 sakharuk 455: }
456: return $currentstring;
457: }
1.35 sakharuk 458: #-- <h1> tag
1.1 sakharuk 459: sub start_h1 {
460: my ($target,$token) = @_;
461: my $currentstring = '';
462: if ($target eq 'web') {
463: $currentstring .= $token->[4];
464: } elsif ($target eq 'tex') {
1.35 sakharuk 465: $currentstring .= '\large{\textbf{';
1.13 www 466: } elsif ($target eq 'meta') {
467: $currentstring='<subject>';
468: &start_output();
469: }
1.1 sakharuk 470: return $currentstring;
471: }
472: sub end_h1 {
473: my ($target,$token) = @_;
474: my $currentstring = '';
475: if ($target eq 'web') {
476: $currentstring .= $token->[2];
477: } elsif ($target eq 'tex') {
1.35 sakharuk 478: $currentstring .= '}}';
1.13 www 479: } elsif ($target eq 'meta') {
480: &end_output();
481: $currentstring='</subject>';
482: }
1.1 sakharuk 483: return $currentstring;
484: }
1.35 sakharuk 485: #-- <h2> tag
1.1 sakharuk 486: sub start_h2 {
487: my ($target,$token) = @_;
488: my $currentstring = '';
489: if ($target eq 'web') {
490: $currentstring .= $token->[4];
491: } elsif ($target eq 'tex') {
1.35 sakharuk 492: $currentstring .= '\large{\textbf{';
1.1 sakharuk 493: }
494: return $currentstring;
495: }
496: sub end_h2 {
497: my ($target,$token) = @_;
498: my $currentstring = '';
499: if ($target eq 'web') {
500: $currentstring .= $token->[2];
501: } elsif ($target eq 'tex') {
1.35 sakharuk 502: $currentstring .= '}}';
1.1 sakharuk 503: }
504: return $currentstring;
505: }
1.35 sakharuk 506: #-- <h3> tag
1.1 sakharuk 507: sub start_h3 {
508: my ($target,$token) = @_;
509: my $currentstring = '';
510: if ($target eq 'web') {
511: $currentstring .= $token->[4];
512: } elsif ($target eq 'tex') {
1.35 sakharuk 513: $currentstring .= '\large{\textbf{';
1.1 sakharuk 514: }
515: return $currentstring;
516: }
517: sub end_h3 {
518: my ($target,$token) = @_;
519: my $currentstring = '';
520: if ($target eq 'web') {
521: $currentstring .= $token->[2];
522: } elsif ($target eq 'tex') {
1.35 sakharuk 523: $currentstring .= '}}';
1.1 sakharuk 524: }
525: return $currentstring;
526: }
1.35 sakharuk 527: #-- <h4> tag
1.1 sakharuk 528: sub start_h4 {
529: my ($target,$token) = @_;
530: my $currentstring = '';
531: if ($target eq 'web') {
532: $currentstring .= $token->[4];
533: } elsif ($target eq 'tex') {
1.41 sakharuk 534: $currentstring .= '\large{\textbf{';
1.1 sakharuk 535: }
536: return $currentstring;
537: }
538: sub end_h4 {
539: my ($target,$token) = @_;
540: my $currentstring = '';
541: if ($target eq 'web') {
542: $currentstring .= $token->[2];
543: } elsif ($target eq 'tex') {
1.35 sakharuk 544: $currentstring .= '}}';
1.1 sakharuk 545: }
546: return $currentstring;
547: }
1.35 sakharuk 548: #-- <h5> tag
1.1 sakharuk 549: sub start_h5 {
550: my ($target,$token) = @_;
551: my $currentstring = '';
552: if ($target eq 'web') {
553: $currentstring .= $token->[4];
554: } elsif ($target eq 'tex') {
1.35 sakharuk 555: $currentstring .= '\large{\textbf{';
1.1 sakharuk 556: }
557: return $currentstring;
558: }
559: sub end_h5 {
560: my ($target,$token) = @_;
561: my $currentstring = '';
562: if ($target eq 'web') {
563: $currentstring .= $token->[2];
564: } elsif ($target eq 'tex') {
1.35 sakharuk 565: $currentstring .= '}}';
1.1 sakharuk 566: }
567: return $currentstring;
568: }
1.35 sakharuk 569: #-- <h6> tag
1.1 sakharuk 570: sub start_h6 {
571: my ($target,$token) = @_;
572: my $currentstring = '';
573: if ($target eq 'web') {
574: $currentstring .= $token->[4];
575: } elsif ($target eq 'tex') {
1.35 sakharuk 576: $currentstring .= '\large{\textbf{';
1.1 sakharuk 577: }
578: return $currentstring;
579: }
580: sub end_h6 {
581: my ($target,$token) = @_;
582: my $currentstring = '';
583: if ($target eq 'web') {
584: $currentstring .= $token->[2];
585: } elsif ($target eq 'tex') {
1.35 sakharuk 586: $currentstring .= '}}';
1.1 sakharuk 587: }
588: return $currentstring;
589: }
1.35 sakharuk 590: #--- <cite> tag
1.1 sakharuk 591: sub start_cite {
592: my ($target,$token) = @_;
593: my $currentstring = '';
594: if ($target eq 'web') {
595: $currentstring .= $token->[4];
596: } elsif ($target eq 'tex') {
1.18 sakharuk 597: $currentstring .= "\\textit{";
598: } elsif ($target eq 'latexsource') {
599: $currentstring .= "\\textit{";
1.1 sakharuk 600: }
601: return $currentstring;
602: }
603: sub end_cite {
604: my ($target,$token) = @_;
605: my $currentstring = '';
606: if ($target eq 'web') {
607: $currentstring .= $token->[2];
608: } elsif ($target eq 'tex') {
609: $currentstring .= "}";
1.18 sakharuk 610: } elsif ($target eq 'latexsource') {
611: $currentstring .= "}";
1.1 sakharuk 612: }
613: return $currentstring;
614: }
1.35 sakharuk 615: #-- <i> tag
1.1 sakharuk 616: sub start_i {
617: my ($target,$token) = @_;
618: my $currentstring = '';
619: if ($target eq 'web') {
620: $currentstring .= $token->[4];
621: } elsif ($target eq 'tex') {
1.35 sakharuk 622: $currentstring .= '\textit{';
1.18 sakharuk 623: } elsif ($target eq 'latexsource') {
1.35 sakharuk 624: $currentstring .= '\textit{';
1.1 sakharuk 625: }
626: return $currentstring;
627: }
628: sub end_i {
629: my ($target,$token) = @_;
630: my $currentstring = '';
631: if ($target eq 'web') {
632: $currentstring .= $token->[2];
633: } elsif ($target eq 'tex') {
1.35 sakharuk 634: $currentstring .= '}';
1.18 sakharuk 635: } elsif ($target eq 'latexsource') {
1.35 sakharuk 636: $currentstring .= '}';
1.1 sakharuk 637: }
638: return $currentstring;
639: }
1.35 sakharuk 640: #-- <address> tag
1.1 sakharuk 641: sub start_address {
642: my ($target,$token) = @_;
643: my $currentstring = '';
644: if ($target eq 'web') {
645: $currentstring .= $token->[4];
646: } elsif ($target eq 'tex') {
1.18 sakharuk 647: $currentstring .= "\\textit{";
648: } elsif ($target eq 'latexsource') {
649: $currentstring .= "\\textit{";
1.1 sakharuk 650: }
651: return $currentstring;
652: }
653: sub end_address {
654: my ($target,$token) = @_;
655: my $currentstring = '';
656: if ($target eq 'web') {
657: $currentstring .= $token->[2];
658: } elsif ($target eq 'tex') {
659: $currentstring .= "}";
1.18 sakharuk 660: } elsif ($target eq 'latexsource') {
661: $currentstring .= "}";
1.1 sakharuk 662: }
663: return $currentstring;
664: }
1.35 sakharuk 665: #-- <dfn> tag
1.1 sakharuk 666: sub start_dfn {
667: my ($target,$token) = @_;
668: my $currentstring = '';
669: if ($target eq 'web') {
670: $currentstring .= $token->[4];
671: } elsif ($target eq 'tex') {
1.18 sakharuk 672: $currentstring .= "\\textit{";
673: } elsif ($target eq 'latexsource') {
674: $currentstring .= "\\textit{";
1.1 sakharuk 675: }
676: return $currentstring;
677: }
678: sub end_dfn {
679: my ($target,$token) = @_;
680: my $currentstring = '';
681: if ($target eq 'web') {
682: $currentstring .= $token->[2];
683: } elsif ($target eq 'tex') {
684: $currentstring .= "}";
1.18 sakharuk 685: } elsif ($target eq 'latexsource') {
686: $currentstring .= "}";
1.1 sakharuk 687: }
688: return $currentstring;
689: }
1.35 sakharuk 690: #-- <tt> tag
1.1 sakharuk 691: sub start_tt {
692: my ($target,$token) = @_;
693: my $currentstring = '';
694: if ($target eq 'web') {
695: $currentstring .= $token->[4];
696: } elsif ($target eq 'tex') {
1.35 sakharuk 697: $currentstring .= '\texttt{';
1.18 sakharuk 698: } elsif ($target eq 'latexsource') {
1.35 sakharuk 699: $currentstring .= '\texttt{';
1.1 sakharuk 700: }
701: return $currentstring;
702: }
703: sub end_tt {
704: my ($target,$token) = @_;
705: my $currentstring = '';
706: if ($target eq 'web') {
707: $currentstring .= $token->[2];
708: } elsif ($target eq 'tex') {
1.35 sakharuk 709: $currentstring .= '}';
1.18 sakharuk 710: } elsif ($target eq 'latexsource') {
1.35 sakharuk 711: $currentstring .= '}';
1.18 sakharuk 712: }
1.1 sakharuk 713: return $currentstring;
714: }
1.35 sakharuk 715: #-- <kbd> tag
1.1 sakharuk 716: sub start_kbd {
717: my ($target,$token) = @_;
718: my $currentstring = '';
719: if ($target eq 'web') {
720: $currentstring .= $token->[4];
721: } elsif ($target eq 'tex') {
1.18 sakharuk 722: $currentstring .= "\\texttt";
723: } elsif ($target eq 'latexsource') {
724: $currentstring .= "\\texttt{";
1.1 sakharuk 725: }
726: return $currentstring;
727: }
728: sub end_kbd {
729: my ($target,$token) = @_;
730: my $currentstring = '';
731: if ($target eq 'web') {
732: $currentstring .= $token->[2];
733: } elsif ($target eq 'tex') {
734: $currentstring .= "}";
1.18 sakharuk 735: } elsif ($target eq 'latexsource') {
736: $currentstring .= "}";
1.1 sakharuk 737: }
738: return $currentstring;
739: }
1.35 sakharuk 740: #-- <code> tag
1.1 sakharuk 741: sub start_code {
742: my ($target,$token) = @_;
743: my $currentstring = '';
744: if ($target eq 'web') {
745: $currentstring .= $token->[4];
746: } elsif ($target eq 'tex') {
1.35 sakharuk 747: $currentstring .= '\texttt{';
1.1 sakharuk 748: }
749: return $currentstring;
750: }
751: sub end_code {
752: my ($target,$token) = @_;
753: my $currentstring = '';
754: if ($target eq 'web') {
755: $currentstring .= $token->[2];
756: } elsif ($target eq 'tex') {
1.35 sakharuk 757: $currentstring .= '}';
1.1 sakharuk 758: }
759: return $currentstring;
760: }
1.35 sakharuk 761: #-- <em> tag
1.1 sakharuk 762: sub start_em {
763: my ($target,$token) = @_;
764: my $currentstring = '';
765: if ($target eq 'web') {
766: $currentstring .= $token->[4];
767: } elsif ($target eq 'tex') {
1.35 sakharuk 768: $currentstring .= '\emph{';
1.18 sakharuk 769: } elsif ($target eq 'latexsource') {
1.35 sakharuk 770: $currentstring .= '\emph{';
1.1 sakharuk 771: }
772: return $currentstring;
773: }
774: sub end_em {
775: my ($target,$token) = @_;
776: my $currentstring = '';
777: if ($target eq 'web') {
778: $currentstring .= $token->[2];
779: } elsif ($target eq 'tex') {
1.35 sakharuk 780: $currentstring .= '}';
1.18 sakharuk 781: } elsif ($target eq 'latexsource') {
1.35 sakharuk 782: $currentstring .= '}';
1.18 sakharuk 783: }
1.1 sakharuk 784: return $currentstring;
785: }
1.35 sakharuk 786: #-- <q> tag
1.1 sakharuk 787: sub start_q {
788: my ($target,$token) = @_;
789: my $currentstring = '';
790: if ($target eq 'web') {
791: $currentstring .= $token->[4];
792: } elsif ($target eq 'tex') {
1.18 sakharuk 793: $currentstring .= "\\emph{";
794: } elsif ($target eq 'latexsource') {
795: $currentstring .= "\\emph{";
796: }
1.1 sakharuk 797: return $currentstring;
798: }
799: sub end_q {
800: my ($target,$token) = @_;
801: my $currentstring = '';
802: if ($target eq 'web') {
803: $currentstring .= $token->[2];
804: } elsif ($target eq 'tex') {
805: $currentstring .= "}";
1.18 sakharuk 806: } elsif ($target eq 'latexsource') {
807: $currentstring .= "}";
808: }
1.1 sakharuk 809: return $currentstring;
810: }
1.35 sakharuk 811: #-- <p> tag
1.1 sakharuk 812: sub start_p {
813: my ($target,$token) = @_;
814: my $currentstring = '';
815: if ($target eq 'web') {
816: $currentstring .= $token->[4];
817: } elsif ($target eq 'tex') {
1.35 sakharuk 818: $currentstring .= '{\par ';
1.18 sakharuk 819: } elsif ($target eq 'latexsource') {
1.35 sakharuk 820: $currentstring .= '{\par ';
1.1 sakharuk 821: }
822: return $currentstring;
823: }
824: sub end_p {
825: my ($target,$token) = @_;
826: my $currentstring = '';
827: if ($target eq 'web') {
828: $currentstring .= $token->[2];
829: } elsif ($target eq 'tex') {
1.35 sakharuk 830: $currentstring .= '}';
1.18 sakharuk 831: } elsif ($target eq 'latexsource') {
1.35 sakharuk 832: $currentstring .= '}';
1.1 sakharuk 833: }
834: return $currentstring;
835: }
1.35 sakharuk 836: #-- <br> tag
1.1 sakharuk 837: sub start_br {
838: my ($target,$token) = @_;
839: my $currentstring = '';
840: if ($target eq 'web') {
841: $currentstring .= $token->[4];
842: } elsif ($target eq 'tex') {
1.65 sakharuk 843: $currentstring .= '\vskip 0 mm';
1.18 sakharuk 844: } elsif ($target eq 'latexsource') {
1.35 sakharuk 845: $currentstring .= '\\';
1.1 sakharuk 846: }
847: return $currentstring;
848: }
849: sub end_br {
850: my ($target,$token) = @_;
851: my $currentstring = '';
852: if ($target eq 'web') {
853: $currentstring .= $token->[2];
854: }
855: return $currentstring;
856: }
1.35 sakharuk 857: #-- <big> tag
1.1 sakharuk 858: sub start_big {
859: my ($target,$token) = @_;
860: my $currentstring = '';
861: if ($target eq 'web') {
862: $currentstring .= $token->[4];
863: } elsif ($target eq 'tex') {
1.36 albertel 864: $currentstring .= '\large{';
1.18 sakharuk 865: } elsif ($target eq 'latexsource') {
1.41 sakharuk 866: $currentstring .= '{\Large ';
1.18 sakharuk 867: }
1.1 sakharuk 868: return $currentstring;
869: }
870: sub end_big {
871: my ($target,$token) = @_;
872: my $currentstring = '';
873: if ($target eq 'web') {
874: $currentstring .= $token->[2];
875: } elsif ($target eq 'tex') {
1.35 sakharuk 876: $currentstring .= '}';
1.18 sakharuk 877: } elsif ($target eq 'latexsource') {
1.35 sakharuk 878: $currentstring .= '}';
1.1 sakharuk 879: }
880: return $currentstring;
881: }
1.35 sakharuk 882: #-- <small> tag
1.1 sakharuk 883: sub start_small {
884: my ($target,$token) = @_;
885: my $currentstring = '';
886: if ($target eq 'web') {
887: $currentstring .= $token->[4];
888: } elsif ($target eq 'tex') {
1.41 sakharuk 889: $currentstring .= '{\footnotesize ';
1.18 sakharuk 890: } elsif ($target eq 'latexsource') {
1.41 sakharuk 891: $currentstring .= '{\footnotesize ';
1.1 sakharuk 892: }
893: return $currentstring;
894: }
895: sub end_small {
896: my ($target,$token) = @_;
897: my $currentstring = '';
898: if ($target eq 'web') {
899: $currentstring .= $token->[2];
900: } elsif ($target eq 'tex') {
1.35 sakharuk 901: $currentstring .= '}';
1.18 sakharuk 902: } elsif ($target eq 'latexsource') {
1.35 sakharuk 903: $currentstring .= '}';
1.1 sakharuk 904: }
905: return $currentstring;
906: }
1.35 sakharuk 907: #-- <basefont> tag
1.1 sakharuk 908: sub start_basefont {
1.14 albertel 909: my ($target,$token) = @_;
910: my $currentstring = '';
911: if ($target eq 'web') {
912: $currentstring = $token->[4];
913: }
914: return $currentstring;
915: }
916: sub end_basefont {
917: my ($target,$token) = @_;
918: my $currentstring = '';
919: if ($target eq 'web') {
920: $currentstring = $token->[4];
921: }
922: return $currentstring;
923: }
1.35 sakharuk 924: #-- <font> tag
1.1 sakharuk 925: sub start_font {
1.61 albertel 926: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.1 sakharuk 927: my $currentstring = '';
928: if ($target eq 'web') {
1.61 albertel 929: my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
930: if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;}
1.1 sakharuk 931: $currentstring = $token->[4];
932: }
933: return $currentstring;
934: }
935: sub end_font {
1.61 albertel 936: my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
1.1 sakharuk 937: my $currentstring = '';
938: if ($target eq 'web') {
1.61 albertel 939: my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
940: if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode--;}
1.1 sakharuk 941: $currentstring = $token->[2];
942: }
943: return $currentstring;
944: }
1.35 sakharuk 945: #-- <strike> tag
1.1 sakharuk 946: sub start_strike {
947: my ($target,$token) = @_;
948: my $currentstring = '';
949: if ($target eq 'web') {
950: $currentstring .= $token->[4];
951: } elsif ($target eq 'tex') {
952: $currentstring .= "{\\underline ";
953: }
954: return $currentstring;
955: }
956: sub end_strike {
957: my ($target,$token) = @_;
958: my $currentstring = '';
959: if ($target eq 'web') {
960: $currentstring .= $token->[2];
961: } elsif ($target eq 'tex') {
962: $currentstring .= " }";
963: }
964: return $currentstring;
965: }
1.35 sakharuk 966: #-- <s> tag
1.1 sakharuk 967: sub start_s {
968: my ($target,$token) = @_;
969: my $currentstring = '';
970: if ($target eq 'web') {
971: $currentstring .= $token->[4];
972: } elsif ($target eq 'tex') {
973: $currentstring .= "{\\underline ";
974: }
975: return $currentstring;
976: }
977: sub end_s {
978: my ($target,$token) = @_;
979: my $currentstring = '';
980: if ($target eq 'web') {
981: $currentstring .= $token->[2];
982: } elsif ($target eq 'tex') {
983: $currentstring .= " }";
984: }
985: return $currentstring;
986: }
1.35 sakharuk 987: #-- <sub> tag
1.1 sakharuk 988: sub start_sub {
989: my ($target,$token) = @_;
990: my $currentstring = '';
991: if ($target eq 'web') {
992: $currentstring .= $token->[4];
993: } elsif ($target eq 'tex') {
994: $currentstring .= "\$_{ ";
995: }
996: return $currentstring;
997: }
998: sub end_sub {
999: my ($target,$token) = @_;
1000: my $currentstring = '';
1001: if ($target eq 'web') {
1002: $currentstring .= $token->[2];
1003: } elsif ($target eq 'tex') {
1004: $currentstring .= " }\$";
1005: }
1006: return $currentstring;
1007: }
1.35 sakharuk 1008: #-- <sup> tag
1.1 sakharuk 1009: sub start_sup {
1010: my ($target,$token) = @_;
1011: my $currentstring = '';
1012: if ($target eq 'web') {
1013: $currentstring .= $token->[4];
1014: } elsif ($target eq 'tex') {
1015: $currentstring .= "\$^{ ";
1016: }
1017: return $currentstring;
1018: }
1019: sub end_sup {
1020: my ($target,$token) = @_;
1021: my $currentstring = '';
1022: if ($target eq 'web') {
1023: $currentstring .= $token->[2];
1024: } elsif ($target eq 'tex') {
1025: $currentstring .= " }\$";
1026: }
1027: return $currentstring;
1028: }
1.35 sakharuk 1029: #-- <hr> tag
1.1 sakharuk 1030: sub start_hr {
1031: my ($target,$token) = @_;
1032: my $currentstring = '';
1033: if ($target eq 'web') {
1034: $currentstring .= $token->[4];
1035: } elsif ($target eq 'tex') {
1036: $currentstring .= "\\hline ";
1.6 sakharuk 1037: }
1038: return $currentstring;
1039: }
1040: sub end_hr {
1041: my ($target,$token) = @_;
1042: my $currentstring = '';
1043: if ($target eq 'web') {
1044: $currentstring .= $token->[2];
1045: } elsif ($target eq 'tex') {
1.1 sakharuk 1046: }
1047: return $currentstring;
1048: }
1.35 sakharuk 1049: #-- <a> tag
1.1 sakharuk 1050: sub start_a {
1051: my ($target,$token) = @_;
1052: my $currentstring = '';
1053: if ($target eq 'web') {
1054: $currentstring .= $token->[4];
1055: } elsif ($target eq 'tex') {
1056: }
1057: return $currentstring;
1058: }
1059: sub end_a {
1.30 albertel 1060: my ($target,$token,$tagstack,$stackref) = @_;
1.1 sakharuk 1061: my $currentstring = '';
1062: if ($target eq 'web') {
1063: $currentstring .= $token->[2];
1064: } elsif ($target eq 'tex') {
1065: my $tempor_var = $stackref->[$#$stackref];
1066: if (index($tempor_var,'name') != -1 ) {
1067: $tempor_var =~ s/name=([^,]*),/$1/g;
1.15 sakharuk 1068: # $currentstring .= " \\label{$tempor_var}";
1.1 sakharuk 1069: } elsif (index($tempor_var,'href') != -1 ) {
1070: $tempor_var =~ s/href=([^,]*),/$1/g;
1071: $currentstring .= " \\ref{$tempor_var}";
1072: }
1073: }
1074: return $currentstring;
1075: }
1.35 sakharuk 1076: #-- <li> tag
1.1 sakharuk 1077: sub start_li {
1.30 albertel 1078: my ($target,$token,$tagstack,$stackref) = @_;
1.1 sakharuk 1079: my $currentstring = '';
1080: if ($target eq 'web') {
1081: $currentstring = $token->[4];
1082: } elsif ($target eq 'tex') {
1.15 sakharuk 1083: my $tempor_var = $stackref->[$#$stackref];
1.1 sakharuk 1084: if (index($tempor_var,'circle') != -1 ) {
1085: $currentstring .= " \\item[o] ";
1086: } elsif (index($tempor_var,'square') != -1 ) {
1087: $currentstring .= " \\item[$\Box$] ";
1.15 sakharuk 1088: } elsif ($tempor_var ne '') {
1089: $_ = $tempor_var;
1090: m/my\s*([^=]*)=/;
1091: $currentstring .= " \\item[$1] ";
1092: } else {
1.1 sakharuk 1093: $currentstring .= " \\item ";
1094: }
1095: }
1096: return $currentstring;
1097: }
1098: sub end_li {
1099: my ($target,$token) = @_;
1100: my $currentstring = '';
1101: if ($target eq 'web') {
1102: $currentstring = $token->[2];
1103: }
1104: return $currentstring;
1105: }
1.35 sakharuk 1106: #-- <u> tag
1.1 sakharuk 1107: sub start_u {
1108: my ($target,$token) = @_;
1109: my $currentstring = '';
1110: if ($target eq 'web') {
1111: $currentstring .= $token->[4];
1112: } elsif ($target eq 'tex') {
1113: $currentstring .= "{\\underline ";
1114: }
1115: return $currentstring;
1116: }
1117: sub end_u {
1118: my ($target,$token) = @_;
1119: my $currentstring = '';
1120: if ($target eq 'web') {
1121: $currentstring .= $token->[2];
1122: } elsif ($target eq 'tex') {
1123: $currentstring .= " }";
1124: }
1125: return $currentstring;
1126: }
1.35 sakharuk 1127: #-- <ul> tag
1.1 sakharuk 1128: sub start_ul {
1129: my ($target,$token) = @_;
1130: my $currentstring = '';
1131: if ($target eq 'web') {
1132: $currentstring = $token->[4];
1133: } elsif ($target eq 'tex') {
1.41 sakharuk 1134: $currentstring = '\begin{itemize}';
1.1 sakharuk 1135: }
1136: return $currentstring;
1137: }
1138: sub end_ul {
1139: my ($target,$token) = @_;
1140: my $currentstring = '';
1141: if ($target eq 'web') {
1142: $currentstring = $token->[2];
1143: } elsif ($target eq 'tex') {
1.41 sakharuk 1144: $currentstring = '\end{itemize}';
1.1 sakharuk 1145: }
1146: return $currentstring;
1147: }
1.35 sakharuk 1148: #-- <menu> tag
1.1 sakharuk 1149: sub start_menu {
1150: my ($target,$token) = @_;
1151: my $currentstring = '';
1152: if ($target eq 'web') {
1153: $currentstring = $token->[4];
1154: } elsif ($target eq 'tex') {
1155: $currentstring = " \\begin{itemize} ";
1156: }
1157: return $currentstring;
1158: }
1159: sub end_menu {
1160: my ($target,$token) = @_;
1161: my $currentstring = '';
1162: if ($target eq 'web') {
1163: $currentstring = $token->[2];
1164: } elsif ($target eq 'tex') {
1165: $currentstring = " \\end{itemize}";
1166: }
1167: return $currentstring;
1168: }
1.35 sakharuk 1169: #-- <dir> tag
1.1 sakharuk 1170: sub start_dir {
1171: my ($target,$token) = @_;
1172: my $currentstring = '';
1173: if ($target eq 'web') {
1174: $currentstring = $token->[4];
1175: } elsif ($target eq 'tex') {
1176: $currentstring = " \\begin{itemize} ";
1177: }
1178: return $currentstring;
1179: }
1180: sub end_dir {
1181: my ($target,$token) = @_;
1182: my $currentstring = '';
1183: if ($target eq 'web') {
1184: $currentstring = $token->[2];
1185: } elsif ($target eq 'tex') {
1186: $currentstring = " \\end{itemize}";
1187: }
1188: return $currentstring;
1189: }
1.35 sakharuk 1190: #-- <ol> tag
1.1 sakharuk 1191: sub start_ol {
1192: my ($target,$token) = @_;
1193: my $currentstring = '';
1194: if ($target eq 'web') {
1195: $currentstring = $token->[4];
1196: } elsif ($target eq 'tex') {
1.41 sakharuk 1197: $currentstring = '\begin{enumerate}';
1.1 sakharuk 1198: }
1199: return $currentstring;
1200: }
1201: sub end_ol {
1202: my ($target,$token) = @_;
1203: my $currentstring = '';
1204: if ($target eq 'web') {
1205: $currentstring = $token->[2];
1206: } elsif ($target eq 'tex') {
1.41 sakharuk 1207: $currentstring = '\end{enumerate}';
1.1 sakharuk 1208: }
1209: return $currentstring;
1210: }
1.35 sakharuk 1211: #-- <dl> tag
1.1 sakharuk 1212: sub start_dl {
1213: my ($target,$token) = @_;
1214: my $currentstring = '';
1215: if ($target eq 'web') {
1216: $currentstring = $token->[4];
1217: } elsif ($target eq 'tex') {
1.41 sakharuk 1218: $currentstring = '\begin{description}';
1.1 sakharuk 1219: }
1220: return $currentstring;
1221: }
1222: sub end_dl {
1223: my ($target,$token) = @_;
1224: my $currentstring = '';
1225: if ($target eq 'web') {
1226: $currentstring = $token->[2];
1227: } elsif ($target eq 'tex') {
1.41 sakharuk 1228: $currentstring = '\end{description}';
1.1 sakharuk 1229: }
1230: return $currentstring;
1231: }
1.35 sakharuk 1232: #-- <dt> tag
1.1 sakharuk 1233: sub start_dt {
1234: my ($target,$token) = @_;
1235: my $currentstring = '';
1236: if ($target eq 'web') {
1237: $currentstring = $token->[4];
1238: } elsif ($target eq 'tex') {
1.41 sakharuk 1239: $currentstring = '\item[';
1.1 sakharuk 1240: }
1241: return $currentstring;
1242: }
1243: sub end_dt {
1244: my ($target,$token) = @_;
1245: my $currentstring = '';
1246: if ($target eq 'web') {
1247: $currentstring = $token->[2];
1248: } elsif ($target eq 'tex') {
1.41 sakharuk 1249: $currentstring = ']';
1.1 sakharuk 1250: }
1251: return $currentstring;
1252: }
1.35 sakharuk 1253: #-- <dd> tag
1.1 sakharuk 1254: sub start_dd {
1255: my ($target,$token) = @_;
1256: my $currentstring = '';
1257: if ($target eq 'web') {
1258: $currentstring = $token->[4];
1259: }
1260: return $currentstring;
1261: }
1262: sub end_dd {
1263: my ($target,$token) = @_;
1264: my $currentstring = '';
1265: if ($target eq 'web') {
1266: $currentstring = $token->[2];
1267: }
1268: return $currentstring;
1269: }
1.35 sakharuk 1270: #-- <table> tag
1.1 sakharuk 1271: sub start_table {
1.50 sakharuk 1272: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1.1 sakharuk 1273: my $currentstring = '';
1274: if ($target eq 'web') {
1275: $currentstring = $token->[4];
1276: } elsif ($target eq 'tex') {
1.53 sakharuk 1277: my $aa = {};
1278: push @Apache::londefdef::table, $aa;
1279: $Apache::londefdef::table[-1]{'row_number'} = -1;
1280: $Apache::londefdef::table[-1]{'output'} = '\begin{tabular} ';
1.50 sakharuk 1281: my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
1282: unless (defined $border) { $border = 0; }
1.51 sakharuk 1283: if ($border) {
1.53 sakharuk 1284: $Apache::londefdef::table[-1]{'hinc'} = '\hline ';
1285: $Apache::londefdef::table[-1]{'vinc'} = '&';
1286: $Apache::londefdef::table[-1]{'vvinc'} = '|';
1.52 sakharuk 1287: } else {
1.53 sakharuk 1288: $Apache::londefdef::table[-1]{'hinc'} = '';
1.69 sakharuk 1289: $Apache::londefdef::table[-1]{'vinc'} = '&';
1.53 sakharuk 1290: $Apache::londefdef::table[-1]{'vvinc'} = '';
1.50 sakharuk 1291: }
1.51 sakharuk 1292: }
1293: return $currentstring;
1294: }
1295: sub end_table {
1296: my ($target,$token) = @_;
1297: my $currentstring = '';
1298: if ($target eq 'web') {
1299: $currentstring = $token->[2];
1300: } elsif ($target eq 'tex') {
1.53 sakharuk 1301: my $inmemory = '';
1.52 sakharuk 1302: my $output = '';
1.53 sakharuk 1303: my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};
1.50 sakharuk 1304: my $in;
1.53 sakharuk 1305: for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {
1306: $header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};
1307: }
1308: $header_of_table .= '}';
1309: for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
1310: $output .= $Apache::londefdef::table[-1]{'rowdata'}[$in];
1.52 sakharuk 1311: chop $output;
1312: $output .= ' \\\\ ';
1.50 sakharuk 1313: }
1.71 sakharuk 1314: my @length = split(/,/,$Apache::londefdef::table[-1]{'length'});
1315: my $how_many_columns = $#length+1;
1316: my $parboxlength = '(\textwidth';
1317: for (my $io=0; $io<=$#length;$io++) {
1318: if ($length[$io] ne '') {
1319: $parboxlength .= ' - '.$length[$io].' ';
1320: }
1321: }
1322: $parboxlength .= ')/'.$how_many_columns.' - 7 mm';
1323: $output =~ s/\\parbox{}/\\parbox{$parboxlength}/g;
1.70 sakharuk 1324: $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
1.53 sakharuk 1325: if ($#Apache::londefdef::table > 0) {
1326: $inmemory = $Apache::londefdef::table[-1]{'output'};
1327: pop @Apache::londefdef::table;
1328: $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory;
1329: } else {
1330: $currentstring = $Apache::londefdef::table[-1]{'output'};
1331: $currentstring =~ s/\\\\\s+\\\\/\\\\/g;
1332: pop @Apache::londefdef::table;
1333: }
1.51 sakharuk 1334: }
1335: return $currentstring;
1336: }
1337: #-- <tr> tag
1338: sub start_tr {
1339: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1340: my $currentstring = '';
1341: if ($target eq 'web') {
1342: $currentstring = $token->[4];
1343: } elsif ($target eq 'tex') {
1.53 sakharuk 1344: $Apache::londefdef::table[-1]{'row_number'}++;
1345: my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
1346: if ($alignchar ne '') {
1347: push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;
1.51 sakharuk 1348: } else {
1.69 sakharuk 1349: push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l';
1.51 sakharuk 1350: }
1.53 sakharuk 1351: push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
1352: $Apache::londefdef::table[-1]{'counter_columns'} = -1;
1.71 sakharuk 1353: $Apache::londefdef::table[-1]{'length'} = ''; #just added
1.52 sakharuk 1354:
1.1 sakharuk 1355: }
1356: return $currentstring;
1.51 sakharuk 1357: }
1358: sub end_tr {
1359: my ($target,$token) = @_;
1360: my $currentstring = '';
1361: if ($target eq 'web') {
1362: $currentstring = $token->[2];
1363: } elsif ($target eq 'tex') {
1.53 sakharuk 1364: # $currentstring .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW ';
1.51 sakharuk 1365: }
1366: return $currentstring;
1.1 sakharuk 1367: }
1.51 sakharuk 1368: #-- <td> tag
1369: sub start_td {
1370: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1371: my $currentstring = '';
1372: if ($target eq 'web') {
1373: $currentstring = $token->[4];
1374: } elsif ($target eq 'tex') {
1375: my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
1376: if ($what_to_push eq '') {
1.53 sakharuk 1377: $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
1.51 sakharuk 1378: }
1.53 sakharuk 1379: push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
1380: $Apache::londefdef::table[-1]{'counter_columns'}++;
1.52 sakharuk 1381: &Apache::lonxml::startredirection();
1382: ;
1.51 sakharuk 1383: }
1384: return $currentstring;
1385: }
1386: sub end_td {
1.59 sakharuk 1387: my ($target,$token) = @_;
1388: my $currentstring = '';
1389: if ($target eq 'web') {
1390: $currentstring = $token->[2];
1391: } elsif ($target eq 'tex') {
1392: my $current_row = $Apache::londefdef::table[-1]{'row_number'};
1393: my $data=&Apache::lonxml::endredirection();
1.71 sakharuk 1394: if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm))/) { #just added
1395: $Apache::londefdef::table[-1]{'length'} .= $1.','; #just added
1396: } #just added
1397: @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
1.59 sakharuk 1398: }
1399: return $currentstring;
1400: }
1401: #-- <th> tag
1402: sub start_th {
1403: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1404: my $currentstring = '';
1405: if ($target eq 'web') {
1406: $currentstring = $token->[4];
1407: } elsif ($target eq 'tex') {
1408: my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
1409: if ($what_to_push eq '') {
1410: $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
1411: }
1412: push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
1413: $Apache::londefdef::table[-1]{'counter_columns'}++;
1414: &Apache::lonxml::startredirection();
1415: ;
1416: }
1417: return $currentstring;
1418: }
1419: sub end_th {
1.1 sakharuk 1420: my ($target,$token) = @_;
1421: my $currentstring = '';
1422: if ($target eq 'web') {
1.51 sakharuk 1423: $currentstring = $token->[2];
1424: } elsif ($target eq 'tex') {
1.53 sakharuk 1425: my $current_row = $Apache::londefdef::table[-1]{'row_number'};
1.52 sakharuk 1426: my $data=&Apache::lonxml::endredirection();
1.72 ! sakharuk 1427: if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm))/) { #just added
! 1428: $Apache::londefdef::table[-1]{'length'} .= $1.','; #just added
! 1429: } #just added
! 1430: @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{\textbf{'.$data.'}} '.$Apache::londefdef::table[-1]{'vinc'};
1.44 sakharuk 1431: }
1.1 sakharuk 1432: return $currentstring;
1433: }
1.35 sakharuk 1434: #-- <img> tag
1.10 www 1435: sub start_img {
1.41 sakharuk 1436: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1.44 sakharuk 1437: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1.10 www 1438: $token->[2]->{'src'};
1439: my $currentstring = '';
1.58 sakharuk 1440: my $width_param = '';
1.69 sakharuk 1441: my $height_param = '';
1442: my $scaling = .3;
1.44 sakharuk 1443:
1.42 albertel 1444: if ($target eq 'web') {
1.10 www 1445: $currentstring = $token->[4];
1446: } elsif ($target eq 'tex') {
1.42 albertel 1447: my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
1.54 sakharuk 1448: $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
1.70 sakharuk 1449: my $image = Image::Magick->new;
1450: my $current_figure = $image->Read($src);
1451: $width_param = $image->Get('width') * $scaling;;
1452: $height_param = $image->Get('height') * $scaling;;
1453: undef $image;
1.62 sakharuk 1454: my $epssrc = $src;
1.69 sakharuk 1455: $epssrc =~ s/(\.gif|\.jpg)$/\.eps/i;
1.62 sakharuk 1456: if (not -e $epssrc) {
1457: my $localfile = $epssrc;
1458: $localfile =~ s/.*(\/res)/$1/;
1459: my $file;
1460: my $path;
1461: if ($localfile =~ m!(.*)/([^/]*)$!) {
1462: $file = $2;
1463: $path = $1.'/';
1464: }
1465: my $signal_eps = 0;
1466: my @content_directory = &Apache::lonnet::dirlist($path);
1467: for (my $iy=0;$iy<=$#content_directory;$iy++) {
1468: my @tempo_array = split(/&/,$content_directory[$iy]);
1469: $content_directory[$iy] = $tempo_array[0];
1470: if ($file eq $tempo_array[0]) {
1471: $signal_eps = 1;
1472: last;
1473: }
1474: }
1475: if ($signal_eps) {
1476: my $eps_file = &Apache::lonnet::getfile($localfile);
1477: } else {
1478: $localfile = $src;
1479: $localfile =~ s/.*(\/res)/$1/;
1.69 sakharuk 1480: my $as = &Apache::lonnet::getfile($src);
1.62 sakharuk 1481: }
1482: }
1.42 albertel 1483: my $file;
1.55 sakharuk 1484: my $path;
1485: if ($src =~ m!(.*)/([^/]*)$!) {
1486: $file = $2;
1.57 sakharuk 1487: $path = $1.'/';
1.55 sakharuk 1488: }
1.57 sakharuk 1489: my $newsrc = $src;
1.63 sakharuk 1490: $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;
1.69 sakharuk 1491: $file=~s/(\.gif|\.jpg)$/\.eps/i;
1492: #do we have any specified size of the picture?
1493: my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
1494: my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
1495: my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
1496: if ($TeXwidth ne '') {
1497: $width_param = $TeXwidth;
1498: } elsif ($TeXheight ne '') {
1499: $width_param = $TeXheight/$height_param*$width_param;
1500: } elsif ($width ne '') {
1501: $width_param = $width*$scaling;
1502: }
1503: #where can we find the picture?
1.57 sakharuk 1504: if (-e $newsrc) {
1505: if ($path) {
1.69 sakharuk 1506: $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
1.57 sakharuk 1507: }
1.42 albertel 1508: } else {
1.57 sakharuk 1509: my $temp_file;
1.64 sakharuk 1510: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
1.57 sakharuk 1511: $temp_file = Apache::File->new('>>'.$filename);
1512: print $temp_file "$src\n";
1.69 sakharuk 1513: $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
1.42 albertel 1514: }
1515: }
1516: return $currentstring;
1.10 www 1517: }
1518: sub end_img {
1519: my ($target,$token) = @_;
1520: my $currentstring = '';
1521: if ($target eq 'web') {
1.44 sakharuk 1522: $currentstring = $token->[2];
1.10 www 1523: } elsif ($target eq 'tex') {
1.44 sakharuk 1524: $currentstring = '';
1525: }
1.10 www 1526: return $currentstring;
1527: }
1.35 sakharuk 1528: #-- <applet> tag
1.10 www 1529:
1530: sub start_applet {
1531: my ($target,$token) = @_;
1532: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1533: $token->[2]->{'code'};
1.44 sakharuk 1534: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1.10 www 1535: $token->[2]->{'archive'};
1536: my $currentstring = '';
1537: if ($target eq 'web') {
1.44 sakharuk 1538: $currentstring = $token->[4];
1.10 www 1539: } elsif ($target eq 'tex') {
1.44 sakharuk 1540: $currentstring = " \\begin{figure} ";
1.10 www 1541: }
1542: return $currentstring;
1543: }
1.44 sakharuk 1544: sub end_applet {
1545: my ($target,$token) = @_;
1546: my $currentstring = '';
1547: if ($target eq 'web') {
1548: $currentstring = $token->[2];
1549: } elsif ($target eq 'tex') {
1550: $currentstring = " \\end{figure}";
1551: }
1552: return $currentstring;
1553: }
1.10 www 1554:
1.35 sakharuk 1555: #-- <embed> tag
1.10 www 1556:
1.45 sakharuk 1557: sub start_embed {
1.44 sakharuk 1558: my ($target,$token) = @_;
1559: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1560: $token->[2]->{'src'};
1561: my $currentstring = '';
1562: if ($target eq 'web') {
1563: $currentstring = $token->[4];
1564: } elsif ($target eq 'tex') {
1565: $currentstring = " \\begin{figure} ";
1566: }
1567: return $currentstring;
1568: }
1.10 www 1569: sub end_embed {
1570: my ($target,$token) = @_;
1571: my $currentstring = '';
1572: if ($target eq 'web') {
1573: $currentstring = $token->[2];
1574: } elsif ($target eq 'tex') {
1575: $currentstring = " \\end{figure}";
1576: }
1577: return $currentstring;
1578: }
1579:
1.35 sakharuk 1580: #-- <param> tag
1.10 www 1581:
1.11 www 1582: sub start_param {
1.10 www 1583: my ($target,$token) = @_;
1584: if ($token->[2]->{'name'} eq 'cabbase') {
1585: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1586: $token->[2]->{'value'};
1587: }
1.20 www 1588: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1.10 www 1589: $token->[2]->{'src'};
1590: my $currentstring = '';
1591: if ($target eq 'web') {
1592: $currentstring = $token->[4];
1593: } elsif ($target eq 'tex') {
1594: $currentstring = " \\begin{figure} ";
1595: }
1596: return $currentstring;
1597: }
1.11 www 1598: sub end_param {
1.10 www 1599: my ($target,$token) = @_;
1600: my $currentstring = '';
1601: if ($target eq 'web') {
1602: $currentstring = $token->[2];
1603: } elsif ($target eq 'tex') {
1604: $currentstring = " \\end{figure}";
1605: }
1606: return $currentstring;
1607: }
1608:
1.35 sakharuk 1609: #-- <allow> tag
1.10 www 1610:
1611: sub start_allow {
1612: my ($target,$token) = @_;
1613:
1.20 www 1614: $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
1.10 www 1615: $token->[2]->{'src'};
1616:
1617: return '';
1618: }
1619: sub end_allow {
1620: return '';
1621: }
1.35 sakharuk 1622: #-- Frames
1.31 albertel 1623: sub start_frameset {
1624: my ($target,$token) = @_;
1625: my $currentstring = '';
1626: if ($target eq 'web') {
1627: if (!$Apache::lonxml::registered) {
1.47 matthew 1628: $currentstring.='<head>'.
1629: &Apache::lonxml::registerurl(undef,$target).'</head>';
1.31 albertel 1630: }
1631: $currentstring .= $token->[4];
1632: }
1633: return $currentstring;
1634: }
1635: sub end_frameset {
1636: my ($target,$token) = @_;
1637: my $currentstring = '';
1638: if ($target eq 'web') {
1639: $currentstring = $token->[2];
1640: }
1641: return $currentstring;
1.41 sakharuk 1642: }
1643: #-- <pre>
1644: sub start_pre {
1645: my ($target,$token) = @_;
1646: my $currentstring = '';
1647: if ($target eq 'web') {
1648: $currentstring .= $token->[4];
1649: } elsif ($target eq 'tex') {
1650: $currentstring .= '\begin{verbatim}';
1651: }
1652: return $currentstring;
1653: }
1654: sub end_pre {
1655: my ($target,$token) = @_;
1656: my $currentstring = '';
1657: if ($target eq 'web') {
1658: $currentstring .= $token->[2];
1659: } elsif ($target eq 'tex') {
1660: $currentstring .= '\end{verbatim}';
1.44 sakharuk 1661: }
1662: return $currentstring;
1663: }
1664: #-- <insert>
1665: sub start_insert {
1.46 sakharuk 1666: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1.44 sakharuk 1667: my $currentstring = '';
1668: if ($target eq 'web') {
1.46 sakharuk 1669: my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);
1670: $currentstring .= '<b>'.$display.'</b>';;
1.44 sakharuk 1671: }
1672: return $currentstring;
1673: }
1674: sub end_insert {
1.48 sakharuk 1675: my ($target,$token) = @_;
1676: my $currentstring = '';
1677: if ($target eq 'web') {
1678: $currentstring .= '';
1679: }
1680: return $currentstring;
1681: }
1682: #-- <externallink>
1683: sub start_externallink {
1684: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1685: my $currentstring = '';
1686: if ($target eq 'web') {
1687: my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);
1688: $currentstring .= '<b>'.$display.'</b>';;
1689: }
1690: return $currentstring;
1691: }
1692: sub end_externallink {
1.44 sakharuk 1693: my ($target,$token) = @_;
1694: my $currentstring = '';
1695: if ($target eq 'web') {
1696: $currentstring .= '';
1.65 sakharuk 1697: }
1698: return $currentstring;
1699: }
1700: #-- <blankspace heigth="">
1701: sub start_blankspace {
1702: my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
1703: my $currentstring = '';
1704: if ($target eq 'tex') {
1705: my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval);
1706: $currentstring .= '\vskip '.$howmuch.' ';
1707: }
1708: return $currentstring;
1709: }
1710: sub end_blankspace {
1711: my ($target,$token) = @_;
1712: my $currentstring = '';
1713: if ($target eq 'tex') {
1714: $currentstring .= '';
1715: }
1716: return $currentstring;
1717: }
1.66 sakharuk 1718:
1.1 sakharuk 1719: 1;
1720: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to londefdef.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml