Return to grind3-3.tex CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / doc / manual

Annotation of 43BSDReno/contrib/isode-beta/doc/manual/grind3-3.tex, revision 1.1.1.1

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.