DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T i

⟦8fb4c3c8f⟧ TextFile

    Length: 993 (0x3e1)
    Types: TextFile
    Names: »io.c«

Derivation

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/doc/manual/volume2/io.c«

TextFile

submit_message (orig, recips, fp)
ADDR	*orig;
ADDR	*recips;
FILE	*fp;
{
	RP_Buf	rps, *rp = &rps;
	char	buf[BUFSIZ];
	ADDR	*ap;

	if (rp_isbad (io_init(rp)))
		error ();

	if (rp_isbad (io_wprm (prm, rp)))
		error ();

	if (rp_isbad (io_wrq (q, rp)))
		error ();

	if (rp_isbad (io_wadr (orig, AD_ORIGINATOR, rp)))
		error ();

	for (ap = ad_recipients; ap; ap = ap -> ad_next)
		if (rp_isbad (io_wadr (ap, AD_RECIPIENT, rp)))
			error ();

	if (rp_isbad (io_adend(rp)))
		error ();

	if (rp_isbad (io_tinit(rp)))
		error ();

	if (rp_isbad (io_tpart ("hdr.822", FALSE, rp)))
		error ();

	while (fgets( buf, sizeof buf, fp))
		if (rp_isbad (io_tdata (buf, strlen (buf))))
			error ();

	if (rp_isbad (io_tdend(rp)))
		error ();

	if (rp_isbad (io_tpart ("1.ia5", FALSE, rp)))
		error ();

	while (fgets (buf, sizeof buf, stdin))
		if (rp_isbad (io_tdata (buf, strlen (buf))))
			error ();

	if (rp_isbad (io_tdend (rp)))
		error ();

	if (rp_isbad (io_tend (rp)))
		error ();

	 io_end(OK);
}