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