From 376cc1c972a10f27a17d3ffee473fa99ad1c0a25 Mon Sep 17 00:00:00 2001 From: Anthony Carrico Date: Wed, 10 Mar 2004 19:03:32 +0000 Subject: [PATCH] Changed to new package system. --- scsh/tiff/AUTHORS | 3 +- scsh/tiff/NEWS | 5 ++ scsh/tiff/interfaces.scm | 78 --------------------------- scsh/tiff/{packages.scm => load.scm} | 79 +++++++++++++++++++++++++++- scsh/tiff/pkg-def.scm | 14 +++++ 5 files changed, 99 insertions(+), 80 deletions(-) create mode 100644 scsh/tiff/NEWS delete mode 100644 scsh/tiff/interfaces.scm rename scsh/tiff/{packages.scm => load.scm} (62%) create mode 100644 scsh/tiff/pkg-def.scm diff --git a/scsh/tiff/AUTHORS b/scsh/tiff/AUTHORS index d5c860d..643b415 100644 --- a/scsh/tiff/AUTHORS +++ b/scsh/tiff/AUTHORS @@ -1 +1,2 @@ -Oleg Kiselyov, RT Happe (porter) +Copyright (c) 2003 Oleg Kiselyov +Copyright (c) 2003 RT Happe diff --git a/scsh/tiff/NEWS b/scsh/tiff/NEWS new file mode 100644 index 0000000..bd9fb75 --- /dev/null +++ b/scsh/tiff/NEWS @@ -0,0 +1,5 @@ +version 0.1 +* New package system. + +version 0.0 2003-10-07 +* Upstream from Oleg Kiselyov diff --git a/scsh/tiff/interfaces.scm b/scsh/tiff/interfaces.scm deleted file mode 100644 index 7d63bbf..0000000 --- a/scsh/tiff/interfaces.scm +++ /dev/null @@ -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)) - - diff --git a/scsh/tiff/packages.scm b/scsh/tiff/load.scm similarity index 62% rename from scsh/tiff/packages.scm rename to scsh/tiff/load.scm index 06ad730..b45ba97 100644 --- a/scsh/tiff/packages.scm +++ b/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 )) - diff --git a/scsh/tiff/pkg-def.scm b/scsh/tiff/pkg-def.scm new file mode 100644 index 0000000..1267138 --- /dev/null +++ b/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))