summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--funzip.f9037
-rw-r--r--libzip-wrapper.prj71
-rw-r--r--unzip_wrap.f9048
-rw-r--r--zwrapper.c128
4 files changed, 284 insertions, 0 deletions
diff --git a/funzip.f90 b/funzip.f90
new file mode 100644
index 0000000..dc71e84
--- /dev/null
+++ b/funzip.f90
@@ -0,0 +1,37 @@
+program funzip
+use m_unzip
+implicit none
+
+ character(len=512)::archive, dir
+ logical::success, file_exists
+
+ success = .false.
+
+ if(command_argument_count() < 1 .or. command_argument_count() > 2) then
+
+ call get_command_argument(0, archive)
+ Print *, "Usage: "//trim(archive)//" <zip file> [<destination directory>]"
+
+ else
+
+ call get_command_argument(1, archive)
+ if(command_argument_count() == 2) then
+ call get_command_argument(2, dir)
+ else
+ dir = "."
+ end if
+
+ inquire(file=trim(archive), exist=file_exists)
+ if(.not. file_exists) then
+ Print *, "Could not locate '"//trim(archive)//"'"
+ end if
+
+ if(unzip(trim(archive), trim(dir), indexed='/tmp/zip.lst')) then
+
+ Print *, "Successfully extracted '"//trim(archive)//"'"
+
+ end if
+
+ end if
+
+end program funzip
diff --git a/libzip-wrapper.prj b/libzip-wrapper.prj
new file mode 100644
index 0000000..68d31be
--- /dev/null
+++ b/libzip-wrapper.prj
@@ -0,0 +1,71 @@
+{
+ "Root":{
+ "Folders":[],
+ "Name":"+libzip-wrapper (funzip)",
+ "Files":[{
+ "filename":"funzip.f90",
+ "enabled":"1"
+ },{
+ "filename":"unzip_wrap.f90",
+ "enabled":"1"
+ },{
+ "filename":"zwrapper.c",
+ "enabled":"1"
+ }]
+ },
+ "Name":"libzip-wrapper (funzip)",
+ "Options":{
+ "Compiler Options":{
+ "Fortran Flags":"",
+ "Link Flags":"-lzip",
+ "C Flags":""
+ },
+ "Architecture":0,
+ "Type":0,
+ "Revision":2,
+ "Windows GUI":0,
+ "File Options":{
+ "Library Directories":["Default Library Directory"],
+ "Build Directory":"build",
+ "Module Directory":"modules",
+ "Include Directories":["Default Include Directory"]
+ },
+ "Target":"funzip",
+ "Fortran Options":{
+ "Use C Preprocessor":"false",
+ "Runtime Diagnostics":"false",
+ "Floating Point Exception Trap":0,
+ "Cray Pointers":"false",
+ "Enable Coarrays":"false",
+ "Enable OpenMP":"false",
+ "Initialize Variables to Zero":"false",
+ "Default Double for Real":"false"
+ },
+ "Code Generation Options":{
+ "CPU Specific":"false",
+ "Processor":"generic",
+ "Aggressive Loops":"false",
+ "Debugging":"true",
+ "Optimization Mode":0,
+ "Profiling":"false"
+ },
+ "Build Dependencies":1,
+ "Launch Options":{
+ "Working Directory":"",
+ "Launch Using MPI":"false",
+ "Keep Console":"true",
+ "External Console":"false",
+ "Command Line Arguments":"",
+ "Build Before Launch":"true"
+ },
+ "Build Options":{
+ "Makefile":"Makefile",
+ "Auto Makefile":"true"
+ },
+ "Linker Options":{
+ "Static Linking Mode":0,
+ "Link MPI Library":"false",
+ "Link LAPACK":0
+ }
+ }
+} \ No newline at end of file
diff --git a/unzip_wrap.f90 b/unzip_wrap.f90
new file mode 100644
index 0000000..c29dfd7
--- /dev/null
+++ b/unzip_wrap.f90
@@ -0,0 +1,48 @@
+module m_unzip
+implicit none
+
+ interface
+ function unzip_file_c(archive, directory, indexed) bind(c, name="unzip_file")
+ use iso_c_binding
+ integer(kind=c_int)::unzip_file_c
+ type(c_ptr), value::archive, directory, indexed
+ end function unzip_file_c
+ end interface
+
+contains
+
+ function unzip(archive, directory, indexed)
+ use iso_c_binding
+ implicit none
+
+ logical::unzip
+ character(*), intent(in)::archive, directory
+ character(*), intent(in), optional::indexed
+
+ character(kind=c_char, len=:), pointer::c_arc, c_dir, c_index
+
+ allocate(character(len=(len_trim(archive)+1)) :: c_arc)
+ c_arc = trim(archive)//c_null_char
+ allocate(character(len=(len_trim(directory)+1)) :: c_dir)
+ c_dir = trim(directory)//c_null_char
+
+ if(present(indexed)) then
+ allocate(character(len=(len_trim(indexed)+1)) :: c_index)
+ c_index = trim(indexed)//c_null_char
+ else
+ c_index => NULL()
+ end if
+
+ !if(associated(c_index)) then
+
+ unzip = (unzip_file_c(c_loc(c_arc), c_loc(c_dir), c_loc(c_index)) == 1)
+
+ deallocate(c_arc)
+ deallocate(c_dir)
+ if(associated(c_index)) then
+ deallocate(c_index)
+ end if
+
+ end function unzip
+
+end module m_unzip \ No newline at end of file
diff --git a/zwrapper.c b/zwrapper.c
new file mode 100644
index 0000000..6d07f2b
--- /dev/null
+++ b/zwrapper.c
@@ -0,0 +1,128 @@
+#include <stdio.h>
+#include <string.h>
+
+#ifdef WIN32
+#include <windows.h>
+#else
+#include <sys/stat.h>
+#include <sys/types.h>
+#endif
+
+#include <zip.h>
+
+#define BUF_SIZE 128
+
+#ifndef MAX_PATH
+#define MAX_PATH 2048
+#endif
+
+const char pathsep =
+#ifdef WIN32
+ '\\';
+#else
+ '/';
+#endif
+
+
+int makedir(const char *dir)
+{
+#ifdef WIN32
+ return mkdir(dir);
+#else
+ return mkdir(dir, 0755);
+#endif
+}
+
+void gen_full_filename(const char *basedir, const char *file, char *dest, size_t destsize)
+{
+int i;
+#ifdef WIN32
+char *fix;
+#endif
+
+ if(basedir == NULL)
+ strncpy(dest, file, destsize);
+ else if(file == NULL)
+ strncpy(dest, basedir, destsize);
+ else {
+ if(basedir[strlen(basedir)-1] == '/' || basedir[strlen(basedir)-1] == '\\')
+ snprintf(dest, destsize, "%s%s", basedir, file);
+ else
+ snprintf(dest, destsize, "%s%c%s", basedir, pathsep, file);
+ }
+
+#ifdef WIN32
+ fix = strchr(dest, '/');
+ while(fix != NULL) {
+ *fix = '\\';
+ fix = strchr(dest, '/');
+ }
+#endif
+
+}
+
+int unzip_file(const char *filename, const char *directory, const char *index_of_files_file)
+{
+struct zip *za;
+struct zip_file *zf;
+struct zip_stat sb;
+
+char buf[BUF_SIZE];
+int err, i;
+size_t this_read, total_read;
+
+char fullfile[MAX_PATH];
+FILE *fp;
+FILE *fp_index;
+
+ za = zip_open(filename, 0, &err);
+ if (za == NULL) {
+ return -1;
+ }
+
+ if(index_of_files_file != NULL)
+ fp_index = fopen(index_of_files_file, "w");
+ else
+ fp_index = NULL;
+
+ for(i=0; i < zip_get_num_entries(za,0); i++) {
+ if (zip_stat_index(za, i, 0, &sb) == 0) {
+ gen_full_filename(directory, sb.name, fullfile, MAX_PATH);
+
+ if(fullfile[strlen(fullfile)-1] == pathsep) {
+
+ makedir(fullfile);
+
+ } else {
+ zf = zip_fopen_index(za, i, 0);
+ fp = fopen(fullfile, "w");
+ if(zf != NULL && fp != NULL) {
+
+ total_read = 0;
+ while(total_read < sb.size) {
+ this_read = zip_fread(zf, buf, BUF_SIZE);
+ fwrite(buf, sizeof(char), this_read, fp);
+ total_read += this_read;
+ }
+
+ if(fp_index != NULL)
+ fprintf(fp_index, "%s\n", fullfile);
+ }
+
+ if(zf != NULL)
+ zip_fclose(zf);
+
+ if(fp != NULL)
+ fclose(fp);
+ }
+
+ }
+ }
+
+ zip_close(za);
+
+ if(fp_index != NULL)
+ fclose(fp_index);
+
+ return 1;
+}