|
|
Initial revision
\File{grindB\-6.c},{22:23},{Jun 12 1988}
\L{\LB{...}}
\L{\LB{}}
\L{\LB{\K{static} \K{int} ros\_end (sd, roe)}}
\L{\LB{\K{int} sd;}}
\L{\LB{\K{struct} RoSAPend *roe;}}
\L{\LB{\{}}
\L{\LB{ \K{struct} RtSAPindication rtis;}}
\L{\LB{ \K{register} \K{struct} RtSAPindication *rti = \&rtis;}}
\L{\LB{ \K{register} \K{struct} RtSAPabort *rta = \&rti \-\> rti\_abort;}}
\L{\LB{}}
\L{\LB{ \K{if} (RtEndResponse (sd, rti) == NOTOK)}}
\L{\LB{}\Tab{8}{error (\S{}\"RT\-END.RESPONSE: \%s\"\SE{}, RtErrString (rta \-\> rta\_reason));}}
\L{\LB{}}
\L{\LB{ exit (0);}}
\L{\LB{\}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.