libmspack 0.10.1 → 0.10.1.2

data/ext/libmspack/test/md5_fh.h

@@ -1,123 +0,0 @@
-/* an mspack_system implementation which reads one or more files, and
- * only writes to one file; the file is not actually written to, but
- * an MD5 sum is computed and is available once the written-to file is
- * closed. You can use anything for the written-to filename, NULL is
- * probably the most obvious. The code is not multithreadable.
- */
-
-#include <md5.h>
-#include <stdio.h>
-#include <stdarg.h>
-
-struct md5_ctx md5_context;
-char md5_string[33];
-
-struct mspack_file_p {
-    FILE *fh;
-};
-
-static struct mspack_file *m_open(struct mspack_system *self, const char *filename, int mode) {
-    struct mspack_file_p *fh;
-    if (mode != MSPACK_SYS_OPEN_WRITE &&
-        mode != MSPACK_SYS_OPEN_READ) return NULL;
-
-    if ((fh = (struct mspack_file_p *) malloc(sizeof(struct mspack_file_p)))) {
-        if (mode == MSPACK_SYS_OPEN_WRITE) {
-            fh->fh = NULL;
-            md5_init_ctx(&md5_context);
-            return (struct mspack_file *) fh;
-        }
-        else {
-            if ((fh->fh = fopen(filename, "rb")))
-                return (struct mspack_file *) fh;
-        }
-        /* error - free file handle and return NULL */
-        free(fh);
-    }
-    return NULL;
-}
-
-static void m_close(struct mspack_file *file) {
-  struct mspack_file_p *self = (struct mspack_file_p *) file;
-  if (self) {
-      if (self->fh) fclose(self->fh);
-      else {
-          unsigned char md5[16];
-          md5_finish_ctx(&md5_context, (void *) &md5);
-          snprintf(md5_string, sizeof(md5_string),
-                   "%02x%02x%02x%02x%02x%02x%02x%02x"
-                   "%02x%02x%02x%02x%02x%02x%02x%02x",
-                   md5[0],  md5[1],  md5[2],  md5[3],
-                   md5[4],  md5[5],  md5[6],  md5[7],
-                   md5[8],  md5[9],  md5[10], md5[11],
-                   md5[12], md5[13], md5[14], md5[15]);
-      }
-      free(self);
-  }
-}
-
-static int m_read(struct mspack_file *file, void *buffer, int bytes) {
-  struct mspack_file_p *self = (struct mspack_file_p *) file;
-  if (self && self->fh && buffer && bytes >= 0) {
-      size_t count = fread(buffer, 1, bytes, self->fh);
-      if (!ferror(self->fh)) return (int) count;
-  }
-  return -1;
-}
-
-static int m_write(struct mspack_file *file, void *buffer, int bytes) {
-    struct mspack_file_p *self = (struct mspack_file_p *) file;
-    if (!self || self->fh || !buffer || bytes < 0) return -1;
-    md5_process_bytes(buffer, bytes, &md5_context);
-    return bytes;
-}
-
-static int m_seek(struct mspack_file *file, off_t offset, int mode) {
-    struct mspack_file_p *self = (struct mspack_file_p *) file;
-    if (self && self->fh) {
-        switch (mode) {
-        case MSPACK_SYS_SEEK_START: mode = SEEK_SET; break;
-        case MSPACK_SYS_SEEK_CUR:   mode = SEEK_CUR; break;
-        case MSPACK_SYS_SEEK_END:   mode = SEEK_END; break;
-        default: return -1;
-        }
-#if HAVE_FSEEKO
-        return fseeko(self->fh, offset, mode);
-#else
-        return fseek(self->fh, offset, mode);
-#endif
-    }
-    return -1;
-}
-
-static off_t m_tell(struct mspack_file *file) {
-    struct mspack_file_p *self = (struct mspack_file_p *) file;
-#if HAVE_FSEEKO
-    return (self && self->fh) ? (off_t) ftello(self->fh) : 0;
-#else
-    return (self && self->fh) ? (off_t) ftell(self->fh) : 0;
-#endif
-}
-
-static void m_msg(struct mspack_file *file, const char *format, ...) {
-    va_list ap;
-    va_start(ap, format);
-    vfprintf(stderr, format, ap);
-    va_end(ap);
-    fputc((int) '\n', stderr);
-    fflush(stderr);
-}
-static void *m_alloc(struct mspack_system *self, size_t bytes) {
-    return malloc(bytes);
-}
-static void m_free(void *buffer) {
-    free(buffer);
-}
-static void m_copy(void *src, void *dest, size_t bytes) {
-    memcpy(dest, src, bytes);
-}
-
-static struct mspack_system read_files_write_md5 = {
-    &m_open, &m_close, &m_read, &m_write, &m_seek,
-    &m_tell, &m_msg, &m_alloc, &m_free, &m_copy, NULL
-};

data/ext/libmspack/test/test_files/cabd/1.pl

