|
|
1.1 ! root 1: \File{ryinit\-example.c},{19:46},{Oct 14 1989} ! 2: \L{\LB{...}} ! 3: \L{\LB{}} ! 4: \L{\LB{\K{static} \K{struct} dispatch dispatches[] = \{}} ! 5: \L{\LB{\C{}\/* real user\-supplied routines go here... *\/\CE{}}} ! 6: \L{\LB{}} ! 7: \L{\LB{ \S{}\"help\"\SE{}, 0, do\_help, NULLIFP, NULLIFP, NULLIFP,}} ! 8: \L{\LB{}\Tab{8}{\S{}\"print this information\"\SE{},}} ! 9: \L{\LB{ \S{}\"quit\"\SE{}, 0, do\_quit, NULLIFP, NULLIFP, NULLIFP,}} ! 10: \L{\LB{}\Tab{8}{\S{}\"terminate the association and exit\"\SE{},}} ! 11: \L{\LB{}} ! 12: \L{\LB{ NULL}} ! 13: \L{\LB{\};}} ! 14: \L{\LB{}} ! 15: \L{\LB{}} ! 16: \L{\LB{\C{}\/* ARGSUSED *\/\CE{}}} ! 17: \L{\LB{}} ! 18: \L{\LB{\K{static} \K{int} do\_help (sd, ds, args, dummy)}} ! 19: \L{\LB{\K{int}}\Tab{8}{sd;}} ! 20: \L{\LB{\K{register} \K{struct} dispatch *ds;}} ! 21: \L{\LB{\K{char} **args;}} ! 22: \L{\LB{caddr\_t *dummy;}} ! 23: \L{\LB{\{}} ! 24: \L{\LB{ printf (\S{}\"\!nCommands are:\!n\"\SE{});}} ! 25: \L{\LB{ \K{for} (ds = dispatches; ds \-\> ds\_name; ds++)}} ! 26: \L{\LB{}\Tab{8}{printf (\S{}\"\%s\!t\%s\!n\"\SE{}, ds \-\> ds\_name, ds \-\> ds\_help);}} ! 27: \L{\LB{}} ! 28: \L{\LB{ \K{return} NOTOK;}} ! 29: \L{\LB{\}}} ! 30: \L{\LB{}} ! 31: \L{\LB{}} ! 32: \L{\LB{\C{}\/* ARGSUSED *\/\CE{}}} ! 33: \L{\LB{}} ! 34: \L{\LB{\K{static} \K{int} do\_quit (sd, ds, args, dummy)}} ! 35: \L{\LB{\K{int}}\Tab{8}{sd;}} ! 36: \L{\LB{\K{struct} dispatch *ds;}} ! 37: \L{\LB{\K{char} **args;}} ! 38: \L{\LB{caddr\_t *dummy;}} ! 39: \L{\LB{\{}} ! 40: \L{\LB{ \K{struct} AcSAPrelease acrs;}} ! 41: \L{\LB{ \K{register} \K{struct} AcSAPrelease *acr = \&acrs;}} ! 42: \L{\LB{ \K{struct} AcSAPindication acis;}} ! 43: \L{\LB{ \K{register} \K{struct} AcSAPindication *aci = \&acis;}} ! 44: \L{\LB{ \K{register} \K{struct} AcSAPabort *aca = \&aci \-\> aci\_abort;}} ! 45: \L{\LB{}} ! 46: \L{\LB{ \K{if} (AcRelRequest (sd, ACF\_NORMAL, NULLPEP, 0, NOTOK, acr, aci) == NOTOK)}} ! 47: \L{\LB{}\Tab{8}{acs\_adios (aca, \S{}\"A\-RELEASE.REQUEST\"\SE{});}} ! 48: \L{\LB{}} ! 49: \L{\LB{ \K{if} (!acr \-\> acr\_affirmative) \{}} ! 50: \L{\LB{}\Tab{8}{(\K{void}) AcUAbortRequest (sd, NULLPEP, 0, aci);}} ! 51: \L{\LB{}\Tab{8}{adios (NULLCP, \S{}\"release rejected by peer: \%d\"\SE{}, acr \-\> acr\_reason);}} ! 52: \L{\LB{ \}}} ! 53: \L{\LB{}} ! 54: \L{\LB{ ACRFREE (acr);}} ! 55: \L{\LB{}} ! 56: \L{\LB{ exit (0);}} ! 57: \L{\LB{\}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.