src/io/core.c

   1 /*
   2 Copyright (C) 2001-2008, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/io/core.c - I/O subsystem core functions
   8
   9 =head1 DESCRIPTION
  10
  11 Core functions for initializing and destroying the I/O subsystem within an
  12 interpreter.
  13
  14 =head2 Resource Functions
  15
  16 =over 4
  17
  18 =cut
  19
  20 */
  21
  22 #include "parrot/parrot.h"
  23 #include "io_private.h"
  24
  25 /* HEADERIZER HFILE: include/parrot/io.h */
  26
  27 /*
  28         The standard streams are:
  29
  30                 interp->piodata->table[PIO_STD*_FILENO].
  31 */
  32
  33 PIOOFF_T piooffsetzero;
  34
  35 /*
  36
  37 =item C<void Parrot_io_init(PARROT_INTERP)>
  38
  39 Sets up the interpreter's I/O storage and creates the C<STD*> handles.
  40
  41 Called when creating an interpreter.
  42
  43 =cut
  44
  45 */
  46
  47 PARROT_EXPORT
  48 void
  49 Parrot_io_init(PARROT_INTERP)
  50 {
  51     ASSERT_ARGS(Parrot_io_init)
  52     /* Has interp been initialized already? */
  53     if (interp->piodata) {
  54         /* memsub system is up and running: */
  55         /* Init IO stacks and handles for interp instance.  */
  56         PIO_INIT(interp);
  57
  58
  59         if (Interp_debug_TEST(interp, PARROT_START_DEBUG_FLAG)) {
  60             Parrot_io_eprintf(NULL, "I/O system initialized.\n");
  61         }
  62
  63         return;
  64     }
  65
  66
  67     interp->piodata = mem_gc_allocate_zeroed_typed(interp, ParrotIOData);
  68     if (interp->piodata == NULL)
  69         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
  70             "PIO alloc piodata failure.");
  71     interp->piodata->table         =
  72             mem_gc_allocate_n_zeroed_typed(interp, PIO_NR_OPEN, PMC *);
  73
  74     if (!interp->piodata->table)
  75         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
  76             "PIO alloc table failure.");
  77 }
  78
  79 /*
  80
  81 =item C<void Parrot_io_finish(PARROT_INTERP)>
  82
  83 Closes the interpreter's IO resourses.  Called during its interpreter
  84 destruction.
  85
  86 =cut
  87
  88 */
  89
  90 PARROT_EXPORT
  91 void
  92 Parrot_io_finish(PARROT_INTERP)
  93 {
  94     ASSERT_ARGS(Parrot_io_finish)
  95     /*
  96      * TODO free IO of std-handles
  97      */
  98     mem_gc_free(interp, interp->piodata->table);
  99     interp->piodata->table = NULL;
 100     mem_gc_free(interp, interp->piodata);
 101     interp->piodata = NULL;
 102
 103 }
 104
 105
 106 /*
 107
 108 =item C<void Parrot_IOData_mark(PARROT_INTERP, ParrotIOData *piodata)>
 109
 110 Called from C<Parrot_gc_trace_root()> to mark the IO data live.
 111
 112 =cut
 113
 114 */
 115
 116 PARROT_EXPORT
 117 void
 118 Parrot_IOData_mark(PARROT_INTERP, ARGIN(ParrotIOData *piodata))
 119 {
 120     ASSERT_ARGS(Parrot_IOData_mark)
 121     INTVAL i;
 122     ParrotIOTable table = piodata->table;
 123
 124     /* this was i < PIO_NR_OPEN, but only standard handles 0..2 need
 125      * to be kept alive AFAIK -leo
 126      */
 127     for (i = 0; i < 3; ++i) {
 128         Parrot_gc_mark_PMC_alive(interp, table[i]);
 129     }
 130 }
 131
 132
 133 /*
 134
 135 =back
 136
 137 =head1 SEE ALSO
 138
 139 F<src/io/api.c>,
 140 F<src/io/unix.c>,
 141 F<src/io/win32.c>,
 142 F<src/io/portable.c>,
 143 F<src/io/buffer.c>,
 144 F<src/io/io_private.h>.
 145
 146 =cut
 147
 148 */
 149
 150
 151
 152 /*
 153  * Local variables:
 154  *   c-file-style: "parrot"
 155  * End:
 156  * vim: expandtab shiftwidth=4:
 157  */