src/pmc/packfilefixupentry.pmc

   1 /*
   2 Copyright (C) 2001-2008, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/packfilefixupentry.pmc - PackfileFixupEntry PMC
   8
   9 =head1 DESCRIPTION
  10
  11 This class implements a PackfileFixupEntry object.  It is an element in the
  12 PackfileFixupTable segment of the .pbc file.  See PDD13 for a design spec.
  13
  14 =head2 Methods
  15
  16 =over 4
  17
  18 =cut
  19
  20 */
  21
  22 pmclass PackfileFixupEntry auto_attrs {
  23     ATTR INTVAL     type;
  24     ATTR STRING     *name;
  25     ATTR INTVAL     offset;
  26
  27
  28 /*
  29
  30 =item C<void init()>
  31
  32 Initialize PackfileFixupEntry.
  33
  34 =cut
  35
  36 */
  37     VTABLE void init() {
  38         Parrot_PackfileFixupEntry_attributes * attrs =
  39                 PMC_data_typed(SELF, Parrot_PackfileFixupEntry_attributes*);
  40
  41         attrs->name = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
  42
  43         PObj_custom_mark_SET(SELF);
  44     }
  45
  46 /*
  47
  48 =item C<void mark()>
  49
  50 Marks the object as live.
  51
  52 =cut
  53
  54 */
  55
  56     VTABLE void mark() {
  57         Parrot_PackfileFixupEntry_attributes * attrs =
  58                 PARROT_PACKFILEFIXUPENTRY(SELF);
  59
  60         Parrot_gc_mark_STRING_alive(interp, attrs->name);
  61     }
  62
  63 /*
  64
  65 =item C<void set_pointer(void *pointer)>
  66
  67 Initialize from PackFile_FixupEntry pointer.
  68
  69 =cut
  70
  71 */
  72
  73     VTABLE void set_pointer(void * pointer) {
  74         Parrot_PackfileFixupEntry_attributes * attrs =
  75                 PARROT_PACKFILEFIXUPENTRY(SELF);
  76         PackFile_FixupEntry *entry = (PackFile_FixupEntry*)pointer;
  77
  78         attrs->type     = entry->type;
  79         attrs->name     = Parrot_str_new_init(interp, entry->name,
  80                 strlen(entry->name), PARROT_FIXED_8_ENCODING,
  81                 PARROT_BINARY_CHARSET, 0);
  82         attrs->offset   = entry->offset;
  83     }
  84
  85 /*
  86
  87 =item C<void *get_pointer()>
  88
  89 Create PackFile_FixupEntry* from self.
  90
  91 =cut
  92
  93 */
  94     VTABLE void *get_pointer() {
  95         Parrot_PackfileFixupEntry_attributes * attrs =
  96                 PARROT_PACKFILEFIXUPENTRY(SELF);
  97         PackFile_FixupEntry                  * entry =
  98                 mem_gc_allocate_zeroed_typed(INTERP, PackFile_FixupEntry);
  99
 100         entry->type     = attrs->type;
 101         entry->name     = strdup(Parrot_string_cstring(interp, attrs->name));
 102         entry->offset   = attrs->offset;
 103         return entry;
 104     }
 105
 106
 107 /*
 108
 109 =item C<STRING *get_string()>
 110
 111 Fetch the label field of the fixup entry.
 112
 113 =cut
 114
 115 */
 116     VTABLE STRING *get_string() {
 117         return PARROT_PACKFILEFIXUPENTRY(SELF)->name;
 118     }
 119
 120 /*
 121
 122 =item C<void set_string_native(STRING *value)>
 123
 124 Set the label field of the fixup entry.
 125
 126 =cut
 127
 128 */
 129     VTABLE void set_string_native(STRING *value) {
 130         SETATTR_PackfileFixupEntry_name(INTERP, SELF, value);
 131     }
 132
 133
 134 /*
 135
 136 =item C<INTVAL get_integer()>
 137
 138 Fetch the offset field of the fixup entry.
 139
 140 =cut
 141
 142 */
 143     VTABLE INTVAL get_integer() {
 144         return PARROT_PACKFILEFIXUPENTRY(SELF)->offset;
 145     }
 146
 147
 148 /*
 149
 150 =item C<void set_integer_native(INTVAL offset)>
 151
 152 Set the offset field of the fixup entry.
 153
 154 =cut
 155
 156 */
 157     VTABLE void set_integer_native(INTVAL offset) {
 158         SETATTR_PackfileFixupEntry_offset(INTERP, SELF, offset);
 159     }
 160
 161
 162 /*
 163
 164 =item C<INTVAL get_type()>
 165
 166 Fetch the type field of the fixup entry.
 167
 168 =cut
 169
 170 */
 171     METHOD get_type() {
 172         INTVAL rv = PARROT_PACKFILEFIXUPENTRY(SELF)->type;
 173         RETURN(INTVAL rv);
 174     }
 175
 176
 177 /*
 178
 179 =item C<void set_type(INTVAL type)>
 180
 181 Set the type field of the fixup entry.
 182
 183 =cut
 184
 185 */
 186     METHOD set_type(INTVAL type) {
 187         SETATTR_PackfileFixupEntry_type(INTERP, SELF, type);
 188     }
 189
 190 }
 191 /*
 192
 193 =back
 194
 195 =cut
 196
 197 */
 198
 199 /*
 200  * Local variables:
 201  *   c-file-style: "parrot"
 202  * End:
 203  * vim: expandtab shiftwidth=4:
 204  */