|
|
1.1 root 1: \File{grind5b\-4.c},{12:26},{Oct 14 1989}
2: \L{\LB{...}}
3: \L{\LB{}}
4: \L{\LB{\Proc{while} \K{while} (fgets (buffer, \K{sizeof} buffer, stdin))}}
5: \L{\LB{\Proc{if}}\Tab{8}{\K{if} (SDataRequest (sd, buffer, strlen (buffer) + 1, si) == NOTOK)}}
6: \L{\LB{}\Tab{8}{ error (\S{}\"S\-DATA.REQUEST: \%s\"\SE{}, SErrString (sa \-\> sa\_reason));}}
7: \L{\LB{}}
8: \L{\LB{\Proc{if} \K{if} (SRelRequest (sd, NULLCP, 0, NOTOK, sr, si) == NOTOK)}}
9: \L{\LB{}\Tab{8}{error (\S{}\"S\-RELEASE.REQUEST: \%s\"\SE{}, SErrString (sa \-\> sa\_reason));}}
10: \L{\LB{}}
11: \L{\LB{\Proc{if} \K{if} (!sr \-\> sr\_affirmative) \{}}
12: \L{\LB{}\Tab{8}{(\K{void}) SUAbortRequest (sd, NULLCP, 0, si);}}
13: \L{\LB{}\Tab{8}{error (\S{}\"release rejected by sink\"\SE{});}}
14: \L{\LB{ \}}}
15: \ProcCont{if}\L{\LB{}}
16: \L{\LB{ exit (0);}}
17: \L{\LB{\}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.