1: # The LearningOnline Network with CAPA
2: # Tags Default Definition Module
3: #
4: # last modified 06/26/00 by Alexander Sakharuk
5:
6: package Apache::londefdef;
7:
8: use strict;
9:
10:
11: #===================================================================== TAG SUBROUTINES
12: #----------------------------------------------------------------------------- <m> tag
13: sub start_mfirst {
14: my ($target,$token) = @_;
15: my $currentstring = '';
16: if ($target eq 'web') {
17: $currentstring = "\$out = lontexconvert::converted(\$in = '\\documentstyle{article}'.'\$'.\"";
18: } elsif ($target eq 'tex') {
19: $currentstring = "\$";
20: }
21: return $currentstring;
22: }
23: sub start_m {
24: my ($target,$token) = @_;
25: my $currentstring = '';
26: if ($target eq 'web') {
27: $currentstring = "\$out = lontexconvert::converted(\$in = '\$'.\"";
28: } elsif ($target eq 'tex') {
29: $currentstring = "\$";
30: }
31: return $currentstring;
32: }
33: sub end_m {
34: my ($target,$token) = @_;
35: my $currentstring = '';
36: if ($target eq 'web') {
37: $currentstring = "\".'\$') ";
38: } elsif ($target eq 'tex') {
39: $currentstring = "\$";
40: }
41: return $currentstring;
42: }
43: #-------------------------------------------------------------------------- <html> tag
44: sub start_html {
45: my ($target,$token) = @_;
46: my $currentstring = '';
47: if ($target eq 'web') {
48: $currentstring = $token->[4];
49: }
50: return $currentstring;
51: }
52: sub end_html {
53: my ($target,$token) = @_;
54: my $currentstring = '';
55: if ($target eq 'web') {
56: $currentstring = $token->[2];
57: }
58: return $currentstring;
59: }
60: #-------------------------------------------------------------------------- <head> tag
61: sub start_head {
62: my ($target,$token) = @_;
63: my $currentstring = '';
64: if ($target eq 'web') {
65: $currentstring = $token->[4];
66: }
67: return $currentstring;
68: }
69: sub end_head {
70: my ($target,$token) = @_;
71: my $currentstring = '';
72: if ($target eq 'web') {
73: $currentstring = $token->[2];
74: }
75: return $currentstring;
76: }
77: #--------------------------------------------------------------------------- <map> tag
78: sub start_map {
79: my ($target,$token) = @_;
80: my $currentstring = '';
81: if ($target eq 'web') {
82: $currentstring = $token->[4];
83: }
84: return $currentstring;
85: }
86: sub end_map {
87: my ($target,$token) = @_;
88: my $currentstring = '';
89: if ($target eq 'web') {
90: $currentstring = $token->[2];
91: }
92: return $currentstring;
93: }
94: #------------------------------------------------------------------------ <applet> tag
95: sub start_applet {
96: my ($target,$token) = @_;
97: my $currentstring = '';
98: if ($target eq 'web') {
99: $currentstring = $token->[4];
100: }
101: return $currentstring;
102: }
103: sub end_applet {
104: my ($target,$token) = @_;
105: my $currentstring = '';
106: if ($target eq 'web') {
107: $currentstring = $token->[2];
108: }
109: return $currentstring;
110: }
111: #------------------------------------------------------------------------ <select> tag
112: sub start_select {
113: my ($target,$token) = @_;
114: my $currentstring = '';
115: if ($target eq 'web') {
116: $currentstring = $token->[4];
117: }
118: return $currentstring;
119: }
120: sub end_select {
121: my ($target,$token) = @_;
122: my $currentstring = '';
123: if ($target eq 'web') {
124: $currentstring = $token->[2];
125: }
126: return $currentstring;
127: }
128: #------------------------------------------------------------------------ <option> tag
129: sub start_option {
130: my ($target,$token) = @_;
131: my $currentstring = '';
132: if ($target eq 'web') {
133: $currentstring = $token->[4];
134: }
135: return $currentstring;
136: }
137: sub end_option {
138: my ($target,$token) = @_;
139: my $currentstring = '';
140: if ($target eq 'web') {
141: $currentstring = $token->[2];
142: }
143: return $currentstring;
144: }
145: #------------------------------------------------------------------------- <input> tag
146: sub start_input {
147: my ($target,$token) = @_;
148: my $currentstring = '';
149: if ($target eq 'web') {
150: $currentstring = $token->[4];
151: }
152: return $currentstring;
153: }
154: sub end_input {
155: my ($target,$token) = @_;
156: my $currentstring = '';
157: if ($target eq 'web') {
158: $currentstring = $token->[2];
159: }
160: return $currentstring;
161: }
162: #---------------------------------------------------------------------- <textarea> tag
163: sub start_textarea {
164: my ($target,$token) = @_;
165: my $currentstring = '';
166: if ($target eq 'web') {
167: $currentstring = $token->[4];
168: }
169: return $currentstring;
170: }
171: sub end_textarea {
172: my ($target,$token) = @_;
173: my $currentstring = '';
174: if ($target eq 'web') {
175: $currentstring = $token->[2];
176: }
177: return $currentstring;
178: }
179: #-------------------------------------------------------------------------- <form> tag
180: sub start_form {
181: my ($target,$token) = @_;
182: my $currentstring = '';
183: if ($target eq 'web') {
184: $currentstring = $token->[4];
185: }
186: return $currentstring;
187: }
188: sub end_form {
189: my ($target,$token) = @_;
190: my $currentstring = '';
191: if ($target eq 'web') {
192: $currentstring = $token->[2];
193: }
194: return $currentstring;
195: }
196: #------------------------------------------------------------------------- <title> tag
197: sub start_title {
198: my ($target,$token) = @_;
199: my $currentstring = '';
200: if ($target eq 'web') {
201: $currentstring = $token->[4];
202: }
203: return $currentstring;
204: }
205: sub end_title {
206: my ($target,$token) = @_;
207: my $currentstring = '';
208: if ($target eq 'web') {
209: $currentstring = $token->[2];
210: }
211: return $currentstring;
212: }
213: #-------------------------------------------------------------------------- <meta> tag
214: sub start_meta {
215: my ($target,$token) = @_;
216: my $currentstring = '';
217: if ($target eq 'web') {
218: $currentstring = $token->[4];
219: }
220: return $currentstring;
221: }
222: sub end_meta {
223: my ($target,$token) = @_;
224: my $currentstring = '';
225: if ($target eq 'web') {
226: $currentstring = $token->[2];
227: }
228: return $currentstring;
229: }
230: #-------------------------------------------------------------------------- <body> tag
231: sub start_body {
232: my ($target,$token) = @_;
233: my $currentstring = '';
234: if ($target eq 'web') {
235: $currentstring = $token->[4];
236: } elsif ($target eq 'tex') {
237: $currentstring = " \\begin{document} ";
238: }
239: return $currentstring;
240: }
241: sub end_body {
242: my ($target,$token) = @_;
243: my $currentstring = '';
244: if ($target eq 'web') {
245: $currentstring = $token->[2];
246: } elsif ($target eq 'tex') {
247: $currentstring = " \\end{document}";
248: }
249: return $currentstring;
250: }
251: #------------------------------------------------------------------------ <center> tag
252: sub start_center {
253: my ($target,$token) = @_;
254: my $currentstring = '';
255: if ($target eq 'web') {
256: $currentstring = $token->[4];
257: } elsif ($target eq 'tex') {
258: $currentstring = " \\begin{center} ";
259: }
260: return $currentstring;
261: }
262: sub end_center {
263: my ($target,$token) = @_;
264: my $currentstring = '';
265: if ($target eq 'web') {
266: $currentstring = $token->[2];
267: } elsif ($target eq 'tex') {
268: $currentstring = " \\end{center}";
269: }
270: return $currentstring;
271: }
272: #----------------------------------------------------------------------------- <b> tag
273: sub start_b {
274: my ($target,$token) = @_;
275: my $currentstring = '';
276: if ($target eq 'web') {
277: $currentstring = $token->[4];
278: } elsif ($target eq 'tex') {
279: $currentstring = " {\\bf ";
280: }
281: return $currentstring;
282: }
283: sub end_b {
284: my ($target,$token) = @_;
285: my $currentstring = '';
286: if ($target eq 'web') {
287: $currentstring = $token->[2];
288: } elsif ($target eq 'tex') {
289: $currentstring = "}";
290: }
291: return $currentstring;
292: }
293: #------------------------------------------------------------------------ <strong> tag
294: sub start_strong {
295: my ($target,$token) = @_;
296: my $currentstring = '';
297: if ($target eq 'web') {
298: $currentstring = $token->[4];
299: } elsif ($target eq 'tex') {
300: $currentstring = " {\\bf ";
301: }
302: return $currentstring;
303: }
304: sub end_strong {
305: my ($target,$token) = @_;
306: my $currentstring = '';
307: if ($target eq 'web') {
308:
309: $currentstring = $token->[2];
310: } elsif ($target eq 'tex') {
311: $currentstring = "}";
312: }
313: return $currentstring;
314: }
315: #---------------------------------------------------------------------------- <h1> tag
316: sub start_h1 {
317: my ($target,$token) = @_;
318: my $currentstring = '';
319: if ($target eq 'web') {
320: $currentstring .= $token->[4];
321: } elsif ($target eq 'tex') {
322: $currentstring .= "\\chapter{ ";
323: }
324: return $currentstring;
325: }
326: sub end_h1 {
327: my ($target,$token) = @_;
328: my $currentstring = '';
329: if ($target eq 'web') {
330: $currentstring .= $token->[2];
331: } elsif ($target eq 'tex') {
332: $currentstring .= "}";
333: }
334: return $currentstring;
335: }
336: #---------------------------------------------------------------------------- <h2> tag
337: sub start_h2 {
338: my ($target,$token) = @_;
339: my $currentstring = '';
340: if ($target eq 'web') {
341: $currentstring .= $token->[4];
342: } elsif ($target eq 'tex') {
343: $currentstring .= "\\section{ ";
344: }
345: return $currentstring;
346: }
347: sub end_h2 {
348: my ($target,$token) = @_;
349: my $currentstring = '';
350: if ($target eq 'web') {
351: $currentstring .= $token->[2];
352: } elsif ($target eq 'tex') {
353: $currentstring .= "}";
354: }
355: return $currentstring;
356: }
357: #---------------------------------------------------------------------------- <h3> tag
358: sub start_h3 {
359: my ($target,$token) = @_;
360: my $currentstring = '';
361: if ($target eq 'web') {
362: $currentstring .= $token->[4];
363: } elsif ($target eq 'tex') {
364: $currentstring .= "\\subsection{ ";
365: }
366: return $currentstring;
367: }
368: sub end_h3 {
369: my ($target,$token) = @_;
370: my $currentstring = '';
371: if ($target eq 'web') {
372: $currentstring .= $token->[2];
373: } elsif ($target eq 'tex') {
374: $currentstring .= "}";
375: }
376: return $currentstring;
377: }
378: #---------------------------------------------------------------------------- <h4> tag
379: sub start_h4 {
380: my ($target,$token) = @_;
381: my $currentstring = '';
382: if ($target eq 'web') {
383: $currentstring .= $token->[4];
384: } elsif ($target eq 'tex') {
385: $currentstring .= "\\subsubsection{ ";
386: }
387: return $currentstring;
388: }
389: sub end_h4 {
390: my ($target,$token) = @_;
391: my $currentstring = '';
392: if ($target eq 'web') {
393: $currentstring .= $token->[2];
394: } elsif ($target eq 'tex') {
395: $currentstring .= "}";
396: }
397: return $currentstring;
398: }
399: #---------------------------------------------------------------------------- <h5> tag
400: sub start_h5 {
401: my ($target,$token) = @_;
402: my $currentstring = '';
403: if ($target eq 'web') {
404: $currentstring .= $token->[4];
405: } elsif ($target eq 'tex') {
406: $currentstring .= "\\paragraph{ ";
407: }
408: return $currentstring;
409: }
410: sub end_h5 {
411: my ($target,$token) = @_;
412: my $currentstring = '';
413: if ($target eq 'web') {
414: $currentstring .= $token->[2];
415: } elsif ($target eq 'tex') {
416: $currentstring .= "}";
417: }
418: return $currentstring;
419: }
420: #---------------------------------------------------------------------------- <h6> tag
421: sub start_h6 {
422: my ($target,$token) = @_;
423: my $currentstring = '';
424: if ($target eq 'web') {
425: $currentstring .= $token->[4];
426: } elsif ($target eq 'tex') {
427: $currentstring .= "\\subparagraph{ ";
428: }
429: return $currentstring;
430: }
431: sub end_h6 {
432: my ($target,$token) = @_;
433: my $currentstring = '';
434: if ($target eq 'web') {
435: $currentstring .= $token->[2];
436: } elsif ($target eq 'tex') {
437: $currentstring .= "}";
438: }
439: return $currentstring;
440: }
441: #-------------------------------------------------------------------------- <cite> tag
442: sub start_cite {
443: my ($target,$token) = @_;
444: my $currentstring = '';
445: if ($target eq 'web') {
446: $currentstring .= $token->[4];
447: } elsif ($target eq 'tex') {
448: $currentstring .= "{ \\it ";
449: }
450: return $currentstring;
451: }
452: sub end_cite {
453: my ($target,$token) = @_;
454: my $currentstring = '';
455: if ($target eq 'web') {
456: $currentstring .= $token->[2];
457: } elsif ($target eq 'tex') {
458: $currentstring .= "}";
459: }
460: return $currentstring;
461: }
462: #----------------------------------------------------------------------------- <i> tag
463: sub start_i {
464: my ($target,$token) = @_;
465: my $currentstring = '';
466: if ($target eq 'web') {
467: $currentstring .= $token->[4];
468: } elsif ($target eq 'tex') {
469: $currentstring .= "{ \\it ";
470: }
471: return $currentstring;
472: }
473: sub end_i {
474: my ($target,$token) = @_;
475: my $currentstring = '';
476: if ($target eq 'web') {
477: $currentstring .= $token->[2];
478: } elsif ($target eq 'tex') {
479: $currentstring .= "}";
480: }
481: return $currentstring;
482: }
483: #----------------------------------------------------------------------- <address> tag
484: sub start_address {
485: my ($target,$token) = @_;
486: my $currentstring = '';
487: if ($target eq 'web') {
488: $currentstring .= $token->[4];
489: } elsif ($target eq 'tex') {
490: $currentstring .= "{ \\it ";
491: }
492: return $currentstring;
493: }
494: sub end_address {
495: my ($target,$token) = @_;
496: my $currentstring = '';
497: if ($target eq 'web') {
498: $currentstring .= $token->[2];
499: } elsif ($target eq 'tex') {
500: $currentstring .= "}";
501: }
502: return $currentstring;
503: }
504: #--------------------------------------------------------------------------- <dfn> tag
505: sub start_dfn {
506: my ($target,$token) = @_;
507: my $currentstring = '';
508: if ($target eq 'web') {
509: $currentstring .= $token->[4];
510: } elsif ($target eq 'tex') {
511: $currentstring .= "{ \\it ";
512: }
513: return $currentstring;
514: }
515: sub end_dfn {
516: my ($target,$token) = @_;
517: my $currentstring = '';
518: if ($target eq 'web') {
519: $currentstring .= $token->[2];
520: } elsif ($target eq 'tex') {
521: $currentstring .= "}";
522: }
523: return $currentstring;
524: }
525: #---------------------------------------------------------------------------- <tt> tag
526: sub start_tt {
527: my ($target,$token) = @_;
528: my $currentstring = '';
529: if ($target eq 'web') {
530: $currentstring .= $token->[4];
531: } elsif ($target eq 'tex') {
532: $currentstring .= "{ \\tt ";
533: }
534: return $currentstring;
535: }
536: sub end_tt {
537: my ($target,$token) = @_;
538: my $currentstring = '';
539: if ($target eq 'web') {
540: $currentstring .= $token->[2];
541: } elsif ($target eq 'tex') {
542: $currentstring .= "}";
543: }
544: return $currentstring;
545: }
546: #---------------------------------------------------------------------------- <kbd> tag
547: sub start_kbd {
548: my ($target,$token) = @_;
549: my $currentstring = '';
550: if ($target eq 'web') {
551: $currentstring .= $token->[4];
552: } elsif ($target eq 'tex') {
553: $currentstring .= "{ \\tt ";
554: }
555: return $currentstring;
556: }
557: sub end_kbd {
558: my ($target,$token) = @_;
559: my $currentstring = '';
560: if ($target eq 'web') {
561: $currentstring .= $token->[2];
562: } elsif ($target eq 'tex') {
563: $currentstring .= "}";
564: }
565: return $currentstring;
566: }
567: #-------------------------------------------------------------------------- <code> tag
568: sub start_code {
569: my ($target,$token) = @_;
570: my $currentstring = '';
571: if ($target eq 'web') {
572: $currentstring .= $token->[4];
573: } elsif ($target eq 'tex') {
574: $currentstring .= "{ \\tt ";
575: }
576: return $currentstring;
577: }
578: sub end_code {
579: my ($target,$token) = @_;
580: my $currentstring = '';
581: if ($target eq 'web') {
582: $currentstring .= $token->[2];
583: } elsif ($target eq 'tex') {
584: $currentstring .= "}";
585: }
586: return $currentstring;
587: }
588: #---------------------------------------------------------------------------- <em> tag
589: sub start_em {
590: my ($target,$token) = @_;
591: my $currentstring = '';
592: if ($target eq 'web') {
593: $currentstring .= $token->[4];
594: } elsif ($target eq 'tex') {
595: $currentstring .= "{ \\emph ";
596: }
597: return $currentstring;
598: }
599: sub end_em {
600: my ($target,$token) = @_;
601: my $currentstring = '';
602: if ($target eq 'web') {
603: $currentstring .= $token->[2];
604: } elsif ($target eq 'tex') {
605: $currentstring .= "}";
606: }
607: return $currentstring;
608: }
609: #----------------------------------------------------------------------------- <q> tag
610: sub start_q {
611: my ($target,$token) = @_;
612: my $currentstring = '';
613: if ($target eq 'web') {
614: $currentstring .= $token->[4];
615: } elsif ($target eq 'tex') {
616: $currentstring .= "{ \\emph ";
617: }
618: return $currentstring;
619: }
620: sub end_q {
621: my ($target,$token) = @_;
622: my $currentstring = '';
623: if ($target eq 'web') {
624: $currentstring .= $token->[2];
625: } elsif ($target eq 'tex') {
626: $currentstring .= "}";
627: }
628: return $currentstring;
629: }
630: #----------------------------------------------------------------------------- <p> tag
631: sub start_p {
632: my ($target,$token) = @_;
633: my $currentstring = '';
634: if ($target eq 'web') {
635: $currentstring .= $token->[4];
636: } elsif ($target eq 'tex') {
637: $currentstring .= "{\\par ";
638: }
639: return $currentstring;
640: }
641: sub end_p {
642: my ($target,$token) = @_;
643: my $currentstring = '';
644: if ($target eq 'web') {
645: $currentstring .= $token->[2];
646: } elsif ($target eq 'tex') {
647: $currentstring .= " }";
648: }
649: return $currentstring;
650: }
651: #---------------------------------------------------------------------------- <br> tag
652: sub start_br {
653: my ($target,$token) = @_;
654: my $currentstring = '';
655: if ($target eq 'web') {
656: $currentstring .= $token->[4];
657: } elsif ($target eq 'tex') {
658: $currentstring .= "\\\\";
659: }
660: return $currentstring;
661: }
662: sub end_br {
663: my ($target,$token) = @_;
664: my $currentstring = '';
665: if ($target eq 'web') {
666: $currentstring .= $token->[2];
667: }
668: return $currentstring;
669: }
670: #--------------------------------------------------------------------------- <big> tag
671: sub start_big {
672: my ($target,$token) = @_;
673: my $currentstring = '';
674: if ($target eq 'web') {
675: $currentstring .= $token->[4];
676: } elsif ($target eq 'tex') {
677: $currentstring .= "{\\large ";
678: }
679: return $currentstring;
680: }
681: sub end_big {
682: my ($target,$token) = @_;
683: my $currentstring = '';
684: if ($target eq 'web') {
685: $currentstring .= $token->[2];
686: } elsif ($target eq 'tex') {
687: $currentstring .= " }";
688: }
689: return $currentstring;
690: }
691: #------------------------------------------------------------------------- <small> tag
692: sub start_small {
693: my ($target,$token) = @_;
694: my $currentstring = '';
695: if ($target eq 'web') {
696: $currentstring .= $token->[4];
697: } elsif ($target eq 'tex') {
698: $currentstring .= "{\\footnotesize ";
699: }
700: return $currentstring;
701: }
702: sub end_small {
703: my ($target,$token) = @_;
704: my $currentstring = '';
705: if ($target eq 'web') {
706: $currentstring .= $token->[2];
707: } elsif ($target eq 'tex') {
708: $currentstring .= " }";
709: }
710: return $currentstring;
711: }
712: #---------------------------------------------------------------------- <basefont> tag
713: sub start_basefont {
714: my ($target,$token) = @_;
715: my $currentstring = '';
716: if ($target eq 'web') {
717: $currentstring = $token->[4];
718: }
719: return $currentstring;
720: }
721: #-------------------------------------------------------------------------- <font> tag
722: sub start_font {
723: my ($target,$token) = @_;
724: my $currentstring = '';
725: if ($target eq 'web') {
726: $currentstring = $token->[4];
727: }
728: return $currentstring;
729: }
730: sub end_font {
731: my ($target,$token) = @_;
732: my $currentstring = '';
733: if ($target eq 'web') {
734: $currentstring = $token->[2];
735: }
736: return $currentstring;
737: }
738: #------------------------------------------------------------------------ <strike> tag
739: sub start_strike {
740: my ($target,$token) = @_;
741: my $currentstring = '';
742: if ($target eq 'web') {
743: $currentstring .= $token->[4];
744: } elsif ($target eq 'tex') {
745: $currentstring .= "{\\underline ";
746: }
747: return $currentstring;
748: }
749: sub end_strike {
750: my ($target,$token) = @_;
751: my $currentstring = '';
752: if ($target eq 'web') {
753: $currentstring .= $token->[2];
754: } elsif ($target eq 'tex') {
755: $currentstring .= " }";
756: }
757: return $currentstring;
758: }
759: #----------------------------------------------------------------------------- <s> tag
760: sub start_s {
761: my ($target,$token) = @_;
762: my $currentstring = '';
763: if ($target eq 'web') {
764: $currentstring .= $token->[4];
765: } elsif ($target eq 'tex') {
766: $currentstring .= "{\\underline ";
767: }
768: return $currentstring;
769: }
770: sub end_s {
771: my ($target,$token) = @_;
772: my $currentstring = '';
773: if ($target eq 'web') {
774: $currentstring .= $token->[2];
775: } elsif ($target eq 'tex') {
776: $currentstring .= " }";
777: }
778: return $currentstring;
779: }
780: #--------------------------------------------------------------------------- <sub> tag
781: sub start_sub {
782: my ($target,$token) = @_;
783: my $currentstring = '';
784: if ($target eq 'web') {
785: $currentstring .= $token->[4];
786: } elsif ($target eq 'tex') {
787: $currentstring .= "\$_{ ";
788: }
789: return $currentstring;
790: }
791: sub end_sub {
792: my ($target,$token) = @_;
793: my $currentstring = '';
794: if ($target eq 'web') {
795: $currentstring .= $token->[2];
796: } elsif ($target eq 'tex') {
797: $currentstring .= " }\$";
798: }
799: return $currentstring;
800: }
801: #--------------------------------------------------------------------------- <sup> tag
802: sub start_sup {
803: my ($target,$token) = @_;
804: my $currentstring = '';
805: if ($target eq 'web') {
806: $currentstring .= $token->[4];
807: } elsif ($target eq 'tex') {
808: $currentstring .= "\$^{ ";
809: }
810: return $currentstring;
811: }
812: sub end_sup {
813: my ($target,$token) = @_;
814: my $currentstring = '';
815: if ($target eq 'web') {
816: $currentstring .= $token->[2];
817: } elsif ($target eq 'tex') {
818: $currentstring .= " }\$";
819: }
820: return $currentstring;
821: }
822: #---------------------------------------------------------------------------- <hr> tag
823: sub start_hr {
824: my ($target,$token) = @_;
825: my $currentstring = '';
826: if ($target eq 'web') {
827: $currentstring .= $token->[4];
828: } elsif ($target eq 'tex') {
829: $currentstring .= "\\hline ";
830: }
831: return $currentstring;
832: }
833: #----------------------------------------------------------------------------- <a> tag
834: sub start_a {
835: my ($target,$token) = @_;
836: my $currentstring = '';
837: if ($target eq 'web') {
838: $currentstring .= $token->[4];
839: } elsif ($target eq 'tex') {
840: }
841: return $currentstring;
842: }
843: sub end_a {
844: my ($target,$token,$stackref) = @_;
845: my $currentstring = '';
846: if ($target eq 'web') {
847: $currentstring .= $token->[2];
848: } elsif ($target eq 'tex') {
849: my $tempor_var = $stackref->[$#$stackref];
850: if (index($tempor_var,'name') != -1 ) {
851: $tempor_var =~ s/name=([^,]*),/$1/g;
852: $currentstring .= " \\label{$tempor_var}";
853: } elsif (index($tempor_var,'href') != -1 ) {
854: $tempor_var =~ s/href=([^,]*),/$1/g;
855: $currentstring .= " \\ref{$tempor_var}";
856: }
857: }
858: return $currentstring;
859: }
860: #---------------------------------------------------------------------------- <li> tag
861: sub start_li {
862: my ($target,$token,$stackref) = @_;
863: my $currentstring = '';
864: if ($target eq 'web') {
865: $currentstring = $token->[4];
866: } elsif ($target eq 'tex') {
867: my $tempor_var = $stackref->[$#$stackref-1];
868: if (index($tempor_var,'circle') != -1 ) {
869: $currentstring .= " \\item[o] ";
870: } elsif (index($tempor_var,'square') != -1 ) {
871: $currentstring .= " \\item[$\Box$] ";
872: } else {
873: $currentstring .= " \\item ";
874: }
875: }
876: return $currentstring;
877: }
878: sub end_li {
879: my ($target,$token) = @_;
880: my $currentstring = '';
881: if ($target eq 'web') {
882: $currentstring = $token->[2];
883: }
884: return $currentstring;
885: }
886: #----------------------------------------------------------------------------- <u> tag
887: sub start_u {
888: my ($target,$token) = @_;
889: my $currentstring = '';
890: if ($target eq 'web') {
891: $currentstring .= $token->[4];
892: } elsif ($target eq 'tex') {
893: $currentstring .= "{\\underline ";
894: }
895: return $currentstring;
896: }
897: sub end_u {
898: my ($target,$token) = @_;
899: my $currentstring = '';
900: if ($target eq 'web') {
901: $currentstring .= $token->[2];
902: } elsif ($target eq 'tex') {
903: $currentstring .= " }";
904: }
905: return $currentstring;
906: }
907: #---------------------------------------------------------------------------- <ul> tag
908: sub start_ul {
909: my ($target,$token) = @_;
910: my $currentstring = '';
911: if ($target eq 'web') {
912: $currentstring = $token->[4];
913: } elsif ($target eq 'tex') {
914: $currentstring = " \\begin{itemize} ";
915: }
916: return $currentstring;
917: }
918: sub end_ul {
919: my ($target,$token) = @_;
920: my $currentstring = '';
921: if ($target eq 'web') {
922: $currentstring = $token->[2];
923: } elsif ($target eq 'tex') {
924: $currentstring = " \\end{itemize}";
925: }
926: return $currentstring;
927: }
928: #-------------------------------------------------------------------------- <menu> tag
929: sub start_menu {
930: my ($target,$token) = @_;
931: my $currentstring = '';
932: if ($target eq 'web') {
933: $currentstring = $token->[4];
934: } elsif ($target eq 'tex') {
935: $currentstring = " \\begin{itemize} ";
936: }
937: return $currentstring;
938: }
939: sub end_menu {
940: my ($target,$token) = @_;
941: my $currentstring = '';
942: if ($target eq 'web') {
943: $currentstring = $token->[2];
944: } elsif ($target eq 'tex') {
945: $currentstring = " \\end{itemize}";
946: }
947: return $currentstring;
948: }
949: #--------------------------------------------------------------------------- <dir> tag
950: sub start_dir {
951: my ($target,$token) = @_;
952: my $currentstring = '';
953: if ($target eq 'web') {
954: $currentstring = $token->[4];
955: } elsif ($target eq 'tex') {
956: $currentstring = " \\begin{itemize} ";
957: }
958: return $currentstring;
959: }
960: sub end_dir {
961: my ($target,$token) = @_;
962: my $currentstring = '';
963: if ($target eq 'web') {
964: $currentstring = $token->[2];
965: } elsif ($target eq 'tex') {
966: $currentstring = " \\end{itemize}";
967: }
968: return $currentstring;
969: }
970: #---------------------------------------------------------------------------- <ol> tag
971: sub start_ol {
972: my ($target,$token) = @_;
973: my $currentstring = '';
974: if ($target eq 'web') {
975: $currentstring = $token->[4];
976: } elsif ($target eq 'tex') {
977: $currentstring = " \\begin{enumerate} ";
978: }
979: return $currentstring;
980: }
981: sub end_ol {
982: my ($target,$token) = @_;
983: my $currentstring = '';
984: if ($target eq 'web') {
985: $currentstring = $token->[2];
986: } elsif ($target eq 'tex') {
987: $currentstring = " \\end{enumerate}";
988: }
989: return $currentstring;
990: }
991: #---------------------------------------------------------------------------- <dl> tag
992: sub start_dl {
993: my ($target,$token) = @_;
994: my $currentstring = '';
995: if ($target eq 'web') {
996: $currentstring = $token->[4];
997: } elsif ($target eq 'tex') {
998: $currentstring = " \\begin{description} ";
999: }
1000: return $currentstring;
1001: }
1002: sub end_dl {
1003: my ($target,$token) = @_;
1004: my $currentstring = '';
1005: if ($target eq 'web') {
1006: $currentstring = $token->[2];
1007: } elsif ($target eq 'tex') {
1008: $currentstring = " \\end{description}";
1009: }
1010: return $currentstring;
1011: }
1012: #---------------------------------------------------------------------------- <dt> tag
1013: sub start_dt {
1014: my ($target,$token) = @_;
1015: my $currentstring = '';
1016: if ($target eq 'web') {
1017: $currentstring = $token->[4];
1018: } elsif ($target eq 'tex') {
1019: $currentstring = "\\item[ ";
1020: }
1021: return $currentstring;
1022: }
1023: sub end_dt {
1024: my ($target,$token) = @_;
1025: my $currentstring = '';
1026: if ($target eq 'web') {
1027: $currentstring = $token->[2];
1028: } elsif ($target eq 'tex') {
1029: $currentstring = "]";
1030: }
1031: return $currentstring;
1032: }
1033: #---------------------------------------------------------------------------- <dd> tag
1034: sub start_dd {
1035: my ($target,$token) = @_;
1036: my $currentstring = '';
1037: if ($target eq 'web') {
1038: $currentstring = $token->[4];
1039: }
1040: return $currentstring;
1041: }
1042: sub end_dd {
1043: my ($target,$token) = @_;
1044: my $currentstring = '';
1045: if ($target eq 'web') {
1046: $currentstring = $token->[2];
1047: }
1048: return $currentstring;
1049: }
1050: #------------------------------------------------------------------------- <table> tag
1051: sub start_table {
1052: my ($target,$token) = @_;
1053: my $currentstring = '';
1054: if ($target eq 'web') {
1055: $currentstring = $token->[4];
1056: } elsif ($target eq 'tex') {
1057: $currentstring = " \\begin{tabular} ";
1058: }
1059: return $currentstring;
1060: }
1061: sub end_table {
1062: my ($target,$token) = @_;
1063: my $currentstring = '';
1064: if ($target eq 'web') {
1065: $currentstring = $token->[2];
1066: } elsif ($target eq 'tex') {
1067: $currentstring = " \\end{tabular}";
1068: }
1069: return $currentstring;
1070: }
1071:
1072: 1;
1073: __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