1 #define define_ts_siS_s(id, src_type) \ 2 static Scheme_Object* ts_ ## id(Scheme_Object* g178, int g179, Scheme_Object** g180) \ 3 XFORM_SKIP_PROC \ 4 { \ 5 if (scheme_use_rtcall) \ 6 return scheme_rtcall_siS_s("[" #id "]", src_type, id, g178, g179, g180); \ 7 else \ 8 return id(g178, g179, g180); \ 9 } 10 #define define_ts_iSs_s(id, src_type) \ 11 static Scheme_Object* ts_ ## id(int g181, Scheme_Object** g182, Scheme_Object* g183) \ 12 XFORM_SKIP_PROC \ 13 { \ 14 if (scheme_use_rtcall) \ 15 return scheme_rtcall_iSs_s("[" #id "]", src_type, id, g181, g182, g183); \ 16 else \ 17 return id(g181, g182, g183); \ 18 } 19 #define define_ts_s_s(id, src_type) \ 20 static Scheme_Object* ts_ ## id(Scheme_Object* g184) \ 21 XFORM_SKIP_PROC \ 22 { \ 23 if (scheme_use_rtcall) \ 24 return scheme_rtcall_s_s("[" #id "]", src_type, id, g184); \ 25 else \ 26 return id(g184); \ 27 } 28 #define define_ts_n_s(id, src_type) \ 29 static Scheme_Object* ts_ ## id(Scheme_Native_Lambda* g185) \ 30 XFORM_SKIP_PROC \ 31 { \ 32 if (scheme_use_rtcall) \ 33 return scheme_rtcall_n_s("[" #id "]", src_type, id, g185); \ 34 else \ 35 return id(g185); \ 36 } 37 #define define_ts__s(id, src_type) \ 38 static Scheme_Object* ts_ ## id() \ 39 XFORM_SKIP_PROC \ 40 { \ 41 if (scheme_use_rtcall) \ 42 return scheme_rtcall__s("[" #id "]", src_type, id); \ 43 else \ 44 return id(); \ 45 } 46 #define define_ts_ss_s(id, src_type) \ 47 static Scheme_Object* ts_ ## id(Scheme_Object* g186, Scheme_Object* g187) \ 48 XFORM_SKIP_PROC \ 49 { \ 50 if (scheme_use_rtcall) \ 51 return scheme_rtcall_ss_s("[" #id "]", src_type, id, g186, g187); \ 52 else \ 53 return id(g186, g187); \ 54 } 55 #define define_ts_ssi_s(id, src_type) \ 56 static Scheme_Object* ts_ ## id(Scheme_Object* g188, Scheme_Object* g189, int g190) \ 57 XFORM_SKIP_PROC \ 58 { \ 59 if (scheme_use_rtcall) \ 60 return scheme_rtcall_ssi_s("[" #id "]", src_type, id, g188, g189, g190); \ 61 else \ 62 return id(g188, g189, g190); \ 63 } 64 #define define_ts_tt_s(id, src_type) \ 65 static Scheme_Object* ts_ ## id(const Scheme_Object* g191, const Scheme_Object* g192) \ 66 XFORM_SKIP_PROC \ 67 { \ 68 if (scheme_use_rtcall) \ 69 return scheme_rtcall_tt_s("[" #id "]", src_type, id, g191, g192); \ 70 else \ 71 return id(g191, g192); \ 72 } 73 #define define_ts_ss_m(id, src_type) \ 74 static MZ_MARK_STACK_TYPE ts_ ## id(Scheme_Object* g193, Scheme_Object* g194) \ 75 XFORM_SKIP_PROC \ 76 { \ 77 if (scheme_use_rtcall) \ 78 return scheme_rtcall_ss_m("[" #id "]", src_type, id, g193, g194); \ 79 else \ 80 return id(g193, g194); \ 81 } 82 #define define_ts_Sl_s(id, src_type) \ 83 static Scheme_Object* ts_ ## id(Scheme_Object** g195, intptr_t g196) \ 84 XFORM_SKIP_PROC \ 85 { \ 86 if (scheme_use_rtcall) \ 87 return scheme_rtcall_Sl_s("[" #id "]", src_type, id, g195, g196); \ 88 else \ 89 return id(g195, g196); \ 90 } 91 #define define_ts_l_s(id, src_type) \ 92 static Scheme_Object* ts_ ## id(intptr_t g197) \ 93 XFORM_SKIP_PROC \ 94 { \ 95 if (scheme_use_rtcall) \ 96 return scheme_rtcall_l_s("[" #id "]", src_type, id, g197); \ 97 else \ 98 return id(g197); \ 99 } 100 #define define_ts_bsi_v(id, src_type) \ 101 static void ts_ ## id(Scheme_Bucket* g198, Scheme_Object* g199, int g200) \ 102 XFORM_SKIP_PROC \ 103 { \ 104 if (scheme_use_rtcall) \ 105 scheme_rtcall_bsi_v("[" #id "]", src_type, id, g198, g199, g200); \ 106 else \ 107 id(g198, g199, g200); \ 108 } 109 #define define_ts_iiS_v(id, src_type) \ 110 static void ts_ ## id(int g201, int g202, Scheme_Object** g203) \ 111 XFORM_SKIP_PROC \ 112 { \ 113 if (scheme_use_rtcall) \ 114 scheme_rtcall_iiS_v("[" #id "]", src_type, id, g201, g202, g203); \ 115 else \ 116 id(g201, g202, g203); \ 117 } 118 #define define_ts_ss_v(id, src_type) \ 119 static void ts_ ## id(Scheme_Object* g204, Scheme_Object* g205) \ 120 XFORM_SKIP_PROC \ 121 { \ 122 if (scheme_use_rtcall) \ 123 scheme_rtcall_ss_v("[" #id "]", src_type, id, g204, g205); \ 124 else \ 125 id(g204, g205); \ 126 } 127 #define define_ts_b_v(id, src_type) \ 128 static void ts_ ## id(Scheme_Bucket* g206) \ 129 XFORM_SKIP_PROC \ 130 { \ 131 if (scheme_use_rtcall) \ 132 scheme_rtcall_b_v("[" #id "]", src_type, id, g206); \ 133 else \ 134 id(g206); \ 135 } 136 #define define_ts_sl_s(id, src_type) \ 137 static Scheme_Object* ts_ ## id(Scheme_Object* g207, intptr_t g208) \ 138 XFORM_SKIP_PROC \ 139 { \ 140 if (scheme_use_rtcall) \ 141 return scheme_rtcall_sl_s("[" #id "]", src_type, id, g207, g208); \ 142 else \ 143 return id(g207, g208); \ 144 } 145 #define define_ts_iS_s(id, src_type) \ 146 static Scheme_Object* ts_ ## id(int g209, Scheme_Object** g210) \ 147 XFORM_SKIP_PROC \ 148 { \ 149 if (scheme_use_rtcall) \ 150 return scheme_rtcall_iS_s("[" #id "]", src_type, id, g209, g210); \ 151 else \ 152 return id(g209, g210); \ 153 } 154 #define define_ts_S_s(id, src_type) \ 155 static Scheme_Object* ts_ ## id(Scheme_Object** g211) \ 156 XFORM_SKIP_PROC \ 157 { \ 158 if (scheme_use_rtcall) \ 159 return scheme_rtcall_S_s("[" #id "]", src_type, id, g211); \ 160 else \ 161 return id(g211); \ 162 } 163 #define define_ts_s_v(id, src_type) \ 164 static void ts_ ## id(Scheme_Object* g212) \ 165 XFORM_SKIP_PROC \ 166 { \ 167 if (scheme_use_rtcall) \ 168 scheme_rtcall_s_v("[" #id "]", src_type, id, g212); \ 169 else \ 170 id(g212); \ 171 } 172 #define define_ts_iSi_s(id, src_type) \ 173 static Scheme_Object* ts_ ## id(int g213, Scheme_Object** g214, int g215) \ 174 XFORM_SKIP_PROC \ 175 { \ 176 if (scheme_use_rtcall) \ 177 return scheme_rtcall_iSi_s("[" #id "]", src_type, id, g213, g214, g215); \ 178 else \ 179 return id(g213, g214, g215); \ 180 } 181 #define define_ts_siS_v(id, src_type) \ 182 static void ts_ ## id(Scheme_Object* g216, int g217, Scheme_Object** g218) \ 183 XFORM_SKIP_PROC \ 184 { \ 185 if (scheme_use_rtcall) \ 186 scheme_rtcall_siS_v("[" #id "]", src_type, id, g216, g217, g218); \ 187 else \ 188 id(g216, g217, g218); \ 189 } 190 #define define_ts_Sii_s(id, src_type) \ 191 static Scheme_Object* ts_ ## id(Scheme_Object** g219, int g220, int g221) \ 192 XFORM_SKIP_PROC \ 193 { \ 194 if (scheme_use_rtcall) \ 195 return scheme_rtcall_Sii_s("[" #id "]", src_type, id, g219, g220, g221); \ 196 else \ 197 return id(g219, g220, g221); \ 198 } 199 #define define_ts_z_p(id, src_type) \ 200 static void* ts_ ## id(size_t g222) \ 201 XFORM_SKIP_PROC \ 202 { \ 203 if (scheme_use_rtcall) \ 204 return scheme_rtcall_z_p("[" #id "]", src_type, id, g222); \ 205 else \ 206 return id(g222); \ 207 } 208 #define define_ts_si_s(id, src_type) \ 209 static Scheme_Object* ts_ ## id(Scheme_Object* g223, int g224) \ 210 XFORM_SKIP_PROC \ 211 { \ 212 if (scheme_use_rtcall) \ 213 return scheme_rtcall_si_s("[" #id "]", src_type, id, g223, g224); \ 214 else \ 215 return id(g223, g224); \ 216 } 217 #define define_ts_sis_v(id, src_type) \ 218 static void ts_ ## id(Scheme_Object* g225, int g226, Scheme_Object* g227) \ 219 XFORM_SKIP_PROC \ 220 { \ 221 if (scheme_use_rtcall) \ 222 scheme_rtcall_sis_v("[" #id "]", src_type, id, g225, g226, g227); \ 223 else \ 224 id(g225, g226, g227); \ 225 } 226 #define define_ts_ss_i(id, src_type) \ 227 static int ts_ ## id(Scheme_Object* g228, Scheme_Object* g229) \ 228 XFORM_SKIP_PROC \ 229 { \ 230 if (scheme_use_rtcall) \ 231 return scheme_rtcall_ss_i("[" #id "]", src_type, id, g228, g229); \ 232 else \ 233 return id(g228, g229); \ 234 } 235 #define define_ts_iSp_v(id, src_type) \ 236 static void ts_ ## id(int g230, Scheme_Object** g231, void* g232) \ 237 XFORM_SKIP_PROC \ 238 { \ 239 if (scheme_use_rtcall) \ 240 scheme_rtcall_iSp_v("[" #id "]", src_type, id, g230, g231, g232); \ 241 else \ 242 id(g230, g231, g232); \ 243 } 244 #define define_ts_sss_s(id, src_type) \ 245 static Scheme_Object* ts_ ## id(Scheme_Object* g233, Scheme_Object* g234, Scheme_Object* g235) \ 246 XFORM_SKIP_PROC \ 247 { \ 248 if (scheme_use_rtcall) \ 249 return scheme_rtcall_sss_s("[" #id "]", src_type, id, g233, g234, g235); \ 250 else \ 251 return id(g233, g234, g235); \ 252 } 253 #define define_ts__v(id, src_type) \ 254 static void ts_ ## id() \ 255 XFORM_SKIP_PROC \ 256 { \ 257 if (scheme_use_rtcall) \ 258 scheme_rtcall__v("[" #id "]", src_type, id); \ 259 else \ 260 id(); \ 261 } 262 #define define_ts_iS_v(id, src_type) \ 263 static void ts_ ## id(int g236, Scheme_Object** g237) \ 264 XFORM_SKIP_PROC \ 265 { \ 266 if (scheme_use_rtcall) \ 267 scheme_rtcall_iS_v("[" #id "]", src_type, id, g236, g237); \ 268 else \ 269 id(g236, g237); \ 270 } 271