commands/cawf/error.c

   1 /*
   2  *      error.c - error handling functions for cawf(1)
   3  */
   4
   5 /*
   6  *      Copyright (c) 1991 Purdue University Research Foundation,
   7  *      West Lafayette, Indiana 47907.  All rights reserved.
   8  *
   9  *      Written by Victor A. Abell <abe@mace.cc.purdue.edu>,  Purdue
  10  *      University Computing Center.  Not derived from licensed software;
  11  *      derived from awf(1) by Henry Spencer of the University of Toronto.
  12  *
  13  *      Permission is granted to anyone to use this software for any
  14  *      purpose on any computer system, and to alter it and redistribute
  15  *      it freely, subject to the following restrictions:
  16  *
  17  *      1. The author is not responsible for any consequences of use of
  18  *         this software, even if they arise from flaws in it.
  19  *
  20  *      2. The origin of this software must not be misrepresented, either
  21  *         by explicit claim or by omission.  Credits must appear in the
  22  *         documentation.
  23  *
  24  *      3. Altered versions must be plainly marked as such, and must not
  25  *         be misrepresented as being the original software.  Credits must
  26  *         appear in the documentation.
  27  *
  28  *      4. This notice may not be removed or altered.
  29  */
  30
  31 #include "cawf.h"
  32
  33
  34 /*
  35  * Error(t, l, s1, s2) - issue error message
  36  */
  37
  38 void
  39 Error(t, l, s1, s2)
  40         int t;                          /* type: WARN or FATAL */
  41         int l;                          /* LINE: display Line[] */
  42         char *s1, *s2;                  /* optional text */
  43 {
  44         char msg[MAXLINE];              /* message */
  45
  46         if (t == WARN && !Dowarn) return;
  47
  48         if (l == LINE)
  49                 (void) fprintf(Efs, "%s: (%s, %d):%s%s - %s\n",
  50                         Pname,
  51                         Inname,
  52                         NR,
  53                         (s1 == NULL) ? "" : s1,
  54                         (s2 == NULL) ? "" : s2,
  55                         Line);
  56         else
  57                 (void) fprintf(Efs, "%s:%s%s\n",
  58                         Pname,
  59                         (s1 == NULL) ? "" : s1,
  60                         (s2 == NULL) ? "" : s2);
  61         if (t == FATAL)
  62                 exit(1);
  63         Err = 1;
  64         return;
  65 }
  66
  67
  68 /*
  69  * Error3(len, word, sarg, narg) - process error in pass3
  70  */
  71
  72 void
  73 Error3(len, word, sarg, narg, msg)
  74         int len;                        /* length (negative is special */
  75         char *word;                     /* word */
  76         char *sarg;                     /* string argument */
  77         int narg;                       /* numeric argument */
  78         char *msg;                      /* message */
  79 {
  80         if (len == MESSAGE) {
  81                 (void) fprintf(Efs, "%s: (%s, %d) %s\n",
  82                         Pname,
  83                         (word == NULL) ? "<none>" : word,
  84                         narg,
  85                         (sarg == NULL) ? "<none>" : sarg);
  86                 return;
  87         }
  88         (void) fprintf(Efs,
  89                 "%s: pass3, len=%d, word=\"%s\", sarg=\"%s\", narg=%d%s%s\n",
  90                 Pname, len,
  91                 (word == NULL) ? "" : word,
  92                 (sarg == NULL) ? "" : sarg,
  93                 narg,
  94                 (msg == NULL) ? "" : " - ",
  95                 (msg == NULL) ? "" : msg);
  96         Err = 1;
  97 }