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

Diff for /loncom/xml/londefdef.pm between versions 1.69 and 1.79

version 1.69, 2002/07/11 14:40:14 version 1.79, 2002/07/30 14:10:51
Line 48  use Apache::lonnet; Line 48  use Apache::lonnet;
 use strict;  use strict;
 use Apache::lonxml;  use Apache::lonxml;
 use Apache::File();  use Apache::File();
   use Image::Magick;
   
 BEGIN {  BEGIN {
   
Line 73  sub start_m { Line 74  sub start_m {
   my $currentstring = '';    my $currentstring = '';
   if ($target eq 'web') {    if ($target eq 'web') {
     $Apache::lonxml::prevent_entity_encode++;      $Apache::lonxml::prevent_entity_encode++;
     my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);      my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
     $inside ='\\documentstyle{article}'.$inside;      $inside ='\\documentstyle{article}'.$inside;
     &Apache::lonxml::debug("M is starting with:$inside:");      &Apache::lonxml::debug("M is starting with:$inside:");
     my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);      my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
Line 89  sub start_m { Line 90  sub start_m {
     }      }
     #&Apache::lonxml::debug("M is ends with:$currentstring:");      #&Apache::lonxml::debug("M is ends with:$currentstring:");
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
     $currentstring = "";      $currentstring = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
       if ($currentstring=~/\s*\\\\\s*/) {$currentstring = ' \vskip 0 mm ';}
     } else {
       my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
   }    }
   return $currentstring;    return $currentstring;
 }  }
Line 119  sub end_m { Line 123  sub end_m {
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       @Apache::londefdef::table = ();        @Apache::londefdef::table = ();
       $currentstring .= '\documentclass[letterpaper]{article}        $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                                              \newcommand{\keephidden}[1]{}
                                    \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}\usepackage{calc}';                                   \usepackage{epsfig}\usepackage{calc}';
     }      }
Line 834  EDITBUTTON Line 839  EDITBUTTON
  }   }
 #-- <br> tag  #-- <br> tag
         sub start_br {          sub start_br {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\vskip 0 mm';   if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
       $currentstring .= '\vskip 0 mm';
    }
     } elsif ($target eq 'latexsource') {      } elsif ($target eq 'latexsource') {
  $currentstring .= '\\';   $currentstring .= '\\';
     }       } 
Line 948  EDITBUTTON Line 955  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\underline ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 958  EDITBUTTON Line 965  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 969  EDITBUTTON Line 976  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\underline ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 979  EDITBUTTON Line 986  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1032  EDITBUTTON Line 1039  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\\hline ";   $currentstring .= '\vskip 0 mm \noindent\makebox[\textwidth - 8 mm][b]{\hrulefill}';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 1109  EDITBUTTON Line 1116  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\underline ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 1119  EDITBUTTON Line 1126  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1276  EDITBUTTON Line 1283  EDITBUTTON
  my $aa = {};   my $aa = {};
  push @Apache::londefdef::table, $aa;    push @Apache::londefdef::table, $aa; 
  $Apache::londefdef::table[-1]{'row_number'} = -1;   $Apache::londefdef::table[-1]{'row_number'} = -1;
  $Apache::londefdef::table[-1]{'output'} = '\begin{tabular} ';   $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
  my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);   my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
  unless (defined $border) { $border = 0; }   unless (defined $border) { $border = 0; }
  if ($border) {    if ($border) { 
Line 1292  EDITBUTTON Line 1299  EDITBUTTON
    return $currentstring;     return $currentstring;
  }   }
         sub end_table {          sub end_table {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[2];                     $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $inmemory = '';   my $inmemory = '';
  my $output = '';   my $output = '';
                   #construct header of the table
  my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};   my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};
  my $in;   my $in;
  for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {   for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {
     $header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};      $header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};
  }   }
  $header_of_table .= '}';   $header_of_table .= '}';
                   #fill the table
  for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {   for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
     $output .=  $Apache::londefdef::table[-1]{'rowdata'}[$in];      $output .=  $Apache::londefdef::table[-1]{'rowdata'}[$in];
     chop $output;      chop $output;
     $output .= ' \\\\ ';      $output .= ' \\\\ ';
  }   }
  $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}';                  #define the length of the table cells
    my @lengthforoutput = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);
    my $how_many_columns = $#lengthforoutput + 1;
    my $filled_columns = 0;
    foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
       my @length = split(/,/,$tempo_length);
       for (my $ico=0;$ico<$how_many_columns;$ico++) {
    if (not $lengthforoutput[$ico]=~m/\s*0\s*/) {$filled_columns++;}
       }
    }
    my $temp_file;
    my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.tbl";
    if (-e $filename) {
       $temp_file = Apache::File->new($filename); 
       my @tbl_file_content = <$temp_file>;
       my ($one,$two) = split(/,/,$tbl_file_content[0]);
    $how_many_columns+=$one-1;
    $filled_columns+=$two;
    } else {
       $temp_file = Apache::File->new('>>'.$filename); 
    }
    print $temp_file "$how_many_columns,$filled_columns\n";
    foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
       my @length = split(/,/,$tempo_length);
       for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
    $lengthforoutput[$ico] =~ m/(\d*\.?\d*)\s*(\w+)/;
    my $old_value = $1;
    my $old_unit = $2; 
    if ($old_unit eq 'cm') { 
       $old_value = $old_value * 10;
    } elsif ($old_unit eq 'in') { 
       $old_value = $old_value * 25.4;
    } elsif ($old_unit eq 'pt') {
       $old_value = $old_value * 25.4/72.27;
    } elsif ($old_unit eq 'pc') {
       $old_value = $old_value * 25.4/6.022;
    }
    $old_unit = 'mm';
     $length[$ico] =~ m/(\d*\.?\d*)\s*(\w+)/;
    my $new_value = $1;
    my $new_unit = $2;
    if ($new_unit eq 'cm') { 
       $new_value = $new_value * 10;
    } elsif ($old_unit eq 'in') { 
       $new_value = $new_value * 25.4;
    } elsif ($old_unit eq 'pt') {
       $new_value = $new_value * 25.4/72.27;
    } elsif ($old_unit eq 'pc') {
       $new_value = $new_value * 25.4/6.022;
    }
    $new_unit = 'mm';
    if ($old_value < $new_value) {
       $lengthforoutput[$ico] = $new_value.' mm';
    } else {
       $lengthforoutput[$ico] = $old_value.' mm';
    }  
       }
    }
                   my $parboxlength = '(\textwidth';
                   for (my $io=0; $io<=$#lengthforoutput;$io++) {
       $parboxlength .= ' - '.$lengthforoutput[$io].' ';
    }
    $parboxlength .= ')/($GLOBALnumberOFcolumns+1) - 1 mm';
    $output =~ s/\\parbox{}{}/\\parbox{1 mm}{}/g;
    $output =~ s/\\parbox{}{(\\textbf{\w?\.?})}/\\parbox{5 mm}{$1}/g; #for stupid tables with empty columns
    $output =~ s/\\parbox{}/\\parbox{$parboxlength}/g;
                   my ($howmanyatall,$howmanyfilled) = (0,0);
        
    my @tagar = @$tagstack;
    my $signature = 1;
    for (my $ico=0;$ico<$#tagar;$ico++) {
        if ($tagar[$ico] eq 'table') { $signature = 0; }
    }
    if ($signature) {
       my $totalnumber = $how_many_columns-$filled_columns-1;
       $output =~ s/\$GLOBALnumberOFcolumns/$totalnumber/g;
    }
    $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
  if ($#Apache::londefdef::table > 0) {   if ($#Apache::londefdef::table > 0) {
     $inmemory = $Apache::londefdef::table[-1]{'output'};      $inmemory = $Apache::londefdef::table[-1]{'output'};
     pop @Apache::londefdef::table;      pop @Apache::londefdef::table;
Line 1339  EDITBUTTON Line 1425  EDITBUTTON
  }   }
  push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});   push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
  $Apache::londefdef::table[-1]{'counter_columns'} = -1;   $Apache::londefdef::table[-1]{'counter_columns'} = -1;
    $Apache::londefdef::table[-1]{'length'} = ''; 
     }       } 
    return $currentstring;     return $currentstring;
  }           }        
