mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

(String Predicates): For string-any and string-every,

Browse source 
last chars are now tail calls per srfi, and reinstate char_pred can be
character or character set (somehow lost in cut and paste).
This commit is contained in:
Kevin Ryde 2004-12-28 00:16:58 +00:00
parent ed435f869b
commit c100a12ce7
1 changed files with 25 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

45
doc/ref/api-data.texi
View file

@ -2517,36 +2517,41 @@ y @result{} "foo"
@deffn {Scheme Procedure} string-any char_pred s [start [end]] @deffn {Scheme Procedure} string-any char_pred s [start [end]]
@deffnx {C Function} scm_string_any (char_pred, s, start, end) @deffnx {C Function} scm_string_any (char_pred, s, start, end)
Check if the predicate @var{pred} is true for any character in Check if @var{char_pred} is true for any character in string @var{s}.
the string @var{s}.
Calls to @var{pred} are made from left to right across @var{s}. @var{char_pred} can be a character to check for any equal to that, or
When it returns true (ie.@: non-@code{#f}), that return value a character set (@pxref{Character Sets}) to check for any in that set,
is the return from @code{string-any}. or a predicate procedure to call.
The SRFI-13 specification requires that the call to @var{pred} For a procedure, calls @code{(@var{char_pred} c)} are made
on the last character of @var{s} (assuming that point is successively on the characters from @var{start} to @var{end}. If
reached) be a tail call, but currently in Guile this is not the @var{char_pred} returns true (ie.@: non-@code{#f}), @code{string-any}
case. stops and that return value is the return from @code{string-any}. The
call on the last character (ie.@: at @math{@var{end}-1}), if that
point is reached, is a tail call.
If there are no characters in @var{s} (ie.@: @var{start} equals
@var{end}) then the return is @code{#f}.
@end deffn @end deffn
@deffn {Scheme Procedure} string-every char_pred s [start [end]] @deffn {Scheme Procedure} string-every char_pred s [start [end]]
@deffnx {C Function} scm_string_every (char_pred, s, start, end) @deffnx {C Function} scm_string_every (char_pred, s, start, end)
Check if the predicate @var{pred} is true for every character Check if @var{char_pred} is true for every character in string
in the string @var{s}. @var{s}.
Calls to @var{pred} are made from left to right across @var{s}. @var{char_pred} can be a character to check for every character equal
If the predicate is true for every character then the return to that, or a character set (@pxref{Character Sets}) to check for
value from the last @var{pred} call is the return from every character being in that set, or a predicate procedure to call.
@code{string-every}.
For a procedure, calls @code{(@var{char_pred} c)} are made
successively on the characters from @var{start} to @var{end}. If
@var{char_pred} returns @code{#f}, @code{string-every} stops and
returns @code{#f}. The call on the last character (ie.@: at
@math{@var{end}-1}), if that point is reached, is a tail call and the
return from that call is the return from @code{string-every}.
If there are no characters in @var{s} (ie.@: @var{start} equals If there are no characters in @var{s} (ie.@: @var{start} equals
@var{end}) then the return is @code{#t}. @var{end}) then the return is @code{#t}.
The SRFI-13 specification requires that the call to @var{pred}
on the last character of @var{s} (assuming that point is
reached) be a tail call, but currently in Guile this is not the
case.
@end deffn @end deffn
@node String Constructors @node String Constructors