WB 2.08.x

License

=======

Copyright (C) 2004-2005 Ryan Djurovich.

// --------------------------------------------------------------------------------

// PclZip 2.1 - readme.txt

// --------------------------------------------------------------------------------

// License GNU/LGPL - December 2003

// Vincent Blavet - vincent@phpconcept.net

// http://www.phpconcept.net

// --------------------------------------------------------------------------------

// $Id: readme.txt,v 1.1.1.1 2005/01/30 10:31:46 rdjurovich Exp $

// --------------------------------------------------------------------------------

0 - Sommaire

============

    1 - Introduction

    2 - What's new

    3 - Corrected bugs

    4 - Known bugs or limitations

    5 - License

    6 - Warning

    7 - Author

    8 - Contribute

1 - Introduction

================

  PclZip is a library that allow you to manage a Zip archive.

  Full documentation about PclZip can be found here : http://www.phpconcept.net/pclzip

2 - What's new

==============

  Version 2.1 :

    - Add the ability to abort the extraction by using a user callback function.

      The user can now return the value '2' in its callback which indicates to stop the

      extraction. For a pre call-back extract is stopped before the extration of the current

      file. For a post call back, the extraction is stopped after.

    - Add the ability to extract a file (or several files) directly in the standard output.

      This is done by the new parameter PCLZIP_OPT_EXTRACT_IN_OUTPUT with method extract().

    - Add support for parameters PCLZIP_OPT_COMMENT, PCLZIP_OPT_ADD_COMMENT,

      PCLZIP_OPT_PREPEND_COMMENT. This will create, replace, add, or prepend comments

      in the zip archive.

    - When merging two archives, the comments are not any more lost, but merged, with a 

      blank space separator.

    - Corrected bug : Files are not deleted when all files are asked to be deleted.

    - Corrected bug : Folders with name '0' made PclZip to abort the create or add feature.

  Version 2.0 :

    ***** Warning : Some new features may break the backward compatibility for your scripts.

                    Please carefully read the readme file.

    - Add the ability to delete by Index, name and regular expression. This feature is 

      performed by the method delete(), which uses the optional parameters

      PCLZIP_OPT_BY_INDEX, PCLZIP_OPT_BY_NAME, PCLZIP_OPT_BY_EREG or PCLZIP_OPT_BY_PREG.

    - Add the ability to extract by regular expression. To extract by regexp you must use the method

      extract(), with the option PCLZIP_OPT_BY_EREG or PCLZIP_OPT_BY_PREG 

      (depending if you want to use ereg() or preg_match() syntax) followed by the 

      regular expression pattern.

    - Add the ability to extract by index, directly with the extract() method. This is a

      code improvment of the extractByIndex() method.

    - Add the ability to extract by name. To extract by name you must use the method

      extract(), with the option PCLZIP_OPT_BY_NAME followed by the filename to

      extract or an array of filenames to extract. To extract all a folder, use the folder

      name rather than the filename with a '/' at the end.

    - Add the ability to add files without compression. This is done with a new attribute

      which is PCLZIP_OPT_NO_COMPRESSION.

    - Add the attribute PCLZIP_OPT_EXTRACT_AS_STRING, which allow to extract a file directly

      in a string without using any file (or temporary file).

    - Add constant PCLZIP_SEPARATOR for static configuration of filename separators in a single string.

      The default separator is now a comma (,) and not any more a blank space.

      THIS BREAK THE BACKWARD COMPATIBILITY : Please check if this may have an impact with

      your script.

    - Improve algorythm performance by removing the use of temporary files when adding or 

      extracting files in an archive.

    - Add (correct) detection of empty filename zipping. This can occurs when the removed

      path is the same

      as a zipped dir. The dir is not zipped (['status'] = filtered), only its content.

    - Add better support for windows paths (thanks for help from manus@manusfreedom.com).

    - Corrected bug : When the archive file already exists with size=0, the add() method

      fails. Corrected in 2.0.

    - Remove the use of OS_WINDOWS constant. Use php_uname() function rather.

    - Control the order of index ranges in extract by index feature.

    - Change the internal management of folders (better handling of internal flag).

  Version 1.3 :

    - Removing the double include check. This is now done by include_once() and require_once()

      PHP directives.

    - Changing the error handling mecanism : Remove the use of an external error library.

      The former PclError...() functions are replaced by internal equivalent methods.

      By changing the environment variable PCLZIP_ERROR_EXTERNAL you can still use the former library.

      Introducing the use of constants for error codes rather than integer values. This will help

      in futur improvment.

      Introduction of error handling functions like errorCode(), errorName() and errorInfo().

    - Remove the deprecated use of calling function with arguments passed by reference.

    - Add the calling of extract(), extractByIndex(), create() and add() functions

      with variable options rather than fixed arguments.

    - Add the ability to remove all the file path while extracting or adding,

      without any need to specify the path to remove.

      This is available for extract(), extractByIndex(), create() and add() functionS by using

      the new variable options parameters :

      - PCLZIP_OPT_REMOVE_ALL_PATH : by indicating this option while calling the fct.

    - Ability to change the mode of a file after the extraction (chmod()).

      This is available for extract() and extractByIndex() functionS by using

      the new variable options parameters.

      - PCLZIP_OPT_SET_CHMOD : by setting the value of this option.

    - Ability to definition call-back options. These call-back will be called during the adding,

      or the extracting of file (extract(), extractByIndex(), create() and add() functions) :

      - PCLZIP_CB_PRE_EXTRACT : will be called before each extraction of a file. The user

        can trigerred the change the filename of the extracted file. The user can triggered the

        skip of the extraction. This is adding a 'skipped' status in the file list result value.

      - PCLZIP_CB_POST_EXTRACT : will be called after each extraction of a file.

        Nothing can be triggered from that point.

      - PCLZIP_CB_PRE_ADD : will be called before each add of a file. The user

        can trigerred the change the stored filename of the added file. The user can triggered the

        skip of the add. This is adding a 'skipped' status in the file list result value.

      - PCLZIP_CB_POST_ADD : will be called after each add of a file.

        Nothing can be triggered from that point.

    - Two status are added in the file list returned as function result : skipped & filename_too_long

      'skipped' is used when a call-back function ask for skipping the file.

      'filename_too_long' is used while adding a file with a too long filename to archive (the file is

      not added)

    - Adding the function PclZipUtilPathInclusion(), that check the inclusion of a path into

      a directory.

    - Add a check of the presence of the archive file before some actions (like list, ...)

    - Add the initialisation of field "index" in header array. This means that by

      default index will be -1 when not explicitly set by the methods.

  Version 1.2 :

    - Adding a duplicate function.

    - Adding a merge function. The merge function is a "quick merge" function,

      it just append the content of an archive at the end of the first one. There

      is no check for duplicate files or more recent files.

    - Improve the search of the central directory end.

  Version 1.1.2 :

    - Changing the license of PclZip. PclZip is now released under the GNU / LGPL license

      (see License section).

    - Adding the optional support of a static temporary directory. You will need to configure

      the constant PCLZIP_TEMPORARY_DIR if you want to use this feature.

    - Improving the rename() function. In some cases rename() does not work (different

      Filesystems), so it will be replaced by a copy() + unlink() functions.

  Version 1.1.1 :

    - Maintenance release, no new feature.

  Version 1.1 :

    - New method Add() : adding files in the archive

    - New method ExtractByIndex() : partial extract of the archive, files are identified by

      their index in the archive

    - New method DeleteByIndex() : delete some files/folder entries from the archive,

      files are identified by their index in the archive.

    - Adding a test of the zlib extension presence. If not present abort the script.

  Version 1.0.1 :

    - No new feature

