char RCS_ID_PRINTFAULT_C[] = "$Id: printfault.c,v 1.5 1994/01/12 18:36:09 jasegler Exp jasegler $";
/*
 * printfault.c --- Print a socket error message (DOS)
 *
 * Author: ppessi <Pekka.Pessi@hut.fi>
 *
 * Copyright © 1993 AmiTCP/IP Group, <amitcp-group@hut.fi>
 *                  Helsinki University of Technology, Finland.
 *                  All rights reserved.
 *
 * Created      : Sat Mar 20 02:10:14 1993 ppessi
 * Last modified: Fri Jun  4 02:05:44 1993 ppessi
 */

#include <errno.h>

#include <exec/execbase.h>
extern struct ExecBase *SysBase;

#include <dos/dos.h>
#include <dos/dosextens.h>

#if __SASC
#include <proto/dos.h>
#elif __GNUC__
#include <clib/dos_protos.h>
#endif

void
PrintNetFault (LONG code, const UBYTE * banner)
{
  struct Process *p = (struct Process *) SysBase->ThisTask;
  BPTR Stderr = p->pr_CES ? p->pr_CES : p->pr_COS;

  FPuts (Stderr, (UBYTE *) banner);
  FPuts (Stderr, ": ");

  if (code < __sys_nerr)
    banner = (UBYTE *) __sys_errlist[code];
  else
    banner = (UBYTE *) __sys_errlist[0];

  FPuts (Stderr, (UBYTE *) banner);
  FPuts (Stderr, "\n");
  Flush (Stderr);
}