[uim-commit] r1884 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-26 12:59:51 -0700 (Wed, 26 Oct 2005)
New Revision: 1884

Modified:
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* This commit adds SIOD-compatible 'load-path' procedure

* sigscheme/sigscheme.h
  - (ScmOp_load_path): New function decl
* sigscheme/io.c
  - (ScmOp_load_path): New function
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Add initialization of load-path


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-10-26 19:39:58 UTC (rev 1883)
+++ branches/r5rs/sigscheme/io.c	2005-10-26 19:59:51 UTC (rev 1884)
@@ -105,6 +105,15 @@
     lib_path = path;
 }
 
+#if SCM_USE_NONSTD_FEATURES
+/* SIOD compatible */
+ScmObj ScmOp_load_path(void)
+{
+    DECLARE_FUNCTION("load-path", ProcedureFixed0);
+    return Scm_NewStringCopying(lib_path);
+}
+#endif
+
 /*=======================================
   R5RS : 6.6 Input and Output
 =======================================*/

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-10-26 19:39:58 UTC (rev 1883)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-10-26 19:59:51 UTC (rev 1884)
@@ -338,6 +338,7 @@
 #if SCM_USE_NONSTD_FEATURES
     Scm_RegisterProcedureVariadic1("symbol-bound?"     , ScmOp_symbol_boundp);
 
+    Scm_RegisterProcedureFixed0("load-path"                , ScmOp_load_path);
     Scm_RegisterProcedureFixed1("require"                  , ScmOp_require);
     Scm_RegisterProcedureFixed1("provide"                  , ScmOp_provide);
     Scm_RegisterProcedureFixed1("provided?"                , ScmOp_providedp);

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-10-26 19:39:58 UTC (rev 1883)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-10-26 19:59:51 UTC (rev 1884)
@@ -552,6 +552,7 @@
 ScmObj SigScm_load(const char *c_filename);
 ScmObj ScmOp_load(ScmObj filename);
 #if SCM_USE_NONSTD_FEATURES
+ScmObj ScmOp_load_path(void);
 /* FIXME: add ScmObj SigScm_require(const char *c_filename); */
 ScmObj ScmOp_require(ScmObj filename);
 ScmObj ScmOp_provide(ScmObj feature);