scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed to new package system.

This commit is contained in:
Anthony Carrico 2004-03-10 19:03:32 +00:00
parent 7b6e2dc309
commit 376cc1c972
5 changed files with 99 additions and 80 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/tiff/AUTHORS
View File

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

5
scsh/tiff/NEWS Normal file
View File

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

78
scsh/tiff/interfaces.scm
View File

@ -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))

79
scsh/tiff/packages.scm → scsh/tiff/load.scm
View File

@ -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 ))

14
scsh/tiff/pkg-def.scm Normal file
View File

@ -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))