Merge lp:~zorba-coders/zorba/1039576 into lp:zorba/archive-module

[Luis Rodriguez Gonzalez]

- Added ability to create directories in archives
- Added testcases

- Added ability to create directories in archives
- Added testcases

[Juan Zacarias (juan457)]

review: Approve

[Matthias Brantner (matthias-brantner)]

The following tests started to fail on my Linux machine. Any clue why?

 3613 - zorba_archive_module/entries_03.xq (Failed)
 3618 - zorba_archive_module/dir_04.xq (Failed)
 3619 - zorba_archive_module/dir_02.xq (Failed)
 3625 - zorba_archive_module/update_02.xq (Failed)
 3629 - zorba_archive_module/entries_02.xq (Failed)
 3633 - zorba_archive_module/dir_01.xq (Failed)
 3635 - zorba_archive_module/entries_01.xq (Failed)
 3636 - zorba_archive_module/dir_03.xq (Failed)
 3638 - zorba_archive_module/options_02.xq (Failed)

review: Needs Fixing

[Zorba Build Bot (zorba-buildbot)]

There are additional revisions which have not been approved in review. Please seek review and approval of these new revisions.

[lp:~zorba-coders/zorba/1039576]

52. By luisrod <luisrod@LUISROD-LAP> on 2012-12-21

- Added entry@type attribute to documentation

[Luis Rodriguez Gonzalez (kuraru)]

- Added documentation changes to include entry@type attribute.

[Matthias Brantner (matthias-brantner)]

review: Approve

[Zorba Build Bot (zorba-buildbot)]

Validation queue starting for merge proposal.
Log at: http://zorbatest.lambda.nu:8080/remotequeue/1039576-2013-01-08T05-24-49.124Z/log.html

[Zorba Build Bot (zorba-buildbot)]

Validation queue job 1039576-2013-01-08T05-24-49.124Z is finished. The final status was:

All tests succeeded!

=== modified file 'src/archive.xsd'
--- src/archive.xsd	2012-08-01 20:47:46 +0000
+++ src/archive.xsd	2012-12-21 22:13:22 +0000
@@ -53,6 +53,13 @@
     <xs:restriction base="xs:string"/>
   </xs:simpleType>
   
+  <xs:simpleType name="entry-type">
+    <xs:restriction base="xs:string">
+      <xs:enumeration value="regular"/>
+      <xs:enumeration value="directory"/>
+    </xs:restriction>
+  </xs:simpleType>
+  
   <!-- elements -->
   <xs:element name="archive-option-element"
     abstract="true" type="xs:string"/>
@@ -88,6 +95,7 @@
  
   <!-- entry attributes -->
   <xs:attributeGroup name="entry-attributes">
+    <xs:attribute name="type" type="entry-type"/>
     <xs:attribute name="size" type="entry-size-type"/>
     <xs:attribute name="last-modified" type="entry-datetime-type"/>
     <xs:attribute name="encoding" type="entry-encoding-type"/>

=== modified file 'src/archive_module.xq'
--- src/archive_module.xq	2012-09-28 13:58:19 +0000
+++ src/archive_module.xq	2012-12-21 22:13:22 +0000
@@ -49,6 +49,19 @@
  : <p>The parameters $entries and $contents have the same meaning as for
  : the function a:create with three arguments.</p>
  :
+ : <p>Entry entries can include a type attribute, this attribute can have one
+ : of two possible values: "regular" or "directory". If "regular" is
+ : specified then the entry will be created as a regular file; if "directory"
+ : is specified then the entry will be created as a directory, no contents
+ : will be read from $contents in this case. If no value is specified for type
+ : then it will be set to "regular". Example:
+ : <pre>
+ : $zip-file := a:create(
+ :    (&lt;a:entry encoding="ISO-8859-1" type="directory">dir1&lt;/a:entry>, "dir1/file1"),
+ :    ("file contents"))
+ : </pre>
+ : </p>
+ :
  : @param $entries the meta data for the entries in the archive. Each entry
  :   can be of type xs:string or an element with name a:entry.
  : @param $contents the content for the archive. Each item in the sequence
