C++ (Cpp) edelib_scheme_init_raw Examples

Example #1

File: script_editor.cpp Project: GustavoMOG/edelib

MyEditor::MyEditor(int X, int Y, int W, int H, const char *l) : SchemeEditor(X, Y, W, H, l) {
    sc = edelib_scheme_init_raw();
    FILE *fd;

    fd = fopen("../sslib/init.ss", "r");
    if(fd) edelib_scheme_load_file(sc, fd);

    fd = fopen("../sslib/init-2.ss", "r");
    if(fd) edelib_scheme_load_file(sc, fd);

    edelib_scheme_set_input_port_file(sc, stdin);
    edelib_scheme_set_output_port_string(sc, eval_buf, eval_buf + sizeof(eval_buf));

    EDELIB_SCHEME_DEFINE(sc, quit_editor, "quit");
}

Example #2

File: Theme.cpp Project: edeproject/svn

void Theme::init_interpreter(void) {
	if(priv->sc) return;

	scheme *ss = edelib_scheme_init_raw();
	if(!ss) {
		E_WARNING(E_STRLOC ": Unable to init interpreter\n");
		return;
	}

	priv->sc = ss;

	/* must be called */
	scheme_set_input_port_file(ss, stdin);
	scheme_set_output_port_file(ss, stdout);

	/* install user supplied error handler first, if given */
	if(priv->err_func) {
		ss->vptr->scheme_define(ss,
								ss->global_env,
								ss->vptr->mk_symbol(ss, "private:theme.error_hook"),
								ss->vptr->mk_foreign_func(ss, theme_error_hook));

		/* make sure interpreter does not use this function at all */
		scheme_set_external_data(ss, (void*)priv);
	}

	/* load init stuff */
	scheme_load_string(ss, init_ss_content);

	/* load theme stuff */
	scheme_load_string(ss, theme_ss_content);

	/* 
	 * Set (or override) common variables before actual script was loaded. 
	 * Variables are static and can't be changed.
	 */
	pointer sym;

	sym = mk_symbol(ss, "*edelib-dir-separator*");
	scheme_define(ss, ss->global_env, sym, mk_string(ss, E_DIR_SEPARATOR_STR));
	ss->vptr->setimmutable(sym);

	sym = mk_symbol(ss, "*edelib-version*");
	scheme_define(ss, ss->global_env, sym, mk_string(ss, EDELIB_VERSION));
	ss->vptr->setimmutable(sym);
}