[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile strop.h strop.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile strop.h strop.c |
Date: |
Tue, 13 Nov 2001 10:19:58 -0500 |
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
- guile/guile-core/libguile strop.h strop.c,
Marius Vollmer <=