Author: yamakenz
Date: Thu Jul 12 17:18:01 2007
New Revision: 4715
Modified:
sigscheme-trunk/NEWS
sigscheme-trunk/TODO
sigscheme-trunk/src/module-sscm-ext.c
sigscheme-trunk/src/sigscheme.h
sigscheme-trunk/test/test-sscm-ext.scm
Log:
* test/test-sscm-ext.scm
- Add test for sscm-version
* src/sigscheme.h
- (scm_p_sscm_version): New function decl
* src/module-sscm-ext.c
- (scm_p_sscm_version): New function
* NEWS
* TODO
- Update
Modified: sigscheme-trunk/NEWS
==============================================================================
--- sigscheme-trunk/NEWS (original)
+++ sigscheme-trunk/NEWS Thu Jul 12 17:18:01 2007
@@ -19,6 +19,8 @@
- New debugging procedures %%pair-mutable?, %%string-mutable?,
%%vector-mutable?
+ - New procedure sscm-version for version information
+
* Specification changes
- SRFI-75 characters have been turned into R6RS (R5.92RS) characters
Modified: sigscheme-trunk/TODO
==============================================================================
--- sigscheme-trunk/TODO (original)
+++ sigscheme-trunk/TODO Thu Jul 12 17:18:01 2007
@@ -1,9 +1,10 @@
==============================================================================
Requirements and critical bugs:
-* Support SRFI-1
- - Write tests
- - Fix list= bug
+* Make lib/ files loadable before install
+ - sscm --sys-load-path $PWD/lib
+ - scm_set_system_load_path()
+ - Rename %%scmlibdir -> %%sys-load-path
* grep "FIXME" and fix them
Modified: sigscheme-trunk/src/module-sscm-ext.c
==============================================================================
--- sigscheme-trunk/src/module-sscm-ext.c (original)
+++ sigscheme-trunk/src/module-sscm-ext.c Thu Jul 12 17:18:01 2007
@@ -108,6 +108,14 @@
}
SCM_EXPORT ScmObj
+scm_p_sscm_version(void)
+{
+ DECLARE_FUNCTION("sscm-version", procedure_fixed_0);
+
+ return CONST_STRING(PACKAGE_VERSION);
+}
+
+SCM_EXPORT ScmObj
scm_p_scmlibdir(void)
{
DECLARE_FUNCTION("%%scmlibdir", procedure_fixed_0);
Modified: sigscheme-trunk/src/sigscheme.h
==============================================================================
--- sigscheme-trunk/src/sigscheme.h (original)
+++ sigscheme-trunk/src/sigscheme.h Thu Jul 12 17:18:01 2007
@@ -1646,6 +1646,7 @@
#if SCM_USE_SSCM_EXTENSIONS
SCM_EXPORT void scm_require(const char *filename);
SCM_EXPORT ScmObj scm_p_symbol_boundp(ScmObj sym, ScmObj rest);
+SCM_EXPORT ScmObj scm_p_sscm_version(void);
SCM_EXPORT ScmObj scm_p_scmlibdir(void);
SCM_EXPORT ScmObj scm_p_current_environment(ScmEvalState *eval_state);
SCM_EXPORT ScmObj scm_p_current_char_codec(void);
Modified: sigscheme-trunk/test/test-sscm-ext.scm
==============================================================================
--- sigscheme-trunk/test/test-sscm-ext.scm (original)
+++ sigscheme-trunk/test/test-sscm-ext.scm Thu Jul 12 17:18:01 2007
@@ -42,6 +42,9 @@
(define tn test-name)
(define ud (undef))
+(tn "sscm-version")
+(assert-equal? (tn) "0.8.0" (sscm-version))
+
(tn "%%current-char-codec")
(assert-equal? (tn) "UTF-8" (%%current-char-codec))
