56 |
#include <string.h> |
#include <string.h> |
57 |
#endif |
#endif |
58 |
|
|
59 |
#define CTYPE char |
#define CTYPE char |
60 |
#define SIZEOF_CTYPE 1 |
#define SIZEOF_CTYPE 1 |
61 |
#define SCM2CTYPES_FN "scm_c_scm2chars" |
#define SCM2CTYPES_FN "scm_c_scm2chars" |
62 |
#define SCM2CTYPES scm_c_scm2chars |
#define SCM2CTYPES scm_c_scm2chars |
63 |
#define CTYPES2SCM_FN "scm_c_chars2scm" |
#define CTYPES2SCM_FN "scm_c_chars2scm" |
64 |
#define CTYPES2SCM scm_c_chars2scm |
#define CTYPES2SCM scm_c_chars2scm |
65 |
#define CTYPES2UVECT_FN "scm_c_chars2byvect" |
#define CTYPES2UVECT_FN "scm_c_chars2byvect" |
66 |
#define CTYPES2UVECT scm_c_chars2byvect |
#define CTYPES2UVECT scm_c_chars2byvect |
67 |
#define UVECTTYPE scm_tc7_byvect |
#define UVECTTYPE scm_tc7_byvect |
68 |
#define ARRAYTYPE scm_tc7_byvect |
#define SIZEOF_UVECTTYPE 1 |
69 |
|
#define UVECTCTYPE char |
70 |
|
#define ARRAYTYPE scm_tc7_byvect |
71 |
|
#define SIZEOF_ARRAYTYPE 1 |
72 |
|
#define ARRAYCTYPE char |
73 |
#include "convert.i.c" |
#include "convert.i.c" |
74 |
|
|
75 |
#define CTYPE short |
#define CTYPE short |
76 |
#define SIZEOF_CTYPE SIZEOF_SHORT |
#define SIZEOF_CTYPE SIZEOF_SHORT |
77 |
#define SCM2CTYPES_FN "scm_c_scm2shorts" |
#define SCM2CTYPES_FN "scm_c_scm2shorts" |
78 |
#define SCM2CTYPES scm_c_scm2shorts |
#define SCM2CTYPES scm_c_scm2shorts |
79 |
#define CTYPES2SCM_FN "scm_c_shorts2scm" |
#define CTYPES2SCM_FN "scm_c_shorts2scm" |
80 |
#define CTYPES2SCM scm_c_shorts2scm |
#define CTYPES2SCM scm_c_shorts2scm |
81 |
#define CTYPES2UVECT_FN "scm_c_shorts2svect" |
#define CTYPES2UVECT_FN "scm_c_shorts2svect" |
82 |
#define CTYPES2UVECT scm_c_shorts2svect |
#define CTYPES2UVECT scm_c_shorts2svect |
83 |
#define UVECTTYPE scm_tc7_svect |
#define UVECTTYPE scm_tc7_svect |
84 |
#define ARRAYTYPE scm_tc7_svect |
#define SIZEOF_UVECTTYPE SIZEOF_SHORT |
85 |
|
#define UVECTCTYPE short |
86 |
|
#define ARRAYTYPE scm_tc7_svect |
87 |
|
#define SIZEOF_ARRAYTYPE SIZEOF_SHORT |
88 |
|
#define ARRAYCTYPE short |
89 |
#include "convert.i.c" |
#include "convert.i.c" |
90 |
|
|
91 |
#define CTYPE int |
#define CTYPE int |
97 |
#define CTYPES2UVECT_FN "scm_c_ints2ivect" |
#define CTYPES2UVECT_FN "scm_c_ints2ivect" |
98 |
#define CTYPES2UVECT scm_c_ints2ivect |
#define CTYPES2UVECT scm_c_ints2ivect |
99 |
#define UVECTTYPE scm_tc7_ivect |
#define UVECTTYPE scm_tc7_ivect |
100 |
|
#define SIZEOF_UVECTTYPE SIZEOF_LONG |
101 |
|
#define UVECTCTYPE long |
102 |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_uints2uvect" |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_uints2uvect" |
103 |
#define CTYPES2UVECT_OPTIONAL scm_c_uints2uvect |
#define CTYPES2UVECT_OPTIONAL scm_c_uints2uvect |
104 |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
105 |
#define ARRAYTYPE scm_tc7_ivect |
#define ARRAYTYPE scm_tc7_ivect |
106 |
|
#define SIZEOF_ARRAYTYPE SIZEOF_LONG |
107 |
|
#define ARRAYCTYPE long |
108 |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
109 |
#include "convert.i.c" |
#include "convert.i.c" |
110 |
|
|
117 |
#define CTYPES2UVECT_FN "scm_c_longs2ivect" |
#define CTYPES2UVECT_FN "scm_c_longs2ivect" |
118 |
#define CTYPES2UVECT scm_c_longs2ivect |
#define CTYPES2UVECT scm_c_longs2ivect |
119 |
#define UVECTTYPE scm_tc7_ivect |
#define UVECTTYPE scm_tc7_ivect |
120 |
|
#define SIZEOF_UVECTTYPE SIZEOF_LONG |
121 |
|
#define UVECTCTYPE long |
122 |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_ulongs2uvect" |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_ulongs2uvect" |
123 |
#define CTYPES2UVECT_OPTIONAL scm_c_ulongs2uvect |
#define CTYPES2UVECT_OPTIONAL scm_c_ulongs2uvect |
124 |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
125 |
#define ARRAYTYPE scm_tc7_ivect |
#define ARRAYTYPE scm_tc7_ivect |
126 |
|
#define SIZEOF_ARRAYTYPE SIZEOF_LONG |
127 |
|
#define ARRAYCTYPE long |
128 |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
129 |
#include "convert.i.c" |
#include "convert.i.c" |
130 |
|
|
137 |
#define CTYPES2UVECT_FN "scm_c_floats2fvect" |
#define CTYPES2UVECT_FN "scm_c_floats2fvect" |
138 |
#define CTYPES2UVECT scm_c_floats2fvect |
#define CTYPES2UVECT scm_c_floats2fvect |
139 |
#define UVECTTYPE scm_tc7_fvect |
#define UVECTTYPE scm_tc7_fvect |
140 |
|
#define SIZEOF_UVECTTYPE 0 |
141 |
#define ARRAYTYPE scm_tc7_fvect |
#define ARRAYTYPE scm_tc7_fvect |
142 |
|
#define SIZEOF_ARRAYTYPE 0 |
143 |
#define ARRAYTYPE_OPTIONAL scm_tc7_dvect |
#define ARRAYTYPE_OPTIONAL scm_tc7_dvect |
144 |
#define FLOATTYPE float |
#define FLOATTYPE float |
145 |
#define FLOATTYPE_OPTIONAL double |
#define FLOATTYPE_OPTIONAL double |
154 |
#define CTYPES2UVECT_FN "scm_c_doubles2dvect" |
#define CTYPES2UVECT_FN "scm_c_doubles2dvect" |
155 |
#define CTYPES2UVECT scm_c_doubles2dvect |
#define CTYPES2UVECT scm_c_doubles2dvect |
156 |
#define UVECTTYPE scm_tc7_dvect |
#define UVECTTYPE scm_tc7_dvect |
157 |
|
#define SIZEOF_UVECTTYPE 0 |
158 |
#define ARRAYTYPE scm_tc7_dvect |
#define ARRAYTYPE scm_tc7_dvect |
159 |
|
#define SIZEOF_ARRAYTYPE 0 |
160 |
#define ARRAYTYPE_OPTIONAL scm_tc7_fvect |
#define ARRAYTYPE_OPTIONAL scm_tc7_fvect |
161 |
#define FLOATTYPE double |
#define FLOATTYPE double |
162 |
#define FLOATTYPE_OPTIONAL float |
#define FLOATTYPE_OPTIONAL float |