remove luaTeX code from texmfmp.h (unused)

git-svn-id: svn://tug.org/texlive/trunk@17711 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 0 insertions, 214 deletions

diff --git a/Build/source/texk/web2c/texmfmp.h b/Build/source/texk/web2c/texmfmp.h
index 5fc2ab6ae1e..8fa7aacf4b5 100644
--- a/Build/source/texk/web2c/texmfmp.h
+++ b/Build/source/texk/web2c/texmfmp.h
@@ -45,8 +45,6 @@ typedef void* voidpointer;
 #endif
 #endif
 
-#ifndef luaTeX /* everything */
-
 /* Some things are the same except for the name.  */
 #ifdef TeX
 #if defined (pdfTeX)
@@ -357,215 +355,3 @@ extern void do_undump (char *, int, int, FILE *);
 # endif
 #endif
 
-#else  /* this is for luaTeX */
-
-/* Some things are the same except for the name.  */
-
-#define TEXMFPOOLNAME "luatex.pool"
-#define TEXMFENGINENAME "luatex"
-
-#define DUMP_FILE fmt_file
-#define DUMP_FORMAT kpse_fmt_format
-#define write_dvi WRITE_OUT
-#define flush_dvi flush_out
-#define OUT_FILE dvi_file
-#define OUT_BUF dvi_buf
-
-/* Restore underscores.  */
-#define kpsetexformat kpse_tex_format
-#define mainbody main_body
-#define t_open_in topenin
-
-/* Hacks for TeX that are better not to #ifdef, see texmfmp.c.  */
-extern int tfmtemp, texinputtype;
-
-/* pdfTeX uses these for pipe support */
-extern boolean open_in_or_pipe (FILE **, int, const_string fopen_mode);
-extern boolean open_out_or_pipe (FILE **, const_string fopen_mode);
-extern void close_file_or_pipe (FILE *);
-
-/* Executing shell commands.  */
-extern void mk_shellcmdlist (const char *);
-extern void init_shell_escape (void);
-extern int shell_cmd_is_allowed (const char *cmd, char **safecmd, char **cmdname);
-extern int runsystem (const char *cmd);
-
-extern const_string dump_name;
-extern const_string c_job_name;
-extern char *last_source_name;
-extern int last_lineno;
-
-/* The entry point.  */
-extern void TEXDLL maininit (int ac, string *av);
-
-extern string normalize_quotes (const_string name, const_string mesg);
-
-#ifndef GLUERATIO_TYPE
-#define GLUERATIO_TYPE double
-#endif
-typedef GLUERATIO_TYPE glueratio;
-
-#if defined(__DJGPP__) && defined (IPC)
-#undef IPC
-#endif
-
-#ifdef IPC
-extern void ipcpage (int);
-#endif /* IPC */
-
-
-/* How to output to the GF or DVI file.  */
-#define	WRITE_OUT(a, b)							\
-  if (fwrite ((char *) &OUT_BUF[a], sizeof (OUT_BUF[a]),		\
-                 (int) ((b) - (a) + 1), OUT_FILE) 			\
-      != (int) ((b) - (a) + 1))						\
-    FATAL_PERROR ("fwrite");
-
-#define flush_out() fflush (OUT_FILE)
-
-/* Read a line of input as quickly as possible.  */
-#define	input_ln(stream, flag) input_line (stream)
-
-extern boolean input_line (FILE *);
-
-/* This routine has to return four values.  */
-#define	dateandtime(i,j,k,l) get_date_and_time (&(i), &(j), &(k), &(l))
-extern void get_date_and_time (integer *, integer *, integer *, integer *);
-
-/* Get high-res time info. */
-#define seconds_and_micros(i,j) get_seconds_and_micros (&(i), &(j))
-extern void get_seconds_and_micros (integer *, integer *);
-
-/* This routine has to return a scaled value. */
-extern integer getrandomseed (void);
-
-/* Copy command-line arguments into the buffer, despite the name.  */
-extern void topenin (void);
-
-/* Can't prototype this since it uses poolpointer and ASCIIcode, which
-   are defined later in mfd.h, and mfd.h uses stuff from here.  */
-/* Therefore the department of ugly hacks decided to move this declaration
-   to the *coerce.h files. */
-/* extern void calledit (); */
-
-/* Set an array size from texmf.cnf.  */
-extern void setupboundvariable (integer *, const_string, integer);
-
-/* These defines reroute the file i/o calls to the new pipe-enabled 
-   functions in texmfmp.c*/
-
-#undef aopenin
-#undef aopenout
-#undef aclose
-#define a_open_in(f,p)  open_in_or_pipe(&(f),p,FOPEN_RBIN_MODE)
-#define a_open_out(f)   open_out_or_pipe(&(f),FOPEN_W_MODE)
-#define a_close(f)     close_file_or_pipe(f)
-
-/* `bopenin' (and out) is used only for reading (and writing) .tfm
-   files; `wopenin' (and out) only for dump files.  The filenames are
-   passed in as a global variable, `nameoffile'.  */
-#define b_open_in(f)	open_input (&(f), kpse_tfm_format, FOPEN_RBIN_MODE)
-#define ocp_open_in(f)	open_input (&(f), kpse_ocp_format, FOPEN_RBIN_MODE)
-#define ofm_open_in(f)	open_input (&(f), kpse_ofm_format, FOPEN_RBIN_MODE)
-#define b_open_out(f)	open_output (&(f), FOPEN_WBIN_MODE)
-
-/* Used in tex.ch (section 1338) to get a core dump in debugging mode.  */
-#ifdef unix
-#define dumpcore abort
-#else
-#define dumpcore uexit (1)
-#endif
-
-#define b_close close_file
-/* (Un)dumping.  These are called from the change file.  */
-#define        dump_things(base, len) \
-  do_zdump ((char *) &(base), sizeof (base), (int) (len), DUMP_FILE)
-#define        undump_things(base, len) \
-  do_zundump ((char *) &(base), sizeof (base), (int) (len), DUMP_FILE)
-/* We define the routines to do the actual work in texmf.c.  */
-#define w_open_in(f)     zopen_w_input (&(f), DUMP_FORMAT, FOPEN_RBIN_MODE)
-#define w_open_out(f)    zopen_w_output (&(f), FOPEN_WBIN_MODE)
-#define w_close         zwclose
-
-extern boolean zopen_w_input (FILE **, int, const_string fopen_mode);
-extern boolean zopen_w_output (FILE **, const_string fopen_mode);
-extern void do_zdump (char *, int, int, FILE *);
-extern void do_zundump (char *, int, int, FILE *);
-extern void zwclose (FILE *);
-
-/* Like do_undump, but check each value against LOW and HIGH.  The
-   slowdown isn't significant, and this improves the chances of
-   detecting incompatible format files.  In fact, Knuth himself noted
-   this problem with Web2c some years ago, so it seems worth fixing.  We
-   can't make this a subroutine because then we lose the type of BASE.  */
-#define undump_checked_things(low, high, base, len)						\
-  do {                                                                  \
-    unsigned i;                                                         \
-    undump_things (base, len);                                           \
-    for (i = 0; i < (len); i++) {                                       \
-      if ((&(base))[i] < (low) || (&(base))[i] > (high)) {              \
-        FATAL5 ("Item %u (=%ld) of .fmt array at %lx <%ld or >%ld",     \
-                i, (unsigned long) (&(base))[i], (unsigned long) &(base),     \
-                (unsigned long) low, (integer) high);                         \
-      }                                                                 \
-    }																	\
-  } while (0)
-
-/* Like undump_checked_things, but only check the upper value. We use
-   this when the base type is unsigned, and thus all the values will be
-   greater than zero by definition.  */
-#define undump_upper_check_things(high, base, len)							\
-  do {                                                                  \
-    unsigned i;                                                         \
-    undump_things (base, len);                                           \
-    for (i = 0; i < (len); i++) {                                       \
-      if ((&(base))[i] > (high)) {										\
-        FATAL4 ("Item %u (=%ld) of .fmt array at %lx >%ld",				\
-                i, (unsigned long) (&(base))[i], (unsigned long) &(base),		\
-                (unsigned long) high);										\
-      }                                                                 \
-    }																	\
-  } while (0)
-
-/* We define the routines to do the actual work in texmf.c.  */
-extern void do_dump (char *, int, int, FILE *);
-extern void do_undump (char *, int, int, FILE *);
-
-/* Use the above for all the other dumping and undumping.  */
-#define generic_dump(x) dump_things (x, 1)
-#define generic_undump(x) undump_things (x, 1)
-
-#define dump_wd   generic_dump
-#define dump_hh   generic_dump
-#define dump_qqqq generic_dump
-#define undump_wd   generic_undump
-#define undump_hh   generic_undump
-#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.  */
-#if defined(REGFIX) || defined(WIN32)
-#define undump_int(x)							\
-  do									\
-    {									\
-      integer x_val;							\
-      generic_undump (x_val);						\
-      x = x_val;							\
-    }									\
-  while (0)
-#else
-#define	undump_int generic_undump
-#endif /* not (REGFIX || WIN32) */
-
-#endif /* luaTeX */