src/pmc/imageiostrings.pmc

   1 /*
   2 Copyright (C) 2010, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/imageiosize.pmc - ImageIOStrings PMC
   8
   9 =head1 DESCRIPTION
  10
  11 Get a list of strings in an object graph. Used in packfile creation.
  12
  13 =cut
  14
  15 */
  16
  17 /* HEADERIZER HFILE: none */
  18 /* HEADERIZER BEGIN: static */
  19 /* HEADERIZER END: static */
  20
  21 pmclass ImageIOStrings auto_attrs {
  22     ATTR PMC *seen; /* seen hash */
  23     ATTR PMC *todo; /* todo list */
  24     ATTR PMC *list; /* list of strings seen */
  25
  26 /*
  27
  28 =head1 VTABLES
  29
  30 =over 4
  31
  32 =cut
  33
  34 */
  35
  36 /*
  37
  38 =item C<void init()>
  39
  40 Initializes the PMC.
  41
  42 =cut
  43
  44 */
  45     VTABLE void init() {
  46         PARROT_IMAGEIOSTRINGS(SELF)->todo = Parrot_pmc_new(INTERP, enum_class_ResizablePMCArray);
  47
  48         PARROT_IMAGEIOSTRINGS(SELF)->seen = Parrot_pmc_new(INTERP, enum_class_Hash);
  49         VTABLE_set_pointer(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->seen,
  50             parrot_new_intval_hash(INTERP));
  51
  52         PARROT_IMAGEIOSTRINGS(SELF)->list = Parrot_pmc_new(INTERP, enum_class_ResizableStringArray);
  53
  54         PObj_custom_mark_SET(SELF);
  55     }
  56
  57 /*
  58
  59 =item C<void mark()>
  60
  61 Marks the PMC as alive.
  62
  63 =cut
  64
  65 */
  66     VTABLE void mark() {
  67         Parrot_gc_mark_PMC_alive(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->todo);
  68         Parrot_gc_mark_PMC_alive(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->seen);
  69         Parrot_gc_mark_PMC_alive(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->list);
  70     }
  71
  72 /*
  73
  74 =item C<VTABLE PMC *get_pmc()>
  75
  76 Gets the result PMC after a thaw.
  77
  78 =cut
  79
  80 */
  81
  82     VTABLE PMC *get_pmc() {
  83         return PARROT_IMAGEIOSTRINGS(SELF)->list;
  84     }
  85
  86 /*
  87
  88 =item C<VTABLE PMC *get_iter()>
  89
  90 Get the C<todo> list for this freeze/thaw for iterating over.
  91
  92 =cut
  93
  94 */
  95
  96     VTABLE PMC *get_iter() {
  97         return PARROT_IMAGEIOSTRINGS(SELF)->todo;
  98     }
  99
 100 /*
 101
 102 =item C<VTABLE INTVAL get_integer()>
 103
 104 Returns the flags describing the visit action
 105
 106 =cut
 107
 108 */
 109
 110     VTABLE INTVAL get_integer() {
 111         return VISIT_FREEZE_NORMAL;
 112     }
 113
 114
 115 /*
 116
 117 =item C<VTABLE void push_integer(INTVAL v)>
 118
 119 Do nothing.
 120
 121 =cut
 122
 123 */
 124
 125     VTABLE void push_integer(INTVAL v) { }
 126
 127
 128 /*
 129
 130 =item C<VTABLE void push_float(FLOATVAL v)>
 131
 132 Do nothing.
 133
 134 =cut
 135
 136 */
 137
 138     VTABLE void push_float(FLOATVAL v) { }
 139
 140
 141 /*
 142
 143 =item C<VTABLE void push_string(STRING *v)>
 144
 145 Adds the string to the list of strings.
 146
 147 =cut
 148
 149 */
 150
 151     VTABLE void push_string(STRING *v)
 152     {
 153         VTABLE_push_string(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->list, v);
 154     }
 155
 156 /*
 157
 158 =item C<VTABLE void push_pmc(PMC *v)>
 159
 160 Checks new pmcs for strings.
 161
 162 =cut
 163
 164 */
 165
 166     VTABLE void push_pmc(PMC *v) {
 167         if (!PMC_IS_NULL(v)) {
 168             Hash * const hash    = (Hash *)VTABLE_get_pointer(INTERP,
 169                                                 PARROT_IMAGEIOSTRINGS(SELF)->seen);
 170             HashBucket * const b = parrot_hash_get_bucket(INTERP, hash, v);
 171             if (!b) {
 172                 /* not yet seen */
 173                 parrot_hash_put(INTERP, hash, v, v);
 174                 VTABLE_push_pmc(INTERP, PARROT_IMAGEIOSTRINGS(SELF)->todo, v);
 175             }
 176         }
 177     }
 178
 179     VTABLE void set_pmc(PMC *p)
 180     {
 181         STATICSELF.push_pmc(p);
 182         Parrot_visit_loop_visit(INTERP, SELF);
 183     }
 184
 185 /*
 186
 187 =back
 188
 189 =cut
 190
 191 */
 192
 193 }
 194
 195 /*
 196  * Local variables:
 197  *   c-file-style: "parrot"
 198  * End:
 199  * vim: expandtab shiftwidth=4:
 200  */