src/pmc/handle.pmc

   1 /*
   2 Copyright (C) 2008, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/handle.pmc - IO Handle PMC
   8
   9 =head1 DESCRIPTION
  10
  11 This is the base-class for all IO-related PMCs.
  12
  13 =head2 Vtable Functions
  14
  15 =over 4
  16
  17 =item * [to come]
  18
  19 =back
  20
  21 =cut
  22
  23 */
  24
  25 #include "parrot/parrot.h"
  26 #include "../src/io/io_private.h"
  27
  28 pmclass Handle provides Handle {
  29     /* TODO: Consider encapsulating PIOHANDLE as a PMC type, for subclassing */
  30     ATTR PIOHANDLE os_handle;         /* Low level OS descriptor      */
  31
  32     VTABLE void init() {
  33         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
  34             "Handle cannot be instantiated directly.");
  35     }
  36
  37     VTABLE void init_pmc(PMC * init) {
  38         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
  39             "Handle cannot be instantiated directly.");
  40     }
  41 }
  42
  43 /*
  44  * Local variables:
  45  *   c-file-style: "parrot"
  46  * End:
  47  * vim: expandtab shiftwidth=4:
  48  */