src/pmc/sockaddr.pmc

   1 /*
   2 Copyright (C) 2008-2009, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/sockaddr.pmc - sockaddr_in holder
   8
   9 =head1 DESCRIPTION
  10
  11 The Sockaddr PMC holds raw c-pointer to sockaddr_in
  12
  13
  14 =head2 Vtable Functions
  15
  16 These are the vtable functions for the Sockaddr class.
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #ifdef __cplusplus
  25 extern "C" {
  26 #endif
  27     struct sockaddr_in;
  28 #ifdef __cplusplus
  29 }
  30 #endif
  31
  32 /* HEADERIZER HFILE: none */
  33 /* HEADERIZER BEGIN: static */
  34 /* HEADERIZER END: static */
  35
  36 pmclass Sockaddr auto_attrs {
  37     ATTR void   *pointer; /* The stored pointer. */
  38
  39 /*
  40
  41 =item C<void init()>
  42
  43 Initializes the pointer object.
  44
  45 =cut
  46
  47 */
  48
  49     VTABLE void init() {
  50         Parrot_Sockaddr_attributes * const pdata_struct =
  51             (Parrot_Sockaddr_attributes *) PMC_data(SELF);
  52
  53         pdata_struct->pointer = mem_gc_allocate_zeroed_typed(INTERP,
  54                 struct sockaddr_in);
  55         PObj_custom_destroy_SET(SELF);
  56     }
  57
  58 /*
  59
  60 =item C<void destroy()>
  61
  62 Destroys the PMC and frees all allocated memory.
  63
  64 =cut
  65
  66 */
  67
  68     VTABLE void destroy() {
  69         Parrot_Sockaddr_attributes * const data = PARROT_SOCKADDR(SELF);
  70
  71         if (data) {
  72             mem_gc_free(INTERP, data->pointer);
  73             data->pointer = NULL;
  74         }
  75     }
  76
  77 /*
  78
  79 =item C<PMC *clone()>
  80
  81 Creates and returns a clone of the pointer.
  82
  83 =cut
  84
  85 */
  86
  87     VTABLE PMC *clone() {
  88         PMC * const dest = Parrot_pmc_new(INTERP, SELF->vtable->base_type);
  89         memcpy(PARROT_SOCKADDR(dest)->pointer, PARROT_SOCKADDR(SELF)->pointer,
  90                 sizeof (struct sockaddr_in));
  91         return dest;
  92     }
  93
  94 /*
  95
  96 =item C<void *get_pointer()>
  97
  98 Returns the pointer.
  99
 100 =cut
 101
 102 */
 103
 104     VTABLE void *get_pointer() {
 105         Parrot_Sockaddr_attributes * const data = PARROT_SOCKADDR(SELF);
 106         return data->pointer;
 107     }
 108
 109 /*
 110
 111 =item C<void set_pointer(void *)>
 112
 113 Sets the pointer.
 114
 115 =cut
 116
 117 */
 118
 119 /*
 120     VTABLE void set_pointer(void *value) {
 121         Parrot_Sockaddr_attributes * const data = PARROT_SOCKADDR(SELF);
 122         return data->pointer;
 123     }
 124 */
 125
 126 }
 127
 128 /*
 129
 130 =back
 131
 132 =cut
 133
 134 */
 135
 136 /*
 137  * Local variables:
 138  *   c-file-style: "parrot"
 139  * End:
 140  * vim: expandtab shiftwidth=4:
 141  */
 142