create or replace and compile java source named js_zip as
-- author: d.nemolchev  09 . 2006 
 import  java.io.*;
 import  oracle.sql.*;
 import  java.util.zip.*;
 import  java.util.*;

 public   class  J_Zip
{
   static  ArrayList Names_ =  new  ArrayList();
   static  ArrayList Contents_ =  new  ArrayList();
   static   byte [] ZipContent_;
  
   public   static   void  Clear()
  {
    Names_.clear();
    Contents_.clear();
  }
  
   public   static   void  SetZipContent(oracle.sql.BLOB zip)
  {
     try {
      ZipContent_ = zip.getBytes( 1 , ( int )zip.length());
      Clear();
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static   void  GetZipContent(oracle.sql.BLOB[] zip)
  {
     try {
      zip[ 0 ].putBytes( 1 , ZipContent_);
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static   void  AddEntry(String name, oracle.sql.BLOB entry)
  {
     try {
      Names_.add((Object)name);
      Contents_.add((Object)entry.getBytes( 1 , ( int )entry.length()));
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static   void  DelEntry(String name)
  {
     for ( int  i =  0 ; i < Names_.size(); i++)
    {
       if (name.compareTo((String)Names_.get(i)) !=  0 )
         continue ;
      Names_.remove(i);
      Contents_.remove(i);
       break ;
    }
  }
  
   public   static   int  EntryCount()
  {
     return  Names_.size();
  }
  
   public   static   void  UnPack( int  WithContent)
  {
     try {
      ZipInputStream in =  new  ZipInputStream( new  ByteArrayInputStream(ZipContent_));
      ZipEntry ze;
       while ((ze = in.getNextEntry()) !=  null )
      {
        Names_.add((Object)ze.getName());
         if (WithContent !=  0 )
        {
          ByteArrayOutputStream out =  new  ByteArrayOutputStream();
           byte [] tmp =  new   byte [ 1024 ];
           int  n;
           while ((n = in.read(tmp)) >=  0 )
            out.write(tmp,  0 , n);
          Contents_.add((Object)out.toByteArray());
        }
      }
    } catch (java.io.IOException e){
      System.out.println(e);
    }
  }
  
   public   static   void  GetEntry(String name, oracle.sql.BLOB[] entry)
  {
     try {
       for ( int  i =  0 ; i < Names_.size(); i++)
      {
         if (name.compareTo((String)Names_.get(i)) !=  0 )
           continue ;
        entry[ 0 ].trim( 0 );
        entry[ 0 ].putBytes( 1 , ( byte [])Contents_.get(i));
         break ;
      }
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static   void  GetEntry( int  num, oracle.sql.BLOB[] entry)
  {
     try {
      entry[ 0 ].trim( 0 );
      entry[ 0 ].putBytes( 1 , ( byte [])Contents_.get(num));
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static  String GetName( int  num)
  {
     return  (String)Names_.get(num);
  }
  
   public   static   void  GetNames(oracle.sql.CLOB[] out)
  {
    String str =  new  String();
     try {
       for ( int  i =  0 ; i < Names_.size(); i++)
        str = str + (String)Names_.get(i) + "\n";
      out[ 0 ].trim( 0 );
      out[ 0 ].putString( 1 , str);
      System.out.println(Names_.size());
    } catch (java.sql.SQLException e){
      System.out.println(e);
    }
  }
  
   public   static   void  GetNames(oracle.sql.BLOB zip, oracle.sql.CLOB[] out)
  {
     try {
      ZipInputStream in =  new  ZipInputStream(zip.getBinaryStream());
      ZipEntry ze;
       while ((ze = in.getNextEntry()) !=  null )
        out[ 0 ].putString(out[ 0 ].length() +  1 ,ze.getName() + "\n");
    } catch (java.sql.SQLException e){
      System.out.println(e);
    } catch (java.io.IOException e){
      System.out.println(e);
    }
  }
  
   public   static   void  Pack()
  {
     try {
      ByteArrayOutputStream out =  new  ByteArrayOutputStream();
      ZipOutputStream zip =  new  ZipOutputStream(out);
       for ( int  i =  0 ; i < Names_.size(); i++)
      {
        zip.putNextEntry( new  ZipEntry((String)Names_.get(i)));
        zip.write(( byte [])Contents_.get(i),  0 , (( byte [])Contents_.get(i)).length);
        zip.closeEntry();
      }
      zip.close();
      ZipContent_ = out.toByteArray();
    } catch (java.io.IOException e){
      System.out.println(e);
    }
  }
  
   public   static   void  UnPackEntry(oracle.sql.BLOB in, java.lang.String name, oracle.sql.BLOB[] out)
  {
     try {
      ZipInputStream zip_in =  new  ZipInputStream(in.getBinaryStream());
      ZipEntry ze = zip_in.getNextEntry();
       boolean  f_exit = false;
       while (ze !=  null  && !f_exit)
      {
         if (name.compareTo(ze.getName()) ==  0 )
        {
          OutputStream outBuffer = out[ 0 ].getBinaryOutputStream();
           byte [] tmpBuffer =  new   byte [ 1024 ];
           int  n;
           while  ((n = zip_in.read(tmpBuffer)) >=  0 )
            outBuffer.write(tmpBuffer,  0 , n);
          outBuffer.close();
          f_exit = true;
        }
        ze = zip_in.getNextEntry();
      }
    }
     catch  (java.sql.SQLException e)
      {System.out.println(e);}
     catch  (java.io.IOException e)
      {System.out.println(e);}
  }
  
}

CREATE OR REPLACE Package mfz Is

  /*author: d.nemolchev 09.2006*/

  Procedure Clear;

  Procedure SetZipContent(iContent Blob);

  Procedure GetZipContent(oContent In Out Nocopy Blob);

  Procedure AddEntry
  (
    iName    Varchar2,
    iContent Blob
  );

  Procedure DelEntry(iName Varchar2);

  Function EntryCount Return Number;

  Procedure UnPack(iNamesOnly Number);

  Procedure GetEntry
  (
    iName    Varchar2,
    oContent In Out Blob
  );

  Procedure GetEntry
  (
    iNum     Number,
    oContent In Out Blob
  );

  Function GetName(iNum Number) Return Varchar2;

  Procedure GetNames(oNames In Out Nocopy Clob);

  Procedure GetNames
  (
    iZip   Blob,
    oNames In Out Nocopy Clob
  );

  Procedure Pack;

  Procedure UnPackEntry
  (
    iZip     Blob,
    iName    Varchar2,
    oContent In Out Nocopy Blob
  );

End; -- mfz

CREATE OR REPLACE Package Body mfz Is

  /*author: d.nemolchev 09.2006*/

  Procedure Clear As
    Language Java Name 'J_Zip.Clear()';

  Procedure SetZipContent(iContent Blob) As
    Language Java Name 'J_Zip.SetZipContent(oracle.sql.BLOB)';

  Procedure GetZipContent(oContent In Out Nocopy Blob) As
    Language Java Name 'J_Zip.GetZipContent(oracle.sql.BLOB[])';

  Procedure AddEntry
  (
    iName    Varchar2,
    iContent Blob
  ) As
    Language Java Name 'J_Zip.AddEntry(java.lang.String, oracle.sql.BLOB)';

  Procedure DelEntry(iName Varchar2) As
    Language Java Name 'J_Zip.DelEntry(String)';

  Function EntryCount Return Number As
    Language Java Name 'J_Zip.EntryCount() return int';

  Procedure UnPack(iNamesOnly Number) As
    Language Java Name 'J_Zip.UnPack(int)';

  Procedure GetEntry
  (
    iName    Varchar2,
    oContent In Out Blob
  ) As
    Language Java Name 'J_Zip.GetEntry(java.lang.String, oracle.sql.BLOB[])';

  Procedure GetEntry
  (
    iNum     Number,
    oContent In Out Blob
  ) As
    Language Java Name 'J_Zip.GetEntry(int, oracle.sql.BLOB[])';

  Function GetName(iNum Number) Return Varchar2 As
    Language Java Name 'J_Zip.GetName(int) return java.lang.String';

  Procedure GetNames(oNames In Out Nocopy Clob) As
    Language Java Name 'J_Zip.GetNames(oracle.sql.CLOB[])';

  Procedure GetNames
  (
    iZip   Blob,
    oNames In Out Nocopy Clob
  ) As
    Language Java Name 'J_Zip.GetNames(oracle.sql.BLOB, oracle.sql.CLOB[])';

  Procedure Pack As
    Language Java Name 'J_Zip.Pack()';

  Procedure UnPackEntry
  (
    iZip     Blob,
    iName    Varchar2,
    oContent In Out Nocopy Blob
  ) As
    Language Java Name 'J_Zip.UnPackEntry(oracle.sql.BLOB, java.lang.String, oracle.sql.BLOB[])';

End; -- mfz