guile/guile-core NEWS RELEASE libguile/ChangeLo...

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/09/22 09:44:42

Modified files:
        guile-core     : NEWS RELEASE 
        guile-core/libguile: ChangeLog strings.h symbols.h 

Log message:
        * Added SCM_STRING_CHARS and SCM_SYMBOL_CHARS in order to, in the long 
run,
        get rid of SCM_CHARS, which is shared between a large number of types, 
and
        thus makes it difficult to change the implementation of a single type.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/NEWS.diff?r1=1.203&r2=1.204
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/RELEASE.diff?r1=1.68&r2=1.69
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1115&r2=1.1116
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/strings.h.diff?r1=1.17&r2=1.18
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/symbols.h.diff?r1=1.32&r2=1.33

Patches:
Index: guile/guile-core/NEWS
diff -u guile/guile-core/NEWS:1.203 guile/guile-core/NEWS:1.204
--- guile/guile-core/NEWS:1.203 Tue Sep 12 05:30:36 2000
+++ guile/guile-core/NEWS       Fri Sep 22 09:44:41 2000
@@ -136,10 +136,11 @@
 ** Deprecated macros:  SCM_OUTOFRANGE, SCM_NALLOC, SCM_HUP_SIGNAL, 
 SCM_INT_SIGNAL, SCM_FPE_SIGNAL, SCM_BUS_SIGNAL, SCM_SEGV_SIGNAL, 
 SCM_ALRM_SIGNAL, SCM_GC_SIGNAL, SCM_TICK_SIGNAL, SCM_SIG_ORD, 
-SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SYMBOL_SLOTS, SCM_SLOTS
+SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SYMBOL_SLOTS, SCM_SLOTS, SCM_SLOPPY_STRINGP
 
 Use SCM_ASSERT_RANGE or SCM_VALIDATE_XXX_RANGE instead of SCM_OUTOFRANGE.
 Use scm_memory_error instead of SCM_NALLOC.
+Use SCM_STRINGP instead of SCM_SLOPPY_STRINGP.
 
 ** Removed function:  scm_struct_init
 
Index: guile/guile-core/RELEASE
diff -u guile/guile-core/RELEASE:1.68 guile/guile-core/RELEASE:1.69
--- guile/guile-core/RELEASE:1.68       Tue Sep 12 05:30:36 2000
+++ guile/guile-core/RELEASE    Fri Sep 22 09:44:41 2000
@@ -50,7 +50,7 @@
 - remove deprecated macros: SCM_OUTOFRANGE, SCM_NALLOC, SCM_HUP_SIGNAL, 
   SCM_INT_SIGNAL, SCM_FPE_SIGNAL, SCM_BUS_SIGNAL, SCM_SEGV_SIGNAL, 
   SCM_ALRM_SIGNAL, SCM_GC_SIGNAL, SCM_TICK_SIGNAL, SCM_SIG_ORD, 
-  SCM_ORD_SIG, SCM_NUM_SIGS
+  SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SLOPPY_STRINGP
 - remove function scm_call_catching_errors
   (replaced by catch functions from throw.[ch])
 - remove support for "#&" reader syntax in (ice-9 optargs).
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1115 
guile/guile-core/libguile/ChangeLog:1.1116
--- guile/guile-core/libguile/ChangeLog:1.1115  Fri Sep 22 06:40:12 2000
+++ guile/guile-core/libguile/ChangeLog Fri Sep 22 09:44:42 2000
@@ -1,3 +1,13 @@
+2000-09-22  Dirk Herrmann  <address@hidden>
+
+       * strings.h (SCM_STRING_CHARS):  Added, should be used instead of
+       SCM_CHARS whenever the argument is known to be a string.
+
+       (SCM_SLOPPY_STRINGP):  Deprecated.
+
+       * symbols.h (SCM_SYMBOL_CHARS):  Added, should be used instead of
+       SCM_CHARS whenever the argument is known to be a symbol.
+
 2000-09-22  Neil Jerram  <address@hidden>
 
        * struct.c (scm_make_struct): Fix texinfo warning in docstring by
Index: guile/guile-core/libguile/strings.h
diff -u guile/guile-core/libguile/strings.h:1.17 
guile/guile-core/libguile/strings.h:1.18
--- guile/guile-core/libguile/strings.h:1.17    Tue Sep 12 05:30:36 2000
+++ guile/guile-core/libguile/strings.h Fri Sep 22 09:44:42 2000
@@ -51,8 +51,8 @@
 
 
 
-#define SCM_SLOPPY_STRINGP(x) (SCM_TYP7S (x) == scm_tc7_string)
-#define SCM_STRINGP(x) (SCM_NIMP (x) && SCM_SLOPPY_STRINGP (x))
+#define SCM_STRINGP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_string))
+#define SCM_STRING_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
 
 /* Is X a writable string (i.e., not a substring)?  */
 #define SCM_RWSTRINGP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string))
@@ -82,6 +82,7 @@
 
 #if (SCM_DEBUG_DEPRECATED == 0)
 
+#define SCM_SLOPPY_STRINGP(x) (SCM_STRINGP(x))
 #define SCM_NSTRINGP(x) (!SCM_STRINGP(x))
 #define SCM_NRWSTRINGP(x) (! SCM_RWSTRINGP (x))
 
Index: guile/guile-core/libguile/symbols.h
diff -u guile/guile-core/libguile/symbols.h:1.32 
guile/guile-core/libguile/symbols.h:1.33
--- guile/guile-core/libguile/symbols.h:1.32    Tue Sep 12 05:30:36 2000
+++ guile/guile-core/libguile/symbols.h Fri Sep 22 09:44:42 2000
@@ -57,6 +57,7 @@
  */
 
 #define SCM_SYMBOLP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_symbol))
+#define SCM_SYMBOL_CHARS(x)  ((char *) (SCM_CELL_WORD_1 (x)))
 
 #define SCM_LENGTH_MAX         (0xffffffL)
 #define SCM_LENGTH(x)          (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)