syntax fix for gcc3
This commit is contained in:
parent
237f344ae8
commit
507a10137b
|
@ -5,44 +5,44 @@
|
|||
#define streq(a,b) (strcmp((a),(b))==0)
|
||||
|
||||
static void usage(void) {
|
||||
printf("
|
||||
Usage: scsh [meta-arg] [vm-option+] [end-option scheme-args]
|
||||
|
||||
meta-arg: \\ <script-file-name>
|
||||
|
||||
switch: -e <entry-point> Specify top-level entry point.
|
||||
-o <structure> Open structure in current package.
|
||||
-m <package> Switch to package.
|
||||
-n <new-package> Switch to new package.
|
||||
|
||||
|
||||
-lm <module-file-name> Load module into config package.
|
||||
-le <exec-file-name> Load file into exec package.
|
||||
-l <file-name> Load file into current package.
|
||||
|
||||
-ll <module-file-name> As in -lm, but search the library path list.
|
||||
+lp <dir> Add <dir> to front of library path list.
|
||||
lp+ <dir> Add <dir> to end of library path list.
|
||||
+lpe <dir> +lp, with env var and ~user expansion.
|
||||
lpe+ <dir> lp+, with env var and ~user expansion.
|
||||
+lpsd Add script-file's dir to front of path list.
|
||||
lpsd+ Add script-file's dir to end of path list.
|
||||
-lp-clear Clear library path list to ().
|
||||
-lp-default Reset library path list to system default.
|
||||
|
||||
-ds Do script.
|
||||
-dm Do script module.
|
||||
-de Do script exec.
|
||||
|
||||
-h <cells> Set heap size.
|
||||
-i <file> Specify image.
|
||||
-stacksize <cells> Set stack size
|
||||
|
||||
end-option: -s <script> Specify script.
|
||||
-sfd <num> Script is on file descriptor <num>.
|
||||
-c <exp> Evaluate expression.
|
||||
-- Interactive session.
|
||||
");
|
||||
printf(""\
|
||||
"Usage: scsh [meta-arg] [vm-option+] [end-option scheme-args]"\
|
||||
""\
|
||||
"meta-arg: \\ <script-file-name>"\
|
||||
""\
|
||||
"switch: -e <entry-point> Specify top-level entry point."\
|
||||
" -o <structure> Open structure in current package."\
|
||||
" -m <package> Switch to package."\
|
||||
" -n <new-package> Switch to new package."\
|
||||
""\
|
||||
""\
|
||||
" -lm <module-file-name> Load module into config package."\
|
||||
" -le <exec-file-name> Load file into exec package."\
|
||||
" -l <file-name> Load file into current package."\
|
||||
""\
|
||||
" -ll <module-file-name> As in -lm, but search the library path list."\
|
||||
" +lp <dir> Add <dir> to front of library path list."\
|
||||
" lp+ <dir> Add <dir> to end of library path list."\
|
||||
" +lpe <dir> +lp, with env var and ~user expansion."\
|
||||
" lpe+ <dir> lp+, with env var and ~user expansion."\
|
||||
" +lpsd Add script-file's dir to front of path list."\
|
||||
" lpsd+ Add script-file's dir to end of path list."\
|
||||
" -lp-clear Clear library path list to ()."\
|
||||
" -lp-default Reset library path list to system default."\
|
||||
""\
|
||||
" -ds Do script."\
|
||||
" -dm Do script module."\
|
||||
" -de Do script exec."\
|
||||
""\
|
||||
" -h <cells> Set heap size."\
|
||||
" -i <file> Specify image."\
|
||||
" -stacksize <cells> Set stack size"\
|
||||
""\
|
||||
"end-option: -s <script> Specify script."\
|
||||
" -sfd <num> Script is on file descriptor <num>."\
|
||||
" -c <exp> Evaluate expression."\
|
||||
" -- Interactive session."\
|
||||
"");
|
||||
}
|
||||
|
||||
static void bad_args(char* msg, char* arg) {
|
||||
|
|
Loading…
Reference in New Issue