[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile load.h load.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile load.h load.c |
Date: |
Fri, 29 Jun 2001 16:13:43 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/06/29 16:13:43
Modified files:
guile-core/libguile: load.h load.c
Log message:
(scm_c_primitive_load,
scm_c_primitive_load_path): New.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/load.h.diff?cvsroot=OldCVS&tr1=1.15&tr2=1.16&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/load.c.diff?cvsroot=OldCVS&tr1=1.64&tr2=1.65&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/load.c
diff -u guile/guile-core/libguile/load.c:1.64
guile/guile-core/libguile/load.c:1.65
--- guile/guile-core/libguile/load.c:1.64 Wed Jun 27 18:11:58 2001
+++ guile/guile-core/libguile/load.c Fri Jun 29 16:13:43 2001
@@ -136,6 +136,12 @@
}
#undef FUNC_NAME
+SCM
+scm_c_primitive_load (const char *filename)
+{
+ return scm_primitive_load (scm_makfrom0str (filename));
+}
+
/* Builtin path to scheme library files. */
#ifdef SCM_PKGDATA_DIR
@@ -459,6 +465,12 @@
return scm_primitive_load (full_filename);
}
#undef FUNC_NAME
+
+SCM
+scm_c_primitive_load_path (const char *filename)
+{
+ return scm_primitive_load_path (scm_makfrom0str (filename));
+}
#if SCM_DEBUG_DEPRECATED == 0
Index: guile/guile-core/libguile/load.h
diff -u guile/guile-core/libguile/load.h:1.15
guile/guile-core/libguile/load.h:1.16
--- guile/guile-core/libguile/load.h:1.15 Mon Jun 12 05:28:23 2000
+++ guile/guile-core/libguile/load.h Fri Jun 29 16:13:43 2001
@@ -50,12 +50,14 @@
extern SCM scm_parse_path (SCM path, SCM tail);
extern void scm_init_load_path (void);
extern SCM scm_primitive_load (SCM filename);
+extern SCM scm_c_primitive_load (const char *filename);
extern SCM scm_sys_package_data_dir (void);
extern SCM scm_sys_library_dir (void);
extern SCM scm_sys_site_dir (void);
extern SCM scm_search_path (SCM path, SCM filename, SCM exts);
extern SCM scm_sys_search_load_path (SCM filename);
extern SCM scm_primitive_load_path (SCM filename);
+extern SCM scm_c_primitive_load_path (const char *filename);
extern SCM scm_read_and_eval_x (SCM port);
extern void scm_init_load (void);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile load.h load.c,
Marius Vollmer <=