/*
 * $Id$
 */

/*
 * Harbour Project source code:
 * Zlib low level interface for Harbour
 *
 * Copyright 2000-2003 Luiz Rafael Culik <culik@sl.conex.net>
 * www - http://www.harbour-project.org
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or ( at your option )
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this software; see the file COPYING.  If not, write to
 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 * Boston, MA 02111-1307 USA ( or visit the web site http://www.gnu.org/ ).
 *
 * As a special exception, the Harbour Project gives permission for
 * additional uses of the text contained in its release of Harbour.
 *
 * The exception is that, if you link the Harbour libraries with other
 * files to produce an executable, this does not by itself cause the
 * resulting executable to be covered by the GNU General Public License.
 * Your use of that executable is in no way restricted on account of
 * linking the Harbour library code into it.
 *
 * This exception does not however invalidate any other reasons why
 * the executable file might be covered by the GNU General Public License.
 *
 * This exception applies only to the code released by the Harbour
 * Project under the name Harbour.  If you copy code from other
 * Harbour Project or Free Software Foundation releases into a copy of
 * Harbour, as the General Public License permits, the exception does
 * not apply to the code that you add in this way.  To avoid misleading
 * anyone as to the status of such modified files, you must delete
 * this exception notice from them.
 *
 * If you write modifications of your own for Harbour, it is your choice
 * whether to permit this exception to apply to your modifications.
 * If you do not wish that, delete this exception notice.
 *
 */

#define HB_OS_WIN_32_USED

#include "hbziparc.h"

