diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/luatexdir/tex/dumpdata.h | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (diff) |
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/tex/dumpdata.h')
-rw-r--r-- | Build/source/texk/web2c/luatexdir/tex/dumpdata.h | 114 |
1 files changed, 0 insertions, 114 deletions
diff --git a/Build/source/texk/web2c/luatexdir/tex/dumpdata.h b/Build/source/texk/web2c/luatexdir/tex/dumpdata.h deleted file mode 100644 index 933dcfa1f0d..00000000000 --- a/Build/source/texk/web2c/luatexdir/tex/dumpdata.h +++ /dev/null @@ -1,114 +0,0 @@ -/* dumpdata.h - - Copyright 2009, 2012 Taco Hoekwater <taco@luatex.org> - - This file is part of LuaTeX. - - LuaTeX is free software; you can redistribute it and/or modify it under - the terms of the GNU General Public License as published by the Free - Software Foundation; either version 2 of the License, or (at your - option) any later version. - - LuaTeX is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public - License for more details. - - You should have received a copy of the GNU General Public License along - with LuaTeX; if not, see <http://www.gnu.org/licenses/>. */ - - -#ifndef DUMPDATA_H -# define DUMPDATA_H - -extern str_number format_ident; -extern str_number format_name; /* principal file name */ -extern FILE *fmt_file; /* for input or output of format information */ - -extern void store_fmt_file(void); -extern boolean load_fmt_file(const char *); - -/* (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) - -extern void do_zdump(char *, int, int, FILE *); -extern void do_zundump(char *, int, int, 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, (unsigned long) 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) - -/* 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 \ - { \ - int 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 \ - { \ - int x_val; \ - generic_undump (x_val); \ - x = x_val; \ - } \ - while (0) -# else -# define undump_int generic_undump -# endif /* not (REGFIX || WIN32) */ - - - - -#endif |