|
|
1.1 root 1: \File{ryinit\-estab.c},{08:54},{Jun 29 1988}
2: \L{\LB{...}}
3: \L{\LB{}}
4: \L{\LB{\K{\#define}}\Tab{8}{myservice}\Tab{24}{\S{}\"servicestore\"\SE{}}}
5: \L{\LB{\K{\#define}}\Tab{8}{mycontext}\Tab{24}{\S{}\"local service\"\SE{}}}
6: \L{\LB{\K{\#define}}\Tab{8}{mypci}\Tab{24}{\S{}\"local service pci\"\SE{}}}
7: \L{\LB{}}
8: \L{\LB{...}}
9: \L{\LB{}}
10: \L{\LB{ \K{int}}\Tab{8}{ sd;}}
11: \L{\LB{ \K{struct} SSAPref sfs;}}
12: \L{\LB{ \K{register} \K{struct} SSAPref *sf;}}
13: \L{\LB{ \K{register} \K{struct} PSAPaddr *pa;}}
14: \L{\LB{ \K{struct} AcSAPconnect accs;}}
15: \L{\LB{ \K{register} \K{struct} AcSAPconnect *acc = \&accs;}}
16: \L{\LB{ \K{struct} AcSAPindication acis;}}
17: \L{\LB{ \K{register} \K{struct} AcSAPindication *aci = \&acis;}}
18: \L{\LB{ \K{register} \K{struct} AcSAPabort *aca = \&aci \-\> aci\_abort;}}
19: \L{\LB{ AEI}\Tab{8}{ aei;}}
20: \L{\LB{ OID}\Tab{8}{ ctx,}}
21: \L{\LB{}\Tab{8}{ pci;}}
22: \L{\LB{ \K{struct} PSAPctxlist pcs;}}
23: \L{\LB{ \K{register} \K{struct} PSAPctxlist *pc = \&pcs;}}
24: \L{\LB{ \K{struct} RoSAPindication rois;}}
25: \L{\LB{ \K{register} \K{struct} RoSAPindication *roi = \&rois;}}
26: \L{\LB{ \K{register} \K{struct} RoSAPpreject *rop = \&roi \-\> roi\_preject;}}
27: \L{\LB{}}
28: \L{\LB{\Proc{if} \K{if} ((aei = str2aei (argv[1], myservice)) == NULLAEI)}}
29: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"\%s\-\%s: unknown application\-entity\"\SE{},}}
30: \L{\LB{}\Tab{16}{argv[1], myservice);}}
31: \L{\LB{\Proc{if} \K{if} ((pa = aei2addr (aei)) == NULLPA)}}
32: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"address translation failed\"\SE{});}}
33: \L{\LB{}}
34: \L{\LB{\Proc{if} \K{if} ((ctx = ode2oid (mycontext)) == NULLOID)}}
35: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"\%s: unknown object descriptor\"\SE{}, mycontext);}}
36: \L{\LB{\Proc{if} \K{if} ((ctx = oid\_cpy (ctx)) == NULLOID)}}
37: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"out of memory\"\SE{});}}
38: \L{\LB{\Proc{if} \K{if} ((pci = ode2oid (mypci)) == NULLOID)}}
39: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"\%s: unknown object descriptor\"\SE{}, mypci);}}
40: \L{\LB{\Proc{if} \K{if} ((pci = oid\_cpy (pci)) == NULLOID)}}
41: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"out of memory\"\SE{});}}
42: \L{\LB{ pc \-\> pc\_nctx = 1;}}
43: \L{\LB{ pc \-\> pc\_ctx[0].pc\_id = 1;}}
44: \L{\LB{ pc \-\> pc\_ctx[0].pc\_asn = pci;}}
45: \L{\LB{ pc \-\> pc\_ctx[0].pc\_atn = NULLOID;}}
46: \L{\LB{}}
47: \L{\LB{\Proc{if} \K{if} ((sf = addr2ref (PLocalHostName ())) == NULL) \{}}
48: \L{\LB{}\Tab{8}{sf = \&sfs;}}
49: \L{\LB{}\Tab{8}{(\K{void}) bzero ((\K{char} *) sf, \K{sizeof} *sf);}}
50: \L{\LB{ \}}}
51: \ProcCont{if}\L{\LB{}}
52: \L{\LB{ \K{if} (AcAssocRequest (ctx, NULLAEI, aei, NULLPA, pa, pc, NULLOID,}}
53: \L{\LB{}\Tab{16}{0, ROS\_MYREQUIRE, SERIAL\_NONE, 0, sf, NULLPEP, 0, NULLQOS,}}
54: \L{\LB{}\Tab{16}{acc, aci)}}
55: \L{\LB{}\Tab{8}{ == NOTOK)}}
56: \L{\LB{}\Tab{8}{acs\_adios (aca, \S{}\"A\-ASSOCIATE.REQUEST\"\SE{});}}
57: \L{\LB{}}
58: \L{\LB{\Proc{if} \K{if} (acc \-\> acc\_result != ACS\_ACCEPT)}}
59: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"association rejected: [\%s]\"\SE{},}}
60: \L{\LB{}\Tab{16}{AcErrString (acc \-\> acc\_result));}}
61: \L{\LB{}}
62: \L{\LB{ sd = acc \-\> acc\_sd;}}
63: \L{\LB{ ACCFREE (acc);}}
64: \L{\LB{}}
65: \L{\LB{\Proc{if} \K{if} (RoSetService (sd, RoPService, roi) == NOTOK)}}
66: \L{\LB{}\Tab{8}{ros\_adios (rop, \S{}\"set RO\/PS fails\"\SE{});}}
67: \L{\LB{}}
68: \L{\LB{...}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.