home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nethack-3.1 / sys / vms / vmsmisc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-01-07  |  728 b   |  42 lines
  1. /*    SCCS Id: @(#)vmsmisc.c    3.1    93/01/07    */
  2. /* NetHack may be freely redistributed.  See license for details. */
  3.  
  4. #include <ssdef.h>
  5. #include <stsdef.h>
  6.  
  7. extern void exit( /*_ int _*/ );
  8. extern void LIB$SIGNAL( /*_ unsigned long,... _*/ );
  9.  
  10. void
  11. vms_exit(status)
  12. int status;
  13. {
  14.     exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
  15. }
  16.  
  17. void
  18. vms_abort()
  19. {
  20.     LIB$SIGNAL(SS$_DEBUG);
  21. }
  22.  
  23. #ifndef __GNUC__
  24. # ifndef bcopy
  25. /* needed by gnutermcap.c, possibly by bison generated foo_yacc.c */
  26. void
  27. bcopy(src, dst, cnt)
  28. const char *src;
  29. char *dst;
  30. unsigned cnt;
  31. {
  32.     while (cnt-- > 0) *dst++ = *src++;
  33. }
  34. # endif
  35. #endif    /* !__GNUC__ */
  36.  
  37. #ifdef VERYOLD_VMS
  38. #include "oldcrtl.c"        /* "[-.vms]oldcrtl.c" */
  39. #endif
  40.  
  41. /*vmsmisc.c*/
  42.