[BACK]Return to lonxml.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.1 and 1.9

version 1.1, 2000/06/19 15:52:29 version 1.9, 2000/07/05 18:04:45
Line 1 Line 1
 package Apache::lonxml;  # The LearningOnline Network with CAPA
   # XML Parser Module 
   #
   # last modified 06/26/00 by Alexander Sakharuk
   
   package Apache::lonxml; 
   
 use strict;  use strict;
 use HTML::TokeParser;  use HTML::TokeParser;
 use Safe;  use Safe;
 use Apache::Constants qw(:common);  
 use Apache::lontexconvert;  
   
   sub register {
     my $space;
     my @taglist;
     my $temptag;
     ($space,@taglist) = @_;
     foreach $temptag (@taglist) {
       $Apache::lonxml::alltags{$temptag}=$space;
     }
   }
   
 #=======================================================   Main subroutine: xmlparse    use Apache::style;
   use Apache::lontexconvert;
   use Apache::run;
   use Apache::londefdef;
   use Apache::scripttag;
   #==================================================   Main subroutine: xmlparse  
   
 sub xmlparse {  sub xmlparse {
   
     my ($target,$content_file_string,%style_for_target) = @_;   my ($target,$content_file_string,%style_for_target) = @_;
     my $pars = HTML::TokeParser->new(\$content_file_string);   my $pars = HTML::TokeParser->new(\$content_file_string);
     my $currentstring = '';   my $currentstring = '';
     my $finaloutput = '';    my $finaloutput = ''; 
     my $newarg = '';   my $newarg = '';
     my $tempostring = '';   my $safeeval = new Safe;
     my $tempocont = '';   $safeeval->permit("entereval");
     my $safeeval = new Safe;  #-------------------- Redefinition of the target in the case of compound target
   
 #------------------------- Redefinition of the target in the case of compound target  
     ($target, my @tenta) = split('&&',$target);  
 #------------------------------ Stack definition (in stack we have all current tags)  
   
     my @stack = ();   
     my @parstack = ();  
   
 #------------------------------------------ Parse input string (content_file_string)  
    
     my $token;  
   
     while ($token = $pars->get_token) {  
   if ($token->[0] eq 'T') {  
     $finaloutput .= $token->[1];  
             $tempocont .= $token->[1];  
  } elsif ($token->[0] eq 'S') {  
 #------------------------------------------------------------------ add tag to stack      
                push (@stack,$token->[1]);  
 #---------------------------------------------- add parameters list to another stack  
        map {$tempostring .= "$_=$token->[2]->{$_},"} @{$token->[3]};  
                push (@parstack,$tempostring);  
                $tempostring = '';  
                $tempocont = '';   
   
                if (exists $style_for_target{$token->[1]}) {    ($target, my @tenta) = split('&&',$target);
   
 #--------------------------------------------------------- use style file definition  #------------------------- Stack definition (in stack we have all current tags)
   
                    $newarg = $style_for_target{$token->[1]};   my @stack = (); 
    my @parstack = ();
   
                    if (index($newarg,'script') != -1 ) {  #------------------------------------- Parse input string (content_file_string)
                     my $pat = HTML::TokeParser->new(\$newarg);   
                     my $tokenpat;   my $token;
                     my $partstring = '';   
                     my $oustring = '';   while ($token = $pars->get_token) {
                     my $outputstring;     if ($token->[0] eq 'T') {
        $finaloutput .= &Apache::run::evaluate($token->[1],$safeeval,'');
                     while  ($tokenpat = $pat->get_token) {     } elsif ($token->[0] eq 'S') {
  if ($tokenpat->[0] eq 'T') {       # add tag to stack    
     $oustring .= $tokenpat->[1];       push (@stack,$token->[1]);
  } elsif ($tokenpat->[0] eq 'S') {       # add parameters list to another stack
                             if ($tokenpat->[1] eq 'script') {       push (@parstack,&parstring($token));
                                while  ($tokenpat = $pat->get_token and $tokenpat->[1] ne 'script') {       
                                     if ($tokenpat->[0] eq 'S')  {       if (exists $style_for_target{$token->[1]}) {
  $partstring .=  $tokenpat->[4];         #basically recurse, but we never got more than one level down so just 
     } elsif ($tokenpat->[0] eq 'T') {         #create the new context here
                                         $partstring .=  $tokenpat->[1];         my @innerstack = (); 
     } elsif ($tokenpat->[0] eq 'E') {         my @innerparstack = ();
                                         $partstring .=  $tokenpat->[2];         # use style file definition
                                     }         $newarg = $style_for_target{$token->[1]};       
        }         my $pat = HTML::TokeParser->new(\$newarg);
                my $tokenpat = '';
                                 map {$partstring =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]};         my $partstring = '';
                                  
                                 &run($partstring,$safeeval);         while  ($tokenpat = $pat->get_token) {
                                 $partstring = '';   if ($tokenpat->[0] eq 'T') {
     } elsif ($tokenpat->[1] eq 'evaluate') {            $partstring = $tokenpat->[1];
  $outputstring = &evaluate($tokenpat->[2]{expression},$safeeval);   } elsif ($tokenpat->[0] eq 'S') {
                                    $oustring .=  $outputstring;     push (@innerstack,$tokenpat->[1]);
     } else {     push (@innerparstack,&parstring($tokenpat));
                                    $oustring .= $tokenpat->[4];      $partstring = &callsub("start_$tokenpat->[1]", 
     }    $target, $tokenpat, \@innerparstack)
  } elsif ($tokenpat->[0] eq 'E' and $tokenpat->[1] ne 'evaluate') {   } elsif ($tokenpat->[0] eq 'E') {
                              $oustring .= $tokenpat->[1];         #clear out any tags that didn't end
  }     while ($tokenpat->[1] ne $innerstack[$#innerstack] 
     }    && ($#innerstack > 0)) {pop @innerstack;pop @innerparstack;}
     $newarg =  $oustring;     $partstring = &callsub("end_$tokenpat->[1]",
                    } else {    $target, $tokenpat, \@innerparstack)
                        map {$newarg =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]};   }
            }   #pass both the variable to the style tag, and the tag we 
    $finaloutput .= $newarg;   #are processing inside the <definedtag>
        } else {   $finaloutput .= &Apache::run::evaluate($partstring,$safeeval,
 #----------------------------------------------------- use default definition of tag   $parstack[$#parstack].$innerparstack[$#innerparstack]);
                    my $sub="start_$token->[1]";   if ($tokenpat->[0] eq 'E') { pop @innerstack;pop @innerparstack; }
                   }
                    {       } else {
        no strict 'refs';         my $result = &callsub("start_$token->[1]", $target, $token, \@parstack);
                        if (defined (&$sub)) {         $finaloutput .= &Apache::run::evaluate($result,$safeeval,
                          $currentstring = &$sub($target,$token,\@parstack);        $parstack[$#parstack]);
                          $finaloutput .= $currentstring;       }              
                          $currentstring = '';     } elsif ($token->[0] eq 'E')  {
        } else {       #clear out any tags that didn't end
    $finaloutput .= $token->[4];       while ($token->[1] ne $stack[$#stack] 
        }      && ($#stack > 0)) {pop @stack;pop @parstack;}
                        use strict 'refs';      
    }       if (exists $style_for_target{'/'."$token->[1]"}) {
        }                       my @innerstack = (); 
   } elsif ($token->[0] eq 'E')  {         my @innerparstack = ();
                pop @stack;          $newarg = $style_for_target{'/'."$token->[1]"};
                unless (exists $style_for_target{$token->[1]}) {         my $pat = HTML::TokeParser->new(\$newarg);
                      my $sub="end_$token->[1]";         my $tokenpat;
                        {         my $partstring = '';
          no strict 'refs';         
                            if (defined (&$sub)) {         while  ($tokenpat = $pat->get_token) {
      $currentstring = &$sub($target,$token,\@parstack);   if ($tokenpat->[0] eq 'T') {
                              $finaloutput .= $currentstring;     $partstring .= $tokenpat->[1];
                              $currentstring = '';   } elsif ($tokenpat->[0] eq 'S') {
            } else {     push (@innerstack,$tokenpat->[1]);
                              $finaloutput .= $token->[4];     push (@innerparstack,&parstring($tokenpat));
            }     $partstring = &callsub("start_$tokenpat->[1]", 
  use strict 'refs';    $target, $tokenpat, \@innerparstack)
                }   } elsif ($tokenpat->[0] eq 'E') {
        }     #clear out any tags that didn't end
 #------------------------------------------------------- end tag from the style file     while ($tokenpat->[1] ne $innerstack[$#innerstack] 
                if (exists $style_for_target{'/'."$token->[1]"}) {    && ($#innerstack > 0)) {pop @innerstack;pop @innerparstack;}
                    $newarg = $style_for_target{'/'."$token->[1]"};     $partstring = &callsub("end_$tokenpat->[1]",
                    my @very_temp = split(',',@parstack[$#parstack]);    $target, $tokenpat, \@innerparstack)
                    map {my @ret= split('=',$_); $newarg =~ s/\$$ret[0]/$ret[1]/g; } @very_temp;   }
    $finaloutput .= $newarg;    #pass both the variable to the style tag, and the tag we 
        }   #are processing inside the <definedtag>
                pop @parstack;   $finaloutput .= &Apache::run::evaluate($partstring,$safeeval,
  }   $parstack[$#parstack].$innerparstack[$#innerparstack]);
     }   if ($tokenpat->[0] eq 'E') { pop @innerstack;pop @innerparstack; }
     return $finaloutput;         }
        } else {
          my $result = &callsub("start_$token->[1]", $target, $token, \@parstack);
          $finaloutput .= &Apache::run::evaluate($result,$safeeval,
         $parstack[$#parstack]);
        }
        pop @stack; 
        pop @parstack;
      }
    }
    return $finaloutput;
 }  }
   
   sub callsub {
 #================================================================== style subroutine     my ($sub,$target,$token,@parstack)=@_;
     my $currentstring='';
 sub styleparser {    {
       no strict 'refs';
     my ($target,$content_style_string) = @_;      if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
         #print "Calling sub $sub in $space \n";
 #------------------------------------------------ target redefinition (if necessary)         $sub="$space\:\:$sub";
             $currentstring = &$sub($target,$token,\@parstack);
     my @target_string = '';      } else {
     my $element;        #print "NOT Calling sub $sub\n";
            if (defined($token->[4])) {
     ($element,@target_string) = split ('&&',$target);   $currentstring = $token->[4];
         } else {
      map {$content_style_string =~ s/\<(.*)$_\>/\<$1$element\>/g; } @target_string;   $currentstring = $token->[2];
      
     $target = $element;  
      
 #------------------------------------------------- create a table for defined target  
 #---------------------------------------------- from the information from Style File  
   
     my @value_style = ();  
     my $current_key = '';  
     my $current_value = '';  
   
     my $pstyle = HTML::TokeParser->new(\$content_style_string);  
   
     my $stoken;  
   
       while ($stoken = $pstyle->get_token) {  
 #---------------------------------------------------------- start for tag definition  
   if ($stoken->[0] eq 'S' and $stoken->[1] eq 'definetag') {  
 #------------------------------------------------------------------- new key in hash  
      $current_key = $stoken->[2]{name};  
              if ($target eq 'meta') {  
 #-------------------------------------------------- reserved for the metadate output  
   
   
      } else {  
 #-------------------------------------------------------------------- outtext output  
  while ($stoken = $pstyle->get_token and $stoken->[1] ne 'outtext') {  
  }  
  while ($stoken = $pstyle->get_token and $stoken->[0] ne 'S') {  
      $current_value .= $stoken->[1];  
  }  
                  while ($stoken->[1] ne 'definetag') {  
                       if ($stoken->[0] eq 'S' and $stoken->[1] eq $target) {  
   while ($stoken = $pstyle->get_token) {  
                if ($stoken->[1] ne $target) {  
          if ($stoken->[0] eq 'S') {  
            $current_value .= $stoken->[4];  
                  }   
                                  if ($stoken->[0] eq 'E') {  
                                    $current_value .= $stoken->[2];  
                  }   
                                  if ($stoken->[0] eq 'T') {  
                                    $current_value .= $stoken->[1];   
                  }                   
                }  else {        
               last;  
                }  
   }  
       } elsif ($stoken->[0] eq 'S' and $stoken->[1] ne $target) {  
              while ($stoken = $pstyle->get_token and $stoken->[0] ne 'E') {  
              }  
       }  
   
                       while ($stoken = $pstyle->get_token) {  
                          if ($stoken->[0] eq 'T') {  
                              $current_value .= $stoken->[1];  
  }   
                          if ($stoken->[0] eq 'E') {  
    last;  
  }   
                          if ($stoken->[0] eq 'S') {  
    last;  
  }  
       }       
       
  }  
      }  
       
   }      
                     push (@value_style,lc $current_key,$current_value);  
                     $current_key = '';  
                     $current_value = '';           
   
       }        }
         }
     my %style_for_target = @value_style;      use strict 'refs';
        }
 #-------------------------------------------------------------------- check printing    return $currentstring;
 #   while (($current_key,$current_value) = each %style_for_target) {  
 #       print "$current_key => $current_value\n";  
 #   }  
   
     return %style_for_target;  
     
 }  }
   
   sub parstring {
     my ($token) = @_;
 #=============================================================== Subroutine definition    my $temp='';
 #--------------------------------------------------------------------------------- Run     map {$temp .= "my \$$_=\"$token->[2]->{$_}\";"} @{$token->[3]};
         sub evaluate {    return $temp;
     my ($expression,$safeeval) = @_;  }
             return $safeeval->reval($expression);  
         }  
   
         sub run {  
     my ($code,$safeeval) = @_;  
             $safeeval->reval($code);  
         }  
   
 #===================================================================== TAG SUBROUTINES  
 #----------------------------------------------------------------------------- <m> tag  
         sub start_m {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = "\$out = lontexconvert::converted(\$in = '\$'.\"";       
     } elsif ($target eq 'tex') {  
               $currentstring = "\$";  
             }  
    return $currentstring;  
  }  
         sub end_m {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = "\".'\$') ";      
             } elsif ($target eq 'tex') {  
               $currentstring = "\$";  
             }  
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <html> tag      
       sub start_html {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_html {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <head> tag  
       sub start_head {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_head {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <map> tag  
       sub start_map {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_map {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <applet> tag  
       sub start_applet {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_applet {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <select> tag  
       sub start_select {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_select {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <option> tag  
       sub start_option {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_option {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------- <input> tag  
       sub start_input {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_input {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------- <textarea> tag  
       sub start_textarea {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_textarea {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <form> tag  
       sub start_form {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_form {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------- <title> tag  
       sub start_title {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }  
    return $currentstring;  
  }  
         sub end_title {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <meta> tag  
       sub start_meta {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }  
    return $currentstring;  
  }  
         sub end_meta {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <body> tag  
         sub start_body {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{document} ";    
     }   
    return $currentstring;  
  }  
         sub end_body {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{document}";    
     }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <center> tag  
         sub start_center {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{center} ";    
     }   
    return $currentstring;  
  }  
         sub end_center {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{center}";    
     }   
    return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <b> tag  
         sub start_b {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " {\\bf ";    
     }   
    return $currentstring;  
  }  
         sub end_b {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = "}";    
     }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <strong> tag  
         sub start_strong {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " {\\bf ";    
     }   
    return $currentstring;  
  }  
         sub end_strong {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
   
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = "}";    
     }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h1> tag  
         sub start_h1 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\chapter{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h1 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h2> tag  
         sub start_h2 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\section{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h2 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h3> tag  
         sub start_h3 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\subsection{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h3 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h4> tag  
         sub start_h4 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\subsubsection{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h4 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h5> tag  
         sub start_h5 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\paragraph{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h5 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <h6> tag  
         sub start_h6 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\subparagraph{ ";  
     }   
            return $currentstring;  
  }  
         sub end_h6 {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <cite> tag  
         sub start_cite {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\it ";  
     }   
            return $currentstring;  
  }  
         sub end_cite {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <i> tag  
         sub start_i {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\it ";  
     }   
            return $currentstring;  
  }  
         sub end_i {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #----------------------------------------------------------------------- <address> tag  
         sub start_address {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\it ";  
     }   
            return $currentstring;  
  }  
         sub end_address {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <dfn> tag  
         sub start_dfn {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\it ";  
     }   
            return $currentstring;  
  }  
         sub end_dfn {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <tt> tag  
         sub start_tt {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\tt ";  
     }   
            return $currentstring;  
  }  
         sub end_tt {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <kbd> tag  
         sub start_kbd {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\tt ";  
     }   
            return $currentstring;  
  }  
         sub end_kbd {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <code> tag  
         sub start_code {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\tt ";  
     }   
            return $currentstring;  
  }  
         sub end_code {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <em> tag  
         sub start_em {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\emph ";  
     }   
            return $currentstring;  
  }  
         sub end_em {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <q> tag  
         sub start_q {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{ \\emph ";  
     }   
            return $currentstring;  
  }  
         sub end_q {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "}";  
     }   
            return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <p> tag  
         sub start_p {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\par ";  
     }   
            return $currentstring;  
  }  
         sub end_p {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <br> tag  
         sub start_br {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\\\";  
     }   
            return $currentstring;  
  }  
         sub end_br {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     }  
            return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <big> tag  
         sub start_big {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\large ";  
     }   
            return $currentstring;  
  }  
         sub end_big {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #------------------------------------------------------------------------- <small> tag  
         sub start_small {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\footnotesize ";  
     }   
            return $currentstring;  
  }  
         sub end_small {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #---------------------------------------------------------------------- <basefont> tag  
       sub start_basefont {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <font> tag  
          sub start_font {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_font {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }   
 #------------------------------------------------------------------------ <strike> tag  
         sub start_strike {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\underline ";  
     }   
            return $currentstring;  
  }  
         sub end_strike {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <s> tag  
         sub start_s {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\underline ";  
     }   
            return $currentstring;  
  }  
         sub end_s {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <sub> tag  
         sub start_sub {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\$_{ ";  
     }   
            return $currentstring;  
  }  
         sub end_sub {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }\$";  
             }  
            return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <sup> tag  
         sub start_sup {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\$^{ ";  
     }   
            return $currentstring;  
  }  
         sub end_sup {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }\$";  
             }  
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <hr> tag  
         sub start_hr {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "\\hline ";  
     }   
            return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <a> tag  
         sub start_a {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
     }  
            return $currentstring;  
  }  
         sub end_a {  
     my ($target,$token,$stackref) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
                 my  $tempor_var = $stackref->[$#$stackref];  
  if (index($tempor_var,'name') != -1 ) {  
     $tempor_var =~ s/name=([^,]*),/$1/g;  
         $currentstring .= " \\label{$tempor_var}";  
         } elsif (index($tempor_var,'href') != -1 ) {  
     $tempor_var =~ s/href=([^,]*),/$1/g;  
         $currentstring .= " \\ref{$tempor_var}";  
         }  
             }  
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <li> tag  
         sub start_li {  
     my ($target,$token,$stackref) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
                 my  $tempor_var = $stackref->[$#$stackref-1];  
                 if (index($tempor_var,'circle') != -1 ) {  
           $currentstring .= " \\item[o] ";  
         } elsif (index($tempor_var,'square') != -1 ) {  
                $currentstring .= " \\item[$\Box$] ";  
         } else {  
     $currentstring .= " \\item ";  
         }    
     }   
    return $currentstring;  
  }  
         sub end_li {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     }   
    return $currentstring;  
  }  
 #----------------------------------------------------------------------------- <u> tag  
         sub start_u {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[4];  
     } elsif ($target eq 'tex') {  
  $currentstring .= "{\\underline ";  
     }   
            return $currentstring;  
  }  
         sub end_u {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
        $currentstring .= $token->[2];  
     } elsif ($target eq 'tex') {  
         $currentstring .= " }";  
             }  
            return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <ul> tag  
         sub start_ul {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{itemize} ";    
     }   
    return $currentstring;  
  }  
         sub end_ul {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{itemize}";    
     }   
    return $currentstring;  
  }  
 #-------------------------------------------------------------------------- <menu> tag  
         sub start_menu {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{itemize} ";    
     }   
    return $currentstring;  
  }  
         sub end_menu {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{itemize}";    
     }   
    return $currentstring;  
  }  
 #--------------------------------------------------------------------------- <dir> tag  
         sub start_dir {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{itemize} ";    
     }   
    return $currentstring;  
  }  
         sub end_dir {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{itemize}";    
     }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <ol> tag  
         sub start_ol {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{enumerate} ";    
     }   
    return $currentstring;  
  }  
         sub end_ol {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{enumerate}";    
     }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <dl> tag  
         sub start_dl {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{description} ";    
     }   
    return $currentstring;  
  }  
         sub end_dl {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{description}";    
     }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <dt> tag  
         sub start_dt {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = "\\item[ ";    
     }   
    return $currentstring;  
  }  
         sub end_dt {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             } elsif ($target eq 'tex') {  
               $currentstring = "]";    
     }   
    return $currentstring;  
  }  
 #---------------------------------------------------------------------------- <dd> tag  
         sub start_dd {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_dd {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------- <table> tag  
         sub start_table {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\begin{tabular} ";    
     }   
    return $currentstring;  
  }  
         sub end_table {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];       
     } elsif ($target eq 'tex') {  
               $currentstring = " \\end{tabular}";    
     }   
    return $currentstring;  
  }  
   
 1;  1;
 __END__  __END__
Removed from v.1.1  
changed lines
  Added in v.1.9

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