|
|
1.1 root 1: \File{grind6\-1.c},{22:23},{Jun 12 1988}
2: \L{\LB{\K{\#include} \<isode\/tsap.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} TSAPaddr *ta;}}
8: \L{\LB{\K{register} \K{struct} isoservent *is;}}
9: \L{\LB{}}
10: \L{\LB{...}}
11: \L{\LB{}}
12: \L{\LB{\Proc{if}\K{if} ((is = getisoserventbyname (\S{}\"session\"\SE{}, \S{}\"tsap\"\SE{})) == NULL)}}
13: \L{\LB{ error (\S{}\"tsap\/session\"\SE{});}}
14: \L{\LB{}}
15: \L{\LB{\C{}\/* RemoteHost is the host we\'re interested in,}}
16: \L{\LB{ e.g., ``gremlin.nrtc.northrop.com\'\' *\/\CE{}}}
17: \L{\LB{}}
18: \L{\LB{\Proc{if}\K{if} ((ta = is2taddr (RemoteHost, NULLCP, is)) == NULLTA)}}
19: \L{\LB{ error (\S{}\"address translation failed\"\SE{});}}
20: \L{\LB{}}
21: \L{\LB{...}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.