3 - Corrected bugs

==================

  Corrected in Version 2.0 :

    - Corrected : During an extraction, if a call-back fucntion is used and try to skip

                  a file, all the extraction process is stopped. 

  Corrected in Version 1.3 :

    - Corrected : Support of static synopsis for method extract() is broken.

    - Corrected : invalid size of archive content field (0xFF) should be (0xFFFF).

    - Corrected : When an extract is done with a remove_path parameter, the entry for

      the directory with exactly the same path is not skipped/filtered.

    - Corrected : extractByIndex() and deleteByIndex() were not managing index in the

      right way. For example indexes '1,3-5,11' will only extract files 1 and 11. This

      is due to a sort of the index resulting table that puts 11 before 3-5 (sort on

      string and not interger). The sort is temporarilly removed, this means that

      you must provide a sorted list of index ranges.

  Corrected in Version 1.2 :

    - Nothing.

  Corrected in Version 1.1.2 :

    - Corrected : Winzip is unable to delete or add new files in a PclZip created archives.

  Corrected in Version 1.1.1 :

    - Corrected : When archived file is not compressed (0% compression), the

      extract method fails.

  Corrected in Version 1.1 :

    - Corrected : Adding a complete tree of folder may result in a bad archive

      creation.

  Corrected in Version 1.0.1 :

    - Corrected : Error while compressing files greater than PCLZIP_READ_BLOCK_SIZE (default=1024).

4 - Known bugs or limitations

=============================

  Please publish bugs reports in SourceForge :

    http://sourceforge.net/tracker/?group_id=40254&atid=427564

  In Version 1.2 :

    - merge() methods does not check for duplicate files or last date of modifications.

  In Version 1.1 :

    - Limitation : Using 'extract' fields in the file header in the zip archive is not supported.

    - WinZip is unable to delete a single file in a PclZip created archive. It is also unable to

      add a file in a PclZip created archive. (Corrected in v.1.2)

  In Version 1.0.1 :

    - Adding a complete tree of folder may result in a bad archive

      creation. (Corrected in V.1.1).

    - Path given to methods must be in the unix format (/) and not the Windows format (\).

      Workaround : Use only / directory separators.

    - PclZip is using temporary files that are sometime the name of the file with a .tmp or .gz

      added suffix. Files with these names may already exist and may be overwritten.

      Workaround : none.

    - PclZip does not check if the zlib extension is present. If it is absent, the zip

      file is not created and the lib abort without warning.

      Workaround : enable the zlib extension on the php install

  In Version 1.0 :

    - Error while compressing files greater than PCLZIP_READ_BLOCK_SIZE (default=1024).

      (Corrected in v.1.0.1)

    - Limitation : Multi-disk zip archive are not supported.

5 - License

