src/ops/io.ops

   1 /*
   2  * $Id$
   3  * Copyright (C) 2002-2008, Parrot Foundation.
   4 ** io.ops
   5 */
   6
   7 BEGIN_OPS_PREAMBLE
   8 #include "../io/io_private.h"
   9 END_OPS_PREAMBLE
  10
  11
  12 =head1 NAME
  13
  14 io.ops - I/O Opcodes
  15
  16 =cut
  17
  18 =head1 DESCRIPTION
  19
  20 Parrot's IO API
  21
  22 When making changes to any ops file, run C<make bootstrap-ops> to regenerate
  23 all generated ops files.
  24
  25 =cut
  26
  27 ###############################################################################
  28
  29 =head2 Parrot IO API Operations
  30
  31 =over 4
  32
  33 =cut
  34
  35 ########################################
  36
  37 =item B<print>(in INT)
  38
  39 =item B<print>(in NUM)
  40
  41 =item B<print>(invar PMC)
  42
  43 =item B<print>(in STR)
  44
  45 Print $1 to standard output.
  46
  47 =cut
  48
  49 inline op print(in INT) :base_io {
  50     Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)$1);
  51 }
  52
  53 inline op print(in NUM) :base_io {
  54 #ifdef PARROT_HAS_NEGATIVE_ZERO
  55     Parrot_io_printf(interp, FLOATVAL_FMT, $1);
  56 #else
  57     /* Workaround for older msvcrt and openbsd. TT #313 */
  58     if (Parrot_is_nzero($1)) {
  59         Parrot_io_printf(interp, "-0");
  60     }
  61     else {
  62         Parrot_io_printf(interp, FLOATVAL_FMT, $1);
  63     }
  64 #endif
  65 }
  66
  67 op print(in STR) :base_io {
  68     STRING * const s = $1;
  69     if (s && Parrot_str_byte_length(interp, s))
  70         Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
  71 }
  72
  73 op print(invar PMC) :base_io {
  74     PMC * const p = $1;
  75     STRING * const s = (VTABLE_get_string(interp, p));
  76     if (s)
  77         Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
  78 }
  79
  80 =item B<say>(in INT)
  81
  82 =item B<say>(in NUM)
  83
  84 =item B<say>(invar PMC)
  85
  86 =item B<say>(in STR)
  87
  88 Print $1 to standard output with a trailing newline.
  89
  90 =cut
  91
  92 inline op say(in INT) :base_io {
  93     Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)$1);
  94 }
  95
  96 inline op say(in NUM) :base_io {
  97 #ifdef PARROT_HAS_NEGATIVE_ZERO
  98     Parrot_io_printf(interp, FLOATVAL_FMT "\n", $1);
  99 #else
 100     /* Workaround for older msvcrt and openbsd. TT #313 */
 101     if (Parrot_is_nzero($1)) {
 102         Parrot_io_printf(interp, "-0\n");
 103     }
 104     else {
 105         Parrot_io_printf(interp, FLOATVAL_FMT "\n", $1);
 106     }
 107 #endif
 108 }
 109
 110 op say(in STR) :base_io {
 111     STRING * const s = $1;
 112     if (s && Parrot_str_byte_length(interp, s))
 113         Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
 114     Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
 115 }
 116
 117 op say(invar PMC) :base_io {
 118     PMC * const p = $1;
 119
 120     if (PMC_IS_NULL(p)) {
 121         opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
 122              EXCEPTION_UNEXPECTED_NULL,
 123             "Null PMC in say");
 124         goto ADDRESS(handler);
 125     }
 126     else {
 127         STRING * const s = VTABLE_get_string(interp, p);
 128         if (s)
 129             Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
 130         Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
 131     }
 132 }
 133
 134
 135
 136
 137 ##########################################
 138
 139 =item B<print>(invar PMC, in INT)
 140
 141 =item B<print>(invar PMC, in NUM)
 142
 143 =item B<print>(invar PMC, in STR)
 144
 145 =item B<print>(invar PMC, invar PMC)
 146
 147 Print $2 on the IO stream object $1.
 148
 149 =cut
 150
 151 op print(invar PMC, in INT) :base_io {
 152     if ($1) {
 153         STRING * const s = Parrot_str_from_int(interp, $2);
 154         Parrot_io_putps(interp, $1, s);
 155     }
 156 }
 157
 158 op print(invar PMC, in NUM) :base_io {
 159     if ($1) {
 160         STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, $2);
 161         Parrot_io_putps(interp, $1, s);
 162     }
 163 }
 164
 165 op print(invar PMC, in STR) :base_io {
 166     if ($2 && $1) {
 167         Parrot_io_putps(interp, $1, $2);
 168     }
 169 }
 170
 171 op print(invar PMC, invar PMC) :base_io {
 172     if ($2 && $1) {
 173         STRING * const s = VTABLE_get_string(interp, $2);
 174         Parrot_io_putps(interp, $1, s);
 175     }
 176 }
 177
 178 =item B<getstdin>(out PMC)
 179
 180 Create a new ParrotIO object for the stdin file descriptor and
 181 store it in $1
 182
 183 =item B<getstdout>(out PMC)
 184
 185 Create a new ParrotIO object for the stdout file descriptor and
 186 store it in $1
 187
 188 =item B<getstderr>(out PMC)
 189
 190 Create a new ParrotIO object for the stderr file descriptor and
 191 store it in $1
 192
 193 =cut
 194
 195 inline op getstdin(out PMC) :base_io {
 196     $1 = _PIO_STDIN(interp);
 197 }
 198
 199 inline op getstdout(out PMC) :base_io {
 200     $1 = _PIO_STDOUT(interp);
 201 }
 202
 203 inline op getstderr(out PMC) :base_io {
 204     $1 = _PIO_STDERR(interp);
 205 }
 206
 207 ###############################################################################
 208
 209 /*
 210  * Local variables:
 211  *   c-file-style: "parrot"
 212  * End:
 213  * vim: expandtab shiftwidth=4:
 214  */