src/warnings.c

   1 /*
   2 Copyright (C) 2001-2003, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/warnings.c - Warning and error reporting
   8
   9 =head1 DESCRIPTION
  10
  11 Parrot C<STRING> and C string versions of a function to print warning/error
  12 messages.
  13
  14 =over 4
  15
  16 =cut
  17
  18 */
  19
  20 #include "parrot/parrot.h"
  21
  22 #include <stdarg.h>
  23 #include <assert.h>
  24
  25 /*
  26
  27 =item C<void
  28 print_pbc_location(Parrot_Interp interpreter)>
  29
  30 Prints the bytecode location of the warning or error to C<PIO_STDERR>.
  31
  32 =cut
  33
  34 */
  35
  36 void
  37 print_pbc_location(Parrot_Interp interpreter)
  38 {
  39     Interp * const tracer =
  40         interpreter->debugger ?
  41             interpreter->debugger : interpreter;
  42     PIO_eprintf(tracer, "%Ss\n",
  43             Parrot_Context_infostr(interpreter,
  44                 CONTEXT(interpreter->ctx)));
  45 }
  46
  47 /*
  48
  49 =item C<static INTVAL
  50 print_warning(Interp *interpreter, STRING *msg)>
  51
  52 Prints the warning message and the bytecode location.
  53
  54 =cut
  55
  56 */
  57
  58 static INTVAL
  59 print_warning(Interp *interpreter, STRING *msg)
  60 {
  61
  62     if (!msg)
  63         PIO_puts(interpreter, PIO_STDERR(interpreter), "Unknown warning\n");
  64     else {
  65         PIO_putps(interpreter, PIO_STDERR(interpreter), msg);
  66         if (string_ord(interpreter, msg, -1) != '\n')
  67             PIO_eprintf(interpreter, "%c", '\n');
  68     }
  69     print_pbc_location(interpreter);
  70     return 1;
  71 }
  72
  73 /*
  74
  75 =back
  76
  77 =head2 Parrot Warnings Interface
  78
  79 =over
  80
  81 =item C<INTVAL
  82 Parrot_warn(Interp *interpreter, INTVAL warnclass,
  83             const char *message, ...)>
  84
  85 The Parrot C string warning/error reporter.
  86
  87 Returns 2 on error, 1 on success.
  88
  89 C<message, ..> can be a C<Parrot_vsprintf_c()> format with arguments.
  90
  91 =cut
  92
  93 */
  94
  95 INTVAL
  96 Parrot_warn(Interp *interpreter, INTVAL warnclass,
  97             const char *message, ...)
  98 {
  99     STRING *targ;
 100
 101     va_list args;
 102
 103     assert(interpreter);
 104     if (!PARROT_WARNINGS_test(interpreter, warnclass))
 105         return 2;
 106
 107     va_start(args, message);
 108     targ = Parrot_vsprintf_c(interpreter, message, args);
 109     va_end(args);
 110     return print_warning(interpreter, targ);
 111
 112 }
 113
 114 /*
 115
 116 =item C<INTVAL
 117 Parrot_warn_s(Interp *interpreter, INTVAL warnclass,
 118               STRING *message, ...)>
 119
 120 The Parrot C<STRING> warning/error reporter.
 121
 122 Returns 2 on error, 1 on success.
 123
 124 C<message, ..> can be a C<Parrot_vsprintf_s()> format with arguments.
 125
 126 =cut
 127
 128 */
 129
 130 INTVAL
 131 Parrot_warn_s(Interp *interpreter, INTVAL warnclass,
 132               STRING *message, ...)
 133 {
 134     STRING *targ;
 135
 136     va_list args;
 137
 138     if (!interpreter || !PARROT_WARNINGS_test(interpreter, warnclass))
 139         return 2;
 140
 141     va_start(args, message);
 142     targ = Parrot_vsprintf_s(interpreter, message, args);
 143     va_end(args);
 144
 145     return print_warning(interpreter, targ);
 146 }
 147
 148 /*
 149
 150 =back
 151
 152 =head1 SEE ALSO
 153
 154 F<include/parrot/warnings.h>.
 155
 156 =cut
 157
 158 */
 159
 160
 161 /*
 162  * Local variables:
 163  *   c-file-style: "parrot"
 164  * End:
 165  * vim: expandtab shiftwidth=4:
 166  */