@@ -90,18 +103,20 @@
  :
  : <p>For example, the following sequence may be used to describe an archive
  : containing three elements:
- : <pre class="ace-static" ace-mode="xquery"><![CDATA[<a:entry last-modified="{fn:current-dateTime()}">myfile.txt</a:entry>
- : <a:entry encoding="ISO-8859-1" compression="store">dir/myfile.xml</a:entry>]]></pre>
+ : <pre class="ace-static" ace-mode="xquery"><![CDATA[&lt;a:entry last-modified="{fn:current-dateTime()}">myfile.txt&lt;/a:entry>
+ : &lt;a:entry encoding="ISO-8859-1" compression="store">dir/myfile.xml&lt;/a:entry>]]>
+ : </pre>
  : </p>
  :
  : <p>The $options argument may be used to describe general options for the
  : archive.  For example, the following option element can be used to create a ZIP
  : archive in which all entries are compressed with the DEFLATE compression
  : algorithm:
- : <pre class="ace-static" ace-mode="xquery"><![CDATA[<archive:options>
- :   <archive:format>ZIP</archive:format>
- :   <archive:compression>DEFLATE</archive:compression>
- : </archive:options>]]></pre>
+ : <pre class="ace-static" ace-mode="xquery"><![CDATA[&lt;archive:options>
+ :   &lt;archive:format>ZIP&lt;/archive:format>
+ :   &lt;archive:compression>DEFLATE&lt;/archive:compression>
+ : &lt;/archive:options>]]>
+ : </pre>
  : </p>
  :
  : <p>The result of the function is the generated archive as a item of type
@@ -271,10 +286,11 @@
  : Returns the algorithm and format options of the given archive.
  : For example, for a ZIP archive, the following options element
  : would be returned:
- : <pre class="ace-static" ace-mode="xquery"><![CDATA[<archive:options>
- :   <archive:format>ZIP&lt;/archive:format>
- :   <archive:compressionDEFLATE&lt;/archive:compression>
- : </archive:options>]]></pre>
+ : <pre class="ace-static" ace-mode="xquery"><![CDATA[&lt;archive:options>
+ :   &lt;archive:format>ZIP&lt;/archive:format>
+ :   &lt;archive:compressionDEFLATE&lt;/archive:compression>
+ : &lt;/archive:options>]]>
+ : </pre>
  :
  : @param $archive the archive as xs:base64Binary
  :

=== modified file 'src/archive_module.xq.src/archive_module.cpp'
--- src/archive_module.xq.src/archive_module.cpp	2012-08-03 04:53:47 +0000
+++ src/archive_module.xq.src/archive_module.cpp	2012-12-21 22:13:22 +0000
@@ -119,6 +119,8 @@
     gmtime_r(&aTime, &gmtm);
 #endif
 
