zipruby 0.1.0

data/zipruby.c

@@ -0,0 +1,1224 @@
+/* rdoc source */
+#ifdef _WIN32
+__declspec(dllexport) void Init_zipruby(void);
+#endif
+
+#include "zipruby.h"
+#include "zipruby_zip.h"
+#include "zipruby_archive.h"
+#include "zipruby_file.h"
+#include "zipruby_stat.h"
+#include "zipruby_error.h"
+
+void Init_zipruby() {
+  Init_zipruby_zip();
+  Init_zipruby_archive();
+  Init_zipruby_file();
+  Init_zipruby_stat();
+  Init_zipruby_error();
+}
+#include "zip.h"
+#include "zipruby.h"
+#include "zipruby_archive.h"
+#include "ruby.h"
+#include "rubyio.h"
+
+static VALUE zipruby_archive_alloc(VALUE klass);
+static void zipruby_archive_free(struct zipruby_archive *p);
+static VALUE zipruby_archive_s_open(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_close(VALUE self);
+static VALUE zipruby_archive_num_files(VALUE self);
+static VALUE zipruby_archive_get_name(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_fopen(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_get_stat(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_add_buffer(VALUE self, VALUE name, VALUE source);
+static VALUE zipruby_archive_add_file(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_add_filep(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_add_zip(VALUE self, VALUE srcarchive);
+static VALUE zipruby_archive_replace_buffer(VALUE self, VALUE index, VALUE source);
+static VALUE zipruby_archive_replace_file(VALUE self, VALUE index, VALUE fname);
+static VALUE zipruby_archive_replace_filep(VALUE self, VALUE index, VALUE file);
+static VALUE zipruby_archive_get_comment(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_set_comment(VALUE self, VALUE comment);
+static VALUE zipruby_archive_locate_name(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_get_fcomment(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_archive_set_fcomment(VALUE self, VALUE index, VALUE comment);
+static VALUE zipruby_archive_fdelete(VALUE self, VALUE index);
+static VALUE zipruby_archive_frename(VALUE self, VALUE index, VALUE name);
+static VALUE zipruby_archive_funchange(VALUE self, VALUE index);
+static VALUE zipruby_archive_funchange_all(VALUE self);
+static VALUE zipruby_archive_unchange(VALUE self);
+static VALUE zipruby_archive_revert(VALUE self);
+static VALUE zipruby_archive_each(VALUE self);
+
+extern VALUE Zip;
+VALUE Archive;
+extern VALUE File;
+extern VALUE Stat;
+extern VALUE Error;
+
+void Init_zipruby_archive() {
+  Archive = rb_define_class_under(Zip, "Archive", rb_cObject);
+  rb_define_alloc_func(Archive, zipruby_archive_alloc);
+  rb_include_module(Archive, rb_mEnumerable);
+  rb_define_singleton_method(Archive, "open", zipruby_archive_s_open, -1);
+  rb_define_method(Archive, "close", zipruby_archive_close, 0);
+  rb_define_method(Archive, "num_files", zipruby_archive_num_files, 0);
+  rb_define_method(Archive, "get_name", zipruby_archive_get_name, -1);
+  rb_define_method(Archive, "fopen", zipruby_archive_fopen, -1);
+  rb_define_method(Archive, "get_stat", zipruby_archive_get_stat, -1);
+  rb_define_method(Archive, "add_buffer", zipruby_archive_add_buffer, 2);
+  rb_define_method(Archive, "add_file", zipruby_archive_add_file, -1);
+  rb_define_method(Archive, "add_filep", zipruby_archive_add_filep, -1);
+  rb_define_method(Archive, "add_zip", zipruby_archive_add_zip, 1);
+  rb_define_method(Archive, "replace_buffer", zipruby_archive_replace_buffer, 2);
+  rb_define_method(Archive, "replace_file", zipruby_archive_replace_file, 2);
+  rb_define_method(Archive, "replace_filep", zipruby_archive_replace_filep, 2);
+  rb_define_method(Archive, "<<", zipruby_archive_add_filep, -1);
+  rb_define_method(Archive, "get_comment", zipruby_archive_get_comment, -1);
+  rb_define_method(Archive, "comment", zipruby_archive_get_comment, -1);
+  rb_define_method(Archive, "comment=", zipruby_archive_set_comment, 1);
+  rb_define_method(Archive, "locate_name", zipruby_archive_locate_name, -1);
+  rb_define_method(Archive, "get_fcomment", zipruby_archive_get_fcomment, -1);
+  rb_define_method(Archive, "set_fcomment", zipruby_archive_set_fcomment, 2);
+  rb_define_method(Archive, "fdelete", zipruby_archive_fdelete, 1);
+  rb_define_method(Archive, "frename", zipruby_archive_frename, 2);
+  rb_define_method(Archive, "funchange", zipruby_archive_funchange, 1);
+  rb_define_method(Archive, "funchange_all", zipruby_archive_funchange_all, 0);
+  rb_define_method(Archive, "unchange", zipruby_archive_unchange, 0);
+  rb_define_method(Archive, "frevert", zipruby_archive_unchange, 1);
+  rb_define_method(Archive, "revert", zipruby_archive_revert, 0);
+  rb_define_method(Archive, "each", zipruby_archive_each, 0);
+}
+
+static VALUE zipruby_archive_alloc(VALUE klass) {
+  struct zipruby_archive *p = ALLOC(struct zipruby_archive);
+
+  p->archive = NULL;
+
+  return Data_Wrap_Struct(klass, 0, zipruby_archive_free, p);
+}
+
+static void zipruby_archive_free(struct zipruby_archive *p) {
+  xfree(p);
+}
+
+/* */
+static VALUE zipruby_archive_s_open(int argc, VALUE *argv, VALUE self) {
+  VALUE path, flags;
+  VALUE archive;
+  struct zipruby_archive *p_archive;
+  int i_flags = 0;
+  int errorp;
+
+  rb_scan_args(argc, argv, "11", &path, &flags);
+  Check_Type(path, T_STRING);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  archive = rb_funcall(Archive, rb_intern("new"), 0);
+  Data_Get_Struct(archive, struct zipruby_archive, p_archive);
+
+  if ((p_archive->archive = zip_open(StringValuePtr(path), i_flags, &errorp)) == NULL) {
+    char errstr[ERRSTR_BUFSIZE];
+    zip_error_to_str(errstr, ERRSTR_BUFSIZE, errorp, errno);
+    rb_raise(Error, "Open archive failed - %s: %s", StringValuePtr(path), errstr);
+  }
+
+  if (rb_block_given_p()) {
+    VALUE retval;
+    int status;
+
+    retval = rb_protect(rb_yield, archive, &status);
+    zipruby_archive_close(archive);
+
+    if (status != 0) {
+      rb_jump_tag(status);
+    }
+
+    return retval;
+  } else {
+    return archive;
+  }
+};
+
+/* */
+static VALUE zipruby_archive_close(VALUE self) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_close(p_archive->archive) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Close archive failed: %s", zip_strerror(p_archive->archive));
+  }
+
+  p_archive->archive = NULL;
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_num_files(VALUE self) {
+  struct zipruby_archive *p_archive;
+  int num_files;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+  num_files = zip_get_num_files(p_archive->archive);
+
+  return INT2NUM(num_files);
+}
+
+/* */
+static VALUE zipruby_archive_get_name(int argc, VALUE *argv, VALUE self) {
+  VALUE index, flags;
+  struct zipruby_archive *p_archive;
+  int i_flags = 0;
+  const char *name;
+
+  rb_scan_args(argc, argv, "11", &index, &flags);
+  Check_Type(index, T_FIXNUM);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if ((name = zip_get_name(p_archive->archive, NUM2INT(index), i_flags)) == NULL) {
+    rb_raise(Error, "Get name failed: %s", zip_strerror(p_archive->archive));
+  }
+
+  return (name != NULL) ? rb_str_new2(name) : Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_fopen(int argc, VALUE *argv, VALUE self) {
+  VALUE index, flags, stat_flags, file;
+
+  rb_scan_args(argc, argv, "12", &index, &flags, &stat_flags);
+  file = rb_funcall(File, rb_intern("new"), 4, self, index, flags, stat_flags);
+
+  if (rb_block_given_p()) {
+    VALUE retval;
+    int status;
+
+    retval = rb_protect(rb_yield, file, &status);
+    rb_funcall(file, rb_intern("close"), 0);
+
+    if (status != 0) {
+      rb_jump_tag(status);
+    }
+
+    return retval;
+  } else {
+    return file;
+  }
+}
+
+/* */
+static VALUE zipruby_archive_get_stat(int argc, VALUE *argv, VALUE self) {
+  VALUE index, flags;
+
+  rb_scan_args(argc, argv, "11", &index, &flags);
+
+  return rb_funcall(Stat, rb_intern("new"), 3, self, index, flags);
+}
+
+/* */
+static VALUE zipruby_archive_add_buffer(VALUE self, VALUE name, VALUE source) {
+  struct zipruby_archive *p_archive;
+  struct zip_source *zsource;
+  char *data;
+  off_t len;
+
+  Check_Type(name, T_STRING);
+  Check_Type(source, T_STRING);
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  len = RSTRING(source)->len;
+
+  if ((data = malloc(len)) == NULL) {
+    rb_raise(rb_eRuntimeError, "Add file failed: Cannot allocate memory");
+  }
+
+  memset(data, 0, len);
+  memcpy(data, StringValuePtr(source), len);
+
+  if ((zsource = zip_source_buffer(p_archive->archive, data, len, 1)) == NULL) {
+    free(data);
+    rb_raise(Error, "Add file failed - %s: %s", StringValuePtr(name), zip_strerror(p_archive->archive));
+  }
+
+  if (zip_add(p_archive->archive, StringValuePtr(name), zsource) == -1) {
+    zip_source_free(zsource);
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Add file failed - %s: %s", StringValuePtr(name), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_replace_buffer(VALUE self, VALUE index, VALUE source) {
+  struct zipruby_archive *p_archive;
+  struct zip_source *zsource;
+  char *data;
+  off_t len;
+
+  Check_Type(index, T_FIXNUM);
+  Check_Type(source, T_STRING);
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  len = RSTRING(source)->len;
+  data = malloc(len);
+  memcpy(data, StringValuePtr(source), len);
+
+  if ((zsource = zip_source_buffer(p_archive->archive, data, len, 1)) == NULL) {
+    free(data);
+    rb_raise(Error, "Replace file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  if (zip_replace(p_archive->archive, NUM2INT(index), zsource) == -1) {
+    zip_source_free(zsource);
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Replace file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_add_file(int argc, VALUE *argv, VALUE self) {
+  VALUE name, fname;
+  struct zipruby_archive *p_archive;
+  struct zip_source *zsource;
+
+  rb_scan_args(argc, argv, "11", &name, &fname);
+
+
+  if (NIL_P(fname)) {
+    fname = name;
+    name = Qnil;
+  }
+
+  if (NIL_P(name)) {
+    name = rb_funcall(rb_cFile, rb_intern("basename"), 1, fname);
+  }
+
+  Check_Type(name, T_STRING);
+  Check_Type(fname, T_STRING);
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if ((zsource = zip_source_file(p_archive->archive, StringValuePtr(fname), 0, -1)) == NULL) {
+    rb_raise(Error, "Add file failed - %s: %s", StringValuePtr(name), zip_strerror(p_archive->archive));
+  }
+
+  if (zip_add(p_archive->archive, StringValuePtr(name), zsource) == -1) {
+    zip_source_free(zsource);
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Add file failed - %s: %s", StringValuePtr(name), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_replace_file(VALUE self, VALUE index, VALUE fname) {
+  struct zipruby_archive *p_archive;
+  struct zip_source *zsource;
+
+  Check_Type(index, T_FIXNUM);
+  Check_Type(fname, T_STRING);
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if ((zsource = zip_source_file(p_archive->archive, StringValuePtr(fname), 0, -1)) == NULL) {
+    rb_raise(Error, "Replace file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  if (zip_replace(p_archive->archive, NUM2INT(index), zsource) == -1) {
+    zip_source_free(zsource);
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Replace file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_add_filep(int argc, VALUE *argv, VALUE self) {
+  VALUE name, file, source;
+
+  rb_scan_args(argc, argv, "11", &name, &file);
+
+  if (NIL_P(file)) {
+    file = name;
+    name = Qnil;
+  }
+
+  Check_Type(file, T_FILE);
+
+  if (NIL_P(name)) {
+    name = rb_funcall(rb_cFile, rb_intern("basename"), 1, rb_funcall(file, rb_intern("path"), 0));
+  }
+
+  source = rb_funcall(file, rb_intern("read"), 0);
+
+  return zipruby_archive_add_buffer(self, name,  source);
+}
+
+/* */
+static VALUE zipruby_archive_replace_filep(VALUE self, VALUE index, VALUE file) {
+  VALUE source;
+
+  Check_Type(file, T_FILE);
+  source = rb_funcall(file, rb_intern("read"), 0);
+
+  return zipruby_archive_replace_buffer(self, index,  source);
+}
+
+/* */
+static VALUE zipruby_archive_get_comment(int argc, VALUE *argv, VALUE self) {
+  VALUE flags;
+  struct zipruby_archive *p_archive;
+  const char *comment;
+  int lenp, i_flags = 0;
+
+  rb_scan_args(argc, argv, "01", &flags);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  // XXX: How is the error checked?
+  comment = zip_get_archive_comment(p_archive->archive, &lenp, i_flags);
+
+  return comment ? rb_str_new(comment, lenp) : Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_add_zip(VALUE self, VALUE srcarchive) {
+  struct zipruby_archive *p_archive, *p_srcarchive;
+  struct zip_source *zsource;
+  int i, num_files;
+
+  if (!rb_obj_is_instance_of(srcarchive, Archive)) {
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected Zip::Archive)", rb_class2name(CLASS_OF(srcarchive)));
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+  Data_Get_Struct(srcarchive, struct zipruby_archive, p_srcarchive);
+  Check_Archive(p_srcarchive);
+
+  num_files = zip_get_num_files(p_srcarchive->archive);
+
+  for (i = 0; i < num_files; i++) {
+    if ((zsource = zip_source_zip(p_archive->archive, p_srcarchive->archive, i, 0, 0, -1)) == NULL) {
+      rb_raise(Error, "Add zip failed: %s", zip_strerror(p_archive->archive));
+    }
+
+    if (zip_add(p_archive->archive, zip_get_name(p_srcarchive->archive, i, 0), zsource) == -1) {
+      zip_source_free(zsource);
+      zip_unchange_all(p_archive->archive);
+      zip_unchange_archive(p_archive->archive);
+      rb_raise(Error, "Add zip failed: %s", zip_strerror(p_archive->archive));
+    }
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_set_comment(VALUE self, VALUE comment) {
+  struct zipruby_archive *p_archive;
+  const char *s_comment = NULL;
+  int len = 0;
+
+  if (!NIL_P(comment)) {
+    Check_Type(comment, T_STRING);
+    s_comment = StringValuePtr(comment);
+    len = RSTRING(comment)->len;
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_set_archive_comment(p_archive->archive, s_comment, len) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Comment archived failed: %s", zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_locate_name(int argc, VALUE *argv, VALUE self) {
+  VALUE fname, flags;
+  struct zipruby_archive *p_archive;
+  int i_flags = 0;
+
+  rb_scan_args(argc, argv, "11", &fname, &flags);
+  Check_Type(fname, T_STRING);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  return INT2NUM(zip_name_locate(p_archive->archive, StringValuePtr(fname), i_flags));
+}
+
+/* */
+static VALUE zipruby_archive_get_fcomment(int argc, VALUE *argv, VALUE self) {
+  VALUE index, flags;
+  struct zipruby_archive *p_archive;
+  const char *comment;
+  int lenp, i_flags = 0;
+
+  rb_scan_args(argc, argv, "11", &index, &flags);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  // XXX: How is the error checked?
+  comment = zip_get_file_comment(p_archive->archive, NUM2INT(index), &lenp, i_flags);
+
+  return comment ? rb_str_new(comment, lenp) : Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_set_fcomment(VALUE self, VALUE index, VALUE comment) {
+  struct zipruby_archive *p_archive;
+  char *s_comment = NULL;
+  int len = 0;
+
+  if (!NIL_P(comment)) {
+    Check_Type(comment, T_STRING);
+    s_comment = StringValuePtr(comment);
+    len = RSTRING(comment)->len;
+  }
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_set_file_comment(p_archive->archive, NUM2INT(index), s_comment, len) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Comment file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_fdelete(VALUE self, VALUE index) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_delete(p_archive->archive, NUM2INT(index)) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Delete file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_frename(VALUE self, VALUE index, VALUE name) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_rename(p_archive->archive, NUM2INT(index), StringValuePtr(name)) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Rename file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_funchange(VALUE self, VALUE index) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_unchange(p_archive->archive, NUM2INT(index)) == -1) {
+    zip_unchange_all(p_archive->archive);
+    zip_unchange_archive(p_archive->archive);
+    rb_raise(Error, "Unchange file failed at %d: %s", NUM2INT(index), zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_funchange_all(VALUE self) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_unchange_all(p_archive->archive) == -1) {
+    rb_raise(Error, "Unchange all file failed: %s", zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_unchange(VALUE self) {
+  struct zipruby_archive *p_archive;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (zip_unchange_archive(p_archive->archive) == -1) {
+    rb_raise(Error, "Unchange archive failed: %s", zip_strerror(p_archive->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_revert(VALUE self) {
+  zipruby_archive_funchange_all(self);
+  zipruby_archive_unchange(self);
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_archive_each(VALUE self) {
+  struct zipruby_archive *p_archive;
+  int i, num_files;
+
+  Data_Get_Struct(self, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+  num_files = zip_get_num_files(p_archive->archive);
+
+  for (i = 0; i < num_files; i++) {
+    VALUE file;
+    int status;
+
+    file = rb_funcall(File, rb_intern("new"), 2, self, INT2NUM(i));
+    rb_protect(rb_yield, file, &status);
+    rb_funcall(file, rb_intern("close"), 0);
+
+    if (status != 0) {
+      rb_jump_tag(status);
+    }
+  }
+
+  return Qnil;
+}
+#include "zipruby.h"
+#include "zipruby_error.h"
+#include "ruby.h"
+
+extern VALUE Zip;
+VALUE Error;
+
+void Init_zipruby_error() {
+  Error = rb_define_class_under(Zip, "Error", rb_eStandardError);
+}
+#include <errno.h>
+
+#ifndef _WIN32
+#include <alloca.h>
+#else
+#include <malloc.h>
+#endif
+
+#include "zip.h"
+#include "zipruby.h"
+#include "zipruby_archive.h"
+#include "zipruby_file.h"
+#include "zipruby_stat.h"
+#include "ruby.h"
+
+static VALUE zipruby_file(VALUE klass);
+static VALUE zipruby_file_alloc(VALUE klass);
+static void zipruby_file_mark(struct zipruby_file *p);
+static void zipruby_file_free(struct zipruby_file *p);
+static VALUE zipruby_file_initialize(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_file_close(VALUE self);
+static VALUE zipruby_file_read(VALUE self);
+static VALUE zipruby_file_stat(VALUE self);
+static VALUE zipruby_file_get_comment(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_file_set_comment(VALUE self, VALUE comment);
+static VALUE zipruby_file_delete(VALUE self);
+static VALUE zipruby_file_rename(VALUE self, VALUE name);
+static VALUE zipruby_file_unchange(VALUE self);
+static VALUE zipruby_file_name(VALUE self);
+static VALUE zipruby_file_index(VALUE self);
+static VALUE zipruby_file_crc(VALUE self);
+static VALUE zipruby_file_size(VALUE self);
+static VALUE zipruby_file_mtime(VALUE self);
+static VALUE zipruby_file_comp_size(VALUE self);
+static VALUE zipruby_file_comp_method(VALUE self);
+static VALUE zipruby_file_encryption_method(VALUE self);
+
+extern VALUE Zip;
+extern VALUE Archive;
+VALUE File;
+extern VALUE Stat;
+extern VALUE Error;
+
+void Init_zipruby_file() {
+  File = rb_define_class_under(Zip, "File", rb_cObject);
+  rb_define_alloc_func(File, zipruby_file_alloc);
+  rb_define_method(File, "initialize", zipruby_file_initialize, -1);
+  rb_define_method(File, "close", zipruby_file_close, 0);
+  rb_define_method(File, "read", zipruby_file_read, 0);
+  rb_define_method(File, "stat", zipruby_file_stat, 0);
+  rb_define_method(File, "get_comment", zipruby_file_get_comment, -1);
+  rb_define_method(File, "comment", zipruby_file_get_comment, -1);
+  rb_define_method(File, "comment=", zipruby_file_set_comment, 1);
+  rb_define_method(File, "delete", zipruby_file_delete, 0);
+  rb_define_method(File, "rename", zipruby_file_rename, 1);
+  rb_define_method(File, "unchange", zipruby_file_unchange, 1);
+  rb_define_method(File, "revert", zipruby_file_unchange, 1);
+  rb_define_method(File, "name", zipruby_file_name, 0);
+  rb_define_method(File, "index", zipruby_file_index, 0);
+  rb_define_method(File, "crc", zipruby_file_crc, 0);
+  rb_define_method(File, "size", zipruby_file_size, 0);
+  rb_define_method(File, "mtime", zipruby_file_mtime, 0);
+  rb_define_method(File, "comp_size", zipruby_file_comp_size, 0);
+  rb_define_method(File, "comp_method", zipruby_file_comp_method, 0);
+  rb_define_method(File, "encryption_method", zipruby_file_encryption_method, 0);
+}
+
+static VALUE zipruby_file_alloc(VALUE klass) {
+  struct zipruby_file *p = ALLOC(struct zipruby_file);
+
+  p->archive = NULL;
+  p->file = NULL;
+  p->sb = NULL;
+
+  return Data_Wrap_Struct(klass, zipruby_file_mark, zipruby_file_free, p);
+}
+
+static void zipruby_file_mark(struct zipruby_file *p) {
+  if (p->archive) { rb_gc_mark(p->v_archive); }
+  if (p->sb) { rb_gc_mark(p->v_sb); }
+}
+
+static void zipruby_file_free(struct zipruby_file *p) {
+  xfree(p);
+}
+
+/* */
+static VALUE zipruby_file_initialize(int argc, VALUE *argv, VALUE self) {
+  VALUE archive, index, flags, stat_flags;
+  struct zipruby_archive *p_archive;
+  struct zipruby_file *p_file;
+  struct zipruby_stat *p_stat;
+  struct zip_file *fzip;
+  char *fname = NULL;
+  int i_index = -1, i_flags = 0;
+
+  rb_scan_args(argc, argv, "22", &archive,  &index, &flags, &stat_flags);
+
+  if (!rb_obj_is_instance_of(archive, Archive)) {
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected Zip::Archive)", rb_class2name(CLASS_OF(archive)));
+  }
+
+  switch (TYPE(index)) {
+  case T_STRING: fname = StringValuePtr(index); break;
+  case T_FIXNUM: i_index = NUM2INT(index); break;
+  default:
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected String or Fixnum)", rb_class2name(CLASS_OF(index)));
+  }
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(archive, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+
+  if (fname) {
+    fzip = zip_fopen(p_archive->archive, fname, i_flags);
+
+    if (fzip == NULL) {
+      rb_raise(Error, "Open file failed - %s: %s", fname, zip_strerror(p_archive->archive));
+    }
+  } else {
+    fzip = zip_fopen_index(p_archive->archive, i_index, i_flags);
+
+    if (fzip == NULL) {
+      rb_raise(Error, "Open file failed at %d", i_index, zip_strerror(p_archive->archive));
+    }
+  }
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  p_file->v_archive = archive;
+  p_file->archive = p_archive->archive;
+  p_file->file = fzip;
+  p_file->v_sb = rb_funcall(Stat, rb_intern("new"), 3, archive, index, stat_flags);
+  Data_Get_Struct(p_file->v_sb, struct zipruby_stat, p_stat);
+  p_file->sb = p_stat->sb;
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_close(VALUE self) {
+  struct zipruby_file *p_file;
+  int error;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  if ((error = zip_fclose(p_file->file)) != 0) {
+    char errstr[ERRSTR_BUFSIZE];
+    zip_error_to_str(errstr, ERRSTR_BUFSIZE, error, errno);
+    zip_unchange(p_file->archive, p_file->sb->index);
+    rb_raise(Error, "Close file failed: %s", errstr);
+  }
+
+  p_file->archive = NULL;
+  p_file->file = NULL;
+  p_file->sb = NULL;
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_read(VALUE self) {
+  struct zipruby_file *p_file;
+  struct zip_stat sb;
+  char *buf;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  zip_stat_init(&sb);
+
+  if (zip_stat_index(p_file->archive, p_file->sb->index, 0, &sb)) {
+    rb_raise(Error, "Read file failed: %s", zip_strerror(p_file->archive));
+  }
+
+  buf = alloca(sb.size);
+  
+  if (zip_fread(p_file->file, buf, sb.size) == -1) {
+    rb_raise(Error, "Read file failed: %s", zip_file_strerror(p_file->file));
+  }
+
+  return rb_str_new(buf, sb.size);
+}
+
+/* */
+static VALUE zipruby_file_stat(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return p_file->v_sb;
+}
+
+/* */
+static VALUE zipruby_file_get_comment(int argc, VALUE *argv, VALUE self) {
+  VALUE flags;
+  struct zipruby_file *p_file;
+  const char *comment;
+  int lenp, i_flags = 0;
+
+  rb_scan_args(argc, argv, "01", &flags);
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  // XXX: How is the error checked?
+  comment = zip_get_file_comment(p_file->archive, p_file->sb->index, &lenp, i_flags);
+
+  return comment ? rb_str_new(comment, lenp) : Qnil;
+}
+
+/* */
+static VALUE zipruby_file_set_comment(VALUE self, VALUE comment) {
+  struct zipruby_file *p_file;
+  char *s_comment = NULL;
+  int len = 0;
+
+  if (!NIL_P(comment)) {
+    Check_Type(comment, T_STRING);
+    s_comment = StringValuePtr(comment);
+    len = RSTRING(comment)->len;
+  }
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  if (zip_set_file_comment(p_file->archive, p_file->sb->index, s_comment, len) == -1) {
+    zip_unchange_all(p_file->archive);
+    zip_unchange_archive(p_file->archive);
+    rb_raise(Error, "Comment file failed - %s: %s", p_file->sb->name, zip_strerror(p_file->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_delete(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  if (zip_delete(p_file->archive, p_file->sb->index) == -1) {
+    zip_unchange_all(p_file->archive);
+    zip_unchange_archive(p_file->archive);
+    rb_raise(Error, "Delete file failed - %s: %s", p_file->sb->name, zip_strerror(p_file->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_rename(VALUE self, VALUE name) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  if (zip_rename(p_file->archive, p_file->sb->index, StringValuePtr(name)) == -1) {
+    zip_unchange_all(p_file->archive);
+    zip_unchange_archive(p_file->archive);
+    rb_raise(Error, "Rename file failed - %s: %s", p_file->sb->name, zip_strerror(p_file->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_unchange(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  if (zip_unchange(p_file->archive, p_file->sb->index) == -1) {
+    rb_raise(Error, "Unchange file failed - %s: %s", p_file->sb->name, zip_strerror(p_file->archive));
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_file_name(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("name"), 0);
+}
+
+/* */
+static VALUE zipruby_file_index(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("index"), 0);
+}
+
+/* */
+static VALUE zipruby_file_crc(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("crc"), 0);
+}
+
+/* */
+static VALUE zipruby_file_size(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("size"), 0);
+}
+
+/* */
+static VALUE zipruby_file_mtime(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("mtime"), 0);
+}
+
+/* */
+static VALUE zipruby_file_comp_size(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("comp_size"), 0);
+}
+
+/* */
+static VALUE zipruby_file_comp_method(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("comp_method"), 0);
+}
+
+/* */
+static VALUE zipruby_file_encryption_method(VALUE self) {
+  struct zipruby_file *p_file;
+
+  Data_Get_Struct(self, struct zipruby_file, p_file);
+  Check_File(p_file);
+
+  return rb_funcall(p_file->v_sb, rb_intern("encryption_method"), 0);
+}
+#include "zip.h"
+#include "zipruby.h"
+#include "zipruby_archive.h"
+#include "zipruby_stat.h"
+#include "ruby.h"
+
+static VALUE zipruby_stat_alloc(VALUE klass);
+static void zipruby_stat_free(struct zipruby_stat *p);
+static VALUE zipruby_stat_initialize(int argc, VALUE *argv, VALUE self);
+static VALUE zipruby_stat_name(VALUE self);
+static VALUE zipruby_stat_index(VALUE self);
+static VALUE zipruby_stat_crc(VALUE self);
+static VALUE zipruby_stat_size(VALUE self);
+static VALUE zipruby_stat_mtime(VALUE self);
+static VALUE zipruby_stat_comp_size(VALUE self);
+static VALUE zipruby_stat_comp_method(VALUE self);
+static VALUE zipruby_stat_encryption_method(VALUE self);
+
+extern VALUE Zip;
+extern VALUE Archive;
+VALUE Stat;
+extern VALUE Error;
+
+void Init_zipruby_stat() {
+  Stat = rb_define_class_under(Zip, "Stat", rb_cObject);
+  rb_define_alloc_func(Stat, zipruby_stat_alloc);
+  rb_define_method(Stat, "initialize", zipruby_stat_initialize, -1);
+  rb_define_method(Stat, "name", zipruby_stat_name, 0);
+  rb_define_method(Stat, "index", zipruby_stat_index, 0);
+  rb_define_method(Stat, "crc", zipruby_stat_crc, 0);
+  rb_define_method(Stat, "size", zipruby_stat_size, 0);
+  rb_define_method(Stat, "mtime", zipruby_stat_mtime, 0);
+  rb_define_method(Stat, "comp_size", zipruby_stat_comp_size, 0);
+  rb_define_method(Stat, "comp_method", zipruby_stat_comp_method, 0);
+  rb_define_method(Stat, "encryption_method", zipruby_stat_encryption_method, 0);
+}
+
+static VALUE zipruby_stat_alloc(VALUE klass) {
+  struct zipruby_stat *p = ALLOC(struct zipruby_stat);
+
+  p->sb = ALLOC(struct zip_stat);
+  zip_stat_init(p->sb);
+
+  return Data_Wrap_Struct(klass, 0, zipruby_stat_free, p);
+}
+
+static void zipruby_stat_free(struct zipruby_stat *p) {
+  xfree(p->sb);
+  xfree(p);
+}
+
+/* */
+static VALUE zipruby_stat_initialize(int argc, VALUE *argv, VALUE self) {
+  VALUE archive, index, flags;
+  struct zipruby_archive *p_archive;
+  struct zipruby_stat *p_stat;
+  char *fname = NULL;
+  int i_index = -1, i_flags = 0;
+
+  rb_scan_args(argc, argv, "21", &archive, &index, &flags);
+
+  if (!rb_obj_is_instance_of(archive, Archive)) {
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected Zip::Archive)", rb_class2name(CLASS_OF(archive)));
+  }
+
+  switch (TYPE(index)) {
+  case T_STRING: fname = StringValuePtr(index); break;
+  case T_FIXNUM: i_index = NUM2INT(index); break;
+  default:
+    rb_raise(rb_eTypeError, "wrong argument type %s (expected String or Fixnum)", rb_class2name(CLASS_OF(index)));
+  }
+
+  if (!NIL_P(flags)) {
+    i_flags = NUM2INT(flags);
+  }
+
+  Data_Get_Struct(archive, struct zipruby_archive, p_archive);
+  Check_Archive(p_archive);
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  if (fname) {
+    if (zip_stat(p_archive->archive, fname, i_flags, p_stat->sb) != 0) {
+      rb_raise(Error, "Obtain file status failed - %s: %s", fname, zip_strerror(p_archive->archive));
+    }
+  } else {
+    if (zip_stat_index(p_archive->archive, i_index, i_flags, p_stat->sb) != 0) {
+      rb_raise(Error, "Obtain file status failed at %d: %s", i_index, zip_strerror(p_archive->archive));
+    }
+  }
+
+  return Qnil;
+}
+
+/* */
+static VALUE zipruby_stat_name(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return p_stat->sb->name ? rb_str_new2(p_stat->sb->name) : Qnil;
+}
+
+/* */
+static VALUE zipruby_stat_index(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return INT2NUM(p_stat->sb->index);
+}
+
+/* */
+static VALUE zipruby_stat_crc(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return UINT2NUM(p_stat->sb->crc);
+}
+
+/* */
+static VALUE zipruby_stat_size(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return LONG2NUM(p_stat->sb->size);
+}
+
+/* */
+static VALUE zipruby_stat_mtime(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return rb_funcall(rb_cTime, rb_intern("at"), 1,  LONG2NUM((long) p_stat->sb->mtime));
+}
+
+/* */
+static VALUE zipruby_stat_comp_size(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return LONG2NUM(p_stat->sb->comp_size);
+}
+
+/* */
+static VALUE zipruby_stat_comp_method(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return INT2NUM(p_stat->sb->comp_method);
+}
+
+/* */
+static VALUE zipruby_stat_encryption_method(VALUE self) {
+  struct zipruby_stat *p_stat;
+
+  Data_Get_Struct(self, struct zipruby_stat, p_stat);
+
+  return INT2NUM(p_stat->sb->encryption_method);
+}
+#include "ruby.h"
+#include "zip.h"
+#include "zipruby.h"
+#include "zipruby_zip.h"
+
+VALUE Zip;
+
+void Init_zipruby_zip() {
+  Zip = rb_define_module("Zip");
+  rb_define_const(Zip, "VERSION", rb_str_new2(VERSION));
+
+  rb_define_const(Zip, "CREATE",    INT2NUM(ZIP_CREATE));
+  rb_define_const(Zip, "EXCL",      INT2NUM(ZIP_EXCL));
+  rb_define_const(Zip, "CHECKCONS", INT2NUM(ZIP_CHECKCONS));
+
+  rb_define_const(Zip, "FL_NOCASE",     INT2NUM(ZIP_FL_NOCASE));
+  rb_define_const(Zip, "FL_NODIR",      INT2NUM(ZIP_FL_NODIR));
+  rb_define_const(Zip, "FL_COMPRESSED", INT2NUM(ZIP_FL_COMPRESSED));
+  rb_define_const(Zip, "FL_UNCHANGED",  INT2NUM(ZIP_FL_UNCHANGED));
+
+  rb_define_const(Zip, "CM_DEFAULT"   ,     INT2NUM(ZIP_CM_DEFAULT));
+  rb_define_const(Zip, "CM_STORE",          INT2NUM(ZIP_CM_STORE));
+  rb_define_const(Zip, "CM_SHRINK",         INT2NUM(ZIP_CM_SHRINK));
+  rb_define_const(Zip, "CM_REDUCE_1",       INT2NUM(ZIP_CM_REDUCE_1));
+  rb_define_const(Zip, "CM_REDUCE_2",       INT2NUM(ZIP_CM_REDUCE_2));
+  rb_define_const(Zip, "CM_REDUCE_3",       INT2NUM(ZIP_CM_REDUCE_3));
+  rb_define_const(Zip, "CM_REDUCE_4",       INT2NUM(ZIP_CM_REDUCE_4));
+  rb_define_const(Zip, "CM_IMPLODE",        INT2NUM(ZIP_CM_IMPLODE));
+  rb_define_const(Zip, "CM_DEFLATE",        INT2NUM(ZIP_CM_DEFLATE));
+  rb_define_const(Zip, "CM_DEFLATE64",      INT2NUM(ZIP_CM_DEFLATE64));
+  rb_define_const(Zip, "CM_PKWARE_IMPLODE", INT2NUM(ZIP_CM_PKWARE_IMPLODE));
+  rb_define_const(Zip, "CM_BZIP2",          INT2NUM(ZIP_CM_BZIP2));
+
+  rb_define_const(Zip, "EM_NONE",        INT2NUM(ZIP_EM_NONE));
+  rb_define_const(Zip, "EM_TRAD_PKWARE", INT2NUM(ZIP_EM_TRAD_PKWARE));
+  // XXX: Strong Encryption Header not parsed yet
+}