workbench/network/stacks/AROSTCP/netlib/sana2perror.c

   1 /* $Id$
   2  *
   3  *      sana2perror.c - print SANA-II error message
   4  *
   5  *      Copyright © 1994 AmiTCP/IP Group,
   6  *                       Network Solutions Development Inc.
   7  *                       All rights reserved.
   8  */
   9
  10 #include <stdio.h>
  11
  12 #include <devices/sana2.h>
  13 #include <net/sana2errno.h>
  14
  15 /****** sana2.lib/sana2perror *************************************************
  16
  17     NAME
  18         sana2perror - print SANA-II device error messages
  19
  20     SYNOPSIS
  21         #include <devices/sana2.h>
  22
  23         sana2perror(banner, ios2request)
  24
  25         void sana2perror(const char *, struct IOSana2Req *)
  26
  27     FUNCTION
  28         The sana2perror() function finds the error message corresponding to
  29         the error in the given SANA-II IO request and writes it, followed by a
  30         newline, to the stderr.  If the argument string is non-NULL it is
  31         preappended to the message string and separated from it by a colon and
  32         space (`: ').  If string is NULL only the error message string is
  33         printed.
  34
  35     NOTES
  36         The sana2perror() function requires the stdio functions to be linked.
  37
  38     SEE ALSO
  39         Sana2PrintFault()
  40
  41 *******************************************************************************
  42 */
  43
  44 void
  45 sana2perror(const char *banner, struct IOSana2Req *ios2)
  46 {
  47   register WORD err = ios2->ios2_Req.io_Error;
  48   register ULONG werr = ios2->ios2_WireError;
  49   const char *errstr;
  50
  51   if (err >= sana2io_nerr || -err > io_nerr) {
  52     errstr = io_errlist[0];
  53   } else {
  54     if (err < 0)
  55       /* Negative error codes are common with all IO devices */
  56       errstr = io_errlist[-err];
  57     else
  58       /* Positive error codes are SANA-II specific */
  59       errstr = sana2io_errlist[err];
  60   }
  61
  62   if (werr == 0 || werr >= sana2wire_nerr) {
  63     if (banner != NULL)
  64       fprintf(stderr, "%s: %s\n", banner, errstr);
  65     else
  66       fprintf(stderr, "%s\n", errstr);
  67   } else {
  68     if (banner != NULL)
  69       fprintf(stderr, "%s: %s (%s)\n", banner, errstr, sana2wire_errlist[werr]);
  70     else
  71       fprintf(stderr, "%s (%s)\n", errstr, sana2wire_errlist[werr]);
  72   }
  73 }