/[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.3 by ela, Wed Feb 27 15:41:01 2002 UTC revision 1.4 by ela, Sat Mar 2 14:18:38 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 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
# Line 89  Line 97 
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    
# Line 105  Line 117 
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    
# Line 121  Line 137 
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
# Line 136  Line 154 
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

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

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