From 6401b4982ecee1b9a4bf4d620879dec381c25f5c Mon Sep 17 00:00:00 2001 From: Taco Hoekwater Date: Mon, 5 Apr 2010 14:11:17 +0000 Subject: remove luaTeX code from texmfmp.h (unused) git-svn-id: svn://tug.org/texlive/trunk@17711 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/texmfmp.h | 214 -------------------------------------- 1 file changed, 214 deletions(-) (limited to 'Build/source/texk/web2c/texmfmp.h') 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 */ -- cgit v1.2.3