apps/plugins/pdbox/PDa/src/s_print.c

   1 /* Copyright (c) 1997-1999 Miller Puckette.
   2 * For information on usage and redistribution, and for a DISCLAIMER OF ALL
   3 * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
   4
   5 #include "m_pd.h"
   6 #include <stdlib.h>
   7 #include <stdio.h>
   8 #include <stdarg.h>
   9 #include <string.h>
  10 #include <errno.h>
  11
  12 #if defined(ROCKBOX) && defined (SIMULATOR)
  13 /* Copied from stdio.h */
  14 int printf (__const char *__restrict __format, ...);
  15 int vprintf (__const char *__restrict __format, va_list __arg);
  16 int vsprintf (char *__restrict __s,
  17                 __const char *__restrict __format,
  18                 va_list __arg);
  19 int putchar (int __c);
  20 #endif
  21
  22 void post(char *fmt, ...)
  23 {
  24 #ifdef ROCKBOX
  25 #ifdef SIMULATOR
  26     va_list ap;
  27     va_start(ap, fmt);
  28     vprintf(fmt, ap);
  29     va_end(ap);
  30     putchar('\n');
  31 #else /* SIMULATOR */
  32     (void) fmt;
  33 #endif /* SIMULATOR */
  34 #else /* ROCKBOX */
  35     va_list ap;
  36     t_int arg[8];
  37     int i;
  38     va_start(ap, fmt);
  39     vfprintf(stderr, fmt, ap);
  40     va_end(ap);
  41     putc('\n', stderr);
  42 #endif /* ROCKBOX */
  43 }
  44
  45 void startpost(char *fmt, ...)
  46 {
  47 #ifdef ROCKBOX
  48 #ifdef SIMULATOR
  49     va_list ap;
  50     t_int arg[8];
  51     unsigned int i;
  52     va_start(ap, fmt);
  53
  54     for (i = 0 ; i < 8; i++)
  55         arg[i] = va_arg(ap, t_int);
  56
  57     va_end(ap);
  58     printf(fmt, arg[0], arg[1], arg[2], arg[3],
  59         arg[4], arg[5], arg[6], arg[7]);
  60 #else /* SIMULATOR */
  61     (void) fmt;
  62 #endif /* SIMULATOR */
  63 #else /* ROCKBOX */
  64     va_list ap;
  65     t_int arg[8];
  66     int i;
  67     va_start(ap, fmt);
  68
  69     for (i = 0 ; i < 8; i++) arg[i] = va_arg(ap, t_int);
  70     va_end(ap);
  71     fprintf(stderr, fmt, arg[0], arg[1], arg[2], arg[3],
  72         arg[4], arg[5], arg[6], arg[7]);
  73 #endif /* ROCKBOX */
  74 }
  75
  76 void poststring(char *s)
  77 {
  78 #ifdef ROCKBOX
  79 #ifdef SIMULATOR
  80     printf(" %s", s);
  81 #else /* SIMULATOR */
  82     (void) s;
  83 #endif /* SIMULATOR */
  84 #else /* ROCKBOX */
  85     fprintf(stderr, " %s", s);
  86 #endif /* ROCKBOX */
  87 }
  88
  89 void postatom(int argc, t_atom *argv)
  90 {
  91     int i;
  92     for (i = 0; i < argc; i++)
  93     {
  94         char buf[80];
  95         atom_string(argv+i, buf, 80);
  96         poststring(buf);
  97     }
  98 }
  99
 100 void postfloat(float f)
 101 {
 102     t_atom a;
 103     SETFLOAT(&a, f);
 104     postatom(1, &a);
 105 }
 106
 107 void endpost(void)
 108 {
 109 #ifdef ROCKBOX
 110 #ifdef SIMULATOR
 111     putchar('\n');
 112 #endif /* SIMULATOR */
 113 #else /* ROCKBOX */
 114     fprintf(stderr, "\n");
 115 #endif /* ROCKBOX */
 116 }
 117
 118 void error(char *fmt, ...)
 119 {
 120 #ifdef ROCKBOX
 121 #ifdef SIMULATOR
 122     va_list ap;
 123     va_start(ap, fmt);
 124     printf("error: ");
 125     vprintf(fmt, ap);
 126     va_end(ap);
 127     putchar('\n');
 128 #else /* SIMULATOR */
 129     (void) fmt;
 130 #endif /* SIMULATOR */
 131 #else /* ROCKBOX */
 132     va_list ap;
 133     t_int arg[8];
 134     int i;
 135     va_start(ap, fmt);
 136     fprintf(stderr, "error: ");
 137     vfprintf(stderr, fmt, ap);
 138     va_end(ap);
 139     putc('\n', stderr);
 140 #endif /* ROCKBOX */
 141 }
 142
 143     /* here's the good way to log errors -- keep a pointer to the
 144     offending or offended object around so the user can search for it
 145     later. */
 146
 147 static void *error_object;
 148 static char error_string[256];
 149 void canvas_finderror(void *object);
 150
 151 void pd_error(void *object, char *fmt, ...)
 152 {
 153 #ifdef ROCKBOX
 154 #ifdef SIMULATOR
 155     va_list ap;
 156     static int saidit = 0;
 157
 158     va_start(ap, fmt);
 159     vsprintf(error_string, fmt, ap);
 160     va_end(ap);
 161     printf("error: %s\n", error_string);
 162
 163     error_object = object;
 164     if (!saidit)
 165     {
 166         post("... you might be able to track this down from the Find menu.");
 167         saidit = 1;
 168     }
 169 #else /* SIMULATOR */
 170     (void) object;
 171     (void) fmt;
 172 #endif /* SIMULATOR */
 173 #else /* ROCKBOX */
 174     va_list ap;
 175     t_int arg[8];
 176     int i;
 177     static int saidit = 0;
 178     va_start(ap, fmt);
 179     vsprintf(error_string, fmt, ap);
 180     va_end(ap);
 181     fprintf(stderr, "error: %s\n", error_string);
 182     error_object = object;
 183     if (!saidit)
 184     {
 185         post("... you might be able to track this down from the Find menu.");
 186         saidit = 1;
 187     }
 188 #endif /* ROCKBOX */
 189 }
 190
 191 void glob_finderror(t_pd *dummy)
 192 {
 193 #ifdef ROCKBOX
 194     (void) dummy;
 195 #endif /* ROCKBOX */
 196     if (!error_object)
 197         post("no findable error yet.");
 198     else
 199     {
 200         post("last trackable error:");
 201         post("%s", error_string);
 202         canvas_finderror(error_object);
 203     }
 204 }
 205
 206 void bug(char *fmt, ...)
 207 {
 208 #ifdef ROCKBOX
 209 #ifdef SIMULATOR
 210     va_list ap;
 211     t_int arg[8];
 212     unsigned int i;
 213
 214     va_start(ap, fmt);
 215     for(i = 0; i < 8; i++)
 216         arg[i] = va_arg(ap, t_int);
 217     va_end(ap);
 218
 219     printf("Consistency check failed: ");
 220     printf(fmt, arg[0], arg[1], arg[2], arg[3],
 221             arg[4], arg[5], arg[6], arg[7]);
 222     putchar('\n');
 223 #else /* SIMULATOR */
 224     (void) fmt;
 225 #endif /* SIMULATOR */
 226 #else /* ROCKBOX */
 227     va_list ap;
 228     t_int arg[8];
 229     int i;
 230     va_start(ap, fmt);
 231
 232     for (i = 0 ; i < 8; i++) arg[i] = va_arg(ap, t_int);
 233     va_end(ap);
 234     fprintf(stderr, "Consistency check failed: ");
 235     fprintf(stderr, fmt, arg[0], arg[1], arg[2], arg[3],
 236         arg[4], arg[5], arg[6], arg[7]);
 237     putc('\n', stderr);
 238 #endif /* ROCKBOX */
 239 }
 240
 241     /* this isn't worked out yet. */
 242 static char *errobject;
 243 static char *errstring;
 244
 245 void sys_logerror(char *object, char *s)
 246 {
 247     errobject = object;
 248     errstring = s;
 249 }
 250
 251 void sys_unixerror(char *object)
 252 {
 253 #ifdef ROCKBOX
 254     (void) object;
 255 #else
 256     errobject = object;
 257     errstring = strerror(errno);
 258 #endif /* ROCKBOX */
 259 }
 260
 261 void sys_ouch(void)
 262 {
 263     if (*errobject) error("%s: %s", errobject, errstring);
 264     else error("%s", errstring);
 265 }
 266