56 |
#include <string.h> |
#include <string.h> |
57 |
#endif |
#endif |
58 |
|
|
59 |
#define CTYPE char |
#define CTYPE char |
60 |
#define SCM2CTYPES_FN "scm_c_scm2chars" |
#define SIZEOF_CTYPE 1 |
61 |
#define SCM2CTYPES scm_c_scm2chars |
#define SCM2CTYPES_FN "scm_c_scm2chars" |
62 |
#define CTYPES2SCM_FN "scm_c_chars2scm" |
#define SCM2CTYPES scm_c_scm2chars |
63 |
#define CTYPES2SCM scm_c_chars2scm |
#define CTYPES2SCM_FN "scm_c_chars2scm" |
64 |
#define CTYPEFIXABLE |
#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 CTYPEMIN -128 |
#define ARRAYTYPE scm_tc7_byvect |
|
#define CTYPEMAX +255 |
|
|
#define ARRAYTYPE1 scm_tc7_byvect |
|
|
#define STRINGTYPE |
|
69 |
#include "convert.i.c" |
#include "convert.i.c" |
70 |
|
|
71 |
#define CTYPE short |
#define CTYPE short |
72 |
#define SCM2CTYPES_FN "scm_c_scm2shorts" |
#define SIZEOF_CTYPE SIZEOF_SHORT |
73 |
#define SCM2CTYPES scm_c_scm2shorts |
#define SCM2CTYPES_FN "scm_c_scm2shorts" |
74 |
#define CTYPES2SCM_FN "scm_c_shorts2scm" |
#define SCM2CTYPES scm_c_scm2shorts |
75 |
#define CTYPES2SCM scm_c_shorts2scm |
#define CTYPES2SCM_FN "scm_c_shorts2scm" |
76 |
#define CTYPEFIXABLE |
#define CTYPES2SCM scm_c_shorts2scm |
77 |
#define CTYPES2UVECT_FN "scm_c_shorts2svect" |
#define CTYPES2UVECT_FN "scm_c_shorts2svect" |
78 |
#define CTYPES2UVECT scm_c_shorts2svect |
#define CTYPES2UVECT scm_c_shorts2svect |
79 |
#define UVECTTYPE scm_tc7_svect |
#define UVECTTYPE scm_tc7_svect |
80 |
#define CTYPEMIN -32768 |
#define ARRAYTYPE scm_tc7_svect |
81 |
#define CTYPEMAX +65535 |
#include "convert.i.c" |
82 |
#define ARRAYTYPE1 scm_tc7_svect |
|
83 |
#include "convert.i.c" |
#define CTYPE int |
84 |
|
#define SIZEOF_CTYPE SIZEOF_INT |
85 |
#define CTYPE int |
#define SCM2CTYPES_FN "scm_c_scm2ints" |
86 |
#define SCM2CTYPES_FN "scm_c_scm2ints" |
#define SCM2CTYPES scm_c_scm2ints |
87 |
#define SCM2CTYPES scm_c_scm2ints |
#define CTYPES2SCM_FN "scm_c_ints2scm" |
88 |
#define CTYPES2SCM_FN "scm_c_ints2scm" |
#define CTYPES2SCM scm_c_ints2scm |
89 |
#define CTYPES2SCM scm_c_ints2scm |
#define CTYPES2UVECT_FN "scm_c_ints2ivect" |
90 |
#define CTYPES2UVECT_FN "scm_c_ints2ivect" |
#define CTYPES2UVECT scm_c_ints2ivect |
91 |
#define CTYPES2UVECT scm_c_ints2ivect |
#define UVECTTYPE scm_tc7_ivect |
92 |
#define UVECTTYPE scm_tc7_ivect |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_uints2uvect" |
93 |
#define CTYPES2UVECT_FN2 "scm_c_uints2uvect" |
#define CTYPES2UVECT_OPTIONAL scm_c_uints2uvect |
94 |
#define CTYPES2UVECT2 scm_c_uints2uvect |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
95 |
#define UVECTTYPE2 scm_tc7_uvect |
#define ARRAYTYPE scm_tc7_ivect |
96 |
#define ARRAYTYPE1 scm_tc7_ivect |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
97 |
#define ARRAYTYPE2 scm_tc7_uvect |
#include "convert.i.c" |
98 |
#include "convert.i.c" |
|
99 |
|
#define CTYPE long |
100 |
#define CTYPE long |
#define SIZEOF_CTYPE SIZEOF_LONG |
101 |
#define SCM2CTYPES_FN "scm_c_scm2longs" |
#define SCM2CTYPES_FN "scm_c_scm2longs" |
102 |
#define SCM2CTYPES scm_c_scm2longs |
#define SCM2CTYPES scm_c_scm2longs |
103 |
#define CTYPES2SCM_FN "scm_c_longs2scm" |
#define CTYPES2SCM_FN "scm_c_longs2scm" |
104 |
#define CTYPES2SCM scm_c_longs2scm |
#define CTYPES2SCM scm_c_longs2scm |
105 |
#define CTYPES2UVECT_FN "scm_c_longs2ivect" |
#define CTYPES2UVECT_FN "scm_c_longs2ivect" |
106 |
#define CTYPES2UVECT scm_c_longs2ivect |
#define CTYPES2UVECT scm_c_longs2ivect |
107 |
#define UVECTTYPE scm_tc7_ivect |
#define UVECTTYPE scm_tc7_ivect |
108 |
#define CTYPES2UVECT_FN2 "scm_c_ulongs2uvect" |
#define CTYPES2UVECT_FN_OPTIONAL "scm_c_ulongs2uvect" |
109 |
#define CTYPES2UVECT2 scm_c_ulongs2uvect |
#define CTYPES2UVECT_OPTIONAL scm_c_ulongs2uvect |
110 |
#define UVECTTYPE2 scm_tc7_uvect |
#define UVECTTYPE_OPTIONAL scm_tc7_uvect |
111 |
#define ARRAYTYPE1 scm_tc7_ivect |
#define ARRAYTYPE scm_tc7_ivect |
112 |
#define ARRAYTYPE2 scm_tc7_uvect |
#define ARRAYTYPE_OPTIONAL scm_tc7_uvect |
113 |
#include "convert.i.c" |
#include "convert.i.c" |
114 |
|
|
115 |
#define CTYPE float |
#define CTYPE float |
116 |
#define SCM2CTYPES_FN "scm_c_scm2floats" |
#define SIZEOF_CTYPE 0 |
117 |
#define SCM2CTYPES scm_c_scm2floats |
#define SCM2CTYPES_FN "scm_c_scm2floats" |
118 |
#define CTYPES2SCM_FN "scm_c_floats2scm" |
#define SCM2CTYPES scm_c_scm2floats |
119 |
#define CTYPES2SCM scm_c_floats2scm |
#define CTYPES2SCM_FN "scm_c_floats2scm" |
120 |
#define CTYPES2UVECT_FN "scm_c_floats2fvect" |
#define CTYPES2SCM scm_c_floats2scm |
121 |
#define CTYPES2UVECT scm_c_floats2fvect |
#define CTYPES2UVECT_FN "scm_c_floats2fvect" |
122 |
#define UVECTTYPE scm_tc7_fvect |
#define CTYPES2UVECT scm_c_floats2fvect |
123 |
#define ARRAYTYPE1 scm_tc7_fvect |
#define UVECTTYPE scm_tc7_fvect |
124 |
#define ARRAYTYPE2 scm_tc7_dvect |
#define ARRAYTYPE scm_tc7_fvect |
125 |
#define FLOATTYPE1 float |
#define ARRAYTYPE_OPTIONAL scm_tc7_dvect |
126 |
#define FLOATTYPE2 double |
#define FLOATTYPE float |
127 |
#include "convert.i.c" |
#define FLOATTYPE_OPTIONAL double |
128 |
|
#include "convert.i.c" |
129 |
#define CTYPE double |
|
130 |
#define SCM2CTYPES_FN "scm_c_scm2doubles" |
#define CTYPE double |
131 |
#define SCM2CTYPES scm_c_scm2doubles |
#define SIZEOF_CTYPE 0 |
132 |
#define CTYPES2SCM_FN "scm_c_doubles2scm" |
#define SCM2CTYPES_FN "scm_c_scm2doubles" |
133 |
#define CTYPES2SCM scm_c_doubles2scm |
#define SCM2CTYPES scm_c_scm2doubles |
134 |
#define CTYPES2UVECT_FN "scm_c_doubles2dvect" |
#define CTYPES2SCM_FN "scm_c_doubles2scm" |
135 |
#define CTYPES2UVECT scm_c_doubles2dvect |
#define CTYPES2SCM scm_c_doubles2scm |
136 |
#define UVECTTYPE scm_tc7_dvect |
#define CTYPES2UVECT_FN "scm_c_doubles2dvect" |
137 |
#define ARRAYTYPE1 scm_tc7_dvect |
#define CTYPES2UVECT scm_c_doubles2dvect |
138 |
#define ARRAYTYPE2 scm_tc7_fvect |
#define UVECTTYPE scm_tc7_dvect |
139 |
#define FLOATTYPE1 double |
#define ARRAYTYPE scm_tc7_dvect |
140 |
#define FLOATTYPE2 float |
#define ARRAYTYPE_OPTIONAL scm_tc7_fvect |
141 |
|
#define FLOATTYPE double |
142 |
|
#define FLOATTYPE_OPTIONAL float |
143 |
#include "convert.i.c" |
#include "convert.i.c" |
144 |
|
|
145 |
/* |
/* |