#ifdef __cplusplus
extern "C" {
#endif

class SegmCallback : public CZipSegmCallback
{
   bool Callback( ZIP_SIZE_TYPE iProgress )
   {
      PHB_ITEM Disk = hb_itemPutNL( NULL, m_uVolumeNeeded );

      HB_SYMBOL_UNUSED( iProgress );

      hb_vmEvalBlockV( hbza_ChangeDiskBlock, 1, Disk);

      hb_itemRelease( Disk );

      return true;
   }
};

class SegmActionCallback : public CZipActionCallback
{
   bool Callback( ZIP_SIZE_TYPE iProgress )
   {
      PHB_ITEM Disk = hb_itemPutNL( NULL, m_uProcessed ), Total= hb_itemPutNL( NULL, m_uTotalToProcess );

      HB_SYMBOL_UNUSED( iProgress );

      hb_vmEvalBlockV( hbza_pProgressInfo, 2, Disk, Total);

      hb_itemRelease( Disk );
      hb_itemRelease( Total );

      return true;
   }
};

class SegmCallbackc : public CZipSegmCallback
{
   bool Callback( ZIP_SIZE_TYPE iProgress )
   {
      PHB_ITEM Disk=hb_itemPutNL( NULL, m_uVolumeNeeded );
        
      HB_SYMBOL_UNUSED( iProgress );

      hb_vmEvalBlockV( hbza_ChangeDiskBlock, 1, Disk );

      hb_itemRelease( Disk );

      return TRUE;
   }
};

class SegmActionCallbackc : public CZipActionCallback
{
   bool Callback( ZIP_SIZE_TYPE iProgress )
   {
      PHB_ITEM Disk = hb_itemPutNL( NULL, m_uProcessed );
      PHB_ITEM Total = hb_itemPutNL( NULL, m_uTotalToProcess );

      HB_SYMBOL_UNUSED( iProgress );

      hb_vmEvalBlockV( hbza_pProgressInfo, 2, Disk, Total );

      hb_itemRelease( Disk );
      hb_itemRelease( Total );

      return TRUE;
   }
};

static DWORD hb_GetCurrentFileSize( LPCTSTR szFile )
{
   return ( DWORD ) hb_fsFSize( ( BYTE * ) szFile, TRUE );
}

static int hb_CheckSpanMode( char * szFile )
{
   int iReturn = 0;

   CZipArchive szZip;
   SegmCallback span;
   SegmActionCallback spanac;

   szZip.SetSegmCallback( &span );

   try
   {
// s.r. to avoid GPF when ZIP file is read only !
//      szZip.Open( szFile, CZipArchive::zipOpen, 0 );
        szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
   }
   catch( CZipException &e )
   {
      if( e.m_iCause == CZipException::cdirNotFound )
      {
         szZip.Close( true );
         iReturn = 114;
      }
      else if( e.m_iCause == CZipException::noCallback )
      {
         szZip.Close( true );
         iReturn = 103;
      }
      else if( e.m_iCause == CZipException::genericError )
      {
         szZip.Close( true );
         iReturn = 100;
      }      
      else if( e.m_iCause == CZipException::badZipFile )
      {
         szZip.Close( true );
         iReturn = 101;
      }
      else if( e.m_iCause == CZipException::badCrc )
      {
         szZip.Close( true );
         iReturn = 102;
      }
      else if( e.m_iCause == CZipException::aborted )
      {
         szZip.Close( true );
         iReturn = 104;
      }
      else if( e.m_iCause == CZipException::abortedAction )
      {
         szZip.Close( true );
         iReturn = 105;
      }
      else if( e.m_iCause == CZipException::abortedSafely )
      {
         szZip.Close( true );
         iReturn = 106;
      }
      else if( e.m_iCause == CZipException::nonRemovable )
      {
         szZip.Close( true );
         iReturn = 107;
      }
      else if( e.m_iCause == CZipException::tooManyVolumes )
      {
         szZip.Close( true );
         iReturn = 108;
      }
      else if( e.m_iCause == CZipException::tooLongData )
      {
         szZip.Close( true );
         iReturn = 109;
      }
      else if( e.m_iCause == CZipException::badPassword )
      {
         szZip.Close( true );
         iReturn = 110;
      }
      else if( e.m_iCause == CZipException::dirWithSize )
      {
         szZip.Close( true );
         iReturn = 111;
      }
      else if( e.m_iCause == CZipException::internalError )
      {
         szZip.Close( true );
         iReturn = 112;
      }
      else if( e.m_iCause == CZipException::notRemoved )
      {
         szZip.Close( true );
         iReturn = 113;
      }
      else if( e.m_iCause == CZipException::notRenamed )
      {
         szZip.Close( true );
         iReturn = 114;
      }
      else if( e.m_iCause == CZipException::platfNotSupp )
      {
         szZip.Close( true );
         iReturn = 115;
      }
   }

   if( ! iReturn )
   {
      iReturn = szZip.GetSegmMode();
      szZip.Close();
   }

   return iReturn;
}

int hb_CmpPkSpan( char *szFile, PHB_ITEM pArray, int iCompLevel, PHB_ITEM pBlock, BOOL bOverWrite, char *szPassWord, BOOL bPath, BOOL bDrive, PHB_ITEM pProgress )
{
   ULONG ulCount;

   const char * szDummy;

   BOOL bReturn = TRUE;
   BOOL bFileExist = hb_fsFile( ( BYTE * ) szFile );
   CZipString szArchive = szFile;

   CZipArchive szZip;
   SegmCallback span;
   SegmActionCallback spanac;

   szZip.SetSegmCallback( &span );
   bDrive = false;

   try
   {
      if( ( bFileExist && bOverWrite ) || !bFileExist )
         szZip.Open( szArchive, CZipArchive::zipCreateSegm, 0 );
      else
         bReturn = FALSE;
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   if( ! bReturn )
      return ( int ) bReturn;

   if( szPassWord != NULL )
      szZip.SetPassword( szPassWord );

   if( hbza_pZipI.szComment != NULL )
   {
      szZip.SetGlobalComment( hbza_pZipI.szComment );
      hb_xfree( hbza_pZipI.szComment );
   }

   if( HB_IS_BLOCK( pProgress ) )
   {
      hbza_pProgressInfo = pProgress;
      szZip.SetCallback( &spanac );
   }

   for( ulCount = 1; ulCount <= hb_arrayLen( pArray ); ulCount++ )
   {
      szDummy = ( char * ) hb_arrayGetCPtr( pArray, ulCount );

      if( pBlock != NULL )
      {
         PHB_ITEM FileName = hb_itemPutC( NULL, hb_arrayGetCPtr( pArray, ulCount ) ), FilePos = hb_itemPutNI( NULL, ulCount );
 
         hb_vmEvalBlockV( pBlock, 2, FileName, FilePos );

         hb_itemRelease( FileName );
         hb_itemRelease( FilePos );
      }

      try
      {
         if( bPath )
            szZip.AddNewFile( szDummy, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 );
         else if( !bDrive && !bPath )
            szZip.AddNewFile( szDummy, iCompLevel, false, CZipArchive::zipsmSafeSmart, 65536 );
      }
      catch( ... )
      {}
   }

   try
   {
      szZip.Close();
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   return ( int ) bReturn;
}

PHB_ITEM hb___GetFileNamesFromZip( char * szFile, BOOL iMode )
{
   int iNumberOfFiles;
   ULONG ulCount;
   bool iReturn = true;

   CZipArchive szZip;
   SegmCallback span;

   if( hbza_pZipI.iWrite > 0 )
      szZip.SetAdvanced( hbza_pZipI.iWrite, hbza_pZipI.iExtract, hbza_pZipI.iRead );

   try
   {
      switch( hb_CheckSpanMode( szFile ))
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -2:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 1 );
            break;

         default:
            iReturn = false;
      }
   }
   catch( ... )
   {}

   if( iReturn )
   {
      iNumberOfFiles = szZip.GetCount();

      hbza_ZipArray = hb_itemNew(NULL);
      hb_arrayNew( hbza_ZipArray, iNumberOfFiles );
      time_t theTime;
      tm * SzTime;

      for( ulCount = 0 ; ulCount < ( ULONG ) iNumberOfFiles ; ulCount++ )
      {
         CZipFileHeader fh;
        
         szZip.GetFileInfo( fh, ( WORD )ulCount );

         if( iMode )
         {
            const char * szFileNameInZip;
            CZipString szTempString;
            PHB_ITEM TempArray;
            char szAttr[ 5 ];
            char szTime[ 9 ];
            char * szMethod = NULL;
            char szCRC[ 8 ];
            int iRatio;
            int iMeth = fh.m_uMethod;
            #if defined( HB_OS_WIN_32 )
               DWORD uAttr = fh.GetSystemAttr();
            #endif

            TempArray = hb_itemNew( NULL );
            hb_arrayNew( TempArray, 9 );

            szTempString  = ( LPCTSTR ) fh.GetFileName();
            szFileNameInZip = ( const char * ) szTempString;

            hb_arraySetC( TempArray, filePos, ( char * ) szFileNameInZip );

            #if defined( HB_OS_WIN_32 )
               szAttr[ 0 ] = uAttr & FILE_ATTRIBUTE_READONLY ? ( char ) _T( 'r' ) : ( char ) _T( '-' );
               szAttr[ 1 ] = uAttr & FILE_ATTRIBUTE_HIDDEN ? ( char ) _T( 'h' ) : ( char ) _T( '-' );
               szAttr[ 2 ] = uAttr & FILE_ATTRIBUTE_SYSTEM ? ( char ) _T( 's' ) : ( char ) _T( 'w' );
               szAttr[ 3 ] = uAttr & FILE_ATTRIBUTE_DIRECTORY ? ( char ) _T( 'D' ) : uAttr & FILE_ATTRIBUTE_ARCHIVE ? ( char ) _T( 'a' ): ( char ) _T( '-' );
            #endif

            szAttr[ 4 ] = fh.IsEncrypted() ? ( char ) _T( '*' ) : ( char ) _T( ' ' );

            if( fh.m_uUncomprSize > 0 )
            {
               iRatio = 100 - ( ( fh.m_uComprSize * 100 ) / fh.m_uUncomprSize );

               if( iRatio <0 )
                  iRatio = 0;

               hb_arraySetNL( TempArray, Lenght, fh.m_uUncomprSize );
               hb_arraySetNL( TempArray, Size, fh.m_uComprSize );
               hb_arraySetNL( TempArray, Ratio, iRatio );
            }
            else
            {
               iRatio = 0;
               hb_arraySetNL( TempArray, Lenght, fh.m_uUncomprSize );
               hb_arraySetNL( TempArray, Size, fh.m_uComprSize );
               hb_arraySetNL( TempArray, Ratio, iRatio );
            }

            #if defined( HB_OS_WIN_32 )
               if( iMeth == 0 || uAttr & FILE_ATTRIBUTE_DIRECTORY )
                  szMethod = "Stored";
            #endif

            if( iMeth == Z_DEFLATED )
            {
               UINT iLevel = ( UINT )( ( fh.m_uFlag & 0x6 ) / 2 );

               switch( iLevel )
               {
                  case 0:
                     szMethod = "DeflatN";
                     break;

                  case 1:
                     szMethod = "DeflatX";
                     break;

                  case 2:
                  case 3:
                     szMethod = "DeflatF";
                     break;

                  default:
                     szMethod = "Unknown";
               }
            }
            
            hb_arraySetC( TempArray, Method, szMethod );

            snprintf( szCRC, sizeof( szCRC ), "%8.8lx\n", ( ULONG )fh.m_uCrc32 );

            hb_arraySetCL( TempArray, Crc32, szCRC, 8 );
            hb_arraySetDL( TempArray, Date, hb_dateEncode( ( LONG ) ( fh.m_uModDate >> 9 ) +1980,( LONG )( ( fh.m_uModDate & ~0xFE00 ) >> 5 ), ( LONG )fh.m_uModDate & ~0xFFE0 ) );

            theTime = fh.GetTime();
            SzTime =  localtime( &theTime );
            snprintf( szTime, sizeof( szTime ), "%02d:%02d:%02d", SzTime->tm_hour, SzTime->tm_min, SzTime->tm_sec );

            hb_arraySetCL( TempArray, Time, szTime, 8 );
            hb_arraySetCL( TempArray, Attr, szAttr, 5 );
            hb_arraySetForward( hbza_ZipArray, ulCount+1, TempArray );
            hb_itemRelease( TempArray );
         }
         else
         {
            CZipString szTempString = ( LPCTSTR ) fh.GetFileName();
            const char * szFileNameInZip = ( const char * ) szTempString;
            hb_arraySetC( hbza_ZipArray, ulCount + 1, ( char * ) szFileNameInZip );
         }
      }
   }

   szZip.Close();

   return hbza_ZipArray;
}

char *hb___CheckFile( char * szFile )
{
   PHB_FNAME pFileName = hb_fsFNameSplit( szFile );
   char * szZipName = ( char * ) hb_xgrab( _POSIX_PATH_MAX + 1 );

   if( ! pFileName->szExtension )
      pFileName->szExtension = ".zip";

   hb_fsFNameMerge( szZipName, pFileName );
   hb_xfree( pFileName );

   return( szZipName );
}

BOOL hb_IsPassWord( char *szFile )
{
   BOOL bReturn = TRUE;
   CZipFileHeader fh;

   CZipArchive szZip;
   SegmCallback span;

   try
   {
      switch( hb_CheckSpanMode( szFile ) )
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -2:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 1 );
            break;

         default:
            bReturn = FALSE;
      }
   }
   catch( CZipException )
   {}

   if( bReturn )
   {
      szZip.GetFileInfo( fh, ( WORD )0 );

      bReturn = fh.IsEncrypted();

      szZip.Close();
   }

   return bReturn;
}

