src/pmc/managedstruct.pmc

   1 /*
   2 Copyright (C) 2001-2007, The Perl Foundation.
   3 $Id$
   4
   5 =head1 DESCRIPTION
   6
   7 src/pmc/managedstruct.pmc - Memory-managed C struct
   8
   9 =head1 DESCRIPTION
  10
  11 C<ManagedStruct> extends C<UnManagedStruct> to provide a class to hold C
  12 C<struct> values that Parrot is responsible for disposing of.
  13
  14 =head2 Methods
  15
  16 =over 4
  17
  18 =cut
  19
  20 */
  21
  22 #include "parrot/parrot.h"
  23
  24
  25 pmclass ManagedStruct extends UnManagedStruct need_ext {
  26
  27 /*
  28
  29 =item C<void init()>
  30
  31 Initializes an empty struct.
  32
  33 =cut
  34
  35 */
  36
  37     VTABLE void init() {
  38         PObj_active_destroy_SET(SELF);
  39         PMC_pmc_val(SELF) = NULL;
  40         PMC_int_val(SELF) = 0;
  41     }
  42
  43 /*
  44
  45 =item C<void init_pmc(PMC *value)>
  46
  47 Initializes the struct with C<*value>.
  48
  49 =cut
  50
  51 */
  52
  53     VTABLE void init_pmc(PMC *value) {
  54         SELF.init();
  55         SUPER(value);
  56     }
  57
  58 /*
  59
  60 =item C<void destroy()>
  61
  62 Destroys the struct, freeing the allocated memory.
  63
  64 =cut
  65
  66 */
  67
  68     VTABLE void destroy() {
  69         if (PMC_data(SELF))
  70             mem_sys_free(PMC_data(SELF));
  71     }
  72
  73 /*
  74
  75 =item C<void set_integer_native(INTVAL value)>
  76
  77 (Re)allocates C<value> bytes for the struct.
  78
  79 =cut
  80
  81 */
  82
  83     VTABLE void set_integer_native(INTVAL value) {
  84         if (PMC_data(SELF) && !value) {
  85             mem_sys_free(PMC_data(SELF));
  86             PMC_data(SELF)    = NULL;
  87             PMC_int_val(SELF) = 0;
  88         }
  89         else if (value && !PMC_data(SELF)) {
  90             PMC_data(SELF)    = mem_sys_allocate_zeroed(value);
  91             PMC_int_val(SELF) = value;
  92         }
  93         else if (value && PMC_data(SELF)) {
  94             if (PMC_int_val(SELF) != value) {
  95                 PMC_data(SELF)    = mem_sys_realloc(PMC_data(SELF), value);
  96                 PMC_int_val(SELF) = value;
  97             }
  98         }
  99
 100         return;
 101     }
 102
 103 }
 104
 105 /*
 106
 107 =back
 108
 109 =head1 HISTORY
 110
 111 Initial revision by sean 2002/08/04.
 112
 113 =cut
 114
 115 */
 116
 117 /*
 118  * Local variables:
 119  *   c-file-style: "parrot"
 120  * End:
 121  * vim: expandtab shiftwidth=4:
 122  */