![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to errfn.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [GCC 2.x] / gcc / cp|
Return to errfn.c CVS log | Up to [GCC 2.x] / gcc / cp |
1.1 root 1: /* Provide a call-back mechanism for handling error output. 1.1.1.2 ! root 2: Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. 1.1 root 3: Contributed by Jason Merrill ([email protected]) 4: 5: This file is part of GNU CC. 6: 7: GNU CC is free software; you can redistribute it and/or modify 8: it under the terms of the GNU General Public License as published by 9: the Free Software Foundation; either version 2, or (at your option) 10: any later version. 11: 12: GNU CC is distributed in the hope that it will be useful, 13: but WITHOUT ANY WARRANTY; without even the implied warranty of 14: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15: GNU General Public License for more details. 16: 17: You should have received a copy of the GNU General Public License 18: along with GNU CC; see the file COPYING. If not, write to 1.1.1.2 ! root 19: the Free Software Foundation, 59 Temple Place - Suite 330, ! 20: Boston, MA 02111-1307, USA. */ 1.1 root 21: 22: #include "config.h" 23: #include "tree.h" 24: #include <ctype.h> 25: 26: /* cp_printer is the type of a function which converts an argument into 27: a string for digestion by printf. The cp_printer function should deal 28: with all memory management; the functions in this file will not free 29: the char*s returned. See error.c for an example use of this code. */ 30: 31: typedef char* cp_printer PROTO((HOST_WIDE_INT, int)); 32: extern cp_printer * cp_printers[256]; 33: 34: /* Whether or not we should try to be quiet for errors and warnings; this is 35: used to avoid being too talkative about problems with tentative choices 36: when we're computing the conversion costs for a method call. */ 37: int cp_silent = 0; 38: 39: typedef void errorfn (); /* deliberately vague */ 40: 41: extern char* cp_file_of PROTO((tree)); 42: extern int cp_line_of PROTO((tree)); 43: 44: #define STRDUP(f) (ap = (char *) alloca (strlen (f) +1), strcpy (ap, (f)), ap) 45: 1.1.1.2 ! root 46: #define NARGS 4 ! 47: #define arglist a1, a2, a3, a4 ! 48: #define arglist_dcl HOST_WIDE_INT a1, a2, a3, a4; ! 49: #define ARGSINIT args[0] = a1; args[1] = a2; args[2] = a3; args[3] = a4; ! 50: #define ARGSLIST args[0], args[1], args[2], args[3] 1.1 root 51: 52: static void 53: cp_thing (errfn, atarg1, format, arglist) 54: errorfn *errfn; 55: int atarg1; 56: char *format; 57: arglist_dcl 58: { 59: char *fmt; 60: char *f; 61: char *ap; 62: int arg; 63: HOST_WIDE_INT atarg = atarg1 ? a1 : 0; 64: HOST_WIDE_INT args[NARGS]; 65: ARGSINIT 66: 67: fmt = STRDUP(format); 68: 69: for (f = fmt, arg = 0; *f; ++f) 70: { 71: cp_printer * function; 72: int alternate; 73: int maybe_here; 74: 75: /* ignore text */ 76: if (*f != '%') continue; 77: 78: ++f; 79: 80: alternate = 0; 81: maybe_here = 0; 82: 83: /* ignore most flags */ 84: while (*f == ' ' || *f == '-' || *f == '+' || *f == '#') 85: { 86: if (*f == '+') 87: maybe_here = 1; 88: else if (*f == '#') 89: alternate = 1; 90: ++f; 91: } 92: 93: /* ignore field width */ 94: if (*f == '*') 95: { 96: ++f; 97: ++arg; 98: } 99: else 100: while (isdigit (*f)) 101: ++f; 102: 103: /* ignore precision */ 104: if (*f == '.') 105: { 106: ++f; 107: if (*f == '*') 108: { 109: ++f; 110: ++arg; 111: } 112: else 113: while (isdigit (*f)) 114: ++f; 115: } 116: 117: /* ignore "long" */ 118: if (*f == 'l') 119: ++f; 120: 121: function = cp_printers[(int)*f]; 122: 123: if (function) 124: { 125: char *p; 126: 127: if (arg >= NARGS) abort (); 128: 129: if (maybe_here && atarg1) 130: atarg = args[arg]; 131: 132: /* Must use a temporary to avoid calling *function twice */ 133: p = (*function) (args[arg], alternate); 134: args[arg] = (HOST_WIDE_INT) STRDUP(p); 135: *f = 's'; 136: } 137: 138: ++arg; /* Assume valid format string */ 139: 140: } 141: 142: if (atarg) 143: { 144: char *file = cp_file_of ((tree) atarg); 145: int line = cp_line_of ((tree) atarg); 146: (*errfn) (file, line, fmt, ARGSLIST); 147: } 148: else 149: (*errfn) (fmt, ARGSLIST); 150: 151: } 152: 153: void 154: cp_error (format, arglist) 155: char *format; 156: arglist_dcl 157: { 158: extern errorfn error; 159: if (! cp_silent) 160: cp_thing (error, 0, format, arglist); 161: } 162: 163: void 164: cp_warning (format, arglist) 165: char *format; 166: arglist_dcl 167: { 168: extern errorfn warning; 169: if (! cp_silent) 170: cp_thing (warning, 0, format, arglist); 171: } 172: 173: void 174: cp_pedwarn (format, arglist) 175: char *format; 176: arglist_dcl 177: { 178: extern errorfn pedwarn; 179: if (! cp_silent) 180: cp_thing (pedwarn, 0, format, arglist); 181: } 182: 183: void 184: cp_compiler_error (format, arglist) 185: char *format; 186: arglist_dcl 187: { 188: extern errorfn compiler_error; 189: if (! cp_silent) 190: cp_thing (compiler_error, 0, format, arglist); 191: } 192: 193: void 194: cp_sprintf (format, arglist) 195: char *format; 196: arglist_dcl 197: { 198: extern errorfn sprintf; 199: cp_thing (sprintf, 0, format, arglist); 200: } 201: 202: void 203: cp_error_at (format, arglist) 204: char *format; 205: arglist_dcl 206: { 207: extern errorfn error_with_file_and_line; 208: if (! cp_silent) 209: cp_thing (error_with_file_and_line, 1, format, arglist); 210: } 211: 212: void 213: cp_warning_at (format, arglist) 214: char *format; 215: arglist_dcl 216: { 217: extern errorfn warning_with_file_and_line; 218: if (! cp_silent) 219: cp_thing (warning_with_file_and_line, 1, format, arglist); 220: } 221: 222: void 223: cp_pedwarn_at (format, arglist) 224: char *format; 225: arglist_dcl 226: { 227: extern errorfn pedwarn_with_file_and_line; 228: if (! cp_silent) 229: cp_thing (pedwarn_with_file_and_line, 1, format, arglist); 230: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.