libmspack 0.0.1

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

@@ -0,0 +1,84 @@
+#!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

@@ -0,0 +1,75 @@
+#!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/winbuild.sh

@@ -0,0 +1,26 @@
+#!/bin/sh
+cat <<END
+!!! !!! !!! !!! !!! !!! !!! !!! !!! !!! !!! !!! 
+This builds the libmspack into mspack.dll on
+Windows with Microsoft compiler.
+After compilation find the library in the 
+directory mspack 
+!!! !!! !!! !!! !!! !!! !!! !!! !!! !!! !!! !!! 
+END
+
+cat >config.h <<END
+#define inline __inline
+#define HAVE_STRING_H 1
+#define HAVE_LIMITS_H 1
+#define HAVE_MEMCMP 1
+END
+
+cd mspack
+
+cl /O2 -I. /c *.c
+link *.obj /DLL /DEF:mspack.def /IMPLIB:mspack.lib
+
+cd ..
+
+ls -l mspack/mspack.dll
+ls -l mspack/mspack.lib

data/lib/libmspack/constants.rb

@@ -0,0 +1,9 @@
+module LibMsPack
+    module Constants
+        include LibMsPack::MsPack::Constants
+        include LibMsPack::MsCab::Constants
+        include LibMsPack::MsChm::Constants
+        include LibMsPack::MsKwaj::Constants
+        include LibMsPack::MsSzdd::Constants
+    end
+end

data/lib/libmspack/exceptions.rb

@@ -0,0 +1,12 @@
+module LibMsPack
+    module Exceptions
+        class NotInitializedError < RuntimeError
+        end
+
+        class AlreadyInitializedError < RuntimeError
+        end
+
+        class LibMsPackError < RuntimeError
+        end
+    end
+end