Changed to new package system.

scsh/image-info/AUTHORS

@@ -1 +1 @@
-Rolf-Thomas Happe, (credit to Marco Schmidt)
+Copyright (c) 2003 Rolf-Thomas Happe

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

scsh/image-info/interfaces.scm

@@ -1,18 +0,0 @@
-; Copyright (c) 2003 RT Happe <rthappe at web de>
-; 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
-          ))

scsh/image-info/load.scm

@@ -1,6 +1,22 @@
 ; Copyright (c) 2003 RT Happe <rthappe at web de>
 ; 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

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

scsh/interaction/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler
+Copyright (c) 2003 Martin Gasbichler

scsh/interaction/NEWS

@@ -0,0 +1,2 @@
+version 0.0
+* New package system.

scsh/interaction/interfaces.scm

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

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

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

scsh/pps/AUTHORS

@@ -1 +1 @@
-Martin Gasbichler
+Copyright (c) 2003 Martin Gasbichler

scsh/pps/NEWS

@@ -0,0 +1,2 @@
+version 0.0
+* New package system.

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))
+	   process-info-command-line))
+
+(define-structure pps pps-interface
+  (open scheme-with-scsh
+	(subset srfi-1 (drop take))
+	define-record-types)
+  (files pps))

scsh/pps/packages.scm

@@ -1,5 +0,0 @@
-(define-structure pps pps-interface
-  (open scheme-with-scsh
-	(subset srfi-1 (drop take))
-	define-record-types)
-  (files pps))

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