mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* load.c, load.h (scm_sys_package_data_dir): New function.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-30 23:34:33 +00:00
parent 66b47b6c79
commit 3feedb0011
2 changed files with 19 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/load.c
View file

@ -101,6 +101,17 @@ scm_primitive_load (filename, case_insensitive_p, sharp)
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
/* Builtin path to scheme library files. */
#ifdef SCM_PKGDATA_DIR
SCM_PROC (s_sys_package_data_dir, "%package-data-dir", 0, 0, 0, scm_sys_package_data_dir);
SCM
scm_sys_package_data_dir ()
{
return scm_makfrom0str (SCM_PKGDATA_DIR);
}
#endif /* SCM_PKGDATA_DIR */
/* Initializing the load path, and searching it. */ /* Initializing the load path, and searching it. */
@ -111,16 +122,18 @@ static SCM *scm_loc_load_path;
static SCM *scm_loc_load_extensions; static SCM *scm_loc_load_extensions;
/* Initialize the global variable %load-path, given the value of the /* Initialize the global variable %load-path, given the value of the
LIBRARY_PATH preprocessor symbol and the SCHEME_LOAD_PATH SCM_SITE_DIR and SCM_LIBRARY_DIR preprocessor symbols and the
environment variable. */ SCHEME_LOAD_PATH environment variable. */
void void
scm_init_load_path () scm_init_load_path ()
{ {
SCM path = SCM_EOL; SCM path = SCM_EOL;
#ifdef LIBRARY_PATH #ifdef SCM_LIBRARY_DIR
path = scm_cons (scm_makfrom0str (LIBRARY_PATH), path); path = scm_cons2 (scm_makfrom0str (SCM_SITE_DIR),
#endif /* LIBRARY_PATH */ scm_makfrom0str (SCM_LIBRARY_DIR),
path);
#endif /* SCM_LIBRARY_DIR */
{ {
char *path_string = getenv ("SCHEME_LOAD_PATH"); char *path_string = getenv ("SCHEME_LOAD_PATH");

1
libguile/load.h
View file

@ -48,6 +48,7 @@
extern void scm_init_load_path SCM_P ((void)); extern void scm_init_load_path SCM_P ((void));
extern SCM scm_primitive_load SCM_P ((SCM filename, SCM casep, SCM sharp)); extern SCM scm_primitive_load SCM_P ((SCM filename, SCM casep, SCM sharp));
extern SCM scm_sys_package_data_dir SCM_P ((void));
extern SCM scm_sys_search_load_path SCM_P ((SCM filename)); extern SCM scm_sys_search_load_path SCM_P ((SCM filename));
extern SCM scm_primitive_load_path SCM_P ((SCM filename, SCM casep, extern SCM scm_primitive_load_path SCM_P ((SCM filename, SCM casep,
SCM sharp)); SCM sharp));