481e061440
That is, the generated declare_modules() function registers the module-declaration code so that it is run in any new place, too. Merge to 5.2.1
95 lines
2.4 KiB
C
95 lines
2.4 KiB
C
#include "scheme.h"
|
|
|
|
#ifdef USE_DECLARED_MODULE
|
|
# include "embed-base.c"
|
|
#endif
|
|
|
|
static int run(Scheme_Env *e, int argc, char *argv[])
|
|
{
|
|
Scheme_Object *curout = NULL, *v = NULL, *pl = NULL, *a[2] = {NULL, NULL};
|
|
Scheme_Config *config = NULL;
|
|
int i;
|
|
mz_jmp_buf * volatile save = NULL, fresh;
|
|
|
|
MZ_GC_DECL_REG(9);
|
|
MZ_GC_VAR_IN_REG(0, e);
|
|
MZ_GC_VAR_IN_REG(1, curout);
|
|
MZ_GC_VAR_IN_REG(2, save);
|
|
MZ_GC_VAR_IN_REG(3, config);
|
|
MZ_GC_VAR_IN_REG(4, v);
|
|
MZ_GC_ARRAY_VAR_IN_REG(5, a, 2);
|
|
MZ_GC_VAR_IN_REG(8, pl);
|
|
|
|
MZ_GC_REG();
|
|
|
|
#ifdef USE_DECLARED_MODULE
|
|
declare_modules(e);
|
|
#else
|
|
scheme_set_collects_path(scheme_make_path(MZ_COLLECTION_PATH));
|
|
scheme_init_collection_paths(e, scheme_null);
|
|
#endif
|
|
|
|
v = scheme_intern_symbol("racket/base");
|
|
scheme_namespace_require(v);
|
|
|
|
config = scheme_current_config();
|
|
curout = scheme_get_param(config, MZCONFIG_OUTPUT_PORT);
|
|
|
|
for (i = 1; i < argc; i++) {
|
|
save = scheme_current_thread->error_buf;
|
|
scheme_current_thread->error_buf = &fresh;
|
|
if (scheme_setjmp(scheme_error_buf)) {
|
|
scheme_current_thread->error_buf = save;
|
|
return -1; /* There was an error */
|
|
} else {
|
|
v = scheme_eval_string(argv[i], e);
|
|
scheme_display(v, curout);
|
|
v = scheme_make_char('\n');
|
|
scheme_display(v, curout);
|
|
}
|
|
}
|
|
|
|
/* Try in a place: */
|
|
a[0] = scheme_intern_symbol("racket/place");
|
|
a[1] = scheme_intern_symbol("dynamic-place");
|
|
v = scheme_dynamic_require(2, a);
|
|
a[0] = scheme_intern_symbol("tests/racket/embed-place");
|
|
a[1] = scheme_intern_symbol("go");
|
|
pl = scheme_apply(v, 2, a);
|
|
a[0] = scheme_intern_symbol("racket/place");
|
|
a[1] = scheme_intern_symbol("place-channel-get");
|
|
v = scheme_dynamic_require(2, a);
|
|
a[0] = pl;
|
|
v = scheme_apply(v, 1, a);
|
|
if (v != scheme_make_integer(42)) {
|
|
printf("place failed\n");
|
|
return 1;
|
|
}
|
|
|
|
/* RESET: */
|
|
e = scheme_basic_env();
|
|
#ifdef USE_DECLARED_MODULE
|
|
declare_modules(e);
|
|
#else
|
|
scheme_init_collection_paths(e, scheme_null);
|
|
#endif
|
|
v = scheme_intern_symbol("racket/base");
|
|
scheme_namespace_require(v);
|
|
|
|
/* read-eval-print loop, uses initial Scheme_Env: */
|
|
a[0] = scheme_intern_symbol("racket/base");
|
|
a[1] = scheme_intern_symbol("read-eval-print-loop");
|
|
v = scheme_dynamic_require(2, a);
|
|
scheme_apply(v, 0, NULL);
|
|
scheme_current_thread->error_buf = save;
|
|
|
|
MZ_GC_UNREG();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
return scheme_main_setup(1, run, argc, argv);
|
|
}
|