3 /* srfi-4.c --- Homogeneous numeric vector datatypes.
5 * Copyright (C) 2001 Free Software Foundation, Inc.
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License as
9 * published by the Free Software Foundation; either version 2, or (at
10 * your option) any later version.
12 * This program is distributed in the hope that it will be useful, but
13 * WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with this software; see the file COPYING. If not, write to
19 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
20 * Boston, MA 02111-1307 USA
22 * As a special exception, the Free Software Foundation gives
23 * permission for additional uses of the text contained in its release
26 * The exception is that, if you link the GUILE library with other
27 * files to produce an executable, this does not by itself cause the
28 * resulting executable to be covered by the GNU General Public
29 * License. Your use of that executable is in no way restricted on
30 * account of linking the GUILE library code into it.
32 * This exception does not however invalidate any other reasons why
33 * the executable file might be covered by the GNU General Public
36 * This exception applies only to the code released by the Free
37 * Software Foundation under the name GUILE. If you copy code from
38 * other Free Software Foundation releases into a copy of GUILE, as
39 * the General Public License permits, the exception does not apply to
40 * the code that you add in this way. To avoid misleading anyone as
41 * to the status of such modified files, you must delete this
42 * exception notice from them.
44 * If you write modifications of your own for GUILE, it is your choice
45 * whether to permit this exception to apply to your modifications.
46 * If you do not wish that, delete this exception notice. */
49 SCM
scm_u8vector_p (SCM obj
);
50 SCM
scm_make_u8vector (SCM n
, SCM fill
);
51 SCM
scm_u8vector (SCM l
);
52 SCM
scm_u8vector_length (SCM uvec
);
53 SCM
scm_u8vector_ref (SCM uvec
, SCM index
);
54 SCM
scm_u8vector_set_x (SCM uvec
, SCM index
, SCM value
);
55 SCM
scm_u8vector_to_list (SCM uvec
);
56 SCM
scm_list_to_u8vector (SCM l
);
58 SCM
scm_s8vector_p (SCM obj
);
59 SCM
scm_make_s8vector (SCM n
, SCM fill
);
60 SCM
scm_s8vector (SCM l
);
61 SCM
scm_s8vector_length (SCM uvec
);
62 SCM
scm_s8vector_ref (SCM uvec
, SCM index
);
63 SCM
scm_s8vector_set_x (SCM uvec
, SCM index
, SCM value
);
64 SCM
scm_s8vector_to_list (SCM uvec
);
65 SCM
scm_list_to_s8vector (SCM l
);
67 SCM
scm_u16vector_p (SCM obj
);
68 SCM
scm_make_u16vector (SCM n
, SCM fill
);
69 SCM
scm_u16vector (SCM l
);
70 SCM
scm_u16vector_length (SCM uvec
);
71 SCM
scm_u16vector_ref (SCM uvec
, SCM index
);
72 SCM
scm_u16vector_set_x (SCM uvec
, SCM index
, SCM value
);
73 SCM
scm_u16vector_to_list (SCM uvec
);
74 SCM
scm_list_to_u16vector (SCM l
);
76 SCM
scm_s16vector_p (SCM obj
);
77 SCM
scm_make_s16vector (SCM n
, SCM fill
);
78 SCM
scm_s16vector (SCM l
);
79 SCM
scm_s16vector_length (SCM uvec
);
80 SCM
scm_s16vector_ref (SCM uvec
, SCM index
);
81 SCM
scm_s16vector_set_x (SCM uvec
, SCM index
, SCM value
);
82 SCM
scm_s16vector_to_list (SCM uvec
);
83 SCM
scm_list_to_s16vector (SCM l
);
85 SCM
scm_u32vector_p (SCM obj
);
86 SCM
scm_make_u32vector (SCM n
, SCM fill
);
87 SCM
scm_u32vector (SCM l
);
88 SCM
scm_u32vector_length (SCM uvec
);
89 SCM
scm_u32vector_ref (SCM uvec
, SCM index
);
90 SCM
scm_u32vector_set_x (SCM uvec
, SCM index
, SCM value
);
91 SCM
scm_u32vector_to_list (SCM uvec
);
92 SCM
scm_list_to_u32vector (SCM l
);
94 SCM
scm_s32vector_p (SCM obj
);
95 SCM
scm_make_s32vector (SCM n
, SCM fill
);
96 SCM
scm_s32vector (SCM l
);
97 SCM
scm_s32vector_length (SCM uvec
);
98 SCM
scm_s32vector_ref (SCM uvec
, SCM index
);
99 SCM
scm_s32vector_set_x (SCM uvec
, SCM index
, SCM value
);
100 SCM
scm_s32vector_to_list (SCM uvec
);
101 SCM
scm_list_to_s32vector (SCM l
);
103 SCM
scm_u64vector_p (SCM obj
);
104 SCM
scm_make_u64vector (SCM n
, SCM fill
);
105 SCM
scm_u64vector (SCM l
);
106 SCM
scm_u64vector_length (SCM uvec
);
107 SCM
scm_u64vector_ref (SCM uvec
, SCM index
);
108 SCM
scm_u64vector_set_x (SCM uvec
, SCM index
, SCM value
);
109 SCM
scm_u64vector_to_list (SCM uvec
);
110 SCM
scm_list_to_u64vector (SCM l
);
112 SCM
scm_s64vector_p (SCM obj
);
113 SCM
scm_make_s64vector (SCM n
, SCM fill
);
114 SCM
scm_s64vector (SCM l
);
115 SCM
scm_s64vector_length (SCM uvec
);
116 SCM
scm_s64vector_ref (SCM uvec
, SCM index
);
117 SCM
scm_s64vector_set_x (SCM uvec
, SCM index
, SCM value
);
118 SCM
scm_s64vector_to_list (SCM uvec
);
119 SCM
scm_list_to_s64vector (SCM l
);
121 SCM
scm_f32vector_p (SCM obj
);
122 SCM
scm_make_f32vector (SCM n
, SCM fill
);
123 SCM
scm_f32vector (SCM l
);
124 SCM
scm_f32vector_length (SCM uvec
);
125 SCM
scm_f32vector_ref (SCM uvec
, SCM index
);
126 SCM
scm_f32vector_set_x (SCM uvec
, SCM index
, SCM value
);
127 SCM
scm_f32vector_to_list (SCM uvec
);
128 SCM
scm_list_to_f32vector (SCM l
);
130 SCM
scm_f64vector_p (SCM obj
);
131 SCM
scm_make_f64vector (SCM n
, SCM fill
);
132 SCM
scm_f64vector (SCM l
);
133 SCM
scm_f64vector_length (SCM uvec
);
134 SCM
scm_f64vector_ref (SCM uvec
, SCM index
);
135 SCM
scm_f64vector_set_x (SCM uvec
, SCM index
, SCM value
);
136 SCM
scm_f64vector_to_list (SCM uvec
);
137 SCM
scm_list_to_f64vector (SCM l
);
139 void scm_init_srfi_4 (void);
141 #endif /* SCM_SRFI_4_H */