src/vtable.tbl

   1 # $Id$
   2 # [MAIN] #default section name
   3
   4 # MMD_EQ ... MMD_STRCMP must be in one block
   5 # see src/mmd.c
   6
   7 # INPLACE MMD variant must always be normal op + 1
   8
   9 void init()
  10 # init must be first for JITed vtable meths
  11 void init_pmc(PMC* initializer)
  12 PMC* instantiate(PMC* sig)
  13 PMC* new_from_string(STRING* rep, INTVAL flags)
  14 void morph(INTVAL type) :write
  15 void mark()
  16 void destroy()
  17 PMC* pmc_namespace()
  18
  19 # XXX FIXME should this be marked as writing?
  20 PMC* getprop(STRING* key)
  21 void setprop(STRING* key, PMC* value)
  22 void delprop(STRING* key)
  23 PMC* getprops()
  24
  25 INTVAL type()
  26 INTVAL type_keyed(PMC* key)
  27 INTVAL type_keyed_int(INTVAL key)
  28 INTVAL type_keyed_str(STRING* key)
  29
  30 UINTVAL subtype(INTVAL type)
  31
  32 STRING* name()
  33
  34 PMC* clone()
  35 PMC* clone_pmc(PMC* args)
  36
  37 PMC* find_method(STRING* method_name)
  38
  39 [FETCH]
  40 INTVAL get_integer()
  41 INTVAL get_integer_keyed(PMC* key)
  42 INTVAL get_integer_keyed_int(INTVAL key)
  43 INTVAL get_integer_keyed_str(STRING* key)
  44
  45 FLOATVAL get_number()
  46 FLOATVAL get_number_keyed(PMC* key)
  47 FLOATVAL get_number_keyed_int(INTVAL key)
  48 FLOATVAL get_number_keyed_str(STRING* key)
  49
  50 PMC* get_bignum()
  51
  52 STRING* get_string()
  53 STRING* get_repr()
  54 STRING* get_string_keyed(PMC* key)
  55 STRING* get_string_keyed_int(INTVAL key)
  56 STRING* get_string_keyed_str(STRING* key)
  57
  58 INTVAL get_bool()
  59
  60 PMC* get_pmc()
  61 PMC* get_pmc_keyed(PMC* key)
  62 PMC* get_pmc_keyed_int(INTVAL key)
  63 PMC* get_pmc_keyed_str(STRING* key)
  64 PMC* slice(PMC* key, INTVAL flag)
  65
  66 void* get_pointer()
  67 void* get_pointer_keyed(PMC* key)
  68 void* get_pointer_keyed_int(INTVAL key)
  69 void* get_pointer_keyed_str(STRING* key)
  70
  71 [STORE] :write
  72 void set_integer_native(INTVAL value)
  73 void set_integer_same(PMC* value)
  74 void set_integer_keyed(PMC* key, INTVAL value)
  75 void set_integer_keyed_int(INTVAL key, INTVAL value)
  76 void set_integer_keyed_str(STRING* key, INTVAL value)
  77
  78 void set_number_native(FLOATVAL value)
  79 void set_number_same(PMC* value)
  80 void set_number_keyed(PMC* key, FLOATVAL value)
  81 void set_number_keyed_int(INTVAL key, FLOATVAL value)
  82 void set_number_keyed_str(STRING* key, FLOATVAL value)
  83
  84 void set_bignum_int(INTVAL value)
  85 void set_bignum_num(FLOATVAL value)
  86 void set_bignum_str(STRING* value)
  87
  88 void set_string_native(STRING* value)
  89 void assign_string_native(STRING* value)
  90 void set_string_same(PMC* value)
  91 void set_string_keyed(PMC* key, STRING* value)
  92 void set_string_keyed_int(INTVAL key, STRING* value)
  93 void set_string_keyed_str(STRING* key, STRING* value)
  94
  95 void set_bool(INTVAL value)
  96
  97 void set_pmc(PMC* value)
  98 void assign_pmc(PMC* value)
  99 void set_pmc_keyed(PMC* key, PMC* value)
 100 void set_pmc_keyed_int(INTVAL key, PMC* value)
 101 void set_pmc_keyed_str(STRING* key, PMC* value)
 102
 103 void set_pointer(void* value)
 104 void set_pointer_keyed(PMC* key, void* value)
 105 void set_pointer_keyed_int(INTVAL key, void* value)
 106 void set_pointer_keyed_str(STRING* key, void* value)
 107
 108 [FETCHSIZE]
 109 INTVAL elements()
 110
 111 [POP] :write
 112 INTVAL pop_integer()
 113 FLOATVAL pop_float()
 114 STRING* pop_string()
 115 PMC* pop_pmc()
 116
 117 [PUSH] :write
 118 void push_integer(INTVAL value)
 119 void push_float(FLOATVAL value)
 120 void push_string(STRING* value)
 121 void push_pmc(PMC* value)
 122
 123 [SHIFT] :write
 124 INTVAL shift_integer()
 125 FLOATVAL shift_float()
 126 STRING* shift_string()
 127 PMC* shift_pmc()
 128
 129 [UNSHIFT] :write
 130 void unshift_integer(INTVAL value)
 131 void unshift_float(FLOATVAL value)
 132 void unshift_string(STRING* value)
 133 void unshift_pmc(PMC* value)
 134
 135 ## void splice ???
 136
 137 [SPLICE] :write
 138 void splice(PMC* value, INTVAL offset, INTVAL count)
 139
 140 # XXX marking writing here?
 141 [MATH]
 142 PMC* add(PMC* value, PMC* dest)             MMD_ADD
 143 PMC* add_int(INTVAL value, PMC* dest)       MMD_ADD_INT
 144 PMC* add_float(FLOATVAL value, PMC* dest)   MMD_ADD_FLOAT
 145
 146 void i_add(PMC* value)                      MMD_I_ADD
 147 void i_add_int(INTVAL value)                MMD_I_ADD_INT
 148 void i_add_float(FLOATVAL value)            MMD_I_ADD_FLOAT
 149
 150 PMC* subtract(PMC* value, PMC* dest)        MMD_SUBTRACT
 151 PMC* subtract_int(INTVAL value, PMC* dest)  MMD_SUBTRACT_INT
 152 PMC* subtract_float(FLOATVAL value, PMC* dest)  MMD_SUBTRACT_FLOAT
 153
 154 void i_subtract(PMC* value)                 MMD_I_SUBTRACT
 155 void i_subtract_int(INTVAL value)           MMD_I_SUBTRACT_INT
 156 void i_subtract_float(FLOATVAL value)       MMD_I_SUBTRACT_FLOAT
 157
 158 PMC* multiply(PMC* value, PMC* dest)        MMD_MULTIPLY
 159 PMC* multiply_int(INTVAL value, PMC* dest)  MMD_MULTIPLY_INT
 160 PMC* multiply_float(FLOATVAL value, PMC* dest)  MMD_MULTIPLY_FLOAT
 161
 162 void i_multiply(PMC* value)                 MMD_I_MULTIPLY
 163 void i_multiply_int(INTVAL value)           MMD_I_MULTIPLY_INT
 164 void i_multiply_float(FLOATVAL value)       MMD_I_MULTIPLY_FLOAT
 165
 166 PMC* divide(PMC* value, PMC* dest)           MMD_DIVIDE
 167 PMC* divide_int(INTVAL value, PMC* dest)     MMD_DIVIDE_INT
 168 PMC* divide_float(FLOATVAL value, PMC* dest) MMD_DIVIDE_FLOAT
 169
 170 void i_divide(PMC* value)                    MMD_I_DIVIDE
 171 void i_divide_int(INTVAL value)              MMD_I_DIVIDE_INT
 172 void i_divide_float(FLOATVAL value)          MMD_I_DIVIDE_FLOAT
 173
 174 PMC* floor_divide(PMC* value, PMC* dest)           MMD_FLOOR_DIVIDE
 175 PMC* floor_divide_int(INTVAL value, PMC* dest)     MMD_FLOOR_DIVIDE_INT
 176 PMC* floor_divide_float(FLOATVAL value, PMC* dest) MMD_FLOOR_DIVIDE_FLOAT
 177
 178 void i_floor_divide(PMC* value)              MMD_I_FLOOR_DIVIDE
 179 void i_floor_divide_int(INTVAL value)        MMD_I_FLOOR_DIVIDE_INT
 180 void i_floor_divide_float(FLOATVAL value)    MMD_I_FLOOR_DIVIDE_FLOAT
 181
 182 PMC* modulus(PMC* value, PMC* dest)         MMD_MOD
 183 PMC* modulus_int(INTVAL value, PMC* dest)   MMD_MOD_INT
 184 PMC* modulus_float(FLOATVAL value, PMC* dest) MMD_MOD_FLOAT
 185
 186 void i_modulus(PMC* value)                  MMD_I_MOD
 187 void i_modulus_int(INTVAL value)            MMD_I_MOD_INT
 188 void i_modulus_float(FLOATVAL value)        MMD_I_MOD_FLOAT
 189
 190 PMC* cmodulus(PMC* value, PMC* dest)        MMD_CMOD
 191 PMC* cmodulus_int(INTVAL value, PMC* dest)  MMD_CMOD_INT
 192 PMC* cmodulus_float(FLOATVAL value, PMC* dest) MMD_CMOD_FLOAT
 193
 194 void i_cmodulus(PMC* value)                 MMD_I_CMOD
 195 void i_cmodulus_int(INTVAL value)           MMD_I_CMOD_INT
 196 void i_cmodulus_float(FLOATVAL value)       MMD_I_CMOD_FLOAT
 197
 198 PMC* pow(PMC* value, PMC* dest)             MMD_POW
 199 PMC* pow_int(INTVAL value, PMC* dest)       MMD_POW_INT
 200 PMC* pow_float(FLOATVAL value, PMC* dest)   MMD_POW_FLOAT
 201
 202 void i_pow(PMC* value)                      MMD_I_POW
 203 void i_pow_int(INTVAL value)                MMD_I_POW_INT
 204 void i_pow_float(FLOATVAL value)            MMD_I_POW_FLOAT
 205
 206 void increment() :write
 207 void decrement() :write
 208
 209 PMC* absolute(PMC* dest)
 210 void i_absolute() :write
 211
 212 PMC* neg(PMC* dest)
 213 void i_neg() :write
 214
 215 [BITWISE]
 216 PMC* bitwise_or(PMC* value, PMC* dest)          MMD_BOR
 217 PMC* bitwise_or_int(INTVAL value, PMC* dest)    MMD_BOR_INT
 218
 219 void i_bitwise_or(PMC* value)                   MMD_I_BOR
 220 void i_bitwise_or_int(INTVAL value)             MMD_I_BOR_INT
 221
 222 PMC* bitwise_and(PMC* value, PMC* dest)         MMD_BAND
 223 PMC* bitwise_and_int(INTVAL value, PMC* dest)   MMD_BAND_INT
 224
 225 void i_bitwise_and(PMC* value)                  MMD_I_BAND
 226 void i_bitwise_and_int(INTVAL value)            MMD_I_BAND_INT
 227
 228 PMC* bitwise_xor(PMC* value, PMC* dest)         MMD_BXOR
 229 PMC* bitwise_xor_int(INTVAL value, PMC* dest)   MMD_BXOR_INT
 230
 231 void i_bitwise_xor(PMC* value)                  MMD_I_BXOR
 232 void i_bitwise_xor_int(INTVAL value)            MMD_I_BXOR_INT
 233
 234 PMC* bitwise_ors(PMC* value, PMC* dest)         MMD_SOR
 235 PMC* bitwise_ors_str(STRING* value, PMC* dest)  MMD_SOR_STR
 236
 237 void i_bitwise_ors(PMC* value)                  MMD_I_SOR
 238 void i_bitwise_ors_str(STRING* value)           MMD_I_SOR_STR
 239
 240 PMC* bitwise_ands(PMC* value, PMC* dest)        MMD_SAND
 241 PMC* bitwise_ands_str(STRING* value, PMC* dest) MMD_SAND_STR
 242
 243 void i_bitwise_ands(PMC* value)                 MMD_I_SAND
 244 void i_bitwise_ands_str(STRING* value)          MMD_I_SAND_STR
 245
 246 PMC* bitwise_xors(PMC* value, PMC* dest)        MMD_SXOR
 247 PMC* bitwise_xors_str(STRING* value, PMC* dest) MMD_SXOR_STR
 248
 249 void i_bitwise_xors(PMC* value)                 MMD_I_SXOR
 250 void i_bitwise_xors_str(STRING* value)          MMD_I_SXOR_STR
 251
 252 PMC* bitwise_not(PMC* dest)
 253 void i_bitwise_not() :write
 254
 255 PMC* bitwise_nots(PMC* dest)
 256 void i_bitwise_nots() :write
 257
 258 PMC* bitwise_shl(PMC* value, PMC* dest)         MMD_BSL
 259 PMC* bitwise_shl_int(INTVAL value, PMC* dest)   MMD_BSL_INT
 260
 261 void i_bitwise_shl(PMC* value)                  MMD_I_BSL
 262 void i_bitwise_shl_int(INTVAL value)            MMD_I_BSL_INT
 263
 264 PMC* bitwise_shr(PMC* value, PMC* dest)         MMD_BSR
 265 PMC* bitwise_shr_int(INTVAL value, PMC* dest)   MMD_BSR_INT
 266
 267 void i_bitwise_shr(PMC* value)                  MMD_I_BSR
 268 void i_bitwise_shr_int(INTVAL value)            MMD_I_BSR_INT
 269
 270 PMC* bitwise_lsr(PMC* value, PMC* dest)         MMD_LSR
 271 PMC* bitwise_lsr_int(INTVAL value, PMC* dest)   MMD_LSR_INT
 272
 273 void i_bitwise_lsr(PMC* value)                  MMD_I_LSR
 274 void i_bitwise_lsr_int(INTVAL value)            MMD_I_LSR_INT
 275
 276 [CMP]
 277 INTVAL is_equal(PMC* value)                  MMD_EQ
 278 INTVAL is_equal_num(PMC* value)              MMD_NUMEQ
 279 INTVAL is_equal_string(PMC* value)           MMD_STREQ
 280
 281 INTVAL is_same(PMC* value)
 282
 283 INTVAL cmp(PMC* value)                       MMD_CMP
 284 INTVAL cmp_num(PMC* value)                   MMD_NUMCMP
 285 INTVAL cmp_string(PMC* value)                MMD_STRCMP
 286
 287 PMC* logical_or(PMC* value, PMC* dest)       MMD_LOR
 288
 289 PMC* logical_and(PMC* value, PMC* dest)      MMD_LAND
 290
 291 PMC* logical_xor(PMC* value, PMC* dest)      MMD_LXOR
 292
 293 PMC* logical_not(PMC* dest)
 294 void i_logical_not() :write
 295
 296
 297 [STRING]
 298 PMC* concatenate(PMC* value, PMC* dest)        MMD_CONCAT
 299 PMC* concatenate_str(STRING* value, PMC* dest) MMD_CONCAT_STR
 300
 301 void i_concatenate(PMC* value)               MMD_I_CONCAT
 302 void i_concatenate_str(STRING* value)        MMD_I_CONCAT_STR
 303
 304 PMC* repeat(PMC* value, PMC* dest)           MMD_REPEAT
 305 PMC* repeat_int(INTVAL value, PMC* dest)     MMD_REPEAT_INT
 306
 307 void i_repeat(PMC* value)                    MMD_I_REPEAT
 308 void i_repeat_int(INTVAL value)              MMD_I_REPEAT_INT
 309
 310 void substr(INTVAL offset, INTVAL length, PMC* dest)
 311 STRING* substr_str(INTVAL offset, INTVAL length)
 312
 313 [EXISTS]
 314 INTVAL exists_keyed(PMC* key)
 315 INTVAL exists_keyed_int(INTVAL key)
 316 INTVAL exists_keyed_str(STRING* key)
 317
 318 [MAIN]
 319 INTVAL defined()
 320 INTVAL defined_keyed(PMC* key)
 321 INTVAL defined_keyed_int(INTVAL key)
 322 INTVAL defined_keyed_str(STRING* key)
 323
 324 [DELETE] :write
 325 void delete_keyed(PMC* key)
 326 void delete_keyed_int(INTVAL key)
 327 void delete_keyed_str(STRING* key)
 328
 329 [MAIN]
 330 PMC* nextkey_keyed(PMC* key, INTVAL what)
 331 PMC* nextkey_keyed_int(INTVAL key, INTVAL what)
 332 PMC* nextkey_keyed_str(STRING* key, INTVAL what)
 333 PMC* get_iter()
 334
 335 opcode_t* invoke(void* next)
 336
 337 INTVAL can(STRING* method)
 338
 339 INTVAL does(STRING* method)
 340
 341 INTVAL isa_pmc(PMC* lookup)
 342 INTVAL isa(STRING* _class)
 343
 344 PMC* get_attr(INTVAL idx)
 345 PMC* get_attr_str(STRING* idx)
 346 PMC* get_attr_keyed(PMC* key, STRING* idx)
 347 void set_attr(INTVAL idx, PMC* value) :write
 348 void set_attr_str(STRING* idx, PMC* value) :write
 349 void set_attr_keyed(PMC* key, STRING* idx, PMC* value) :write
 350
 351 PMC* get_class()
 352 INTVAL class_type()
 353
 354 void add_parent(PMC* parent) :write
 355 void remove_parent(PMC* parent) :write
 356
 357 void add_role(PMC* role) :write
 358 void remove_role(PMC* role) :write
 359
 360 void add_attribute(STRING* name, PMC* type) :write
 361 void remove_attribute(STRING* name) :write
 362
 363 void add_method(STRING* method_name, PMC* sub_pmc) :write
 364 void remove_method(STRING* method_name) :write
 365
 366 void add_vtable_override(STRING* vtable_name, PMC* sub_pmc) :write
 367 void remove_vtable_override(STRING* vtable_name) :write
 368
 369 PMC* inspect()
 370 PMC* inspect_str(STRING* what)
 371
 372 void freeze(visit_info* info)
 373 void thaw  (visit_info* info) :write
 374 void thawfinish (visit_info* info) :write
 375 void visit (visit_info* info)
 376
 377 void share()
 378
 379 PMC* share_ro()