diff options
Diffstat (limited to 'inc2scm')
| -rwxr-xr-x | inc2scm | 22 |
1 files changed, 12 insertions, 10 deletions
@@ -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*))) |