int hb___GetNumberofFilestoUnzip( char * szFile )
{
   int iNumberOfFiles = 0;

   CZipArchive szZip;
   SegmCallback span;

   szZip.SetSegmCallback( &span );

   try
   {
      szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
      iNumberOfFiles = szZip.GetCount();
      szZip.Close();
   }
   catch( CZipException &e )
   {
      if( e.m_iCause == CZipException::badZipFile || e.m_iCause == CZipException::cdirNotFound )
         iNumberOfFiles = -1;
   }

   return iNumberOfFiles;
}

static void hb___CallbackFuncFree( void * cargo )
{
   HB_SYMBOL_UNUSED( cargo );

   if( hbza_ChangeDiskBlock )
   {
      hb_itemRelease( hbza_ChangeDiskBlock );
      hbza_ChangeDiskBlock = NULL;
   }
}

int hb___SetCallbackFunc( PHB_ITEM pFunc )
{
   if( hbza_ChangeDiskBlock )
   {
      hb_itemClear( hbza_ChangeDiskBlock );
   }
   else
   {
      /* register cleanup function, it's executed only once */
      hb_vmAtExit( hb___CallbackFuncFree, NULL );
      hbza_ChangeDiskBlock = hb_itemNew( NULL );
   }

   if( pFunc )
      hb_itemCopy( hbza_ChangeDiskBlock, pFunc );

   return ( int ) true;
}