+    // create a datetime item without timezone because
+    // this is what the entry tells us (at least for zip)
     Item lModifiedItem = getItemFactory()->createDateTime(
         static_cast<short>(gmtm.tm_year + 1900),
         static_cast<short>(gmtm.tm_mon + 1),
@@ -167,7 +169,8 @@
   ******************/
 
   ArchiveFunction::ArchiveEntry::ArchiveEntry()
-    : theEncoding("UTF-8")
+    : theEncoding("UTF-8"),
+      theEntryType(regular)
   {
     // use current time as a default for each entry
 #if defined (WIN32)
@@ -187,7 +190,7 @@
 
     if (archive_entry_size_is_set(aEntry))
     {
-      //add a size variable
+      theSize = (int)archive_entry_size(aEntry);
     }
 
     if (archive_entry_mtime_is_set(aEntry))
@@ -195,12 +198,19 @@
       theLastModified = archive_entry_mtime(aEntry);
     }
     //check if it is encoded
+
+    switch(archive_entry_filetype(aEntry))
+    {
+      case AE_IFDIR: theEntryType = directory; break;
+      default: theEntryType = regular; break;
+    }
   }
 
   void
   ArchiveFunction::ArchiveEntry::setValues(zorba::Item& aEntry)
   {
     theEntryPath = aEntry.getStringValue();
+
     if (aEntry.isNode())
     {
       Item lAttr;
@@ -212,7 +222,15 @@
         Item lAttrName;
         lAttr.getNodeName(lAttrName);
 
-        if (lAttrName.getLocalName() == "last-modified")
+        if(lAttrName.getLocalName() == "type")
+        {
+          String filetype = lAttr.getStringValue();
+          if(filetype == "directory")
+          {
+            theEntryType = directory;
+          }
+        }
+        else if (lAttrName.getLocalName() == "last-modified")
         {
           ArchiveModule::parseDateTimeItem(lAttr, theLastModified);
         }
@@ -548,12 +566,15 @@
 
     for (size_t i = 0; i < aEntries.size(); ++i)
     {
-      if (!aFiles->next(lFile))
+      if(aEntries[i].getEntryType() == ArchiveEntry::regular)
       {
-        std::ostringstream lMsg;
-        lMsg << "number of entries (" << aEntries.size()
-          << ") doesn't match number of content arguments (" << i << ")";
-        throwError("ARCH0001", lMsg.str().c_str());
+        if (!aFiles->next(lFile))
+        {
+          std::ostringstream lMsg;
+          lMsg << "number of entries (" << aEntries.size()
+            << ") doesn't match number of content arguments (" << i << ")";
+          throwError("ARCH0001", lMsg.str().c_str());
+        }
       }
 
       const ArchiveEntry& lEntry = aEntries[i];
@@ -578,14 +599,19 @@
       std::istream* lStream;
       bool lDeleteStream;
       uint64_t lFileSize;
-      
-      lDeleteStream = getStream(
-          aEntry, aFile, lStream, lFileSize);
 
       archive_entry_set_pathname(theEntry, aEntry.getEntryPath().c_str());
       archive_entry_set_mtime(theEntry, aEntry.getLastModified(), 0);
       // TODO: modified to allow the creation of empty directories
-      archive_entry_set_filetype(theEntry, AE_IFREG);
+      if(aEntry.getEntryType() == ArchiveEntry::regular){
+        archive_entry_set_filetype(theEntry, AE_IFREG);
+        lDeleteStream = getStream(
+          aEntry, aFile, lStream, lFileSize);
+      } else {
+        archive_entry_set_filetype(theEntry, AE_IFDIR);
+        lDeleteStream = false;
+        lFileSize = 0;
+      }
       // TODO: specifies the permits of a file
       archive_entry_set_perm(theEntry, 0644);
       archive_entry_set_size(theEntry, lFileSize);
@@ -632,11 +658,14 @@
 
       archive_write_header(theArchive, theEntry);
 
-      char lBuf[ZORBA_ARCHIVE_MAX_READ_BUF];
-      while (lStream->good())
+      if(aEntry.getEntryType() == ArchiveEntry::regular)
       {
-        lStream->read(lBuf, ZORBA_ARCHIVE_MAX_READ_BUF);
-        archive_write_data(theArchive, lBuf, lStream->gcount());
+        char lBuf[ZORBA_ARCHIVE_MAX_READ_BUF];
+        while (lStream->good())
+        {
+          lStream->read(lBuf, ZORBA_ARCHIVE_MAX_READ_BUF);
+          archive_write_data(theArchive, lBuf, lStream->gcount());
+        }
       }
 
       archive_entry_clear(theEntry);
@@ -890,9 +919,15 @@
         base64::attach(*theData.theStream);
       }
 
-	    lErr = archive_read_open(
-          theArchive, &theData, 0, ArchiveItemSequence::readStream, 0);
-
+	    lErr = archive_read_set_read_callback(
+        theArchive, ArchiveItemSequence::readStream);
+      ArchiveFunction::checkForError(lErr, 0, theArchive);
+
+      lErr = archive_read_set_callback_data(
+        theArchive, &theData);
+      ArchiveFunction::checkForError(lErr, 0, theArchive);
+
+      lErr = archive_read_open1(theArchive);
       ArchiveFunction::checkForError(lErr, 0, theArchive);
     }
     else
@@ -1021,6 +1056,7 @@
 
     theLastModifiedName = theFactory->createQName("", "last-modified");
     theUncompressedSizeName = theFactory->createQName("", "size");
+    theEntryType = theFactory->createQName("", "type");
   }
 
   bool
