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