diff options
author | Andy Wingo <wingo@pobox.com> | 2020-04-15 22:14:25 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-04-15 22:14:25 +0200 |
commit | d7fea134530e552e15732fba01257cf6fba10fec (patch) | |
tree | 92c4c938c414fcdb13187fc576a56f6ba3ffafb8 /libguile/deprecated.c | |
parent | 8110061e647134ab9071ecb5ce59b69b4ed6ed35 (diff) | |
download | guile-d7fea134530e552e15732fba01257cf6fba10fec.tar.gz |
bitvector-set-all-bits! / bitvector-clear-all-bits! replace bitvector-fill!
* NEWS: Add entry.
* doc/ref/api-data.texi (Bit Vectors): Update.
* libguile/bitvectors.h:
* libguile/bitvectors.c (scm_c_bitvector_set_all_bits_x)
(scm_c_bitvector_clear_all_bits_x): New functions.
* libguile/deprecated.h:
* libguile/deprecated.c (scm_bitvector_fill_x): Deprecate.
* module/ice-9/sandbox.scm (mutable-bitvector-bindings): Replace
bitvector-fill! with bitvector-set-all-bits! /
bitvector-clear-all-bits!.
* module/system/vm/disassembler.scm (static-opcode-set): Use
bitvector-set-bit!.
* module/system/vm/frame.scm (available-bindings): Use the new
interfaces.
* test-suite/tests/bitvectors.test: Update.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 24a50ee3b..3682a0c04 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -170,6 +170,42 @@ SCM_DEFINE (scm_bitvector_set_x, "bitvector-set!", 3, 0, 0, } #undef FUNC_NAME +SCM_DEFINE (scm_bitvector_fill_x, "bitvector-fill!", 2, 0, 0, + (SCM vec, SCM val), + "Set all elements of the bitvector\n" + "@var{vec} when @var{val} is true, else clear them.") +#define FUNC_NAME s_scm_bitvector_fill_x +{ + scm_c_issue_deprecation_warning + ("bitvector-fill! is deprecated. Use bitvector-set-all-bits! or " + "bitvector-clear-all-bits! instead."); + + if (scm_is_bitvector (vec)) + { + if (scm_is_true (val)) + scm_c_bitvector_set_all_bits_x (vec); + else + scm_c_bitvector_clear_all_bits_x (vec); + + return SCM_UNSPECIFIED; + } + + scm_t_array_handle handle; + size_t off, len; + ssize_t inc; + + scm_bitvector_writable_elements (vec, &handle, &off, &len, &inc); + + size_t i; + for (i = 0; i < len; i++) + scm_array_handle_set (&handle, i*inc, val); + + scm_array_handle_release (&handle); + + return SCM_UNSPECIFIED; +} +#undef FUNC_NAME + SCM_DEFINE (scm_bit_count, "bit-count", 2, 0, 0, (SCM b, SCM bitvector), "Return the number of occurrences of the boolean @var{b} in\n" |