guile/guile-core NEWS RELEASE ChangeLog acconfi...

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/11/21 09:32:38

Modified files:
        guile-core     : NEWS RELEASE ChangeLog acconfig.h 
        guile-core/libguile: ChangeLog ports.c strings.c strings.h 

Log message:
        * Deprecated SCM_RWSTRINGP and SCM_VALIDATE_RWSTRING.
        * Prepared SCM_STRING_U?CHARS to replace SCM_ROU?CHARS.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/NEWS.diff?r1=1.213&r2=1.214
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/RELEASE.diff?r1=1.74&r2=1.75
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ChangeLog.diff?r1=1.216&r2=1.217
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/acconfig.h.diff?r1=1.44&r2=1.45
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1168&r2=1.1169
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ports.c.diff?r1=1.122&r2=1.123
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/strings.c.diff?r1=1.43&r2=1.44
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/strings.h.diff?r1=1.22&r2=1.23

Patches:
Index: guile/guile-core/ChangeLog
diff -u guile/guile-core/ChangeLog:1.216 guile/guile-core/ChangeLog:1.217
--- guile/guile-core/ChangeLog:1.216    Wed Oct 25 07:45:36 2000
+++ guile/guile-core/ChangeLog  Tue Nov 21 09:32:38 2000
@@ -1,3 +1,7 @@
+2000-11-21  Dirk Herrmann  <address@hidden>
+
+       * acconfig.h:  Removed bogus #ifndef.  Thanks to Lars J. Aas.
+
 2000-10-25  Mikael Djurfeldt  <address@hidden>
 
        * GUILE-VERSION (LIBGUILE_MAJOR_VERSION): Incremented major
Index: guile/guile-core/NEWS
diff -u guile/guile-core/NEWS:1.213 guile/guile-core/NEWS:1.214
--- guile/guile-core/NEWS:1.213 Thu Nov  9 14:41:58 2000
+++ guile/guile-core/NEWS       Tue Nov 21 09:32:38 2000
@@ -263,7 +263,7 @@
 SCM_VALIDATE_ROSTRING, SCM_VALIDATE_ROSTRING_COPY,
 SCM_VALIDATE_NULLORROSTRING_COPY, SCM_ROLENGTH, SCM_LENGTH, SCM_HUGE_LENGTH,
 SCM_SUBSTRP, SCM_SUBSTR_STR, SCM_SUBSTR_OFFSET, SCM_COERCE_SUBSTR,
-SCM_ROSTRINGP
+SCM_ROSTRINGP, SCM_RWSTRINGP, SCM_VALIDATE_RWSTRING
 
 Use SCM_ASSERT_RANGE or SCM_VALIDATE_XXX_RANGE instead of SCM_OUTOFRANGE.
 Use scm_memory_error instead of SCM_NALLOC.
@@ -275,6 +275,8 @@
 Use SCM_VALIDATE_(SYMBOL|STRING) instead of SCM_VALIDATE_ROSTRING.
 Use SCM_STRING_COERCE_0TERMINATION_X instead of SCM_COERCE_SUBSTR.
 Use SCM_STRINGP or SCM_SYMBOLP instead of SCM_ROSTRINGP.
+Use SCM_STRINGP instead of SCM_RWSTRINGP.
+Use SCM_VALIDATE_STRING instead of SCM_VALIDATE_RWSTRING.
 
 ** Removed function:  scm_struct_init
 
Index: guile/guile-core/RELEASE
diff -u guile/guile-core/RELEASE:1.74 guile/guile-core/RELEASE:1.75
--- guile/guile-core/RELEASE:1.74       Thu Nov  2 02:36:31 2000
+++ guile/guile-core/RELEASE    Tue Nov 21 09:32:38 2000
@@ -49,7 +49,7 @@
   SCM_FREEP, SCM_NFREEP, SCM_CHARS, SCM_UCHARS, SCM_VALIDATE_ROSTRING,
   SCM_VALIDATE_ROSTRING_COPY, SCM_VALIDATE_NULLORROSTRING_COPY, SCM_ROLENGTH,
   SCM_LENGTH, SCM_HUGE_LENGTH, SCM_SUBSTRP, SCM_SUBSTR_STR, SCM_SUBSTR_OFFSET,
-  SCM_COERCE_SUBSTR, SCM_ROSTRINGP
+  SCM_COERCE_SUBSTR, SCM_ROSTRINGP, SCM_RWSTRINGP, SCM_VALIDATE_RWSTRING
 - remove scm_vector_set_length_x
 - remove function scm_call_catching_errors
   (replaced by catch functions from throw.[ch])
Index: guile/guile-core/acconfig.h
diff -u guile/guile-core/acconfig.h:1.44 guile/guile-core/acconfig.h:1.45
--- guile/guile-core/acconfig.h:1.44    Sun Oct  1 04:03:17 2000
+++ guile/guile-core/acconfig.h Tue Nov 21 09:32:38 2000
@@ -44,9 +44,6 @@
  * If you do not wish that, delete this exception notice.  */
 
 
