aboutsummaryrefslogtreecommitdiffstats
path: root/inc2scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:27 -0800
commitc7d035ae1a729232579a0fe41ed5affa131d3623 (patch)
treefb387f7c2a8e01cf603d4c75fbbaa68f711df986 /inc2scm
parentdeda2c0fd8689349fea2a900199a76ff7ecb319e (diff)
downloadscm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz
scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'inc2scm')
-rwxr-xr-xinc2scm22
1 files changed, 12 insertions, 10 deletions
diff --git a/inc2scm b/inc2scm
index 5037e2c..951104b 100755
--- a/inc2scm
+++ b/inc2scm
@@ -43,11 +43,13 @@
;;;; "inc2scm", Convert numeric C #defines to Scheme definitions.
;;; Author: Aubrey Jaffer.
-(define (go-script)
- (cond ((< 1 (- (length *argv*) *optind*))
- (apply inc2scm (list-tail *argv* *optind*)))
- (else
- (display "\
+(define (inc2scm.script args)
+ (cond ((< 1 (length args))
+ (apply scm<-usr/includes args))
+ (else (inc2scm.usage))))
+
+(define (inc2scm.usage)
+ (display "\
\
Usage: inc2scm defines.scm [pre:] [/usr/include/] file1.h file2.h ...
\
@@ -57,9 +59,11 @@ Usage: inc2scm defines.scm [pre:] [/usr/include/] file1.h file2.h ...
PRE: is prepended to those scheme names lacking a prefix.
/USR/INCLUDE/ defaults to /usr/include/.
+
+http://swissnet.ai.mit.edu/~jaffer/SCM
"
- (current-error-port))
- (exit #f))))
+ (current-error-port))
+ #f)
(require 'string-search)
(require 'printf)
@@ -172,7 +176,6 @@ Usage: inc2scm defines.scm [pre:] [/usr/include/] file1.h file2.h ...
(apply scm<-includes scmname pre include-path filenames)
(delete-file "tmpprog.c")
(delete-file "tmpprog"))
-(define inc2scm scm<-usr/includes)
(define (scm<-h* scmname . filenames)
(define pre (let ((first (car filenames)))
@@ -183,8 +186,7 @@ Usage: inc2scm defines.scm [pre:] [/usr/include/] file1.h file2.h ...
(delete-file "tmpprog"))
(define h2scm scm<-h*)
-(go-script)
-
;;; Local Variables:
;;; mode:scheme
;;; End:
+(exit (inc2scm.script (list-tail *argv* *optind*)))