src/pmc/intlist.pmc

   1 /*
   2 Copyright (C) 2001-2007, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/intlist.pmc - Array of integers
   8
   9 =head1 DESCRIPTION
  10
  11 C<IntList> provides an integer-only array.
  12
  13 =head2 Methods
  14
  15 =over 4
  16
  17 =cut
  18
  19 */
  20
  21 #include "parrot/parrot.h"
  22
  23 pmclass IntList provides array {
  24
  25 /*
  26
  27 =item C<PMC *clone()>
  28
  29 Creates and returns a clone of the list.
  30
  31 =cut
  32
  33 */
  34
  35     VTABLE PMC *clone() {
  36         PMC * const dest     = pmc_new_noinit(INTERP, SELF->vtable->base_type);
  37         PObj_custom_mark_SET(dest);
  38         PMC_struct_val(dest) = intlist_clone(INTERP,
  39                                              (IntList *)PMC_struct_val(SELF));
  40         return dest;
  41     }
  42
  43 /*
  44
  45 =item C<void init()>
  46
  47 Initializes the list.
  48
  49 =cut
  50
  51 */
  52
  53     VTABLE void init() {
  54         PMC_struct_val(SELF) = intlist_new(INTERP);
  55         PObj_custom_mark_SET(SELF);
  56     }
  57
  58 /*
  59
  60 =item C<void mark()>
  61
  62 Marks the list as live.
  63
  64 =cut
  65
  66 */
  67
  68     VTABLE void mark() {
  69         intlist_mark(INTERP, (IntList *)PMC_struct_val(SELF));
  70     }
  71
  72 /*
  73
  74 =item C<void set_integer_keyed_int(INTVAL key, INTVAL value)>
  75
  76 Sets C<value> at index C<key>.
  77
  78 =cut
  79
  80 */
  81
  82     VTABLE void set_integer_keyed_int(INTVAL key, INTVAL value) {
  83         intlist_assign(INTERP, (IntList *)PMC_struct_val(SELF), key, value);
  84     }
  85
  86     VTABLE void set_integer_native(INTVAL len) {
  87         list_set_length(INTERP, (List *)PMC_struct_val(SELF), len);
  88     }
  89 /*
  90
  91 =item C<void set_integer_keyed(PMC *key, INTVAL value)>
  92
  93 Sets C<value> at index C<*key>.
  94
  95 =cut
  96
  97 */
  98
  99     VTABLE void set_integer_keyed(PMC *key, INTVAL value) {
 100         INTVAL ix;
 101
 102         if (!key)
 103             return;
 104
 105         ix = key_integer(INTERP, key);
 106         intlist_assign(INTERP, (IntList *)PMC_struct_val(SELF), ix, value);
 107     }
 108
 109 /*
 110
 111 =item C<INTVAL get_integer()>
 112
 113 Returns the number of elements in the list.
 114
 115 =cut
 116
 117 */
 118
 119     VTABLE INTVAL get_integer() {
 120         return intlist_length(INTERP, (IntList *)PMC_struct_val(SELF));
 121     }
 122
 123     VTABLE INTVAL elements() {
 124         return intlist_length(INTERP, (IntList *)PMC_struct_val(SELF));
 125     }
 126
 127 /*
 128
 129 =item C<INTVAL get_integer_keyed_int(INTVAL key)>
 130
 131 Returns the value of the element at index C<key>.
 132
 133 =cut
 134
 135 */
 136
 137     VTABLE INTVAL get_integer_keyed_int(INTVAL key) {
 138         return intlist_get(INTERP, (IntList *)PMC_struct_val(SELF), key);
 139     }
 140
 141 /*
 142
 143 =item C<INTVAL get_integer_keyed(PMC *key)>
 144
 145 Returns the value of the element at index C<*key>.
 146
 147 =cut
 148
 149 */
 150
 151     VTABLE INTVAL get_integer_keyed(PMC *key) {
 152         INTVAL ix;
 153         if (!key) return 0;
 154         ix = key_integer(INTERP, key);
 155         return intlist_get(INTERP, (IntList*) PMC_struct_val(SELF), ix);
 156     }
 157
 158 /*
 159
 160 =item C<void push_integer(INTVAL value)>
 161
 162 Adds C<value> to the end of the list.
 163
 164 =cut
 165
 166 */
 167
 168     VTABLE void push_integer(INTVAL value) {
 169         intlist_push(INTERP, (IntList *)PMC_struct_val(SELF), value);
 170     }
 171
 172 /*
 173
 174 =item C<INTVAL pop_integer()>
 175
 176 Removes and returns the last element in the list.
 177
 178 =cut
 179
 180 */
 181
 182     VTABLE INTVAL pop_integer() {
 183         return intlist_pop(INTERP, (IntList *)PMC_struct_val(SELF));
 184     }
 185
 186 /*
 187
 188 =item C<void unshift_integer(INTVAL value)>
 189
 190 Adds C<value> to the start of the list.
 191
 192 =cut
 193
 194 */
 195
 196     VTABLE void unshift_integer(INTVAL value) {
 197         IntList **list = (IntList **)PMC_struct_val(SELF);
 198         intlist_unshift(INTERP, list, value);
 199     }
 200
 201 /*
 202
 203 =item C<INTVAL shift_integer()>
 204
 205 Removes and returns the first element in the list.
 206
 207 =cut
 208
 209 */
 210
 211     VTABLE INTVAL shift_integer() {
 212         IntList **list = (IntList **)PMC_struct_val(SELF);
 213         return intlist_shift(INTERP, list);
 214     }
 215
 216     void splice(PMC *value, INTVAL offset, INTVAL count) {
 217         if (SELF->vtable->base_type != value->vtable->base_type)
 218             real_exception(INTERP, NULL, E_TypeError,
 219                     "Type mismatch in splice");
 220
 221         list_splice(INTERP, (List *)PMC_struct_val(SELF),
 222             (List *)PMC_struct_val(value), offset, count);
 223     }
 224
 225     VTABLE PMC *slice(PMC *key, INTVAL f) {
 226         if (f) {
 227             real_exception(INTERP, NULL, E_IndexError,
 228                 "IntList: Unknown slice type");
 229         }
 230         else {
 231             PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
 232             PMC_struct_val(iter) = key;
 233             return iter;
 234         }
 235     }
 236
 237     VTABLE PMC *get_iter() {
 238         PMC * const iter     = pmc_new_init(INTERP, enum_class_Iterator, SELF);
 239         PMC * const key      = pmc_new(INTERP, enum_class_Key);
 240
 241         PMC_struct_val(iter) = key;
 242         PObj_get_FLAGS(key) |= KEY_integer_FLAG;
 243         PMC_int_val(key)     = 0;
 244
 245         if (!((List *)PMC_struct_val(SELF))->length)
 246             PMC_int_val(key) = -1;
 247
 248         return iter;
 249     }
 250 }
 251
 252 /*
 253
 254 =back
 255
 256 =cut
 257
 258 */
 259
 260 /*
 261  * Local variables:
 262  *   c-file-style: "parrot"
 263  * End:
 264  * vim: expandtab shiftwidth=4:
 265  */