-#ifndef PORTSH
-#define PORTSH
-
 /* Define these two if you want support for debugging of Scheme
    programs.  */
 #undef DEBUG_EXTENSIONS
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1168 
guile/guile-core/libguile/ChangeLog:1.1169
--- guile/guile-core/libguile/ChangeLog:1.1168  Sat Nov 18 14:18:02 2000
+++ guile/guile-core/libguile/ChangeLog Tue Nov 21 09:32:38 2000
@@ -1,3 +1,17 @@
+2000-11-21  Dirk Herrmann  <address@hidden>
+
+       * ports.c:  Include eval.h.
+
+       * strings.c (scm_string_set_x), strings.h (SCM_RWSTRINGP),
+       validate.h (SCM_VALIDATE_RWSTRING):  Deprecate SCM_RWSTRINGP and
+       SCM_VALIDATE_RWSTRING.
+
+       * strings.h (SCM_STRING_UCHARS, SCM_STRING_CHARS):  Handle strings
+       and substrings uniformly.  However, substring handling is
+       deprecated.
+
+       (SCM_RWSTRINGP):  Deprecated.
+
 2000-11-18  Gary Houston  <address@hidden>
 
        * Makefile.am (.c.x): don't prefix ".:" to $PATH when running
Index: guile/guile-core/libguile/ports.c
diff -u guile/guile-core/libguile/ports.c:1.122 
guile/guile-core/libguile/ports.c:1.123
--- guile/guile-core/libguile/ports.c:1.122     Fri Nov 17 08:25:04 2000
+++ guile/guile-core/libguile/ports.c   Tue Nov 21 09:32:38 2000
@@ -47,6 +47,7 @@
 
 #include <stdio.h>
 #include "libguile/_scm.h"
+#include "libguile/eval.h"
 #include "libguile/objects.h"
 #include "libguile/smob.h"
 #include "libguile/chars.h"
Index: guile/guile-core/libguile/strings.c
diff -u guile/guile-core/libguile/strings.c:1.43 
guile/guile-core/libguile/strings.c:1.44
--- guile/guile-core/libguile/strings.c:1.43    Fri Nov 17 08:25:04 2000
+++ guile/guile-core/libguile/strings.c Tue Nov 21 09:32:38 2000
@@ -261,13 +261,18 @@
 }
 #undef FUNC_NAME
 
+
 SCM_DEFINE (scm_string_set_x, "string-set!", 3, 0, 0,
             (SCM str, SCM k, SCM chr),
            "Stores CHR in element K of STRING and returns an unspecified 
value.\n"
             "K must be a valid index of STR.")
 #define FUNC_NAME s_scm_string_set_x
 {
-  SCM_VALIDATE_RWSTRING (1,str);
+#if (SCM_DEBUG_DEPRECATED == 0)
+  SCM_VALIDATE_RWSTRING (1, str);
+#else
+  SCM_VALIDATE_STRING (1, str);
+#endif
   SCM_VALIDATE_INUM_RANGE (2,k,0,SCM_STRING_LENGTH(str));
   SCM_VALIDATE_CHAR (3,chr);
   SCM_STRING_UCHARS (str)[SCM_INUM (k)] = SCM_CHAR (chr);
Index: guile/guile-core/libguile/strings.h
diff -u guile/guile-core/libguile/strings.h:1.22 
guile/guile-core/libguile/strings.h:1.23
--- guile/guile-core/libguile/strings.h:1.22    Thu Oct 26 11:18:28 2000
+++ guile/guile-core/libguile/strings.h Tue Nov 21 09:32:38 2000
@@ -52,13 +52,12 @@
 
 
 #define SCM_STRINGP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_string))
+#if (SCM_DEBUG_DEPRECATED == 1)
 #define SCM_STRING_UCHARS(x) ((unsigned char *) (SCM_CELL_WORD_1 (x)))
 #define SCM_STRING_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
+#endif
 #define SCM_STRING_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
 
-/* Is X a writable string (i.e., not a substring)?  */
-#define SCM_RWSTRINGP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string))
-
 #define SCM_STRING_COERCE_0TERMINATION_X(x) \
   { if (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_substring)) \
       x = scm_makfromstr (SCM_ROCHARS (x), SCM_STRING_LENGTH (x), 0); }
@@ -89,7 +88,16 @@
 
 #define SCM_SLOPPY_STRINGP(x) (SCM_STRINGP(x))
 #define SCM_NSTRINGP(x) (!SCM_STRINGP(x))
+#define SCM_RWSTRINGP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string))
 #define SCM_NRWSTRINGP(x) (! SCM_RWSTRINGP (x))
+#define SCM_STRING_UCHARS(x) \
+  ((SCM_TYP7 (x) == scm_tc7_substring) \
+     ? (unsigned char *) SCM_CELL_WORD_1 (SCM_CDDR (x)) + SCM_INUM (SCM_CADR 
(x)) \
+     : (unsigned char *) SCM_CELL_WORD_1 (x))
+#define SCM_STRING_CHARS(x) \
+  ((SCM_TYP7 (x) == scm_tc7_substring) \
+     ? (char *) SCM_CELL_WORD_1 (SCM_CDDR (x)) + SCM_INUM (SCM_CADR (x)) \
+     : (char *) SCM_CELL_WORD_1 (x))
 extern SCM scm_make_shared_substring (SCM str, SCM frm, SCM to);
 
 #endif  /* SCM_DEBUG_DEPRECATED == 0 */