144 lines
4.0 KiB
C
144 lines
4.0 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
|
|
#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."\
|
|
"");
|
|
}
|
|
|
|
static void bad_args(char* msg, char* arg) {
|
|
|
|
printf ("Error:\n");
|
|
printf (msg,arg);
|
|
printf ("\n");
|
|
usage();
|
|
exit(1);
|
|
}
|
|
|
|
|
|
void process_args(char **argv,
|
|
long *pheap_size,
|
|
long *pstack_size,
|
|
char **pobject_file,
|
|
char **pimage_name) {
|
|
extern char **process_meta_arg(char **);
|
|
|
|
/* Handle an initial \ <fname> meta-arg expansion. */
|
|
while ( *argv && streq(*argv, "\\") ) {
|
|
argv++;
|
|
if( !*argv ) bad_args("No arguments after meta-arg %s","\\"); /* die */
|
|
argv = process_meta_arg(argv);
|
|
if( !argv ) {
|
|
fprintf(stderr, "scsh: \\ <fname> expansion failed.\n");
|
|
exit(1);}}
|
|
|
|
|
|
for (; *argv; argv++){
|
|
|
|
char *arg = argv[0];
|
|
#define S48_ARGCMP(s) (streq(arg,s))
|
|
|
|
if (S48_ARGCMP ("-h")) { /* heapsize */
|
|
argv++;
|
|
if( !*argv ) bad_args("Option %s requires an argument", arg); /* die */
|
|
*pheap_size = atoi(*argv);
|
|
if( *pheap_size <= 0 ) bad_args("Invalid argument to %s", arg);
|
|
}
|
|
else if (S48_ARGCMP ("-stacksize")) { /* stacksize */
|
|
argv++;
|
|
if( !*argv ) bad_args("Option %s requires an argument", arg); /* die */
|
|
*pstack_size = atoi(*argv);
|
|
if( *pstack_size <= 0 ) bad_args("Invalid argument to %s", arg);
|
|
}
|
|
else if (S48_ARGCMP ("-i")) { /* image */
|
|
argv++;
|
|
if( !*argv ) bad_args("Option %s requires an argument", arg); /* die */
|
|
*pimage_name = *argv;
|
|
}
|
|
|
|
else if (S48_ARGCMP ("+lpsd") ||
|
|
S48_ARGCMP ("lpsd+") ||
|
|
S48_ARGCMP ("-lp-clear") ||
|
|
S48_ARGCMP ("-lp-default") ||
|
|
S48_ARGCMP ("-ds") ||
|
|
S48_ARGCMP ("-dm") ||
|
|
S48_ARGCMP ("-de")){
|
|
;
|
|
}
|
|
else if (S48_ARGCMP ("-e") ||
|
|
S48_ARGCMP ("-o") ||
|
|
S48_ARGCMP ("-m") ||
|
|
S48_ARGCMP ("-lm") ||
|
|
S48_ARGCMP ("-le") ||
|
|
S48_ARGCMP ("-l") ||
|
|
S48_ARGCMP ("-ll") ||
|
|
S48_ARGCMP ("+lp") ||
|
|
S48_ARGCMP ("lp+") ||
|
|
S48_ARGCMP ("+lpe") ||
|
|
S48_ARGCMP ("lpe+")){
|
|
argv++;
|
|
if( !*argv ) bad_args("Option %s requires an argument", arg);
|
|
}
|
|
|
|
/* These switches terminate arg scanning. */
|
|
else if (S48_ARGCMP ("-s") ||
|
|
S48_ARGCMP ("-sdf") ||
|
|
S48_ARGCMP ("-c")){
|
|
argv++;
|
|
if( !*argv ){
|
|
bad_args("Option %s requires an argument", arg);
|
|
}
|
|
return;
|
|
}
|
|
else if (S48_ARGCMP ("--")) {
|
|
return;
|
|
}
|
|
else{
|
|
bad_args("Unknown switch %s", arg);
|
|
}
|
|
}
|
|
|
|
#undef S48_ARGCMP
|
|
|
|
return;
|
|
}
|