|
|
1.1 ! root 1: \File{grind2b\-4b.c},{19:46},{Oct 14 1989} ! 2: \L{\LB{...}} ! 3: \L{\LB{}} ! 4: \L{\LB{\Proc{if} \K{if} ((sf = addr2ref (PLocalHostName ())) == NULL) \{}} ! 5: \L{\LB{}\Tab{8}{sf = \&sfs;}} ! 6: \L{\LB{}\Tab{8}{(\K{void}) bzero ((\K{char} *) sf, \K{sizeof} *sf);}} ! 7: \L{\LB{ \}}} ! 8: \L{\LB{ }} ! 9: \L{\LB{\C{}\/* read command line arguments here... *\/\CE{}}} ! 10: \L{\LB{}} ! 11: \L{\LB{ \K{if} (AcAssocRequest (ctx, NULLAEI, NULLAEI, NULLPA, pa, pc, NULLOID,}} ! 12: \L{\LB{}\Tab{16}{0, ROS\_MYREQUIRE, SERIAL\_NONE, 0, sf, NULLPEP, 0, NULLQOS,}} ! 13: \L{\LB{}\Tab{16}{acc, aci)}} ! 14: \L{\LB{}\Tab{8}{ == NOTOK)}} ! 15: \L{\LB{}\Tab{8}{error (\S{}\"A\-ASSOCIATE.REQUEST: \%s\"\SE{}, AcErrString (aca \-\> aca\_reason));}} ! 16: \L{\LB{}} ! 17: \L{\LB{\Proc{if} \K{if} (acc \-\> acc\_result != ACS\_ACCEPT)}} ! 18: \L{\LB{}\Tab{8}{error (\S{}\"association rejected: \%s\"\SE{}, AcErrString (aca \-\> aca\_reason));}} ! 19: \L{\LB{}} ! 20: \L{\LB{ sd = acc \-\> acc\_sd;}} ! 21: \L{\LB{ ACCFREE (acc);}} ! 22: \L{\LB{}} ! 23: \L{\LB{\Proc{if} \K{if} (RoSetService (sd, RoPService, \&rois) == NOTOK)}} ! 24: \L{\LB{}\Tab{8}{error (\S{}\"RoSetService: \%s\"\SE{}, RoErrString (rop \-\> rop\_reason));}} ! 25: \L{\LB{}} ! 26: \L{\LB{ invoke (sd);}\Tab{32}{\C{}\/* invoke the operations, etc. *\/\CE{}}} ! 27: \L{\LB{ }} ! 28: \L{\LB{\Proc{if} \K{if} (AcRelRequest (sd, ACF\_NORMAL, NULLPEP, 0, NOTOK, acr, aci) == NOTOK)}} ! 29: \L{\LB{}\Tab{8}{error (\S{}\"A\-RELEASE.REQUEST: \%s\"\SE{}, AcErrString (aca \-\> aca\_reason));}} ! 30: \L{\LB{}} ! 31: \L{\LB{\Proc{if} \K{if} (!acr \-\> acr\_affirmative) \{}} ! 32: \L{\LB{}\Tab{8}{(\K{void}) AcUAbortRequest (sd, NULLPEP, 0, aci);}} ! 33: \L{\LB{}\Tab{8}{error (\S{}\"release rejected by peer: \%d\"\SE{}, acr \-\> acr\_reason);}} ! 34: \L{\LB{ \}}} ! 35: \ProcCont{if}\L{\LB{}} ! 36: \L{\LB{ ACRFREE (acr);}} ! 37: \L{\LB{}} ! 38: \L{\LB{ exit (0);}} ! 39: \L{\LB{\}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.