/* cpascal.h: implement various bits of standard and other Pascal that
we use in the change files. Public domain.
This is the top-level include file for all the web2c-generated C
programs except TeX and Metafont themselves, which use texmf.h. It's
not included by the web2c programs, though. */
/* We must include this first, to resolve many C issues. */
#include <w2c/config.h>
/* We only use getopt in the applications, not in web2c itself. */
#include <kpathsea/getopt.h>
/* Almost everybody needs path searching. May as well always include
them and simplify the change files. */
#include <kpathsea/progname.h>
#include <kpathsea/proginit.h>
#include <kpathsea/tex-file.h>
#include <kpathsea/variable.h>
/* Pieces of predefined Pascal web2c doesn't convert. */
/* Absolute value. Without the casts to integer here, the Ultrix and
AIX compilers (at least) produce bad code (or maybe it's that I don't
understand all the casting rules in C) for tests on memory fields.
Specifically, a test in diag_round (in Metafont) on a quarterword
comes out differently without the cast, thus causing the trap test to
fail. (A path at line 86 is constructed slightly differently). */
/* If the system had an abs #define already, get rid of it. */
#undef abs
#define abs(x) ((integer)(x) >= 0 ? (integer)(x) : (integer)-(x))
#define floorunscaled(i) ((i)>>16)
#define floorscaled(i) ((i)&(-65536))
#define roundunscaled(i) ((((i)>>15)+1)>>1)
#define roundfraction(i) ((((i)>>11)+1)>>1)
#ifndef TeX
/* In TeX, the half routine is always applied to positive integers.
In MF and MP, it isn't; therefore, we can't portably use the C shift
operator -- whether zeros or the sign bit will be shifted in on
negative left operands is implementation-defined.
It might be worth going through MF and using halfp where possible, as
in MP. */
#define half(i) ( ((i)<0) ? (((i)+1)>>1) : ((i)>>1) )
#endif
#define halfp(i) ((i) >> 1)
/* Standard Pascal file routines. These are used for both binary and
text files, but binary is more common. If you want it 100% right,
fix the change files to pass the fopen mode to reset in all cases and
send me the changes; it doesn't matter for Unix, so I'm not going to
spend any more time on it. */
#define reset(f,n) f = xfopen (n, FOPEN_R_MODE)
#define rewrite(f,n) f = xfopen (n, FOPEN_W_MODE)
#define resetbin(f,n) f = xfopen (n, FOPEN_RBIN_MODE)
#define rewritebin(f,n) f = xfopen (n, FOPEN_WBIN_MODE)
/* We hope this will be efficient than the `x = x - 1' that decr would
otherwise be translated to. Likewise for incr. */
#define decr(x) --(x)
#define incr(x) ++(x)
/* `real' is used for noncritical floating-point stuff. */
typedef double real;
/* C doesn't need to distinguish between text files and other files. */
typedef FILE *text;
/* Extra stuff used in various change files for various reasons. */
/* Pascal has no address-of operator, and we need pointers to integers
to set up the option table. */
#define addressof(x) (&(x))
/* So dvicopy can use stdin/stdout. */
#if defined (__DJGPP__) || defined (WIN32)
#include <io.h>
/* Don't set console device to binary. */
#define makebinaryfile(arg) ((!isatty(fileno(arg)) && setmode(fileno(arg), O_BINARY)), arg)
#else
#define makebinaryfile(arg) (arg)
#endif
/* It's not worth fixing fixwrites to handle Pascal-style n:m write
specifiers for reals, so the change files call print_real instead. */
#define printreal(r,n,m) fprintreal (stdout, r, n, m)
/* Write the byte X to the file F. */
#define putbyte(x,f) \
do { if (putc ((char) (x) & 255, f) == EOF) \
FATAL1 ("putbyte(%ld) failed", (long) x); } while (0)
/* To work around casting problems. */
#define intcast(x) ((integer) (x))
#define stringcast(x) ((string) (x))
#define conststringcast(x) ((const_string) (x))
/* For throwing away input from the file F. */
#define vgetc(f) (void) getc (f)
/* The fixwrites program outputs this, for diagnostics and such, that
aren't worth checking the return value on. */
#define Fputs(f,s) (void) fputs (s, f)
/* `aopenin' is used for all kinds of input text files, so it
needs to know what path to use. Used by BibTeX, MF, TeX. */
#define aopenin(f,p) open_input (&(f), p, FOPEN_RBIN_MODE)
#define aopenout(f) open_output (&(f), FOPEN_W_MODE)
#define aclose close_file
/* For faking arrays in tftopl. */
typedef unsigned char *pointertobyte;
#define casttobytepointer(e) ((pointertobyte) e)
/* Write out elements START through END of BUF to the file F. For gftodvi. */
#define writechunk(f, buf, start, end) \
(void) fwrite (&buf[start], sizeof (buf[start]), end - start + 1, f)
/* We need this only if TeX is being debugged. */
#define input3ints(a,b,c) zinput3ints (&a, &b, &c)
/* Allocate an array of a given type. Add 1 to size to account for the
fact that Pascal arrays are used from [1..size], unlike C arrays which
use [0..size). */
#define xmallocarray(type,size) ((type*)xmalloc((size+1)*sizeof(type)))
/* Same for reallocating an array. */
#define xreallocarray(ptr,type,size) ((type*)xrealloc(ptr,(size+1)*sizeof(type)))
/* Allocate and clear an array of a given type. Add 1 to nmemb and size. */
#define xcallocarray(type,nmemb,size) ((type*)xcalloc(nmemb+1,(size+1)*sizeof(type)))
/* BibTeX needs this to dynamically reallocate arrays. Too bad we can't
rely on stringification, or we could avoid the ARRAY_NAME arg.
Actually allocate one more than requests, so we can index the last
entry, as Pascal wants to do. */
#define BIBXRETALLOCNOSET(array_name, array_var, type, size_var, new_size) \
fprintf (logfile, "Reallocated %s (elt_size=%ld) to %ld items from %ld.\n", \
array_name, (long) sizeof (type), (long) new_size, (long) size_var); \
XRETALLOC (array_var, new_size + 1, type)
/* Same as above, but also increase SIZE_VAR when no more arrays
with the same size parameter will be resized. */
#define BIBXRETALLOC(array_name, array_var, type, size_var, new_size) do { \
BIBXRETALLOCNOSET(array_name, array_var, type, size_var, new_size); \
size_var = new_size; \
} while (0)
/* Same as above, but for the pseudo-TYPE ASCII_code[LENGTH+1]. */
#define BIBXRETALLOCSTRING(array_name, array_var, length, size_var, new_size) \
fprintf (logfile, "Reallocated %s (elt_size=%ld) to %ld items from %ld.\n", \
array_name, (long) (length + 1), (long) new_size, (long) size_var); \
XRETALLOC (array_var, (new_size) * (length + 1), ASCIIcode)
/* Need precisely int for getopt, etc. */
#define cinttype int
/* Need this because web2c doesn't translate `var1,var2:^char' correctly
-- var2 lacks the *. */
#define cstring string
#define constcstring const_string
/* For strings of unsigned chars, used as array indices. */
#define constw2custring const_w2custring
typedef unsigned char *w2custring;
typedef const unsigned char *const_w2custring;
/* Not all C libraries have fabs, so we'll roll our own. */
#undef fabs
#define fabs(x) ((x) >= 0.0 ? (x) : -(x))
/* TeX et al. have a variable free, but we also need the C routine. */
#define libcfree free
/* We have a system-dependent prompt in tex.ch. We don't want it in the
string pool, since (now that the pools are compiled into the
binaries), that would make the .fmt unsharable. So go through this
circumlotion to print a C string. The lack of the closing ) is
intentional, since the code adds more text sometimes. Although the
eof character can be changed with stty or whatever, we're certainly
not going to try to extract the actual value from a terminal struct.
Anyone who is savvy enough to change it will not be confused. */
#ifdef WIN32
#define promptfilenamehelpmsg "(Press Enter to retry, or Control-Z to exit"
#else
#define promptfilenamehelpmsg "(Press Enter to retry, or Control-D to exit"
#endif
/* We use this rather than a simple fputs so that the string will end up
in the .log file, too. */
#define printcstring(STR) \
do { \
const_string ch_ptr = (STR); \
while (*ch_ptr) \
printchar(*(ch_ptr++)); \
} while (0)
/* We need a new type for the argument parsing, too. */
typedef struct option getoptstruct;
/* We never need the `link' system call, which may be declared in
<unistd.h>, but we do have variables named `link' in the webs. */
#undef link
#define link link_var
/* Throw away VMS' library routine `getname', as WEB uses that name. */
#ifdef VMS
#undef getname
#define getname vms_getname
#endif
/* Apparently POSIX 2008 has getline and glibc 2.9.90 exports it.
tangle, weave, et al. use that symbol; try to define it away so
something that a standard won't usurp. */
#ifdef getline
#undef getline
#endif
#define getline web2c_getline
/* Declarations for the routines we provide ourselves in lib/. */
#include "lib/lib.h"