@@ -1071,6 +1107,26 @@
           aRes, theLastModifiedName, lType, lModifiedItem);
     }
 
+    Item lEntryType;
+    if(archive_entry_filetype(lEntry) == AE_IFDIR)
+    {
+      // this entry is a directory
+      lEntryType = theFactory->createString("directory");
+    }
+    else if(archive_entry_filetype(lEntry) == AE_IFREG)
+    {
+      lEntryType = theFactory->createString("regular");
+    }
+    else
+    {
+      // error! type not supported!
+      // for the time being don't do anything
+    }
+
+    lType = theUntypedQName;
+    theFactory->createAttributeNode(
+      aRes, theEntryType, lType, lEntryType);
+
     // skip to the next entry and raise an error if that fails
     lErr = archive_read_data_skip(theArchive);
     ArchiveFunction::checkForError(lErr, 0, theArchive);
@@ -1183,26 +1239,6 @@
     if (!lEntry)
       return false;
 
-    /*while (true)
-    {
-      int lErr = archive_read_next_header(theArchive, &lEntry);
-      
-      if (lErr == ARCHIVE_EOF) return false;
-
-      if (lErr != ARCHIVE_OK)
-      {
-        ArchiveFunction::checkForError(lErr, 0, theArchive);
-      }
-
-      if (theReturnAll) break;
-
-      String lName = archive_entry_pathname(lEntry);
-      if (theEntryNames.find(lName) != theEntryNames.end())
-      {
-        break;
-      }
-    }*/
-
     String lResult;
 
     // reserve some space if we know the decompressed size
@@ -1294,26 +1330,6 @@
     if (!lEntry)
       return false;
     
-    /*while (true)
-    {
-      int lErr = archive_read_next_header(theArchive, &lEntry);
-      
-      if (lErr == ARCHIVE_EOF) return false;
-
-      if (lErr != ARCHIVE_OK)
-      {
-        ArchiveFunction::checkForError(lErr, 0, theArchive);
-      }
-
-      if (theReturnAll) break;
-
-      String lName = archive_entry_pathname(lEntry);
-      if (theEntryNames.find(lName) != theEntryNames.end())
-      {
-        break;
-      }
-    }*/
-
     std::vector<unsigned char> lResult;
 
     // reserve some space if we know the decompressed size
@@ -1429,32 +1445,34 @@
 
     //form an ArchiveEntry with the entry
     theEntry.setValues(lEntry);
