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

   1 /* $Id$
   2  *
   3  *      printuserfault.c - Print a usergroup error message (DOS)
   4  *
   5  *      Copyright © 1994 AmiTCP/IP Group,
   6  *                       Network Solutions Development Inc.
   7  *                       All rights reserved.
   8  *      Copyright © 2005 Pavel Fedin
   9  */
  10
  11 /****** net.lib/PrintUserFault ************************************************
  12
  13     NAME
  14         PrintUserFault - socket error messages
  15
  16     SYNOPSIS
  17         PrintUserFault(code, banner)
  18         void PrintUserFault(LONG, const UBYTE *)
  19
  20     FUNCTION
  21         The PrintUserFault() function finds the error message corresponding to
  22         the code and writes it, followed by a newline, to the standard error
  23         or Output() filehandle. If the argument string is non-NULL it is
  24         preappended to the message string and separated from it by a colon and
  25         space (`: '). If string is NULL only the error message string is
  26         printed.
  27
  28     NOTES
  29         The PrintUserFault() function used the DOS io functions.  It is
  30         recommended to use PrintUserFault() when the standard C IO functions
  31         are not otherwise in use.
  32
  33     SEE ALSO
  34         strerror(), perror(), <netinclude:sys/errno.h>
  35
  36 ******************************************************************************
  37 */
  38
  39 #include <errno.h>
  40
  41 #include <exec/execbase.h>
  42 extern struct ExecBase *SysBase;
  43
  44 #include <dos/dos.h>
  45 #include <dos/dosextens.h>
  46 #include <proto/dos.h>
  47 #include <proto/usergroup.h>
  48 #include <proto/exec.h>
  49
  50 void PrintUserFault(LONG code, const UBYTE *banner)
  51 {
  52   struct Process *p = (struct Process *)FindTask(NULL);
  53   BPTR Stderr = p->pr_CES ? p->pr_CES : p->pr_COS;
  54
  55   if (banner != NULL) {
  56     FPuts(Stderr, (STRPTR)banner);
  57     FPuts(Stderr, ": ");
  58   }
  59   FPuts(Stderr, (STRPTR)ug_StrError(code));
  60   FPuts(Stderr, "\n");
  61   Flush(Stderr);
  62 }
  63