\File{figureB\-9.c},{12:00},{May  6 1990}
\L{\LB{...}}
\L{\LB{}}
\L{\LB{    \K{int}}\Tab{8}{    result,}}
\L{\LB{}\Tab{8}{    response;}}
\L{\LB{    \K{struct} type\_MODULE\_argument *arg;}}
\L{\LB{    caddr\_t out;}}
\L{\LB{    \K{struct} RoSAPindication rois;}}
\L{\LB{    \K{register} \K{struct} RoSAPindication *roi = \&rois;}}
\L{\LB{    \K{register} \K{struct} RoSAPpreject *rop = \&roi \-\> roi\_preject;}}
\L{\LB{}}
\L{\LB{    \C{}\/* allocate and initialize ``arg\'\' here... *\/\CE{}}}
\L{\LB{}}
\L{\LB{\Proc{switch}    \K{switch} (result = op\_MODULE\_operation (sd, arg, \&out, \&response, roi)) \{}}
\L{\LB{}\Tab{8}{\K{case} NOTOK:}\Tab{32}{\C{}\/* failure *\/\CE{}}}
\L{\LB{}\Tab{8}{    \K{if} (ROS\_FATAL (rop \-\> rop\_reason))}}
\L{\LB{}\Tab{16}{ros\_adios (rop, \S{}\"OPERATION\"\SE{});}}
\L{\LB{}\Tab{8}{    ros\_advise (rop, \S{}\"OPERATION\"\SE{});}}
\L{\LB{}\Tab{8}{    \K{break};}}