-    
-    //read entry content
-    std::vector<unsigned char> lResult;
-
-    if (archive_entry_size_is_set(lEntry))
-    {
-      long long lSize = archive_entry_size(lEntry);
-      lResult.reserve(lSize);
-    }
-
-    std::vector<unsigned char> lBuf;
-    lBuf.resize(ZORBA_ARCHIVE_MAX_READ_BUF);
-
-    //read entry into string
-    while (true)
-    {
-      int s = archive_read_data(
-        theArchive, &lBuf[0], ZORBA_ARCHIVE_MAX_READ_BUF);
+
+    if(archive_entry_filetype(lEntry) == AE_IFREG){
+      //read entry content
+      std::vector<unsigned char> lResult;
+
+      if (archive_entry_size_is_set(lEntry))
+      {
+        long long lSize = archive_entry_size(lEntry);
+        lResult.reserve(lSize);
+      }
+
+      std::vector<unsigned char> lBuf;
+      lBuf.resize(ZORBA_ARCHIVE_MAX_READ_BUF);
+
+      //read entry into string
+      while (true)
+      {
+        int s = archive_read_data(
+          theArchive, &lBuf[0], ZORBA_ARCHIVE_MAX_READ_BUF);
      
-      if (s == 0) break;
-
-      lResult.insert(lResult.end(), lBuf.begin(), lBuf.begin() + s);
+        if (s == 0) break;
+
+        lResult.insert(lResult.end(), lBuf.begin(), lBuf.begin() + s);
+      }
+
+      aRes = theFactory->createBase64Binary(&lResult[0], lResult.size());
     }
 
-    aRes = theFactory->createBase64Binary(&lResult[0], lResult.size());
-
     return true;
   }
 
@@ -1497,6 +1515,7 @@
     //updated with the new Files specified
     ArchiveCompressor lResArchive;
     ArchiveOptions lOptions;
+    bool lHasItem = false;
 
     Item lItem;
     Iterator_t lSeqIter = lSeq->getIterator();
@@ -1504,12 +1523,13 @@
     //read first header and file of the archive so we can get the options before creating 
     //the new archive.
     lSeqIter->open();
-    lSeqIter->next(lItem);
+    lHasItem = lSeqIter->next(lItem);
     //set the options of the archive
     lOptions = lSeq->getOptions();
     //create new archive with the options read
     lResArchive.open(lOptions);