bool hb_SetCallBack( DWORD iNumber, int, void* pData )
{
   PHB_ITEM Disk = hb_itemPutNL( NULL, iNumber );
  
   HB_SYMBOL_UNUSED( pData );

   hb_vmEvalBlockV( hbza_ChangeDiskBlock, 1, Disk);

   hb_itemRelease( Disk );

   return TRUE;
}

int hb_DeleteSel( char *szFile, PHB_ITEM pArray, BOOL bCase )
{
   bool iReturn = true;
   ULONG ulCount;
   CZipArchive szZip;
   CZipStringArray aFiles;

   HB_SYMBOL_UNUSED( bCase );

   try
   {
      switch( hb_CheckSpanMode( szFile ) )
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
         case -2:
//       default:
            iReturn = false;
      }
   }
   catch( CZipException )
   {}

   if( iReturn )
   {
      for( ulCount = 1; ulCount <= ( ULONG ) hb_arrayLen( pArray ); ulCount ++ )
      {
         const char * szDummy = ( char * ) hb_arrayGetCPtr( pArray, ulCount );
         aFiles.Add( szDummy );
      }

      szZip.RemoveFiles( aFiles );
   }

   szZip.Close();

   return ( int ) iReturn;
}

int hb_UnzipSel( char *szFile, PHB_ITEM pBlock, BOOL lWithPath, char *szPassWord, const char *pbyBuffer, PHB_ITEM pSelArray, PHB_ITEM pProgress )
{
   bool bWithPath = lWithPath ? true : false;
   bool iReturn = true;
   ULONG ulCount;
   int iCause;
   char  * szPath = ( char * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
   BOOL bFreePath = TRUE;

   BOOL bChange = FALSE;
   LPCTSTR lpFiletoExtract;

   CZipArchive szZip;
   SegmCallback span;
   SegmActionCallback spanac;

   if( HB_IS_BLOCK( pProgress ) )
   {
      hbza_pProgressInfo = pProgress;
      szZip.SetCallback( &spanac );
   }

   try
   {
      switch( hb_CheckSpanMode( szFile ) )
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -2:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 1 );
            break;

         default:
            iReturn = false;
      }
   }
   catch( CZipException )
   {}

   if( iReturn )
   {
      if( szPassWord !=  NULL )
      {
         szZip.SetPassword( szPassWord );
      }
      if( pbyBuffer )
      {
         if( hb_stricmp( pbyBuffer, ".\\" ) == 0 )
            hb_fsCurDirBuffEx( 0, (BYTE*) szPath, _POSIX_PATH_MAX + 1 );
         else
            hb_strncpy( szPath, pbyBuffer, _POSIX_PATH_MAX );

         hb_fsChDir( ( BYTE * ) "\\" );
         szZip.SetRootPath( szPath );
      }

      for( iCause = 1; iCause <= ( int ) hb_arrayLen( pSelArray ); iCause++ )
      {
         lpFiletoExtract = hb_arrayGetC( pSelArray, iCause );
         ulCount = szZip.FindFile( ( LPCTSTR ) lpFiletoExtract, false );

         if( ulCount == ( ULONG ) -1 )
            ulCount = szZip.FindFile( ( LPCTSTR ) lpFiletoExtract, true );

         {
            CZipFileHeader fh;
            const char * szFileNameInZip;
            CZipString szTempString;
            PHB_FNAME pOut;
            szZip.GetFileInfo( fh, ( WORD )ulCount );
            szTempString = ( LPCTSTR ) fh.GetFileName();
            szFileNameInZip = ( const char * ) szTempString;
            pOut = hb_fsFNameSplit( ( char * ) szFileNameInZip );
            if( szPath == NULL )
            {
               szPath = ( char * ) pOut->szDrive;
               pOut->szDrive = "";
               hb_fsFNameMerge( ( char * ) szFileNameInZip, pOut );
               bChange = TRUE;
               bFreePath = FALSE;
            }
            szZip.SetRootPath(szPath);
            hb_xfree( pOut );

            if( pBlock != NULL )
            {
               PHB_ITEM FileName = hb_itemPutC( NULL, ( char * ) szFileNameInZip  ), Pos = hb_itemPutNI( NULL, iCause );

               hb_vmEvalBlockV( pBlock, 2, FileName, Pos );

               hb_itemRelease( FileName );
               hb_itemRelease( Pos );
            }

            try
            {
               /* TODO:  They're both the same.... */
               if( !HB_IS_BLOCK( pProgress ) )
               {
//                szZip.SetPassword( szPassWord );
                  szZip.ExtractFile( ( WORD ) ulCount, ( LPCTSTR ) szPath, bWithPath, NULL, 65536 );
               }
               else
               {
//                szZip.SetPassword( szPassWord );
                  szZip.ExtractFile( ( WORD )ulCount, ( LPCTSTR )szPath, bWithPath, NULL, 65536 );
               }
            }

            catch( CZipException& e )
            {
               HB_SYMBOL_UNUSED( e );
               iReturn = false;
               szZip.CloseFile( NULL, true);
/*             szZip.CloseNewFile( true ); */
            }

            if( bChange )
            {
               bChange = FALSE;
               szPath = "";
            }
         }

         if( lpFiletoExtract)
            hb_xfree( ( void * ) lpFiletoExtract );
      }
   }

   szZip.Close();

   if( szPath )
   {
      hb_fsChDir( ( BYTE * ) szPath );
      if( bFreePath )
         hb_xfree( szPath );
   }

   return ( int ) iReturn;
}