===========

  Since version 1.1.2, PclZip Library is released under GNU/LGPL license.

  This library is free, so you can use it at no cost.

  HOWEVER, if you release a script, an application, a library or any kind of

  code using PclZip library (or a part of it), YOU MUST :

  - Indicate in the documentation (or a readme file), that your work

    uses PclZip Library, and make a reference to the author and the web site

    http://www.phpconcept.net

  - Gives the ability to the final user to update the PclZip libary.

  I will also appreciate that you send me a mail (vincent@phpconcept.net), just to

  be aware that someone is using PclZip.

  For more information about GNU/LGPL license : http://www.gnu.org

6 - Warning

=================

  This library and the associated files are non commercial, non professional work.

  It should not have unexpected results. However if any damage is caused by this software

  the author can not be responsible.

  The use of this software is at the risk of the user.

7 - Author

==========

  This software was written by Vincent Blavet (vincent@phpconcept.net) on its leasure time.

8 - Contribute

==============

  If you want to contribute to the development of PclZip, please contact vincent@phpconcept.net.

  If you can help in financing PhpConcept hosting service, please go to

<?php

// --------------------------------------------------------------------------------

// PhpConcept Library - Zip Module 2.1

// --------------------------------------------------------------------------------

// License GNU/LGPL - Vincent Blavet - December 2003

// http://www.phpconcept.net

// --------------------------------------------------------------------------------

//

// Presentation :

//   PclZip is a PHP library that manage ZIP archives.

//   So far tests show that archives generated by PclZip are readable by

//   WinZip application and other tools.

//

// Description :

//   See readme.txt and http://www.phpconcept.net

//

// Warning :

//   This library and the associated files are non commercial, non professional

//   work.

//   It should not have unexpected results. However if any damage is caused by

//   this software the author can not be responsible.

//   The use of this software is at the risk of the user.

//

// --------------------------------------------------------------------------------

// $Id: pclzip.lib.php,v 1.1.1.1 2005/01/30 10:31:59 rdjurovich Exp $

// --------------------------------------------------------------------------------

  // ----- Constants

  define( 'PCLZIP_READ_BLOCK_SIZE', 2048 );

  // ----- File list separator

  // In version 1.x of PclZip, the separator for file list is a space

  // (which is not a very smart choice, specifically for windows paths !).

  // A better separator should be a comma (,). This constant gives you the

  // abilty to change that.

  // However notice that changing this value, may have impact on existing

  // scripts, using space separated filenames.

  // Recommanded values for compatibility with older versions :

  //define( 'PCLZIP_SEPARATOR', ' ' );

  // Recommanded values for smart separation of filenames.

  define( 'PCLZIP_SEPARATOR', ',' );

  // ----- Error configuration

  // 0 : PclZip Class integrated error handling

  // 1 : PclError external library error handling. By enabling this

  //     you must ensure that you have included PclError library.

  // [2,...] : reserved for futur use

  define( 'PCLZIP_ERROR_EXTERNAL', 0 );

  // ----- Optional static temporary directory

  //       By default temporary files are generated in the script current

  //       path.

  //       If defined :

  //       - MUST BE terminated by a '/'.

  //       - MUST be a valid, already created directory

  //       Samples :

  // define( 'PCLZIP_TEMPORARY_DIR', '/temp/' );

  // define( 'PCLZIP_TEMPORARY_DIR', 'C:/Temp/' );

  define( 'PCLZIP_TEMPORARY_DIR', '' );

// --------------------------------------------------------------------------------

// ***** UNDER THIS LINE NOTHING NEEDS TO BE MODIFIED *****

