Import Debian changes 5d9-4.1debian/5d9-4.1

scm (5d9-4.1) unstable; urgency=high

  * Non-maintainer upload.
  * High-urgency upload for sarge-targetted RC bugfix.
  * Revert upstream "CAUTIOUS" define, which causes the scm build to
    fail its test suite on alpha (and, it appears, powerpc as well).
    Closes: #245810.

scm (5d9-4) unstable; urgency=low

  * Apply patch from 144062 to fix hppa build (Closes: #144062)
  * Change scm.1 section from Jan 4 200 to 1. (lintian)

scm (5d9-3) unstable; urgency=low

  * Properly clean up info files.
  * Make and install Xlibscm.info.

scm (5d9-2) unstable; urgency=low

  * Fix path problem in slibcat.  Hack at mklibcat.scm.  (Closes: #241510)

scm (5d9-1) unstable; urgency=low

  * New upstream release
  * Merge NMU sparc changes (Closes: #191171, #191356)
  * SHORT_INT is defined for ia64 upstream (Closes: #141928)
  * Scheme imps now grouped in info file (has been for a while)
  (Closes: #115452)

1 files changed, 14 insertions, 12 deletions

diff --git a/xgen.scm b/xgen.scm
index 20d0cfd..cf9f0f3 100755
--- a/xgen.scm
+++ b/xgen.scm
@@ -43,21 +43,25 @@
 ;;;; "xgen.scm", Convert C Event structs to xevent.h and xevent.scm.
 ;;; Author: Aubrey Jaffer.
 
-(define (go-script)
-  (cond ;;((not *script*))
-	((>= 1 (- (length *argv*) *optind*))
+(define (xgen.scm args)
+  (cond ((= 1 (length args))
 	 (xatoms)
-	 (apply xgen.scm (list-tail *argv* *optind*)))
-	(else
-	 (display "\
+	 (apply xgen args)
+	 #t)
+	(else (xgen.usage))))
+
+(define (xgen.usage)
+  (display "\
 \
 Usage: xgen.scm /usr/include/X11/Xlib.h
 \
   Creates xevent.h and xevent.scm, from the `typedef struct's
   in /usr/include/X11/xlib.h.
+
+http://swissnet.ai.mit.edu/~jaffer/SCM
 "
-		  (current-error-port))
-	 (exit #f))))
+	   (current-error-port))
+  #f)
 
 (require 'common-list-functions)
 (require 'string-search)
@@ -223,8 +227,7 @@ Usage: xgen.scm /usr/include/X11/Xlib.h
 	 (set! event-field-idx (+ 1 event-field-idx))
 	 (+ -1 event-field-idx))))
 
-(define (xgen.scm . filename)
-  (set! filename (if (null? filename) "/usr/include/X11/Xlib.h" (car filename)))
+(define (xgen filename)
   (let ((structs (remove-if-not
 		  (lambda (struct) (substring? "Event" (car struct)))
 		  (call-with-input-file filename extract-structs))))
@@ -314,8 +317,7 @@ Usage: xgen.scm /usr/include/X11/Xlib.h
 		((0 1) #f)
 		(else (slib:error 'xcms.h 'line line)))))))))
 
-(go-script)
-
 ;;; Local Variables:
 ;;; mode:scheme
 ;;; End:
+(exit (xgen.scm (list-tail *argv* *optind*))) ;(and *script* )