guile/guile-core/libguile strop.h strop.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Marius Vollmer <address@hidden> 01/11/13 10:19:57

Modified files:
        guile-core/libguile: strop.h strop.c 

Log message:
        (scm_substring_move_left_x, scm_substring_move_right_x): Deprecated.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/strop.h.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.12.4.1&tr2=1.12.4.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/strop.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.62.2.2&tr2=1.62.2.3&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/strop.c
diff -u guile/guile-core/libguile/strop.c:1.64 
guile/guile-core/libguile/strop.c:1.65
--- guile/guile-core/libguile/strop.c:1.64      Sun Nov 11 10:01:51 2001
+++ guile/guile-core/libguile/strop.c   Sun Nov 11 15:49:24 2001
@@ -312,7 +312,7 @@
 
 SCM_DEFINE (scm_string_null_p, "string-null?", 1, 0, 0,
            (SCM str),
-           "Return @code{#t} if @var{str}'s length is nonzero, and\n"
+           "Return @code{#t} if @var{str}'s length is zero, and\n"
            "@code{#f} otherwise.\n"
            "@lisp\n"
            "(string-null? \"\")  @result{} #t\n"
Index: guile/guile-core/libguile/strop.h
diff -u guile/guile-core/libguile/strop.h:1.14 
guile/guile-core/libguile/strop.h:1.15
--- guile/guile-core/libguile/strop.h:1.14      Fri Aug 31 06:42:19 2001
+++ guile/guile-core/libguile/strop.h   Thu Nov  1 19:19:11 2001
@@ -50,24 +50,24 @@
 
 
 
-extern SCM scm_string_index (SCM str, SCM chr, SCM frm, SCM to);
-extern SCM scm_string_rindex (SCM str, SCM chr, SCM frm, SCM to);
-extern SCM scm_substring_move_x (SCM str1, SCM start1, SCM end1, 
-                                     SCM str2, SCM start2);
-extern SCM scm_substring_fill_x (SCM str, SCM start, SCM end, SCM fill);
-extern SCM scm_string_null_p (SCM str);
-extern SCM scm_string_to_list (SCM str);
-extern SCM scm_string_copy (SCM str);
-extern SCM scm_string_fill_x (SCM str, SCM chr);
-extern void scm_init_strop (void);
-extern SCM scm_string_upcase_x (SCM v);
-extern SCM scm_string_upcase (SCM v);
-extern SCM scm_string_downcase_x (SCM v);
-extern SCM scm_string_downcase (SCM v);
-extern SCM scm_string_capitalize_x (SCM v);
-extern SCM scm_string_capitalize (SCM v);
-extern SCM scm_string_split (SCM str, SCM chr);
-extern SCM scm_string_ci_to_symbol (SCM v);
+SCM_API SCM scm_string_index (SCM str, SCM chr, SCM frm, SCM to);
+SCM_API SCM scm_string_rindex (SCM str, SCM chr, SCM frm, SCM to);
+SCM_API SCM scm_substring_move_x (SCM str1, SCM start1, SCM end1, 
+                                 SCM str2, SCM start2);
+SCM_API SCM scm_substring_fill_x (SCM str, SCM start, SCM end, SCM fill);
+SCM_API SCM scm_string_null_p (SCM str);
+SCM_API SCM scm_string_to_list (SCM str);
+SCM_API SCM scm_string_copy (SCM str);
+SCM_API SCM scm_string_fill_x (SCM str, SCM chr);
+SCM_API void scm_init_strop (void);
+SCM_API SCM scm_string_upcase_x (SCM v);
+SCM_API SCM scm_string_upcase (SCM v);
+SCM_API SCM scm_string_downcase_x (SCM v);
+SCM_API SCM scm_string_downcase (SCM v);
+SCM_API SCM scm_string_capitalize_x (SCM v);
+SCM_API SCM scm_string_capitalize (SCM v);
+SCM_API SCM scm_string_split (SCM str, SCM chr);
+SCM_API SCM scm_string_ci_to_symbol (SCM v);
 
 #define scm_substring_move_left_x scm_substring_move_x
 #define scm_substring_move_right_x scm_substring_move_x