scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spelling error

This commit is contained in:
bdc 1997-02-21 08:51:06 +00:00
parent 630f678236
commit 9ccd709a52
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scsh/static.scm.in
View File

@ -57,7 +57,7 @@ For testing load this at a scsh prompt
(let ((options (make-options))) (let ((options (make-options)))
(let loop ((args (cdr argl))) (let loop ((args (cdr argl)))
(cond ((null? args) (cond ((null? args)
(cond ((not (options:output-executible options)) (cond ((not (options:output-executable options))
(display "error: -o is a required argument") (display "error: -o is a required argument")
(newline) (newline)
(usage (car argl))) (usage (car argl)))
@ -67,7 +67,7 @@ For testing load this at a scsh prompt
(usage (car argl))))) (usage (car argl)))))
((equal? (car args) "-o") ((equal? (car args) "-o")
(cond ((not (null? (cdr args))) (cond ((not (null? (cdr args)))
(set-options:output-executible options (cadr args)) (set-options:output-executable options (cadr args))
(loop (cddr args))) (loop (cddr args)))
(else (else
(display "error: -o requires argument") (newline) (display "error: -o requires argument") (newline)
@ -138,7 +138,7 @@ For testing load this at a scsh prompt
(define (usage program-name) (define (usage program-name)
(format #t (format #t
(string-append (string-append
"usage: ~a -i image -o executible~%" "usage: ~a -i image -o executable~%"
" [--temp directory]~%" " [--temp directory]~%"
" [--cc command]~%" " [--cc command]~%"
" [--ld command]~%" " [--ld command]~%"
@ -152,10 +152,10 @@ For testing load this at a scsh prompt
(define-record options (define-record options
(input-image #f) ; the input scheme image file (input-image #f) ; the input scheme image file
(temp-dir #f) ; place for intermediate .c .o files (temp-dir #f) ; place for intermediate .c .o files
(output-executible #f) ; the output executible file (output-executable #f) ; the output executable file
(cc-command #f) ; command to compile a .c file (cc-command #f) ; command to compile a .c file
(ld-flags #f) ; flags needed to link executible (ld-flags #f) ; flags needed to link executable
(libraries #f) ; linbraries need to link executible (libraries #f) ; linbraries need to link executable
) )
;;; heap structure ;;; heap structure
@ -174,9 +174,9 @@ For testing load this at a scsh prompt
(set-options:temp-dir (set-options:temp-dir
options options
(format #f "~a/scsh~s" (options:temp-dir options) (pid))) (format #f "~a/scsh~s" (options:temp-dir options) (pid)))
(set-options:output-executible (set-options:output-executable
options options
(string-append (cwd) "/" (options:output-executible options))) (string-append (cwd) "/" (options:output-executable options)))
;;; Read the image ;;; Read the image
(let ((start ; entry point of image (let ((start ; entry point of image
@ -411,12 +411,12 @@ For testing load this at a scsh prompt
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; links the .o's from compile-c-files ;;; links the .o's from compile-c-files
;;; uses the provided flags and libraries ;;; uses the provided flags and libraries
;;; produces outfile as executible ;;; produces outfile as executable
(define (link-files options) (define (link-files options)
(let ((n (nchunks)) (let ((n (nchunks))
(ld (append (line->list (options:cc-command options)) (ld (append (line->list (options:cc-command options))
(line->list (options:ld-flags options)) (line->list (options:ld-flags options))
`(-o ,(options:output-executible options)))) `(-o ,(options:output-executable options))))
(libs (line->list (options:libraries options)))) (libs (line->list (options:libraries options))))
(message (append ld (message (append ld
(let loop ((i 0) (let loop ((i 0)