diff options
Diffstat (limited to 'usr.bin/error/main.c')
| -rw-r--r-- | usr.bin/error/main.c | 287 |
1 files changed, 287 insertions, 0 deletions
diff --git a/usr.bin/error/main.c b/usr.bin/error/main.c new file mode 100644 index 0000000..fe20c37 --- /dev/null +++ b/usr.bin/error/main.c @@ -0,0 +1,287 @@ +/* + * Copyright (c) 1980, 1993 + * The Regents of the University of California. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + */ + +#ifndef lint +static char copyright[] = +"@(#) Copyright (c) 1980, 1993\n\ + The Regents of the University of California. All rights reserved.\n"; +#endif /* not lint */ + +#ifndef lint +static char sccsid[] = "@(#)main.c 8.1 (Berkeley) 6/6/93"; +#endif /* not lint */ + +#include <signal.h> +#include <unistd.h> +#include <stdio.h> +#include <ctype.h> +#include <stdlib.h> +#include <string.h> +#include "error.h" +#include "pathnames.h" + +int nerrors = 0; +Eptr er_head; +Eptr *errors; + +int nfiles = 0; +Eptr **files; /* array of pointers into errors*/ +int language = INCC; + +char *currentfilename = "????"; +char *processname; +char im_on[] = _PATH_TTY; /* my tty name */ + +boolean query = FALSE; /* query the operator if touch files */ +boolean notouch = FALSE; /* don't touch ANY files */ +boolean piflag = FALSE; /* this is not pi */ +boolean terse = FALSE; /* Terse output */ + +char *suffixlist = ".*"; /* initially, can touch any file */ + +int errorsort(); +void onintr(); +/* + * error [-I ignorename] [-n] [-q] [-t suffixlist] [-s] [-v] [infile] + * + * -T: terse output + * + * -I: the following name, `ignorename' contains a list of + * function names that are not to be treated as hard errors. + * Default: ~/.errorsrc + * + * -n: don't touch ANY files! + * + * -q: The user is to be queried before touching each + * file; if not specified, all files with hard, non + * ignorable errors are touched (assuming they can be). + * + * -t: touch only files ending with the list of suffices, each + * suffix preceded by a dot. + * eg, -t .c.y.l + * will touch only files ending with .c, .y or .l + * + * -s: print a summary of the error's categories. + * + * -v: after touching all files, overlay vi(1), ex(1) or ed(1) + * on top of error, entered in the first file with + * an error in it, with the appropriate editor + * set up to use the "next" command to get the other + * files containing errors. + * + * -p: (obsolete: for older versions of pi without bug + * fix regarding printing out the name of the main file + * with an error in it) + * Take the following argument and use it as the name of + * the pascal source file, suffix .p + * + * -E: show the errors in sorted order; intended for + * debugging. + * + * -S: show the errors in unsorted order + * (as they come from the error file) + * + * infile: The error messages come from this file. + * Default: stdin + */ +main(argc, argv) + int argc; + char *argv[]; +{ + char *cp; + char *ignorename = 0; + int ed_argc; + char **ed_argv; /*return from touchfiles*/ + boolean show_errors = FALSE; + boolean Show_Errors = FALSE; + boolean pr_summary = FALSE; + boolean edit_files = FALSE; + + processname = argv[0]; + + errorfile = stdin; + if (argc > 1) for(; (argc > 1) && (argv[1][0] == '-'); argc--, argv++){ + for (cp = argv[1] + 1; *cp; cp++) switch(*cp){ + default: + fprintf(stderr, "%s: -%c: Unknown flag\n", + processname, *cp); + break; + + case 'n': notouch = TRUE; break; + case 'q': query = TRUE; break; + case 'S': Show_Errors = TRUE; break; + case 's': pr_summary = TRUE; break; + case 'v': edit_files = TRUE; break; + case 'T': terse = TRUE; break; + case 't': + *cp-- = 0; argv++; argc--; + if (argc > 1){ + suffixlist = argv[1]; + } + break; + case 'I': /*ignore file name*/ + *cp-- = 0; argv++; argc--; + if (argc > 1) + ignorename = argv[1]; + break; + } + } + if (notouch) + suffixlist = 0; + if (argc > 1){ + if (argc > 3){ + fprintf(stderr, "%s: Only takes 0 or 1 arguments\n", + processname); + exit(3); + } + if ( (errorfile = fopen(argv[1], "r")) == NULL){ + fprintf(stderr, "%s: %s: No such file or directory for reading errors.\n", + processname, argv[1]); + exit(4); + } + } + if ( (queryfile = fopen(im_on, "r")) == NULL){ + if (query){ + fprintf(stderr, + "%s: Can't open \"%s\" to query the user.\n", + processname, im_on); + exit(9); + } + } + if (signal(SIGINT, onintr) == SIG_IGN) + signal(SIGINT, SIG_IGN); + if (signal(SIGTERM, onintr) == SIG_IGN) + signal(SIGTERM, SIG_IGN); + getignored(ignorename); + eaterrors(&nerrors, &errors); + if (Show_Errors) + printerrors(TRUE, nerrors, errors); + qsort(errors, nerrors, sizeof(Eptr), errorsort); + if (show_errors) + printerrors(FALSE, nerrors, errors); + findfiles(nerrors, errors, &nfiles, &files); +#define P(msg, arg) fprintf(stdout, msg, arg) + if (pr_summary){ + if (nunknown) + P("%d Errors are unclassifiable.\n", nunknown); + if (nignore) + P("%d Errors are classifiable, but totally discarded.\n",nignore); + if (nsyncerrors) + P("%d Errors are synchronization errors.\n", nsyncerrors); + if (nignore) + P("%d Errors are discarded because they refer to sacrosinct files.\n", ndiscard); + if (nnulled) + P("%d Errors are nulled because they refer to specific functions.\n", nnulled); + if (nnonspec) + P("%d Errors are not specific to any file.\n", nnonspec); + if (nthisfile) + P("%d Errors are specific to a given file, but not to a line.\n", nthisfile); + if (ntrue) + P("%d Errors are true errors, and can be inserted into the files.\n", ntrue); + } + filenames(nfiles, files); + fflush(stdout); + if (touchfiles(nfiles, files, &ed_argc, &ed_argv) && edit_files) + forkvi(ed_argc, ed_argv); +} + +forkvi(argc, argv) + int argc; + char **argv; +{ + if (query){ + switch(inquire(terse + ? "Edit? " + : "Do you still want to edit the files you touched? ")){ + case Q_NO: + case Q_no: + return; + default: + break; + } + } + /* + * ed_agument's first argument is + * a vi/ex compatabile search argument + * to find the first occurance of ### + */ + try("vi", argc, argv); + try("ex", argc, argv); + try("ed", argc-1, argv+1); + fprintf(stdout, "Can't find any editors.\n"); +} + +try(name, argc, argv) + char *name; + int argc; + char **argv; +{ + argv[0] = name; + wordvprint(stdout, argc, argv); + fprintf(stdout, "\n"); + fflush(stderr); + fflush(stdout); + sleep(2); + if (freopen(im_on, "r", stdin) == NULL) + return; + if (freopen(im_on, "w", stdout) == NULL) + return; + execvp(name, argv); +} + +int errorsort(epp1, epp2) + Eptr *epp1, *epp2; +{ + reg Eptr ep1, ep2; + int order; + /* + * Sort by: + * 1) synchronization, non specific, discarded errors first; + * 2) nulled and true errors last + * a) grouped by similar file names + * 1) grouped in ascending line number + */ + ep1 = *epp1; ep2 = *epp2; + if (ep1 == 0 || ep2 == 0) + return(0); + if ( (NOTSORTABLE(ep1->error_e_class)) ^ (NOTSORTABLE(ep2->error_e_class))){ + return(NOTSORTABLE(ep1->error_e_class) ? -1 : 1); + } + if (NOTSORTABLE(ep1->error_e_class)) /* then both are */ + return(ep1->error_no - ep2->error_no); + order = strcmp(ep1->error_text[0], ep2->error_text[0]); + if (order == 0){ + return(ep1->error_line - ep2->error_line); + } + return(order); +} |
