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