scsh-0.5/main.c

134 lines
3.5 KiB
C
Raw Normal View History

1995-10-13 23:34:21 -04:00
/* Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.
See file COPYING. */
/* Modified by Olin Shivers.
****************************
** New flag set:
** \ <fname> meta-arg (a single backslash char)
** -i <image> terminates arg scanning (necessary for scripts)
*/
#include <stdio.h>
#include <stdlib.h>
/* I bumped this up from 1.5 Mcell because the debugging info put us over
** the top. -Olin
*/
#if !defined(DEFAULT_HEAP_SIZE)
/* 3 megacell = 12 megabytes (6 meg per semispace) */
#define DEFAULT_HEAP_SIZE 3000000L
1995-10-13 23:34:21 -04:00
#endif
#if !defined(DEFAULT_STACK_SIZE)
/* 2500 cells = 10000 bytes */
#define DEFAULT_STACK_SIZE 2500L
#endif
#if defined(STATIC_AREAS)
#define DEFAULT_IMAGE_NAME NULL
#else
/* DEFAULT_IMAGE_NAME should be defined using the -D switch to cc. */
#if !defined(DEFAULT_IMAGE_NAME)
#define DEFAULT_IMAGE_NAME "s48.image"
#endif
#endif /* STATIC_AREAS */
char *object_file; /* specified via a command line argument */
char *reloc_file; /* dynamic loading will set this */
1997-06-08 21:47:19 -04:00
char *prog_name;
1995-10-13 23:34:21 -04:00
char ** process_args(char **argv,
long *heap_size,
long *stack_size,
char **object_file,
char **image_name);
1995-10-13 23:34:21 -04:00
main(argc, argv)
int argc; char **argv;
{
char **argp;
1995-10-13 23:34:21 -04:00
char *image_name = DEFAULT_IMAGE_NAME;
long heap_size = DEFAULT_HEAP_SIZE; /* in numbers of cells */
long stack_size = DEFAULT_STACK_SIZE; /* in numbers of cells */
long return_value;
extern void sysdep_init();
extern long required_init_space();
extern void initialize_vm();
extern long call_startup_procedure();
extern long check_image_header();
extern long read_image();
extern void register_static_areas();
void *heap, *stack;
long required_heap_size, startup_proc;
#if defined(STATIC_AREAS)
extern long entry;
extern long p_count, *p_areas[], p_sizes[];
extern long i_count, *i_areas[], i_sizes[];
#endif
long vm_argc = 0;
prog_name = *argv++; /* Save program name. */
object_file = reloc_file = NULL;
argv=process_args(argv,
&heap_size, &stack_size,
&object_file, &image_name);
1995-10-13 23:34:21 -04:00
for(argc=0, argp=argv; *argp; argc++, argp++); /* Recompute argc. */
sysdep_init();
scheme48_init();
if (image_name == NULL)
required_heap_size = 0;
else {
/* check_image_header returns number of bytes; required_heap_size
is number of cells. */
required_heap_size = check_image_header(image_name) >> 2;
if (-1 == required_heap_size) {
fprintf(stderr, "image file %s is unusable\n", image_name);
return 1; }
}
required_heap_size += required_init_space(argv, vm_argc);
/* two semi-spaces, plus we want some room to maneuver */
if (heap_size < 4 * required_heap_size) {
fprintf(stderr, "heap size %ld cells is too small, using %ld cells\n",
heap_size, 4 * required_heap_size);
heap_size = 4 * required_heap_size; }
heap = (void *) malloc(heap_size * sizeof(long));
stack = (void *) malloc(stack_size * sizeof(long));
if (!heap || !stack) {
fprintf(stderr, "system is out of memory\n");
return 1; }
initialize_vm(heap, heap_size, stack, stack_size);
#if defined(STATIC_AREAS)
if (image_name == NULL) {
register_static_areas(p_count, p_areas, p_sizes,
i_count, i_areas, i_sizes);
startup_proc = entry;
} else
startup_proc = read_image(image_name, 0L);
#else
startup_proc = read_image(image_name, 0L);
#endif
return_value = call_startup_procedure(startup_proc, argv, argc);
if (reloc_file != NULL)
if (0 != unlink(reloc_file))
fprintf(stderr, "unable to delete file %s\n", reloc_file);
return(return_value);
}