MultiSource/Benchmarks/Prolangs-C/TimberWolfMC/kenk.h

#include "port.h"

#define MAXNAMLEN 255

#define UNIX42

#define PRIVATE static
#define PUBLIC
#define PROC void
#define FORWARD extern
#define IMPORTS extern
#define EXPORTS extern

#define EOS '\0'
typedef char * String;

#define ELIF else if
#define LOOP for(;;)
#define AND &&
#define OR ||
#define NOT !

#define MAX(dragon,eagle) ((dragon) > (eagle) ? (dragon) : (eagle))
#define MIN(dragon,eagle) ((dragon) < (eagle) ? (dragon) : (eagle))
#define ABS(dragon) ((dragon) >= 0 ? (dragon) : (-(dragon)))
#define LOG2(x) log((double)(x))/.6931471806

#ifndef UNIX42
#define	CTRL(c) ('c' & 037)
#endif
#define	CTRLQ(c) (c & 037)

#define SEMP \
{\
  register int i;\
\
  for(i = 1;i < NSIG;++i)\
    sighold(i);\
}
#define SEMV \
{\
  register int i;\
\
  for(i = 1;i < NSIG;++i)\
    sigrelse(i);\
}

#define MAXINT 1000000000
#define MININT -1000000000

#define PI 3.14159

typedef char * RefAny;

#define ROUND(panther)\
((panther) >= 0\
? ((panther)-(int)(panther) >= .5\
  ? (int)(panther)+1\
  : (int)(panther))\
: (ABS((panther)-(int)(panther)) >= .5\
  ? (int)(panther)-1\
  : (int)(panther)))

#define ASSERT(ex)\
if(!(ex)) {\
  fprintf(stderr,"Assertion failed in file %s at line # %d.\n",\
  __FILE__, __LINE__);\
  fflush(stderr);\
  abort(); }