From 7b6e2dc3092ca658026c01ea34c3c79606acdf19 Mon Sep 17 00:00:00 2001 From: Anthony Carrico Date: Wed, 10 Mar 2004 18:46:33 +0000 Subject: [PATCH] Changed to new package system. --- scsh/image-info/AUTHORS | 2 +- scsh/image-info/NEWS | 6 ++++++ scsh/image-info/interfaces.scm | 18 ------------------ scsh/image-info/{packages.scm => load.scm} | 16 ++++++++++++++++ scsh/image-info/pkg-def.scm | 8 ++++++++ scsh/interaction/AUTHORS | 2 +- scsh/interaction/NEWS | 2 ++ scsh/interaction/interfaces.scm | 11 ----------- scsh/interaction/{packages.scm => load.scm} | 14 +++++++++++++- scsh/interaction/pkg-def.scm | 10 ++++++++++ scsh/pps/AUTHORS | 2 +- scsh/pps/NEWS | 2 ++ scsh/pps/{interfaces.scm => load.scm} | 12 +++++++++--- scsh/pps/packages.scm | 5 ----- scsh/pps/pkg-def.scm | 8 ++++++++ 15 files changed, 77 insertions(+), 41 deletions(-) create mode 100644 scsh/image-info/NEWS delete mode 100644 scsh/image-info/interfaces.scm rename scsh/image-info/{packages.scm => load.scm} (67%) create mode 100644 scsh/image-info/pkg-def.scm create mode 100644 scsh/interaction/NEWS delete mode 100644 scsh/interaction/interfaces.scm rename scsh/interaction/{packages.scm => load.scm} (60%) create mode 100644 scsh/interaction/pkg-def.scm create mode 100644 scsh/pps/NEWS rename scsh/pps/{interfaces.scm => load.scm} (64%) delete mode 100644 scsh/pps/packages.scm create mode 100644 scsh/pps/pkg-def.scm diff --git a/scsh/image-info/AUTHORS b/scsh/image-info/AUTHORS index 95a3c22..ea94477 100644 --- a/scsh/image-info/AUTHORS +++ b/scsh/image-info/AUTHORS @@ -1 +1 @@ -Rolf-Thomas Happe, (credit to Marco Schmidt) +Copyright (c) 2003 Rolf-Thomas Happe diff --git a/scsh/image-info/NEWS b/scsh/image-info/NEWS new file mode 100644 index 0000000..11e7984 --- /dev/null +++ b/scsh/image-info/NEWS @@ -0,0 +1,6 @@ +version 0.1 +* New package system. + +version 0.0 2003-02-16 +* Loose port of small parts from Marco Schmidt's public + domain ImageInfo 1.3 Java program diff --git a/scsh/image-info/interfaces.scm b/scsh/image-info/interfaces.scm deleted file mode 100644 index f306060..0000000 --- a/scsh/image-info/interfaces.scm +++ /dev/null @@ -1,18 +0,0 @@ -; Copyright (c) 2003 RT Happe -; See the file COPYING distributed with the Scheme Untergrund Library - -(define-interface image-info-face - (export image-dimension - get-image-info - - image-info:format - image-info:depth - image-info:width/pixel - image-info:height/pixel - image-info:width/dpi - image-info:height/dpi - - inport->byte-stream - byte-vector->byte-stream - segment-byte-stream - )) diff --git a/scsh/image-info/packages.scm b/scsh/image-info/load.scm similarity index 67% rename from scsh/image-info/packages.scm rename to scsh/image-info/load.scm index 85fc2aa..39f981b 100644 --- a/scsh/image-info/packages.scm +++ b/scsh/image-info/load.scm @@ -1,6 +1,22 @@ ; Copyright (c) 2003 RT Happe ; See the file COPYING distributed with the Scheme Untergrund Library +(define-interface image-info-face + (export image-dimension + get-image-info + + image-info:format + image-info:depth + image-info:width/pixel + image-info:height/pixel + image-info:width/dpi + image-info:height/dpi + + inport->byte-stream + byte-vector->byte-stream + segment-byte-stream + )) + ;;; refers to structures SRFI-9+ and KRIMS from sunterlib/s48/krims ;;; BYTIO from sunterlib/s48/bytio ;;; SEQUENCE-LIB from sunterlib/s48/sequences diff --git a/scsh/image-info/pkg-def.scm b/scsh/image-info/pkg-def.scm new file mode 100644 index 0000000..54d9586 --- /dev/null +++ b/scsh/image-info/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "image-info" + (0 1) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "imxize.scm" 'scheme)) diff --git a/scsh/interaction/AUTHORS b/scsh/interaction/AUTHORS index 2df1b32..c8931a5 100644 --- a/scsh/interaction/AUTHORS +++ b/scsh/interaction/AUTHORS @@ -1 +1 @@ -Martin Gasbichler +Copyright (c) 2003 Martin Gasbichler diff --git a/scsh/interaction/NEWS b/scsh/interaction/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/interaction/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/interaction/interfaces.scm b/scsh/interaction/interfaces.scm deleted file mode 100644 index 6f7fdc1..0000000 --- a/scsh/interaction/interfaces.scm +++ /dev/null @@ -1,11 +0,0 @@ -(define-interface repls-interface - (export script-repl - remote-repl)) - -(define-interface inspect-exception-interface - (export with-inspecting-handler - with-fatal-and-capturing-error-handler - display-continuation)) - -(define-interface socket2stdports-interface - (export socket<->stdports)) diff --git a/scsh/interaction/packages.scm b/scsh/interaction/load.scm similarity index 60% rename from scsh/interaction/packages.scm rename to scsh/interaction/load.scm index f01a6f3..095195c 100644 --- a/scsh/interaction/packages.scm +++ b/scsh/interaction/load.scm @@ -1,3 +1,15 @@ +(define-interface repls-interface + (export script-repl + remote-repl)) + +(define-interface inspect-exception-interface + (export with-inspecting-handler + with-fatal-and-capturing-error-handler + display-continuation)) + +(define-interface socket2stdports-interface + (export socket<->stdports)) + (define-structure repls repls-interface (open scheme-with-scsh command-levels @@ -8,7 +20,7 @@ (files repl)) (define-structure inspect-exception inspect-exception-interface - + (open scheme-with-scsh rt-modules exceptions diff --git a/scsh/interaction/pkg-def.scm b/scsh/interaction/pkg-def.scm new file mode 100644 index 0000000..add514a --- /dev/null +++ b/scsh/interaction/pkg-def.scm @@ -0,0 +1,10 @@ +(define-package "interaction" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "inspect-exception.scm" 'scheme) + (install-file "repl.scm" 'scheme) + (install-file "socket2stdport.scm" 'scheme)) diff --git a/scsh/pps/AUTHORS b/scsh/pps/AUTHORS index 2df1b32..c8931a5 100644 --- a/scsh/pps/AUTHORS +++ b/scsh/pps/AUTHORS @@ -1 +1 @@ -Martin Gasbichler +Copyright (c) 2003 Martin Gasbichler diff --git a/scsh/pps/NEWS b/scsh/pps/NEWS new file mode 100644 index 0000000..26f793c --- /dev/null +++ b/scsh/pps/NEWS @@ -0,0 +1,2 @@ +version 0.0 +* New package system. diff --git a/scsh/pps/interfaces.scm b/scsh/pps/load.scm similarity index 64% rename from scsh/pps/interfaces.scm rename to scsh/pps/load.scm index 61776d7..bdb7810 100644 --- a/scsh/pps/interfaces.scm +++ b/scsh/pps/load.scm @@ -1,6 +1,6 @@ (define-interface pps-interface (export pps - + process-info? process-info-pid process-info-ppid @@ -10,8 +10,14 @@ process-info-saved-set-uid process-info-real-gid process-info-effective-gid - process-info-saved-set-gid + process-info-saved-set-gid process-info-time process-info-tty process-info-executable - process-info-command-line)) \ No newline at end of file + process-info-command-line)) + +(define-structure pps pps-interface + (open scheme-with-scsh + (subset srfi-1 (drop take)) + define-record-types) + (files pps)) diff --git a/scsh/pps/packages.scm b/scsh/pps/packages.scm deleted file mode 100644 index 6658f2d..0000000 --- a/scsh/pps/packages.scm +++ /dev/null @@ -1,5 +0,0 @@ -(define-structure pps pps-interface - (open scheme-with-scsh - (subset srfi-1 (drop take)) - define-record-types) - (files pps)) \ No newline at end of file diff --git a/scsh/pps/pkg-def.scm b/scsh/pps/pkg-def.scm new file mode 100644 index 0000000..d62904a --- /dev/null +++ b/scsh/pps/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "pps" + (0 0) + () + (install-file "load.scm" 'base) + (install-file "README" 'doc) + (install-file "NEWS" 'doc) + (install-string (COPYING) "COPYING" 'doc) + (install-file "pps.scm" 'scheme))