|
|
1.1 ! root 1: \File{grindB\-4.c},{18:18},{Feb 1 1989} ! 2: \L{\LB{\K{\#include} \<isode\/rtsap.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} RtSAPaddr rtas;}} ! 9: \L{\LB{\K{register} \K{struct} RtSAPaddr *rta = \&rtas;}} ! 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{}\"p1\"\SE{}, \S{}\"rtsap\"\SE{})) == NULL)}} ! 15: \L{\LB{ error (\S{}\"rtsap\/p1\"\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{rta \-\> rta\_port = is \-\> is\_port;}} ! 21: \L{\LB{\Proc{if}\K{if} ((is = getisoserventbyname (\S{}\"rts\"\SE{}, \S{}\"ssap\"\SE{})) == NULL)}} ! 22: \L{\LB{ error (\S{}\"ssap\/rts\"\SE{});}} ! 23: \L{\LB{\Proc{if}\K{if} ((sa = is2saddr (RemoteHost, NULLCP, (\K{struct} isoservent *) 0))}} ! 24: \L{\LB{}\Tab{8}{== NULLSA)}} ! 25: \L{\LB{ error (\S{}\"address translation failed\"\SE{});}} ! 26: \L{\LB{rta \-\> rta\_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.