ghc/utils/hp2ps/Main.h

   1 #ifndef MAIN_H
   2 #define MAIN_H
   3
   4 #ifdef __STDC__
   5 #define PROTO(x)        x
   6 #else
   7 #define PROTO(x)        ()
   8 #endif
   9
  10 /* our own ASSERT macro (for C) */
  11 #ifndef DEBUG
  12 #define ASSERT(predicate) /*nothing*/
  13
  14 #else
  15 void _ghcAssert PROTO((char *, unsigned int));
  16
  17 #define ASSERT(predicate)                       \
  18         if (predicate)                          \
  19             /*null*/;                           \
  20         else                                    \
  21             _ghcAssert(__FILE__, __LINE__)
  22 #endif
  23
  24 /* partain: some ubiquitous types: floatish & intish.
  25    Dubious to use float/int, but that is what it used to be...
  26    (WDP 95/03)
  27 */
  28 typedef double  floatish;
  29 typedef double  doublish; /* higher precision, if anything; little used */
  30 typedef long    intish;
  31 typedef int     boolish;
  32
  33 extern intish nsamples;
  34 extern intish nmarks;
  35 extern intish nidents;
  36
  37 extern floatish maxcombinedheight;
  38 extern floatish areabelow;
  39 extern floatish epsfwidth;
  40
  41 extern floatish xrange;
  42 extern floatish yrange;
  43
  44 extern floatish auxxrange;
  45 extern floatish auxyrange;
  46
  47 extern boolish eflag;
  48 extern boolish gflag;
  49 extern boolish yflag;
  50 extern boolish bflag;
  51 extern boolish sflag;
  52 extern int     mflag;
  53 extern boolish tflag;
  54
  55 extern char *programname;
  56
  57 extern char *hpfile;
  58 extern char *psfile;
  59 extern char *auxfile;
  60
  61 extern FILE *hpfp;
  62 extern FILE *psfp;
  63 extern FILE *auxfp;
  64
  65 #endif /* MAIN_H */