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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
/* Main include file for this implementation. Everybody includes this. */
#ifndef EXTRA_H
#define EXTRA_H
#include <stdio.h>
#include "site.h"
/* pltotf et al. use the symbol `index' themselves; we don't want to
redefine it in those cases (and those programs don't use the other
string functions, fortunately). */
#ifndef index
#ifndef BSD
#include <string.h>
#define index strchr
#define rindex strrchr
#else /* BSD */
#include <strings.h>
#endif /* BSD */
#endif /* not index */
extern char *getenv (), *rindex ();
extern SPRINTF_RETURN_TYPE sprintf ();
/* Global constants. */
#define true 1
#define false 0
/* Path searching. The `...PATH' constants are used both as indices and
just as enumeration values. Their values must match the
initialization of `env_var_names' in extra.c. The `...PATHBIT'
constants are used in the argument to `setpaths'. */
#define BIBINPUTPATH 0
#define BIBINPUTPATHBIT (1 << BIBINPUTPATH)
#define GFFILEPATH 1
#define GFFILEPATHBIT (1 << GFFILEPATH)
#define MFBASEPATH 2
#define MFBASEPATHBIT (1 << MFBASEPATH)
#define MFINPUTPATH 3
#define MFINPUTPATHBIT (1 << MFINPUTPATH)
#define MFPOOLPATH 4
#define MFPOOLPATHBIT (1 << MFPOOLPATH)
#define PKFILEPATH 5
#define PKFILEPATHBIT (1 << PKFILEPATH)
#define TEXFORMATPATH 6
#define TEXFORMATPATHBIT (1 << TEXFORMATPATH)
#define TEXINPUTPATH 7
#define TEXINPUTPATHBIT (1 << TEXINPUTPATH)
#define TEXPOOLPATH 8
#define TEXPOOLPATHBIT (1 << TEXPOOLPATH)
#define TFMFILEPATH 9
#define TFMFILEPATHBIT (1 << TFMFILEPATH)
#define VFFILEPATH 10
#define VFFILEPATHBIT (1 << VFFILEPATH)
/* For some initializations of constant strings. */
typedef char *ccharpointer;
/* We need one global variable. */
extern integer argc;
/* Globally needed routines we can implement as macros. */
#define abs(x) ((x) >= 0 ? (x) : -(x)) /*Integer abs*/
#define fabs(x) ((x) >= 0.0 ? (x) : -(x)) /*real*/
#define odd(x) ((x) % 2)
#define ord(x) (x)
#define chr(x) (char)(x)
#define round(x) zround ((double) (x))
#define incr(x) ++(x)
#define decr(x) --(x)
#define toint(x) ((integer) (x))
#define trunc(x) ((integer) (x))
/* ``Unix exit'', since WEB already defines the symbol `exit'. */
#define uexit exit
#define dispose( x) ( free( (char*) x))
/* C doesn't distinguish between text files and other files. */
typedef FILE *file_ptr;
typedef file_ptr text[1] ;
/*File functions. All altered by RMD as you need an extra level of pointer*/
#define eof(f) test_eof (f)
#define flush(f) (void) fflush (*f)
#define Fputs(f, s) (void) fputs (s, *f) /* fixwrites outputs this. */
#define input3ints(a, b, c) zinput3ints (&a, &b, &c)
#define printreal(r, n, m) fprintreal (stdout, r, n, m)
#define putbyte(x, f) putc ((char) (x) & 255, *f)
#define read(f, b) ((b) = getc (*f))
#define readln(f) { register c; \
while ((c = getc (*f)) != '\n' && c != EOF); }
#define page(file) putc( '\f', *file)
/* Open files for reading and writing. */
#define reset(f, n) \
((*f) ? fclose (*f) : 0), (*f) = checked_fopen ((char *) (n), "r")
#define rewrite(f, n) \
(*f) = checked_fopen ((char *) (n), "w")
/* For throwing away input from the file F. */
#define vgetc(f) (void) getc (*f)
/* If we don't care that strcpy(3) returns A. */
#define vstrcpy(a, b) (void) strcpy (a, b)
/* Write out elements START through END of BUF to the file F. */
#define writechunk(f, buf, start, end) \
(void) fwrite (&buf[start], sizeof (buf[start]), end - start + 1, *f)
/* Like fseek(3), but cast the arguments and ignore the return value. */
#define checkedfseek(f, n, w) (void) fseek(*f, (long) n, (int) w)
/* Routines in extra.c and main.c. */
#ifdef ANSI
extern void argv (int, char[]);
extern FILE *checked_fopen (char *, char *);
extern boolean eoln (text);
extern void fprintreal (text, double, int, int);
extern integer inputint (text);
extern char *xmalloc (unsigned), *xrealloc (char *, unsigned);
extern integer zround (double);
#else /* not ANSI */
extern void argv ();
extern FILE *checked_fopen ();
extern boolean eoln ();
extern void fprintreal ();
extern integer inputint();
extern void fprintreal ();
extern char *xmalloc (), *xrealloc ();
extern integer zround ();
#endif /* not ANSI */
#endif /* not EXTRA_H */
|
