1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00

Deprecate useless C bitvector interface

C should use scm_c_bitvector_length, not scm_bitvector_length.

* doc/ref/api-data.texi (Bit Vectors): Reorganize a bit to put typed C
  interfaces in their own section.
* libguile/bitvectors.h:
* libguile/bitvectors.c (bitvector-length, bitvector-count): Make
  SCM-flavored C interface private.
  (scm_c_bitvector_count): New function.
* libguile/deprecated.c (scm_bitvector_length): Deprecate.
  (scm_bit_count): Adapt to changes.
This commit is contained in:
Andy Wingo 2020-04-21 22:35:00 +02:00
parent bfd38b8577
commit b517a91ba4
5 changed files with 37 additions and 24 deletions

View file

@ -6564,15 +6564,9 @@ Create a new bitvector with the arguments as elements.
@end deffn
@deffn {Scheme Procedure} bitvector-length vec
@deffnx {C Function} scm_bitvector_length (vec)
Return the length of the bitvector @var{vec}.
@end deffn
@deftypefn {C Function} size_t scm_c_bitvector_length (SCM vec)
Like @code{scm_bitvector_length}, but the length is returned as a
@code{size_t}.
@end deftypefn
@deffn {Scheme Procedure} bitvector-bit-set? vec idx
@deffnx {Scheme Procedure} bitvector-bit-clear? vec idx
Return @code{#t} if the bit at index @var{idx} of the bitvector
@ -6623,7 +6617,6 @@ of the bitvector @var{vec}.
@end deffn
@deffn {Scheme Procedure} bitvector-count bitvector
@deffnx {C Function} scm_bitvector_count (bitvector)
Return a count of how many entries in @var{bitvector} are set.
@example
@ -6643,9 +6636,11 @@ For example,
@end example
@end deffn
@deftypefn {C Function} size_t scm_c_bitvector_count_bits (SCM bitvector, SCM bits)
Same as @code{bitvector-count-bits}, but returning a @code{size_t} for
C.
@deftypefn {C Function} size_t scm_c_bitvector_length (SCM bitvector)
@deftypefnx {C Function} size_t scm_c_bitvector_count (SCM bitvector)
@deftypefnx {C Function} size_t scm_c_bitvector_count_bits (SCM bitvector, SCM bits)
Same as @code{bitvector-length}, @code{bitvector-count}, and
@code{bitvector-count-bits}, but returning a @code{size_t} result.
@end deftypefn
@deffn {Scheme Procedure} bitvector-position bitvector bool start