diff options
Diffstat (limited to 'inc2scm')
| -rwxr-xr-x | inc2scm | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -17,26 +17,26 @@ ;; the Free Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111, USA. ;; ;; As a special exception, the Free Software Foundation gives permission -;; for additional uses of the text contained in its release of GUILE. +;; for additional uses of the text contained in its release of SCM. ;; -;; The exception is that, if you link the GUILE library with other files +;; The exception is that, if you link the SCM library with other files ;; to produce an executable, this does not by itself cause the ;; resulting executable to be covered by the GNU General Public License. ;; Your use of that executable is in no way restricted on account of -;; linking the GUILE library code into it. +;; linking the SCM library code into it. ;; ;; This exception does not however invalidate any other reasons why ;; the executable file might be covered by the GNU General Public License. ;; ;; This exception applies only to the code released by the -;; Free Software Foundation under the name GUILE. If you copy +;; Free Software Foundation under the name SCM. If you copy ;; code from other Free Software Foundation releases into a copy of -;; GUILE, as the General Public License permits, the exception does +;; SCM, as the General Public License permits, the exception does ;; not apply to the code that you add in this way. To avoid misleading ;; anyone as to the status of such modified files, you must delete ;; this exception notice from them. ;; -;; If you write modifications of your own for GUILE, it is your choice +;; If you write modifications of your own for SCM, it is your choice ;; whether to permit this exception to apply to your modifications. ;; If you do not wish that, delete this exception notice. @@ -44,8 +44,7 @@ ;;; Author: Aubrey Jaffer. (define (go-script) - (cond ((not *script*)) - ((< 1 (- (length *argv*) *optind*)) + (cond ((< 1 (- (length *argv*) *optind*)) (apply inc2scm (list-tail *argv* *optind*))) (else (display "\ @@ -151,8 +150,9 @@ Usage: inc2scm defines.scm [pre:] [/usr/include/] file1.h file2.h ... filename "\\n\");") (for-each - (lambda (name) (fprintf cport " pSl(\"%s\", %s);\\n" - (schemeify-name pre name) name)) + (lambda (name) + (fprintf cport "#ifdef %s\\n pSl(\"%s\", %s);\\n#endif\\n" + name (schemeify-name pre name) name)) (call-with-input-file filename extract-defineds))) filenames) (fprintf cport "}\\n"))) |