int hb_TestForPKS( char *szFile )
{
   return hb_CheckSpanMode( szFile );
}

void hb_SetZipBuff( int a, int b, int c )
{
   hbza_pZipI.iWrite   = a > 65535 ? a : 65535;
   hbza_pZipI.iExtract = b > 16384 ? b : 16384;
   hbza_pZipI.iRead    = c > 32768 ? c : 32768;
}

void hb_SetZipComment( char *szComment )
{
   int iLen = strlen( ( const char * ) szComment ) + 1;
   hbza_pZipI.szComment = ( char* ) hb_xgrab( iLen );
   hb_strncpy( hbza_pZipI.szComment, szComment, iLen - 1 );
}

void hb_SetZipReadOnly(int iRead )
{
   hbza_pZipI.iReadOnly = iRead ;
}

const char * hb_GetZipComment( char * szFile )
{
   const char * szReturn;
   char * szTempR;
   bool iReturn = true;
   CZipString szTemp;

   CZipArchive szZip;
   SegmCallback span;
   SegmActionCallback spanac;

   try
   {
      switch( hb_CheckSpanMode( szFile ) )
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -2:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 1 );
            break;

         default:
            iReturn = false;
      }
   }
   catch( CZipException )
   {}

   if( iReturn )
   {
      szTemp = szZip.GetGlobalComment();
      szReturn = ( const char * ) szTemp;
   }
   else
      szReturn = "";

   szTempR = ( char * ) hb_xgrab( strlen( ( const char * ) szReturn ) + 1 );
   strcpy( szTempR, ( char * ) szReturn );

   szZip.Close();

   return szTempR;
}

int hb_UnzipSelIndex( char *szFile, PHB_ITEM pBlock, BOOL lWithPath, char *szPassWord, char *szPath, PHB_ITEM pSelArray, PHB_ITEM pProgress )
{
   bool bWithPath = lWithPath ? true : false;
   bool iReturn = true;
   ULONG ulCount;
   int iCause;

   CZipArchive szZip;
   SegmCallback span;
   SegmActionCallback spanac;

   if( HB_IS_BLOCK( pProgress ) )
   {
      hbza_pProgressInfo = pProgress;
      szZip.SetCallback( &spanac );
   }

   try
   {
      switch( hb_CheckSpanMode( szFile ) )
      {
         case 0:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -2:
            szZip.Open( szFile, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 1 );
            break;

         default:
            iReturn = false;
      }
   }
   catch( CZipException )
   {}

   if( iReturn )
   {
      if( szPassWord != NULL )
         szZip.SetPassword( szPassWord );

      for( iCause = 0; iCause <= ( int ) hb_arrayLen( pSelArray ); iCause++ )
      {
         ulCount = hb_arrayGetNI( pSelArray, iCause ) - 1;

         {
            CZipFileHeader fh;
            const char * szFileNameInZip;
            CZipString szTempString;
            szZip.GetFileInfo( fh, ( WORD )ulCount );
            szTempString = ( LPCTSTR ) fh.GetFileName();
            szFileNameInZip = ( const char * ) szTempString;

            if( pBlock != NULL )
            {
               PHB_ITEM FileName = hb_itemPutC( NULL, ( char * ) szFileNameInZip );

               hb_vmEvalBlockV( pBlock, 1, FileName );
               hb_itemRelease( FileName );
            }

            try
            {
               /* TODO:  They're both the same.... */
               if( !HB_IS_BLOCK( pProgress ) )
               {
//                szZip.SetPassword( szPassWord );
                  szZip.ExtractFile( ( WORD )ulCount, ( LPCTSTR )szPath, bWithPath, NULL, 65536 );
               }
               else
               {
//                szZip.SetPassword( szPassWord );
                  szZip.ExtractFile( ( WORD )ulCount, ( LPCTSTR )szPath, bWithPath, NULL, 65536 );
               }
            }
            catch( CZipException& e )
            {
               HB_SYMBOL_UNUSED( e );
               iReturn = false;
               szZip.CloseFile( NULL, true );
            }
         }
      }
   }

   szZip.Close();

   return (int) iReturn;
}

