mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(scm_string_any, scm_string_every): Enhance docstrings as

Browse source 
per doc/ref/srfi-modules.texi.
This commit is contained in:
Kevin Ryde 2004-08-05 00:12:59 +00:00
parent c1ab739754
commit 46c4d06529
1 changed files with 24 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

32
srfi/srfi-13.c
View file

@ -29,10 +29,16 @@
SCM_DEFINE (scm_string_any, "string-any", 2, 2, 0, SCM_DEFINE (scm_string_any, "string-any", 2, 2, 0,
(SCM pred, SCM s, SCM start, SCM end), (SCM pred, SCM s, SCM start, SCM end),
"Check if the predicate @var{pred} is true for any character in\n" "Check if the predicate @var{pred} is true for any character in\n"
"the string @var{s}, proceeding from left (index @var{start}) to\n" "the string @var{s}.\n"
"right (index @var{end}). If @code{string-any} returns true,\n" "\n"
"the returned true value is the one produced by the first\n" "Calls to @var{pred} are made from left to right across @var{s}.\n"
"successful application of @var{pred}.") "When it returns true (ie.@: non-@code{#f}), that return value\n"
"is the return from @code{string-any}.\n"
"\n"
"The SRFI-13 specification requires that the call to @var{pred}\n"
"on the last character of @var{s} (assuming that point is\n"
"reached) be a tail call, but currently in Guile this is not the\n"
"case.")
#define FUNC_NAME s_scm_string_any #define FUNC_NAME s_scm_string_any
{ {
char * cstr; char * cstr;
@ -60,10 +66,20 @@ SCM_DEFINE (scm_string_any, "string-any", 2, 2, 0,
SCM_DEFINE (scm_string_every, "string-every", 2, 2, 0, SCM_DEFINE (scm_string_every, "string-every", 2, 2, 0,
(SCM pred, SCM s, SCM start, SCM end), (SCM pred, SCM s, SCM start, SCM end),
"Check if the predicate @var{pred} is true for every character\n" "Check if the predicate @var{pred} is true for every character\n"
"in the string @var{s}, proceeding from left (index @var{start})\n" "in the string @var{s}.\n"
"to right (index @var{end}). If @code{string-every} returns\n" "\n"
"true, the returned true value is the one produced by the final\n" "Calls to @var{pred} are made from left to right across @var{s}.\n"
"application of @var{pred} to the last character of @var{s}.") "If the predicate is true for every character then the return\n"
"value from the last @var{pred} call is the return from\n"
"@code{string-every}.\n"
"\n"
"If there are no characters in @var{s} (ie.@: @var{start} equals\n"
"@var{end}) then the return is @code{#t}.\n"
"\n"
"The SRFI-13 specification requires that the call to @var{pred}\n"
"on the last character of @var{s} (assuming that point is\n"
"reached) be a tail call, but currently in Guile this is not the\n"
"case.")
#define FUNC_NAME s_scm_string_every #define FUNC_NAME s_scm_string_every
{ {
char * cstr; char * cstr;