Line 1349  EDITBUTTON Line 1435  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
  $currentstring = $token->[2];        $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
 # $currentstring .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW ';  # $currentstring .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW ';
    push @{ $Apache::londefdef::table[-1]{'lengthrow'} },$Apache::londefdef::table[-1]{'length'};
   
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 1379  EDITBUTTON Line 1467  EDITBUTTON
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $current_row = $Apache::londefdef::table[-1]{'row_number'};   my $current_row = $Apache::londefdef::table[-1]{'row_number'};
  my $data=&Apache::lonxml::endredirection();   my $data=&Apache::lonxml::endredirection();
  @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= $data.' '.$Apache::londefdef::table[-1]{'vinc'};   if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm))/) {                 
                       $Apache::londefdef::table[-1]{'length'} .= $1.',';        
    } else {
       $Apache::londefdef::table[-1]{'length'} .= '0 mm,'; 
                   }                                        
    @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 1409  EDITBUTTON Line 1502  EDITBUTTON
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $current_row = $Apache::londefdef::table[-1]{'row_number'};   my $current_row = $Apache::londefdef::table[-1]{'row_number'};
  my $data=&Apache::lonxml::endredirection();   my $data=&Apache::lonxml::endredirection();
  @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\bf{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};   if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm))/) {                 
                       $Apache::londefdef::table[-1]{'length'} .= $1.',';             
    } else {
       $Apache::londefdef::table[-1]{'length'} .= '0 mm,'; 
                   }                                                           
    @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{\textbf{'.$data.'}} '.$Apache::londefdef::table[-1]{'vinc'};
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 1428  EDITBUTTON Line 1526  EDITBUTTON
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);        my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
               if ($src=~m/\.(gif|GIF)$/) {                my $image = Image::Magick->new;
   my $gif_file = Apache::File->new($src);                my $current_figure = $image->Read($src);
   binmode ($gif_file);                $width_param = $image->Get('width') * $scaling;;
                   my ($buff,$imagesize);        $height_param = $image->Get('height') * $scaling;;
   read ($gif_file,$buff,6);        undef $image;
                   read ($gif_file,$imagesize,4);  
                   my ($xlsb,$xmsb,$ylsb,$ymsb) = split(//,$imagesize);  
                   my $image_width=ord($xlsb)+ord($xmsb)*256;  
                   my $image_height=ord($ylsb)+ord($ymsb)*256;  
   $width_param = $image_width * $scaling; #default value of the picture's width  
   $height_param = $image_height * $scaling; #default value of the picture's height  
        }  
       my $epssrc = $src;        my $epssrc = $src;
       $epssrc =~ s/(\.gif|\.jpg)$/\.eps/i;        $epssrc =~ s/(\.gif|\.jpg)$/\.eps/i;
       if (not -e $epssrc) {        if (not -e $epssrc) {
Removed from v.1.69  
changed lines
  Added in v.1.79

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