81 lines
2.4 KiB
C
81 lines
2.4 KiB
C
|
#include <stdio.h>
|
||
|
|
|
||
|
|
extern char *prog_name;
|
||
|
|
|
||
|
|
#define streq(a,b) (strcmp((a),(b))==0)
|
||
|
|
|
||
|
|
static void usage(void) {
|
||
|
|
fprintf(stderr, "Usage: %s [meta-arg] [vm-option+] [end-option scheme-args]\n"
|
||
|
|
"meta-arg: \\ <script file name>\n"
|
||
|
|
"\n"
|
||
|
|
"vm-option: -h <total heap size in words>\n"
|
||
|
|
" -s <stack size in words>\n"
|
||
|
|
" -o <object file name>\n"
|
||
|
|
"\n"
|
||
|
|
"end-option: -i <image file name>\n"
|
||
|
|
" -- (Terminates vm args.)\n"
|
||
|
|
" -a (Terminates vm args. Obsolete.)\n",
|
||
|
|
prog_name);}
|
||
|
|
|
||
|
|
static void bad_args(void) {
|
||
|
|
usage();
|
||
|
|
exit(1); }
|
||
|
|
|
||
|
|
char ** 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(); /* die */
|
||
|
|
argv = process_meta_arg(argv);
|
||
|
|
if( !argv ) {
|
||
|
|
fprintf(stderr, "%s: \\ <fname> expansion failed.\n",
|
||
|
|
prog_name);
|
||
|
|
exit(1);}}
|
||
|
|
|
||
|
|
for (; *argv; argv++)
|
||
|
|
if( argv[0][0] != '-' )
|
||
|
|
bad_args(); /* die */
|
||
|
|
else
|
||
|
|
switch (argv[0][1]) {
|
||
|
|
default:
|
||
|
|
bad_args(); /* die */
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'h': /* heapsize */
|
||
|
|
argv++;
|
||
|
|
if( !*argv ) bad_args(); /* die */
|
||
|
|
*pheap_size = atoi(*argv);
|
||
|
|
if( *pheap_size <= 0 ) bad_args();
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 's':
|
||
|
|
argv++;
|
||
|
|
if( !*argv ) bad_args(); /* die */
|
||
|
|
*pstack_size = atoi(*argv);
|
||
|
|
if (*pstack_size <= 0) bad_args();
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'o': /* object file */
|
||
|
|
argv++;
|
||
|
|
if( !*argv ) bad_args(); /* die */
|
||
|
|
*pobject_file = *argv;
|
||
|
|
break;
|
||
|
|
|
||
|
|
/* These switches terminate arg scanning. */
|
||
|
|
case 'i':
|
||
|
|
argv++;
|
||
|
|
if( !*argv ) bad_args(); /* die */
|
||
|
|
*pimage_name = *argv++;
|
||
|
|
return argv;
|
||
|
|
|
||
|
|
case '-':
|
||
|
|
case 'a':
|
||
|
|
argv++;
|
||
|
|
return argv;}
|
||
|
|
return argv;}
|