BOOL hb_TransferFilesFromzip( char *szSource, char *szDest, PHB_ITEM pArray )
{
   CZipArchive szZSource;
   CZipArchive szZDest;
   CZipStringArray aFiles;
   const char * szDummy;
   ULONG ulCount;
   BOOL bReturn  = TRUE;
   BOOL bReturn1 = TRUE;

   try
   {
      switch(hb_CheckSpanMode( szSource ))
      {
         case 0:
            szZSource.Open( szSource, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
         case -2:
//       default:
            bReturn = FALSE;
      }
   }
   catch( CZipException )
   {}

   try
   {
      switch(hb_CheckSpanMode( szDest ))
      {
         case 0:
            szZDest.Open( szDest, hbza_pZipI.iReadOnly ? CZipArchive::zipOpenReadOnly : CZipArchive::zipOpen, 0 );
            break;

         case -1:
         case -2:
//       default:
            bReturn1 = FALSE;
      }
   }
   catch( CZipException )
   {}

   if( bReturn && bReturn1 )
   {
      for( ulCount = 1; ulCount <= ( ULONG ) hb_arrayLen( pArray ); ulCount++ )
      {
         szDummy = ( char * )hb_arrayGetCPtr( pArray, ulCount );
         aFiles.Add( szDummy );
      }

      if( szZDest.GetFromArchive( szZSource, aFiles, false ) )
         bReturn = true;

      szZDest.Close();
      szZSource.Close();

      return TRUE;
   }

   return FALSE;
}


int hb_UnzipAll(char *szFile,PHB_ITEM pBlock, BOOL bWithPath,char *szPassWord,char *pbyBuffer,PHB_ITEM pDiskBlock,PHB_ITEM pProgress)
{
   bool iReturn = true;
   uLong uiCount = 0;
//   int iCause = 0;
   int iMode;
   CZipArchive szZip;
   BOOL bChange = FALSE;
   SegmCallback span;
   SegmActionCallback spanac;

   char  * szPath = (char*) hb_xgrab( _POSIX_PATH_MAX + 1 );
   BOOL bFreePath = TRUE;

   HB_SYMBOL_UNUSED( pDiskBlock );

   if( HB_IS_BLOCK( pProgress ) )
   {
      hbza_pProgressInfo = pProgress;
      szZip.SetCallback( &spanac );
   }

   if( szPassWord != NULL )
   {
      szZip.SetPassword( szPassWord );
   }

   iMode = hb_CheckSpanMode( szFile );

   try
   {
      if( iMode == 0 )
          szZip.Open( szFile, CZipArchive::zipOpen, 0 );
      else
      {
         if( iMode == -1 )
         {
            szZip.SetSegmCallback( &span );
            szZip.Open( szFile, CZipArchive::zipOpen, 0 );
         }
         else
         {
            if( iMode == -2 )
               szZip.Open( szFile, CZipArchive::zipOpen, 1 );
            else
               iReturn = false;
         }
      }
   }
   catch( CZipException &e )
   {
      HB_SYMBOL_UNUSED( e );
      // iCause = e.m_iCause;
   }

   if( iReturn )
   {
      if( pbyBuffer )
      {
         if( hb_stricmp( pbyBuffer, ".\\" ) == 0 )
            hb_fsCurDirBuffEx( 0, ( BYTE * ) szPath, _POSIX_PATH_MAX + 1 );
         else
            hb_strncpy( szPath, pbyBuffer, _POSIX_PATH_MAX );

         hb_fsChDir( ( BYTE * ) "\\" );
         szZip.SetRootPath( szPath );
      }

      for( uiCount = 0; uiCount < ( uLong ) szZip.GetCount(); uiCount++ )
      {
         CZipFileHeader fh;
         const char * szFileNameInZip;
         CZipString szTempString;
         PHB_FNAME pOut;
         szZip.GetFileInfo( fh, ( WORD ) uiCount );
         szTempString = ( LPCTSTR ) fh.GetFileName();
         szFileNameInZip = ( const char * ) szTempString;
         pOut = hb_fsFNameSplit( ( char * ) szFileNameInZip );
         if( szPath == NULL )
         {
            szPath = ( char * ) pOut->szDrive;
            pOut->szDrive = "";
            hb_fsFNameMerge( ( char * ) szFileNameInZip, pOut );
            bChange = TRUE;
            bFreePath = FALSE;
         }
         szZip.SetRootPath( szPath );
         hb_xfree( pOut );
      
         if( pBlock != NULL )
         {
            PHB_ITEM FileName = hb_itemPutC( NULL, ( char * ) szFileNameInZip );
            PHB_ITEM Pos = hb_itemPutNI( NULL, uiCount );
      
            hb_vmEvalBlockV( pBlock, 2, FileName, Pos );
      
            hb_itemRelease( FileName );
            hb_itemRelease( Pos );
         }
      
         try
         {
            if( ! HB_IS_BLOCK( pProgress ) )
            {
               szZip.SetPassword( szPassWord );
               szZip.ExtractFile( ( WORD ) uiCount, ( LPCTSTR ) szPath, bWithPath ? true : false, NULL, 65536 );
            }
            else
            {
               szZip.SetPassword( szPassWord );
               szZip.ExtractFile( ( WORD ) uiCount, ( LPCTSTR ) szPath, bWithPath ? true : false, NULL, 65536 );
            }
         }
         catch( CZipException& e )
         {
            szZip.CloseFile( NULL, true );
            HB_SYMBOL_UNUSED( e );
            // iCause = e.m_iCause;
         }

         if( bChange )
         {
            bChange = FALSE;
//          szPath = NULL;
         }
      }
   }

   if( szPath )
   {
      hb_fsChDir( ( BYTE * ) szPath );

      if( bFreePath )
         hb_xfree( szPath );
   }

   return iReturn;
}

int hb_CompressFile( char *szFile, PHB_ITEM pArray, int iCompLevel, PHB_ITEM pBlock, BOOL bOverWrite, char *szPassWord, BOOL bPath, BOOL bDrive, PHB_ITEM pProgress )
{
   ULONG ulCount;
   const char * szDummy;
   char * szDummyLower;
   char * szFileLower = hb_strdup( ( char * ) szFile );
   BOOL bFileExist = hb_fsFile( ( BYTE * ) szFile );
   BOOL bReturn = TRUE;
   DWORD dwSize;

   CZipArchive szZip;
   SegmCallbackc span;
   SegmActionCallbackc spanac;

   szZip.SetSegmCallback( &span );

   #ifdef HB_OS_WIN_32
      hb_strLower( szFileLower, strlen( szFileLower ) );
   #endif

   try
   {
      if( ( bFileExist && bOverWrite ) || !bFileExist )
         szZip.Open( szFile, CZipArchive::zipCreate, 0 );
      else
         szZip.Open( szFile, CZipArchive::zipOpen, 0 );
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   if( bReturn )
   {
      if( szPassWord != NULL )
         szZip.SetPassword( szPassWord );

      if( hbza_pZipI.szComment != NULL )
      {
         szZip.SetGlobalComment( hbza_pZipI.szComment );
         hb_xfree( hbza_pZipI.szComment );
      }

      if( HB_IS_BLOCK( pProgress ) )
      {
         hbza_pProgressInfo = pProgress;
         szZip.SetCallback( &spanac );
      }

      for( ulCount = 1; ulCount <= hb_arrayLen( pArray ); ulCount++ )
      {
         szDummy = ( char * ) hb_arrayGetCPtr( pArray, ulCount );
         dwSize = hb_GetCurrentFileSize( szDummy );

         szDummyLower = hb_strdup( ( char * ) szDummy );

         #ifdef HB_OS_WIN_32
            hb_strLower( szDummyLower, strlen( szDummyLower ) );
         #endif

         /* Prevent adding current archive file. */
         if( strstr( szFileLower, szDummyLower ) == NULL && strstr( szDummyLower, szFileLower ) == NULL )
         {
            if( dwSize != ( DWORD ) -1 )
            {
               if( pBlock != NULL )
               {
                  PHB_ITEM FileName = hb_itemPutC( NULL, hb_arrayGetCPtr( pArray, ulCount ) ), FilePos = hb_itemPutNI( NULL, ulCount );

                  hb_vmEvalBlockV( pBlock, 2, FileName, FilePos );

                  hb_itemRelease( FileName );
                  hb_itemRelease( FilePos );
               }

               try
               {
                  if( bPath )
                     szZip.AddNewFile( szDummy, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 );
                  else if( !bDrive && !bPath )
                     szZip.AddNewFile( szDummy, iCompLevel, false, CZipArchive::zipsmSafeSmart, 65536 );
               }
               catch( ... )
               {}
            }
         }
         hb_xfree( szDummyLower );
      }
   }

   hb_xfree( szFileLower );

   try
   {
      szZip.Close();
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   return ( int ) bReturn;
}

int hb_CmpTdSpan( char *szFile, PHB_ITEM pArray, int iCompLevel, PHB_ITEM pBlock, BOOL bOverWrite, char *szPassWord, int iSpanSize, BOOL bPath, BOOL bDrive, PHB_ITEM pProgress )
{
   ULONG ulCount;
   const char * szDummy;
   DWORD dwSize;
   BOOL bReturn = TRUE;
   BOOL bFileExist = hb_fsFile( ( BYTE* )szFile );

   CZipArchive szZip;
   SegmCallbackc span;
   SegmActionCallbackc spanac;

   szZip.SetSegmCallback( &span );

   if( iSpanSize  == 0 )
      iSpanSize = 1457664;

   try
   {
      if( ( bFileExist && bOverWrite ) || !bFileExist )
         szZip.Open( szFile, CZipArchive::zipCreateSegm, iSpanSize );
      else
      {
         bReturn = FALSE;
         return ( int ) bReturn;
      }
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   //if( ! bReturn )
   {
      if( szPassWord != NULL )
         szZip.SetPassword( szPassWord );

      if( hbza_pZipI.szComment != NULL )
      {
         szZip.SetGlobalComment( hbza_pZipI.szComment );
         hb_xfree( hbza_pZipI.szComment );
      }

      if( HB_IS_BLOCK( pProgress ) )
      {
         hbza_pProgressInfo = pProgress;
         szZip.SetCallback( &spanac );
      }

      for( ulCount = 1; ulCount <= hb_arrayLen( pArray ); ulCount++ )
      {
         szDummy = ( char * ) hb_arrayGetCPtr( pArray, ulCount );
         dwSize = hb_GetCurrentFileSize( szDummy );

         if( dwSize != ( DWORD ) -1 )
         {
            if( pBlock != NULL )
            {
               PHB_ITEM FileName = hb_itemPutC( NULL, hb_arrayGetCPtr( pArray, ulCount ) ), FilePos = hb_itemPutNI( NULL, ulCount );

               hb_vmEvalBlockV( pBlock, 2, FileName,FilePos );

               hb_itemRelease( FileName );
               hb_itemRelease( FilePos );
            }

            try
            {
               if( bPath )
                  szZip.AddNewFile( szDummy, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 );
               else if( !bDrive && !bPath )
                  szZip.AddNewFile( szDummy, iCompLevel, false, CZipArchive::zipsmSafeSmart, 65536 );
            }
            catch( ... )
            {}
         }
      }
   }

   try
   {
      szZip.Close();
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   return ( int ) bReturn;
}

int hb_CompressFileStd( char *szFile, char *szFiletoCompress, int iCompLevel, PHB_ITEM pBlock, BOOL bOverWrite, char *szPassWord, BOOL bPath, BOOL bDrive, PHB_ITEM pProgress )
{
   DWORD dwSize;
   BOOL bFileExist = hb_fsFile( ( BYTE * ) szFile );
   BOOL bReturn    = TRUE;
   BOOL bAdded     = FALSE;

   CZipArchive szZip;
   SegmCallbackc span;
   SegmActionCallbackc spanac;

   szZip.SetSegmCallback( &span );

   try
   {
      if( ( bFileExist && bOverWrite ) || !bFileExist )
      {
         szZip.Open( szFile, CZipArchive::zipCreate, 0 );
      }
      else
      {
         szZip.Open( szFile, CZipArchive::zipOpen, 0 );
      }
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }

   if( bReturn )
   {
      if( szPassWord != NULL )
         szZip.SetPassword( szPassWord );

      if( hbza_pZipI.szComment != NULL )
      {
         szZip.SetGlobalComment( hbza_pZipI.szComment );
         hb_xfree( hbza_pZipI.szComment );
      }

      if( HB_IS_BLOCK( pProgress ) )
      {
         hbza_pProgressInfo = pProgress;
         szZip.SetCallback( &spanac );
      }

      try
      {
         dwSize = hb_GetCurrentFileSize( szFiletoCompress );

         if( dwSize != ( DWORD ) -1 )
         {
            if( pBlock != NULL )
            {
               PHB_ITEM FileName = hb_itemPutC( NULL, szFiletoCompress );

               hb_vmEvalBlockV( pBlock, 1, FileName );

               hb_itemRelease( FileName );
            }

            #if defined( HB_OS_WIN_32 ) && defined( HB_USE_DRIVE_ADD )
               if( bDrive && !bAdded )
               {
                  /* NOTE: Was AddNewFileDrv() */
                  if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 ) )
                     bReturn = FALSE;
                  else
                     bAdded = TRUE;
               }
            #endif

            if( bPath && !bAdded  )
            {
               if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 ) )
                  bReturn = FALSE;
            }
            else if( !bDrive && !bPath && !bAdded  )
            {
               if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, false, CZipArchive::zipsmSafeSmart, 65536 ) )
                  bReturn = FALSE;
            }
         }
      }
      catch( ... )
      {}
   }

   try
   {
      szZip.Close();
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   return ( int ) bReturn;
}

