Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301 USA. */
-#include "config.h"
-#include <stdarg.h>
-#ifdef _MSC_VER
- #define INLINE __inline
-#else
- #define INLINE inline
-#endif
+#include "yandytex.h"
-/* need io.h for write() - bkph */
-
-#ifdef MSDOS
-/* #include <io.h> */ /* conflict with read() in pascal.h ??? */
-//int __cdecl write(int, const void *, unsigned int);
-#endif
+enum
+{
+ out_dvi_flag = (1 << 0),
+ out_pdf_flag = (1 << 1),
+ out_xdv_flag = (1 << 2),
+ out_dpx_flag = (1 << 3),
+};
-#ifdef TeX
- #define dump_file fmt_file
- #define dump_path TEXFORMATPATH
- #define mwrite_out writedvi
- #define out_file dvi_file
- #define out_buf dvi_buf
-#else /* not TeX */
- #define dump_file basefile
- #define dump_path MFBASEPATH
- #define write_out writegf
- #define out_file gffile
- #define out_buf gfbuf
-#endif /* not TeX */
-
-
-\f
-/* File types. */
-typedef FILE *byte_file, *word_file;
-\f
/* Read a line of input as quickly as possible. */
-#define input_ln(stream, flag) input_line (stream)
-extern bool input_line (FILE *);
-/* was extern bool input_line(); */
-
-
-/* We need to read an integer from stdin if we're debugging. */
-#ifdef DEBUG
-#define getint() inputint (stdin)
-#else
-#define getint()
-#endif
+extern boolean input_line (FILE *);
+#define input_ln(stream, flag) input_line(stream)
-
-\f
-/* `b_open_in' (and out) is used only for reading (and writing) .tfm
- files; `w_open_in' (and out) only for dump files. The filenames are
- passed in as a global variable, `name_of_file'. */
-
-#define b_open_in(f) open_input (&(f), TFMFILEPATH, FOPEN_RBIN_MODE)
-#define w_open_in(f) open_input (&(f), dump_path, FOPEN_RBIN_MODE)
+#define b_open_in(f) open_input (&(f), TFMFILEPATH, FOPEN_RBIN_MODE)
+#define w_open_in(f) open_input (&(f), TEXFORMATPATH, FOPEN_RBIN_MODE)
#define b_open_out(f) open_output (&(f), FOPEN_WBIN_MODE)
-#define w_open_out b_open_out
-#define b_close a_close
-#define w_close a_close
-
-/* This routine has to return four values. */
-#define dateandtime(i, j, k, l) get_date_and_time (&(i), &(j), &(k), &(l))
+#define w_open_out b_open_out
+#define b_close a_close
+#define w_close a_close
+#define gz_w_close gzclose
+/* sec 0241 */
+extern void fix_date_and_time(void);
-\f
/* If we're running under Unix, use system calls instead of standard I/O
to read and write the output files; also, be able to make a core dump. */
#ifndef unix
- #define dumpcore() exit (1)
+ #define dumpcore() exit(1)
#else /* unix */
- #define dumpcore abort
+ #define dumpcore abort
#endif
-/* #ifndef unix */ /* change bkph 93/Nov/26 */
-/* #if ! defined unix && ! defined MSDOS */
-#ifndef unix /* changed back bkph 93/Dec/28 fixed macro */
-
-/* This was horseshit, since for MSDOS it did no errors checking! - bkph */
-#ifdef TeX
-/* #define writedvi(a, b) \
- (void) fwrite ((char *) &dvi_buf[a], sizeof (dvi_buf[a]), \
- (int) ((b) - (a) + 1), dvi_file) */
-#define writedvi(a, b) \
- if (fwrite ((char *) &dvi_buf[a], sizeof (dvi_buf[a]), \
- (int) ((b) - (a) + 1), dvi_file) != (size_t) ((b) - (a) + 1)) \
- FATAL_PERROR ("\n! dvi file")
-#else
-#define writegf(a, b) \
-/* (void) fwrite ((char *) &gfbuf[a], sizeof (gfbuf[a]), \
- (int) ((b) - (a) + 1), gffile) */
- if (fwrite ((char *) &gfbuf[a], sizeof (gfbuf[a]), \
- (int) ((b) - (a) + 1), gffile) != (size_t) ((end) - (start) + 1)) \
- FATAL_PERROR ("\n! gf file")
-#endif /* not TeX */
-
-#else /* unix */
+//#define write_dvi(a, b) \
+// if ((size_t) fwrite ((char *) &dvi_buf[a], sizeof (dvi_buf[a]), \
+// (size_t) ((size_t)(b) - (size_t)(a) + 1), dvi_file) \
+// != (size_t) ((size_t)(b) - (size_t)(a) + 1)) \
+// FATAL_PERROR ("\n! dvi file")
-/* #error WE APPEAR TO BE USING SYSTEM CALLS WITH ERROR CHECKING! */
-/* USE fwrite(...) instead of write(fileno (...)) ! */
-#ifdef TeX
-#define writedvi(start, end) \
- if (write (fileno (dvi_file), (char *) &dvi_buf[start], \
- (int) ((end) - (start) + 1)) \
- != (int) ((end) - (start) + 1)) \
- FATAL_PERROR ("\n! dvi file")
+#ifdef COMPACTFORMAT
+extern int do_dump (char *, int, int, gzFile);
+extern int do_undump (char *, int, int, gzFile);
+#define dump_file gz_fmt_file
#else
-#define writegf(start, end) \
- if (write (fileno (gffile), (char *) &gfbuf[start], \
- (int) ((end) - (start) + 1)) \
- != (int) ((end) - (start) + 1)) \
- FATAL_PERROR ("\n! gf file")
-#endif /* not TeX */
-#endif /* unix */
-
+extern int do_dump (char *, int, int, FILE *);
+extern int do_undump (char *, int, int, FILE *);
+#define dump_file fmt_file
+#endif
-/* Reading and writing the dump files. `(un)dumpthings' is called from
- the change file.*/
-#define dumpthings(base, len) \
- do_dump ((char *) &(base), sizeof (base), (int) (len), dump_file)
+#define dumpthings(base, len) \
+ do_dump ((char *) &(base), sizeof (base), (int) (len), dump_file)
-#define undumpthings(base, len) \
+#define undumpthings(base, len) \
do_undump ((char *) &(base), sizeof (base), (int) (len), dump_file)
-/* We define the routines to do the actual work in texmf.c. */
-// extern void do_dump (char *, int, int, FILE *);
-extern int do_dump (char *, int, int, FILE *);
-/* extern void do_dump(); */
-// extern void do_undump (char *, int, int, FILE *);
-extern int do_undump (char *, int, int, FILE *);
-/* extern void do_undump(); */
-
/* Use the above for all the other dumping and undumping. */
-#define generic_dump(x) dumpthings (x, 1)
-#define generic_undump(x) undumpthings (x, 1)
+#define generic_dump(x) dumpthings(x, 1)
+#define generic_undump(x) undumpthings(x, 1)
-#define dump_wd generic_dump
-#define undump_wd generic_undump
-#define dump_hh generic_dump
-#define undump_hh generic_undump
+#define dump_wd generic_dump
+#define undump_wd generic_undump
+#define dump_hh generic_dump
+#define undump_hh generic_undump
#define dump_qqqq generic_dump
-#define undump_qqqq generic_undump
-
-/* `dump_int' is called with constant integers, so we put them into a
- variable first. */
-#define dump_int(x) \
- do \
- { \
- integer x_val = (x); \
- generic_dump (x_val); \
- } \
- while (0)
-
-/* web2c/regfix puts variables in the format file loading into
- registers. Some compilers aren't willing to take addresses of such
- variables. So we must kludge. */
-#ifdef REGFIX
-#define undump_int(x) \
- do \
- { \
- integer x_val; \
- generic_undump (x_val); \
- x = x_val; \
- } \
+#define undump_qqqq generic_undump
+
+#define dump_int(x) \
+ do \
+ { \
+ integer x_val = (x); \
+ generic_dump (x_val); \
+ } \
while (0)
-#else
-#define undump_int generic_undump
-#endif
-/* Metafont wants to write bytes to the TFM file. The casts in these
- routines are important, since otherwise memory is clobbered in some
- strange way, which causes ``13 font metric dimensions to be
- decreased'' in the trap test, instead of 4. */
-
-#define bwritebyte(f, b) putc ((char) (b), f)
-#define bwrite2bytes(f, h) \
- do \
- { \
- integer v = (integer) (h); \
- putc (v >> 8, f); putc (v & 0xff, f); \
- } \
- while (0)
-#define bwrite4bytes(f, w) \
- do \
- { \
- integer v = (integer) (w); \
- putc (v >> 24, f); putc (v >> 16, f); \
- putc (v >> 8, f); putc (v & 0xff, f); \
- } \
- while (0)
+#define undump_int generic_undump
-
-\f
-/* If we're running on an ASCII system, there is no need to use the
- `xchr' array to convert characters to the external encoding. */
-/* #ifdef NONASCII */
-/* #define Xchr(x) xchr[x] */
-/* #else */
-/* #define Xchr(x) ((char) (x)) */
-/* #endif */
-
-/* Following used in tex0.c - make possible to use non ASCII */
-
-#define Xchr(x) xchr[x]
-
-/* following added from new texmf.c file 1996/Jan/12 */
-/* these, of course are useless definitions since parameters not given */
-
-/* Declare routines in texmf.c. */
-extern void get_date_and_time();
-extern void t_open_in();
-// extern void call_edit();
-// extern int call_edit();
-extern bool extensionirrelevantp();
-extern bool input_line();
-// extern void do_dump();
-// extern void do_undump();
-
-#ifdef TeX
-extern bool maketextex();
-extern bool maketextfm();
-#else
-extern void main_body();
-extern bool initscreen();
-extern bool maketexmf();
-extern void updatescreen();
-extern void blankrectangle();
-extern void paintrow();
-#endif /* not TeX */
+extern void t_open_in();
\ No newline at end of file
OSDN Git Service
