File: vmsmisc.c

package info (click to toggle)
glhack 1.2-1
  • links: PTS
  • area: main
  • in suites: squeeze, wheezy
  • size: 24,604 kB
  • ctags: 18,992
  • sloc: ansic: 208,570; cpp: 13,139; yacc: 2,005; makefile: 1,161; lex: 377; sh: 321; awk: 89; sed: 11
file content (30 lines) | stat: -rw-r--r-- 517 bytes parent folder | download | duplicates (23) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
/*	SCCS Id: @(#)vmsmisc.c	3.4	1996/03/02	*/
/* NetHack may be freely redistributed.  See license for details. */

#include <ssdef.h>
#include <stsdef.h>

void vms_exit( /*_ int _*/ );
void vms_abort( /*_ void _*/ );

extern void exit( /*_ int _*/ );
extern void lib$signal( /*_ unsigned long,... _*/ );

void
vms_exit(status)
int status;
{
    exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
}

void
vms_abort()
{
    lib$signal(SS$_DEBUG);
}

#ifdef VERYOLD_VMS
#include "oldcrtl.c"
#endif

/*vmsmisc.c*/