// --------------------------------------------------------------------------------

  // ----- Global variables

  $g_pclzip_version = "2.1";

  // ----- Error codes

  //   -1 : Unable to open file in binary write mode

  //   -2 : Unable to open file in binary read mode

  //   -3 : Invalid parameters

  //   -4 : File does not exist

  //   -5 : Filename is too long (max. 255)

  //   -6 : Not a valid zip file

  //   -7 : Invalid extracted file size

  //   -8 : Unable to create directory

  //   -9 : Invalid archive extension

  //  -10 : Invalid archive format

  //  -11 : Unable to delete file (unlink)

  //  -12 : Unable to rename file (rename)

  //  -13 : Invalid header checksum

  //  -14 : Invalid archive size

  define( 'PCLZIP_ERR_USER_ABORTED', 2 );

  define( 'PCLZIP_ERR_NO_ERROR', 0 );

  define( 'PCLZIP_ERR_WRITE_OPEN_FAIL', -1 );

  define( 'PCLZIP_ERR_READ_OPEN_FAIL', -2 );

  define( 'PCLZIP_ERR_INVALID_PARAMETER', -3 );

  define( 'PCLZIP_ERR_MISSING_FILE', -4 );

  define( 'PCLZIP_ERR_FILENAME_TOO_LONG', -5 );

  define( 'PCLZIP_ERR_INVALID_ZIP', -6 );

  define( 'PCLZIP_ERR_BAD_EXTRACTED_FILE', -7 );

  define( 'PCLZIP_ERR_DIR_CREATE_FAIL', -8 );

  define( 'PCLZIP_ERR_BAD_EXTENSION', -9 );

  define( 'PCLZIP_ERR_BAD_FORMAT', -10 );

  define( 'PCLZIP_ERR_DELETE_FILE_FAIL', -11 );

  define( 'PCLZIP_ERR_RENAME_FILE_FAIL', -12 );

  define( 'PCLZIP_ERR_BAD_CHECKSUM', -13 );

  define( 'PCLZIP_ERR_INVALID_ARCHIVE_ZIP', -14 );

  define( 'PCLZIP_ERR_MISSING_OPTION_VALUE', -15 );

  define( 'PCLZIP_ERR_INVALID_OPTION_VALUE', -16 );

  // ----- Options values

  define( 'PCLZIP_OPT_PATH', 77001 );

  define( 'PCLZIP_OPT_ADD_PATH', 77002 );

  define( 'PCLZIP_OPT_REMOVE_PATH', 77003 );

  define( 'PCLZIP_OPT_REMOVE_ALL_PATH', 77004 );

  define( 'PCLZIP_OPT_SET_CHMOD', 77005 );

  define( 'PCLZIP_OPT_EXTRACT_AS_STRING', 77006 );

  define( 'PCLZIP_OPT_NO_COMPRESSION', 77007 );

  define( 'PCLZIP_OPT_BY_NAME', 77008 );

  define( 'PCLZIP_OPT_BY_INDEX', 77009 );

  define( 'PCLZIP_OPT_BY_EREG', 77010 );

  define( 'PCLZIP_OPT_BY_PREG', 77011 );

  define( 'PCLZIP_OPT_COMMENT', 77012 );

  define( 'PCLZIP_OPT_ADD_COMMENT', 77013 );

  define( 'PCLZIP_OPT_PREPEND_COMMENT', 77014 );

  define( 'PCLZIP_OPT_EXTRACT_IN_OUTPUT', 77015 );

  // ----- Call backs values

  define( 'PCLZIP_CB_PRE_EXTRACT', 78001 );

  define( 'PCLZIP_CB_POST_EXTRACT', 78002 );

  define( 'PCLZIP_CB_PRE_ADD', 78003 );

  define( 'PCLZIP_CB_POST_ADD', 78004 );

  /* For futur use

  define( 'PCLZIP_CB_PRE_LIST', 78005 );

  define( 'PCLZIP_CB_POST_LIST', 78006 );

  define( 'PCLZIP_CB_PRE_DELETE', 78007 );

  define( 'PCLZIP_CB_POST_DELETE', 78008 );

  */

  // --------------------------------------------------------------------------------

  // Class : PclZip

  // Description :

  //   PclZip is the class that represent a Zip archive.

  //   The public methods allow the manipulation of the archive.

  // Attributes :

  //   Attributes must not be accessed directly.

  // Methods :

  //   PclZip() : Object creator

  //   create() : Creates the Zip archive

  //   listContent() : List the content of the Zip archive

  //   extract() : Extract the content of the archive

  //   properties() : List the properties of the archive

  // --------------------------------------------------------------------------------

  class PclZip

  {

    // ----- Filename of the zip file

    var $zipname = '';

    // ----- File descriptor of the zip file

    var $zip_fd = 0;

    // ----- Internal error handling

    var $error_code = 1;

    var $error_string = '';

  // --------------------------------------------------------------------------------

  // Function : PclZip()

  // Description :

  //   Creates a PclZip object and set the name of the associated Zip archive

  //   filename.

  //   Note that no real action is taken, if the archive does not exist it is not

  //   created. Use create() for that.

  // --------------------------------------------------------------------------------

  function PclZip($p_zipname)

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::PclZip', "zipname=$p_zipname");

    // ----- Tests the zlib

    if (!function_exists('gzopen'))

    {

      //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 1, "zlib extension seems to be missing");

      die('Abort '.basename(__FILE__).' : Missing zlib extensions');

    }

    // ----- Set the attributes

    $this->zipname = $p_zipname;

    $this->zip_fd = 0;

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 1);

    return;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function :

  //   create($p_filelist, $p_add_dir="", $p_remove_dir="")

  //   create($p_filelist, $p_option, $p_option_value, ...)

  // Description :

  //   This method supports two different synopsis. The first one is historical.

  //   This method creates a Zip Archive. The Zip file is created in the

  //   filesystem. The files and directories indicated in $p_filelist

  //   are added in the archive. See the parameters description for the

  //   supported format of $p_filelist.

  //   When a directory is in the list, the directory and its content is added

  //   in the archive.

  //   In this synopsis, the function takes an optional variable list of

  //   options. See bellow the supported options.

  // Parameters :

  //   $p_filelist : An array containing file or directory names, or

  //                 a string containing one filename or one directory name, or

  //                 a string containing a list of filenames and/or directory

  //                 names separated by spaces.

  //   $p_add_dir : A path to add before the real path of the archived file,

  //                in order to have it memorized in the archive.

  //   $p_remove_dir : A path to remove from the real path of the file to archive,

  //                   in order to have a shorter path memorized in the archive.

  //                   When $p_add_dir and $p_remove_dir are set, $p_remove_dir

  //                   is removed first, before $p_add_dir is added.

  // Options :

  //   PCLZIP_OPT_ADD_PATH :

  //   PCLZIP_OPT_REMOVE_PATH :

  //   PCLZIP_OPT_REMOVE_ALL_PATH :

  //   PCLZIP_OPT_COMMENT :

  //   PCLZIP_CB_PRE_ADD :

  //   PCLZIP_CB_POST_ADD :

  // Return Values :

  //   0 on failure,

  //   The list of the added files, with a status of the add action.

  //   (see PclZip::listContent() for list entry format)

  // --------------------------------------------------------------------------------

