一个很有名的浏览器

				/* Guile interface (scripting engine) */				/* $Id: core.c,v 1.17 2004/05/20 12:49:45 jonas Exp $ */								#ifdef HAVE_CONFIG_H				#include "config.h"				#endif								#include 								#include "elinks.h"								#include "lowlevel/home.h"				#include "modules/module.h"				#include "scripting/guile/core.h"				#include "scripting/guile/hooks.h"				#include "scripting/scripting.h"				#include "util/error.h"				#include "util/file.h"				#include "util/string.h"												/*				 * Bindings				 */								/* static SCM c_current_url(void) */				/* { */				/* 	struct view_state *vs; */								/* 	if (have_location(ses) && (vs = ses ? &cur_loc(ses)->vs : 0)) */				/* 		return scm_makfrom0str(struri(vs->uri)); */				/* 	else */				/* 		return SCM_BOOL_F; */				/* } */				/* c_current_link */				/* c_current_title */				/* c_current_document */				/* c_current_document_formatted */				/* c_bind_key */				/* c_xdialog */												static void				init_guile(struct module *module)				{					SCM user_module;					SCM internal_module;					unsigned char *path;									scm_init_guile();									if (!elinks_home) return;									/* Remember the current module. */					user_module = scm_current_module();									path = straconcat(elinks_home, "internal-hooks.scm", NULL);					if (!path) return;									if (file_can_read(path)) {						/* Load ~/.elinks/internal-hooks.scm. */						scm_c_primitive_load_path(path);										/* internal-hooks.scm should have created a new module (elinks						 * internal).  Let's remember it, even though I haven't figured						 * out how to use it directly yet... */						internal_module = scm_current_module();										/* Return to the user module, import bindings from (elinks						 * internal), then load ~/.elinks/user-hooks.scm. */						scm_set_current_module(user_module);										/* FIXME: better way? i want to use internal_module directly */						scm_c_use_module("elinks internal");					}									mem_free(path);									path = straconcat(elinks_home, "user-hooks.scm", NULL);					if (!path) return;					if (file_can_read(path))						scm_c_primitive_load_path(path);					mem_free(path);				}												struct module guile_scripting_module = struct_module(					/* name: */		"Guile",					/* options: */		NULL,					/* events: */		guile_scripting_hooks,					/* submodules: */	NULL,					/* data: */		NULL,					/* init: */		init_guile,					/* done: */		NULL				);