gih900@csc.anu.oz (Geoff Huston) (11/25/89)
+-+-+-+ Beginning of part 11 +-+-+-+ X fprintf(stderr,"Close_net\n"); X #endif X!`032 X! #ifdef POK_OUTPUT_BUFFER`032 X! write_out(); X! #endif X!`032 X! sys$cancel(f); X! log_to_file(1); X! cks(sys$qiow(0,f,IO$_DELETE,iosb,0,0,0,0,0,0,0,0)); X! cks(*i_o_sts); X! sys$dassgn(f); X `125 X `012 X /* X************** X*** 264,270 X unsigned char fhost_len; X unsigned char lhost_len; X char fhost[128]; X- short fill; X unsigned short fport; X short fill_1; X char lhost[128]; X--- 321,326 ----- X unsigned char fhost_len; X unsigned char lhost_len; X char fhost[128]; X unsigned short fport; X short fill_1; X char lhost[128]; X************** X*** 272,278 X short fill_2; X unsigned int linet_addr; X unsigned int finet_addr; X! `125 info_buffer; X `032 X getremhost(remhost,remuser,unit) X char *remhost, *remuser; X--- 328,334 ----- X short fill_2; X unsigned int linet_addr; X unsigned int finet_addr; X! `125 _align(quadword) info_buffer; X `032 X getremhost(remhost,remuser,unit) X char *remhost, *remuser; X************** X*** 275,282 X `125 info_buffer; X `032 X getremhost(remhost,remuser,unit) X! char *remhost, *remuser; X! int unit; X `123 X if (remhost) `123 X cks(sys$qiow(0,f,IO$_MODIFY,iosb,0,0,&info_buffer,276,0,0,0,0)); X--- 331,338 ----- X `125 _align(quadword) info_buffer; X `032 X getremhost(remhost,remuser,unit) X! char *remhost, *remuser; X! int unit; X `123 X if (remhost) `123 X strcpy(remhost,"tcp"); X************** X*** 278,288 X char *remhost, *remuser; X int unit; X `123 X! if (remhost) `123 X! cks(sys$qiow(0,f,IO$_MODIFY,iosb,0,0,&info_buffer,276,0,0,0,0)); X! cks(*i_o_sts); X! strncpy(remhost,info_buffer.fhost,info_buffer.fhost_len); X! remhost[info_buffer.fhost_len] = '\0'; X! `125 X! if (remuser) strcpy(remuser,"nntp"); X `125 X--- 334,347 ----- X char *remhost, *remuser; X int unit; X `123 X! if (remhost) `123 X! strcpy(remhost,"tcp"); X! /* V! cks(sys$qiow(0,f,IO$_MODIFY,iosb,0,0,&info_buffer,sizeof(info_buffer),0 X,0,0,0)); X! cks(*i_o_sts); X! strncpy(remhost,info_buffer.fhost,info_buffer.fhost_len); X! remhost[info_buffer.fhost_len] = '\0'; X! */ X! `125 X! if (remuser) strcpy(remuser,"nntp"); X `125 $ GOSUB UNPACK_FILE $ FILE_IS = "NNTP_TCPWIN.DIFF" $ CHECKSUM_IS = 1985494578 $ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY X*** [.news_v59_src]nntp_tcpwin.c X--- [.news_src]nntp_tcpwin.c $ GOSUB UNPACK_FILE $ FILE_IS = "NNTP_TTY.DIFF" $ CHECKSUM_IS = 1985494842 $ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY X*** [.news_v59_src]nntp_tty.c X--- [.news_src]nntp_tty.c $ GOSUB UNPACK_FILE $ EXIT -+-+-+-+-+ End of part 11 +-+-+-+-+-