|
|
1.1 root 1: \File{grindB\-1.c},{15:37},{Mar 5 1990}
2: \L{\LB{\K{\#include} \<isode\/rosap.h\>}}
3: \L{\LB{\K{\#include} \<isode\/isoservent.h\>}}
4: \L{\LB{}}
5: \L{\LB{...}}
6: \L{\LB{}}
7: \L{\LB{\K{register} \K{struct} SSAPaddr *sa;}}
8: \L{\LB{\K{struct} RoSAPaddr roas;}}
9: \L{\LB{\K{register} \K{struct} RoSAPaddr *roa = \&roas;}}
10: \L{\LB{\K{register} \K{struct} isoservent *is;}}
11: \L{\LB{}}
12: \L{\LB{...}}
13: \L{\LB{}}
14: \L{\LB{\Proc{if}\K{if} ((is = getisoserventbyname (\S{}\"directory\"\SE{}, \S{}\"rosap\"\SE{})) == NULL)}}
15: \L{\LB{ error (\S{}\"rosap\/directory\"\SE{});}}
16: \L{\LB{}}
17: \L{\LB{\C{}\/* RemoteHost is the host we\'re interested in,}}
18: \L{\LB{ e.g., ``gremlin.nrtc.northrop.com\'\' *\/\CE{}}}
19: \L{\LB{}}
20: \L{\LB{roa \-\> roa\_port = is \-\> is\_port;}}
21: \L{\LB{\Proc{if}\K{if} ((is = getisoserventbyname (\S{}\"ros\"\SE{}, \S{}\"ssap\"\SE{})) == NULL)}}
22: \L{\LB{ error (\S{}\"ssap\/ros\"\SE{});}}
23: \L{\LB{\Proc{if}\K{if} ((sa = is2saddr (RemoteHost, NULLCP, (\K{struct} isoservent *) is))}}
24: \L{\LB{}\Tab{8}{== NULLSA)}}
25: \L{\LB{ error (\S{}\"address translation failed\"\SE{});}}
26: \L{\LB{roa \-\> roa\_addr = *sa;}}
27: \L{\LB{}}
28: \L{\LB{...}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.