[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.22

version 1.1, 2000/06/19 15:52:29 version 1.22, 2000/10/02 22:19:19
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 Opcode;
 use Apache::lontexconvert;  
   
   
 #=======================================================   Main subroutine: xmlparse    sub register {
     my $space;
     my @taglist;
     my $temptag;
     ($space,@taglist) = @_;
     foreach $temptag (@taglist) {
       $Apache::lonxml::alltags{$temptag}=$space;
     }
   }
                                        
   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,$safeinit,%style_for_target) = @_;
     my $pars = HTML::TokeParser->new(\$content_file_string);   my @pars = ();
     my $currentstring = '';   push (@pars,HTML::TokeParser->new(\$content_file_string));
     my $finaloutput = '';    my $currentstring = '';
     my $newarg = '';   my $finaloutput = ''; 
     my $tempostring = '';   my $newarg = '';
     my $tempocont = '';   my $result;
     my $safeeval = new Safe;   my $safeeval = new Safe;
    $safeeval->permit("entereval");
 #------------------------- Redefinition of the target in the case of compound target   $safeeval->permit(":base_math");
     ($target, my @tenta) = split('&&',$target);   $safeeval->deny(":base_io");
 #------------------------------ Stack definition (in stack we have all current tags)  #need to inspect this class of ops
   # $safeeval->deny(":base_orig");
     my @stack = ();    $safeinit .= ';$external::target='.$target.';';
     my @parstack = ();   &Apache::run::run($safeinit,$safeeval);
   #-------------------- Redefinition of the target in the case of compound target
 #------------------------------------------ Parse input string (content_file_string)  
     ($target, my @tenta) = split('&&',$target);
     my $token;  
    my @stack = (); 
     while ($token = $pars->get_token) {   my @parstack = ();
   if ($token->[0] eq 'T') {   &initdepth;
     $finaloutput .= $token->[1];   my $token;
             $tempocont .= $token->[1];   while ( $#pars > -1 ) {
  } elsif ($token->[0] eq 'S') {     while ($token = $pars[$#pars]->get_token) {
 #------------------------------------------------------------------ add tag to stack           if ($token->[0] eq 'T') {
                push (@stack,$token->[1]);         $result=$token->[1];
 #---------------------------------------------- add parameters list to another stack  #       $finaloutput .= &Apache::run::evaluate($token->[1],$safeeval,'');
        map {$tempostring .= "$_=$token->[2]->{$_},"} @{$token->[3]};       } elsif ($token->[0] eq 'S') {
                push (@parstack,$tempostring);         # add tag to stack    
                $tempostring = '';         push (@stack,$token->[1]);
                $tempocont = '';          # add parameters list to another stack
          push (@parstack,&parstring($token));
                if (exists $style_for_target{$token->[1]}) {          &increasedepth($token);       
          if (exists $style_for_target{$token->[1]}) {
 #--------------------------------------------------------- use style file definition   $finaloutput .= &recurse($style_for_target{$token->[1]},
     $target,$safeeval,\%style_for_target,
                    $newarg = $style_for_target{$token->[1]};    @parstack);
          } else {
                    if (index($newarg,'script') != -1 ) {   $result = &callsub("start_$token->[1]", $target, $token,\@parstack,
                     my $pat = HTML::TokeParser->new(\$newarg);         \@pars, $safeeval, \%style_for_target);
                     my $tokenpat;         }              
                     my $partstring = '';       } elsif ($token->[0] eq 'E')  {
                     my $oustring = '';         #clear out any tags that didn't end
                     my $outputstring;         while ($token->[1] ne $stack[$#stack] 
         && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}
                     while  ($tokenpat = $pat->get_token) {         
  if ($tokenpat->[0] eq 'T') {         if (exists $style_for_target{'/'."$token->[1]"}) {
     $oustring .= $tokenpat->[1];   $finaloutput .= &recurse($style_for_target{'/'."$token->[1]"},
  } elsif ($tokenpat->[0] eq 'S') {    $target,$safeeval,\%style_for_target,
                             if ($tokenpat->[1] eq 'script') {    @parstack);
                                while  ($tokenpat = $pat->get_token and $tokenpat->[1] ne 'script') {         } else {
                                     if ($tokenpat->[0] eq 'S')  {   $result = &callsub("end_$token->[1]", $target, $token, \@parstack,
  $partstring .=  $tokenpat->[4];         \@pars,$safeeval, \%style_for_target);
     } elsif ($tokenpat->[0] eq 'T') {         }
                                         $partstring .=  $tokenpat->[1];       }
     } elsif ($tokenpat->[0] eq 'E') {       if ($result ne "" ) {
                                         $partstring .=  $tokenpat->[2];         if ( $#parstack > -1 ) { 
                                     }   $finaloutput .= &Apache::run::evaluate($result,$safeeval,
        }   $parstack[$#parstack]);
                } else {
                                 map {$partstring =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]};   $finaloutput .= &Apache::run::evaluate($result,$safeeval,'');
                                         }
                                 &run($partstring,$safeeval);         $result = '';
                                 $partstring = '';       }
     } elsif ($tokenpat->[1] eq 'evaluate') {              if ($token->[0] eq 'E') { pop @stack;pop @parstack;&decreasedepth($token);}
  $outputstring = &evaluate($tokenpat->[2]{expression},$safeeval);     }
                                    $oustring .=  $outputstring;     pop @pars;
     } else {   }
                                    $oustring .= $tokenpat->[4];    return $finaloutput;
     }  }
  } elsif ($tokenpat->[0] eq 'E' and $tokenpat->[1] ne 'evaluate') {  
                              $oustring .= $tokenpat->[1];      sub recurse {
  }    
     }    my @innerstack = (); 
     $newarg =  $oustring;    my @innerparstack = ();
                    } else {    my ($newarg,$target,$safeeval,$style_for_target,@parstack) = @_;
                        map {$newarg =~ s/\$$_/$token->[2]->{$_}/g; } @{$token->[3]};    my @pat = ();
            }    push (@pat,HTML::TokeParser->new(\$newarg));
    $finaloutput .= $newarg;    my $tokenpat;
        } else {    my $partstring = '';
 #----------------------------------------------------- use default definition of tag    my $output='';
                    my $sub="start_$token->[1]";    my $decls='';
              while ( $#pat > -1 ) {
                    {      while  ($tokenpat = $pat[$#pat]->get_token) {
        no strict 'refs';        if ($tokenpat->[0] eq 'T') {
                        if (defined (&$sub)) {   $partstring = $tokenpat->[1];
                          $currentstring = &$sub($target,$token,\@parstack);        } elsif ($tokenpat->[0] eq 'S') {
                          $finaloutput .= $currentstring;   push (@innerstack,$tokenpat->[1]);
                          $currentstring = '';   push (@innerparstack,&parstring($tokenpat));
        } else {   &increasedepth($tokenpat);
    $finaloutput .= $token->[4];   $partstring = &callsub("start_$tokenpat->[1]", 
        }         $target, $tokenpat, \@innerparstack,
                        use strict 'refs';             \@pat, $safeeval, $style_for_target);
    }        } elsif ($tokenpat->[0] eq 'E') {
        }                 #clear out any tags that didn't end
   } elsif ($token->[0] eq 'E')  {   while ($tokenpat->[1] ne $innerstack[$#innerstack] 
                pop @stack;          && ($#innerstack > -1)) {pop @innerstack;pop @innerparstack;
                unless (exists $style_for_target{$token->[1]}) {   &decreasedepth($tokenpat);}
                      my $sub="end_$token->[1]";   $partstring = &callsub("end_$tokenpat->[1]",
                        {         $target, $tokenpat, \@innerparstack,
          no strict 'refs';         \@pat, $safeeval, $style_for_target);
                            if (defined (&$sub)) {        }
      $currentstring = &$sub($target,$token,\@parstack);        #pass both the variable to the style tag, and the tag we 
                              $finaloutput .= $currentstring;        #are processing inside the <definedtag>
                              $currentstring = '';        if ( $partstring ne "" ) {
            } else {   if ( $#parstack > -1 ) { 
                              $finaloutput .= $token->[4];    if ( $#innerparstack > -1 ) { 
            }      $decls= $parstack[$#parstack].$innerparstack[$#innerparstack];
  use strict 'refs';    } else {
                }      $decls= $parstack[$#parstack];
        }    }
 #------------------------------------------------------- end tag from the style file   } else {
                if (exists $style_for_target{'/'."$token->[1]"}) {    if ( $#innerparstack > -1 ) { 
                    $newarg = $style_for_target{'/'."$token->[1]"};      $decls=$innerparstack[$#innerparstack];
                    my @very_temp = split(',',@parstack[$#parstack]);    } else {
                    map {my @ret= split('=',$_); $newarg =~ s/\$$ret[0]/$ret[1]/g; } @very_temp;      $decls='';
    $finaloutput .= $newarg;     }
        }  
                pop @parstack;  
  }   }
    $output .= &Apache::run::evaluate($partstring,$safeeval,$decls);
    $partstring = '';
         }
         if ($tokenpat->[0] eq 'E') { pop @innerstack;pop @innerparstack;
    &decreasedepth($tokenpat);}
     }      }
     return $finaloutput;      pop @pat;
     }
     return $output;
 }  }
   
   sub callsub {
     my ($sub,$target,$token,$parstack,$parser,$safeeval,$style)=@_;
     my $currentstring='';
     {
       no strict 'refs';
       if (my $space=$Apache::lonxml::alltags{$token->[1]}) {
         &Apache::lonxml::debug("Calling sub $sub in $space<br>\n");
         $sub="$space\:\:$sub";
         $Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter);
         $currentstring = &$sub($target,$token,$parstack,$parser,
        $safeeval,$style);
       } else {
         &Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n");
         if (defined($token->[4])) {
    $currentstring = $token->[4];
         } else {
    $currentstring = $token->[2];
         }
       }
       use strict 'refs';
     }
     return $currentstring;
   }
   
 #================================================================== style subroutine   sub initdepth {
     @Apache::lonxml::depthcounter=();
 sub styleparser {    $Apache::lonxml::depth=-1;
     $Apache::lonxml::olddepth=-1;
   }
   
     my ($target,$content_style_string) = @_;  sub increasedepth {
     my ($token) = @_;
     if ($Apache::lonxml::depth<$Apache::lonxml::olddepth-1) {
       $#Apache::lonxml::depthcounter--;
       $Apache::lonxml::olddepth=$Apache::lonxml::depth;
     }
     $Apache::lonxml::depth++;
   #  print "<br>s $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1]<br>\n";
     $Apache::lonxml::depthcounter[$Apache::lonxml::depth]++;
     if ($Apache::lonxml::depthcounter[$Apache::lonxml::depth]==1) {
       $Apache::lonxml::olddepth=$Apache::lonxml::depth;
     }
   }
   
 #------------------------------------------------ target redefinition (if necessary)   sub decreasedepth {
         my ($token) = @_;
     my @target_string = '';    $Apache::lonxml::depth--;
     my $element;  #  print "<br>e $Apache::lonxml::depth : $Apache::lonxml::olddepth : $token->[1]<br>\n";
      }
     ($element,@target_string) = split ('&&',$target);  
   
      map {$content_style_string =~ s/\<(.*)$_\>/\<$1$element\>/g; } @target_string;  
      
     $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 = '';           
   
       }  sub get_all_text {
     
     my %style_for_target = @value_style;  
      
 #-------------------------------------------------------------------- check printing  
 #   while (($current_key,$current_value) = each %style_for_target) {  
 #       print "$current_key => $current_value\n";  
 #   }  
   
     return %style_for_target;   my($tag,$pars)= @_;
      my $depth=0;
    my $token;
    my $result='';
    while (($depth >=0) && ($token = $pars->get_token)) {
      if ($token->[0] eq 'T') {
        $result.=$token->[1];
      } elsif ($token->[0] eq 'S') {
        if ($token->[1] eq $tag) { $depth++; }
        $result.=$token->[4];
      } elsif ($token->[0] eq 'E')  {
        if ($token->[1] eq $tag) { $depth--; }
        #skip sending back the last end tag
        if ($depth > -1) { $result.=$token->[2]; }
      }
    }
    return $result
 }  }
   
   
   sub parstring {
     my ($token) = @_;
     my $temp='';
     map {
       if ($_=~/\w+/) {
         $temp .= "my \$$_=\"$token->[2]->{$_}\";"
       }
     } @{$token->[3]};
     return $temp;
   }
   
 #=============================================================== Subroutine definition  $Apache::lonxml::debug=0;
 #--------------------------------------------------------------------------------- Run   sub debug {
         sub evaluate {    if ($Apache::lonxml::debug eq 1) {
     my ($expression,$safeeval) = @_;      print "DEBUG:".$_[0]."<br>\n";
             return $safeeval->reval($expression);    }
         }  }
   sub error {
         sub run {    if ($Apache::lonxml::debug eq 1) {
     my ($code,$safeeval) = @_;      print "ERROR:".$_[0]."<br>\n";
             $safeeval->reval($code);    }
         }  }
   sub warning {
 #===================================================================== TAG SUBROUTINES    if ($Apache::lonxml::debug eq 1) {
 #----------------------------------------------------------------------------- <m> tag      print "WARNING:".$_[0]."<br>\n";
         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.22

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