|
|
1.1 ! root 1: \File{grind3\-3.c},{22:23},{Jun 12 1988} ! 2: \L{\LB{\K{\#include} \<stdio.h\>}} ! 3: \L{\LB{\K{\#include} \<isode\/ppkt.h\>}} ! 4: \L{\LB{}} ! 5: \L{\LB{\C{}\/* ARGSUSED *\/\CE{}}} ! 6: \L{\LB{}} ! 7: \L{\LB{\Proc{main}main (argc, argv, envp)}} ! 8: \L{\LB{\K{int}}\Tab{8}{argc;}} ! 9: \L{\LB{\K{char} **argv,}} ! 10: \L{\LB{ **envp;}} ! 11: \L{\LB{\{}} ! 12: \L{\LB{ \K{int} len;}} ! 13: \L{\LB{ \K{char} *cp;}} ! 14: \L{\LB{ \K{register} PS}\Tab{16}{ ps;}} ! 15: \L{\LB{ \K{register} PE}\Tab{16}{ pe;}} ! 16: \L{\LB{}} ! 17: \L{\LB{ \K{if} ((ps = ps\_alloc (std\_open)) == NULLPS)}} ! 18: \L{\LB{}\Tab{8}{error (\S{}\"ps\_alloc\"\SE{});}} ! 19: \L{\LB{ \K{if} (std\_setup (ps, stdin) == NOTOK)}} ! 20: \L{\LB{}\Tab{8}{error (\S{}\"std\_setup: \%s\"\SE{}, ps\_errno (ps \-\> ps\_errno));}} ! 21: \L{\LB{}} ! 22: \L{\LB{ \K{for} (;;) \{}} ! 23: \L{\LB{}\Tab{8}{\K{if} ((pe = ps2pe (ps)) == NULLPE)}} ! 24: \L{\LB{}\Tab{8}{ \K{if} (ps \-\> ps\_errno)}} ! 25: \L{\LB{}\Tab{16}{error (\S{}\"ps2pe: \%s\"\SE{}, ps\_errno (ps \-\> ps\_errno));}} ! 26: \L{\LB{}\Tab{8}{ \K{else}}} ! 27: \L{\LB{}\Tab{16}{\K{break};}\Tab{32}{\C{}\/* end\-of\-file *\/\CE{}}} ! 28: \L{\LB{}} ! 29: \L{\LB{\C{}\/* process ``pe\'\' here... *\/\CE{}}} ! 30: \L{\LB{}} ! 31: \L{\LB{}\Tab{8}{ pe\_free (pe);}} ! 32: \L{\LB{ \}}} ! 33: \L{\LB{}} ! 34: \L{\LB{ ps\_free (ps);}} ! 35: \L{\LB{}} ! 36: \L{\LB{ exit (0);}} ! 37: \L{\LB{\}}}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.