[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36
John Goerzen
jgoerzen at complete.org
Fri Apr 23 14:49:35 UTC 2010
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
More information about the Pkg-haskell-commits
mailing list