head     1.2;
branch   ;
access   ;
symbols  ;
locks    gtoal:1.2;
comment  @ * @;


1.2
date     91.03.02.14.00.11;  author gtoal;  state Exp;
branches ;
next     1.1;

1.1
date     91.03.02.13.57.12;  author gtoal;  state Exp;
branches ;
next     ;


desc
@Initial release
@


1.2
log
@IAY's update
@
text
@/*
 * Main include file for tangle etc. in C
 *
 * Tim Morgan  2/11/88
 */

#include <stdio.h>
#include "site.h"

/*
 * Global routines implemented as macros, plus some type coercion stuff.
 */

#define	odd(x)		((x) % 2)
#define	putbyte(x,f)	putc(((x)&255), f)
#define	round(x)	zround((double)(x))
#define incr(x)		++x
#define	decr(x)		--x
#define	trunc(x)	( (integer) (x) )
#define	readln(f)	while (!feof(f) && getc(f) != '\n')
#define	read(f, b)	b = getc(f)
#define	input3ints(a,b,c)	zinput_3ints(&a, &b, &c)
#define zfseek(f,n,w)	(void) fseek(f, (long) n, (int) w)
#define eof(f)		feof(f)
#define	abs(x)		((x>=0)?(x):(-(x)))
#define	fabs(x)		((x>=0.0)?(x):(-(x)))
#define	Fputs(stream, s)	(void) fputs(s, stream)
#define rewrite(f,n)	f = openf(n+1, "w")
#define	reset(f,n)	f = openf(n+1, "r")
#define flush(f)	(void) fflush(f)
#define	true		1
#define	false		0
#define	chr(x)		(x)
#define	ord(x)		(x)
#define	vgetc(f)	(void) getc(f)
#define	uexit(x)	exit(x)

FILE *openf();

/*
 * Global Types
 */
typedef FILE	*text, *file_ptr;
typedef char	*ccharpointer;

/*
 * Global Data and Datastructures
 */

extern integer argc;
extern integer zround();
extern integer inputint();
@


1.1
log
@Initial revision
@
text
@@