-    if (!lItem.isNull())
+    //if (!lItem.isNull())
+    if (lHasItem)
     {
       do 
       {
@@ -1608,31 +1628,36 @@
     
     //form an ArchiveEntry with the entry
     theEntry.setValues(lEntry);
+
+    if(archive_entry_filetype(lEntry) == AE_IFREG){
     
-    //read entry content
-    std::vector<unsigned char> lResult;
-
-    if (archive_entry_size_is_set(lEntry))
-    {
-      long long lSize = archive_entry_size(lEntry);
-      lResult.reserve(lSize);
-    }
-
-    std::vector<unsigned char> lBuf;
-    lBuf.resize(ZORBA_ARCHIVE_MAX_READ_BUF);
-
-    //read entry into string
-    while (true)
-    {
-      int s = archive_read_data(
-        theArchive, &lBuf[0], ZORBA_ARCHIVE_MAX_READ_BUF);
+      //read entry content
+      std::vector<unsigned char> lResult;
+
+      if (archive_entry_size_is_set(lEntry))
+      {
+        long long lSize = archive_entry_size(lEntry);
+        lResult.reserve(lSize);
+      }
+
+      std::vector<unsigned char> lBuf;
+      lBuf.resize(ZORBA_ARCHIVE_MAX_READ_BUF);
+
+      //read entry into string
+      while (true)
+      {
+        int s = archive_read_data(
+          theArchive, &lBuf[0], ZORBA_ARCHIVE_MAX_READ_BUF);
      
-      if (s == 0) break;
-
-      lResult.insert(lResult.end(), lBuf.begin(), lBuf.begin() + s);
+        if (s == 0) break;
+
+        lResult.insert(lResult.end(), lBuf.begin(), lBuf.begin() + s);
+      }
+
+      aRes = theFactory->createBase64Binary(&lResult[0], lResult.size());
     }
-
-    aRes = theFactory->createBase64Binary(&lResult[0], lResult.size());
+    // else? if the entry represents a directory what are we
+    // going to return??
 
     return true;
   }

=== modified file 'src/archive_module.xq.src/archive_module.h'
--- src/archive_module.xq.src/archive_module.h	2012-08-01 20:47:46 +0000
+++ src/archive_module.xq.src/archive_module.h	2012-12-21 22:13:22 +0000
@@ -150,6 +150,14 @@
 #endif    
       readStream(struct archive *a, void *client_data, const void **buff);
 
+      // needed for the "non-linear" zip format
+#ifdef WIN32
+      static __int64 seekStream(struct archive *a, void *data, __int64 request, int whence);
+#else
+      static off_t seekStream(struct archive *a, void *data, off_t request, int whence);
+#endif
+      
+
   };
 
 
@@ -196,12 +204,16 @@
 
       class ArchiveEntry
       {
+      public:
+        enum ArchiveEntryType { regular = 0, directory };
+
       protected:
         String theEntryPath;
         String theEncoding;
         int theSize;
         time_t theLastModified;
         String theCompression;
+        ArchiveEntryType theEntryType;
         bool theSkipExtras;
 
       public:
@@ -217,6 +229,8 @@
         
         const String& getCompression() const { return theCompression; }
 
+        const ArchiveEntryType& getEntryType() const { return theEntryType; }
+
         void setValues(zorba::Item& aEntry);
 
         void setValues(struct archive_entry* aEntry);
@@ -362,6 +376,7 @@
               zorba::Item theEntryName;
               zorba::Item theUncompressedSizeName;
               zorba::Item theLastModifiedName;
+              zorba::Item theEntryType;
 
             public:
               EntriesIterator(zorba::Item& aArchive);

=== added file 'test/ExpQueryResults/dir_01.xml.res'
--- test/ExpQueryResults/dir_01.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/dir_01.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+foo.xml, bar.xml, dir1/,
\ No newline at end of file

=== added file 'test/ExpQueryResults/dir_02.xml.res'
--- test/ExpQueryResults/dir_02.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/dir_02.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+foo.xml, bar.xml,
\ No newline at end of file

=== added file 'test/ExpQueryResults/dir_03.xml.res'
--- test/ExpQueryResults/dir_03.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/dir_03.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+true
\ No newline at end of file

=== added file 'test/ExpQueryResults/dir_04.xml.res'
--- test/ExpQueryResults/dir_04.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/dir_04.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+foo.xml, bar.xml, dir1/, newdir/,
\ No newline at end of file

=== modified file 'test/ExpQueryResults/entries_01.xml.res'
--- test/ExpQueryResults/entries_01.xml.res	2012-08-03 21:54:38 +0000
+++ test/ExpQueryResults/entries_01.xml.res	2012-12-21 22:13:22 +0000
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:11:09Z">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:09Z">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:03Z">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:10:51Z">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="6" last-modified="2012-06-15T20:10:47Z">file1</entry>
\ No newline at end of file
+<entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:11:09Z" type="directory">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:09Z" type="regular">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:03Z" type="regular">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:10:51Z" type="directory">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="6" last-modified="2012-06-15T20:10:47Z" type="regular">file1</entry>
\ No newline at end of file

=== modified file 'test/ExpQueryResults/entries_02.xml.res'
--- test/ExpQueryResults/entries_02.xml.res	2012-08-03 21:54:38 +0000
+++ test/ExpQueryResults/entries_02.xml.res	2012-12-21 22:13:22 +0000
@@ -1,2 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:11:09Z">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:09Z">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:03Z">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:10:51Z">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="6" last-modified="2012-06-15T20:10:47Z">file1</entry>
\ No newline at end of file
+<entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:11:09Z" type="directory">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:09Z" type="regular">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:03Z" type="regular">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:10:51Z" type="directory">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="6" last-modified="2012-06-15T20:10:47Z" type="regular">file1</entry>
\ No newline at end of file

=== modified file 'test/ExpQueryResults/entries_03.xml.res'
--- test/ExpQueryResults/entries_03.xml.res	2012-08-03 21:54:38 +0000
+++ test/ExpQueryResults/entries_03.xml.res	2012-12-21 22:13:22 +0000
@@ -1,1 +1,1 @@
-<entry xmlns="http://www.zorba-xquery.com/modules/archive" last-modified="2012-06-15T20:11:09Z" size="0">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" last-modified="2012-06-15T20:11:09Z" size="11">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" last-modified="2012-06-15T20:11:03Z" size="11">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" last-modified="2012-06-15T20:10:51Z" size="0">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" last-modified="2012-06-15T20:10:47Z" size="6">file1</entry>
+<entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:11:09Z" type="directory">dir1/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:09Z" type="regular">dir1/file1</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="11" last-modified="2012-06-15T20:11:03Z" type="regular">dir1/file2</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="0" last-modified="2012-06-15T20:10:51Z" type="directory">dir2/</entry><entry xmlns="http://www.zorba-xquery.com/modules/archive" size="6" last-modified="2012-06-15T20:10:47Z" type="regular">file1</entry>

=== added file 'test/ExpQueryResults/options_02.xml.res'
--- test/ExpQueryResults/options_02.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/options_02.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<options xmlns="http://www.zorba-xquery.com/modules/archive"><format>TAR</format><compression>BZIP2</compression></options>
\ No newline at end of file

=== added file 'test/ExpQueryResults/update_02.xml.res'
--- test/ExpQueryResults/update_02.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/update_02.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+3 &lt;foo2/&gt;
\ No newline at end of file

=== added file 'test/ExpQueryResults/update_03.xml.res'
--- test/ExpQueryResults/update_03.xml.res	1970-01-01 00:00:00 +0000
+++ test/ExpQueryResults/update_03.xml.res	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+<D:\zorba\code\zorba_modules\archive-module\test\Queries\update_03.xq>:10,21: user-defined error [http://www.zorba-xquery.com/modules/archive#ARCH0001]: number of entries (2) doesn't match number of content arguments (1); raised at D:\zorba\code\zorba_modules\archive-module\src\archive_module.xq.src\archive_module.cpp:686 

=== added file 'test/Queries/dir_01.xq'
--- test/Queries/dir_01.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/dir_01.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,10 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+
+let $foo-content := "<foo/>"
+let $bar-content := "<bar/>"
+let $archive := a:create(
+  ("foo.xml", "bar.xml", <entry type="directory">dir1</entry>),
+  ($foo-content, $bar-content)
+)
+return
+  for $e in a:entries($archive) return concat($e/text(), ",")

=== added file 'test/Queries/dir_02.xq'
--- test/Queries/dir_02.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/dir_02.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,11 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+
+let $foo-content := "<foo/>"
+let $bar-content := "<bar/>"
+let $archive := a:create(
+  ("foo.xml", "bar.xml", <entry type="directory">dir1</entry>),
+  ($foo-content, $bar-content)
+)
+let $archive2 := a:delete($archive, "dir1/")
+return
+  for $e in a:entries($archive2) return concat($e/text(), ",")

=== added file 'test/Queries/dir_03.xq'
--- test/Queries/dir_03.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/dir_03.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,13 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+
+let $foo-content := "<foo/>"
+let $bar-content := "<bar/>"
+let $archive := a:create(
+  ("foo.xml", "bar.xml", <entry type="directory">dir1</entry>),
+  ($foo-content, $bar-content)
+)
+let $archive2 := a:delete($archive, "nonexistent.xml")
+let $entries := a:entries($archive)
+let $entries2 := a:entries($archive2)
+return $entries=$entries2
+  

=== added file 'test/Queries/dir_04.xq'
--- test/Queries/dir_04.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/dir_04.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,13 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+
+let $foo-content := "<foo/>"
+let $bar-content := "<bar/>"
+let $archive := a:create(
+  ("foo.xml", "bar.xml", <entry type="directory">dir1</entry>),
+  ($foo-content, $bar-content)
+)
+let $archive2 := a:update($archive, <a:entry type="directory">newdir</a:entry>, ())
+let $entries := a:entries($archive)
+let $entries2 := a:entries($archive2)
+return for $e in $entries2 return concat($e/text(), ",")
+  

=== added file 'test/Queries/entries_03.spec'
--- test/Queries/entries_03.spec	1970-01-01 00:00:00 +0000
+++ test/Queries/entries_03.spec	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+Error: http://www.zorba-xquery.com/modules/archive:ARCH9999

=== added file 'test/Queries/options_02.spec'
--- test/Queries/options_02.spec	1970-01-01 00:00:00 +0000
+++ test/Queries/options_02.spec	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+Error: http://www.zorba-xquery.com/modules/archive:ARCH9999

=== added file 'test/Queries/options_02.xq'
--- test/Queries/options_02.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/options_02.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,5 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+import module namespace f = "http://expath.org/ns/file";
+
+let $tar-bz2 := f:read-binary(fn:resolve-uri("simple.tar.bz2"))
+return a:options($tar-bz2)

=== added file 'test/Queries/options_03.spec'
--- test/Queries/options_03.spec	1970-01-01 00:00:00 +0000
+++ test/Queries/options_03.spec	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+Error: http://www.zorba-xquery.com/modules/archive:ARCH9999

=== added file 'test/Queries/options_03.xq'
--- test/Queries/options_03.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/options_03.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,5 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+
+let $fake_archive := xs:base64Binary("5Pb8")
+return 
+  a:options($fake_archive)

=== added file 'test/Queries/update_02.xq'
--- test/Queries/update_02.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/update_02.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,12 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+import module namespace b = "http://www.zorba-xquery.com/modules/converters/base64";
+
+let $foo-content := "<foo/>"
+let $bar-content := xs:base64Binary("YWJj")
+let $archive := a:create(
+  ("foo.xml", "bar.txt"),
+  ($foo-content, $bar-content)
+)
+let $new-archive := a:update($archive, "foo2.xml", "<foo2/>")
+return (count(a:entries($new-archive)), a:extract-text($new-archive, "foo2.xml"))
+

=== added file 'test/Queries/update_03.spec'
--- test/Queries/update_03.spec	1970-01-01 00:00:00 +0000
+++ test/Queries/update_03.spec	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+Error: http://www.zorba-xquery.com/modules/archive:ARCH0001

=== added file 'test/Queries/update_03.xq'
--- test/Queries/update_03.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/update_03.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,12 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+import module namespace b = "http://www.zorba-xquery.com/modules/converters/base64";
+
+let $foo-content := "<foo/>"
+let $bar-content := xs:base64Binary("YWJj")
+let $archive := a:create(
+  ("foo.xml", "bar.txt"),
+  ($foo-content, $bar-content)
+)
+let $new-archive := a:update($archive, ("foo2.xml", "bar2.xml"), ("<foo2/>"))
+return (count(a:entries($new-archive)), a:extract-text($new-archive, "foo2.xml"))
+

=== added file 'test/Queries/update_04.spec'
--- test/Queries/update_04.spec	1970-01-01 00:00:00 +0000
+++ test/Queries/update_04.spec	2012-12-21 22:13:22 +0000
@@ -0,0 +1,1 @@
+Error: http://www.zorba-xquery.com/modules/archive:ARCH9999

=== added file 'test/Queries/update_04.xq'
--- test/Queries/update_04.xq	1970-01-01 00:00:00 +0000
+++ test/Queries/update_04.xq	2012-12-21 22:13:22 +0000
@@ -0,0 +1,7 @@
+import module namespace a = "http://www.zorba-xquery.com/modules/archive";
+import module namespace b = "http://www.zorba-xquery.com/modules/converters/base64";
+
+let $fake_archive := xs:base64Binary("YWJj")
+let $new-archive := a:update($fake_archive, "foo2.xml", "<foo2/>")
+return (count(a:entries($new-archive)), a:extract-text($new-archive, "foo2.xml"))
+