summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/texmfmp.h
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2010-04-05 14:11:17 +0000
committerTaco Hoekwater <taco@elvenkind.com>2010-04-05 14:11:17 +0000
commit6401b4982ecee1b9a4bf4d620879dec381c25f5c (patch)
tree7144e3a852fd7b2c9831e58122e91fe940e7f0e5 /Build/source/texk/web2c/texmfmp.h
parent98a1075d9e427a19521f2c992f27927dd5a44792 (diff)
remove luaTeX code from texmfmp.h (unused)
git-svn-id: svn://tug.org/texlive/trunk@17711 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/texmfmp.h')
-rw-r--r--Build/source/texk/web2c/texmfmp.h214
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 */