- update and moved here from c/xlib/
This commit is contained in:
frese
parent
03778abc9e
commit
08c1a8b798
|
|
@ -0,0 +1,63 @@
|
||||||
|
### update this to fit your system
|
||||||
|
SCSH_SRC = /afs/wsi/home/dfreese/scsh-0.6
|
||||||
|
SCSH_LIB = /afs/wsi/home/dfreese/i386_fbsd40/lib/scsh
|
||||||
|
X11_PATH = /usr/X11R6
|
||||||
|
|
||||||
|
### the following does not have to be changed (hopefully)
|
||||||
|
SCHEME_INCLUDE = $(SCSH_SRC)/c
|
||||||
|
X11_INCLUDE = $(X11_PATH)/include
|
||||||
|
X11_LIB = $(X11_PATH)/lib
|
||||||
|
|
||||||
|
CC = gcc
|
||||||
|
|
||||||
|
SCX_VERSION = "0.1"
|
||||||
|
SCX_VM = "scxvm"
|
||||||
|
SCX_IMAGE = "scx.image"
|
||||||
|
|
||||||
|
### The first=default target
|
||||||
|
enough: $(SCX_VM) #$(SCX_IMAGE) #doesn't work yet
|
||||||
|
|
||||||
|
### Making the VM ###
|
||||||
|
### The VM is scsh plus all new primitives from the c files ###
|
||||||
|
|
||||||
|
OBJECTS = c/main.o \
|
||||||
|
c/xlib/display.o c/xlib/window.o c/xlib/type.o c/xlib/color.o \
|
||||||
|
c/xlib/colormap.o c/xlib/pixel.o c/xlib/gcontext.o c/xlib/event.o \
|
||||||
|
c/xlib/pixmap.o c/xlib/graphics.o c/xlib/font.o \
|
||||||
|
c/xlib/cursor.o c/xlib/text.o c/xlib/property.o c/xlib/wm.o \
|
||||||
|
c/xlib/client.o c/xlib/key.o c/xlib/error.o \
|
||||||
|
c/xlib/extension.o c/xlib/init.o c/xlib/util.o c/xlib/grab.o \
|
||||||
|
c/xlib/visual.o c/xlib/region.o
|
||||||
|
|
||||||
|
$(SCX_VM): c/main.o $(OBJECTS)
|
||||||
|
$(CC) -g -o $(SCX_VM) -L $(SCSH_LIB) -L $(X11_LIB) \
|
||||||
|
$(OBJECTS) -lscsh -lm -lX11 -lcrypt &&
|
||||||
|
|
||||||
|
$(OBJECTS): c/xlib/xlib.h
|
||||||
|
.c.o:
|
||||||
|
$(CC) -g -c -I $(X11_INCLUDE) -I $(SCHEME_INCLUDE) -o $@ $<
|
||||||
|
|
||||||
|
|
||||||
|
### Making the Image ###
|
||||||
|
### The Image is a dump of the VM with all new packages loaded, and
|
||||||
|
### xlib opened.
|
||||||
|
|
||||||
|
STARTUP_MSG = "with SCX $(SCX_VERSION), the X11 support.";
|
||||||
|
|
||||||
|
$(SCX_IMAGE):
|
||||||
|
( \
|
||||||
|
echo ",batch on"; \
|
||||||
|
echo ",config ,load scheme/xlib/xlib-type-interfaces.scm"; \
|
||||||
|
echo ",config ,load scheme/xlib/xlib-type-package.scm"; \
|
||||||
|
echo ",config ,load scheme/xlib/xlib-interfaces.scm"; \
|
||||||
|
echo ",config ,load scheme/xlib/xlib-packages.scm"; \
|
||||||
|
echo ",open xlib"; \
|
||||||
|
echo ",dump $(SCX_IMAGE) \"$(STARTUP_MSG)\"" \
|
||||||
|
) | $(SCX_VM)
|
||||||
|
|
||||||
|
|
||||||
|
#SCSH_IMAGE = "/afs/wsi/home/dfreese/i386_fbsd43/lib/scheme48/scsh.image"
|
||||||
|
#main.c:
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f $(SCX_VM) c/*.o c/xlib/*.o
|
||||||
|
|
@ -0,0 +1,87 @@
|
||||||
|
#include "scheme48.h"
|
||||||
|
|
||||||
|
extern void scx_init_window();
|
||||||
|
extern void scx_init_display();
|
||||||
|
extern void scx_init_type();
|
||||||
|
extern void scx_init_color();
|
||||||
|
extern void scx_init_colormap();
|
||||||
|
extern void scx_init_pixel();
|
||||||
|
extern void scx_init_gcontext();
|
||||||
|
extern void scx_init_event();
|
||||||
|
extern void scx_init_pixmap();
|
||||||
|
extern void scx_init_graphics();
|
||||||
|
extern void scx_init_font();
|
||||||
|
extern void scx_init_cursor();
|
||||||
|
extern void scx_init_text();
|
||||||
|
extern void scx_init_property();
|
||||||
|
extern void scx_init_wm();
|
||||||
|
extern void scx_init_client();
|
||||||
|
extern void scx_init_key();
|
||||||
|
extern void scx_init_error();
|
||||||
|
extern void scx_init_extension();
|
||||||
|
extern void scx_init_init();
|
||||||
|
extern void scx_init_util();
|
||||||
|
extern void scx_init_grab();
|
||||||
|
extern void scx_init_visual();
|
||||||
|
extern void scx_init_region();
|
||||||
|
|
||||||
|
int main(int argc, char **argv) {
|
||||||
|
// char** my_argv = argv;
|
||||||
|
|
||||||
|
s48_add_external_init(scx_init_window);
|
||||||
|
s48_add_external_init(scx_init_display);
|
||||||
|
s48_add_external_init(scx_init_type);
|
||||||
|
s48_add_external_init(scx_init_color);
|
||||||
|
s48_add_external_init(scx_init_color);
|
||||||
|
s48_add_external_init(scx_init_colormap);
|
||||||
|
s48_add_external_init(scx_init_pixel);
|
||||||
|
s48_add_external_init(scx_init_gcontext);
|
||||||
|
s48_add_external_init(scx_init_event);
|
||||||
|
s48_add_external_init(scx_init_pixmap);
|
||||||
|
s48_add_external_init(scx_init_graphics);
|
||||||
|
s48_add_external_init(scx_init_font);
|
||||||
|
s48_add_external_init(scx_init_text);
|
||||||
|
s48_add_external_init(scx_init_property);
|
||||||
|
s48_add_external_init(scx_init_cursor);
|
||||||
|
s48_add_external_init(scx_init_wm);
|
||||||
|
s48_add_external_init(scx_init_client);
|
||||||
|
s48_add_external_init(scx_init_key);
|
||||||
|
s48_add_external_init(scx_init_error);
|
||||||
|
s48_add_external_init(scx_init_extension);
|
||||||
|
s48_add_external_init(scx_init_init);
|
||||||
|
s48_add_external_init(scx_init_util);
|
||||||
|
s48_add_external_init(scx_init_grab);
|
||||||
|
s48_add_external_init(scx_init_visual);
|
||||||
|
s48_add_external_init(scx_init_region);
|
||||||
|
|
||||||
|
/* char **argp; //JMG
|
||||||
|
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
|
||||||
|
char *object_file = NULL; // specified via a command line argument
|
||||||
|
char *prog_name;
|
||||||
|
|
||||||
|
#if defined(STATIC_AREAS)
|
||||||
|
extern long static_entry;
|
||||||
|
extern long static_symbol_table;
|
||||||
|
extern long static_imported_binding_table, static_exported_binding_table;
|
||||||
|
extern long p_count, *p_areas[], p_sizes[];
|
||||||
|
extern long i_count, *i_areas[], i_sizes[];
|
||||||
|
#endif
|
||||||
|
|
||||||
|
long vm_argc = 0;
|
||||||
|
char *me = *argv; // Save program name.
|
||||||
|
prog_name = *argv++;
|
||||||
|
|
||||||
|
argv=process_args(argv,
|
||||||
|
&heap_size, &stack_size,
|
||||||
|
&object_file, &image_name);
|
||||||
|
for(argc=0, argp=argv; *argp; argc++, argp++); // Recompute argc.
|
||||||
|
return internal_s48_main(heap_size, stack_size, prog_name, object_file, image_name, argc, argv);
|
||||||
|
*/
|
||||||
|
|
||||||
|
s48_main(8000000, 64000,
|
||||||
|
"/afs/wsi/home/dfreese/i386_fbsd40/lib/scsh/scsh.image",
|
||||||
|
0, (char**) 0);
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Reference in New Issue