home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
os9.zip
/
os9qui.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-08-16
|
1KB
|
45 lines
/*
* os9qui.c quit to host server for os9 kermit
*/
#include "os9inc.h"
/*
* Kermit Quit to Host Server Function
*
* by W. G. Seaton NASA SC-LPS-32 11/15/84
*
* 07/01/85 ral add error handling
*/
quitsw()
{
int len, num;
int retries;
for (retries = 0; retries < MAXTRY; retries++) {
packet[0] = 'F'; /* Generic command of Finish */
spack('G', 0, 1, packet); /* Send Generic command */
switch(state = rpack(&len, &num, packet)) { /* get response */
case 'Y':
if (num == 0) {
puts("Remote Host Server Process Terminated.");
return(TRUE);
}
break; /* not the ack for this packet */
case 'N': /* remote NAKed packet */
case FALSE: /* timeout or bad packet */
break;
case 'E':
prerrpkt(packet);
return(FALSE);
default:
if (debug)
printf("Remote Host responded to quit with packet type %c\n", state);
break;
}
}
printf("Remote Host failed to acknowledge Quit command\n");
return(FALSE);
}