Changed to new package system.

scsh/tiff/AUTHORS

@@ -1 +1,2 @@
-Oleg Kiselyov, RT Happe (porter)
+Copyright (c) 2003 Oleg Kiselyov
+Copyright (c) 2003 RT Happe

scsh/tiff/NEWS

@@ -0,0 +1,5 @@
+version 0.1
+* New package system.
+
+version 0.0 2003-10-07
+* Upstream from Oleg Kiselyov

scsh/tiff/interfaces.scm

@@ -1,78 +0,0 @@
-(define tifflet-face
-  (export read-tiff-file
-          print-tiff-directory
-          tiff-directory-get
-          tiff-directory-get-as-symbol
-   ))
-
-(define tifftag-face
-  (export tagdict-get-by-name
-          tagdict-get-by-num
-          tagdict-tagval-get-by-name
-          tagdict-tagval-get-by-num
-          make-tagdict
-          tagdict?
-          tagdict-add-all
-          tiff-standard-tagdict
-          ))
-
-(define tiffdir-face
-  (export tiff-directory?
-          tiff-directory-size
-          tiff-directory-empty?
-          tiff-directory-get
-          tiff-directory-get-as-symbol
-          read-tiff-file
-          print-tiff-directory
-          tiff-directory-fold-left
-          tiff-dir-entry?
-          tiff-dir-entry-tag
-          tiff-dir-entry-type
-          tiff-dir-entry-count
-          tiff-dir-entry-val-offset
-          tiff-dir-entry-value
-          print-tiff-dir-entry
-          ))
-
-(define tiff-prober-face
-  (export tiff-prober))
-
-(define-interface endian-face
-  (export make-endian-port
-          close-endian-port
-          endian-port-set-bigendian!
-          endian-port-set-littlendian!
-          endian-port-read-int1
-          endian-port-read-int2
-          endian-port-read-int4
-          endian-port-setpos))
-
-;;;
-
-(define-interface ersatz-srfi-4-face
-  (export u8vector?
-          u8vector  make-u8vector
-          u8vector-length
-          u8vector-ref u8vector-set!
-          u8vector->list list->u8vector
-
-          u16vector?
-          u16vector  make-u16vector
-          u16vector-length
-          u16vector-ref u16vector-set!
-          u16vector->list list->u16vector
-
-          u32vector?
-          u32vector  make-u32vector
-          u32vector-length
-          u32vector-ref u32vector-set!
-          u32vector->list list->u32vector
-          ))
-
-
-(define-interface tiff-helpers-face
-  (export (define-structure :syntax)
-          (++ :syntax)
-          cerr cout nl))
-
-

scsh/tiff/load.scm

@@ -1,3 +1,81 @@
+(define tifflet-face
+  (export read-tiff-file
+          print-tiff-directory
+          tiff-directory-get
+          tiff-directory-get-as-symbol
+   ))
+
+(define tifftag-face
+  (export tagdict-get-by-name
+          tagdict-get-by-num
+          tagdict-tagval-get-by-name
+          tagdict-tagval-get-by-num
+          make-tagdict
+          tagdict?
+          tagdict-add-all
+          tiff-standard-tagdict
+          ))
+
+(define tiffdir-face
+  (export tiff-directory?
+          tiff-directory-size
+          tiff-directory-empty?
+          tiff-directory-get
+          tiff-directory-get-as-symbol
+          read-tiff-file
+          print-tiff-directory
+          tiff-directory-fold-left
+          tiff-dir-entry?
+          tiff-dir-entry-tag
+          tiff-dir-entry-type
+          tiff-dir-entry-count
+          tiff-dir-entry-val-offset
+          tiff-dir-entry-value
+          print-tiff-dir-entry
+          ))
+
+(define tiff-prober-face
+  (export tiff-prober))
+
+(define-interface endian-face
+  (export make-endian-port
+          close-endian-port
+          endian-port-set-bigendian!
+          endian-port-set-littlendian!
+          endian-port-read-int1
+          endian-port-read-int2
+          endian-port-read-int4
+          endian-port-setpos))
+
+;;;
+
+(define-interface ersatz-srfi-4-face
+  (export u8vector?
+          u8vector  make-u8vector
+          u8vector-length
+          u8vector-ref u8vector-set!
+          u8vector->list list->u8vector
+
+          u16vector?
+          u16vector  make-u16vector
+          u16vector-length
+          u16vector-ref u16vector-set!
+          u16vector->list list->u16vector
+
+          u32vector?
+          u32vector  make-u32vector
+          u32vector-length
+          u32vector-ref u32vector-set!
+          u32vector->list list->u32vector
+          ))
+
+
+(define-interface tiff-helpers-face
+  (export (define-structure :syntax)
+          (++ :syntax)
+          cerr cout nl))
+
+
 (define-structures
   ((tifflet tifflet-face)
    (tiff (compound-interface tifftag-face tiffdir-face)))
@@ -76,4 +154,3 @@
         scheme-with-scsh
         )
   (begin ))
-

scsh/tiff/pkg-def.scm

@@ -0,0 +1,14 @@
+(define-package "binary-parse"
+  (0 1)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "aux.scm" 'scheme)
+  (install-file "tiff-prober.scm" 'scheme)
+  (install-file "vtiff.scm" 'scheme)
+  (install-file "endian.scm" 'scheme)
+  (install-file "tiff.scm" 'scheme)
+  (install-file "gnu-head-sm.tif" 'misc-shared)
+  (install-file "bsp.tiff" 'misc-shared))