source/texk/web2c/luatexdir/tex/memoryword.w

   1 % memoryword.w
   2 %
   3 % Copyright 2009-2010 Taco Hoekwater <taco@@luatex.org>
   4 %
   5 % This file is part of LuaTeX.
   6 %
   7 % LuaTeX is free software; you can redistribute it and/or modify it under
   8 % the terms of the GNU General Public License as published by the Free
   9 % Software Foundation; either version 2 of the License, or (at your
  10 % option) any later version.
  11 %
  12 % LuaTeX is distributed in the hope that it will be useful, but WITHOUT
  13 % ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 % FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  15 % License for more details.
  16 %
  17 % You should have received a copy of the GNU General Public License along
  18 % with LuaTeX; if not, see <http://www.gnu.org/licenses/>.
  19
  20 @ @c
  21
  22
  23 #include "ptexlib.h"
  24
  25 @ When debugging, we may want to print a |memory_word| without knowing
  26 what type it is; so we print it in all modes.
  27
  28 @c
  29 #ifdef DEBUG
  30 void print_word(memory_word w)
  31 {
  32     /* prints |w| in all ways */
  33     print_int(w.cint);
  34     print_char(' ');
  35     print_scaled(w.cint);
  36     print_char(' ');
  37     print_scaled(round(unity * float_cast(w.gr)));
  38     print_ln();
  39     print_int(w.hh.lhfield);
  40     print_char('=');
  41     print_int(w.hh.b0);
  42     print_char(':');
  43     print_int(w.hh.b1);
  44     print_char(';');
  45     print_int(w.hh.rh);
  46     print_char(' ');
  47     print_int(w.qqqq.b0);
  48     print_char(':');
  49     print_int(w.qqqq.b1);
  50     print_char(':');
  51     print_int(w.qqqq.b2);
  52     print_char(':');
  53     print_int(w.qqqq.b3);
  54 }
  55 #endif