diff --git a/Bindings/LibZip.hsc b/Bindings/LibZip.hsc new file mode 100644 --- /dev/null +++ b/Bindings/LibZip.hsc @@ -0,0 +1,245 @@ +#include +#include + +-- | This module provides automatic low-level bindings to @libzip@ library. +-- See also: +-- +-- * @libzip@ documention: and @zip.h@ +-- +-- * @bindings-DSL@ documentation: +-- +-- +-- Higher-level interface is provided by a separate LibZip package: +-- +-- * +-- + +module Bindings.LibZip where +#strict_import + +#opaque_t zip +#opaque_t zip_file +#opaque_t zip_source + +-- flags for zip_open + +#num ZIP_CREATE +#num ZIP_EXCL +#num ZIP_CHECKCONS + +-- flags for zip_name_locate, zip_fopen, zip_stat, ... + +#num ZIP_FL_NOCASE +#num ZIP_FL_NODIR +#num ZIP_FL_COMPRESSED +#num ZIP_FL_UNCHANGED +#num ZIP_FL_RECOMPRESS + +-- archive global flags flags + +#num ZIP_AFL_TORRENT + +-- libzip error codes + +#num ZIP_ER_OK +#num ZIP_ER_MULTIDISK +#num ZIP_ER_RENAME +#num ZIP_ER_CLOSE +#num ZIP_ER_SEEK +#num ZIP_ER_READ +#num ZIP_ER_WRITE +#num ZIP_ER_CRC +#num ZIP_ER_ZIPCLOSED +#num ZIP_ER_NOENT +#num ZIP_ER_EXISTS +#num ZIP_ER_OPEN +#num ZIP_ER_TMPOPEN +#num ZIP_ER_ZLIB +#num ZIP_ER_MEMORY +#num ZIP_ER_CHANGED +#num ZIP_ER_COMPNOTSUPP +#num ZIP_ER_EOF +#num ZIP_ER_INVAL +#num ZIP_ER_NOZIP +#num ZIP_ER_INTERNAL +#num ZIP_ER_INCONS +#num ZIP_ER_REMOVE +#num ZIP_ER_DELETED + +-- type of system error value + +#num ZIP_ET_NONE +#num ZIP_ET_SYS +#num ZIP_ET_ZLIB + +-- compression methods + +#num ZIP_CM_DEFAULT +#num ZIP_CM_STORE +#num ZIP_CM_SHRINK +#num ZIP_CM_REDUCE_1 +#num ZIP_CM_REDUCE_2 +#num ZIP_CM_REDUCE_3 +#num ZIP_CM_REDUCE_4 +#num ZIP_CM_IMPLODE +#num ZIP_CM_DEFLATE +#num ZIP_CM_DEFLATE64 +#num ZIP_CM_PKWARE_IMPLODE +#num ZIP_CM_BZIP2 +#num ZIP_CM_LZMA +#num ZIP_CM_TERSE +#num ZIP_CM_LZ77 +#num ZIP_CM_WAVPACK +#num ZIP_CM_PPMD + +-- encryption methods + +#num ZIP_EM_NONE +#num ZIP_EM_TRAD_PKWARE +#num ZIP_EM_UNKNOWN + +#integral_t enum zip_source_cmd +#num ZIP_SOURCE_OPEN +#num ZIP_SOURCE_READ +#num ZIP_SOURCE_CLOSE +#num ZIP_SOURCE_STAT +#num ZIP_SOURCE_ERROR +#num ZIP_SOURCE_FREE + +-- typedef ssize_t (*zip_source_callback)(void *state, void *data, +-- size_t len, enum zip_source_cmd cmd); +#callback zip_source_callback , Ptr () -> Ptr () -> CSize -> -> IO CSize + +#opaque_t time_t + +#starttype struct zip_stat +#field name, Ptr CChar +#field index, CInt +#field crc, CUInt +#field mtime, CTime +#field size, CSize +#field comp_size, CSize +#field comp_method, CUShort +#field encryption_method, CUShort +#stoptype + +-- int zip_add(struct zip *, const char *, struct zip_source *); +#ccall zip_add , Ptr -> CString -> Ptr -> IO CInt + +-- int zip_add_dir(struct zip *, const char *); +#ccall zip_add_dir , Ptr -> CString -> IO CInt + +-- int zip_close(struct zip *); +#ccall zip_close , Ptr -> IO CInt + +-- int zip_delete(struct zip *, int); +#ccall zip_delete , Ptr -> CInt -> IO CInt + +-- void zip_error_clear(struct zip *); +#ccall zip_error_clear , Ptr -> IO () + +-- void zip_error_get(struct zip *, int *, int *); +#ccall zip_error_get , Ptr -> Ptr CInt -> Ptr CInt -> IO () + +-- int zip_error_get_sys_type(int); +#ccall zip_error_get_sys_type , CInt -> IO CInt + +-- int zip_error_to_str(char *, size_t, int, int); +#ccall zip_error_to_str , Ptr Char -> CSize -> CInt -> CInt -> IO CInt + +-- int zip_fclose(struct zip_file *); +#ccall zip_fclose , Ptr -> IO CInt + +-- void zip_file_error_clear(struct zip_file *); +#ccall zip_file_error_clear , Ptr -> IO () + +-- void zip_file_error_get(struct zip_file *, int *, int *); +#ccall zip_file_error_get , Ptr -> Ptr CInt -> Ptr CInt -> IO () + +-- const char *zip_file_strerror(struct zip_file *); +#ccall zip_file_strerror , Ptr -> IO CString + +-- struct zip_file *zip_fopen(struct zip *, const char *, int); +#ccall zip_fopen , Ptr -> CString -> CInt -> IO (Ptr ) + +-- struct zip_file *zip_fopen_index(struct zip *, int, int); +#ccall zip_fopen_index , Ptr -> CInt -> CInt -> IO (Ptr ) + +-- ssize_t zip_fread(struct zip_file *, void *, size_t); +#ccall zip_fread , Ptr -> Ptr () -> CSize -> IO CSize + +-- const char *zip_get_archive_comment(struct zip *, int *, int); +#ccall zip_get_archive_comment , Ptr -> Ptr CInt -> CInt -> IO CString + +-- int zip_get_archive_flag(struct zip *, int, int); +#ccall zip_get_archive_flag , Ptr -> CInt -> CInt -> IO CInt + +-- const char *zip_get_file_comment(struct zip *, int, int *, int); +#ccall zip_get_file_comment , Ptr -> CInt -> Ptr CInt -> CInt -> IO CString + +-- const char *zip_get_name(struct zip *, int, int); +#ccall zip_get_name , Ptr -> CInt -> CInt -> IO CString + +-- int zip_get_num_files(struct zip *); +#ccall zip_get_num_files , Ptr -> IO CInt + +-- int zip_name_locate(struct zip *, const char *, int); +#ccall zip_name_locate , Ptr -> CString -> CInt -> IO CInt + +-- struct zip *zip_open(const char *, int, int *); +#ccall zip_open , CString -> CInt -> Ptr CInt -> IO (Ptr ) + +-- int zip_rename(struct zip *, int, const char *); +#ccall zip_rename , Ptr -> CInt -> CString -> IO CInt + +-- int zip_replace(struct zip *, int, struct zip_source *); +#ccall zip_replace , Ptr -> CInt -> Ptr -> IO CInt + +-- int zip_set_archive_comment(struct zip *, const char *, int); +#ccall zip_set_archive_comment , Ptr -> CString -> CInt -> IO CInt + +-- int zip_set_archive_flag(struct zip *, int, int); +#ccall zip_set_archive_flag , Ptr -> CInt -> CInt -> IO CInt + +-- int zip_set_file_comment(struct zip *, int, const char *, int); +#ccall zip_set_file_comment , Ptr -> CInt -> CString -> CInt -> IO CInt + +-- struct zip_source *zip_source_buffer(struct zip *, const void *, off_t, int); +#ccall zip_source_buffer , Ptr -> Ptr () -> CSize -> CInt -> IO (Ptr ) + +-- struct zip_source *zip_source_file(struct zip *, const char *, off_t, off_t); +#ccall zip_source_file , Ptr -> CString -> CSize -> CSize -> IO (Ptr ) + +-- struct zip_source *zip_source_filep(struct zip *, FILE *, off_t, off_t); +#ccall zip_source_filep , Ptr -> Ptr CFile -> CSize -> CSize -> IO (Ptr ) + +-- void zip_source_free(struct zip_source *); +#ccall zip_source_free , Ptr -> IO () + +-- struct zip_source *zip_source_function(struct zip *, zip_source_callback, void *); +#ccall zip_source_function , Ptr -> -> Ptr () -> IO (Ptr ) + +-- struct zip_source *zip_source_zip(struct zip *, struct zip *, int, int, off_t, off_t); +#ccall zip_source_zip , Ptr -> Ptr -> CInt -> CInt -> CSize -> CSize -> IO (Ptr ) + +-- int zip_stat(struct zip *, const char *, int, struct zip_stat *); +#ccall zip_stat , Ptr -> CString -> CInt -> Ptr -> IO CInt + +-- int zip_stat_index(struct zip *, int, int, struct zip_stat *); +#ccall zip_stat_index , Ptr -> CInt -> CInt -> Ptr -> IO CInt + +-- void zip_stat_init(struct zip_stat *); +#ccall zip_stat_init , Ptr -> IO () + +-- const char *zip_strerror(struct zip *); +#ccall zip_strerror , Ptr -> IO CString + +-- int zip_unchange(struct zip *, int); +#ccall zip_unchange , Ptr -> CInt -> IO CInt + +-- int zip_unchange_all(struct zip *); +#ccall zip_unchange_all , Ptr -> IO CInt + +-- int zip_unchange_archive(struct zip *); +#ccall zip_unchange_archive , Ptr -> IO CInt + diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,30 @@ +Copyright Sergey Astanin 2010 + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of Sergey Astanin nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,3 @@ +#!/usr/bin/env runhaskell +import Distribution.Simple +main = defaultMain diff --git a/bindings-libzip.cabal b/bindings-libzip.cabal new file mode 100644 --- /dev/null +++ b/bindings-libzip.cabal @@ -0,0 +1,37 @@ +Name: bindings-libzip +Version: 0.1 +Synopsis: Low level bindings to libzip. +Description: + This package provides low-level bindings to libzip library. + For higher-level interface please use LibZip package: + + +Homepage: http://bitbucket.org/jetxee/hs-libzip/ +License: BSD3 +License-file: LICENSE +Author: Sergey Astanin +Maintainer: s.astanin@gmail.com +Category: FFI, Foreign + +Build-type: Simple + +Cabal-version: >=1.2.3 +Tested-with: GHC == 6.12.1 + +Library + Extensions: + ForeignFunctionInterface + + Exposed-modules: + Bindings.LibZip + + Build-Depends: + base >= 4.0 && < 4.3 + , bindings-DSL >= 1.0 && < 1.1 + + PkgConfig-Depends: + libzip >= 0.9 + + GHC-Options: + -Wall +