int hb_CmpTdSpanStd( char *szFile, char * szFiletoCompress, int iCompLevel, PHB_ITEM pBlock, BOOL bOverWrite, char *szPassWord, int iSpanSize, BOOL bPath, BOOL bDrive, PHB_ITEM pProgress )
{
   BOOL bAdded     = FALSE;
   BOOL bReturn    = TRUE;
   BOOL bFileExist = hb_fsFile( ( BYTE * ) szFile );

   CZipArchive szZip;
   SegmCallbackc span;
   SegmActionCallbackc spanac;

   szZip.SetSegmCallback( &span );

   if( iSpanSize  == 0 )
      iSpanSize = 1457664;

   try
   {
      if( ( bFileExist && bOverWrite ) || !bFileExist )
         szZip.Open( szFile, CZipArchive::zipCreateSegm, iSpanSize );
      else
         return ( int ) false;
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   if( szPassWord != NULL )
      szZip.SetPassword( szPassWord );

   if( hbza_pZipI.szComment != NULL )
   {
      szZip.SetGlobalComment( hbza_pZipI.szComment );
      hb_xfree( hbza_pZipI.szComment );
   }

   if( HB_IS_BLOCK( pProgress ) )
   {
      hbza_pProgressInfo = pProgress;
      szZip.SetCallback( &spanac );
   }

   if( bReturn )
   {
      try
      {
         if( szPassWord != NULL )
            szZip.SetPassword( szPassWord );

         if( pBlock != NULL )
         {
            PHB_ITEM FileName =hb_itemPutC( NULL, szFiletoCompress );

            hb_vmEvalBlockV( pBlock, 1, FileName );

            hb_itemRelease( FileName );
         }

         #if defined( HB_OS_WIN_32 )
            if( bDrive && !bAdded  )
            {
               /* NOTE: Was AddNewFileDrv() */
               if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 ) )
                  bReturn = FALSE;
               else
                  bAdded = TRUE;
            }
         #endif

         if( bPath && !bAdded )
         {
            if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, true, CZipArchive::zipsmSafeSmart, 65536 ) )
               bReturn = FALSE;
         }
         else if( !bDrive && !bPath && !bAdded  )
         {
            if( ! szZip.AddNewFile( szFiletoCompress, iCompLevel, false, CZipArchive::zipsmSafeSmart, 65536 ) )
               bReturn = FALSE;
         }
      }
      catch( ... )
      {}
   }

   try
   {
      szZip.Close();
   }
   catch( CZipException )
   {
      bReturn = FALSE;
   }
   catch( ... )
   {}

   return ( int ) bReturn;
}

#ifdef __cplusplus
}
#endif