Annotation of loncom/xml/londefdef.pm, revision 1.7

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>