|
|
1.1 ! root 1: \File{grind2a\-2a.c},{22:23},{Jun 12 1988} ! 2: \L{\LB{\K{\#include} \<stdio.h\>}} ! 3: \L{\LB{\K{\#include} \S{}\"generic.h\"\SE{}}\Tab{32}{\C{}\/* defines OPERATIONS and ERRORS *\/\CE{}}} ! 4: \L{\LB{\K{\#include} \<isode\/rosap.h\>}} ! 5: \L{\LB{\K{\#include} \<isode\/tsap.h\>}\Tab{32}{\C{}\/* for listening *\/\CE{}}} ! 6: \L{\LB{\K{\#include} \<setjmp.h\>}} ! 7: \L{\LB{}} ! 8: \L{\LB{}} ! 9: \L{\LB{\K{static} \K{char} *myservice = \S{}\"service\"\SE{};}} ! 10: \L{\LB{}} ! 11: \L{\LB{\K{static} jmp\_buf toplevel;}} ! 12: \L{\LB{}} ! 13: \L{\LB{}} ! 14: \L{\LB{\K{int}}\Tab{8}{ros\_init (), ros\_work (), ros\_lose ();}} ! 15: \L{\LB{}} ! 16: \L{\LB{}} ! 17: \L{\LB{\Proc{main}main (argc, argv, envp)}} ! 18: \L{\LB{\K{int}}\Tab{8}{argc;}} ! 19: \L{\LB{\K{char} **argv,}} ! 20: \L{\LB{ **envp;}} ! 21: \L{\LB{\{}} ! 22: \L{\LB{ AEI}\Tab{8}{ aei;}} ! 23: \L{\LB{ \K{struct} TSAPdisconnect tds;}} ! 24: \L{\LB{ \K{register} \K{struct} TSAPdisconnect *td = \&tds;}} ! 25: \L{\LB{}} ! 26: \L{\LB{ \K{if} ((aei = str2aei (PLocalHostName (), myservice)) == NULLAEI)}} ! 27: \L{\LB{}\Tab{8}{fatal (\S{}\"unknown application\-entity: \%s\-\%s\"\SE{}, PLocalHostName (),}} ! 28: \L{\LB{}\Tab{16}{myservice);}} ! 29: \L{\LB{}} ! 30: \L{\LB{ \K{if} (isodeserver (argc, argv, aei, ros\_init, ros\_work, ros\_lose, td)}} ! 31: \L{\LB{}\Tab{8}{ == NOTOK) \{}} ! 32: \L{\LB{}\Tab{8}{\K{if} (td \-\> td\_cc \> 0)}} ! 33: \L{\LB{}\Tab{8}{ fatal (\S{}\"isodeserver: [\%s] \%*.*s\"\SE{}, TErrString (td \-\> td\_reason),}} ! 34: \L{\LB{}\Tab{16}{ td \-\> td\_cc, td \-\> td\_cc, td \-\> td\_data);}} ! 35: \L{\LB{}\Tab{8}{\K{else}}} ! 36: \L{\LB{}\Tab{8}{ fatal (\S{}\"isodeserver: [\%s]\"\SE{}, TErrString (td \-\> td\_reason));}} ! 37: \L{\LB{ \}}} ! 38: \L{\LB{}} ! 39: \L{\LB{ exit (0);}} ! 40: \L{\LB{\}}} ! 41: \L{\LB{}} ! 42: \L{\LB{...}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.