//  function create($p_filelist, $p_add_dir="", $p_remove_dir="")

  function create($p_filelist /*, options */)

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::create', "filelist='$p_filelist', ...");

    $v_result=1;

    // ----- Reset the error handler

    $this->privErrorReset();

    // ----- Set default values

    $v_options = array();

    $v_add_path = "";

    $v_remove_path = "";

    $v_remove_all_path = false;

    $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;

    // ----- Look for variable options arguments

    $v_size = func_num_args();

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");

    // ----- Look for arguments

    if ($v_size > 1) {

      // ----- Get the arguments

      $v_arg_list = &func_get_args();

      // ----- Remove form the options list the first argument

      array_shift($v_arg_list);

      $v_size--;

      // ----- Look for first arg

      if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options detected");

        // ----- Parse the options

        $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,

                                            array (PCLZIP_OPT_REMOVE_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',

                                                   PCLZIP_OPT_ADD_PATH => 'optional',

                                                   PCLZIP_CB_PRE_ADD => 'optional',

                                                   PCLZIP_CB_POST_ADD => 'optional',

                                                   PCLZIP_OPT_NO_COMPRESSION => 'optional',

                                                   PCLZIP_OPT_COMMENT => 'optional' ));

        if ($v_result != 1) {

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

          return 0;

        }

        // ----- Set the arguments

        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {

          $v_add_path = $v_options[PCLZIP_OPT_ADD_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {

          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {

          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];

        }

      }

      // ----- Look for 2 args

      // Here we need to support the first historic synopsis of the

      // method.

      else {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");

        // ----- Get the first argument

        $v_add_path = $v_arg_list[0];

        // ----- Look for the optional second argument

        if ($v_size == 2) {

          $v_remove_path = $v_arg_list[1];

        }

        else if ($v_size > 2) {

          // ----- Error log

          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER,

		                       "Invalid number / type of arguments");

          // ----- Return

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());

          return 0;

        }

      }

    }

    // ----- Trace

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "add_path='$v_add_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_all_path?'true':'false')."'");

    // ----- Look if the $p_filelist is really an array

    $p_result_list = array();

    if (is_array($p_filelist))

    {

      // ----- Call the create fct

      $v_result = $this->privCreate($p_filelist, $p_result_list, $v_add_path, $v_remove_path, $v_remove_all_path, $v_options);

    }

    // ----- Look if the $p_filelist is a string

    else if (is_string($p_filelist))

    {

      // ----- Create a list with the elements from the string

      $v_list = explode(PCLZIP_SEPARATOR, $p_filelist);

      // ----- Call the create fct

      $v_result = $this->privCreate($v_list, $p_result_list, $v_add_path, $v_remove_path, $v_remove_all_path, $v_options);

    }

    // ----- Invalid variable

    else

    {

      // ----- Error log

      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_filelist");

      $v_result = PCLZIP_ERR_INVALID_PARAMETER;

    }

    if ($v_result != 1)

    {

      // ----- Return

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

      return 0;

    }

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);

    return $p_result_list;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function :

  //   add($p_filelist, $p_add_dir="", $p_remove_dir="")

  //   add($p_filelist, $p_option, $p_option_value, ...)

  // Description :

  //   This method supports two synopsis. The first one is historical.

  //   This methods add the list of files in an existing archive.

  //   If a file with the same name already exists, it is added at the end of the

  //   archive, the first one is still present.

  //   If the archive does not exist, it is created.

  // Parameters :

  //   $p_filelist : An array containing file or directory names, or

  //                 a string containing one filename or one directory name, or

  //                 a string containing a list of filenames and/or directory

  //                 names separated by spaces.

  //   $p_add_dir : A path to add before the real path of the archived file,

  //                in order to have it memorized in the archive.

  //   $p_remove_dir : A path to remove from the real path of the file to archive,

  //                   in order to have a shorter path memorized in the archive.

  //                   When $p_add_dir and $p_remove_dir are set, $p_remove_dir

  //                   is removed first, before $p_add_dir is added.

  // Options :

  //   PCLZIP_OPT_ADD_PATH :

  //   PCLZIP_OPT_REMOVE_PATH :

  //   PCLZIP_OPT_REMOVE_ALL_PATH :

  //   PCLZIP_OPT_COMMENT :

  //   PCLZIP_OPT_ADD_COMMENT :

  //   PCLZIP_OPT_PREPEND_COMMENT :

  //   PCLZIP_CB_PRE_ADD :

  //   PCLZIP_CB_POST_ADD :

  // Return Values :

  //   0 on failure,

  //   The list of the added files, with a status of the add action.

  //   (see PclZip::listContent() for list entry format)

  // --------------------------------------------------------------------------------

