src/pmc/packfilefixuptable.pmc

   1 /*
   2 Copyright (C) 2001-2010, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/packfilefixuptable.pmc - PackfileFixupTable PMC
   8
   9 =head1 DESCRIPTION
  10
  11 This class implements a PackfileFixupTable object, a segment of the .pbc
  12 data file storing an array of PackfileFixupEntry PMCs.
  13
  14 See packfile.pmc for the toplevel Packfile interface, see packfilesegment.pmc
  15 for the list of common methods every packfile segment pmc must implement; see
  16 PDD13 for the design spec.
  17
  18
  19 =head2 Methods
  20
  21 =over 4
  22
  23 =cut
  24
  25 */
  26
  27 /* HEADERIZER HFILE: none */
  28 /* HEADERIZER BEGIN: static */
  29 /* HEADERIZER END: static */
  30
  31 pmclass PackfileFixupTable auto_attrs extends PackfileSegment {
  32     /* RPA of entries */
  33     ATTR PMC *entries;
  34
  35 /*
  36
  37 =item C<init>
  38
  39 Create empty PackfileFixupTable.
  40
  41 =cut
  42
  43 */
  44
  45     VTABLE void init() {
  46         Parrot_PackfileFixupTable_attributes * attrs =
  47                 PMC_data_typed(SELF, Parrot_PackfileFixupTable_attributes*);
  48
  49         attrs->entries = Parrot_pmc_new(INTERP, enum_class_ResizablePMCArray);
  50
  51         PObj_custom_mark_SET(SELF);
  52     }
  53
  54 /*
  55
  56 =item C<void mark()>
  57
  58 Marks the object as live.
  59
  60 =cut
  61
  62 */
  63
  64     VTABLE void mark() {
  65         Parrot_PackfileFixupTable_attributes * attrs =
  66                 PARROT_PACKFILEFIXUPTABLE(SELF);
  67
  68         Parrot_gc_mark_PMC_alive(INTERP, attrs->entries);
  69
  70         SUPER();
  71     }
  72
  73 /*
  74
  75 =item C<void set_pointer(void *pointer)>
  76
  77 Initialize from PackFile_FixupTable pointer.
  78
  79 =cut
  80
  81 */
  82
  83     VTABLE void set_pointer(void * pointer) {
  84         Parrot_PackfileFixupTable_attributes * attrs =
  85                 PARROT_PACKFILEFIXUPTABLE(SELF);
  86         PackFile_FixupTable * table = (PackFile_FixupTable*)pointer;
  87
  88         PMC                 *entry;
  89         PackFile_FixupEntry *val;
  90         opcode_t             i;
  91
  92         VTABLE_set_integer_native(INTERP, attrs->entries, table->fixup_count);
  93
  94         for (i = 0; i < table->fixup_count; ++i) {
  95             val = table->fixups + i;
  96             entry = Parrot_pmc_new(INTERP, enum_class_PackfileFixupEntry);
  97             VTABLE_set_pointer(INTERP, entry, (void*)val);
  98             VTABLE_set_pmc_keyed_int(INTERP, attrs->entries, i, entry);
  99         }
 100     }
 101
 102 /*
 103
 104 =item C<void *get_pointer()>
 105
 106 Create PackFile_FixupTable* from self.
 107
 108 =cut
 109
 110 */
 111     VTABLE void *get_pointer() {
 112         Parrot_PackfileFixupTable_attributes * attrs =
 113                 PARROT_PACKFILEFIXUPTABLE(SELF);
 114         PackFile_FixupTable * pftable =
 115                 mem_gc_allocate_zeroed_typed(INTERP, PackFile_FixupTable);
 116         PMC                 * entry;
 117         PackFile_FixupEntry * val;
 118         opcode_t              i;
 119
 120         pftable->base.type   = PF_FIXUP_SEG;
 121         pftable->fixup_count = VTABLE_elements(INTERP, attrs->entries);
 122         pftable->fixups      = mem_gc_allocate_n_typed(INTERP,
 123                 pftable->fixup_count, PackFile_FixupEntry);
 124
 125         /* Copy all entries */
 126         for (i = 0; i < pftable->fixup_count; ++i) {
 127             entry = VTABLE_get_pmc_keyed_int(INTERP, attrs->entries, i);
 128             val   = (PackFile_FixupEntry*)VTABLE_get_pointer(INTERP, entry);
 129             pftable->fixups[i] = *val;
 130             mem_gc_free(INTERP, val);
 131         }
 132
 133         return pftable;
 134     }
 135
 136
 137 /*
 138
 139 =item C<INTVAL elements()>
 140
 141 Get the number of elements in the array.
 142
 143 =cut
 144
 145 */
 146     VTABLE INTVAL elements() {
 147         return VTABLE_elements(INTERP,
 148                 PARROT_PACKFILEFIXUPTABLE(SELF)->entries);
 149     }
 150
 151
 152 /*
 153
 154 =item C<PMC *get_pmc_keyed_int(INTVAL index)>
 155
 156 Fetch the given PackfileFixupEntry PMC.
 157
 158 =cut
 159
 160 */
 161     VTABLE PMC *get_pmc_keyed_int(INTVAL index)  {
 162         return VTABLE_get_pmc_keyed_int(INTERP,
 163             PARROT_PACKFILEFIXUPTABLE(SELF)->entries, index);
 164     }
 165
 166
 167 /*
 168
 169 =item C<void set_pmc_keyed_int(INTVAL index, PMC *value)>
 170
 171 Store a PackfileFixupEntry PMC to the given slot.
 172
 173 =cut
 174
 175 */
 176     VTABLE void set_pmc_keyed_int(INTVAL index, PMC *value)  {
 177         VTABLE_set_pmc_keyed_int(INTERP,
 178                 PARROT_PACKFILEFIXUPTABLE(SELF)->entries, index, value);
 179     }
 180
 181
 182 /*
 183
 184 =item C<METHOD type()>
 185
 186 Set segment type.
 187
 188 =cut
 189
 190 */
 191
 192     METHOD type() {
 193         RETURN(INTVAL PF_FIXUP_SEG);
 194     }
 195
 196 }
 197 /*
 198
 199 =back
 200
 201 =cut
 202
 203 */
 204
 205 /*
 206  * Local variables:
 207  *   c-file-style: "parrot"
 208  * End:
 209  * vim: expandtab shiftwidth=4:
 210  */