kc3-lang/libjpeg-turbo/doc/html/installdox

• Show log

  Commit

• Hash : 9b28defe
  Author :
  Date : 2011-05-21T14:37:15
  

  Completely refactored the TurboJPEG C API so that it uses pixel formats instead of the clunky pixel size + flags combination to define the pixel size and component order.  tjCompress2() and tjTransform() can also now grow the JPEG buffer as needed, which can allow programs to save memory by not pre-allocating the "worst-case" buffer size calculated by TJBUFSIZE().  Converted API documentation to Doxygen.  There is no legacy code remaining, so the refactored version of the library has been re-licensed under a BSD-style license.
  
  
  git-svn-id: svn+ssh://svn.code.sf.net/p/libjpeg-turbo/code/trunk@616 632fc199-4ca6-4c93-a231-07263d6284db
  

Download

• doc/html/installdox

• #!/usr/bin/perl
  
  %subst = ( );
  $quiet   = 0;
  
  while ( @ARGV ) {
    $_ = shift @ARGV;
    if ( s/^-// ) {
      if ( /^l(.*)/ ) {
        $v = ($1 eq "") ? shift @ARGV : $1;
        ($v =~ /\/$/) || ($v .= "/");
        $_ = $v;
        if ( /(.+)\@(.+)/ ) {
          if ( exists $subst{$1} ) {
            $subst{$1} = $2;
          } else {
            print STDERR "Unknown tag file $1 given with option -l\n";
            &usage();
          }
        } else {
          print STDERR "Argument $_ is invalid for option -l\n";
          &usage();
        }
      }
      elsif ( /^q/ ) {
        $quiet = 1;
      }
      elsif ( /^\?|^h/ ) {
        &usage();
      }
      else {
        print STDERR "Illegal option -$_\n";
        &usage();
      }
    }
    else {
      push (@files, $_ );
    }
  }
  
  foreach $sub (keys %subst)
  {
    if ( $subst{$sub} eq "" ) 
    {
      print STDERR "No substitute given for tag file `$sub'\n";
      &usage();
    }
    elsif ( ! $quiet && $sub ne "_doc" && $sub ne "_cgi" )
    {
      print "Substituting $subst{$sub} for each occurrence of tag file $sub\n"; 
    }
  }
  
  if ( ! @files ) {
    if (opendir(D,".")) {
      foreach $file ( readdir(D) ) {
        $match = ".html";
        next if ( $file =~ /^\.\.?$/ );
        ($file =~ /$match/) && (push @files, $file);
        ($file =~ /\.svg/) && (push @files, $file);
        ($file =~ "navtree.js") && (push @files, $file);
      }
      closedir(D);
    }
  }
  
  if ( ! @files ) {
    print STDERR "Warning: No input files given and none found!\n";
  }
  
  foreach $f (@files)
  {
    if ( ! $quiet ) {
      print "Editing: $f...\n";
    }
    $oldf = $f;
    $f   .= ".bak";
    unless (rename $oldf,$f) {
      print STDERR "Error: cannot rename file $oldf\n";
      exit 1;
    }
    if (open(F,"<$f")) {
      unless (open(G,">$oldf")) {
        print STDERR "Error: opening file $oldf for writing\n";
        exit 1;
      }
      if ($oldf ne "tree.js") {
        while (<F>) {
          s/doxygen\=\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\" (xlink:href|href|src)=\"\2/doxygen\=\"$1:$subst{$1}\" \3=\"$subst{$1}/g;
          print G "$_";
        }
      }
      else {
        while (<F>) {
          s/\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\", \"\2/\"$1:$subst{$1}\" ,\"$subst{$1}/g;
          print G "$_";
        }
      }
    } 
    else {
      print STDERR "Warning file $f does not exist\n";
    }
    unlink $f;
  }
  
  sub usage {
    print STDERR "Usage: installdox [options] [html-file [html-file ...]]\n";
    print STDERR "Options:\n";
    print STDERR "     -l tagfile\@linkName   tag file + URL or directory \n";
    print STDERR "     -q                    Quiet mode\n\n";
    exit 1;
  }
  

Download