|
|
1.1 root 1: \File{ryresp\-invoke.c},{21:34},{Aug 31 1988}
2: \L{\LB{...}}
3: \L{\LB{}}
4: \L{\LB{\K{static} \K{int} op\_name (sd, ryo, rox, in, roi)}}
5: \L{\LB{\K{int}}\Tab{8}{sd;}}
6: \L{\LB{\K{struct} RyOperation *ryo;}}
7: \L{\LB{\K{struct} RoSAPinvoke *rox;}}
8: \L{\LB{caddr\_t}\Tab{8}{in;}}
9: \L{\LB{\K{struct} RoSAPindication *roi;}}
10: \L{\LB{\{}}
11: \L{\LB{ \K{int}}\Tab{8}{ result,}}
12: \L{\LB{}\Tab{8}{ won;}}
13: \L{\LB{ \K{register} \K{struct} type\_MODULE\_argument *arg =}}
14: \L{\LB{}\Tab{16}{(\K{struct} type\_MODULE\_argument *) in;}}
15: \L{\LB{}}
16: \L{\LB{\C{}\/* this check should *not* be made if linking of operations is expected *\/\CE{}}}
17: \L{\LB{ \K{if} (rox \-\> rox\_nolinked == 0) \{}}
18: \L{\LB{}\Tab{8}{advise (LLOG\_EXCEPTIONS, NULLCP,}}
19: \L{\LB{}\Tab{16}{\S{}\"RO\-INVOKE.INDICATION\/\%d: \%s, unknown linkage \%d\"\SE{},}}
20: \L{\LB{}\Tab{16}{sd, ryo \-\> ryo\_name, rox \-\> rox\_linkid);}}
21: \L{\LB{}\Tab{8}{\K{return} ureject (sd, ROS\_IP\_LINKED, rox, roi);}}
22: \L{\LB{ \}}}
23: \L{\LB{ \K{if} (debug)}}
24: \L{\LB{}\Tab{8}{advise (LLOG\_DEBUG, NULLCP, \S{}\"RO\-INVOKE.INDICATION\/\%d: \%s\"\SE{},}}
25: \L{\LB{}\Tab{16}{sd, ryo \-\> ryo\_name);}}
26: \L{\LB{}}
27: \L{\LB{\C{}\/* do something with ``arg\'\' here and decide if won... *\/\CE{}}}
28: \L{\LB{}}
29: \L{\LB{ \K{if} (won) \{}}
30: \L{\LB{}\Tab{8}{\K{register} \K{struct} type\_MODULE\_result *res;}}
31: \L{\LB{}}
32: \L{\LB{\C{}\/* allocate and initialize the result ``res\'\' here... *\/\CE{}}}
33: \L{\LB{}}
34: \L{\LB{}\Tab{8}{\K{if} (RyDsResult (sd, rox \-\> rox\_id, (caddr\_t) res, ROS\_NOPRIO, roi)}}
35: \L{\LB{}\Tab{16}{== NOTOK)}}
36: \L{\LB{}\Tab{8}{ ros\_adios (\&roi \-\> roi\_preject, \S{}\"RESULT\"\SE{});}}
37: \L{\LB{}\Tab{8}{result = OK;}}
38: \L{\LB{}}
39: \L{\LB{}\Tab{8}{free\_MODULE\_result (res);}}
40: \L{\LB{ \}}}
41: \L{\LB{ \K{else} \{}}
42: \L{\LB{}\Tab{8}{\K{struct} type\_MODULE\_parameter *parm;}}
43: \L{\LB{}}
44: \L{\LB{\C{}\/* allocate and initialize ``parm\'\' here... *\/\CE{}}}
45: \L{\LB{}}
46: \L{\LB{}\Tab{8}{result = error (sd, error\_MODULE\_error1, (caddr\_t) parm, rox, roi);}}
47: \L{\LB{}}
48: \L{\LB{}\Tab{8}{free\_MODULE\_parameter (parm);}}
49: \L{\LB{ \}}}
50: \L{\LB{}}
51: \L{\LB{\C{}\/* ``arg\'\' will be automatically free\'d when op\_name returns *\/\CE{}}}
52: \L{\LB{}}
53: \L{\LB{ \K{return} result;}}
54: \L{\LB{\}}}
55: \L{\LB{}}
56: \L{\LB{...}}
57: \L{\LB{}}
58: \L{\LB{\K{static} \K{int} error (sd, err, param, rox, roi)}}
59: \L{\LB{\K{int}}\Tab{8}{sd,}}
60: \L{\LB{}\Tab{8}{err;}}
61: \L{\LB{caddr\_t}\Tab{8}{param;}}
62: \L{\LB{\K{struct} RoSAPinvoke *rox;}}
63: \L{\LB{\K{struct} RoSAPindication *roi;}}
64: \L{\LB{\{}}
65: \L{\LB{ \K{if} (RyDsError (sd, rox \-\> rox\_id, err, param, ROS\_NOPRIO, roi) == NOTOK)}}
66: \L{\LB{}\Tab{8}{ros\_adios (\&roi \-\> roi\_preject, \S{}\"ERROR\"\SE{});}}
67: \L{\LB{}}
68: \L{\LB{ \K{return} OK;}}
69: \L{\LB{\}}}
70: \L{\LB{}}
71: \L{\LB{}}
72: \L{\LB{\K{static} \K{int} ureject (sd, reason, rox, roi)}}
73: \L{\LB{\K{int}}\Tab{8}{sd,}}
74: \L{\LB{}\Tab{8}{reason;}}
75: \L{\LB{\K{struct} RoSAPinvoke *rox;}}
76: \L{\LB{\K{struct} RoSAPindication *roi;}}
77: \L{\LB{\{}}
78: \L{\LB{ \K{if} (RyDsUReject (sd, rox \-\> rox\_id, reason, ROS\_NOPRIO, roi) == NOTOK)}}
79: \L{\LB{}\Tab{8}{ros\_adios (\&roi \-\> roi\_preject, \S{}\"U\-REJECT\"\SE{});}}
80: \L{\LB{}}
81: \L{\LB{ \K{return} OK;}}
82: \L{\LB{\}}}
83: \L{\LB{}}
84: \L{\LB{...}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.