Commit | Line | Data |
---|---|---|
0f2d19dd JB |
1 | /* classes: h_files */ |
2 | ||
dcb410ec DH |
3 | #ifndef SCM_VECTORS_H |
4 | #define SCM_VECTORS_H | |
dee01b01 | 5 | |
1f1270b9 | 6 | /* Copyright (C) 1995,1996,1998,2000,2001, 2002 Free Software Foundation, Inc. |
dee01b01 | 7 | * |
73be1d9e MV |
8 | * This library is free software; you can redistribute it and/or |
9 | * modify it under the terms of the GNU Lesser General Public | |
10 | * License as published by the Free Software Foundation; either | |
11 | * version 2.1 of the License, or (at your option) any later version. | |
dee01b01 | 12 | * |
73be1d9e | 13 | * This library is distributed in the hope that it will be useful, |
0f2d19dd | 14 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
73be1d9e MV |
15 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
16 | * Lesser General Public License for more details. | |
dee01b01 | 17 | * |
73be1d9e MV |
18 | * You should have received a copy of the GNU Lesser General Public |
19 | * License along with this library; if not, write to the Free Software | |
20 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
21 | */ | |
d3a6bc94 | 22 | |
0f2d19dd JB |
23 | \f |
24 | ||
b4309c3c | 25 | #include "libguile/__scm.h" |
0f2d19dd JB |
26 | |
27 | \f | |
28 | ||
dee01b01 | 29 | #define SCM_VECTORP(x) (!SCM_IMP (x) && (SCM_TYP7S (x) == scm_tc7_vector)) |
92c2555f | 30 | #define SCM_VECTOR_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x)) |
6a0476fd | 31 | #define SCM_SET_VECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b))) |
e382fdbe | 32 | #define SCM_VECTOR_MAX_LENGTH ((1L << 24) - 1) |
c014a02e | 33 | #define SCM_VECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8) |
34d19ef6 HWN |
34 | #define SCM_MAKE_VECTOR_TAG(l, t) (((l) << 8) + (t)) |
35 | #define SCM_SET_VECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), SCM_MAKE_VECTOR_TAG(l, t))) | |
2d349e67 | 36 | |
34d19ef6 | 37 | #define SCM_VELTS(x) ((const SCM *) SCM_CELL_WORD_1 (x)) |
4260a7fc | 38 | #define SCM_VELTS_AS_STACKITEMS(x) ((SCM_STACKITEM *) SCM_CELL_WORD_1 (x)) |
34d19ef6 | 39 | #define SCM_SETVELTS(x, v) (SCM_SET_CELL_WORD_1 ((x), (v))) |
1f1270b9 MV |
40 | #define SCM_VECTOR_REF(x, idx) (((const SCM *) SCM_CELL_WORD_1 (x))[(idx)]) |
41 | #define SCM_VECTOR_SET(x, idx, val) (((SCM*)SCM_CELL_WORD_1 (x))[(idx)] = (val)) | |
0f2d19dd | 42 | |
34d19ef6 HWN |
43 | #define SCM_GC_WRITABLE_VELTS(x) ((SCM*) SCM_VELTS(x)) |
44 | ||
45 | /* | |
46 | no WB yet. | |
47 | */ | |
48 | #define SCM_WRITABLE_VELTS(x) ((SCM*) SCM_VELTS(x)) | |
c209c88e GB |
49 | |
50 | \f | |
51 | /* | |
52 | bit vectors | |
53 | */ | |
bab246f3 DH |
54 | #define SCM_BITVEC_REF(a, i) ((SCM_BITVECTOR_BASE (a) [(i) / SCM_LONG_BIT] & (1L << ((i) % SCM_LONG_BIT))) ? 1 : 0) |
55 | #define SCM_BITVEC_SET(a, i) SCM_BITVECTOR_BASE (a) [(i) / SCM_LONG_BIT] |= (1L << ((i) % SCM_LONG_BIT)) | |
56 | #define SCM_BITVEC_CLR(a, i) SCM_BITVECTOR_BASE (a) [(i) / SCM_LONG_BIT] &= ~(1L << ((i) % SCM_LONG_BIT)) | |
c209c88e GB |
57 | |
58 | ||
0f2d19dd | 59 | \f |
0f2d19dd | 60 | |
33b001fd MV |
61 | SCM_API SCM scm_vector_p (SCM x); |
62 | SCM_API SCM scm_vector_length (SCM v); | |
63 | SCM_API SCM scm_vector (SCM l); | |
64 | SCM_API SCM scm_vector_ref (SCM v, SCM k); | |
65 | SCM_API SCM scm_vector_set_x (SCM v, SCM k, SCM obj); | |
66 | SCM_API SCM scm_make_vector (SCM k, SCM fill); | |
67 | SCM_API SCM scm_vector_to_list (SCM v); | |
68 | SCM_API SCM scm_vector_fill_x (SCM v, SCM fill_x); | |
33b001fd MV |
69 | SCM_API SCM scm_vector_move_left_x (SCM vec1, SCM start1, SCM end1, |
70 | SCM vec2, SCM start2); | |
71 | SCM_API SCM scm_vector_move_right_x (SCM vec1, SCM start1, SCM end1, | |
72 | SCM vec2, SCM start2); | |
88797580 MV |
73 | |
74 | SCM_API int scm_is_vector (SCM obj); | |
75 | SCM_API SCM scm_c_make_vector (size_t len, SCM fill); | |
76 | SCM_API size_t scm_c_vector_length (SCM vec); | |
77 | SCM_API SCM scm_c_vector_ref (SCM vec, size_t k); | |
de5c0f58 | 78 | SCM_API void scm_c_vector_set_x (SCM vec, size_t k, SCM obj); |
1d0df896 MV |
79 | SCM_API const SCM *scm_vector_elements (SCM vec); |
80 | SCM_API void scm_vector_release_elements (SCM vec); | |
81 | SCM_API void scm_frame_vector_release_elements (SCM vec); | |
82 | SCM_API SCM *scm_vector_writable_elements (SCM vec); | |
83 | SCM_API void scm_vector_release_writable_elements (SCM vec); | |
84 | SCM_API void scm_frame_vector_release_writable_elements (SCM vec); | |
88797580 MV |
85 | |
86 | /* Generalized vectors */ | |
87 | ||
88 | SCM_API SCM scm_generalized_vector_p (SCM v); | |
89 | SCM_API SCM scm_generalized_vector_length (SCM v); | |
90 | SCM_API SCM scm_generalized_vector_ref (SCM v, SCM idx); | |
91 | SCM_API SCM scm_generalized_vector_set_x (SCM v, SCM idx, SCM val); | |
92 | SCM_API SCM scm_generalized_vector_to_list (SCM v); | |
93 | ||
94 | SCM_API int scm_is_generalized_vector (SCM obj); | |
95 | SCM_API size_t scm_c_generalized_vector_length (SCM v); | |
96 | SCM_API SCM scm_c_generalized_vector_ref (SCM v, size_t idx); | |
97 | SCM_API void scm_c_generalized_vector_set_x (SCM v, size_t idx, SCM val); | |
98 | ||
1d0df896 MV |
99 | /* Deprecated */ |
100 | ||
101 | SCM_API SCM scm_vector_equal_p (SCM x, SCM y); | |
102 | ||
33b001fd | 103 | SCM_API void scm_init_vectors (void); |
0f2d19dd | 104 | |
dcb410ec | 105 | #endif /* SCM_VECTORS_H */ |
89e00824 ML |
106 | |
107 | /* | |
108 | Local Variables: | |
109 | c-file-style: "gnu" | |
110 | End: | |
111 | */ |