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 - download
Index: ┃ T e ┃

⟦cbf4a4ac2⟧ TextFile

    Length: 628 (0x274)
    Types: TextFile
    Names: »error.c«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec8/multivol/error.c«

TextFile

#include <stdio.h>
	extern	int	errno;
	extern	char	*O_name;
/*VARARGS1*/
fatal(fmt, arg1, arg2, arg3)
	char	*fmt;
	int	arg1, arg2, arg3;
{
	warning(fmt, arg1, arg2, arg3);
#ifdef	DEBUG
	abort();
#else
	exit(1);
#endif
}

sfatal(str)
	char	*str;
{
	swarning(str);
#ifdef	DEBUG
	abort();
#else
	exit(1);
#endif
}

/*VARARGS1*/
warning(fmt, arg1, arg2, arg3)
	char	*fmt;
	int	arg1, arg2, arg3;
{
	fprintf(stderr, "%s: ", O_name);
	fprintf(stderr, fmt, arg1, arg2, arg3);
	fprintf(stderr, "\n");
}

swarning(str)
	char	*str;
{
#ifdef	DEBUG
	fprintf(stderr, "(%d)  ", errno);
#endif
	fprintf(stderr, "%s: ", O_name);
	perror(str);
}