|
|
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.