@@ -1,84 +0,0 @@
-#!perl -w
-use strict;
-
-sub  byte($)  {pack 'c',$_[0]};
-sub ubyte($)  {pack 'C',$_[0]};
-sub uword($)  {pack 'v',$_[0]};
-sub ulong($)  {pack 'V',$_[0]};
-
-my $RESV_HEADER = 'reserved header test 12345';
-#my $RESV_HEADER = '';
-#my $RESV_FOLDER = 'reserved folder test 12345';
-my $RESV_FOLDER = '';
-my $RESV_DATA   = 'reserved data test 12345';
-#my $RESV_DATA   = '';
-
-my $header
-  = 'MSCF'     # 00 SIGNATURE
-  . ulong(0)   # 04
-  . ulong(0)   # 08 CABINET SIZE
-  . ulong(0)   # 0C
-  . ulong(0)   # 10 FILES OFFSET
-  . ulong(0)   # 14
-  . ubyte(3)   # 18 MINOR VERSION
-  . ubyte(1)   # 19 MAJOR VERSION
-  . uword(1)   # 1A number of folders
-  . uword(2)   # 1C number of files
-  . uword(4)   # 1E flags
-  . uword(1)   # 20 set id
-  . uword(0)   # 22 cab index
-
-  . uword(length($RESV_HEADER))   # 00 header reserved
-  . ubyte(length($RESV_FOLDER))   # 02 folder resv
-  . ubyte(length($RESV_DATA))     # 03 data resv
-  . $RESV_HEADER
-;
-
-my $folder
-  = ulong(0)  # data offset
-  . uword(2)  # number of blocks
-  . uword(0)  # compression method
-  . $RESV_FOLDER
-;
-
-my $files
-  = ulong(5) # uncompressed size
-  . ulong(0) # folder offset
-  . uword(0) # folder index
-  . uword(0x226C) # time
-  . uword(0x59BA) # date
-  . uword(0x20)   # attribs
-  . "test1.txt\0"
-
-  . ulong(5) # uncompressed size
-  . ulong(5) # folder offset
-  . uword(0) # folder index
-  . uword(0x226C) # time
-  . uword(0x59BA) # date
-  . uword(0x20)   # attribs
-  . "test2.txt\0"
-;
-
-my $datablocks
-  = ulong(0) # checksum
-  . uword(5) # compressed size
-  . uword(5) # uncompressed size
-  . $RESV_DATA
-  . "TEST\n" # actual data
-
-  . ulong(0) # checksum
-  . uword(5) # compressed size
-  . uword(5) # uncompressed size
-  . $RESV_DATA
-  . "test\n" # actual data
-;
-
-my $pre_files = $header . $folder;
-my $pre_data  = $pre_files . $files;
-my $cab       = $pre_data . $datablocks;
-
-substr($header, 0x08, 4, ulong(length($cab)));
-substr($header, 0x10, 4, ulong(length($pre_files)));
-substr($folder, 0x00, 4, ulong(length($pre_data)));
-
-print $header . $folder . $files . $datablocks;

data/ext/libmspack/test/test_files/cabd/2.pl

@@ -1,75 +0,0 @@
-#!perl -w
-use strict;
-
-sub  byte($)  {pack 'c',$_[0]};
-sub ubyte($)  {pack 'C',$_[0]};
-sub uword($)  {pack 'v',$_[0]};
-sub ulong($)  {pack 'V',$_[0]};
-
-my $header
-  = 'MSCF'     # 00 SIGNATURE
-  . ulong(0)   # 04
-  . ulong(0)   # 08 CABINET SIZE
-  . ulong(0)   # 0C
-  . ulong(0)   # 10 FILES OFFSET
-  . ulong(0)   # 14
-  . ubyte(3)   # 18 MINOR VERSION
-  . ubyte(1)   # 19 MAJOR VERSION
-  . uword(1)   # 1A number of folders
-  . uword(3)   # 1C number of files
-  . uword(1)   # 1E flags
-  . uword(12345) # 20 set id
-  . uword(4)   # 22 cab index
-  . "cabd_multi_basic_pt4.cab\0"
-  . "basic multipart test part 4\0"
-
-;
-
-my $folder
-  = ulong(0)  # data offset
-  . uword(1)  # number of blocks
-  . uword(0)  # compression method
-;
-
-my $files
-  = ulong(76) # uncompressed size
-  . ulong(0) # folder offset
-  . uword(0xFFFD) # folder index
-  . uword(0x226C) # time
-  . uword(0x59BA) # date
-  . uword(0x20)   # attribs
-  . "test1.txt\0"
-
-  . ulong(38) # uncompressed size
-  . ulong(76) # folder offset
-  . uword(0xFFFD) # folder index
-  . uword(0x226C) # time
-  . uword(0x59BA) # date
-  . uword(0x20)   # attribs
-  . "test2.txt\0"
-
-  . ulong(76) # uncompressed size
-  . ulong(76+38) # folder offset
-  . uword(0xFFFD) # folder index
-  . uword(0x226C) # time
-  . uword(0x59BA) # date
-  . uword(0x20)   # attribs
-  . "test3.txt\0"
-;
-
-my $datablocks
-  = ulong(0) # checksum
-  . uword(38) # compressed size
-  . uword(190) # uncompressed size
-  . "This is the data from cabinet part 5.\n" # actual data
-;
-
-my $pre_files = $header . $folder;
-my $pre_data  = $pre_files . $files;
-my $cab       = $pre_data . $datablocks;
-
-substr($header, 0x08, 4, ulong(length($cab)));
-substr($header, 0x10, 4, ulong(length($pre_files)));
-substr($folder, 0x00, 4, ulong(length($pre_data)));
-
-print $header . $folder . $files . $datablocks;

data/ext/libmspack/test/test_files/kwajd/make.pl

@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-my $name = '123456789';
-for my $file (0 .. 9) {
-    for my $ext (0 .. 4) {
-        open my $fh, '>', "f$file$ext.kwj";
-        my $offset = 14  + $file + $ext;
-        my $flags  = ($file > 0 ? 8 : 0) | ($ext > 0 ? 16 : 0);
-        print $fh pack 'A4Vvvv', 'KWAJ', 0xD127F088, 0, $offset, $flags;
-        print $fh substr $name, 0, $file if $file > 0;
-        print $fh "\0" if $file > 0 && $file < 9;
-        print $fh substr $name, 0, $ext if $ext > 0;
-        print $fh "\0" if $ext > 0 && $ext < 4;
-        print $fh "\xFF";
-        close $fh;
-    }
-}