src/vtable.tbl

   1 # $Id$
   2 # [MAIN] #default section name
   3
   4 # MMD_EQ ... MMD_STRCMP must be in one block
   5 # see src/multidispatch.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 void morph(PMC* type) :write
  14 void mark()
  15 void destroy()
  16 PMC* get_namespace()
  17
  18 # XXX FIXME should this be marked as writing?
  19 PMC* getprop(STRING* key)
  20 void setprop(STRING* key, PMC* value)
  21 void delprop(STRING* key)
  22 PMC* getprops()
  23
  24 INTVAL type()
  25
  26 STRING* name()
  27
  28 PMC* clone()
  29 PMC* clone_pmc(PMC* args)
  30
  31 PMC* find_method(STRING* method_name)
  32
  33 [FETCH]
  34 INTVAL get_integer()
  35 INTVAL get_integer_keyed(PMC* key)
  36 INTVAL get_integer_keyed_int(INTVAL key)
  37 INTVAL get_integer_keyed_str(STRING* key)
  38
  39 FLOATVAL get_number()
  40 FLOATVAL get_number_keyed(PMC* key)
  41 FLOATVAL get_number_keyed_int(INTVAL key)
  42 FLOATVAL get_number_keyed_str(STRING* key)
  43
  44 PMC* get_bignum()
  45
  46 STRING* get_string()
  47 STRING* get_repr()
  48 STRING* get_string_keyed(PMC* key)
  49 STRING* get_string_keyed_int(INTVAL key)
  50 STRING* get_string_keyed_str(STRING* key)
  51
  52 INTVAL get_bool()
  53
  54 PMC* get_pmc()
  55 PMC* get_pmc_keyed(PMC* key)
  56 PMC* get_pmc_keyed_int(INTVAL key)
  57 PMC* get_pmc_keyed_str(STRING* key)
  58 PMC* slice(PMC* key, INTVAL flag)
  59
  60 void* get_pointer()
  61 void* get_pointer_keyed(PMC* key)
  62 void* get_pointer_keyed_int(INTVAL key)
  63 void* get_pointer_keyed_str(STRING* key)
  64
  65 [STORE] :write
  66 void set_integer_native(INTVAL value)
  67 void set_integer_keyed(PMC* key, INTVAL value)
  68 void set_integer_keyed_int(INTVAL key, INTVAL value)
  69 void set_integer_keyed_str(STRING* key, INTVAL value)
  70
  71 void set_number_native(FLOATVAL value)
  72 void set_number_keyed(PMC* key, FLOATVAL value)
  73 void set_number_keyed_int(INTVAL key, FLOATVAL value)
  74 void set_number_keyed_str(STRING* key, FLOATVAL value)
  75
  76 void set_bignum_int(INTVAL value)
  77 void set_bignum_num(FLOATVAL value)
  78 void set_bignum_str(STRING* value)
  79
  80 void set_string_native(STRING* value)
  81 void assign_string_native(STRING* value)
  82 void set_string_keyed(PMC* key, STRING* value)
  83 void set_string_keyed_int(INTVAL key, STRING* value)
  84 void set_string_keyed_str(STRING* key, STRING* value)
  85
  86 void set_bool(INTVAL value)
  87
  88 void set_pmc(PMC* value)
  89 void assign_pmc(PMC* value)
  90 void set_pmc_keyed(PMC* key, PMC* value)
  91 void set_pmc_keyed_int(INTVAL key, PMC* value)
  92 void set_pmc_keyed_str(STRING* key, PMC* value)
  93
  94 void set_pointer(void* value)
  95 void set_pointer_keyed(PMC* key, void* value)
  96 void set_pointer_keyed_int(INTVAL key, void* value)
  97 void set_pointer_keyed_str(STRING* key, void* value)
  98
  99 [FETCHSIZE]
 100 INTVAL elements()
 101
 102 [POP] :write
 103 INTVAL pop_integer()
 104 FLOATVAL pop_float()
 105 STRING* pop_string()
 106 PMC* pop_pmc()
 107
 108 [PUSH] :write
 109 void push_integer(INTVAL value)
 110 void push_float(FLOATVAL value)
 111 void push_string(STRING* value)
 112 void push_pmc(PMC* value)
 113
 114 [SHIFT] :write
 115 INTVAL shift_integer()
 116 FLOATVAL shift_float()
 117 STRING* shift_string()
 118 PMC* shift_pmc()
 119
 120 [UNSHIFT] :write
 121 void unshift_integer(INTVAL value)
 122 void unshift_float(FLOATVAL value)
 123 void unshift_string(STRING* value)
 124 void unshift_pmc(PMC* value)
 125
 126 ## void splice ???
 127
 128 [SPLICE] :write
 129 void splice(PMC* value, INTVAL offset, INTVAL count)
 130
 131 # XXX marking writing here?
 132 [MATH]
 133 PMC* add(PMC* value, PMC* dest)
 134 PMC* add_int(INTVAL value, PMC* dest)
 135 PMC* add_float(FLOATVAL value, PMC* dest)
 136
 137 void i_add(PMC* value) :write
 138 void i_add_int(INTVAL value) :write
 139 void i_add_float(FLOATVAL value) :write
 140
 141 PMC* subtract(PMC* value, PMC* dest)
 142 PMC* subtract_int(INTVAL value, PMC* dest)
 143 PMC* subtract_float(FLOATVAL value, PMC* dest)
 144
 145 void i_subtract(PMC* value) :write
 146 void i_subtract_int(INTVAL value) :write
 147 void i_subtract_float(FLOATVAL value) :write
 148
 149 PMC* multiply(PMC* value, PMC* dest)
 150 PMC* multiply_int(INTVAL value, PMC* dest)
 151 PMC* multiply_float(FLOATVAL value, PMC* dest)
 152
 153 void i_multiply(PMC* value) :write
 154 void i_multiply_int(INTVAL value) :write
 155 void i_multiply_float(FLOATVAL value) :write
 156
 157 PMC* divide(PMC* value, PMC* dest)
 158 PMC* divide_int(INTVAL value, PMC* dest)
 159 PMC* divide_float(FLOATVAL value, PMC* dest)
 160
 161 void i_divide(PMC* value) :write
 162 void i_divide_int(INTVAL value) :write
 163 void i_divide_float(FLOATVAL value) :write
 164
 165 PMC* floor_divide(PMC* value, PMC* dest)
 166 PMC* floor_divide_int(INTVAL value, PMC* dest)
 167 PMC* floor_divide_float(FLOATVAL value, PMC* dest)
 168
 169 void i_floor_divide(PMC* value) :write
 170 void i_floor_divide_int(INTVAL value) :write
 171 void i_floor_divide_float(FLOATVAL value) :write
 172
 173 PMC* modulus(PMC* value, PMC* dest)
 174 PMC* modulus_int(INTVAL value, PMC* dest)
 175 PMC* modulus_float(FLOATVAL value, PMC* dest)
 176
 177 void i_modulus(PMC* value) :write
 178 void i_modulus_int(INTVAL value) :write
 179 void i_modulus_float(FLOATVAL value) :write
 180
 181 PMC* pow(PMC* value, PMC* dest)
 182 PMC* pow_int(INTVAL value, PMC* dest)
 183 PMC* pow_float(FLOATVAL value, PMC* dest)
 184
 185 void i_pow(PMC* value) :write
 186 void i_pow_int(INTVAL value) :write
 187 void i_pow_float(FLOATVAL value) :write
 188
 189 void increment() :write
 190 void decrement() :write
 191
 192 PMC* absolute(PMC* dest)
 193 void i_absolute() :write
 194
 195 PMC* neg(PMC* dest)
 196 void i_neg() :write
 197
 198 [BITWISE]
 199 PMC* bitwise_or(PMC* value, PMC* dest)
 200 PMC* bitwise_or_int(INTVAL value, PMC* dest)
 201
 202 void i_bitwise_or(PMC* value) :write
 203 void i_bitwise_or_int(INTVAL value) :write
 204
 205 PMC* bitwise_and(PMC* value, PMC* dest)
 206 PMC* bitwise_and_int(INTVAL value, PMC* dest)
 207
 208 void i_bitwise_and(PMC* value) :write
 209 void i_bitwise_and_int(INTVAL value) :write
 210
 211 PMC* bitwise_xor(PMC* value, PMC* dest)
 212 PMC* bitwise_xor_int(INTVAL value, PMC* dest)
 213
 214 void i_bitwise_xor(PMC* value) :write
 215 void i_bitwise_xor_int(INTVAL value) :write
 216
 217 PMC* bitwise_ors(PMC* value, PMC* dest)
 218 PMC* bitwise_ors_str(STRING* value, PMC* dest)
 219
 220 void i_bitwise_ors(PMC* value) :write
 221 void i_bitwise_ors_str(STRING* value) :write
 222
 223 PMC* bitwise_ands(PMC* value, PMC* dest)
 224 PMC* bitwise_ands_str(STRING* value, PMC* dest)
 225
 226 void i_bitwise_ands(PMC* value) :write
 227 void i_bitwise_ands_str(STRING* value) :write
 228
 229 PMC* bitwise_xors(PMC* value, PMC* dest)
 230 PMC* bitwise_xors_str(STRING* value, PMC* dest)
 231
 232 void i_bitwise_xors(PMC* value) :write
 233 void i_bitwise_xors_str(STRING* value) :write
 234
 235 PMC* bitwise_not(PMC* dest)
 236 void i_bitwise_not() :write
 237
 238 PMC* bitwise_nots(PMC* dest)
 239 void i_bitwise_nots() :write
 240
 241 PMC* bitwise_shl(PMC* value, PMC* dest)
 242 PMC* bitwise_shl_int(INTVAL value, PMC* dest)
 243
 244 void i_bitwise_shl(PMC* value) :write
 245 void i_bitwise_shl_int(INTVAL value) :write
 246
 247 PMC* bitwise_shr(PMC* value, PMC* dest)
 248 PMC* bitwise_shr_int(INTVAL value, PMC* dest)
 249
 250 void i_bitwise_shr(PMC* value) :write
 251 void i_bitwise_shr_int(INTVAL value) :write
 252
 253 PMC* bitwise_lsr(PMC* value, PMC* dest)
 254 PMC* bitwise_lsr_int(INTVAL value, PMC* dest)
 255
 256 void i_bitwise_lsr(PMC* value) :write
 257 void i_bitwise_lsr_int(INTVAL value) :write
 258
 259 [CMP]
 260 INTVAL is_equal(PMC* value)
 261 INTVAL is_equal_num(PMC* value)
 262 INTVAL is_equal_string(PMC* value)
 263
 264 INTVAL is_same(PMC* value)
 265
 266 INTVAL cmp(PMC* value)
 267 INTVAL cmp_num(PMC* value)
 268 INTVAL cmp_string(PMC* value)
 269 PMC* cmp_pmc(PMC* value)
 270
 271 PMC* logical_or(PMC* value, PMC* dest)
 272
 273 PMC* logical_and(PMC* value, PMC* dest)
 274
 275 PMC* logical_xor(PMC* value, PMC* dest)
 276
 277 PMC* logical_not(PMC* dest)
 278 void i_logical_not() :write
 279
 280
 281 [STRING]
 282 PMC* concatenate(PMC* value, PMC* dest)
 283 PMC* concatenate_str(STRING* value, PMC* dest)
 284
 285 void i_concatenate(PMC* value) :write
 286 void i_concatenate_str(STRING* value) :write
 287
 288 PMC* repeat(PMC* value, PMC* dest)
 289 PMC* repeat_int(INTVAL value, PMC* dest)
 290
 291 void i_repeat(PMC* value) :write
 292 void i_repeat_int(INTVAL value) :write
 293
 294 void substr(INTVAL offset, INTVAL length, PMC* dest)
 295 STRING* substr_str(INTVAL offset, INTVAL length)
 296
 297 [EXISTS]
 298 INTVAL exists_keyed(PMC* key)
 299 INTVAL exists_keyed_int(INTVAL key)
 300 INTVAL exists_keyed_str(STRING* key)
 301
 302 [MAIN]
 303 INTVAL defined()
 304 INTVAL defined_keyed(PMC* key)
 305 INTVAL defined_keyed_int(INTVAL key)
 306 INTVAL defined_keyed_str(STRING* key)
 307
 308 [DELETE] :write
 309 void delete_keyed(PMC* key)
 310 void delete_keyed_int(INTVAL key)
 311 void delete_keyed_str(STRING* key)
 312
 313 [MAIN]
 314 PMC* get_iter()
 315 INTVAL hashvalue()
 316
 317 opcode_t* invoke(void* next)
 318
 319 INTVAL can(STRING* method)
 320
 321 INTVAL does_pmc(PMC* role)
 322 INTVAL does(STRING* role)
 323
 324 INTVAL isa_pmc(PMC* _class)
 325 INTVAL isa(STRING* _class)
 326
 327 PMC* get_attr_str(STRING* idx)
 328 PMC* get_attr_keyed(PMC* key, STRING* idx)
 329 void set_attr_str(STRING* idx, PMC* value) :write
 330 void set_attr_keyed(PMC* key, STRING* idx, PMC* value) :write
 331
 332 PMC* get_class()
 333
 334 void add_parent(PMC* parent) :write
 335 void remove_parent(PMC* parent) :write
 336
 337 void add_role(PMC* role) :write
 338 void remove_role(PMC* role) :write
 339
 340 void add_attribute(STRING* name, PMC* type) :write
 341 void remove_attribute(STRING* name) :write
 342
 343 void add_method(STRING* method_name, PMC* sub_pmc) :write
 344 void remove_method(STRING* method_name) :write
 345
 346 void add_vtable_override(STRING* vtable_name, PMC* sub_pmc) :write
 347 void remove_vtable_override(STRING* vtable_name) :write
 348
 349 PMC* inspect()
 350 PMC* inspect_str(STRING* what)
 351
 352 void freeze(visit_info* info)
 353 void thaw  (visit_info* info) :write
 354 void thawfinish (visit_info* info) :write
 355 void visit (visit_info* info)
 356
 357 void share()
 358
 359 PMC* share_ro()