/[guile]/guile/guile-core/libguile/convert.c
ViewVC logotype

Diff of /guile/guile-core/libguile/convert.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ghouston, Mon Feb 25 22:07:52 2002 UTC revision 1.3 by ela, Wed Feb 27 15:41:01 2002 UTC
# Line 56  Line 56 
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  /*  /*

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26