//  function add($p_filelist, $p_add_dir="", $p_remove_dir="")

  function add($p_filelist /* options */)

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::add', "filelist='$p_filelist', ...");

    $v_result=1;

    // ----- Reset the error handler

    $this->privErrorReset();

    // ----- Set default values

    $v_options = array();

    $v_add_path = "";

    $v_remove_path = "";

    $v_remove_all_path = false;

    $v_options[PCLZIP_OPT_NO_COMPRESSION] = FALSE;

    // ----- Look for variable options arguments

    $v_size = func_num_args();

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");

    // ----- Look for arguments

    if ($v_size > 1) {

      // ----- Get the arguments

      $v_arg_list = &func_get_args();

      // ----- Remove form the options list the first argument

      array_shift($v_arg_list);

      $v_size--;

      // ----- Look for first arg

      if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options detected");

        // ----- Parse the options

        $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,

                                            array (PCLZIP_OPT_REMOVE_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',

                                                   PCLZIP_OPT_ADD_PATH => 'optional',

                                                   PCLZIP_CB_PRE_ADD => 'optional',

                                                   PCLZIP_CB_POST_ADD => 'optional',

                                                   PCLZIP_OPT_NO_COMPRESSION => 'optional',

                                                   PCLZIP_OPT_COMMENT => 'optional',

                                                   PCLZIP_OPT_ADD_COMMENT => 'optional',

                                                   PCLZIP_OPT_PREPEND_COMMENT => 'optional' ));

        if ($v_result != 1) {

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

          return 0;

        }

        // ----- Set the arguments

        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {

          $v_add_path = $v_options[PCLZIP_OPT_ADD_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {

          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {

          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];

        }

      }

      // ----- Look for 2 args

      // Here we need to support the first historic synopsis of the

      // method.

      else {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");

        // ----- Get the first argument

        $v_add_path = $v_arg_list[0];

        // ----- Look for the optional second argument

        if ($v_size == 2) {

          $v_remove_path = $v_arg_list[1];

        }

        else if ($v_size > 2) {

          // ----- Error log

          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");

          // ----- Return

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());

          return 0;

        }

      }

    }

    // ----- Trace

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "add_path='$v_add_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_all_path?'true':'false')."'");

    // ----- Look if the $p_filelist is really an array

    $p_result_list = array();

    if (is_array($p_filelist))

    {

      // ----- Call the create fct

      $v_result = $this->privAdd($p_filelist, $p_result_list, $v_add_path, $v_remove_path, $v_remove_all_path, $v_options);

    }

    // ----- Look if the $p_filelist is a string

    else if (is_string($p_filelist))

    {

      // ----- Create a list with the elements from the string

      $v_list = explode(PCLZIP_SEPARATOR, $p_filelist);

      // ----- Call the create fct

      $v_result = $this->privAdd($v_list, $p_result_list, $v_add_path, $v_remove_path, $v_remove_all_path, $v_options);

    }

    // ----- Invalid variable

    else

    {

      // ----- Error log

      PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid variable type p_filelist");

      $v_result = PCLZIP_ERR_INVALID_PARAMETER;

    }

    if ($v_result != 1)

    {

      // ----- Return

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

      return 0;

    }

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_result_list);

    return $p_result_list;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function : listContent()

  // Description :

  //   This public method, gives the list of the files and directories, with their

  //   properties.

  //   The properties of each entries in the list are (used also in other functions) :

  //     filename : Name of the file. For a create or add action it is the filename

  //                given by the user. For an extract function it is the filename

  //                of the extracted file.

  //     stored_filename : Name of the file / directory stored in the archive.

  //     size : Size of the stored file.

  //     compressed_size : Size of the file's data compressed in the archive

  //                       (without the headers overhead)

  //     mtime : Last known modification date of the file (UNIX timestamp)

  //     comment : Comment associated with the file

  //     folder : true | false

  //     index : index of the file in the archive

  //     status : status of the action (depending of the action) :

  //              Values are :

  //                ok : OK !

  //                filtered : the file / dir is not extracted (filtered by user)

  //                already_a_directory : the file can not be extracted because a

  //                                      directory with the same name already exists

  //                write_protected : the file can not be extracted because a file

  //                                  with the same name already exists and is

  //                                  write protected

  //                newer_exist : the file was not extracted because a newer file exists

  //                path_creation_fail : the file is not extracted because the folder

  //                                     does not exists and can not be created

  //                write_error : the file was not extracted because there was a

  //                              error while writing the file

  //                read_error : the file was not extracted because there was a error

  //                             while reading the file

  //                invalid_header : the file was not extracted because of an archive

  //                                 format error (bad file header)

  //   Note that each time a method can continue operating when there

  //   is an action error on a file, the error is only logged in the file status.

  // Return Values :

  //   0 on an unrecoverable failure,

  //   The list of the files in the archive.

  // --------------------------------------------------------------------------------

  function listContent()

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, 'PclZip::listContent', "");

    $v_result=1;

    // ----- Reset the error handler

    $this->privErrorReset();

    // ----- Check archive

    if (!$this->privCheckFormat()) {

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

      return(0);

    }

    // ----- Call the extracting fct

    $p_list = array();

    if (($v_result = $this->privList($p_list)) != 1)

    {

      unset($p_list);

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());

      return(0);

    }

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);

    return $p_list;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function :

  //   extract($p_path="./", $p_remove_path="")

  //   extract([$p_option, $p_option_value, ...])

  // Description :

  //   This method supports two synopsis. The first one is historical.

  //   This method extract all the files / directories from the archive to the

  //   folder indicated in $p_path.

  //   If you want to ignore the 'root' part of path of the memorized files

  //   you can indicate this in the optional $p_remove_path parameter.

  //   By default, if a newer file with the same name already exists, the

  //   file is not extracted.

  //

  //   If both PCLZIP_OPT_PATH and PCLZIP_OPT_ADD_PATH aoptions

  //   are used, the path indicated in PCLZIP_OPT_ADD_PATH is append

  //   at the end of the path value of PCLZIP_OPT_PATH.

  // Parameters :

  //   $p_path : Path where the files and directories are to be extracted

  //   $p_remove_path : First part ('root' part) of the memorized path

  //                    (if any similar) to remove while extracting.

  // Options :

  //   PCLZIP_OPT_PATH :

  //   PCLZIP_OPT_ADD_PATH :

  //   PCLZIP_OPT_REMOVE_PATH :

  //   PCLZIP_OPT_REMOVE_ALL_PATH :

  //   PCLZIP_CB_PRE_EXTRACT :

  //   PCLZIP_CB_POST_EXTRACT :

  // Return Values :

  //   0 or a negative value on failure,

  //   The list of the extracted files, with a status of the action.

  //   (see PclZip::listContent() for list entry format)

  // --------------------------------------------------------------------------------

  //function extract($p_path="./", $p_remove_path="")

  function extract(/* options */)

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::extract", "");

    $v_result=1;

    // ----- Reset the error handler

    $this->privErrorReset();

    // ----- Check archive

    if (!$this->privCheckFormat()) {

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

      return(0);

    }

    // ----- Set default values

    $v_options = array();

    $v_path = "./";

    $v_remove_path = "";

    $v_remove_all_path = false;

    // ----- Look for variable options arguments

    $v_size = func_num_args();

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");

    // ----- Default values for option

    $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

    // ----- Look for arguments

    if ($v_size > 0) {

      // ----- Get the arguments

      $v_arg_list = &func_get_args();

      // ----- Look for first arg

      if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options");

        // ----- Parse the options

        $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,

                                            array (PCLZIP_OPT_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',

                                                   PCLZIP_OPT_ADD_PATH => 'optional',

                                                   PCLZIP_CB_PRE_EXTRACT => 'optional',

                                                   PCLZIP_CB_POST_EXTRACT => 'optional',

                                                   PCLZIP_OPT_SET_CHMOD => 'optional',

                                                   PCLZIP_OPT_BY_NAME => 'optional',

                                                   PCLZIP_OPT_BY_EREG => 'optional',

                                                   PCLZIP_OPT_BY_PREG => 'optional',

                                                   PCLZIP_OPT_BY_INDEX => 'optional',

                                                   PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',

                                                   PCLZIP_OPT_EXTRACT_IN_OUTPUT => 'optional' ));

        if ($v_result != 1) {

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

          return 0;

        }

        // ----- Set the arguments

        if (isset($v_options[PCLZIP_OPT_PATH])) {

          $v_path = $v_options[PCLZIP_OPT_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {

          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {

          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {

          // ----- Check for '/' in last path char

          if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {

            $v_path .= '/';

          }

          $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];

        }

      }

      // ----- Look for 2 args

      // Here we need to support the first historic synopsis of the

      // method.

      else {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");

        // ----- Get the first argument

        $v_path = $v_arg_list[0];

        // ----- Look for the optional second argument

        if ($v_size == 2) {

          $v_remove_path = $v_arg_list[1];

        }

        else if ($v_size > 2) {

          // ----- Error log

          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");

          // ----- Return

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());

          return 0;

        }

      }

    }

    // ----- Trace

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "path='$v_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_path?'true':'false')."'");

    // ----- Call the extracting fct

    $p_list = array();

    $v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path,

	                                     $v_remove_all_path, $v_options);

    if ($v_result < 1) {

      unset($p_list);

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());

      return(0);

    }

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);

    return $p_list;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function :

  //   extractByIndex($p_index, $p_path="./", $p_remove_path="")

  //   extractByIndex($p_index, [$p_option, $p_option_value, ...])

  // Description :

  //   This method supports two synopsis. The first one is historical.

  //   This method is doing a partial extract of the archive.

  //   The extracted files or folders are identified by their index in the

  //   archive (from 0 to n).

  //   Note that if the index identify a folder, only the folder entry is

  //   extracted, not all the files included in the archive.

  // Parameters :

  //   $p_index : A single index (integer) or a string of indexes of files to

  //              extract. The form of the string is "0,4-6,8-12" with only numbers

  //              and '-' for range or ',' to separate ranges. No spaces or ';'

  //              are allowed.

  //   $p_path : Path where the files and directories are to be extracted

  //   $p_remove_path : First part ('root' part) of the memorized path

  //                    (if any similar) to remove while extracting.

  // Options :

  //   PCLZIP_OPT_PATH :

  //   PCLZIP_OPT_ADD_PATH :

  //   PCLZIP_OPT_REMOVE_PATH :

  //   PCLZIP_OPT_REMOVE_ALL_PATH :

  //   PCLZIP_OPT_EXTRACT_AS_STRING : The files are extracted as strings and

  //     not as files.

  //     The resulting content is in a new field 'content' in the file

  //     structure.

  //     This option must be used alone (any other options are ignored).

  //   PCLZIP_CB_PRE_EXTRACT :

  //   PCLZIP_CB_POST_EXTRACT :

  // Return Values :

  //   0 on failure,

  //   The list of the extracted files, with a status of the action.

  //   (see PclZip::listContent() for list entry format)

  // --------------------------------------------------------------------------------

  function extractByIndex($p_index /* $options */)

  {

    //--(MAGIC-PclTrace)--//PclTraceFctStart(__FILE__, __LINE__, "PclZip::extractByIndex", "index='$p_index', ...");

    $v_result=1;

    // ----- Reset the error handler

    $this->privErrorReset();

    // ----- Check archive

    if (!$this->privCheckFormat()) {

      //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

      return(0);

    }

    // ----- Set default values

    $v_options = array();

    $v_path = "./";

    $v_remove_path = "";

    $v_remove_all_path = false;

    // ----- Look for variable options arguments

    $v_size = func_num_args();

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "$v_size arguments passed to the method");

    // ----- Default values for option

    $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

    // ----- Look for arguments

    if ($v_size > 1) {

      // ----- Get the arguments

      $v_arg_list = &func_get_args();

      // ----- Remove form the options list the first argument

      array_shift($v_arg_list);

      $v_size--;

      // ----- Look for first arg

      if ((is_integer($v_arg_list[0])) && ($v_arg_list[0] > 77000)) {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Variable list of options");

        // ----- Parse the options

        $v_result = $this->privParseOptions($v_arg_list, $v_size, $v_options,

                                            array (PCLZIP_OPT_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_PATH => 'optional',

                                                   PCLZIP_OPT_REMOVE_ALL_PATH => 'optional',

                                                   PCLZIP_OPT_EXTRACT_AS_STRING => 'optional',

                                                   PCLZIP_OPT_ADD_PATH => 'optional',

                                                   PCLZIP_CB_PRE_EXTRACT => 'optional',

                                                   PCLZIP_CB_POST_EXTRACT => 'optional',

                                                   PCLZIP_OPT_SET_CHMOD => 'optional' ));

        if ($v_result != 1) {

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

          return 0;

        }

        // ----- Set the arguments

        if (isset($v_options[PCLZIP_OPT_PATH])) {

          $v_path = $v_options[PCLZIP_OPT_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_PATH])) {

          $v_remove_path = $v_options[PCLZIP_OPT_REMOVE_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_REMOVE_ALL_PATH])) {

          $v_remove_all_path = $v_options[PCLZIP_OPT_REMOVE_ALL_PATH];

        }

        if (isset($v_options[PCLZIP_OPT_ADD_PATH])) {

          // ----- Check for '/' in last path char

          if ((strlen($v_path) > 0) && (substr($v_path, -1) != '/')) {

            $v_path .= '/';

          }

          $v_path .= $v_options[PCLZIP_OPT_ADD_PATH];

        }

        if (!isset($v_options[PCLZIP_OPT_EXTRACT_AS_STRING])) {

          $v_options[PCLZIP_OPT_EXTRACT_AS_STRING] = FALSE;

          //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Option PCLZIP_OPT_EXTRACT_AS_STRING not set.");

        }

        else {

            //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 4, "Option PCLZIP_OPT_EXTRACT_AS_STRING set.");

        }

      }

      // ----- Look for 2 args

      // Here we need to support the first historic synopsis of the

      // method.

      else {

        //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 3, "Static synopsis");

        // ----- Get the first argument

        $v_path = $v_arg_list[0];

        // ----- Look for the optional second argument

        if ($v_size == 2) {

          $v_remove_path = $v_arg_list[1];

        }

        else if ($v_size > 2) {

          // ----- Error log

          PclZip::privErrorLog(PCLZIP_ERR_INVALID_PARAMETER, "Invalid number / type of arguments");

          // ----- Return

          //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, PclZip::errorCode(), PclZip::errorInfo());

          return 0;

        }

      }

    }

    // ----- Trace

    //--(MAGIC-PclTrace)--//PclTraceFctMessage(__FILE__, __LINE__, 2, "index='$p_index', path='$v_path', remove_path='$v_remove_path', remove_all_path='".($v_remove_path?'true':'false')."'");

    // ----- Trick

    // Here I want to reuse extractByRule(), so I need to parse the $p_index

    // with privParseOptions()

    $v_arg_trick = array (PCLZIP_OPT_BY_INDEX, $p_index);

    $v_options_trick = array();

    $v_result = $this->privParseOptions($v_arg_trick, sizeof($v_arg_trick), $v_options_trick,

                                        array (PCLZIP_OPT_BY_INDEX => 'optional' ));

    if ($v_result != 1) {

        //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0);

        return 0;

    }

    $v_options[PCLZIP_OPT_BY_INDEX] = $v_options_trick[PCLZIP_OPT_BY_INDEX];

    // ----- Call the extracting fct

    if (($v_result = $this->privExtractByRule($p_list, $v_path, $v_remove_path, $v_remove_all_path, $v_options)) < 1) {

        //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, 0, PclZip::errorInfo());

        return(0);

    }

    // ----- Return

    //--(MAGIC-PclTrace)--//PclTraceFctEnd(__FILE__, __LINE__, $p_list);

    return $p_list;

  }

  // --------------------------------------------------------------------------------

  // --------------------------------------------------------------------------------

  // Function :

  //   delete([$p_option, $p_option_value, ...])

  // Description :

  // Parameters :

  //   None

  // Options :