[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit 19a16edccb83b1f05d4faf52b09744fbc0807c8d Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index 4146a50..3b313f5 100644 --- a/NEWS +++ b/NEWS @@ -827,6 +827,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab..a6527f5 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, stat
[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit 44dc8592ec08024fdd8d10af10445de62eaf20b7 Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index 5267677..3db0414 100644 --- a/NEWS +++ b/NEWS @@ -809,6 +809,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab..a6527f5 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, stat
[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit b894a1a35a521f1d1e8fc38ca8ff96197c3cef0e Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index 66c260d..0cde46f 100644 --- a/NEWS +++ b/NEWS @@ -792,6 +792,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab..a6527f5 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, stat
[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit cf562221516d3bba417cffd43ef238b9b2da9000 Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index 66c260d..0cde46f 100644 --- a/NEWS +++ b/NEWS @@ -792,6 +792,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab..a6527f5 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, stat
[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit 69f4e4ed9566201f9d7195ca71a81c1b693c4467 Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index f1c9c23..ffa8ef5 100644 --- a/NEWS +++ b/NEWS @@ -787,6 +787,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index cfca4ab..a6527f5 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -205,7 +202,12 @@ scm_bitvector_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); SCM_VALIDATE_RSTATE (2, stat
[Guile-commits] 06/08: Remove scm_generalized_vector_get_handle
lloda pushed a commit to branch wip-exception-truncate in repository guile. commit 2454115dd77860bc37b5b1e3a21f6144c77b8699 Author: Daniel Llorens Date: Mon Feb 13 13:41:45 2017 +0100 Remove scm_generalized_vector_get_handle This was deprecated in 2.0.9 (118ff892be199f0af359d1b027645d4783a364ec). * libguile/bitvectors.c (scm_bitvector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/vectors.c (scm_vector_writable_elements): Replace scm_generalized_vector_get_handle. Remove unnecessary #includes. * libguile/random.c (scm_random_normal_vector_x): Replace scm_generalized_vector_get_handle. * libguile/generalized-vectors.h, libguile/generalized-vectors.c (scm_generalized_vector_get_handle): Remove. Remove unnecessary #includes. * NEWS: Add removal notice. --- NEWS | 4 libguile/bitvectors.c | 10 ++ libguile/generalized-vectors.c | 13 - libguile/generalized-vectors.h | 7 ++- libguile/random.c | 8 +++- libguile/vectors.c | 15 --- 6 files changed, 27 insertions(+), 30 deletions(-) diff --git a/NEWS b/NEWS index d2c6897..bcc3a87 100644 --- a/NEWS +++ b/NEWS @@ -690,6 +690,10 @@ but not specifically mentioned earlier in this file, have been removed: removed. Use `get-bytevector-n!' and `put-bytevector' from (rnrs io ports) instead. +*** `scm_generalized_vector_get_handle' has been removed. Use +`scm_array_get_handle' to get a handle and `scm_array_handle_rank' +to check the rank. + ** Remove miscellaneous unused interfaces We have removed accidentally public, undocumented interfaces that we diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c index 7a4ed9b..0dde67b 100644 --- a/libguile/bitvectors.c +++ b/libguile/bitvectors.c @@ -27,12 +27,9 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/strings.h" #include "libguile/array-handle.h" #include "libguile/bitvectors.h" #include "libguile/arrays.h" -#include "libguile/generalized-vectors.h" -#include "libguile/srfi-4.h" /* Bit vectors. Would be nice if they were implemented on top of bytevectors, * but alack, all we have is this crufty C. @@ -204,7 +201,12 @@ scm_bitvector_writable_elements (SCM vec, size_t *lenp, ssize_t *incp) { - scm_generalized_vector_get_handle (vec, h); + scm_array_get_handle (vec, h); + if (1 != scm_array_handle_rank (h)) +{ + scm_array_handle_release (h); + scm_wrong_type_arg_msg (NULL, 0, vec, "rank 1 bit array"); +} if (offp) { scm_t_array_dim *dim = scm_array_handle_dims (h); diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c index 276b9d8..68c1042 100644 --- a/libguile/generalized-vectors.c +++ b/libguile/generalized-vectors.c @@ -27,8 +27,6 @@ #include "libguile/_scm.h" #include "libguile/__scm.h" -#include "libguile/array-handle.h" -#include "libguile/generalized-arrays.h" #include "libguile/generalized-vectors.h" @@ -70,17 +68,6 @@ SCM_DEFINE (scm_make_generalized_vector, "make-generalized-vector", 2, 1, 0, #undef FUNC_NAME void -scm_generalized_vector_get_handle (SCM vec, scm_t_array_handle *h) -{ - scm_array_get_handle (vec, h); - if (scm_array_handle_rank (h) != 1) -{ - scm_array_handle_release (h); - scm_wrong_type_arg_msg (NULL, 0, vec, "vector"); -} -} - -void scm_init_generalized_vectors () { #include "libguile/generalized-vectors.x" diff --git a/libguile/generalized-vectors.h b/libguile/generalized-vectors.h index 77d6272..9df8a0c 100644 --- a/libguile/generalized-vectors.h +++ b/libguile/generalized-vectors.h @@ -3,7 +3,8 @@ #ifndef SCM_GENERALIZED_VECTORS_H #define SCM_GENERALIZED_VECTORS_H -/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1999,2000,2001, 2004, 2006, 2008, 2009, 2013 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -24,15 +25,11 @@ #include "libguile/__scm.h" -#include "libguile/array-handle.h" /* Generalized vectors */ -SCM_API void scm_generalized_vector_get_handle (SCM vec, - scm_t_array_handle *h); - SCM_API SCM scm_make_generalized_vector (SCM type, SCM len, SCM fill); SCM_INTERNAL void scm_i_register_vector_constructor (SCM type, SCM (*ctor)(SCM, SCM)); diff --git a/libguile/random.c b/libguile/random.c index 1ee0459..a8ad075 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -621,7 +621,13 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0, state = SCM_VARIABLE_REF (scm_var_random_state); S