RCS_ID_C="$Id: printfault.c,v 1.3 1993/06/03 23:27:19 ppessi Exp $";
/* 
 * 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 <inline/dos.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, banner);
  FPuts(Stderr, ": ");
  
  if (code < __sys_nerr)
    banner = (UBYTE *)__sys_errlist[code];
  else 
    banner = (UBYTE *)__sys_errlist[0];

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