[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 19670250819131fd095f365503f1d1ae96e94722
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Dec 4 04:40:31 2004 +0100

    Checkpointing
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.7--patch-17)

diff --git a/ChangeLog b/ChangeLog
index 4231232..ff4a5d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,27 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.7
 #
 
+2004-12-03 21:40:31 GMT	John Goerzen <jgoerzen at complete.org>	patch-17
+
+    Summary:
+      Checkpointing
+    Revision:
+      missingh--head--0.7--patch-17
+
+
+    new files:
+     libsrc/MissingH/FileArchive/.arch-ids/=id
+     libsrc/MissingH/FileArchive/GZip.hs
+
+    modified files:
+     ChangeLog libsrc/MissingH/Checksum/CRC32.hs
+     libsrc/MissingH/Compression/Inflate.hs
+
+    new directories:
+     libsrc/MissingH/FileArchive
+     libsrc/MissingH/FileArchive/.arch-ids
+
+
 2004-12-03 21:18:44 GMT	John Goerzen <jgoerzen at complete.org>	patch-16
 
     Summary:
diff --git a/libsrc/MissingH/Checksum/CRC32.hs b/libsrc/MissingH/Checksum/CRC32.hs
index fad25d4..0d940bd 100644
--- a/libsrc/MissingH/Checksum/CRC32.hs
+++ b/libsrc/MissingH/Checksum/CRC32.hs
@@ -26,7 +26,7 @@
    Stability  : provisional
    Portability: portable
 
-Configuration file parsing, generation, and manipulation
+CRC32 checksumming
 
 Copyright (c) 2002 HardCore SoftWare, Doug Hoyte
 -}
diff --git a/libsrc/MissingH/Compression/Inflate.hs b/libsrc/MissingH/Compression/Inflate.hs
index 77f95ff..dd6cbd6 100644
--- a/libsrc/MissingH/Compression/Inflate.hs
+++ b/libsrc/MissingH/Compression/Inflate.hs
@@ -23,7 +23,7 @@ as described by RFC 1951.
    Stability  : provisional
    Portability: portable
 
-Configuration file parsing, generation, and manipulation
+Inflate algorithm implementation
 
 Copyright (C) 2004 Ian Lynagh
 -}
diff --git a/libsrc/MissingH/FileArchive/GZip.hs b/libsrc/MissingH/FileArchive/GZip.hs
new file mode 100644
index 0000000..5b1ded4
--- /dev/null
+++ b/libsrc/MissingH/FileArchive/GZip.hs
@@ -0,0 +1,43 @@
+-- arch-tag: GZip file support in Haskell
+
+{- |
+   Module     : MissingH.FileArchive.GZip
+   Copyright  : Copyright (C) 2004 John Goerzen
+   License    : GNU GPL, version 2 or above
+
+   Maintainer : John Goerzen,
+   Maintainer : jgoerzen at complete.org
+   Stability  : provisional
+   Portability: portable
+
+GZip file decompression
+
+Copyright (C) 2004 John Goerzen, jgoerzen\@complete.org
+
+The GZip format is described in RFC1952
+
+-}
+
+module MissingH.FileArchive.GZip (
+                                 )
+where
+
+import MissingH.Compression.Inflate
+import MissingH.Checksum.CRC32
+import Data.List
+import Control.Monad.Error
+
+type GZipError = String
+
+-- | First two bytes of file
+magic = "\x1f\x8b"
+
+{- | Read the GZip header.  Return (Header, Remainder).
+-}
+read_header :: String -> Either GZipError (String, String)
+read_header s =
+    do let (mag, rem) = splitAt 2 s
+       if mag /= magic
+          then throwError "Not a GZip file"
+          else return "ok"
+       return ("test", rem)
\ No newline at end of file

-- 
haskell-testpack