|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T g
Length: 1256 (0x4e8)
Types: TextFile
Names: »grind3-3.tex«
└─⟦3d0c2be1b⟧ Bits:30001254 ISODE-5.0 Tape
└─⟦eba4602b1⟧ »./isode-5.0.tar.Z«
└─⟦d3ac74d73⟧
└─⟦this⟧ »isode-5.0/doc/manual/grind3-3.tex«
└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
└─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z«
└─⟦de7628f85⟧
└─⟦this⟧ »isode-6.0/doc/manual/grind3-3.tex«
\File{grind3\-3.c},{22:23},{Jun 12 1988}
\L{\LB{\K{\#include} \<stdio.h\>}}
\L{\LB{\K{\#include} \<isode\/ppkt.h\>}}
\L{\LB{}}
\L{\LB{\C{}\/* ARGSUSED *\/\CE{}}}
\L{\LB{}}
\L{\LB{\Proc{main}main (argc, argv, envp)}}
\L{\LB{\K{int}}\Tab{8}{argc;}}
\L{\LB{\K{char} **argv,}}
\L{\LB{ **envp;}}
\L{\LB{\{}}
\L{\LB{ \K{int} len;}}
\L{\LB{ \K{char} *cp;}}
\L{\LB{ \K{register} PS}\Tab{16}{ ps;}}
\L{\LB{ \K{register} PE}\Tab{16}{ pe;}}
\L{\LB{}}
\L{\LB{ \K{if} ((ps = ps\_alloc (std\_open)) == NULLPS)}}
\L{\LB{}\Tab{8}{error (\S{}\"ps\_alloc\"\SE{});}}
\L{\LB{ \K{if} (std\_setup (ps, stdin) == NOTOK)}}
\L{\LB{}\Tab{8}{error (\S{}\"std\_setup: \%s\"\SE{}, ps\_errno (ps \-\> ps\_errno));}}
\L{\LB{}}
\L{\LB{ \K{for} (;;) \{}}
\L{\LB{}\Tab{8}{\K{if} ((pe = ps2pe (ps)) == NULLPE)}}
\L{\LB{}\Tab{8}{ \K{if} (ps \-\> ps\_errno)}}
\L{\LB{}\Tab{16}{error (\S{}\"ps2pe: \%s\"\SE{}, ps\_errno (ps \-\> ps\_errno));}}
\L{\LB{}\Tab{8}{ \K{else}}}
\L{\LB{}\Tab{16}{\K{break};}\Tab{32}{\C{}\/* end\-of\-file *\/\CE{}}}
\L{\LB{}}
\L{\LB{\C{}\/* process ``pe\'\' here... *\/\CE{}}}
\L{\LB{}}
\L{\LB{}\Tab{8}{ pe\_free (pe);}}
\L{\LB{ \}}}
\L{\LB{}}
\L{\LB{ ps\_free (ps);}}
\L{\LB{}}
\L{\LB{ exit (0);}}
\L{\LB{\}}}