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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
/*##############################################################################
FUNNNELWEB COPYRIGHT
====================
FunnelWeb is a literate-programming macro preprocessor.
The FunnelWeb web is at http://www.ross.net/funnelweb/
Copyright (c) Ross N. Williams 1992. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the terms of Version 2 of the GNU General Public License as
published by the Free Software Foundation (http://www.gnu.org/).
This program is distributed WITHOUT ANY WARRANTY; without even the implied
warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See Version 2 of the GNU General Public License for more details.
You should have received a copy of Version 2 of the GNU General Public
License along with this program. If not, you can obtain a copy as follows:
ftp://prep.ai.mit.edu/pub/gnu/COPYING-2.0
or write to:
Free Software Foundation, Inc.,
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Section 2a of the license requires that all changes to this file be
recorded prominently in this file. Please record all changes here.
Programmers:
RNW Ross N. Williams (ross@ross.net)
Changes:
07-May-1992 RNW Program prepared for release under GNU GPL V2.
15-May-1999 RNW Modified ALIGN_POWER to cope with OSF.
15-May-1999 RNW Removed bogus SUN definitions.
##############################################################################*/
/******************************************************************************/
/* MACHIN.H */
/******************************************************************************/
/* */
/* WARNING: DO NOT ADD ANY PROGRAM DEPENDENT DEFINITIONS. */
/* */
/* This module (machin.h and machin.c) contains definitions and objects */
/* whose values depends directly on the compilation and execution */
/* environment, but are otherwise independent from any particular computer */
/* program. */
/* */
/* The only difference between the purpose of this module and the "environ" */
/* module is that the "environ" module contains the "essentials" whereas this */
/* module contains extra machine specific definitions and objects that will */
/* not be required by most user modules. */
/* */
/******************************************************************************/
/* Ensure that the body of this header file is included at most once. */
#ifndef DONE_FWMACHIN
#define DONE_FWMACHIN
/******************************************************************************/
#include <time.h>
#include "style.h"
/******************************************************************************/
/* Machine Alignment Constraints */
/* ----------------------------- */
/* Some machines require that objects of particular lengths be aligned in */
/* memory. For example, the 68000 will trap any attempt to access a word */
/* (16 bits or an int in THINK C) at an odd address. It is important that C */
/* programs that deal with memory at a low level be aware of such */
/* constraints. As the constraints are always at a power of two, we defined */
/* ALIGN_POWER to be the minimum power of two at which it is both safe and */
/* efficient to operate. */
BEGIN_OS
#if OS_VMS || OS_DOS || OS_W32 || OS_MAC
#define ALIGN_POWER 1L
#endif
#if OS_UNX
#if OS_OSF
#define ALIGN_POWER 3L
#else
#define ALIGN_POWER 2L
#endif
#endif
END_OS
/******************************************************************************/
/* Filenames */
/* --------- */
/* The length and structure of filenames varies from machine to machine. The */
/* differences addressed here are: */
/* 1) The character used to separate directory specs from filenames. */
/* 2) The maximum length of a filename. */
/* FN_DELIM must contain the character that separates directory specs from */
/* filenames. Notice that in the VMS case, it is "]", not "." */
#if OS_MAC
#define FN_DELIM ':'
#endif
#if OS_UNX
#define FN_DELIM '/'
#endif
#if OS_VMS
#define FN_DELIM ']'
#endif
#if OS_DOS | OS_W32
#define FN_DELIM '\\'
#endif
/* FILENAME_MAX should be defined in stdio.h (ANSI S7.9.1), but isn't always. */
/* On most systems, FILENAME_MAX is the maximum length of a pathname. */
/* However, on other systems, it means the maximum of just the filename part */
/* of the pathname. So we have to do some fudging. */
#ifndef FILENAME_MAX
#define PATHNAME_MAX 300
#else
#if OS_VMS || OS_HPU
#define PATHNAME_MAX 300
#else
#define PATHNAME_MAX (FILENAME_MAX)
#endif
#endif
/* Now we can use the constant to define a filename type. */
/* Note: For a while I defined "typedef fn_t *p_fn_t". However, this is a */
/* pointer to an array rather than (char *) and it caused no end of problems. */
typedef char fn_t[PATHNAME_MAX+1];
typedef char *p_fn_t;
/******************************************************************************/
/* Command Lines */
/* ------------- */
/* The maximum length of command line varies from machine to machine and we */
/* define symbols to reflect this. The reason why we don't just set this to a */
/* high value and forget about it is that FunnelWeb sometimes places */
/* command line variables on the stack, and some machines (e.g. MAC under */
/* THINK-C don't provide much stack space. So we have to minimize this */
/* variable on those machines. */
/* We choose a small maximum command line on the Macintosh so as to avoid */
/* chewing up stack space when command lines have to be pushed. */
#if OS_MAC
#define COMLINE_MAX 300
#endif
/* On the Sun, 1024 is a normal command line and 2048 is safe. */
#if OS_UNX
#define COMLINE_MAX 2048
#endif
/* On the VMS, 1024 is usually adequate. */
#if OS_VMS
#define COMLINE_MAX 1024
#endif
/* On a PC, we assume this is enough. */
#if OS_DOS | OS_W32
#define COMLINE_MAX 300
#endif
/* Make sure that the value is not too low. */
/* The value 300 is guaranteed by the command interpreter. */
#if COMLINE_MAX < 300
#error COMLINE_MAX must be at least 300.
#endif
/* Now define a type for command lines. */
/* Note: For a while I defined "typedef cl_t *p_cl_t". However, this is a */
/* pointer to an array rather than (char *) and it caused no end of problems. */
typedef char cl_t[COMLINE_MAX+1];
typedef char *p_cl_t;
/******************************************************************************/
/* Line Termination */
/* ---------------- */
/* FunnelWeb has special-case code to make reading input files faster on */
/* machines where the format of text files corresponds to the internal C */
/* text stream model. The UNIX_EOL #define should be activated if and only */
/* the host environment has text files consisting of a stream of bytes with */
/* a single LF (ASCII,decimal-10,hex-0A) character being used to terminate */
/* each line, and no special character to indicate end of file. */
/* This is the same format as is used in the Unix operating system. */
/* If you are in doubt about this, play it safe and define your environment */
/* to be non-Unix, as non-Unix will work on ALL systems (including Unix). */
#if !OS_UNX
/* These systems do NOT use Unix EOLs. */
#define UNIX_EOL 0
#else
/* This should really be 1 on a SUN, but I haven't got around to debugging */
/* FunnelWeb with UNIX_EOL==1. */
#define UNIX_EOL 0
#endif
/******************************************************************************/
EXPORT void fn_ins P_((p_fn_t,char *));
/* - The name stands for FileName INSert. */
/* - The first argument must be a pointer to an object of type fn_t */
/* (containing an ordinary C character string). */
/* - The second argument must be a pointer to an ordinary C character string. */
/* - Both arguments must contain a full, partial, or empty filename spec. */
/* - We will refer to the arguments as f1 and f2. */
/* - If there is a syntax error in either spec, fn_ins does nothing. */
/* - Otherwise, it: */
/* 1. Analyses the two filename specifications into filename field . */
/* 2. Replaces each field in f1 by the corresponding field in f2, but */
/* only if the corresponding field in f2 is non-empty. */
/* 3. Optionally [concession to VMS] it may then replace blank fields */
/* in the resulting file spec in f1 by fields from the current */
/* global "default" directory spec. */
/* The structure and fields of filenames will vary from machine to machine */
/* and so this is not important. However, every implementation must structure */
/* the filename so that it will at least RECOGNISE a file extension */
/* (e.g. ".lis") field. */
/******************************************************************************/
EXPORT void getcline P_((int,char **,char *));
/* Operating system environments vary a lot in the way in which their command */
/* language interfaces are set up. The approach taken in FunnelWeb is to */
/* define a "standard" Unix-like command line syntax and then insist that */
/* other environments deliver such a command line as a single string. */
/* This function getcline must extract such a standard command line from its */
/* environment and copy it as a single string of not more than COMLINE_MAX */
/* characters into its third argument. A description of the "standard" */
/* command line can be found in the options package. */
/* The first argument is given to getcline and is argc from main(). */
/* The second argument is given to getcline and is argv from main(). */
/* These two arguments are given in case getcline needs them to assemble the */
/* command line (as opposed to calling e.g. VMS CLI routines). */
/* The third argument is the string into which the result should be placed. */
/******************************************************************************/
EXPORT float tim_real P_((void));
/* Returns the number of seconds between the present and an unspecified, but */
/* statically fixed time in the past. */
/* Returns 0.0 if this information is unavailable */
EXPORT float tim_cpu P_((void));
/* Returns the number of CPU seconds consumed between the present and an */
/* unspecified, but statically fixed time in the past. */
/* Returns 0.0 if this information is unavailable */
/******************************************************************************/
/* For #ifndef preventing multiple inclusion of the body of this header file. */
#endif
/******************************************************************************/
/* End of MACHIN.H */
/******************************************************************************/
|
