Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301 USA. */
-#include "config.h"
-/*
-#include <kpathsea/config.h>
-#include <kpathsea/ctype.h>
-#include <kpathsea/line.h>
-#include <kpathsea/readable.h>
-#include <kpathsea/variable.h>
-#include <kpathsea/absolute.h>
-#ifdef WIN32
-#include <kpathsea/concatn.h>
-#endif
- */
+#include "yandytex.h"
+
#include <stdarg.h>
#ifdef _MSC_VER
#define INLINE inline
#endif
-/* 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
-
#ifdef TeX
- #define dump_file fmt_file
- #define dump_path TEXFORMATPATH
+ #define dump_file fmt_file
+ #define dump_path TEXFORMATPATH
#define mwrite_out write_dvi
- #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
+ #define out_file dvi_file
+ #define out_buf dvi_buf
#endif /* not TeX */
-/* File types. */
-typedef FILE *byte_file, *word_file;
+/* File types. */
+typedef FILE * byte_file;
+typedef FILE * word_file;
/* 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(); */
-
+#define input_ln(stream, flag) input_line(stream)
/* We need to read an integer from stdin if we're debugging. */
#ifdef DEBUG
-#define getint() inputint (stdin)
+ #define getint() inputint(stdin)
#else
-#define getint()
+ #define getint()
#endif
/* `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
+#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))
+/* sec 0241 */
+#define fix_date_and_time() get_date_and_time (&(tex_time), &(day), &(month), &(year))
/* 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
#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 write_dvi(a, b) \
- (void) fwrite ((char *) &dvi_buf[a], sizeof (dvi_buf[a]), \
- (int) ((b) - (a) + 1), dvi_file) */
-#define write_dvi(a, b) \
- if (fwrite ((char *) &dvi_buf[a], sizeof (dvi_buf[a]), \
- (int) ((b) - (a) + 1), dvi_file) != (size_t) ((b) - (a) + 1)) \
+#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")
-#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 */
-
-/* #error WE APPEAR TO BE USING SYSTEM CALLS WITH ERROR CHECKING! */
-/* USE fwrite(...) instead of write(fileno (...)) ! */
-
-#ifdef TeX
-#define write_dvi(start, end) \
- if (write (fileno (dvi_file), (char *) &dvi_buf[start], \
- (int) ((end) - (start) + 1)) \
- != (int) ((end) - (start) + 1)) \
- FATAL_PERROR ("\n! dvi 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 *);
/* Reading and writing the dump files. `(un)dumpthings' is called from
the change file.*/
#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_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); \
- } \
+#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); \
+#define undump_int(x) \
+ do \
+ { \
+ integer x_val; \
+ generic_undump (x_val); \
x = 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)
/* 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]
/* 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 bool input_line();
\ No newline at end of file
OSDN Git Service
