src/warnings.c

   1 /*
   2 Copyright (C) 2001-2009, Parrot 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 "pmc/pmc_context.h"
  23
  24 #include <stdarg.h>
  25
  26 /* HEADERIZER HFILE: include/parrot/warnings.h */
  27
  28 /* HEADERIZER BEGIN: static */
  29 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  30
  31 static INTVAL print_warning(PARROT_INTERP, ARGIN_NULLOK(STRING *msg))
  32         __attribute__nonnull__(1);
  33
  34 #define ASSERT_ARGS_print_warning __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
  35        PARROT_ASSERT_ARG(interp))
  36 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  37 /* HEADERIZER END: static */
  38
  39 /*
  40
  41 =item C<void print_pbc_location(PARROT_INTERP)>
  42
  43 Prints the bytecode location of the warning or error to C<Parrot_io_STDERR>.
  44
  45 =cut
  46
  47 */
  48
  49 PARROT_EXPORT
  50 void
  51 print_pbc_location(PARROT_INTERP)
  52 {
  53     ASSERT_ARGS(print_pbc_location)
  54     Interp * const tracer = (interp->pdb && interp->pdb->debugger) ?
  55         interp->pdb->debugger :
  56         interp;
  57     Parrot_io_eprintf(tracer, "%Ss\n",
  58             Parrot_Context_infostr(interp, CURRENT_CONTEXT(interp)));
  59 }
  60
  61 /*
  62
  63 =item C<static INTVAL print_warning(PARROT_INTERP, STRING *msg)>
  64
  65 Prints the warning message and the bytecode location.
  66
  67 =cut
  68
  69 */
  70
  71 static INTVAL
  72 print_warning(PARROT_INTERP, ARGIN_NULLOK(STRING *msg))
  73 {
  74     ASSERT_ARGS(print_warning)
  75     if (!msg)
  76         Parrot_io_puts(interp, Parrot_io_STDERR(interp), "Unknown warning\n");
  77     else {
  78         Parrot_io_putps(interp, Parrot_io_STDERR(interp), msg);
  79         if (string_ord(interp, msg, -1) != '\n')
  80             Parrot_io_eprintf(interp, "%c", '\n');
  81     }
  82     print_pbc_location(interp);
  83     return 1;
  84 }
  85
  86 /*
  87
  88 =back
  89
  90 =head2 Parrot Warnings Interface
  91
  92 =over 4
  93
  94 =item C<INTVAL Parrot_warn(PARROT_INTERP, INTVAL warnclass, const char *message,
  95 ...)>
  96
  97 The Parrot C string warning/error reporter.
  98
  99 Returns 2 on error, 1 on success.
 100
 101 C<message, ..> can be a C<Parrot_vsprintf_c()> format with arguments.
 102
 103 =cut
 104
 105 */
 106
 107 PARROT_EXPORT
 108 PARROT_IGNORABLE_RESULT
 109 INTVAL
 110 Parrot_warn(PARROT_INTERP, INTVAL warnclass,
 111             ARGIN(const char *message), ...)
 112 {
 113     ASSERT_ARGS(Parrot_warn)
 114     if (!PARROT_WARNINGS_test(interp, warnclass))
 115         return 2;
 116     else {
 117         STRING *targ;
 118         va_list args;
 119
 120         va_start(args, message);
 121         targ = Parrot_vsprintf_c(interp, message, args);
 122         va_end(args);
 123         return print_warning(interp, targ);
 124     }
 125 }
 126
 127 /*
 128
 129 =back
 130
 131 =head1 SEE ALSO
 132
 133 F<include/parrot/warnings.h>.
 134
 135 =cut
 136
 137 */
 138
 139
 140 /*
 141  * Local variables:
 142  *   c-file-style: "parrot"
 143  * End:
 144  * vim: expandtab shiftwidth=4:
 145  */