DataMuseum.dk

top - download

    Length: 4011 (0xfab)
    Types: TextFile
    Names: »stat.h«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/stat-5.3/eu/stat/src/stat.h« 

TextFile

/*  Copyright 1980 Gary Perlman */

/*LINTLIBRARY*/
#ifndef STAT_H
#define STAT_H

#ifdef	SYSV /* system V compatibility macros */
#define	index(s,c)  strchr(s,c)
#define	rindex(s,c) strrchr(s,c)
#endif	SYSV
#ifdef	BSD /* Berkeley compatibility macros */
#define	strchr(s,c)  index(s,c)
#define	strrchr(s,c) rindex(s,c)
#endif	SYSV

#include "stdio.h"
#include "ctype.h"
#include "math.h"

#include "const.h"

#ifndef	MAXINT
# define MAXINT	(sizeof(int) == 4 ? 2147483647 : 32767)
#endif

#define	MIN_PLOT      5         /* plot at least 5 x 5 */

typedef	int       Status;      /* return/exit status of functions */
#define	SUCCESS   ((Status) 0)
#define	FAILURE   ((Status) 1)
typedef	int       Boole;       /* no Boolean type in C */
#define	TRUE      ((Boole) 1)
#define	FALSE     ((Boole) 0)
typedef	unsigned Posint;       /* mostly an abbreviation */

#ifdef	MSDOS
# include	"msdos.h"
#else	/* UNIX */
# include	"unix.h"
#endif	/* MSDOS or UNIX */

#define	FZERO	10e-10       /* smaller |values| are considered 0.0 */
#define	fzero(x) (fabs (x) < FZERO)
#define	MAXF    9999.0       /* infinite F ratio */
#define	MAXT      99.0       /* infinite t value */

char	*strcat (), *strcpy (), *malloc ();
#define	myalloc(type,size)  ((type *) malloc ((unsigned)(size)*sizeof(type)))
#define strdup(s)	strcpy(malloc((unsigned)strlen(s)+1),s)
#define print(x,f) fprintf (stderr, "%-16s = %f\n", "x",  x)
#define	tprint(label,value) \
	printf ("\t%-35s %12.6f\n", label, value)
#define chiprint(chi,dfval,prob) \
	printf ("\tchisq   %12.6f     df %3d      p %9.6f\n", chi, dfval, prob)

#define	bellmsg()    putc ('\007', stderr); /*PORTABILITY*/
#define	checkstdin() \
	(isatty (fileno (stdin)) && fprintf (stderr,"\007%s: Reading input from terminal:\n", Argv0))
#define WARNING(msg) { bellmsg(); fprintf (stderr, "%s: msg.\n", Argv0); }
#define USAGE(synopsis) {\
	bellmsg();\
	fprintf (stderr, "Usage: %s synopsis\n", Argv0);\
	exit (FAILURE);\
	}
#define	ERRMSG3(msg, arg1, arg2, arg3)\
	{\
	bellmsg();\
	fprintf (stderr, "%s: msg.\n", Argv0, arg1, arg2, arg3);\
	exit (FAILURE);\
	}
#define ERRMSG2(msg, arg1, arg2) ERRMSG3 (msg, arg1, arg2, 0)
#define ERRMSG1(msg, arg1)       ERRMSG3 (msg, arg1, 0,    0)
#define ERRMSG0(msg)             ERRMSG3 (msg, 0,    0,    0)
#define ERRDATA              ERRMSG0 (Not enough (or no) input data)
#define ERRMANY(stuff,n)     ERRMSG1 (Too many stuff; at most %d allowed, n)
#define ERROPEN(file)        ERRMSG1 (Cannot open '%s', file)
#define ERRSPACE(whatever)   ERRMSG0 (No storage space left for whatever)
#define ERRNUM(str,type)     ERRMSG1 ('%s' (type) is not a number, str)
#define ERRPROB(value)       ERRMSG1 ('%g' is not a probability, value)
#define ERROPT(arg) {if (arg < argc) ERRMSG1(%d operand(s) ignored on command line, argc-arg)}
#define ERRVAL(fmt,var,str)  ERRMSG1 (%fmt is an illegal value for the str, var)
#define ERRRAGGED            ERRMSG0 (Ragged input file)
#define isinteger(str)       (number (str) == 1)
#define INTEGER(str)         isinteger(str)
#define	isna(str)            (str[0] == 'N' && str[1] == 'A' && str[2] == '\0')

#ifndef	max
#	define	min(a,b) ((a) < (b) ? (a) : (b))
#	define	max(a,b) ((a) > (b) ? (a) : (b))
#endif	max

/* macros to print options and limits */
#define	pver(ver) printf ("%s\n", ver)
#define	plim(pgm) printf ("%s: program limits:\n", pgm)
#define	ppgm(pgm, purpose) printf ("%s: %s\n", pgm, purpose);
#define	popt(flag,arg,desc,fmt,val)\
	printf ("-%c %-10.10s %-40s fmt\n", flag, arg, desc, val)
#define	oper(op,desc,dflt)\
	printf ("   %-10.10s %-40s %s\n", op, desc, dflt)
#define	sopt(flag,arg,desc,val) popt(flag,arg,desc,%s,(val ? val : ""))
#define	copt(flag,arg,desc,val) popt(flag,arg,desc,%c,(val ? val : '_'))
#define	lopt(flag,desc,val)     popt(flag,"",desc,%s,(val ? "TRUE" : "FALSE"))
#define	iopt(flag,arg,desc,val) popt(flag,arg,desc,%d,val)
#define	ropt(flag,arg,desc,val) popt(flag,arg,desc,%g,val)
#define	const(val,desc)         printf ("%10d    %s\n", val, desc)

#endif STAT_H