Case 8000 Series Reference Manual page 161

/*------------------------------- E R R O R -------------------------------------------*/
error( message1, message2)
register char *message1;
register char *message2;
{
extern int errno;
extern int sys_nerr;
extern char *sys_errlist[];
if (progname)
fprintf( stderr, "%s: ", progname );
fprintf ( stderr, message1, message2 );
if ((errno > 0) && (errno < sys_nerr) )
fprintf( stderr, " (%s)", sys_errlist[errno] );
else
fprintf( stderr, " (%d)", errno);
fprintf( stderr, "\n" );
if (sock >= 0)
close(sock );
exit( 1);
}
/*------------------------- I N T _ F N -------------------------------------------*/
/* If an interrupt comes in (& interruptible) jump to this code
int_fn ( )
{
close( sock );
exit( 1 );
}
/*------------------------- I N T E R R U P T S -----------------------------------------*/
/* Indicate willigness to handle interrupts in int_fn( )
/* But, if in background mode, interrupts must be left disabled
interrupts ( )
{
if (signal( SIGINT , SIG_IGN ) != SIG_IGN)
signal( SIGINT, int_fn);
if (signal( SIGQUIT, SIG_IGN) !=SIG_IGN)
signal (SIGQUIT, int_fn);
}
/****************** End of application Software TELNET PRINTER ***************************/
X870-300351 Issue 1
/* print system errors like perror()
/* Required to shut down TCP/IP properly
/* Required to shut down TCP/IP properly
/* interrupt */
/* quit
H-5
*/
*/
*/
*/
*/
*/
*/
Rev.0