Return to grind2c-2.tex CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / doc / manual

Annotation of 43BSDReno/contrib/isode-beta/doc/manual/grind2c-2.tex, revision 1.1.1.1

1.1       root        1: \File{grind2c\-2.c},{22:23},{Jun 12 1988}
                      2: \L{\LB{\K{\#include} \<stdio.h\>}}
                      3: \L{\LB{\K{\#include} \<isode\/rtsap.h\>}}
                      4: \L{\LB{}}
                      5: \L{\LB{}}
                      6: \L{\LB{\Proc{main}main (argc, argv, envp)}}
                      7: \L{\LB{\K{int}}\Tab{8}{argc;}}
                      8: \L{\LB{\K{char}  **argv,}}
                      9: \L{\LB{      **envp;}}
                     10: \L{\LB{\{}}
                     11: \L{\LB{    \K{int}}\Tab{8}{    result,}}
                     12: \L{\LB{}\Tab{8}{    sd;}}
                     13: \L{\LB{    \K{struct} RoSAPindication  rois;}}
                     14: \L{\LB{    \K{register} \K{struct} RoSAPindication *roi = \&rois;}}
                     15: \L{\LB{    \K{register} \K{struct} RoSAPpreject   *rop = \&roi \-\> roi\_preject;}}
                     16: \L{\LB{    \K{struct} RtSAPstart   rtss;}}
                     17: \L{\LB{    \K{register} \K{struct} RtSAPstart *rts = \&rtss;}}
                     18: \L{\LB{    \K{struct} AcSAPstart *acs = \&rts \-\> rts\_start;}}
                     19: \L{\LB{    strut PSAPstart *ps = \&acs \-\> acs\_start;}}
                     20: \L{\LB{    \K{struct} RtSAPindication  rtis;}}
                     21: \L{\LB{    \K{register} \K{struct} RtSAPindication *rti = \&rtis;}}
                     22: \L{\LB{    \K{register} \K{struct} RtSAPabort   *rta = \&rti \-\> rti\_abort;}}
                     23: \L{\LB{}}
                     24: \L{\LB{    \K{if} (RtInit (argc, argv, rts, rti) == NOTOK)}}
                     25: \L{\LB{}\Tab{8}{error (\S{}\"initialization fails: \%s\"\SE{}, RtErrString (rta \-\> rta\_reason));}}
                     26: \L{\LB{}}
                     27: \L{\LB{    sd = rts \-\> rts\_sd;}}
                     28: \L{\LB{    RTSFREE (rts);}}
                     29: \L{\LB{    }}
                     30: \L{\LB{\C{}\/* read command line arguments here... *\/\CE{}}}
                     31: \L{\LB{}}
                     32: \L{\LB{    \K{if} (RtOpenResponse (sd, ACS\_ACCEPT, NULLOID, NULLAEI,}}
                     33: \L{\LB{}\Tab{16}{\&ps \-\> ps\_called, NULLPC, ps \-\> ps\_defctxresult,}}
                     34: \L{\LB{}\Tab{16}{NULLPE, rti) == NOTOK)}}
                     35: \L{\LB{}\Tab{8}{error (\S{}\"RT\-OPEN.RESPONSE: \%s\"\SE{}, RtErrString (rta \-\> rta\_reason));}}
                     36: \L{\LB{}}
                     37: \L{\LB{    \K{if} (RoSetService (sd, RoRtService, roi) == NOTOK)}}
                     38: \L{\LB{}\Tab{8}{error (\S{}\"RoSetService: \%s\"\SE{}, RoErrString (rop \-\> rop\_reason));}}
                     39: \L{\LB{}}
                     40: \L{\LB{    \K{for} (;;)}}
                     41: \L{\LB{}\Tab{8}{\K{switch} (result = RoWaitRequest (sd, NOTOK, roi)) \{}}
                     42: \L{\LB{}\Tab{8}{    \K{case} NOTOK: }}
                     43: \L{\LB{}\Tab{8}{    \K{case} OK: }}
                     44: \L{\LB{}\Tab{8}{    \K{case} DONE: }}
                     45: \L{\LB{}\Tab{16}{ros\_indication (sd, roi);}}
                     46: \L{\LB{}\Tab{16}{\K{break};}}
                     47: \L{\LB{}}
                     48: \L{\LB{}\Tab{8}{    \K{default}: }}
                     49: \L{\LB{}\Tab{16}{error (\S{}\"unknown return from RoWaitRequest=\%d\"\SE{}, result);}}
                     50: \L{\LB{}\Tab{8}{\}}}
                     51: \L{\LB{\}}}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.