Attachment 916753 Details for Bug 1117799 – pdftex0.i

pdftex0.i

pdftex0.i (text/plain), 1.17 MB, created by Michal Toman on 2014-07-09 12:18:29 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Michal Toman

Created: 2014-07-09 12:18:29 UTC

Size: 1.17 MB

patch

obsolete

># 1 "pdftex0.c"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/work/texk/web2c//"
># 1 "<built-in>"
># 1 "<command-line>"
># 1 "/usr/include/stdc-predef.h" 1 3 4
># 1 "<command-line>" 2
># 1 "pdftex0.c"
>
># 1 "pdftexd.h" 1
># 11 "pdftexd.h"
># 1 "../../../texk/web2c/texmfmp.h" 1
>
>
>
>
># 1 "../../../texk/web2c/cpascal.h" 1
># 16 "../../../texk/web2c/cpascal.h"
># 1 "../../../texk/web2c/w2c/config.h" 1
># 22 "../../../texk/web2c/w2c/config.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 1
># 62 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/work/texk/kpathsea/c-auto.h" 1
># 63 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
># 88 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 1
># 28 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h"
># 1 "/usr/include/math.h" 1 3 4
># 26 "/usr/include/math.h" 3 4
># 1 "/usr/include/features.h" 1 3 4
># 365 "/usr/include/features.h" 3 4
># 1 "/usr/include/sys/cdefs.h" 1 3 4
># 385 "/usr/include/sys/cdefs.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 386 "/usr/include/sys/cdefs.h" 2 3 4
># 366 "/usr/include/features.h" 2 3 4
># 389 "/usr/include/features.h" 3 4
># 1 "/usr/include/gnu/stubs.h" 1 3 4
>
>
>
>
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 6 "/usr/include/gnu/stubs.h" 2 3 4
>
>
>
>
>
># 1 "/usr/include/gnu/stubs-64.h" 1 3 4
># 12 "/usr/include/gnu/stubs.h" 2 3 4
># 390 "/usr/include/features.h" 2 3 4
># 27 "/usr/include/math.h" 2 3 4
>
>
>
>
>
># 1 "/usr/include/bits/huge_val.h" 1 3 4
># 33 "/usr/include/math.h" 2 3 4
>
># 1 "/usr/include/bits/huge_valf.h" 1 3 4
># 35 "/usr/include/math.h" 2 3 4
># 1 "/usr/include/bits/huge_vall.h" 1 3 4
># 36 "/usr/include/math.h" 2 3 4
>
>
># 1 "/usr/include/bits/inf.h" 1 3 4
># 39 "/usr/include/math.h" 2 3 4
>
>
># 1 "/usr/include/bits/nan.h" 1 3 4
># 42 "/usr/include/math.h" 2 3 4
>
>
>
># 1 "/usr/include/bits/mathdef.h" 1 3 4
># 27 "/usr/include/bits/mathdef.h" 3 4
>typedef double float_t;
>
>typedef double double_t;
># 46 "/usr/include/math.h" 2 3 4
># 69 "/usr/include/math.h" 3 4
># 1 "/usr/include/bits/mathcalls.h" 1 3 4
># 52 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern double acos (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __acos (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double asin (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __asin (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double atan (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __atan (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double atan2 (double __y, double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __atan2 (double __y, double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double cos (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __cos (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double sin (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __sin (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double tan (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __tan (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern double cosh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __cosh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double sinh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __sinh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double tanh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __tanh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
># 86 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern double acosh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __acosh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double asinh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __asinh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern double atanh (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __atanh (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern double exp (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __exp (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double frexp (double __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__)); extern double __frexp (double __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double ldexp (double __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__)); extern double __ldexp (double __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double log (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __log (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double log10 (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __log10 (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double modf (double __x, double *__iptr) __attribute__ ((__nothrow__ , __leaf__)); extern double __modf (double __x, double *__iptr) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
># 126 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern double expm1 (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __expm1 (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double log1p (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __log1p (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double logb (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __logb (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern double exp2 (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __exp2 (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double log2 (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __log2 (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern double pow (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __pow (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double sqrt (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __sqrt (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern double hypot (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __hypot (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern double cbrt (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __cbrt (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern double ceil (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __ceil (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double fabs (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __fabs (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double floor (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __floor (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double fmod (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __fmod (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int __isinf (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int __finite (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int isinf (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int finite (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double drem (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __drem (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern double significand (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __significand (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern double copysign (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __copysign (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>
>extern double nan (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __nan (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int __isnan (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int isnan (double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double j0 (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __j0 (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double j1 (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __j1 (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double jn (int, double) __attribute__ ((__nothrow__ , __leaf__)); extern double __jn (int, double) __attribute__ ((__nothrow__ , __leaf__));
>extern double y0 (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __y0 (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double y1 (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __y1 (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double yn (int, double) __attribute__ ((__nothrow__ , __leaf__)); extern double __yn (int, double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern double erf (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __erf (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double erfc (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __erfc (double) __attribute__ ((__nothrow__ , __leaf__));
>extern double lgamma (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __lgamma (double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern double tgamma (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __tgamma (double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern double gamma (double) __attribute__ ((__nothrow__ , __leaf__)); extern double __gamma (double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern double lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__)); extern double __lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern double rint (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __rint (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double nextafter (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __nextafter (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>extern double nexttoward (double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __nexttoward (double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern double remainder (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __remainder (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern double scalbn (double __x, int __n) __attribute__ ((__nothrow__ , __leaf__)); extern double __scalbn (double __x, int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int ilogb (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern int __ilogb (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern double scalbln (double __x, long int __n) __attribute__ ((__nothrow__ , __leaf__)); extern double __scalbln (double __x, long int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern double nearbyint (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern double __nearbyint (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern double round (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __round (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern double trunc (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __trunc (double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>extern double remquo (double __x, double __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__)); extern double __remquo (double __x, double __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long int lrint (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lrint (double __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llrint (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llrint (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long int lround (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lround (double __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llround (double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llround (double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern double fdim (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)); extern double __fdim (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern double fmax (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __fmax (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern double fmin (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern double __fmin (double __x, double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int __fpclassify (double __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>extern int __signbit (double __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>
>extern double fma (double __x, double __y, double __z) __attribute__ ((__nothrow__ , __leaf__)); extern double __fma (double __x, double __y, double __z) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
># 371 "/usr/include/bits/mathcalls.h" 3 4
>extern double scalb (double __x, double __n) __attribute__ ((__nothrow__ , __leaf__)); extern double __scalb (double __x, double __n) __attribute__ ((__nothrow__ , __leaf__));
># 70 "/usr/include/math.h" 2 3 4
># 88 "/usr/include/math.h" 3 4
># 1 "/usr/include/bits/mathcalls.h" 1 3 4
># 52 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern float acosf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __acosf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float asinf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __asinf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float atanf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __atanf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float atan2f (float __y, float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __atan2f (float __y, float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float cosf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __cosf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float sinf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __sinf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float tanf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __tanf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern float coshf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __coshf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float sinhf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __sinhf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float tanhf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __tanhf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
># 86 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern float acoshf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __acoshf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float asinhf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __asinhf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern float atanhf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __atanhf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern float expf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __expf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__)); extern float __frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__)); extern float __ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float logf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __logf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float log10f (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __log10f (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float modff (float __x, float *__iptr) __attribute__ ((__nothrow__ , __leaf__)); extern float __modff (float __x, float *__iptr) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
># 126 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern float expm1f (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __expm1f (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float log1pf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __log1pf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float logbf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __logbf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern float exp2f (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __exp2f (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float log2f (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __log2f (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern float powf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __powf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float sqrtf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __sqrtf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern float hypotf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __hypotf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern float cbrtf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __cbrtf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern float ceilf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __ceilf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float fabsf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __fabsf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float floorf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __floorf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float fmodf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __fmodf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int __isinff (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int __finitef (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int isinff (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int finitef (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float dremf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __dremf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern float significandf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __significandf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern float copysignf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __copysignf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>
>extern float nanf (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __nanf (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int __isnanf (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int isnanf (float __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float j0f (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __j0f (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float j1f (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __j1f (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float jnf (int, float) __attribute__ ((__nothrow__ , __leaf__)); extern float __jnf (int, float) __attribute__ ((__nothrow__ , __leaf__));
>extern float y0f (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __y0f (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float y1f (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __y1f (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float ynf (int, float) __attribute__ ((__nothrow__ , __leaf__)); extern float __ynf (int, float) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern float erff (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __erff (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float erfcf (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __erfcf (float) __attribute__ ((__nothrow__ , __leaf__));
>extern float lgammaf (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __lgammaf (float) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern float tgammaf (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __tgammaf (float) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern float gammaf (float) __attribute__ ((__nothrow__ , __leaf__)); extern float __gammaf (float) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern float lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__)); extern float __lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern float rintf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __rintf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float nextafterf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __nextafterf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>extern float nexttowardf (float __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __nexttowardf (float __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern float remainderf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __remainderf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern float scalbnf (float __x, int __n) __attribute__ ((__nothrow__ , __leaf__)); extern float __scalbnf (float __x, int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int ilogbf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern int __ilogbf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern float scalblnf (float __x, long int __n) __attribute__ ((__nothrow__ , __leaf__)); extern float __scalblnf (float __x, long int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern float nearbyintf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern float __nearbyintf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern float roundf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __roundf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern float truncf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __truncf (float __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>extern float remquof (float __x, float __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__)); extern float __remquof (float __x, float __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long int lrintf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lrintf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llrintf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llrintf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long int lroundf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lroundf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llroundf (float __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llroundf (float __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern float fdimf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)); extern float __fdimf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern float fmaxf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __fmaxf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern float fminf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern float __fminf (float __x, float __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int __fpclassifyf (float __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>extern int __signbitf (float __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>
>extern float fmaf (float __x, float __y, float __z) __attribute__ ((__nothrow__ , __leaf__)); extern float __fmaf (float __x, float __y, float __z) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
># 371 "/usr/include/bits/mathcalls.h" 3 4
>extern float scalbf (float __x, float __n) __attribute__ ((__nothrow__ , __leaf__)); extern float __scalbf (float __x, float __n) __attribute__ ((__nothrow__ , __leaf__));
># 89 "/usr/include/math.h" 2 3 4
># 132 "/usr/include/math.h" 3 4
># 1 "/usr/include/bits/mathcalls.h" 1 3 4
># 52 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern long double acosl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __acosl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double asinl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __asinl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double atanl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __atanl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double atan2l (long double __y, long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __atan2l (long double __y, long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double cosl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __cosl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double sinl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __sinl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double tanl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __tanl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern long double coshl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __coshl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double sinhl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __sinhl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double tanhl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __tanhl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
># 86 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern long double acoshl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __acoshl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double asinhl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __asinhl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>extern long double atanhl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __atanhl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern long double expl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __expl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double frexpl (long double __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__)); extern long double __frexpl (long double __x, int *__exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double ldexpl (long double __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__)); extern long double __ldexpl (long double __x, int __exponent) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double logl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __logl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double log10l (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __log10l (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double modfl (long double __x, long double *__iptr) __attribute__ ((__nothrow__ , __leaf__)); extern long double __modfl (long double __x, long double *__iptr) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
># 126 "/usr/include/bits/mathcalls.h" 3 4
>
>
>extern long double expm1l (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __expm1l (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double log1pl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __log1pl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double logbl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __logbl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long double exp2l (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __exp2l (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double log2l (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __log2l (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern long double powl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __powl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double sqrtl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __sqrtl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern long double hypotl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __hypotl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long double cbrtl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __cbrtl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern long double ceill (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __ceill (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double fabsl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __fabsl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double floorl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __floorl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double fmodl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __fmodl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int __isinfl (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int __finitel (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int isinfl (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern int finitel (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double dreml (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __dreml (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long double significandl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __significandl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern long double copysignl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __copysignl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>
>extern long double nanl (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __nanl (const char *__tagb) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>
>extern int __isnanl (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int isnanl (long double __value) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double j0l (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __j0l (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double j1l (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __j1l (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double jnl (int, long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __jnl (int, long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double y0l (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __y0l (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double y1l (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __y1l (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double ynl (int, long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __ynl (int, long double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long double erfl (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __erfl (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double erfcl (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __erfcl (long double) __attribute__ ((__nothrow__ , __leaf__));
>extern long double lgammal (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __lgammal (long double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long double tgammal (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __tgammal (long double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern long double gammal (long double) __attribute__ ((__nothrow__ , __leaf__)); extern long double __gammal (long double) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long double lgammal_r (long double, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__)); extern long double __lgammal_r (long double, int *__signgamp) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern long double rintl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __rintl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double nextafterl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __nextafterl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>extern long double nexttowardl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __nexttowardl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern long double remainderl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __remainderl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long double scalbnl (long double __x, int __n) __attribute__ ((__nothrow__ , __leaf__)); extern long double __scalbnl (long double __x, int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int ilogbl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern int __ilogbl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern long double scalblnl (long double __x, long int __n) __attribute__ ((__nothrow__ , __leaf__)); extern long double __scalblnl (long double __x, long int __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long double nearbyintl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long double __nearbyintl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long double roundl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __roundl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern long double truncl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __truncl (long double __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>extern long double remquol (long double __x, long double __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__)); extern long double __remquol (long double __x, long double __y, int *__quo) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern long int lrintl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lrintl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llrintl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llrintl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long int lroundl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long int __lroundl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>__extension__
>extern long long int llroundl (long double __x) __attribute__ ((__nothrow__ , __leaf__)); extern long long int __llroundl (long double __x) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern long double fdiml (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)); extern long double __fdiml (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long double fmaxl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __fmaxl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern long double fminl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)); extern long double __fminl (long double __x, long double __y) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>extern int __fpclassifyl (long double __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>extern int __signbitl (long double __value) __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__const__));
>
>
>
>extern long double fmal (long double __x, long double __y, long double __z) __attribute__ ((__nothrow__ , __leaf__)); extern long double __fmal (long double __x, long double __y, long double __z) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
># 371 "/usr/include/bits/mathcalls.h" 3 4
>extern long double scalbl (long double __x, long double __n) __attribute__ ((__nothrow__ , __leaf__)); extern long double __scalbl (long double __x, long double __n) __attribute__ ((__nothrow__ , __leaf__));
># 133 "/usr/include/math.h" 2 3 4
># 148 "/usr/include/math.h" 3 4
>extern int signgam;
># 189 "/usr/include/math.h" 3 4
>enum
> {
> FP_NAN =
>
> 0,
> FP_INFINITE =
>
> 1,
> FP_ZERO =
>
> 2,
> FP_SUBNORMAL =
>
> 3,
> FP_NORMAL =
>
> 4
> };
># 301 "/usr/include/math.h" 3 4
>typedef enum
>{
> _IEEE_ = -1,
> _SVID_,
> _XOPEN_,
> _POSIX_,
> _ISOC_
>} _LIB_VERSION_TYPE;
>
>
>
>
>extern _LIB_VERSION_TYPE _LIB_VERSION;
># 326 "/usr/include/math.h" 3 4
>struct exception
>
> {
> int type;
> char *name;
> double arg1;
> double arg2;
> double retval;
> };
>
>
>
>
>extern int matherr (struct exception *__exc);
># 426 "/usr/include/math.h" 3 4
># 1 "/usr/include/bits/mathinline.h" 1 3 4
># 35 "/usr/include/bits/mathinline.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) __signbitf (float __x)
>{
> __extension__ union { float __f; int __i; } __u = { __f: __x };
> return __u.__i < 0;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) __signbit (double __x)
>{
> __extension__ union { double __d; long __i; } __u = { __d: __x };
> return __u.__i < 0;
>}
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) __signbitl (long double __x)
>{
> __extension__ union { long double __l; int __i[4]; } __u = { __l: __x };
> return __u.__i[0] < 0;
>}
># 427 "/usr/include/math.h" 2 3 4
># 488 "/usr/include/math.h" 3 4
>
># 29 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
>
>
>
># 1 "/usr/include/stdio.h" 1 3 4
># 29 "/usr/include/stdio.h" 3 4
>
>
>
>
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 212 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 3 4
>typedef long unsigned int size_t;
># 34 "/usr/include/stdio.h" 2 3 4
>
># 1 "/usr/include/bits/types.h" 1 3 4
># 27 "/usr/include/bits/types.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 28 "/usr/include/bits/types.h" 2 3 4
>
>
>typedef unsigned char __u_char;
>typedef unsigned short int __u_short;
>typedef unsigned int __u_int;
>typedef unsigned long int __u_long;
>
>
>typedef signed char __int8_t;
>typedef unsigned char __uint8_t;
>typedef signed short int __int16_t;
>typedef unsigned short int __uint16_t;
>typedef signed int __int32_t;
>typedef unsigned int __uint32_t;
>
>typedef signed long int __int64_t;
>typedef unsigned long int __uint64_t;
>
>
>
>
>
>
>
>typedef long int __quad_t;
>typedef unsigned long int __u_quad_t;
># 121 "/usr/include/bits/types.h" 3 4
># 1 "/usr/include/bits/typesizes.h" 1 3 4
># 122 "/usr/include/bits/types.h" 2 3 4
>
>
>typedef unsigned long int __dev_t;
>typedef unsigned int __uid_t;
>typedef unsigned int __gid_t;
>typedef unsigned long int __ino_t;
>typedef unsigned long int __ino64_t;
>typedef unsigned int __mode_t;
>typedef unsigned long int __nlink_t;
>typedef long int __off_t;
>typedef long int __off64_t;
>typedef int __pid_t;
>typedef struct { int __val[2]; } __fsid_t;
>typedef long int __clock_t;
>typedef unsigned long int __rlim_t;
>typedef unsigned long int __rlim64_t;
>typedef unsigned int __id_t;
>typedef long int __time_t;
>typedef unsigned int __useconds_t;
>typedef long int __suseconds_t;
>
>typedef int __daddr_t;
>typedef int __key_t;
>
>
>typedef int __clockid_t;
>
>
>typedef void * __timer_t;
>
>
>typedef long int __blksize_t;
>
>
>
>
>typedef long int __blkcnt_t;
>typedef long int __blkcnt64_t;
>
>
>typedef unsigned long int __fsblkcnt_t;
>typedef unsigned long int __fsblkcnt64_t;
>
>
>typedef unsigned long int __fsfilcnt_t;
>typedef unsigned long int __fsfilcnt64_t;
>
>
>typedef long int __fsword_t;
>
>typedef long int __ssize_t;
>
>
>typedef long int __syscall_slong_t;
>
>typedef unsigned long int __syscall_ulong_t;
>
>
>
>typedef __off64_t __loff_t;
>typedef __quad_t *__qaddr_t;
>typedef char *__caddr_t;
>
>
>typedef long int __intptr_t;
>
>
>typedef unsigned int __socklen_t;
># 36 "/usr/include/stdio.h" 2 3 4
># 44 "/usr/include/stdio.h" 3 4
>struct _IO_FILE;
>
>
>
>typedef struct _IO_FILE FILE;
>
>
>
>
>
># 64 "/usr/include/stdio.h" 3 4
>typedef struct _IO_FILE __FILE;
># 74 "/usr/include/stdio.h" 3 4
># 1 "/usr/include/libio.h" 1 3 4
># 31 "/usr/include/libio.h" 3 4
># 1 "/usr/include/_G_config.h" 1 3 4
># 15 "/usr/include/_G_config.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 16 "/usr/include/_G_config.h" 2 3 4
>
>
>
>
># 1 "/usr/include/wchar.h" 1 3 4
># 82 "/usr/include/wchar.h" 3 4
>typedef struct
>{
> int __count;
> union
> {
>
> unsigned int __wch;
>
>
>
> char __wchb[4];
> } __value;
>} __mbstate_t;
># 21 "/usr/include/_G_config.h" 2 3 4
>typedef struct
>{
> __off_t __pos;
> __mbstate_t __state;
>} _G_fpos_t;
>typedef struct
>{
> __off64_t __pos;
> __mbstate_t __state;
>} _G_fpos64_t;
># 32 "/usr/include/libio.h" 2 3 4
># 49 "/usr/include/libio.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdarg.h" 1 3 4
># 40 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdarg.h" 3 4
>typedef __builtin_va_list __gnuc_va_list;
># 50 "/usr/include/libio.h" 2 3 4
># 144 "/usr/include/libio.h" 3 4
>struct _IO_jump_t; struct _IO_FILE;
># 154 "/usr/include/libio.h" 3 4
>typedef void _IO_lock_t;
>
>
>
>
>
>struct _IO_marker {
> struct _IO_marker *_next;
> struct _IO_FILE *_sbuf;
>
>
>
> int _pos;
># 177 "/usr/include/libio.h" 3 4
>};
>
>
>enum __codecvt_result
>{
> __codecvt_ok,
> __codecvt_partial,
> __codecvt_error,
> __codecvt_noconv
>};
># 245 "/usr/include/libio.h" 3 4
>struct _IO_FILE {
> int _flags;
>
>
>
>
> char* _IO_read_ptr;
> char* _IO_read_end;
> char* _IO_read_base;
> char* _IO_write_base;
> char* _IO_write_ptr;
> char* _IO_write_end;
> char* _IO_buf_base;
> char* _IO_buf_end;
>
> char *_IO_save_base;
> char *_IO_backup_base;
> char *_IO_save_end;
>
> struct _IO_marker *_markers;
>
> struct _IO_FILE *_chain;
>
> int _fileno;
>
>
>
> int _flags2;
>
> __off_t _old_offset;
>
>
>
> unsigned short _cur_column;
> signed char _vtable_offset;
> char _shortbuf[1];
>
>
>
> _IO_lock_t *_lock;
># 293 "/usr/include/libio.h" 3 4
> __off64_t _offset;
># 302 "/usr/include/libio.h" 3 4
> void *__pad1;
> void *__pad2;
> void *__pad3;
> void *__pad4;
> size_t __pad5;
>
> int _mode;
>
> char _unused2[15 * sizeof (int) - 4 * sizeof (void *) - sizeof (size_t)];
>
>};
>
>
>typedef struct _IO_FILE _IO_FILE;
>
>
>struct _IO_FILE_plus;
>
>extern struct _IO_FILE_plus _IO_2_1_stdin_;
>extern struct _IO_FILE_plus _IO_2_1_stdout_;
>extern struct _IO_FILE_plus _IO_2_1_stderr_;
># 338 "/usr/include/libio.h" 3 4
>typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes);
>
>
>
>
>
>
>
>typedef __ssize_t __io_write_fn (void *__cookie, const char *__buf,
> size_t __n);
>
>
>
>
>
>
>
>typedef int __io_seek_fn (void *__cookie, __off64_t *__pos, int __w);
>
>
>typedef int __io_close_fn (void *__cookie);
># 390 "/usr/include/libio.h" 3 4
>extern int __underflow (_IO_FILE *);
>extern int __uflow (_IO_FILE *);
>extern int __overflow (_IO_FILE *, int);
># 434 "/usr/include/libio.h" 3 4
>extern int _IO_getc (_IO_FILE *__fp);
>extern int _IO_putc (int __c, _IO_FILE *__fp);
>extern int _IO_feof (_IO_FILE *__fp) __attribute__ ((__nothrow__ , __leaf__));
>extern int _IO_ferror (_IO_FILE *__fp) __attribute__ ((__nothrow__ , __leaf__));
>
>extern int _IO_peekc_locked (_IO_FILE *__fp);
>
>
>
>
>
>extern void _IO_flockfile (_IO_FILE *) __attribute__ ((__nothrow__ , __leaf__));
>extern void _IO_funlockfile (_IO_FILE *) __attribute__ ((__nothrow__ , __leaf__));
>extern int _IO_ftrylockfile (_IO_FILE *) __attribute__ ((__nothrow__ , __leaf__));
># 464 "/usr/include/libio.h" 3 4
>extern int _IO_vfscanf (_IO_FILE * __restrict, const char * __restrict,
> __gnuc_va_list, int *__restrict);
>extern int _IO_vfprintf (_IO_FILE *__restrict, const char *__restrict,
> __gnuc_va_list);
>extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t);
>extern size_t _IO_sgetn (_IO_FILE *, void *, size_t);
>
>extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int);
>extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int);
>
>extern void _IO_free_backup_area (_IO_FILE *) __attribute__ ((__nothrow__ , __leaf__));
># 75 "/usr/include/stdio.h" 2 3 4
>
>
>
>
>typedef __gnuc_va_list va_list;
># 90 "/usr/include/stdio.h" 3 4
>typedef __off_t off_t;
># 102 "/usr/include/stdio.h" 3 4
>typedef __ssize_t ssize_t;
>
>
>
>
>
>
>
>typedef _G_fpos_t fpos_t;
>
>
>
>
># 164 "/usr/include/stdio.h" 3 4
># 1 "/usr/include/bits/stdio_lim.h" 1 3 4
># 165 "/usr/include/stdio.h" 2 3 4
>
>
>
>extern struct _IO_FILE *stdin;
>extern struct _IO_FILE *stdout;
>extern struct _IO_FILE *stderr;
>
>
>
>
>
>
>
>extern int remove (const char *__filename) __attribute__ ((__nothrow__ , __leaf__));
>
>extern int rename (const char *__old, const char *__new) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int renameat (int __oldfd, const char *__old, int __newfd,
> const char *__new) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern FILE *tmpfile (void) __attribute__ ((__warn_unused_result__));
># 209 "/usr/include/stdio.h" 3 4
>extern char *tmpnam (char *__s) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern char *tmpnam_r (char *__s) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 227 "/usr/include/stdio.h" 3 4
>extern char *tempnam (const char *__dir, const char *__pfx)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>
>extern int fclose (FILE *__stream);
>
>
>
>
>extern int fflush (FILE *__stream);
>
># 252 "/usr/include/stdio.h" 3 4
>extern int fflush_unlocked (FILE *__stream);
># 266 "/usr/include/stdio.h" 3 4
>
>
>
>
>
>
>extern FILE *fopen (const char *__restrict __filename,
> const char *__restrict __modes) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern FILE *freopen (const char *__restrict __filename,
> const char *__restrict __modes,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
># 295 "/usr/include/stdio.h" 3 4
>
># 306 "/usr/include/stdio.h" 3 4
>extern FILE *fdopen (int __fd, const char *__modes) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 319 "/usr/include/stdio.h" 3 4
>extern FILE *fmemopen (void *__s, size_t __len, const char *__modes)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern FILE *open_memstream (char **__bufloc, size_t *__sizeloc) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>extern void setbuf (FILE *__restrict __stream, char *__restrict __buf) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int setvbuf (FILE *__restrict __stream, char *__restrict __buf,
> int __modes, size_t __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern void setbuffer (FILE *__restrict __stream, char *__restrict __buf,
> size_t __size) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern void setlinebuf (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern int fprintf (FILE *__restrict __stream,
> const char *__restrict __format, ...);
>
>
>
>
>extern int printf (const char *__restrict __format, ...);
>
>extern int sprintf (char *__restrict __s,
> const char *__restrict __format, ...) __attribute__ ((__nothrow__));
>
>
>
>
>
>extern int vfprintf (FILE *__restrict __s, const char *__restrict __format,
> __gnuc_va_list __arg);
>
>
>
>
>extern int vprintf (const char *__restrict __format, __gnuc_va_list __arg);
>
>extern int vsprintf (char *__restrict __s, const char *__restrict __format,
> __gnuc_va_list __arg) __attribute__ ((__nothrow__));
>
>
>
>
>
>extern int snprintf (char *__restrict __s, size_t __maxlen,
> const char *__restrict __format, ...)
> __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 4)));
>
>extern int vsnprintf (char *__restrict __s, size_t __maxlen,
> const char *__restrict __format, __gnuc_va_list __arg)
> __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 0)));
>
># 412 "/usr/include/stdio.h" 3 4
>extern int vdprintf (int __fd, const char *__restrict __fmt,
> __gnuc_va_list __arg)
> __attribute__ ((__format__ (__printf__, 2, 0)));
>extern int dprintf (int __fd, const char *__restrict __fmt, ...)
> __attribute__ ((__format__ (__printf__, 2, 3)));
>
>
>
>
>
>
>
>
>extern int fscanf (FILE *__restrict __stream,
> const char *__restrict __format, ...) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int scanf (const char *__restrict __format, ...) __attribute__ ((__warn_unused_result__));
>
>extern int sscanf (const char *__restrict __s,
> const char *__restrict __format, ...) __attribute__ ((__nothrow__ , __leaf__));
># 443 "/usr/include/stdio.h" 3 4
>extern int fscanf (FILE *__restrict __stream, const char *__restrict __format, ...) __asm__ ("" "__isoc99_fscanf")
>
> __attribute__ ((__warn_unused_result__));
>extern int scanf (const char *__restrict __format, ...) __asm__ ("" "__isoc99_scanf")
> __attribute__ ((__warn_unused_result__));
>extern int sscanf (const char *__restrict __s, const char *__restrict __format, ...) __asm__ ("" "__isoc99_sscanf") __attribute__ ((__nothrow__ , __leaf__))
>
> ;
># 463 "/usr/include/stdio.h" 3 4
>
>
>
>
>
>
>
>
>extern int vfscanf (FILE *__restrict __s, const char *__restrict __format,
> __gnuc_va_list __arg)
> __attribute__ ((__format__ (__scanf__, 2, 0))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern int vscanf (const char *__restrict __format, __gnuc_va_list __arg)
> __attribute__ ((__format__ (__scanf__, 1, 0))) __attribute__ ((__warn_unused_result__));
>
>
>extern int vsscanf (const char *__restrict __s,
> const char *__restrict __format, __gnuc_va_list __arg)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__format__ (__scanf__, 2, 0)));
># 494 "/usr/include/stdio.h" 3 4
>extern int vfscanf (FILE *__restrict __s, const char *__restrict __format, __gnuc_va_list __arg) __asm__ ("" "__isoc99_vfscanf")
>
>
>
> __attribute__ ((__format__ (__scanf__, 2, 0))) __attribute__ ((__warn_unused_result__));
>extern int vscanf (const char *__restrict __format, __gnuc_va_list __arg) __asm__ ("" "__isoc99_vscanf")
>
> __attribute__ ((__format__ (__scanf__, 1, 0))) __attribute__ ((__warn_unused_result__));
>extern int vsscanf (const char *__restrict __s, const char *__restrict __format, __gnuc_va_list __arg) __asm__ ("" "__isoc99_vsscanf") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__ ((__format__ (__scanf__, 2, 0)));
># 522 "/usr/include/stdio.h" 3 4
>
>
>
>
>
>
>
>
>
>extern int fgetc (FILE *__stream);
>extern int getc (FILE *__stream);
>
>
>
>
>
>extern int getchar (void);
>
># 550 "/usr/include/stdio.h" 3 4
>extern int getc_unlocked (FILE *__stream);
>extern int getchar_unlocked (void);
># 561 "/usr/include/stdio.h" 3 4
>extern int fgetc_unlocked (FILE *__stream);
>
>
>
>
>
>
>
>
>
>
>
>extern int fputc (int __c, FILE *__stream);
>extern int putc (int __c, FILE *__stream);
>
>
>
>
>
>extern int putchar (int __c);
>
># 594 "/usr/include/stdio.h" 3 4
>extern int fputc_unlocked (int __c, FILE *__stream);
>
>
>
>
>
>
>
>extern int putc_unlocked (int __c, FILE *__stream);
>extern int putchar_unlocked (int __c);
>
>
>
>
>
>
>extern int getw (FILE *__stream);
>
>
>extern int putw (int __w, FILE *__stream);
>
>
>
>
>
>
>
>
>extern char *fgets (char *__restrict __s, int __n, FILE *__restrict __stream)
> __attribute__ ((__warn_unused_result__));
># 638 "/usr/include/stdio.h" 3 4
>extern char *gets (char *__s) __attribute__ ((__warn_unused_result__)) __attribute__ ((__deprecated__));
>
>
># 665 "/usr/include/stdio.h" 3 4
>extern __ssize_t __getdelim (char **__restrict __lineptr,
> size_t *__restrict __n, int __delimiter,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>extern __ssize_t getdelim (char **__restrict __lineptr,
> size_t *__restrict __n, int __delimiter,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>extern __ssize_t getline (char **__restrict __lineptr,
> size_t *__restrict __n,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>
>extern int fputs (const char *__restrict __s, FILE *__restrict __stream);
>
>
>
>
>
>extern int puts (const char *__s);
>
>
>
>
>
>
>extern int ungetc (int __c, FILE *__stream);
>
>
>
>
>
>
>extern size_t fread (void *__restrict __ptr, size_t __size,
> size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern size_t fwrite (const void *__restrict __ptr, size_t __size,
> size_t __n, FILE *__restrict __s);
>
># 737 "/usr/include/stdio.h" 3 4
>extern size_t fread_unlocked (void *__restrict __ptr, size_t __size,
> size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>extern size_t fwrite_unlocked (const void *__restrict __ptr, size_t __size,
> size_t __n, FILE *__restrict __stream);
>
>
>
>
>
>
>
>
>extern int fseek (FILE *__stream, long int __off, int __whence);
>
>
>
>
>extern long int ftell (FILE *__stream) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern void rewind (FILE *__stream);
>
># 773 "/usr/include/stdio.h" 3 4
>extern int fseeko (FILE *__stream, __off_t __off, int __whence);
>
>
>
>
>extern __off_t ftello (FILE *__stream) __attribute__ ((__warn_unused_result__));
># 792 "/usr/include/stdio.h" 3 4
>
>
>
>
>
>
>extern int fgetpos (FILE *__restrict __stream, fpos_t *__restrict __pos);
>
>
>
>
>extern int fsetpos (FILE *__stream, const fpos_t *__pos);
># 815 "/usr/include/stdio.h" 3 4
>
># 824 "/usr/include/stdio.h" 3 4
>
>
>extern void clearerr (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__));
>
>extern int feof (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>extern int ferror (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern void clearerr_unlocked (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__));
>extern int feof_unlocked (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>extern int ferror_unlocked (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>
>extern void perror (const char *__s);
>
>
>
>
>
>
># 1 "/usr/include/bits/sys_errlist.h" 1 3 4
># 26 "/usr/include/bits/sys_errlist.h" 3 4
>extern int sys_nerr;
>extern const char *const sys_errlist[];
># 854 "/usr/include/stdio.h" 2 3 4
>
>
>
>
>extern int fileno (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int fileno_unlocked (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 872 "/usr/include/stdio.h" 3 4
>extern FILE *popen (const char *__command, const char *__modes) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern int pclose (FILE *__stream);
>
>
>
>
>
>extern char *ctermid (char *__s) __attribute__ ((__nothrow__ , __leaf__));
># 912 "/usr/include/stdio.h" 3 4
>extern void flockfile (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int ftrylockfile (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>extern void funlockfile (FILE *__stream) __attribute__ ((__nothrow__ , __leaf__));
># 933 "/usr/include/stdio.h" 3 4
># 1 "/usr/include/bits/stdio.h" 1 3 4
># 43 "/usr/include/bits/stdio.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) int
>getchar (void)
>{
> return _IO_getc (stdin);
>}
>
>
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>fgetc_unlocked (FILE *__fp)
>{
> return (__builtin_expect (((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end), 0) ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++);
>}
>
>
>
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>getc_unlocked (FILE *__fp)
>{
> return (__builtin_expect (((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end), 0) ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++);
>}
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>getchar_unlocked (void)
>{
> return (__builtin_expect (((stdin)->_IO_read_ptr >= (stdin)->_IO_read_end), 0) ? __uflow (stdin) : *(unsigned char *) (stdin)->_IO_read_ptr++);
>}
>
>
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>putchar (int __c)
>{
> return _IO_putc (__c, stdout);
>}
>
>
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>fputc_unlocked (int __c, FILE *__stream)
>{
> return (__builtin_expect (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end), 0) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c)));
>}
>
>
>
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>putc_unlocked (int __c, FILE *__stream)
>{
> return (__builtin_expect (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end), 0) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c)));
>}
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>putchar_unlocked (int __c)
>{
> return (__builtin_expect (((stdout)->_IO_write_ptr >= (stdout)->_IO_write_end), 0) ? __overflow (stdout, (unsigned char) (__c)) : (unsigned char) (*(stdout)->_IO_write_ptr++ = (__c)));
>}
># 124 "/usr/include/bits/stdio.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) feof_unlocked (FILE *__stream)
>{
> return (((__stream)->_flags & 0x10) != 0);
>}
>
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) ferror_unlocked (FILE *__stream)
>{
> return (((__stream)->_flags & 0x20) != 0);
>}
># 934 "/usr/include/stdio.h" 2 3 4
>
>
># 1 "/usr/include/bits/stdio2.h" 1 3 4
># 23 "/usr/include/bits/stdio2.h" 3 4
>extern int __sprintf_chk (char *__restrict __s, int __flag, size_t __slen,
> const char *__restrict __format, ...) __attribute__ ((__nothrow__ , __leaf__));
>extern int __vsprintf_chk (char *__restrict __s, int __flag, size_t __slen,
> const char *__restrict __format,
> __gnuc_va_list __ap) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) sprintf (char *__restrict __s, const char *__restrict __fmt, ...)
>{
> return __builtin___sprintf_chk (__s, 2 - 1,
> __builtin_object_size (__s, 2 > 1), __fmt, __builtin_va_arg_pack ());
>}
>
>
>
>
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) vsprintf (char *__restrict __s, const char *__restrict __fmt, __gnuc_va_list __ap)
>
>{
> return __builtin___vsprintf_chk (__s, 2 - 1,
> __builtin_object_size (__s, 2 > 1), __fmt, __ap);
>}
>
>
>
>extern int __snprintf_chk (char *__restrict __s, size_t __n, int __flag,
> size_t __slen, const char *__restrict __format,
> ...) __attribute__ ((__nothrow__ , __leaf__));
>extern int __vsnprintf_chk (char *__restrict __s, size_t __n, int __flag,
> size_t __slen, const char *__restrict __format,
> __gnuc_va_list __ap) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) snprintf (char *__restrict __s, size_t __n, const char *__restrict __fmt, ...)
>
>{
> return __builtin___snprintf_chk (__s, __n, 2 - 1,
> __builtin_object_size (__s, 2 > 1), __fmt, __builtin_va_arg_pack ());
>}
>
>
>
>
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) vsnprintf (char *__restrict __s, size_t __n, const char *__restrict __fmt, __gnuc_va_list __ap)
>
>{
> return __builtin___vsnprintf_chk (__s, __n, 2 - 1,
> __builtin_object_size (__s, 2 > 1), __fmt, __ap);
>}
>
>
>
>
>
>extern int __fprintf_chk (FILE *__restrict __stream, int __flag,
> const char *__restrict __format, ...);
>extern int __printf_chk (int __flag, const char *__restrict __format, ...);
>extern int __vfprintf_chk (FILE *__restrict __stream, int __flag,
> const char *__restrict __format, __gnuc_va_list __ap);
>extern int __vprintf_chk (int __flag, const char *__restrict __format,
> __gnuc_va_list __ap);
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>fprintf (FILE *__restrict __stream, const char *__restrict __fmt, ...)
>{
> return __fprintf_chk (__stream, 2 - 1, __fmt,
> __builtin_va_arg_pack ());
>}
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>printf (const char *__restrict __fmt, ...)
>{
> return __printf_chk (2 - 1, __fmt, __builtin_va_arg_pack ());
>}
>
>
>
>
>
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>vprintf (const char *__restrict __fmt, __gnuc_va_list __ap)
>{
>
> return __vfprintf_chk (stdout, 2 - 1, __fmt, __ap);
>
>
>
>}
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>vfprintf (FILE *__restrict __stream,
> const char *__restrict __fmt, __gnuc_va_list __ap)
>{
> return __vfprintf_chk (__stream, 2 - 1, __fmt, __ap);
>}
>
>
>extern int __dprintf_chk (int __fd, int __flag, const char *__restrict __fmt,
> ...) __attribute__ ((__format__ (__printf__, 3, 4)));
>extern int __vdprintf_chk (int __fd, int __flag,
> const char *__restrict __fmt, __gnuc_va_list __arg)
> __attribute__ ((__format__ (__printf__, 3, 0)));
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>dprintf (int __fd, const char *__restrict __fmt, ...)
>{
> return __dprintf_chk (__fd, 2 - 1, __fmt,
> __builtin_va_arg_pack ());
>}
>
>
>
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>vdprintf (int __fd, const char *__restrict __fmt, __gnuc_va_list __ap)
>{
> return __vdprintf_chk (__fd, 2 - 1, __fmt, __ap);
>}
># 227 "/usr/include/bits/stdio2.h" 3 4
>extern char *__gets_chk (char *__str, size_t) __attribute__ ((__warn_unused_result__));
>extern char *__gets_warn (char *__str) __asm__ ("" "gets")
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("please use fgets or getline instead, gets can't " "specify buffer size")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char *
>gets (char *__str)
>{
> if (__builtin_object_size (__str, 2 > 1) != (size_t) -1)
> return __gets_chk (__str, __builtin_object_size (__str, 2 > 1));
> return __gets_warn (__str);
>}
>
>
>extern char *__fgets_chk (char *__restrict __s, size_t __size, int __n,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>extern char *__fgets_alias (char *__restrict __s, int __n, FILE *__restrict __stream) __asm__ ("" "fgets")
>
> __attribute__ ((__warn_unused_result__));
>extern char *__fgets_chk_warn (char *__restrict __s, size_t __size, int __n, FILE *__restrict __stream) __asm__ ("" "__fgets_chk")
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fgets called with bigger size than length " "of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char *
>fgets (char *__restrict __s, int __n, FILE *__restrict __stream)
>{
> if (__builtin_object_size (__s, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__n) || __n <= 0)
> return __fgets_chk (__s, __builtin_object_size (__s, 2 > 1), __n, __stream);
>
> if ((size_t) __n > __builtin_object_size (__s, 2 > 1))
> return __fgets_chk_warn (__s, __builtin_object_size (__s, 2 > 1), __n, __stream);
> }
> return __fgets_alias (__s, __n, __stream);
>}
>
>extern size_t __fread_chk (void *__restrict __ptr, size_t __ptrlen,
> size_t __size, size_t __n,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>extern size_t __fread_alias (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "fread")
>
>
> __attribute__ ((__warn_unused_result__));
>extern size_t __fread_chk_warn (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "__fread_chk")
>
>
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fread called with bigger size * nmemb than length " "of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) size_t
>fread (void *__restrict __ptr, size_t __size, size_t __n,
> FILE *__restrict __stream)
>{
> if (__builtin_object_size (__ptr, 0) != (size_t) -1)
> {
> if (!__builtin_constant_p (__size)
> || !__builtin_constant_p (__n)
> || (__size | __n) >= (((size_t) 1) << (8 * sizeof (size_t) / 2)))
> return __fread_chk (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream);
>
> if (__size * __n > __builtin_object_size (__ptr, 0))
> return __fread_chk_warn (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream);
> }
> return __fread_alias (__ptr, __size, __n, __stream);
>}
># 327 "/usr/include/bits/stdio2.h" 3 4
>extern size_t __fread_unlocked_chk (void *__restrict __ptr, size_t __ptrlen,
> size_t __size, size_t __n,
> FILE *__restrict __stream) __attribute__ ((__warn_unused_result__));
>extern size_t __fread_unlocked_alias (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "fread_unlocked")
>
>
> __attribute__ ((__warn_unused_result__));
>extern size_t __fread_unlocked_chk_warn (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "__fread_unlocked_chk")
>
>
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fread_unlocked called with bigger size * nmemb than " "length of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) size_t
>fread_unlocked (void *__restrict __ptr, size_t __size, size_t __n,
> FILE *__restrict __stream)
>{
> if (__builtin_object_size (__ptr, 0) != (size_t) -1)
> {
> if (!__builtin_constant_p (__size)
> || !__builtin_constant_p (__n)
> || (__size | __n) >= (((size_t) 1) << (8 * sizeof (size_t) / 2)))
> return __fread_unlocked_chk (__ptr, __builtin_object_size (__ptr, 0), __size, __n,
> __stream);
>
> if (__size * __n > __builtin_object_size (__ptr, 0))
> return __fread_unlocked_chk_warn (__ptr, __builtin_object_size (__ptr, 0), __size, __n,
> __stream);
> }
>
>
> if (__builtin_constant_p (__size)
> && __builtin_constant_p (__n)
> && (__size | __n) < (((size_t) 1) << (8 * sizeof (size_t) / 2))
> && __size * __n <= 8)
> {
> size_t __cnt = __size * __n;
> char *__cptr = (char *) __ptr;
> if (__cnt == 0)
> return 0;
>
> for (; __cnt > 0; --__cnt)
> {
> int __c = (__builtin_expect (((__stream)->_IO_read_ptr >= (__stream)->_IO_read_end), 0) ? __uflow (__stream) : *(unsigned char *) (__stream)->_IO_read_ptr++);
> if (__c == (-1))
> break;
> *__cptr++ = __c;
> }
> return (__cptr - (char *) __ptr) / __size;
> }
>
> return __fread_unlocked_alias (__ptr, __size, __n, __stream);
>}
># 937 "/usr/include/stdio.h" 2 3 4
>
>
>
>
>
>
># 35 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-unistd.h" 1
># 24 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-unistd.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/systypes.h" 1
># 22 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/systypes.h"
># 1 "/usr/include/sys/types.h" 1 3 4
># 27 "/usr/include/sys/types.h" 3 4
>
>
>
>
>
>
>typedef __u_char u_char;
>typedef __u_short u_short;
>typedef __u_int u_int;
>typedef __u_long u_long;
>typedef __quad_t quad_t;
>typedef __u_quad_t u_quad_t;
>typedef __fsid_t fsid_t;
>
>
>
>
>typedef __loff_t loff_t;
>
>
>
>typedef __ino_t ino_t;
># 60 "/usr/include/sys/types.h" 3 4
>typedef __dev_t dev_t;
>
>
>
>
>typedef __gid_t gid_t;
>
>
>
>
>typedef __mode_t mode_t;
>
>
>
>
>typedef __nlink_t nlink_t;
>
>
>
>
>typedef __uid_t uid_t;
># 98 "/usr/include/sys/types.h" 3 4
>typedef __pid_t pid_t;
>
>
>
>
>
>typedef __id_t id_t;
># 115 "/usr/include/sys/types.h" 3 4
>typedef __daddr_t daddr_t;
>typedef __caddr_t caddr_t;
>
>
>
>
>
>typedef __key_t key_t;
># 132 "/usr/include/sys/types.h" 3 4
># 1 "/usr/include/time.h" 1 3 4
># 57 "/usr/include/time.h" 3 4
>
>
>typedef __clock_t clock_t;
>
>
>
># 73 "/usr/include/time.h" 3 4
>
>
>typedef __time_t time_t;
>
>
>
># 91 "/usr/include/time.h" 3 4
>typedef __clockid_t clockid_t;
># 103 "/usr/include/time.h" 3 4
>typedef __timer_t timer_t;
># 133 "/usr/include/sys/types.h" 2 3 4
># 146 "/usr/include/sys/types.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 147 "/usr/include/sys/types.h" 2 3 4
>
>
>
>typedef unsigned long int ulong;
>typedef unsigned short int ushort;
>typedef unsigned int uint;
># 194 "/usr/include/sys/types.h" 3 4
>typedef int int8_t __attribute__ ((__mode__ (__QI__)));
>typedef int int16_t __attribute__ ((__mode__ (__HI__)));
>typedef int int32_t __attribute__ ((__mode__ (__SI__)));
>typedef int int64_t __attribute__ ((__mode__ (__DI__)));
>
>
>typedef unsigned int u_int8_t __attribute__ ((__mode__ (__QI__)));
>typedef unsigned int u_int16_t __attribute__ ((__mode__ (__HI__)));
>typedef unsigned int u_int32_t __attribute__ ((__mode__ (__SI__)));
>typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__)));
>
>typedef int register_t __attribute__ ((__mode__ (__word__)));
># 216 "/usr/include/sys/types.h" 3 4
># 1 "/usr/include/endian.h" 1 3 4
># 36 "/usr/include/endian.h" 3 4
># 1 "/usr/include/bits/endian.h" 1 3 4
># 37 "/usr/include/endian.h" 2 3 4
># 60 "/usr/include/endian.h" 3 4
># 1 "/usr/include/bits/byteswap.h" 1 3 4
># 24 "/usr/include/bits/byteswap.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 25 "/usr/include/bits/byteswap.h" 2 3 4
># 33 "/usr/include/bits/byteswap.h" 3 4
># 1 "/usr/include/bits/byteswap-16.h" 1 3 4
># 24 "/usr/include/bits/byteswap-16.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 25 "/usr/include/bits/byteswap-16.h" 2 3 4
># 34 "/usr/include/bits/byteswap.h" 2 3 4
># 61 "/usr/include/endian.h" 2 3 4
># 217 "/usr/include/sys/types.h" 2 3 4
>
>
># 1 "/usr/include/sys/select.h" 1 3 4
># 30 "/usr/include/sys/select.h" 3 4
># 1 "/usr/include/bits/select.h" 1 3 4
># 31 "/usr/include/sys/select.h" 2 3 4
>
>
># 1 "/usr/include/bits/sigset.h" 1 3 4
># 22 "/usr/include/bits/sigset.h" 3 4
>typedef int __sig_atomic_t;
>
>
>
>
>typedef struct
> {
> unsigned long int __val[(1024 / (8 * sizeof (unsigned long int)))];
> } __sigset_t;
># 34 "/usr/include/sys/select.h" 2 3 4
>
>
>
>typedef __sigset_t sigset_t;
>
>
>
>
>
># 1 "/usr/include/time.h" 1 3 4
># 120 "/usr/include/time.h" 3 4
>struct timespec
> {
> __time_t tv_sec;
> __syscall_slong_t tv_nsec;
> };
># 44 "/usr/include/sys/select.h" 2 3 4
>
># 1 "/usr/include/bits/time.h" 1 3 4
># 30 "/usr/include/bits/time.h" 3 4
>struct timeval
> {
> __time_t tv_sec;
> __suseconds_t tv_usec;
> };
># 46 "/usr/include/sys/select.h" 2 3 4
>
>
>typedef __suseconds_t suseconds_t;
>
>
>
>
>
>typedef long int __fd_mask;
># 64 "/usr/include/sys/select.h" 3 4
>typedef struct
> {
>
>
>
>
>
>
> __fd_mask __fds_bits[1024 / (8 * (int) sizeof (__fd_mask))];
>
>
> } fd_set;
>
>
>
>
>
>
>typedef __fd_mask fd_mask;
># 96 "/usr/include/sys/select.h" 3 4
>
># 106 "/usr/include/sys/select.h" 3 4
>extern int select (int __nfds, fd_set *__restrict __readfds,
> fd_set *__restrict __writefds,
> fd_set *__restrict __exceptfds,
> struct timeval *__restrict __timeout);
># 118 "/usr/include/sys/select.h" 3 4
>extern int pselect (int __nfds, fd_set *__restrict __readfds,
> fd_set *__restrict __writefds,
> fd_set *__restrict __exceptfds,
> const struct timespec *__restrict __timeout,
> const __sigset_t *__restrict __sigmask);
>
>
>
>
>
># 1 "/usr/include/bits/select2.h" 1 3 4
># 24 "/usr/include/bits/select2.h" 3 4
>extern long int __fdelt_chk (long int __d);
>extern long int __fdelt_warn (long int __d)
> __attribute__((__warning__ ("bit outside of fd_set selected")));
># 129 "/usr/include/sys/select.h" 2 3 4
>
>
>
># 220 "/usr/include/sys/types.h" 2 3 4
>
>
># 1 "/usr/include/sys/sysmacros.h" 1 3 4
># 24 "/usr/include/sys/sysmacros.h" 3 4
>
>
>__extension__
>extern unsigned int gnu_dev_major (unsigned long long int __dev)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>__extension__
>extern unsigned int gnu_dev_minor (unsigned long long int __dev)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>__extension__
>extern unsigned long long int gnu_dev_makedev (unsigned int __major,
> unsigned int __minor)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>__extension__ extern __inline __attribute__ ((__gnu_inline__)) __attribute__ ((__const__)) unsigned int
>__attribute__ ((__nothrow__ , __leaf__)) gnu_dev_major (unsigned long long int __dev)
>{
> return ((__dev >> 8) & 0xfff) | ((unsigned int) (__dev >> 32) & ~0xfff);
>}
>
>__extension__ extern __inline __attribute__ ((__gnu_inline__)) __attribute__ ((__const__)) unsigned int
>__attribute__ ((__nothrow__ , __leaf__)) gnu_dev_minor (unsigned long long int __dev)
>{
> return (__dev & 0xff) | ((unsigned int) (__dev >> 12) & ~0xff);
>}
>
>__extension__ extern __inline __attribute__ ((__gnu_inline__)) __attribute__ ((__const__)) unsigned long long int
>__attribute__ ((__nothrow__ , __leaf__)) gnu_dev_makedev (unsigned int __major, unsigned int __minor)
>{
> return ((__minor & 0xff) | ((__major & 0xfff) << 8)
> | (((unsigned long long int) (__minor & ~0xff)) << 12)
> | (((unsigned long long int) (__major & ~0xfff)) << 32));
>}
>
>
># 223 "/usr/include/sys/types.h" 2 3 4
>
>
>
>
>
>typedef __blksize_t blksize_t;
>
>
>
>
>
>
>typedef __blkcnt_t blkcnt_t;
>
>
>
>typedef __fsblkcnt_t fsblkcnt_t;
>
>
>
>typedef __fsfilcnt_t fsfilcnt_t;
># 270 "/usr/include/sys/types.h" 3 4
># 1 "/usr/include/bits/pthreadtypes.h" 1 3 4
># 21 "/usr/include/bits/pthreadtypes.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 22 "/usr/include/bits/pthreadtypes.h" 2 3 4
># 48 "/usr/include/bits/pthreadtypes.h" 3 4
>typedef unsigned long int pthread_t;
>
>
>union pthread_attr_t
>{
> char __size[56];
> long int __align;
>};
>
>typedef union pthread_attr_t pthread_attr_t;
>
>
>
>
>
>typedef struct __pthread_internal_list
>{
> struct __pthread_internal_list *__prev;
> struct __pthread_internal_list *__next;
>} __pthread_list_t;
># 78 "/usr/include/bits/pthreadtypes.h" 3 4
>typedef union
>{
> struct __pthread_mutex_s
> {
> int __lock;
> unsigned int __count;
> int __owner;
>
> unsigned int __nusers;
>
>
>
> int __kind;
>
>
>
>
>
>
>
> int __spins;
>
>
>
> __pthread_list_t __list;
># 126 "/usr/include/bits/pthreadtypes.h" 3 4
> } __data;
> char __size[40];
> long int __align;
>} pthread_mutex_t;
>
>
>typedef union
>{
> char __size[4];
> int __align;
>} pthread_mutexattr_t;
>
>
>
>
>typedef union
>{
> struct
> {
> int __lock;
> unsigned int __futex;
> __extension__ unsigned long long int __total_seq;
> __extension__ unsigned long long int __wakeup_seq;
> __extension__ unsigned long long int __woken_seq;
> void *__mutex;
> unsigned int __nwaiters;
> unsigned int __broadcast_seq;
> } __data;
> char __size[48];
> __extension__ long long int __align;
>} pthread_cond_t;
>
>typedef union
>{
> char __size[4];
> int __align;
>} pthread_condattr_t;
>
>
>
>typedef unsigned int pthread_key_t;
>
>
>
>typedef int pthread_once_t;
>
>
>
>
>
>typedef union
>{
>
> struct
> {
> int __lock;
> unsigned int __nr_readers;
> unsigned int __readers_wakeup;
> unsigned int __writer_wakeup;
> unsigned int __nr_readers_queued;
> unsigned int __nr_writers_queued;
> int __writer;
> int __shared;
> unsigned long int __pad1;
> unsigned long int __pad2;
>
>
> unsigned int __flags;
> } __data;
># 213 "/usr/include/bits/pthreadtypes.h" 3 4
> char __size[56];
> long int __align;
>} pthread_rwlock_t;
>
>typedef union
>{
> char __size[8];
> long int __align;
>} pthread_rwlockattr_t;
>
>
>
>
>
>typedef volatile int pthread_spinlock_t;
>
>
>
>
>typedef union
>{
> char __size[32];
> long int __align;
>} pthread_barrier_t;
>
>typedef union
>{
> char __size[4];
> int __align;
>} pthread_barrierattr_t;
># 271 "/usr/include/sys/types.h" 2 3 4
>
>
>
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/systypes.h" 2
># 25 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-unistd.h" 2
>
>
>
>
>
>
># 1 "/usr/include/unistd.h" 1 3 4
># 27 "/usr/include/unistd.h" 3 4
>
># 202 "/usr/include/unistd.h" 3 4
># 1 "/usr/include/bits/posix_opt.h" 1 3 4
># 203 "/usr/include/unistd.h" 2 3 4
>
>
>
># 1 "/usr/include/bits/environments.h" 1 3 4
># 22 "/usr/include/bits/environments.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 23 "/usr/include/bits/environments.h" 2 3 4
># 207 "/usr/include/unistd.h" 2 3 4
># 226 "/usr/include/unistd.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 227 "/usr/include/unistd.h" 2 3 4
># 255 "/usr/include/unistd.h" 3 4
>typedef __useconds_t useconds_t;
># 267 "/usr/include/unistd.h" 3 4
>typedef __intptr_t intptr_t;
>
>
>
>
>
>
>typedef __socklen_t socklen_t;
># 287 "/usr/include/unistd.h" 3 4
>extern int access (const char *__name, int __type) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
># 304 "/usr/include/unistd.h" 3 4
>extern int faccessat (int __fd, const char *__file, int __type, int __flag)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__));
># 334 "/usr/include/unistd.h" 3 4
>extern __off_t lseek (int __fd, __off_t __offset, int __whence) __attribute__ ((__nothrow__ , __leaf__));
># 353 "/usr/include/unistd.h" 3 4
>extern int close (int __fd);
>
>
>
>
>
>
>extern ssize_t read (int __fd, void *__buf, size_t __nbytes) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern ssize_t write (int __fd, const void *__buf, size_t __n) __attribute__ ((__warn_unused_result__));
># 376 "/usr/include/unistd.h" 3 4
>extern ssize_t pread (int __fd, void *__buf, size_t __nbytes,
> __off_t __offset) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>extern ssize_t pwrite (int __fd, const void *__buf, size_t __n,
> __off_t __offset) __attribute__ ((__warn_unused_result__));
># 417 "/usr/include/unistd.h" 3 4
>extern int pipe (int __pipedes[2]) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 432 "/usr/include/unistd.h" 3 4
>extern unsigned int alarm (unsigned int __seconds) __attribute__ ((__nothrow__ , __leaf__));
># 444 "/usr/include/unistd.h" 3 4
>extern unsigned int sleep (unsigned int __seconds);
>
>
>
>
>
>
>
>extern __useconds_t ualarm (__useconds_t __value, __useconds_t __interval)
> __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern int usleep (__useconds_t __useconds);
># 469 "/usr/include/unistd.h" 3 4
>extern int pause (void);
>
>
>
>extern int chown (const char *__file, __uid_t __owner, __gid_t __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int fchown (int __fd, __uid_t __owner, __gid_t __group) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int lchown (const char *__file, __uid_t __owner, __gid_t __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>extern int fchownat (int __fd, const char *__file, __uid_t __owner,
> __gid_t __group, int __flag)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int chdir (const char *__path) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int fchdir (int __fd) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 511 "/usr/include/unistd.h" 3 4
>extern char *getcwd (char *__buf, size_t __size) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 525 "/usr/include/unistd.h" 3 4
>extern char *getwd (char *__buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__deprecated__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int dup (int __fd) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>extern int dup2 (int __fd, int __fd2) __attribute__ ((__nothrow__ , __leaf__));
># 543 "/usr/include/unistd.h" 3 4
>extern char **__environ;
>
>
>
>
>
>
>
>extern int execve (const char *__path, char *const __argv[],
> char *const __envp[]) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>extern int fexecve (int __fd, char *const __argv[], char *const __envp[])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>
>
>extern int execv (const char *__path, char *const __argv[])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>extern int execle (const char *__path, const char *__arg, ...)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>extern int execl (const char *__path, const char *__arg, ...)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>extern int execvp (const char *__file, char *const __argv[])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>extern int execlp (const char *__file, const char *__arg, ...)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
># 598 "/usr/include/unistd.h" 3 4
>extern int nice (int __inc) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern void _exit (int __status) __attribute__ ((__noreturn__));
>
>
>
>
>
># 1 "/usr/include/bits/confname.h" 1 3 4
># 24 "/usr/include/bits/confname.h" 3 4
>enum
> {
> _PC_LINK_MAX,
>
> _PC_MAX_CANON,
>
> _PC_MAX_INPUT,
>
> _PC_NAME_MAX,
>
> _PC_PATH_MAX,
>
> _PC_PIPE_BUF,
>
> _PC_CHOWN_RESTRICTED,
>
> _PC_NO_TRUNC,
>
> _PC_VDISABLE,
>
> _PC_SYNC_IO,
>
> _PC_ASYNC_IO,
>
> _PC_PRIO_IO,
>
> _PC_SOCK_MAXBUF,
>
> _PC_FILESIZEBITS,
>
> _PC_REC_INCR_XFER_SIZE,
>
> _PC_REC_MAX_XFER_SIZE,
>
> _PC_REC_MIN_XFER_SIZE,
>
> _PC_REC_XFER_ALIGN,
>
> _PC_ALLOC_SIZE_MIN,
>
> _PC_SYMLINK_MAX,
>
> _PC_2_SYMLINKS
>
> };
>
>
>enum
> {
> _SC_ARG_MAX,
>
> _SC_CHILD_MAX,
>
> _SC_CLK_TCK,
>
> _SC_NGROUPS_MAX,
>
> _SC_OPEN_MAX,
>
> _SC_STREAM_MAX,
>
> _SC_TZNAME_MAX,
>
> _SC_JOB_CONTROL,
>
> _SC_SAVED_IDS,
>
> _SC_REALTIME_SIGNALS,
>
> _SC_PRIORITY_SCHEDULING,
>
> _SC_TIMERS,
>
> _SC_ASYNCHRONOUS_IO,
>
> _SC_PRIORITIZED_IO,
>
> _SC_SYNCHRONIZED_IO,
>
> _SC_FSYNC,
>
> _SC_MAPPED_FILES,
>
> _SC_MEMLOCK,
>
> _SC_MEMLOCK_RANGE,
>
> _SC_MEMORY_PROTECTION,
>
> _SC_MESSAGE_PASSING,
>
> _SC_SEMAPHORES,
>
> _SC_SHARED_MEMORY_OBJECTS,
>
> _SC_AIO_LISTIO_MAX,
>
> _SC_AIO_MAX,
>
> _SC_AIO_PRIO_DELTA_MAX,
>
> _SC_DELAYTIMER_MAX,
>
> _SC_MQ_OPEN_MAX,
>
> _SC_MQ_PRIO_MAX,
>
> _SC_VERSION,
>
> _SC_PAGESIZE,
>
>
> _SC_RTSIG_MAX,
>
> _SC_SEM_NSEMS_MAX,
>
> _SC_SEM_VALUE_MAX,
>
> _SC_SIGQUEUE_MAX,
>
> _SC_TIMER_MAX,
>
>
>
>
> _SC_BC_BASE_MAX,
>
> _SC_BC_DIM_MAX,
>
> _SC_BC_SCALE_MAX,
>
> _SC_BC_STRING_MAX,
>
> _SC_COLL_WEIGHTS_MAX,
>
> _SC_EQUIV_CLASS_MAX,
>
> _SC_EXPR_NEST_MAX,
>
> _SC_LINE_MAX,
>
> _SC_RE_DUP_MAX,
>
> _SC_CHARCLASS_NAME_MAX,
>
>
> _SC_2_VERSION,
>
> _SC_2_C_BIND,
>
> _SC_2_C_DEV,
>
> _SC_2_FORT_DEV,
>
> _SC_2_FORT_RUN,
>
> _SC_2_SW_DEV,
>
> _SC_2_LOCALEDEF,
>
>
> _SC_PII,
>
> _SC_PII_XTI,
>
> _SC_PII_SOCKET,
>
> _SC_PII_INTERNET,
>
> _SC_PII_OSI,
>
> _SC_POLL,
>
> _SC_SELECT,
>
> _SC_UIO_MAXIOV,
>
> _SC_IOV_MAX = _SC_UIO_MAXIOV,
>
> _SC_PII_INTERNET_STREAM,
>
> _SC_PII_INTERNET_DGRAM,
>
> _SC_PII_OSI_COTS,
>
> _SC_PII_OSI_CLTS,
>
> _SC_PII_OSI_M,
>
> _SC_T_IOV_MAX,
>
>
>
> _SC_THREADS,
>
> _SC_THREAD_SAFE_FUNCTIONS,
>
> _SC_GETGR_R_SIZE_MAX,
>
> _SC_GETPW_R_SIZE_MAX,
>
> _SC_LOGIN_NAME_MAX,
>
> _SC_TTY_NAME_MAX,
>
> _SC_THREAD_DESTRUCTOR_ITERATIONS,
>
> _SC_THREAD_KEYS_MAX,
>
> _SC_THREAD_STACK_MIN,
>
> _SC_THREAD_THREADS_MAX,
>
> _SC_THREAD_ATTR_STACKADDR,
>
> _SC_THREAD_ATTR_STACKSIZE,
>
> _SC_THREAD_PRIORITY_SCHEDULING,
>
> _SC_THREAD_PRIO_INHERIT,
>
> _SC_THREAD_PRIO_PROTECT,
>
> _SC_THREAD_PROCESS_SHARED,
>
>
> _SC_NPROCESSORS_CONF,
>
> _SC_NPROCESSORS_ONLN,
>
> _SC_PHYS_PAGES,
>
> _SC_AVPHYS_PAGES,
>
> _SC_ATEXIT_MAX,
>
> _SC_PASS_MAX,
>
>
> _SC_XOPEN_VERSION,
>
> _SC_XOPEN_XCU_VERSION,
>
> _SC_XOPEN_UNIX,
>
> _SC_XOPEN_CRYPT,
>
> _SC_XOPEN_ENH_I18N,
>
> _SC_XOPEN_SHM,
>
>
> _SC_2_CHAR_TERM,
>
> _SC_2_C_VERSION,
>
> _SC_2_UPE,
>
>
> _SC_XOPEN_XPG2,
>
> _SC_XOPEN_XPG3,
>
> _SC_XOPEN_XPG4,
>
>
> _SC_CHAR_BIT,
>
> _SC_CHAR_MAX,
>
> _SC_CHAR_MIN,
>
> _SC_INT_MAX,
>
> _SC_INT_MIN,
>
> _SC_LONG_BIT,
>
> _SC_WORD_BIT,
>
> _SC_MB_LEN_MAX,
>
> _SC_NZERO,
>
> _SC_SSIZE_MAX,
>
> _SC_SCHAR_MAX,
>
> _SC_SCHAR_MIN,
>
> _SC_SHRT_MAX,
>
> _SC_SHRT_MIN,
>
> _SC_UCHAR_MAX,
>
> _SC_UINT_MAX,
>
> _SC_ULONG_MAX,
>
> _SC_USHRT_MAX,
>
>
> _SC_NL_ARGMAX,
>
> _SC_NL_LANGMAX,
>
> _SC_NL_MSGMAX,
>
> _SC_NL_NMAX,
>
> _SC_NL_SETMAX,
>
> _SC_NL_TEXTMAX,
>
>
> _SC_XBS5_ILP32_OFF32,
>
> _SC_XBS5_ILP32_OFFBIG,
>
> _SC_XBS5_LP64_OFF64,
>
> _SC_XBS5_LPBIG_OFFBIG,
>
>
> _SC_XOPEN_LEGACY,
>
> _SC_XOPEN_REALTIME,
>
> _SC_XOPEN_REALTIME_THREADS,
>
>
> _SC_ADVISORY_INFO,
>
> _SC_BARRIERS,
>
> _SC_BASE,
>
> _SC_C_LANG_SUPPORT,
>
> _SC_C_LANG_SUPPORT_R,
>
> _SC_CLOCK_SELECTION,
>
> _SC_CPUTIME,
>
> _SC_THREAD_CPUTIME,
>
> _SC_DEVICE_IO,
>
> _SC_DEVICE_SPECIFIC,
>
> _SC_DEVICE_SPECIFIC_R,
>
> _SC_FD_MGMT,
>
> _SC_FIFO,
>
> _SC_PIPE,
>
> _SC_FILE_ATTRIBUTES,
>
> _SC_FILE_LOCKING,
>
> _SC_FILE_SYSTEM,
>
> _SC_MONOTONIC_CLOCK,
>
> _SC_MULTI_PROCESS,
>
> _SC_SINGLE_PROCESS,
>
> _SC_NETWORKING,
>
> _SC_READER_WRITER_LOCKS,
>
> _SC_SPIN_LOCKS,
>
> _SC_REGEXP,
>
> _SC_REGEX_VERSION,
>
> _SC_SHELL,
>
> _SC_SIGNALS,
>
> _SC_SPAWN,
>
> _SC_SPORADIC_SERVER,
>
> _SC_THREAD_SPORADIC_SERVER,
>
> _SC_SYSTEM_DATABASE,
>
> _SC_SYSTEM_DATABASE_R,
>
> _SC_TIMEOUTS,
>
> _SC_TYPED_MEMORY_OBJECTS,
>
> _SC_USER_GROUPS,
>
> _SC_USER_GROUPS_R,
>
> _SC_2_PBS,
>
> _SC_2_PBS_ACCOUNTING,
>
> _SC_2_PBS_LOCATE,
>
> _SC_2_PBS_MESSAGE,
>
> _SC_2_PBS_TRACK,
>
> _SC_SYMLOOP_MAX,
>
> _SC_STREAMS,
>
> _SC_2_PBS_CHECKPOINT,
>
>
> _SC_V6_ILP32_OFF32,
>
> _SC_V6_ILP32_OFFBIG,
>
> _SC_V6_LP64_OFF64,
>
> _SC_V6_LPBIG_OFFBIG,
>
>
> _SC_HOST_NAME_MAX,
>
> _SC_TRACE,
>
> _SC_TRACE_EVENT_FILTER,
>
> _SC_TRACE_INHERIT,
>
> _SC_TRACE_LOG,
>
>
> _SC_LEVEL1_ICACHE_SIZE,
>
> _SC_LEVEL1_ICACHE_ASSOC,
>
> _SC_LEVEL1_ICACHE_LINESIZE,
>
> _SC_LEVEL1_DCACHE_SIZE,
>
> _SC_LEVEL1_DCACHE_ASSOC,
>
> _SC_LEVEL1_DCACHE_LINESIZE,
>
> _SC_LEVEL2_CACHE_SIZE,
>
> _SC_LEVEL2_CACHE_ASSOC,
>
> _SC_LEVEL2_CACHE_LINESIZE,
>
> _SC_LEVEL3_CACHE_SIZE,
>
> _SC_LEVEL3_CACHE_ASSOC,
>
> _SC_LEVEL3_CACHE_LINESIZE,
>
> _SC_LEVEL4_CACHE_SIZE,
>
> _SC_LEVEL4_CACHE_ASSOC,
>
> _SC_LEVEL4_CACHE_LINESIZE,
>
>
>
> _SC_IPV6 = _SC_LEVEL1_ICACHE_SIZE + 50,
>
> _SC_RAW_SOCKETS,
>
>
> _SC_V7_ILP32_OFF32,
>
> _SC_V7_ILP32_OFFBIG,
>
> _SC_V7_LP64_OFF64,
>
> _SC_V7_LPBIG_OFFBIG,
>
>
> _SC_SS_REPL_MAX,
>
>
> _SC_TRACE_EVENT_NAME_MAX,
>
> _SC_TRACE_NAME_MAX,
>
> _SC_TRACE_SYS_MAX,
>
> _SC_TRACE_USER_EVENT_MAX,
>
>
> _SC_XOPEN_STREAMS,
>
>
> _SC_THREAD_ROBUST_PRIO_INHERIT,
>
> _SC_THREAD_ROBUST_PRIO_PROTECT
>
> };
>
>
>enum
> {
> _CS_PATH,
>
>
> _CS_V6_WIDTH_RESTRICTED_ENVS,
>
>
>
> _CS_GNU_LIBC_VERSION,
>
> _CS_GNU_LIBPTHREAD_VERSION,
>
>
> _CS_V5_WIDTH_RESTRICTED_ENVS,
>
>
>
> _CS_V7_WIDTH_RESTRICTED_ENVS,
>
>
>
> _CS_LFS_CFLAGS = 1000,
>
> _CS_LFS_LDFLAGS,
>
> _CS_LFS_LIBS,
>
> _CS_LFS_LINTFLAGS,
>
> _CS_LFS64_CFLAGS,
>
> _CS_LFS64_LDFLAGS,
>
> _CS_LFS64_LIBS,
>
> _CS_LFS64_LINTFLAGS,
>
>
> _CS_XBS5_ILP32_OFF32_CFLAGS = 1100,
>
> _CS_XBS5_ILP32_OFF32_LDFLAGS,
>
> _CS_XBS5_ILP32_OFF32_LIBS,
>
> _CS_XBS5_ILP32_OFF32_LINTFLAGS,
>
> _CS_XBS5_ILP32_OFFBIG_CFLAGS,
>
> _CS_XBS5_ILP32_OFFBIG_LDFLAGS,
>
> _CS_XBS5_ILP32_OFFBIG_LIBS,
>
> _CS_XBS5_ILP32_OFFBIG_LINTFLAGS,
>
> _CS_XBS5_LP64_OFF64_CFLAGS,
>
> _CS_XBS5_LP64_OFF64_LDFLAGS,
>
> _CS_XBS5_LP64_OFF64_LIBS,
>
> _CS_XBS5_LP64_OFF64_LINTFLAGS,
>
> _CS_XBS5_LPBIG_OFFBIG_CFLAGS,
>
> _CS_XBS5_LPBIG_OFFBIG_LDFLAGS,
>
> _CS_XBS5_LPBIG_OFFBIG_LIBS,
>
> _CS_XBS5_LPBIG_OFFBIG_LINTFLAGS,
>
>
> _CS_POSIX_V6_ILP32_OFF32_CFLAGS,
>
> _CS_POSIX_V6_ILP32_OFF32_LDFLAGS,
>
> _CS_POSIX_V6_ILP32_OFF32_LIBS,
>
> _CS_POSIX_V6_ILP32_OFF32_LINTFLAGS,
>
> _CS_POSIX_V6_ILP32_OFFBIG_CFLAGS,
>
> _CS_POSIX_V6_ILP32_OFFBIG_LDFLAGS,
>
> _CS_POSIX_V6_ILP32_OFFBIG_LIBS,
>
> _CS_POSIX_V6_ILP32_OFFBIG_LINTFLAGS,
>
> _CS_POSIX_V6_LP64_OFF64_CFLAGS,
>
> _CS_POSIX_V6_LP64_OFF64_LDFLAGS,
>
> _CS_POSIX_V6_LP64_OFF64_LIBS,
>
> _CS_POSIX_V6_LP64_OFF64_LINTFLAGS,
>
> _CS_POSIX_V6_LPBIG_OFFBIG_CFLAGS,
>
> _CS_POSIX_V6_LPBIG_OFFBIG_LDFLAGS,
>
> _CS_POSIX_V6_LPBIG_OFFBIG_LIBS,
>
> _CS_POSIX_V6_LPBIG_OFFBIG_LINTFLAGS,
>
>
> _CS_POSIX_V7_ILP32_OFF32_CFLAGS,
>
> _CS_POSIX_V7_ILP32_OFF32_LDFLAGS,
>
> _CS_POSIX_V7_ILP32_OFF32_LIBS,
>
> _CS_POSIX_V7_ILP32_OFF32_LINTFLAGS,
>
> _CS_POSIX_V7_ILP32_OFFBIG_CFLAGS,
>
> _CS_POSIX_V7_ILP32_OFFBIG_LDFLAGS,
>
> _CS_POSIX_V7_ILP32_OFFBIG_LIBS,
>
> _CS_POSIX_V7_ILP32_OFFBIG_LINTFLAGS,
>
> _CS_POSIX_V7_LP64_OFF64_CFLAGS,
>
> _CS_POSIX_V7_LP64_OFF64_LDFLAGS,
>
> _CS_POSIX_V7_LP64_OFF64_LIBS,
>
> _CS_POSIX_V7_LP64_OFF64_LINTFLAGS,
>
> _CS_POSIX_V7_LPBIG_OFFBIG_CFLAGS,
>
> _CS_POSIX_V7_LPBIG_OFFBIG_LDFLAGS,
>
> _CS_POSIX_V7_LPBIG_OFFBIG_LIBS,
>
> _CS_POSIX_V7_LPBIG_OFFBIG_LINTFLAGS,
>
>
> _CS_V6_ENV,
>
> _CS_V7_ENV
>
> };
># 610 "/usr/include/unistd.h" 2 3 4
>
>
>extern long int pathconf (const char *__path, int __name)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern long int fpathconf (int __fd, int __name) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern long int sysconf (int __name) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern size_t confstr (int __name, char *__buf, size_t __len) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern __pid_t getpid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __pid_t getppid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __pid_t getpgrp (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __pid_t __getpgid (__pid_t __pid) __attribute__ ((__nothrow__ , __leaf__));
>
>extern __pid_t getpgid (__pid_t __pid) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern int setpgid (__pid_t __pid, __pid_t __pgid) __attribute__ ((__nothrow__ , __leaf__));
># 660 "/usr/include/unistd.h" 3 4
>extern int setpgrp (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern __pid_t setsid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern __pid_t getsid (__pid_t __pid) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern __uid_t getuid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __uid_t geteuid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __gid_t getgid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern __gid_t getegid (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int getgroups (int __size, __gid_t __list[]) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 700 "/usr/include/unistd.h" 3 4
>extern int setuid (__uid_t __uid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int setreuid (__uid_t __ruid, __uid_t __euid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int seteuid (__uid_t __uid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>extern int setgid (__gid_t __gid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int setregid (__gid_t __rgid, __gid_t __egid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int setegid (__gid_t __gid) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 756 "/usr/include/unistd.h" 3 4
>extern __pid_t fork (void) __attribute__ ((__nothrow__));
>
>
>
>
>
>
>
>extern __pid_t vfork (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern char *ttyname (int __fd) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int ttyname_r (int __fd, char *__buf, size_t __buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int isatty (int __fd) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern int ttyslot (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int link (const char *__from, const char *__to)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int linkat (int __fromfd, const char *__from, int __tofd,
> const char *__to, int __flags)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 4))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int symlink (const char *__from, const char *__to)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern ssize_t readlink (const char *__restrict __path,
> char *__restrict __buf, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int symlinkat (const char *__from, int __tofd,
> const char *__to) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 3))) __attribute__ ((__warn_unused_result__));
>
>
>extern ssize_t readlinkat (int __fd, const char *__restrict __path,
> char *__restrict __buf, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int unlink (const char *__name) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>extern int unlinkat (int __fd, const char *__name, int __flag)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>
>extern int rmdir (const char *__path) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>extern __pid_t tcgetpgrp (int __fd) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int tcsetpgrp (int __fd, __pid_t __pgrp_id) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>extern char *getlogin (void);
>
>
>
>
>
>
>
>extern int getlogin_r (char *__name, size_t __name_len) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>extern int setlogin (const char *__name) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
># 871 "/usr/include/unistd.h" 3 4
># 1 "/usr/include/getopt.h" 1 3 4
># 57 "/usr/include/getopt.h" 3 4
>extern char *optarg;
># 71 "/usr/include/getopt.h" 3 4
>extern int optind;
>
>
>
>
>extern int opterr;
>
>
>
>extern int optopt;
># 150 "/usr/include/getopt.h" 3 4
>extern int getopt (int ___argc, char *const *___argv, const char *__shortopts)
> __attribute__ ((__nothrow__ , __leaf__));
># 872 "/usr/include/unistd.h" 2 3 4
>
>
>
>
>
>
>
>extern int gethostname (char *__name, size_t __len) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>extern int sethostname (const char *__name, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern int sethostid (long int __id) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern int getdomainname (char *__name, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>extern int setdomainname (const char *__name, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern int vhangup (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int revoke (const char *__file) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>extern int profil (unsigned short int *__sample_buffer, size_t __size,
> size_t __offset, unsigned int __scale)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern int acct (const char *__name) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern char *getusershell (void) __attribute__ ((__nothrow__ , __leaf__));
>extern void endusershell (void) __attribute__ ((__nothrow__ , __leaf__));
>extern void setusershell (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern int daemon (int __nochdir, int __noclose) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>extern int chroot (const char *__path) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>extern char *getpass (const char *__prompt) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>
>extern int fsync (int __fd);
># 969 "/usr/include/unistd.h" 3 4
>extern long int gethostid (void);
>
>
>extern void sync (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern int getpagesize (void) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>
>
>extern int getdtablesize (void) __attribute__ ((__nothrow__ , __leaf__));
># 993 "/usr/include/unistd.h" 3 4
>extern int truncate (const char *__file, __off_t __length)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 1016 "/usr/include/unistd.h" 3 4
>extern int ftruncate (int __fd, __off_t __length) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
># 1037 "/usr/include/unistd.h" 3 4
>extern int brk (void *__addr) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern void *sbrk (intptr_t __delta) __attribute__ ((__nothrow__ , __leaf__));
># 1058 "/usr/include/unistd.h" 3 4
>extern long int syscall (long int __sysno, ...) __attribute__ ((__nothrow__ , __leaf__));
># 1081 "/usr/include/unistd.h" 3 4
>extern int lockf (int __fd, int __cmd, __off_t __len) __attribute__ ((__warn_unused_result__));
># 1112 "/usr/include/unistd.h" 3 4
>extern int fdatasync (int __fildes);
># 1148 "/usr/include/unistd.h" 3 4
># 1 "/usr/include/bits/unistd.h" 1 3 4
># 23 "/usr/include/bits/unistd.h" 3 4
>extern ssize_t __read_chk (int __fd, void *__buf, size_t __nbytes,
> size_t __buflen) __attribute__ ((__warn_unused_result__));
>extern ssize_t __read_alias (int __fd, void *__buf, size_t __nbytes) __asm__ ("" "read")
> __attribute__ ((__warn_unused_result__));
>extern ssize_t __read_chk_warn (int __fd, void *__buf, size_t __nbytes, size_t __buflen) __asm__ ("" "__read_chk")
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("read called with bigger length than size of " "the destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) ssize_t
>read (int __fd, void *__buf, size_t __nbytes)
>{
> if (__builtin_object_size (__buf, 0) != (size_t) -1)
> {
> if (!__builtin_constant_p (__nbytes))
> return __read_chk (__fd, __buf, __nbytes, __builtin_object_size (__buf, 0));
>
> if (__nbytes > __builtin_object_size (__buf, 0))
> return __read_chk_warn (__fd, __buf, __nbytes, __builtin_object_size (__buf, 0));
> }
> return __read_alias (__fd, __buf, __nbytes);
>}
># 123 "/usr/include/bits/unistd.h" 3 4
>extern ssize_t __readlink_chk (const char *__restrict __path,
> char *__restrict __buf, size_t __len,
> size_t __buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__));
>extern ssize_t __readlink_alias (const char *__restrict __path, char *__restrict __buf, size_t __len) __asm__ ("" "readlink") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__));
>extern ssize_t __readlink_chk_warn (const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __asm__ ("" "__readlink_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("readlink called with bigger length " "than size of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)) ssize_t
>__attribute__ ((__nothrow__ , __leaf__)) readlink (const char *__restrict __path, char *__restrict __buf, size_t __len)
>
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__len))
> return __readlink_chk (__path, __buf, __len, __builtin_object_size (__buf, 2 > 1));
>
> if ( __len > __builtin_object_size (__buf, 2 > 1))
> return __readlink_chk_warn (__path, __buf, __len, __builtin_object_size (__buf, 2 > 1));
> }
> return __readlink_alias (__path, __buf, __len);
>}
>
>
>
>extern ssize_t __readlinkat_chk (int __fd, const char *__restrict __path,
> char *__restrict __buf, size_t __len,
> size_t __buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__));
>extern ssize_t __readlinkat_alias (int __fd, const char *__restrict __path, char *__restrict __buf, size_t __len) __asm__ ("" "readlinkat") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__));
>extern ssize_t __readlinkat_chk_warn (int __fd, const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __asm__ ("" "__readlinkat_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("readlinkat called with bigger " "length than size of destination " "buffer")))
>
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)) ssize_t
>__attribute__ ((__nothrow__ , __leaf__)) readlinkat (int __fd, const char *__restrict __path, char *__restrict __buf, size_t __len)
>
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__len))
> return __readlinkat_chk (__fd, __path, __buf, __len, __builtin_object_size (__buf, 2 > 1));
>
> if (__len > __builtin_object_size (__buf, 2 > 1))
> return __readlinkat_chk_warn (__fd, __path, __buf, __len,
> __builtin_object_size (__buf, 2 > 1));
> }
> return __readlinkat_alias (__fd, __path, __buf, __len);
>}
>
>
>extern char *__getcwd_chk (char *__buf, size_t __size, size_t __buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>extern char *__getcwd_alias (char *__buf, size_t __size) __asm__ ("" "getcwd") __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__warn_unused_result__));
>extern char *__getcwd_chk_warn (char *__buf, size_t __size, size_t __buflen) __asm__ ("" "__getcwd_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getcwd caller with bigger length than size of " "destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) getcwd (char *__buf, size_t __size)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__size))
> return __getcwd_chk (__buf, __size, __builtin_object_size (__buf, 2 > 1));
>
> if (__size > __builtin_object_size (__buf, 2 > 1))
> return __getcwd_chk_warn (__buf, __size, __builtin_object_size (__buf, 2 > 1));
> }
> return __getcwd_alias (__buf, __size);
>}
>
>
>extern char *__getwd_chk (char *__buf, size_t buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>extern char *__getwd_warn (char *__buf) __asm__ ("" "getwd") __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("please use getcwd instead, as getwd " "doesn't specify buffer size")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__deprecated__)) __attribute__ ((__warn_unused_result__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) getwd (char *__buf)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> return __getwd_chk (__buf, __builtin_object_size (__buf, 2 > 1));
> return __getwd_warn (__buf);
>}
>
>
>extern size_t __confstr_chk (int __name, char *__buf, size_t __len,
> size_t __buflen) __attribute__ ((__nothrow__ , __leaf__));
>extern size_t __confstr_alias (int __name, char *__buf, size_t __len) __asm__ ("" "confstr") __attribute__ ((__nothrow__ , __leaf__))
> ;
>extern size_t __confstr_chk_warn (int __name, char *__buf, size_t __len, size_t __buflen) __asm__ ("" "__confstr_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__((__warning__ ("confstr called with bigger length than size of destination " "buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) size_t
>__attribute__ ((__nothrow__ , __leaf__)) confstr (int __name, char *__buf, size_t __len)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__len))
> return __confstr_chk (__name, __buf, __len, __builtin_object_size (__buf, 2 > 1));
>
> if (__builtin_object_size (__buf, 2 > 1) < __len)
> return __confstr_chk_warn (__name, __buf, __len, __builtin_object_size (__buf, 2 > 1));
> }
> return __confstr_alias (__name, __buf, __len);
>}
>
>
>extern int __getgroups_chk (int __size, __gid_t __list[], size_t __listlen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>extern int __getgroups_alias (int __size, __gid_t __list[]) __asm__ ("" "getgroups") __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__warn_unused_result__));
>extern int __getgroups_chk_warn (int __size, __gid_t __list[], size_t __listlen) __asm__ ("" "__getgroups_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getgroups called with bigger group count than what " "can fit into destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) getgroups (int __size, __gid_t __list[])
>{
> if (__builtin_object_size (__list, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__size) || __size < 0)
> return __getgroups_chk (__size, __list, __builtin_object_size (__list, 2 > 1));
>
> if (__size * sizeof (__gid_t) > __builtin_object_size (__list, 2 > 1))
> return __getgroups_chk_warn (__size, __list, __builtin_object_size (__list, 2 > 1));
> }
> return __getgroups_alias (__size, __list);
>}
>
>
>extern int __ttyname_r_chk (int __fd, char *__buf, size_t __buflen,
> size_t __nreal) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>extern int __ttyname_r_alias (int __fd, char *__buf, size_t __buflen) __asm__ ("" "ttyname_r") __attribute__ ((__nothrow__ , __leaf__))
>
> __attribute__ ((__nonnull__ (2)));
>extern int __ttyname_r_chk_warn (int __fd, char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__ttyname_r_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__nonnull__ (2))) __attribute__((__warning__ ("ttyname_r called with bigger buflen than " "size of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) ttyname_r (int __fd, char *__buf, size_t __buflen)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__buflen))
> return __ttyname_r_chk (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1));
>
> if (__buflen > __builtin_object_size (__buf, 2 > 1))
> return __ttyname_r_chk_warn (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> }
> return __ttyname_r_alias (__fd, __buf, __buflen);
>}
>
>
>
>extern int __getlogin_r_chk (char *__buf, size_t __buflen, size_t __nreal)
> __attribute__ ((__nonnull__ (1)));
>extern int __getlogin_r_alias (char *__buf, size_t __buflen) __asm__ ("" "getlogin_r")
> __attribute__ ((__nonnull__ (1)));
>extern int __getlogin_r_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__getlogin_r_chk")
>
>
> __attribute__ ((__nonnull__ (1))) __attribute__((__warning__ ("getlogin_r called with bigger buflen than " "size of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>getlogin_r (char *__buf, size_t __buflen)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__buflen))
> return __getlogin_r_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
>
> if (__buflen > __builtin_object_size (__buf, 2 > 1))
> return __getlogin_r_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> }
> return __getlogin_r_alias (__buf, __buflen);
>}
>
>
>
>
>extern int __gethostname_chk (char *__buf, size_t __buflen, size_t __nreal)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>extern int __gethostname_alias (char *__buf, size_t __buflen) __asm__ ("" "gethostname") __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__nonnull__ (1)));
>extern int __gethostname_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__gethostname_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__nonnull__ (1))) __attribute__((__warning__ ("gethostname called with bigger buflen than " "size of destination buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) gethostname (char *__buf, size_t __buflen)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__buflen))
> return __gethostname_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
>
> if (__buflen > __builtin_object_size (__buf, 2 > 1))
> return __gethostname_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> }
> return __gethostname_alias (__buf, __buflen);
>}
>
>
>
>
>extern int __getdomainname_chk (char *__buf, size_t __buflen, size_t __nreal)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>extern int __getdomainname_alias (char *__buf, size_t __buflen) __asm__ ("" "getdomainname") __attribute__ ((__nothrow__ , __leaf__))
>
> __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>extern int __getdomainname_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__getdomainname_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getdomainname called with bigger " "buflen than size of destination " "buffer")))
>
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) getdomainname (char *__buf, size_t __buflen)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__buflen))
> return __getdomainname_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
>
> if (__buflen > __builtin_object_size (__buf, 2 > 1))
> return __getdomainname_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> }
> return __getdomainname_alias (__buf, __buflen);
>}
># 1149 "/usr/include/unistd.h" 2 3 4
>
>
>
># 32 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-unistd.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 1
># 35 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-unistd.h" 2
># 38 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
># 1 "/usr/include/stdlib.h" 1 3 4
># 32 "/usr/include/stdlib.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 324 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 3 4
>typedef int wchar_t;
># 33 "/usr/include/stdlib.h" 2 3 4
>
>
>
>
>
>
>
>
># 1 "/usr/include/bits/waitflags.h" 1 3 4
># 42 "/usr/include/stdlib.h" 2 3 4
># 1 "/usr/include/bits/waitstatus.h" 1 3 4
># 66 "/usr/include/bits/waitstatus.h" 3 4
>union wait
> {
> int w_status;
> struct
> {
>
>
>
>
>
>
>
> unsigned int:16;
> unsigned int __w_retcode:8;
> unsigned int __w_coredump:1;
> unsigned int __w_termsig:7;
>
> } __wait_terminated;
> struct
> {
>
>
>
>
>
>
> unsigned int:16;
> unsigned int __w_stopsig:8;
> unsigned int __w_stopval:8;
>
> } __wait_stopped;
> };
># 43 "/usr/include/stdlib.h" 2 3 4
># 67 "/usr/include/stdlib.h" 3 4
>typedef union
> {
> union wait *__uptr;
> int *__iptr;
> } __WAIT_STATUS __attribute__ ((__transparent_union__));
># 95 "/usr/include/stdlib.h" 3 4
>
>
>typedef struct
> {
> int quot;
> int rem;
> } div_t;
>
>
>
>typedef struct
> {
> long int quot;
> long int rem;
> } ldiv_t;
>
>
>
>
>
>
>
>__extension__ typedef struct
> {
> long long int quot;
> long long int rem;
> } lldiv_t;
>
>
># 139 "/usr/include/stdlib.h" 3 4
>extern size_t __ctype_get_mb_cur_max (void) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern double atof (const char *__nptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern int atoi (const char *__nptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern long int atol (const char *__nptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>__extension__ extern long long int atoll (const char *__nptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>extern double strtod (const char *__restrict __nptr,
> char **__restrict __endptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern float strtof (const char *__restrict __nptr,
> char **__restrict __endptr) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>extern long double strtold (const char *__restrict __nptr,
> char **__restrict __endptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern long int strtol (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>extern unsigned long int strtoul (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>__extension__
>extern long long int strtoq (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>__extension__
>extern unsigned long long int strtouq (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>__extension__
>extern long long int strtoll (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>__extension__
>extern unsigned long long int strtoull (const char *__restrict __nptr,
> char **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
># 276 "/usr/include/stdlib.h" 3 4
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) atoi (const char *__nptr)
>{
> return (int) strtol (__nptr, (char **) ((void *)0), 10);
>}
>extern __inline __attribute__ ((__gnu_inline__)) long int
>__attribute__ ((__nothrow__ , __leaf__)) atol (const char *__nptr)
>{
> return strtol (__nptr, (char **) ((void *)0), 10);
>}
>
>
>
>
>__extension__ extern __inline __attribute__ ((__gnu_inline__)) long long int
>__attribute__ ((__nothrow__ , __leaf__)) atoll (const char *__nptr)
>{
> return strtoll (__nptr, (char **) ((void *)0), 10);
>}
>
># 305 "/usr/include/stdlib.h" 3 4
>extern char *l64a (long int __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>extern long int a64l (const char *__s)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 321 "/usr/include/stdlib.h" 3 4
>extern long int random (void) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern void srandom (unsigned int __seed) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern char *initstate (unsigned int __seed, char *__statebuf,
> size_t __statelen) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>
>extern char *setstate (char *__statebuf) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>
>struct random_data
> {
> int32_t *fptr;
> int32_t *rptr;
> int32_t *state;
> int rand_type;
> int rand_deg;
> int rand_sep;
> int32_t *end_ptr;
> };
>
>extern int random_r (struct random_data *__restrict __buf,
> int32_t *__restrict __result) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern int srandom_r (unsigned int __seed, struct random_data *__buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>extern int initstate_r (unsigned int __seed, char *__restrict __statebuf,
> size_t __statelen,
> struct random_data *__restrict __buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 4)));
>
>extern int setstate_r (char *__restrict __statebuf,
> struct random_data *__restrict __buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>
>
>extern int rand (void) __attribute__ ((__nothrow__ , __leaf__));
>
>extern void srand (unsigned int __seed) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern int rand_r (unsigned int *__seed) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>extern double drand48 (void) __attribute__ ((__nothrow__ , __leaf__));
>extern double erand48 (unsigned short int __xsubi[3]) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern long int lrand48 (void) __attribute__ ((__nothrow__ , __leaf__));
>extern long int nrand48 (unsigned short int __xsubi[3])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern long int mrand48 (void) __attribute__ ((__nothrow__ , __leaf__));
>extern long int jrand48 (unsigned short int __xsubi[3])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern void srand48 (long int __seedval) __attribute__ ((__nothrow__ , __leaf__));
>extern unsigned short int *seed48 (unsigned short int __seed16v[3])
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>extern void lcong48 (unsigned short int __param[7]) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>struct drand48_data
> {
> unsigned short int __x[3];
> unsigned short int __old_x[3];
> unsigned short int __c;
> unsigned short int __init;
> __extension__ unsigned long long int __a;
>
> };
>
>
>extern int drand48_r (struct drand48_data *__restrict __buffer,
> double *__restrict __result) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>extern int erand48_r (unsigned short int __xsubi[3],
> struct drand48_data *__restrict __buffer,
> double *__restrict __result) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int lrand48_r (struct drand48_data *__restrict __buffer,
> long int *__restrict __result)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>extern int nrand48_r (unsigned short int __xsubi[3],
> struct drand48_data *__restrict __buffer,
> long int *__restrict __result)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int mrand48_r (struct drand48_data *__restrict __buffer,
> long int *__restrict __result)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>extern int jrand48_r (unsigned short int __xsubi[3],
> struct drand48_data *__restrict __buffer,
> long int *__restrict __result)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int srand48_r (long int __seedval, struct drand48_data *__buffer)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>extern int seed48_r (unsigned short int __seed16v[3],
> struct drand48_data *__buffer) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern int lcong48_r (unsigned short int __param[7],
> struct drand48_data *__buffer)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>
>
>
>
>
>extern void *malloc (size_t __size) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__));
>
>extern void *calloc (size_t __nmemb, size_t __size)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>
>
>
>extern void *realloc (void *__ptr, size_t __size)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>extern void free (void *__ptr) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>extern void cfree (void *__ptr) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
># 1 "/usr/include/alloca.h" 1 3 4
># 24 "/usr/include/alloca.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 25 "/usr/include/alloca.h" 2 3 4
>
>
>
>
>
>
>
>extern void *alloca (size_t __size) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
># 493 "/usr/include/stdlib.h" 2 3 4
>
>
>
>
>
>extern void *valloc (size_t __size) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int posix_memalign (void **__memptr, size_t __alignment, size_t __size)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 513 "/usr/include/stdlib.h" 3 4
>
>
>extern void abort (void) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>
>extern int atexit (void (*__func) (void)) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
># 530 "/usr/include/stdlib.h" 3 4
>
>
>
>
>
>extern int on_exit (void (*__func) (int __status, void *__arg), void *__arg)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>extern void exit (int __status) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>
>
>
>
>
>
>
>
>
>
>
>extern void _Exit (int __status) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>
>
>
>
>extern char *getenv (const char *__name) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
># 578 "/usr/include/stdlib.h" 3 4
>extern int putenv (char *__string) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern int setenv (const char *__name, const char *__value, int __replace)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>extern int unsetenv (const char *__name) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>extern int clearenv (void) __attribute__ ((__nothrow__ , __leaf__));
># 606 "/usr/include/stdlib.h" 3 4
>extern char *mktemp (char *__template) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
># 619 "/usr/include/stdlib.h" 3 4
>extern int mkstemp (char *__template) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 641 "/usr/include/stdlib.h" 3 4
>extern int mkstemps (char *__template, int __suffixlen) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 662 "/usr/include/stdlib.h" 3 4
>extern char *mkdtemp (char *__template) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 711 "/usr/include/stdlib.h" 3 4
>
>
>
>
>
>extern int system (const char *__command) __attribute__ ((__warn_unused_result__));
>
># 733 "/usr/include/stdlib.h" 3 4
>extern char *realpath (const char *__restrict __name,
> char *__restrict __resolved) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>typedef int (*__compar_fn_t) (const void *, const void *);
># 751 "/usr/include/stdlib.h" 3 4
>
>
>
>extern void *bsearch (const void *__key, const void *__base,
> size_t __nmemb, size_t __size, __compar_fn_t __compar)
> __attribute__ ((__nonnull__ (1, 2, 5))) __attribute__ ((__warn_unused_result__));
>
>
># 1 "/usr/include/bits/stdlib-bsearch.h" 1 3 4
># 19 "/usr/include/bits/stdlib-bsearch.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) void *
>bsearch (const void *__key, const void *__base, size_t __nmemb, size_t __size,
> __compar_fn_t __compar)
>{
> size_t __l, __u, __idx;
> const void *__p;
> int __comparison;
>
> __l = 0;
> __u = __nmemb;
> while (__l < __u)
> {
> __idx = (__l + __u) / 2;
> __p = (void *) (((const char *) __base) + (__idx * __size));
> __comparison = (*__compar) (__key, __p);
> if (__comparison < 0)
> __u = __idx;
> else if (__comparison > 0)
> __l = __idx + 1;
> else
> return (void *) __p;
> }
>
> return ((void *)0);
>}
># 760 "/usr/include/stdlib.h" 2 3 4
>
>
>
>
>extern void qsort (void *__base, size_t __nmemb, size_t __size,
> __compar_fn_t __compar) __attribute__ ((__nonnull__ (1, 4)));
># 774 "/usr/include/stdlib.h" 3 4
>extern int abs (int __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>extern long int labs (long int __x) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>
>
>
>__extension__ extern long long int llabs (long long int __x)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>
>
>
>extern div_t div (int __numer, int __denom)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>extern ldiv_t ldiv (long int __numer, long int __denom)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>
>
>
>
>__extension__ extern lldiv_t lldiv (long long int __numer,
> long long int __denom)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__));
>
># 811 "/usr/include/stdlib.h" 3 4
>extern char *ecvt (double __value, int __ndigit, int *__restrict __decpt,
> int *__restrict __sign) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern char *fcvt (double __value, int __ndigit, int *__restrict __decpt,
> int *__restrict __sign) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern char *gcvt (double __value, int __ndigit, char *__buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern char *qecvt (long double __value, int __ndigit,
> int *__restrict __decpt, int *__restrict __sign)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__));
>extern char *qfcvt (long double __value, int __ndigit,
> int *__restrict __decpt, int *__restrict __sign)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__));
>extern char *qgcvt (long double __value, int __ndigit, char *__buf)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3))) __attribute__ ((__warn_unused_result__));
>
>
>
>
>extern int ecvt_r (double __value, int __ndigit, int *__restrict __decpt,
> int *__restrict __sign, char *__restrict __buf,
> size_t __len) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4, 5)));
>extern int fcvt_r (double __value, int __ndigit, int *__restrict __decpt,
> int *__restrict __sign, char *__restrict __buf,
> size_t __len) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4, 5)));
>
>extern int qecvt_r (long double __value, int __ndigit,
> int *__restrict __decpt, int *__restrict __sign,
> char *__restrict __buf, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4, 5)));
>extern int qfcvt_r (long double __value, int __ndigit,
> int *__restrict __decpt, int *__restrict __sign,
> char *__restrict __buf, size_t __len)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (3, 4, 5)));
>
>
>
>
>
>
>extern int mblen (const char *__s, size_t __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int mbtowc (wchar_t *__restrict __pwc,
> const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int wctomb (char *__s, wchar_t __wchar) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern size_t mbstowcs (wchar_t *__restrict __pwcs,
> const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__ , __leaf__));
>
>extern size_t wcstombs (char *__restrict __s,
> const wchar_t *__restrict __pwcs, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern int rpmatch (const char *__response) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
># 898 "/usr/include/stdlib.h" 3 4
>extern int getsubopt (char **__restrict __optionp,
> char *const *__restrict __tokens,
> char **__restrict __valuep)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2, 3))) __attribute__ ((__warn_unused_result__));
># 950 "/usr/include/stdlib.h" 3 4
>extern int getloadavg (double __loadavg[], int __nelem)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
># 1 "/usr/include/bits/stdlib-float.h" 1 3 4
># 24 "/usr/include/bits/stdlib-float.h" 3 4
>
>extern __inline __attribute__ ((__gnu_inline__)) double
>__attribute__ ((__nothrow__ , __leaf__)) atof (const char *__nptr)
>{
> return strtod (__nptr, (char **) ((void *)0));
>}
>
># 955 "/usr/include/stdlib.h" 2 3 4
>
>
>
># 1 "/usr/include/bits/stdlib.h" 1 3 4
># 23 "/usr/include/bits/stdlib.h" 3 4
>extern char *__realpath_chk (const char *__restrict __name,
> char *__restrict __resolved,
> size_t __resolvedlen) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>extern char *__realpath_alias (const char *__restrict __name, char *__restrict __resolved) __asm__ ("" "realpath") __attribute__ ((__nothrow__ , __leaf__))
>
> __attribute__ ((__warn_unused_result__));
>extern char *__realpath_chk_warn (const char *__restrict __name, char *__restrict __resolved, size_t __resolvedlen) __asm__ ("" "__realpath_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__warn_unused_result__))
> __attribute__((__warning__ ("second argument of realpath must be either NULL or at " "least PATH_MAX bytes long buffer")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) realpath (const char *__restrict __name, char *__restrict __resolved)
>{
> if (__builtin_object_size (__resolved, 2 > 1) != (size_t) -1)
> {
>
>
>
>
> return __realpath_chk (__name, __resolved, __builtin_object_size (__resolved, 2 > 1));
> }
>
> return __realpath_alias (__name, __resolved);
>}
>
>
>extern int __ptsname_r_chk (int __fd, char *__buf, size_t __buflen,
> size_t __nreal) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>extern int __ptsname_r_alias (int __fd, char *__buf, size_t __buflen) __asm__ ("" "ptsname_r") __attribute__ ((__nothrow__ , __leaf__))
>
> __attribute__ ((__nonnull__ (2)));
>extern int __ptsname_r_chk_warn (int __fd, char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__ptsname_r_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
> __attribute__ ((__nonnull__ (2))) __attribute__((__warning__ ("ptsname_r called with buflen bigger than " "size of buf")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>__attribute__ ((__nothrow__ , __leaf__)) ptsname_r (int __fd, char *__buf, size_t __buflen)
>{
> if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__buflen))
> return __ptsname_r_chk (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> if (__buflen > __builtin_object_size (__buf, 2 > 1))
> return __ptsname_r_chk_warn (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1));
> }
> return __ptsname_r_alias (__fd, __buf, __buflen);
>}
>
>
>extern int __wctomb_chk (char *__s, wchar_t __wchar, size_t __buflen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__warn_unused_result__));
>extern int __wctomb_alias (char *__s, wchar_t __wchar) __asm__ ("" "wctomb") __attribute__ ((__nothrow__ , __leaf__))
> __attribute__ ((__warn_unused_result__));
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) int
>__attribute__ ((__nothrow__ , __leaf__)) wctomb (char *__s, wchar_t __wchar)
>{
>
>
>
>
>
>
>
> if (__builtin_object_size (__s, 2 > 1) != (size_t) -1 && 16 > __builtin_object_size (__s, 2 > 1))
> return __wctomb_chk (__s, __wchar, __builtin_object_size (__s, 2 > 1));
> return __wctomb_alias (__s, __wchar);
>}
>
>
>extern size_t __mbstowcs_chk (wchar_t *__restrict __dst,
> const char *__restrict __src,
> size_t __len, size_t __dstlen) __attribute__ ((__nothrow__ , __leaf__));
>extern size_t __mbstowcs_alias (wchar_t *__restrict __dst, const char *__restrict __src, size_t __len) __asm__ ("" "mbstowcs") __attribute__ ((__nothrow__ , __leaf__))
>
>
> ;
>extern size_t __mbstowcs_chk_warn (wchar_t *__restrict __dst, const char *__restrict __src, size_t __len, size_t __dstlen) __asm__ ("" "__mbstowcs_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__((__warning__ ("mbstowcs called with dst buffer smaller than len " "* sizeof (wchar_t)")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) size_t
>__attribute__ ((__nothrow__ , __leaf__)) mbstowcs (wchar_t *__restrict __dst, const char *__restrict __src, size_t __len)
>
>{
> if (__builtin_object_size (__dst, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__len))
> return __mbstowcs_chk (__dst, __src, __len,
> __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t));
>
> if (__len > __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t))
> return __mbstowcs_chk_warn (__dst, __src, __len,
> __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t));
> }
> return __mbstowcs_alias (__dst, __src, __len);
>}
>
>
>extern size_t __wcstombs_chk (char *__restrict __dst,
> const wchar_t *__restrict __src,
> size_t __len, size_t __dstlen) __attribute__ ((__nothrow__ , __leaf__));
>extern size_t __wcstombs_alias (char *__restrict __dst, const wchar_t *__restrict __src, size_t __len) __asm__ ("" "wcstombs") __attribute__ ((__nothrow__ , __leaf__))
>
>
> ;
>extern size_t __wcstombs_chk_warn (char *__restrict __dst, const wchar_t *__restrict __src, size_t __len, size_t __dstlen) __asm__ ("" "__wcstombs_chk") __attribute__ ((__nothrow__ , __leaf__))
>
>
>
> __attribute__((__warning__ ("wcstombs called with dst buffer smaller than len")));
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) size_t
>__attribute__ ((__nothrow__ , __leaf__)) wcstombs (char *__restrict __dst, const wchar_t *__restrict __src, size_t __len)
>
>{
> if (__builtin_object_size (__dst, 2 > 1) != (size_t) -1)
> {
> if (!__builtin_constant_p (__len))
> return __wcstombs_chk (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1));
> if (__len > __builtin_object_size (__dst, 2 > 1))
> return __wcstombs_chk_warn (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1));
> }
> return __wcstombs_alias (__dst, __src, __len);
>}
># 959 "/usr/include/stdlib.h" 2 3 4
># 967 "/usr/include/stdlib.h" 3 4
>
># 41 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
># 75 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-memstr.h" 1
># 25 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-memstr.h"
># 1 "/usr/include/string.h" 1 3 4
># 27 "/usr/include/string.h" 3 4
>
>
>
>
>
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 33 "/usr/include/string.h" 2 3 4
># 44 "/usr/include/string.h" 3 4
>
>
>extern void *memcpy (void *__restrict __dest, const void *__restrict __src,
> size_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern void *memmove (void *__dest, const void *__src, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>
>
>extern void *memccpy (void *__restrict __dest, const void *__restrict __src,
> int __c, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>
>extern void *memset (void *__s, int __c, size_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern int memcmp (const void *__s1, const void *__s2, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
># 96 "/usr/include/string.h" 3 4
>extern void *memchr (const void *__s, int __c, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
>
>
># 127 "/usr/include/string.h" 3 4
>
>
>extern char *strcpy (char *__restrict __dest, const char *__restrict __src)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern char *strncpy (char *__restrict __dest,
> const char *__restrict __src, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern char *strcat (char *__restrict __dest, const char *__restrict __src)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern char *strncat (char *__restrict __dest, const char *__restrict __src,
> size_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int strcmp (const char *__s1, const char *__s2)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern int strncmp (const char *__s1, const char *__s2, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int strcoll (const char *__s1, const char *__s2)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>extern size_t strxfrm (char *__restrict __dest,
> const char *__restrict __src, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>
>
>
>
># 1 "/usr/include/xlocale.h" 1 3 4
># 27 "/usr/include/xlocale.h" 3 4
>typedef struct __locale_struct
>{
>
> struct __locale_data *__locales[13];
>
>
> const unsigned short int *__ctype_b;
> const int *__ctype_tolower;
> const int *__ctype_toupper;
>
>
> const char *__names[13];
>} *__locale_t;
>
>
>typedef __locale_t locale_t;
># 164 "/usr/include/string.h" 2 3 4
>
>
>extern int strcoll_l (const char *__s1, const char *__s2, __locale_t __l)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2, 3)));
>
>extern size_t strxfrm_l (char *__dest, const char *__src, size_t __n,
> __locale_t __l) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 4)));
>
>
>
>
>extern char *strdup (const char *__s)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>extern char *strndup (const char *__string, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__)) __attribute__ ((__nonnull__ (1)));
># 210 "/usr/include/string.h" 3 4
>
># 235 "/usr/include/string.h" 3 4
>extern char *strchr (const char *__s, int __c)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
># 262 "/usr/include/string.h" 3 4
>extern char *strrchr (const char *__s, int __c)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
>
>
># 281 "/usr/include/string.h" 3 4
>
>
>
>extern size_t strcspn (const char *__s, const char *__reject)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern size_t strspn (const char *__s, const char *__accept)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
># 314 "/usr/include/string.h" 3 4
>extern char *strpbrk (const char *__s, const char *__accept)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
># 341 "/usr/include/string.h" 3 4
>extern char *strstr (const char *__haystack, const char *__needle)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>extern char *strtok (char *__restrict __s, const char *__restrict __delim)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2)));
>
>
>
>
>extern char *__strtok_r (char *__restrict __s,
> const char *__restrict __delim,
> char **__restrict __save_ptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 3)));
>
>extern char *strtok_r (char *__restrict __s, const char *__restrict __delim,
> char **__restrict __save_ptr)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (2, 3)));
># 396 "/usr/include/string.h" 3 4
>
>
>extern size_t strlen (const char *__s)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern size_t strnlen (const char *__string, size_t __maxlen)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>extern char *strerror (int __errnum) __attribute__ ((__nothrow__ , __leaf__));
>
># 426 "/usr/include/string.h" 3 4
>extern int strerror_r (int __errnum, char *__buf, size_t __buflen) __asm__ ("" "__xpg_strerror_r") __attribute__ ((__nothrow__ , __leaf__))
>
> __attribute__ ((__nonnull__ (2)));
># 444 "/usr/include/string.h" 3 4
>extern char *strerror_l (int __errnum, __locale_t __l) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern void __bzero (void *__s, size_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>extern void bcopy (const void *__src, void *__dest, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern void bzero (void *__s, size_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1)));
>
>
>extern int bcmp (const void *__s1, const void *__s2, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
># 488 "/usr/include/string.h" 3 4
>extern char *index (const char *__s, int __c)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
># 516 "/usr/include/string.h" 3 4
>extern char *rindex (const char *__s, int __c)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
>
>
>
>
>extern int ffs (int __i) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
># 533 "/usr/include/string.h" 3 4
>extern int strcasecmp (const char *__s1, const char *__s2)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>extern int strncasecmp (const char *__s1, const char *__s2, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
># 556 "/usr/include/string.h" 3 4
>extern char *strsep (char **__restrict __stringp,
> const char *__restrict __delim)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>
>extern char *strsignal (int __sig) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern char *__stpcpy (char *__restrict __dest, const char *__restrict __src)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>extern char *stpcpy (char *__restrict __dest, const char *__restrict __src)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>
>
>
>extern char *__stpncpy (char *__restrict __dest,
> const char *__restrict __src, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
>extern char *stpncpy (char *__restrict __dest,
> const char *__restrict __src, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1, 2)));
># 631 "/usr/include/string.h" 3 4
># 1 "/usr/include/bits/string.h" 1 3 4
># 632 "/usr/include/string.h" 2 3 4
>
>
># 1 "/usr/include/bits/string2.h" 1 3 4
># 393 "/usr/include/bits/string2.h" 3 4
>extern void *__rawmemchr (const void *__s, int __c);
># 945 "/usr/include/bits/string2.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strcspn_c1 (const char *__s, int __reject);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strcspn_c1 (const char *__s, int __reject)
>{
> size_t __result = 0;
> while (__s[__result] != '\0' && __s[__result] != __reject)
> ++__result;
> return __result;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strcspn_c2 (const char *__s, int __reject1,
> int __reject2);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strcspn_c2 (const char *__s, int __reject1, int __reject2)
>{
> size_t __result = 0;
> while (__s[__result] != '\0' && __s[__result] != __reject1
> && __s[__result] != __reject2)
> ++__result;
> return __result;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strcspn_c3 (const char *__s, int __reject1,
> int __reject2, int __reject3);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strcspn_c3 (const char *__s, int __reject1, int __reject2,
> int __reject3)
>{
> size_t __result = 0;
> while (__s[__result] != '\0' && __s[__result] != __reject1
> && __s[__result] != __reject2 && __s[__result] != __reject3)
> ++__result;
> return __result;
>}
># 1021 "/usr/include/bits/string2.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strspn_c1 (const char *__s, int __accept);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strspn_c1 (const char *__s, int __accept)
>{
> size_t __result = 0;
>
> while (__s[__result] == __accept)
> ++__result;
> return __result;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strspn_c2 (const char *__s, int __accept1,
> int __accept2);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strspn_c2 (const char *__s, int __accept1, int __accept2)
>{
> size_t __result = 0;
>
> while (__s[__result] == __accept1 || __s[__result] == __accept2)
> ++__result;
> return __result;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) size_t __strspn_c3 (const char *__s, int __accept1,
> int __accept2, int __accept3);
>extern __inline __attribute__ ((__gnu_inline__)) size_t
>__strspn_c3 (const char *__s, int __accept1, int __accept2, int __accept3)
>{
> size_t __result = 0;
>
> while (__s[__result] == __accept1 || __s[__result] == __accept2
> || __s[__result] == __accept3)
> ++__result;
> return __result;
>}
># 1097 "/usr/include/bits/string2.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) char *__strpbrk_c2 (const char *__s, int __accept1,
> int __accept2);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strpbrk_c2 (const char *__s, int __accept1, int __accept2)
>{
>
> while (*__s != '\0' && *__s != __accept1 && *__s != __accept2)
> ++__s;
> return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) char *__strpbrk_c3 (const char *__s, int __accept1,
> int __accept2, int __accept3);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strpbrk_c3 (const char *__s, int __accept1, int __accept2, int __accept3)
>{
>
> while (*__s != '\0' && *__s != __accept1 && *__s != __accept2
> && *__s != __accept3)
> ++__s;
> return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s;
>}
># 1147 "/usr/include/bits/string2.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) char *__strtok_r_1c (char *__s, char __sep, char **__nextp);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strtok_r_1c (char *__s, char __sep, char **__nextp)
>{
> char *__result;
> if (__s == ((void *)0))
> __s = *__nextp;
> while (*__s == __sep)
> ++__s;
> __result = ((void *)0);
> if (*__s != '\0')
> {
> __result = __s++;
> while (*__s != '\0')
> if (*__s++ == __sep)
> {
> __s[-1] = '\0';
> break;
> }
> }
> *__nextp = __s;
> return __result;
>}
># 1179 "/usr/include/bits/string2.h" 3 4
>extern char *__strsep_g (char **__stringp, const char *__delim);
># 1197 "/usr/include/bits/string2.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) char *__strsep_1c (char **__s, char __reject);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strsep_1c (char **__s, char __reject)
>{
> char *__retval = *__s;
> if (__retval != ((void *)0) && (*__s = (__extension__ (__builtin_constant_p (__reject) && !__builtin_constant_p (__retval) && (__reject) == '\0' ? (char *) __rawmemchr (__retval, __reject) : __builtin_strchr (__retval, __reject)))) != ((void *)0))
> *(*__s)++ = '\0';
> return __retval;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) char *__strsep_2c (char **__s, char __reject1, char __reject2);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strsep_2c (char **__s, char __reject1, char __reject2)
>{
> char *__retval = *__s;
> if (__retval != ((void *)0))
> {
> char *__cp = __retval;
> while (1)
> {
> if (*__cp == '\0')
> {
> __cp = ((void *)0);
> break;
> }
> if (*__cp == __reject1 || *__cp == __reject2)
> {
> *__cp++ = '\0';
> break;
> }
> ++__cp;
> }
> *__s = __cp;
> }
> return __retval;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) char *__strsep_3c (char **__s, char __reject1, char __reject2,
> char __reject3);
>extern __inline __attribute__ ((__gnu_inline__)) char *
>__strsep_3c (char **__s, char __reject1, char __reject2, char __reject3)
>{
> char *__retval = *__s;
> if (__retval != ((void *)0))
> {
> char *__cp = __retval;
> while (1)
> {
> if (*__cp == '\0')
> {
> __cp = ((void *)0);
> break;
> }
> if (*__cp == __reject1 || *__cp == __reject2 || *__cp == __reject3)
> {
> *__cp++ = '\0';
> break;
> }
> ++__cp;
> }
> *__s = __cp;
> }
> return __retval;
>}
># 1278 "/usr/include/bits/string2.h" 3 4
>extern char *__strdup (const char *__string) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__));
># 1297 "/usr/include/bits/string2.h" 3 4
>extern char *__strndup (const char *__string, size_t __n)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__malloc__));
># 635 "/usr/include/string.h" 2 3 4
>
>
>
>
># 1 "/usr/include/bits/string3.h" 1 3 4
># 22 "/usr/include/bits/string3.h" 3 4
>extern void __warn_memset_zero_len (void) __attribute__((__warning__ ("memset used with constant zero length parameter; this could be due to transposed parameters")))
> ;
># 47 "/usr/include/bits/string3.h" 3 4
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) void *
>__attribute__ ((__nothrow__ , __leaf__)) memcpy (void *__restrict __dest, const void *__restrict __src, size_t __len)
>
>{
> return __builtin___memcpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 0));
>}
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) void *
>__attribute__ ((__nothrow__ , __leaf__)) memmove (void *__dest, const void *__src, size_t __len)
>{
> return __builtin___memmove_chk (__dest, __src, __len, __builtin_object_size (__dest, 0));
>}
># 75 "/usr/include/bits/string3.h" 3 4
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) void *
>__attribute__ ((__nothrow__ , __leaf__)) memset (void *__dest, int __ch, size_t __len)
>{
> if (__builtin_constant_p (__len) && __len == 0
> && (!__builtin_constant_p (__ch) || __ch != 0))
> {
> __warn_memset_zero_len ();
> return __dest;
> }
> return __builtin___memset_chk (__dest, __ch, __len, __builtin_object_size (__dest, 0));
>}
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) void
>__attribute__ ((__nothrow__ , __leaf__)) bcopy (const void *__src, void *__dest, size_t __len)
>{
> (void) __builtin___memmove_chk (__dest, __src, __len, __builtin_object_size (__dest, 0));
>}
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) void
>__attribute__ ((__nothrow__ , __leaf__)) bzero (void *__dest, size_t __len)
>{
> (void) __builtin___memset_chk (__dest, '\0', __len, __builtin_object_size (__dest, 0));
>}
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) strcpy (char *__restrict __dest, const char *__restrict __src)
>{
> return __builtin___strcpy_chk (__dest, __src, __builtin_object_size (__dest, 2 > 1));
>}
># 116 "/usr/include/bits/string3.h" 3 4
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) strncpy (char *__restrict __dest, const char *__restrict __src, size_t __len)
>
>{
> return __builtin___strncpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 2 > 1));
>}
>
>
>extern char *__stpncpy_chk (char *__dest, const char *__src, size_t __n,
> size_t __destlen) __attribute__ ((__nothrow__ , __leaf__));
>extern char *__stpncpy_alias (char *__dest, const char *__src, size_t __n) __asm__ ("" "stpncpy") __attribute__ ((__nothrow__ , __leaf__))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) stpncpy (char *__dest, const char *__src, size_t __n)
>{
> if (__builtin_object_size (__dest, 2 > 1) != (size_t) -1
> && (!__builtin_constant_p (__n) || __n <= __builtin_object_size (__dest, 2 > 1)))
> return __stpncpy_chk (__dest, __src, __n, __builtin_object_size (__dest, 2 > 1));
> return __stpncpy_alias (__dest, __src, __n);
>}
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) strcat (char *__restrict __dest, const char *__restrict __src)
>{
> return __builtin___strcat_chk (__dest, __src, __builtin_object_size (__dest, 2 > 1));
>}
>
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) char *
>__attribute__ ((__nothrow__ , __leaf__)) strncat (char *__restrict __dest, const char *__restrict __src, size_t __len)
>
>{
> return __builtin___strncat_chk (__dest, __src, __len, __builtin_object_size (__dest, 2 > 1));
>}
># 640 "/usr/include/string.h" 2 3 4
>
>
>
>
># 26 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-memstr.h" 2
># 76 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-errno.h" 1
># 22 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-errno.h"
># 1 "/usr/include/errno.h" 1 3 4
># 31 "/usr/include/errno.h" 3 4
>
>
>
>
># 1 "/usr/include/bits/errno.h" 1 3 4
># 24 "/usr/include/bits/errno.h" 3 4
># 1 "/usr/include/linux/errno.h" 1 3 4
># 1 "/usr/include/asm/errno.h" 1 3 4
># 9 "/usr/include/asm/errno.h" 3 4
># 1 "/usr/include/asm-generic/errno.h" 1 3 4
>
>
>
># 1 "/usr/include/asm-generic/errno-base.h" 1 3 4
># 5 "/usr/include/asm-generic/errno.h" 2 3 4
># 10 "/usr/include/asm/errno.h" 2 3 4
># 1 "/usr/include/linux/errno.h" 2 3 4
># 25 "/usr/include/bits/errno.h" 2 3 4
># 50 "/usr/include/bits/errno.h" 3 4
>extern int *__errno_location (void) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
># 36 "/usr/include/errno.h" 2 3 4
># 58 "/usr/include/errno.h" 3 4
>
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-errno.h" 2
># 79 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-minmax.h" 1
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-minmax.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-limits.h" 1
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-limits.h"
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 1 3 4
># 34 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/syslimits.h" 1 3 4
>
>
>
>
>
>
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 1 3 4
># 168 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 3 4
># 1 "/usr/include/limits.h" 1 3 4
># 143 "/usr/include/limits.h" 3 4
># 1 "/usr/include/bits/posix1_lim.h" 1 3 4
># 160 "/usr/include/bits/posix1_lim.h" 3 4
># 1 "/usr/include/bits/local_lim.h" 1 3 4
># 38 "/usr/include/bits/local_lim.h" 3 4
># 1 "/usr/include/linux/limits.h" 1 3 4
># 39 "/usr/include/bits/local_lim.h" 2 3 4
># 161 "/usr/include/bits/posix1_lim.h" 2 3 4
># 144 "/usr/include/limits.h" 2 3 4
>
>
>
># 1 "/usr/include/bits/posix2_lim.h" 1 3 4
># 148 "/usr/include/limits.h" 2 3 4
># 169 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 2 3 4
># 8 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/syslimits.h" 2 3 4
># 35 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/limits.h" 2 3 4
># 24 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-limits.h" 2
># 33 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-limits.h"
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/float.h" 1 3 4
># 34 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-limits.h" 2
># 24 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-minmax.h" 2
># 82 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
>
>
>
># 1 "/usr/include/assert.h" 1 3 4
># 64 "/usr/include/assert.h" 3 4
>
>
>
>extern void __assert_fail (const char *__assertion, const char *__file,
> unsigned int __line, const char *__function)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>extern void __assert_perror_fail (int __errnum, const char *__file,
> unsigned int __line, const char *__function)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>
>
>extern void __assert (const char *__assertion, const char *__file, int __line)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__noreturn__));
>
>
>
># 86 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-std.h" 2
># 89 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-proto.h" 1
># 92 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
># 195 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/debug.h" 1
># 27 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/debug.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 1
># 22 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/simpletypes.h" 1
># 37 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/simpletypes.h"
>typedef int boolean;
># 55 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/simpletypes.h"
>typedef char *string;
>
>
>
>typedef const char *const_string;
>
>
>typedef void *address;
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 2
># 31 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
># 1 "/usr/include/inttypes.h" 1 3 4
># 27 "/usr/include/inttypes.h" 3 4
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdint.h" 1 3 4
># 9 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdint.h" 3 4
># 1 "/usr/include/stdint.h" 1 3 4
># 26 "/usr/include/stdint.h" 3 4
># 1 "/usr/include/bits/wchar.h" 1 3 4
># 27 "/usr/include/stdint.h" 2 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 28 "/usr/include/stdint.h" 2 3 4
># 48 "/usr/include/stdint.h" 3 4
>typedef unsigned char uint8_t;
>typedef unsigned short int uint16_t;
>
>typedef unsigned int uint32_t;
>
>
>
>typedef unsigned long int uint64_t;
># 65 "/usr/include/stdint.h" 3 4
>typedef signed char int_least8_t;
>typedef short int int_least16_t;
>typedef int int_least32_t;
>
>typedef long int int_least64_t;
>
>
>
>
>
>
>typedef unsigned char uint_least8_t;
>typedef unsigned short int uint_least16_t;
>typedef unsigned int uint_least32_t;
>
>typedef unsigned long int uint_least64_t;
># 90 "/usr/include/stdint.h" 3 4
>typedef signed char int_fast8_t;
>
>typedef long int int_fast16_t;
>typedef long int int_fast32_t;
>typedef long int int_fast64_t;
># 103 "/usr/include/stdint.h" 3 4
>typedef unsigned char uint_fast8_t;
>
>typedef unsigned long int uint_fast16_t;
>typedef unsigned long int uint_fast32_t;
>typedef unsigned long int uint_fast64_t;
># 122 "/usr/include/stdint.h" 3 4
>typedef unsigned long int uintptr_t;
># 134 "/usr/include/stdint.h" 3 4
>typedef long int intmax_t;
>typedef unsigned long int uintmax_t;
># 10 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdint.h" 2 3 4
># 28 "/usr/include/inttypes.h" 2 3 4
>
>
>
>
>
>
>typedef int __gwchar_t;
># 266 "/usr/include/inttypes.h" 3 4
>
>
>
>
>
>typedef struct
> {
> long int quot;
> long int rem;
> } imaxdiv_t;
># 290 "/usr/include/inttypes.h" 3 4
>extern intmax_t imaxabs (intmax_t __n) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern imaxdiv_t imaxdiv (intmax_t __numer, intmax_t __denom)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>
>
>extern intmax_t strtoimax (const char *__restrict __nptr,
> char **__restrict __endptr, int __base) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern uintmax_t strtoumax (const char *__restrict __nptr,
> char ** __restrict __endptr, int __base) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern intmax_t wcstoimax (const __gwchar_t *__restrict __nptr,
> __gwchar_t **__restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern uintmax_t wcstoumax (const __gwchar_t *__restrict __nptr,
> __gwchar_t ** __restrict __endptr, int __base)
> __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>extern long int __strtol_internal (const char *__restrict __nptr,
> char **__restrict __endptr,
> int __base, int __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern __inline __attribute__ ((__gnu_inline__)) intmax_t
>__attribute__ ((__nothrow__ , __leaf__)) strtoimax (const char *__restrict nptr, char **__restrict endptr, int base)
>
>{
> return __strtol_internal (nptr, endptr, base, 0);
>}
>
>extern unsigned long int __strtoul_internal (const char *__restrict __nptr,
> char ** __restrict __endptr,
> int __base, int __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern __inline __attribute__ ((__gnu_inline__)) uintmax_t
>__attribute__ ((__nothrow__ , __leaf__)) strtoumax (const char *__restrict nptr, char **__restrict endptr, int base)
>
>{
> return __strtoul_internal (nptr, endptr, base, 0);
>}
>
>extern long int __wcstol_internal (const __gwchar_t * __restrict __nptr,
> __gwchar_t **__restrict __endptr,
> int __base, int __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern __inline __attribute__ ((__gnu_inline__)) intmax_t
>__attribute__ ((__nothrow__ , __leaf__)) wcstoimax (const __gwchar_t *__restrict nptr, __gwchar_t **__restrict endptr, int base)
>
>{
> return __wcstol_internal (nptr, endptr, base, 0);
>}
>
>extern unsigned long int __wcstoul_internal (const __gwchar_t *
> __restrict __nptr,
> __gwchar_t **
> __restrict __endptr,
> int __base, int __group)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__));
>
>extern __inline __attribute__ ((__gnu_inline__)) uintmax_t
>__attribute__ ((__nothrow__ , __leaf__)) wcstoumax (const __gwchar_t *__restrict nptr, __gwchar_t **__restrict endptr, int base)
>
>{
> return __wcstoul_internal (nptr, endptr, base, 0);
>}
># 432 "/usr/include/inttypes.h" 3 4
>
># 32 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 2
># 55 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
>typedef void (*p_record_input) (const_string);
>typedef void (*p_record_output) (const_string);
>
>
>
>
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/str-llist.h" 1
># 37 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/str-llist.h"
>struct str_llist_elt
>{
> string str;
> boolean moved;
> struct str_llist_elt *next;
>};
>typedef struct str_llist_elt str_llist_elt_type;
>typedef struct str_llist_elt *str_llist_type;
># 64 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 2
>
>
>
>
>
>typedef struct
>{
> const_string key;
> str_llist_type *value;
>} cache_entry;
>
>
>typedef struct {
> const_string var;
> boolean expanding;
>} expansion_type;
>
>
>
>
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/hash.h" 1
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/hash.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 1
># 24 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/hash.h" 2
># 37 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/hash.h"
>typedef struct hash_element_struct
>{
> const_string key;
> const_string value;
> struct hash_element_struct *next;
>} hash_element_type;
>
>
>typedef struct
>{
> hash_element_type **buckets;
> unsigned size;
>} hash_table_type;
>
>
>
>extern hash_table_type hash_create (unsigned size);
>
>
>
>extern void hash_insert (hash_table_type *table,
> const_string key,
> const_string value);
># 73 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/hash.h"
>extern void hash_remove (hash_table_type *table, const_string key,
> const_string value);
>
>
>
>extern const_string *hash_lookup (hash_table_type table, const_string key);
># 87 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/str-list.h" 1
># 31 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/str-list.h"
>typedef struct
>{
> unsigned length;
> string *list;
>} str_list_type;
>
>
>typedef struct
>{
> unsigned length;
> const_string *list;
>} cstr_list_type;
># 78 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/str-list.h"
>extern void str_list_add (str_list_type *l, string s);
>extern void cstr_list_add (cstr_list_type *l, const_string s);
># 88 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h" 2
># 98 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
>typedef enum
>{
> kpse_gf_format,
> kpse_pk_format,
> kpse_any_glyph_format,
> kpse_tfm_format,
> kpse_afm_format,
> kpse_base_format,
> kpse_bib_format,
> kpse_bst_format,
> kpse_cnf_format,
> kpse_db_format,
> kpse_fmt_format,
> kpse_fontmap_format,
> kpse_mem_format,
> kpse_mf_format,
> kpse_mfpool_format,
> kpse_mft_format,
> kpse_mp_format,
> kpse_mppool_format,
> kpse_mpsupport_format,
> kpse_ocp_format,
> kpse_ofm_format,
> kpse_opl_format,
> kpse_otp_format,
> kpse_ovf_format,
> kpse_ovp_format,
> kpse_pict_format,
> kpse_tex_format,
> kpse_texdoc_format,
> kpse_texpool_format,
> kpse_texsource_format,
> kpse_tex_ps_header_format,
> kpse_troff_font_format,
> kpse_type1_format,
> kpse_vf_format,
> kpse_dvips_config_format,
> kpse_ist_format,
> kpse_truetype_format,
> kpse_type42_format,
> kpse_web2c_format,
> kpse_program_text_format,
> kpse_program_binary_format,
> kpse_miscfonts_format,
> kpse_web_format,
> kpse_cweb_format,
> kpse_enc_format,
> kpse_cmap_format,
> kpse_sfd_format,
> kpse_opentype_format,
> kpse_pdftex_config_format,
> kpse_lig_format,
> kpse_texmfscripts_format,
> kpse_lua_format,
> kpse_fea_format,
> kpse_cid_format,
> kpse_mlbib_format,
> kpse_mlbst_format,
> kpse_clua_format,
> kpse_ris_format,
> kpse_bltxml_format,
> kpse_last_format
>} kpse_file_format_type;
>
>
>
>
>typedef enum
>{
> kpse_src_implicit,
> kpse_src_compile,
> kpse_src_texmf_cnf,
> kpse_src_client_cnf,
> kpse_src_env,
> kpse_src_x,
> kpse_src_cmdline
>} kpse_src_type;
># 184 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
>typedef struct
>{
> const_string type;
> string path;
> const_string raw_path;
> const_string path_source;
> const_string override_path;
> const_string client_path;
> const_string cnf_path;
> const_string default_path;
> const_string *suffix;
> const_string *alt_suffix;
> boolean suffix_search_only;
> const_string program;
> int argc;
> const_string *argv;
> boolean program_enabled_p;
> kpse_src_type program_enable_level;
> boolean binmode;
>} kpse_format_info_type;
># 218 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
>typedef struct kpathsea_instance *kpathsea;
>
>typedef struct kpathsea_instance {
>
> p_record_input record_input;
> p_record_output record_output;
> hash_table_type cnf_hash;
> boolean doing_cnf_init;
>
> hash_table_type db;
> hash_table_type alias_db;
> str_list_type db_dir_list;
>
> unsigned debug;
>
> hash_table_type link_table;
>
> cache_entry *the_cache;
> unsigned cache_length;
>
> hash_table_type map;
> const_string map_path;
>
>
> boolean debug_hash_lookup_int;
>
> string elt;
> unsigned elt_alloc;
> const_string path;
>
> boolean followup_search;
> FILE *log_file;
> boolean log_opened;
>
> string invocation_name;
> string invocation_short_name;
> string program_name;
> int ll_verbose;
>
>
> const_string fallback_font;
>
>
>
> const_string fallback_resolutions_string;
>
>
> unsigned *fallback_resolutions;
> kpse_format_info_type format_info[kpse_last_format];
>
>
>
>
> boolean make_tex_discard_errors;
> FILE *missfont;
>
> expansion_type *expansions;
> unsigned expansion_len ;
>
>
>
>
> char **saved_env;
> int saved_count;
># 295 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/types.h"
>} kpathsea_instance;
>
>
>extern kpathsea kpathsea_new (void) ;
>extern void kpathsea_finish (kpathsea kpse) ;
>
>
>
>
>
>extern kpathsea_instance kpse_def_inst;
>extern kpathsea kpse_def;
># 28 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/debug.h" 2
># 98 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/debug.h"
>extern FILE *kpse_fopen_trace (const char *filename, const char *mode);
>
>
>extern int kpse_fclose_trace (FILE *);
># 196 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/lib.h" 1
># 127 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/lib.h"
>extern string concat (const_string s1, const_string s2);
>extern string concat3 (const_string, const_string, const_string);
>
>
>
>
>extern string xstrdup (const_string s);
>
>
>extern string uppercasify (const_string s);
>
>
>extern unsigned atou (const_string);
>
>
>
>
>extern boolean same_file_p (const_string filename1,
> const_string filename2);
>
>
>
>extern const_string xbasename (const_string name);
>
>
>extern string xdirname (const_string name);
>
>
>
>
>
>
>
>extern const_string find_suffix (const_string name);
>
>
>extern string remove_suffix (const_string name);
>
>
>
>
>extern string make_suffix (const_string s, const_string suffix);
>
>
>
>
>extern string make_prefix (string stem_prefix, string name);
>
>
>
>extern const_string extend_filename (const_string name,
> const_string suffix);
>
>
>extern void kpathsea_xputenv (kpathsea kpse, const_string var,
> const_string value);
>extern void kpathsea_xputenv_int (kpathsea kpse, const_string var,
> int value);
>
>extern void xputenv (const_string var, const_string value);
>extern void xputenv_int (const_string var, int value);
>
>
>
>extern string xgetcwd (void);
>
>
>extern boolean kpathsea_dir_p (kpathsea kpse, string fn);
>
>extern boolean dir_p (string fn);
>
>
>
>
>
>extern int dir_links (const_string fn, long nlinks);
>
>extern int kpathsea_dir_links (kpathsea kpse, const_string fn,
> long nlinks);
>
>
>
>extern FILE *xfopen (const_string filename, const_string mode);
>extern void xfclose (FILE *fp, const_string filename);
>extern void xfseek (FILE *fp, long offset, int wherefrom, const_string filename);
>extern void xfseeko (FILE *fp, off_t offset, int wherefrom, const_string filename);
>extern long xftell (FILE *fp, const_string filename);
>extern off_t xftello (FILE *fp, const_string filename);
>
>
>
>
>extern address xmalloc (size_t size);
>extern address xrealloc (address old_address, size_t new_size);
>extern address xcalloc (size_t nelem, size_t elsize);
># 197 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/progname.h" 1
># 33 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/progname.h"
>extern string kpathsea_selfdir (kpathsea kpse, const_string argv0);
># 42 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/progname.h"
>extern void kpathsea_set_program_name (kpathsea kpse,
> const_string argv0, const_string progname);
># 54 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/progname.h"
>extern string kpse_selfdir (const_string argv0);
>
>
>extern void kpse_set_program_name (const_string argv0,
> const_string progname);
>
>
>
>
>
>extern string kpse_program_basename (const_string argv0);
># 199 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/config.h" 2
># 23 "../../../texk/web2c/w2c/config.h" 2
># 1 "./w2c/c-auto.h" 1
># 24 "../../../texk/web2c/w2c/config.h" 2
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stdarg.h" 1 3 4
># 25 "../../../texk/web2c/w2c/config.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-fopen.h" 1
># 58 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-fopen.h"
># 1 "/usr/include/fcntl.h" 1 3 4
># 28 "/usr/include/fcntl.h" 3 4
>
>
>
>
>
>
>
># 1 "/usr/include/bits/fcntl.h" 1 3 4
># 23 "/usr/include/bits/fcntl.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 24 "/usr/include/bits/fcntl.h" 2 3 4
># 37 "/usr/include/bits/fcntl.h" 3 4
>struct flock
> {
> short int l_type;
> short int l_whence;
>
> __off_t l_start;
> __off_t l_len;
>
>
>
>
> __pid_t l_pid;
> };
># 71 "/usr/include/bits/fcntl.h" 3 4
># 1 "/usr/include/bits/fcntl-linux.h" 1 3 4
># 323 "/usr/include/bits/fcntl-linux.h" 3 4
>
># 397 "/usr/include/bits/fcntl-linux.h" 3 4
>
># 71 "/usr/include/bits/fcntl.h" 2 3 4
># 36 "/usr/include/fcntl.h" 2 3 4
># 67 "/usr/include/fcntl.h" 3 4
># 1 "/usr/include/time.h" 1 3 4
># 68 "/usr/include/fcntl.h" 2 3 4
># 1 "/usr/include/bits/stat.h" 1 3 4
># 25 "/usr/include/bits/stat.h" 3 4
># 1 "/usr/include/bits/wordsize.h" 1 3 4
># 26 "/usr/include/bits/stat.h" 2 3 4
># 50 "/usr/include/bits/stat.h" 3 4
>struct stat
> {
> __dev_t st_dev;
> __ino_t st_ino;
> __nlink_t st_nlink;
> __mode_t st_mode;
> __uid_t st_uid;
> __gid_t st_gid;
> int __glibc_reserved0;
> __dev_t st_rdev;
> __off_t st_size;
>
>
>
>
>
>
>
> struct timespec st_atim;
> struct timespec st_mtim;
> struct timespec st_ctim;
># 82 "/usr/include/bits/stat.h" 3 4
> __blksize_t st_blksize;
> __blkcnt_t st_blocks;
> long int __glibc_reserved[3];
> };
># 69 "/usr/include/fcntl.h" 2 3 4
># 160 "/usr/include/fcntl.h" 3 4
>extern int fcntl (int __fd, int __cmd, ...);
># 169 "/usr/include/fcntl.h" 3 4
>extern int open (const char *__file, int __oflag, ...) __attribute__ ((__nonnull__ (1)));
># 193 "/usr/include/fcntl.h" 3 4
>extern int openat (int __fd, const char *__file, int __oflag, ...)
> __attribute__ ((__nonnull__ (2)));
># 215 "/usr/include/fcntl.h" 3 4
>extern int creat (const char *__file, mode_t __mode) __attribute__ ((__nonnull__ (1)));
># 261 "/usr/include/fcntl.h" 3 4
>extern int posix_fadvise (int __fd, off_t __offset, off_t __len,
> int __advise) __attribute__ ((__nothrow__ , __leaf__));
># 283 "/usr/include/fcntl.h" 3 4
>extern int posix_fallocate (int __fd, off_t __offset, off_t __len);
># 302 "/usr/include/fcntl.h" 3 4
># 1 "/usr/include/bits/fcntl2.h" 1 3 4
># 26 "/usr/include/bits/fcntl2.h" 3 4
>extern int __open_2 (const char *__path, int __oflag) __attribute__ ((__nonnull__ (1)));
>extern int __open_alias (const char *__path, int __oflag, ...) __asm__ ("" "open")
> __attribute__ ((__nonnull__ (1)));
>
>
>
>
>
>
>extern void __open_too_many_args (void) __attribute__((__error__ ("open can be called either with 2 or 3 arguments, not more")))
> ;
>extern void __open_missing_mode (void) __attribute__((__error__ ("open with O_CREAT in second argument needs 3 arguments")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>open (const char *__path, int __oflag, ...)
>{
> if (__builtin_va_arg_pack_len () > 1)
> __open_too_many_args ();
>
> if (__builtin_constant_p (__oflag))
> {
> if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1)
> {
> __open_missing_mode ();
> return __open_2 (__path, __oflag);
> }
> return __open_alias (__path, __oflag, __builtin_va_arg_pack ());
> }
>
> if (__builtin_va_arg_pack_len () < 1)
> return __open_2 (__path, __oflag);
>
> return __open_alias (__path, __oflag, __builtin_va_arg_pack ());
>}
># 98 "/usr/include/bits/fcntl2.h" 3 4
>extern int __openat_2 (int __fd, const char *__path, int __oflag)
> __attribute__ ((__nonnull__ (2)));
>extern int __openat_alias (int __fd, const char *__path, int __oflag, ...) __asm__ ("" "openat")
>
> __attribute__ ((__nonnull__ (2)));
># 111 "/usr/include/bits/fcntl2.h" 3 4
>extern void __openat_too_many_args (void) __attribute__((__error__ ("openat can be called either with 3 or 4 arguments, not more")))
> ;
>extern void __openat_missing_mode (void) __attribute__((__error__ ("openat with O_CREAT in third argument needs 4 arguments")))
> ;
>
>extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__gnu_inline__)) __attribute__ ((__artificial__)) int
>openat (int __fd, const char *__path, int __oflag, ...)
>{
> if (__builtin_va_arg_pack_len () > 1)
> __openat_too_many_args ();
>
> if (__builtin_constant_p (__oflag))
> {
> if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1)
> {
> __openat_missing_mode ();
> return __openat_2 (__fd, __path, __oflag);
> }
> return __openat_alias (__fd, __path, __oflag, __builtin_va_arg_pack ());
> }
>
> if (__builtin_va_arg_pack_len () < 1)
> return __openat_2 (__fd, __path, __oflag);
>
> return __openat_alias (__fd, __path, __oflag, __builtin_va_arg_pack ());
>}
># 303 "/usr/include/fcntl.h" 2 3 4
>
>
>
># 59 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-fopen.h" 2
># 28 "../../../texk/web2c/w2c/config.h" 2
># 46 "../../../texk/web2c/w2c/config.h"
>typedef signed char schar;
># 77 "../../../texk/web2c/w2c/config.h"
>typedef int integer;
>
>
>typedef off_t longinteger;
># 97 "../../../texk/web2c/w2c/config.h"
>typedef long integer64;
># 129 "../../../texk/web2c/w2c/config.h"
>__attribute__((__noreturn__))
>extern void uexit (int status);
>
>
>extern void usage (const_string progname);
>extern void usagehelp (const_string *message, const_string bug_email);
># 17 "../../../texk/web2c/cpascal.h" 2
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h" 1
># 56 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h"
>extern char *optarg;
># 70 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h"
>extern int optind;
>
>
>
>
>extern int opterr;
>
>
>
>extern int optopt;
># 103 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h"
>struct option
>{
> const char *name;
>
>
> int has_arg;
> int *flag;
> int val;
>};
># 127 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h"
>extern int getopt (int argc, char *const *argv, const char *shortopts);
># 137 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/getopt.h"
>extern int getopt_long (int argc, char *const *argv, const char *shortopts,
> const struct option *longopts, int *longind);
>extern int getopt_long_only (int argc, char *const *argv,
> const char *shortopts,
> const struct option *longopts, int *longind);
># 20 "../../../texk/web2c/cpascal.h" 2
>
>
>
>
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/proginit.h" 1
># 34 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/proginit.h"
>extern void
>kpathsea_init_prog (kpathsea kpse, const_string prefix, unsigned dpi,
> const_string mode, const_string fallback);
>
>
>extern void
>kpse_init_prog (const_string prefix, unsigned dpi, const_string mode,
> const_string fallback);
># 25 "../../../texk/web2c/cpascal.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/tex-file.h" 1
># 41 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/tex-file.h"
>extern void kpathsea_set_program_enabled (kpathsea kpse,
> kpse_file_format_type fmt, boolean value, kpse_src_type level);
>
>
>
>extern void kpathsea_maketex_option (kpathsea kpse,
> const_string fmtname, boolean value);
>
>
>
>extern void kpathsea_set_suffixes (kpathsea kpse,
> kpse_file_format_type format, boolean alternate, ...);
>
>
>
>
>extern const_string kpathsea_init_format (kpathsea kpse,
> kpse_file_format_type format);
>
>
>
>
>extern string kpathsea_find_file (kpathsea kpse, const_string name,
> kpse_file_format_type format, boolean must_exist);
>
>
>
>extern string *kpathsea_find_file_generic (kpathsea kpse,
> const_string name, kpse_file_format_type format, boolean must_exist,
> boolean all);
>
>
>
>extern boolean kpathsea_in_name_ok (kpathsea kpse, const_string fname);
>extern boolean kpathsea_out_name_ok (kpathsea kpse, const_string fname);
>
>
>extern boolean kpathsea_in_name_ok_silent
> (kpathsea kpse, const_string fname);
>extern boolean kpathsea_out_name_ok_silent
> (kpathsea kpse, const_string fname);
>
>
>extern FILE *kpathsea_open_file (kpathsea kpse, const_string name,
> kpse_file_format_type format);
>
>
>
>
>extern void kpathsea_reset_program_name (kpathsea kpse,
> const_string progname);
>
>
>
>
>extern void kpse_init_fallback_resolutions (string envvar);
>
>extern void kpse_set_program_enabled (kpse_file_format_type fmt,
> boolean value, kpse_src_type level);
>
>extern void kpse_maketex_option (const_string fmtname, boolean value);
>
>extern void kpse_set_suffixes (kpse_file_format_type format,
> boolean alternate, ...);
>
>extern const_string kpse_init_format (kpse_file_format_type);
>
>extern string kpse_find_file (const_string name,
> kpse_file_format_type format, boolean must_exist);
>
>extern string *kpse_find_file_generic
> (const_string name, kpse_file_format_type format,
> boolean must_exist, boolean all);
>
>extern boolean kpse_in_name_ok (const_string fname);
>extern boolean kpse_out_name_ok (const_string fname);
># 132 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/tex-file.h"
>extern FILE *kpse_open_file (const_string, kpse_file_format_type);
>
>extern void kpse_reset_program_name (const_string progname);
># 26 "../../../texk/web2c/cpascal.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/variable.h" 1
># 31 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/variable.h"
>extern string kpathsea_var_value (kpathsea kpse, const_string var);
># 43 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/variable.h"
>extern string kpathsea_var_expand (kpathsea kpse, const_string src);
>
>
>extern string kpse_var_value (const_string var);
>extern string kpse_var_expand (const_string src);
># 27 "../../../texk/web2c/cpascal.h" 2
>
>
># 1 "../../../texk/web2c/help.h" 1
># 30 "../../../texk/web2c/cpascal.h" 2
># 95 "../../../texk/web2c/cpascal.h"
>typedef double real;
>
>
>typedef FILE *text;
># 146 "../../../texk/web2c/cpascal.h"
>typedef unsigned char *pointertobyte;
># 208 "../../../texk/web2c/cpascal.h"
>typedef unsigned char *w2custring;
>typedef const unsigned char *const_w2custring;
># 292 "../../../texk/web2c/cpascal.h"
>typedef struct option getoptstruct;
># 315 "../../../texk/web2c/cpascal.h"
># 1 "../../../texk/web2c/lib/lib.h" 1
>
>
>
>
>
>
>
>extern string basenamechangesuffix (const_string, const_string, const_string);
>
>
>extern string chartostring (char);
>
>
>extern boolean eof (FILE *);
>extern boolean eoln (FILE *);
>extern void readln (FILE *);
>
>
>extern void fprintreal (FILE *, double, int, int);
>
>
>extern integer inputint (FILE *);
>
>
>extern void zinput2ints (integer *, integer *);
>extern void zinput3ints (integer *, integer *, integer *);
>
>
>
>
>extern int argc;
>extern string *argv;
>extern string cmdline (int);
>extern void mainbody (void);
>
>
>
>extern boolean open_input (FILE **, int, const_string fopen_mode);
>extern boolean open_output (FILE **, const_string fopen_mode);
>extern void close_file (FILE *);
>extern void recorder_change_filename (string);
>extern void recorder_record_input (const_string);
>extern void recorder_record_output (const_string);
>
>extern string fullnameoffile;
>extern boolean recorder_enabled;
>extern string output_directory;
>
>
>extern void printversionandexit (const_string, const_string, const_string, const_string);
>
>
>
>extern void setupboundvariable (integer *, const_string, integer);
>
>
>extern const char *versionstring;
>
>
>extern integer zround (double);
># 316 "../../../texk/web2c/cpascal.h" 2
>
>extern int loadpoolstrings (integer);
># 6 "../../../texk/web2c/texmfmp.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-pathch.h" 1
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-pathch.h"
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-ctype.h" 1
># 22 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-ctype.h"
># 1 "/usr/include/ctype.h" 1 3 4
># 28 "/usr/include/ctype.h" 3 4
>
># 46 "/usr/include/ctype.h" 3 4
>enum
>{
> _ISupper = (1 << (0)),
> _ISlower = (1 << (1)),
> _ISalpha = (1 << (2)),
> _ISdigit = (1 << (3)),
> _ISxdigit = (1 << (4)),
> _ISspace = (1 << (5)),
> _ISprint = (1 << (6)),
> _ISgraph = (1 << (7)),
> _ISblank = (1 << (8)),
> _IScntrl = (1 << (9)),
> _ISpunct = (1 << (10)),
> _ISalnum = (1 << (11))
>};
># 79 "/usr/include/ctype.h" 3 4
>extern const unsigned short int **__ctype_b_loc (void)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>extern const __int32_t **__ctype_tolower_loc (void)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
>extern const __int32_t **__ctype_toupper_loc (void)
> __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
># 104 "/usr/include/ctype.h" 3 4
>
>
>
>
>
>
>extern int isalnum (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isalpha (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int iscntrl (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isdigit (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int islower (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isgraph (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isprint (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int ispunct (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isspace (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isupper (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int isxdigit (int) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int tolower (int __c) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int toupper (int __c) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>
>
>
>
>
>extern int isblank (int) __attribute__ ((__nothrow__ , __leaf__));
>
>
># 150 "/usr/include/ctype.h" 3 4
>extern int isascii (int __c) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int toascii (int __c) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int _toupper (int) __attribute__ ((__nothrow__ , __leaf__));
>extern int _tolower (int) __attribute__ ((__nothrow__ , __leaf__));
># 214 "/usr/include/ctype.h" 3 4
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) tolower (int __c)
>{
> return __c >= -128 && __c < 256 ? (*__ctype_tolower_loc ())[__c] : __c;
>}
>
>extern __inline __attribute__ ((__gnu_inline__)) int
>__attribute__ ((__nothrow__ , __leaf__)) toupper (int __c)
>{
> return __c >= -128 && __c < 256 ? (*__ctype_toupper_loc ())[__c] : __c;
>}
># 271 "/usr/include/ctype.h" 3 4
>extern int isalnum_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isalpha_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int iscntrl_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isdigit_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int islower_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isgraph_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isprint_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int ispunct_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isspace_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isupper_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>extern int isxdigit_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>
>extern int isblank_l (int, __locale_t) __attribute__ ((__nothrow__ , __leaf__));
>
>
>
>extern int __tolower_l (int __c, __locale_t __l) __attribute__ ((__nothrow__ , __leaf__));
>extern int tolower_l (int __c, __locale_t __l) __attribute__ ((__nothrow__ , __leaf__));
>
>
>extern int __toupper_l (int __c, __locale_t __l) __attribute__ ((__nothrow__ , __leaf__));
>extern int toupper_l (int __c, __locale_t __l) __attribute__ ((__nothrow__ , __leaf__));
># 347 "/usr/include/ctype.h" 3 4
>
># 23 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-ctype.h" 2
># 24 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/c-pathch.h" 2
># 7 "../../../texk/web2c/texmfmp.h" 2
># 1 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/tex-make.h" 1
># 35 "/home/mtoman/rpmbuild/BUILD/texlive-2013/source/texk/kpathsea/tex-make.h"
>extern string kpathsea_make_tex (kpathsea kpse,
> kpse_file_format_type format,
> const_string base_file);
>
>
>extern string kpse_make_tex (kpse_file_format_type format,
> const_string base_file);
># 8 "../../../texk/web2c/texmfmp.h" 2
># 112 "../../../texk/web2c/texmfmp.h"
>extern int tfmtemp, texinputtype;
>
>
>
>extern char start_time_str[];
>extern void pdftex_fail(const char *fmt, ...);
>extern void initstarttime(void);
>extern char *makecstring(integer s);
>extern char *makecfilename(integer s);
>extern void getcreationdate(void);
>extern void getfilemoddate(integer s);
>extern void getfilesize(integer s);
>extern void getfiledump(integer s, int offset, int length);
>
>
>
>
>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 *);
>
>
>
>
>
>
>extern int runsystem (const char *cmd);
>
>
>extern void maininit (int ac, string *av);
>
>
>
>
>
>
>extern void readtcxfile (void);
>extern string translate_filename;
># 171 "../../../texk/web2c/texmfmp.h"
>typedef double glueratio;
>
>
>
>
>
>
>extern void ipcpage (int);
># 200 "../../../texk/web2c/texmfmp.h"
>extern boolean input_line (FILE *);
>
>
>
>
>extern void get_date_and_time (integer *, integer *, integer *, integer *);
>
>
>
>
>extern void get_seconds_and_micros (integer *, integer *);
>
>
>
>extern void topenin (void);
># 331 "../../../texk/web2c/texmfmp.h"
>extern void do_dump (char *, int, int, FILE *);
>extern void do_undump (char *, int, int, FILE *);
># 12 "pdftexd.h" 2
># 75 "pdftexd.h"
>typedef unsigned char ASCIIcode ;
>typedef unsigned char eightbits ;
>typedef text alphafile ;
>typedef text bytefile ;
>typedef integer poolpointer ;
>typedef integer strnumber ;
>typedef unsigned char packedASCIIcode ;
>typedef integer scaled ;
>typedef integer nonnegativeinteger ;
>typedef unsigned char smallnumber ;
>typedef unsigned char quarterword ;
>typedef integer halfword ;
>typedef unsigned char twochoices ;
>typedef unsigned char fourchoices ;
># 1 "../../../texk/web2c/texmfmem.h" 1
># 68 "../../../texk/web2c/texmfmem.h"
>typedef union
>{
> struct
> {
>
> halfword RH, LH;
>
>
>
> } v;
>
> struct
> {
>
> halfword junk;
> short B0, B1;
># 92 "../../../texk/web2c/texmfmem.h"
> } u;
>} twohalves;
>
>typedef struct
>{
> struct
> {
>
> quarterword B0, B1, B2, B3;
>
>
>
> } u;
>} fourquarters;
>
>typedef union
>{
>
> glueratio gr;
> twohalves hh;
>
>
>
>
>
>
>
> integer cint;
> fourquarters qqqq;
># 140 "../../../texk/web2c/texmfmem.h"
>} memoryword;
>
>
>
>
>typedef union
>{
>
> integer cint;
> fourquarters qqqq;
># 164 "../../../texk/web2c/texmfmem.h"
>} fmemoryword;
># 90 "pdftexd.h" 2
>typedef text wordfile ;
>typedef unsigned char glueord ;
>typedef struct {
> short modefield ;
> halfword headfield, tailfield ;
> halfword eTeXauxfield ;
> integer pgfield, mlfield ;
> memoryword auxfield ;
>} liststaterecord ;
>typedef unsigned char groupcode ;
>typedef struct {
> quarterword statefield, indexfield ;
> halfword startfield, locfield, limitfield, namefield ;
> integer synctextagfield ;
>} instaterecord ;
>typedef integer internalfontnumber ;
>typedef integer fontindex ;
>typedef short ninebits ;
>typedef integer dviindex ;
>typedef struct {
> integer int0, int1 ;
> longinteger int2 ;
> integer int3, int4 ;
>} objentry ;
>typedef eightbits charusedarray [32] ;
>typedef eightbits charmaparray [33] ;
>typedef integer * fmentryptr ;
>typedef integer vfstackindex ;
>typedef struct {
> scaled stackh, stackv, stackw, stackx, stacky, stackz ;
>} vfstackrecord ;
>typedef integer triepointer ;
>typedef unsigned short trieopcode ;
>typedef unsigned short hyphpointer ;
>typedef struct {
> strnumber objname ;
> integer objnum ;
>} destnameentry ;
>typedef struct {
> integer nestinglevel ;
> halfword linknode ;
> halfword reflinknode ;
>} pdflinkstackrecord ;
>typedef integer savepointer ;
>extern integer bad ;
>extern ASCIIcode xord[256] ;
>extern ASCIIcode xchr[256] ;
>extern ASCIIcode xprn[256] ;
>extern halfword mubyteread[256] ;
>extern strnumber mubytewrite[256] ;
>extern halfword mubytecswrite[128] ;
>extern integer mubyteskip ;
>extern integer mubytekeep ;
>extern integer mubyteskeep ;
>extern integer mubyteprefix ;
>extern boolean mubytetablein ;
>extern boolean mubytetableout ;
>extern boolean mubyterelax ;
>extern boolean mubytestart ;
>extern boolean mubytesstart ;
>extern halfword mubytetoken ;
>extern halfword mubytestoken ;
>extern integer mubytesout ;
>extern integer mubyteslog ;
>extern integer specsout ;
>extern boolean noconvert ;
>extern boolean activenoconvert ;
>extern boolean writenoexpanding ;
>extern boolean csconverting ;
>extern boolean specialprinting ;
>extern boolean messageprinting ;
>extern ASCIIcode * nameoffile ;
>extern integer namelength ;
>extern ASCIIcode * buffer ;
>extern integer first ;
>extern integer last ;
>extern integer maxbufstack ;
>
>extern boolean iniversion ;
>extern boolean dumpoption ;
>extern boolean dumpline ;
>
>extern const_string dump_name ;
>extern integer bounddefault ;
>extern const_string boundname ;
>extern integer membot ;
>extern integer mainmemory ;
>extern integer extramembot ;
>extern integer memmin ;
>extern integer memtop ;
>extern integer extramemtop ;
>extern integer memmax ;
>extern integer errorline ;
>extern integer halferrorline ;
>extern integer maxprintline ;
>extern integer maxstrings ;
>extern integer stringsfree ;
>extern integer stringvacancies ;
>extern integer poolsize ;
>extern integer poolfree ;
>extern integer fontmemsize ;
>extern integer fontmax ;
>extern integer fontk ;
>extern integer hyphsize ;
>extern integer triesize ;
>extern integer bufsize ;
>extern integer stacksize ;
>extern integer maxinopen ;
>extern integer paramsize ;
>extern integer nestsize ;
>extern integer savesize ;
>extern integer dvibufsize ;
>extern integer expanddepth ;
>extern int parsefirstlinep ;
>extern int filelineerrorstylep ;
>extern int eightbitp ;
>extern int haltonerrorp ;
>extern boolean quotedfilename ;
>extern boolean srcspecialsp ;
>extern boolean insertsrcspecialauto ;
>extern boolean insertsrcspecialeverypar ;
>extern boolean insertsrcspecialeveryparend ;
>extern boolean insertsrcspecialeverycr ;
>extern boolean insertsrcspecialeverymath ;
>extern boolean insertsrcspecialeveryhbox ;
>extern boolean insertsrcspecialeveryvbox ;
>extern boolean insertsrcspecialeverydisplay ;
>extern packedASCIIcode * strpool ;
>extern poolpointer * strstart ;
>extern poolpointer poolptr ;
>extern strnumber strptr ;
>extern poolpointer initpoolptr ;
>extern strnumber initstrptr ;
>
>extern alphafile poolfile ;
>
>extern alphafile logfile ;
>extern unsigned char selector ;
>extern unsigned char dig[23] ;
>extern integer tally ;
>extern integer termoffset ;
>extern integer fileoffset ;
>extern ASCIIcode trickbuf[256] ;
>extern integer trickcount ;
>extern integer firstcount ;
>extern unsigned char interaction ;
>extern unsigned char interactionoption ;
>extern boolean deletionsallowed ;
>extern boolean setboxallowed ;
>extern unsigned char history ;
>extern schar errorcount ;
>extern strnumber helpline[6] ;
>extern unsigned char helpptr ;
>extern boolean useerrhelp ;
>extern integer interrupt ;
>extern boolean OKtointerrupt ;
>extern boolean aritherror ;
>extern scaled texremainder ;
>extern integer randoms[55] ;
>extern unsigned char jrandom ;
>extern scaled randomseed ;
>extern integer twotothe[31] ;
>extern integer speclog[29] ;
>extern halfword tempptr ;
>extern memoryword * yzmem ;
>extern memoryword * zmem ;
>extern halfword lomemmax ;
>extern halfword himemmin ;
>extern integer varused, dynused ;
>extern halfword avail ;
>extern halfword memend ;
>extern halfword rover ;
>
>
>
>
>
>
>extern integer fontinshortdisplay ;
>extern integer depththreshold ;
>extern integer breadthmax ;
>extern liststaterecord * nest ;
>extern integer nestptr ;
>extern integer maxneststack ;
>extern liststaterecord curlist ;
>extern short shownmode ;
>extern halfword savetail ;
>extern unsigned char oldsetting ;
>extern memoryword * zeqtb ;
>extern quarterword
>
> zzzaa[905] ;
>extern twohalves * hash ;
>extern twohalves * yhash ;
>extern halfword hashused ;
>extern halfword hashextra ;
>extern halfword hashtop ;
>extern halfword eqtbtop ;
>extern halfword hashhigh ;
>extern boolean nonewcontrolsequence ;
>extern integer cscount ;
>extern twohalves prim[2101] ;
>extern halfword primused ;
>extern memoryword primeqtb[2101] ;
>extern memoryword * savestack ;
>extern integer saveptr ;
>extern integer maxsavestack ;
>extern quarterword curlevel ;
>extern groupcode curgroup ;
>extern integer curboundary ;
>extern integer magset ;
>extern eightbits curcmd ;
>extern halfword curchr ;
>extern halfword curcs ;
>extern halfword curtok ;
>extern instaterecord * inputstack ;
>extern integer inputptr ;
>extern integer maxinstack ;
>extern instaterecord curinput ;
>extern integer inopen ;
>extern integer openparens ;
>extern alphafile * inputfile ;
>extern integer line ;
>extern integer * linestack ;
>extern strnumber * sourcefilenamestack ;
>extern strnumber * fullsourcefilenamestack ;
>extern unsigned char scannerstatus ;
>extern halfword warningindex ;
>extern halfword defref ;
>extern halfword * paramstack ;
>extern integer paramptr ;
>extern integer maxparamstack ;
>extern integer alignstate ;
>extern integer baseptr ;
>extern halfword parloc ;
>extern halfword partoken ;
>extern boolean forceeof ;
>extern integer expanddepthcount ;
>extern boolean isincsname ;
>extern halfword curmark[5] ;
>extern unsigned char longstate ;
>extern halfword pstack[9] ;
>extern integer curval ;
>extern unsigned char curvallevel ;
>extern smallnumber radix ;
>extern glueord curorder ;
>extern alphafile readfile[16] ;
>extern unsigned char readopen[17] ;
>extern halfword condptr ;
>extern unsigned char iflimit ;
>extern smallnumber curif ;
>extern integer ifline ;
>extern integer skipline ;
>extern strnumber curname ;
>extern strnumber curarea ;
>extern strnumber curext ;
>extern poolpointer areadelimiter ;
>extern poolpointer extdelimiter ;
>extern integer formatdefaultlength ;
>extern string TEXformatdefault ;
>extern boolean nameinprogress ;
>extern strnumber jobname ;
>extern boolean logopened ;
>extern bytefile dvifile ;
>extern strnumber outputfilename ;
>extern strnumber texmflogname ;
>extern bytefile tfmfile ;
>extern fmemoryword * fontinfo ;
>extern fontindex fmemptr ;
>extern internalfontnumber fontptr ;
>extern fourquarters * fontcheck ;
>extern scaled * fontsize ;
>extern scaled * fontdsize ;
>extern fontindex * fontparams ;
>extern strnumber * fontname ;
>extern strnumber * fontarea ;
>extern eightbits * fontbc ;
>extern eightbits * fontec ;
>extern halfword * fontglue ;
>extern boolean * fontused ;
>extern integer * hyphenchar ;
>extern integer * skewchar ;
>extern fontindex * bcharlabel ;
>extern ninebits * fontbchar ;
>extern ninebits * fontfalsebchar ;
>extern integer * charbase ;
>extern integer * widthbase ;
>extern integer * heightbase ;
>extern integer * depthbase ;
>extern integer * italicbase ;
>extern integer * ligkernbase ;
>extern integer * kernbase ;
>extern integer * extenbase ;
>extern integer * parambase ;
>extern fourquarters nullcharacter ;
>extern integer totalpages ;
>extern scaled maxv ;
>extern scaled maxh ;
>extern integer maxpush ;
>extern integer lastbop ;
>extern integer deadcycles ;
>extern boolean doingleaders ;
>extern quarterword c ;
>extern internalfontnumber f ;
>extern scaled ruleht, ruledp, rulewd ;
>extern halfword g ;
>extern integer lq, lr ;
>extern eightbits * dvibuf ;
>extern integer halfbuf ;
>extern integer dvilimit ;
>extern integer dviptr ;
>extern integer dvioffset ;
>extern integer dvigone ;
>extern halfword downptr, rightptr ;
>extern scaled dvih, dviv ;
>extern scaled curh, curv ;
>extern internalfontnumber dvif ;
>extern integer curs ;
>extern integer pdfmemsize ;
>extern integer * pdfmem ;
>extern integer pdfmemptr ;
>extern bytefile pdffile ;
>extern eightbits * pdfbuf ;
>extern integer pdfbufsize ;
>extern integer pdfptr ;
>extern eightbits * pdfopbuf ;
>extern eightbits * pdfosbuf ;
>extern integer pdfosbufsize ;
>extern integer * pdfosobjnum ;
>extern integer * pdfosobjoff ;
>extern halfword pdfosobjidx ;
>extern integer pdfoscntr ;
>extern integer pdfopptr ;
>extern integer pdfosptr ;
>extern boolean pdfosmode ;
>extern boolean pdfosenable ;
>extern integer pdfoscurobjnum ;
>extern longinteger pdfgone ;
>extern longinteger pdfsaveoffset ;
>extern integer zipwritestate ;
>extern integer fixedpdfminorversion ;
>extern integer fixedpdfobjcompresslevel ;
>extern boolean pdfminorversionwritten ;
>extern integer fixedpdfoutput ;
>extern boolean fixedpdfoutputset ;
>extern integer fixedgamma ;
>extern integer fixedimagegamma ;
>extern boolean fixedimagehicolor ;
>extern integer fixedimageapplygamma ;
>extern integer epochseconds ;
>extern integer microseconds ;
>extern integer fixedpdfdraftmode ;
>extern boolean fixedpdfdraftmodeset ;
>extern integer pdfpagegroupval ;
>extern scaled onebp ;
>extern scaled onehundredbp ;
>extern scaled onehundredinch ;
>extern integer tenpow[10] ;
>extern integer scaledout ;
>extern boolean initpdfoutput ;
>extern internalfontnumber pdff ;
>extern scaled pdfh ;
>extern scaled pdfv ;
>extern scaled pdftjstarth ;
>extern scaled curdeltah ;
>extern scaled pdfdeltah ;
>extern scaled pdforiginh ;
>extern scaled pdforiginv ;
>extern boolean pdfdoingstring ;
>extern boolean pdfdoingtext ;
>extern scaled minbpval ;
>extern scaled minfontval ;
>extern integer fixedpkresolution ;
>extern integer fixeddecimaldigits ;
>extern integer fixedgentounicode ;
>extern integer fixedinclusioncopyfont ;
>extern integer pkscalefactor ;
>extern integer pdfoutputoption ;
>extern integer pdfoutputvalue ;
>extern integer pdfdraftmodeoption ;
>extern integer pdfdraftmodevalue ;
>extern integer pdfcurTma ;
>extern internalfontnumber pdflastf ;
>extern internalfontnumber pdflastfs ;
>extern internalfontnumber pdfdummyfont ;
>extern integer objtabsize ;
>extern objentry * objtab ;
>extern integer headtab[10] ;
>extern integer pagestail ;
>extern integer objptr ;
>extern integer sysobjptr ;
>extern integer pdflastpages ;
>extern integer pdflastpage ;
>extern integer pdflaststream ;
>extern longinteger pdfstreamlength ;
>extern longinteger pdfstreamlengthoffset ;
>extern boolean pdfseekwritelength ;
>extern eightbits pdflastbyte ;
>extern integer pdfappendlistarg ;
>extern integer ff ;
>extern integer pdfboxspecmedia ;
>extern integer pdfboxspeccrop ;
>extern integer pdfboxspecbleed ;
>extern integer pdfboxspectrim ;
>extern integer pdfboxspecart ;
>extern integer pdfimageprocset ;
>extern boolean pdftextprocset ;
>extern eightbits * pdffonttype ;
>extern strnumber * pdffontattr ;
>extern boolean * pdffontnobuiltintounicode ;
>extern charusedarray * pdfcharused ;
>extern scaled * pdffontsize ;
>extern integer * pdffontnum ;
>extern fmentryptr * pdffontmap ;
>extern halfword pdffontlist ;
>extern strnumber pdfresnameprefix ;
>extern strnumber lasttokensstring ;
>extern integer * vfpacketbase ;
>extern internalfontnumber * vfdefaultfont ;
>extern internalfontnumber * vflocalfontnum ;
>extern integer vfpacketlength ;
>extern bytefile vffile ;
>extern internalfontnumber vfnf ;
>extern integer * vfefnts ;
>extern internalfontnumber * vfifnts ;
>extern memoryword tmpw ;
>extern integer vfcurs ;
>extern vfstackrecord vfstack[( 100 ) + 1] ;
>extern vfstackindex vfstackptr ;
>extern strnumber pdftexbanner ;
>extern scaled totalstretch[4], totalshrink[4] ;
>extern integer lastbadness ;
>extern halfword adjusttail ;
>extern internalfontnumber * pdffontblink ;
>extern internalfontnumber * pdffontelink ;
>extern integer * pdffontstretch ;
>extern integer * pdffontshrink ;
>extern integer * pdffontstep ;
>extern integer * pdffontexpandratio ;
>extern boolean * pdffontautoexpand ;
>extern integer * pdffontlpbase ;
>extern integer * pdffontrpbase ;
>extern integer * pdffontefbase ;
>extern integer * pdffontknbsbase ;
>extern integer * pdffontstbsbase ;
>extern integer * pdffontshbsbase ;
>extern integer * pdffontknbcbase ;
>extern integer * pdffontknacbase ;
>extern integer fontexpandratio ;
>extern halfword lastleftmostchar ;
>extern halfword lastrightmostchar ;
>extern halfword hliststack[513] ;
>extern short hliststacklevel ;
>extern halfword preadjusttail ;
>extern integer packbeginline ;
>extern twohalves emptyfield ;
>extern fourquarters nulldelimiter ;
>extern halfword curmlist ;
>extern smallnumber curstyle ;
>extern smallnumber cursize ;
>extern scaled curmu ;
>extern boolean mlistpenalties ;
>extern internalfontnumber curf ;
>extern quarterword curc ;
>extern fourquarters curi ;
>extern integer magicoffset ;
>extern halfword curalign ;
>extern halfword curspan ;
>extern halfword curloop ;
>extern halfword alignptr ;
>extern halfword curhead, curtail ;
>extern halfword curprehead, curpretail ;
>extern halfword justbox ;
>extern halfword passive ;
>extern halfword printednode ;
>extern halfword passnumber ;
>extern scaled activewidth[9] ;
>extern scaled curactivewidth[9] ;
>extern scaled background[9] ;
>extern scaled breakwidth[9] ;
>extern boolean autobreaking ;
>extern halfword prevp ;
>extern halfword firstp ;
>extern halfword prevcharp ;
>extern halfword nextcharp ;
>extern boolean tryprevbreak ;
>extern halfword prevlegal ;
>extern halfword prevprevlegal ;
>extern boolean prevautobreaking ;
>extern scaled prevactivewidth[9] ;
>extern halfword rejectedcurp ;
>extern boolean beforerejectedcurp ;
>extern integer maxstretchratio ;
>extern integer maxshrinkratio ;
>extern integer curfontstep ;
>extern boolean noshrinkerroryet ;
>extern halfword curp ;
>extern boolean secondpass ;
>extern boolean finalpass ;
>extern integer threshold ;
>extern integer minimaldemerits[4] ;
>extern integer minimumdemerits ;
>extern halfword bestplace[4] ;
>extern halfword bestplline[4] ;
>extern scaled discwidth[9] ;
>extern halfword easyline ;
>extern halfword lastspecialline ;
>extern scaled firstwidth ;
>extern scaled secondwidth ;
>extern scaled firstindent ;
>extern scaled secondindent ;
>extern halfword bestbet ;
>extern integer fewestdemerits ;
>extern halfword bestline ;
>extern integer actuallooseness ;
>extern integer linediff ;
>extern short hc[66] ;
>extern smallnumber hn ;
>extern halfword ha, hb ;
>extern internalfontnumber hf ;
>extern short hu[64] ;
>extern integer hyfchar ;
>extern ASCIIcode curlang, initcurlang ;
>extern integer lhyf, rhyf, initlhyf, initrhyf ;
>extern halfword hyfbchar ;
>extern unsigned char hyf[65] ;
>extern halfword initlist ;
>extern boolean initlig ;
>extern boolean initlft ;
>extern smallnumber hyphenpassed ;
>extern halfword curl, curr ;
>extern halfword curq ;
>extern halfword ligstack ;
>extern boolean ligaturepresent ;
>extern boolean lfthit, rthit ;
>extern triepointer * trietrl ;
>extern triepointer * trietro ;
>extern quarterword * trietrc ;
>extern smallnumber hyfdistance[( 35111L ) + 1] ;
>extern smallnumber hyfnum[( 35111L ) + 1] ;
>extern trieopcode hyfnext[( 35111L ) + 1] ;
>extern integer opstart[256] ;
>extern strnumber * hyphword ;
>extern halfword * hyphlist ;
>extern hyphpointer * hyphlink ;
>extern integer hyphcount ;
>extern integer hyphnext ;
>
>extern integer
>
> zzzab[( 35111L ) - ( -35111L ) + 1] ;
>extern trieopcode trieused[256] ;
>extern ASCIIcode trieoplang[( 35111L ) + 1] ;
>extern trieopcode trieopval[( 35111L ) + 1] ;
>extern integer trieopptr ;
>
>extern trieopcode maxopused ;
>extern boolean smallop ;
>
>extern packedASCIIcode * triec ;
>extern trieopcode * trieo ;
>extern triepointer * triel ;
>extern triepointer * trier ;
>extern triepointer trieptr ;
>extern triepointer * triehash ;
>
>
>extern boolean * trietaken ;
>extern triepointer triemin[256] ;
>extern triepointer triemax ;
>extern boolean trienotready ;
>
>extern scaled bestheightplusdepth ;
>extern halfword pagetail ;
>extern unsigned char pagecontents ;
>extern scaled pagemaxdepth ;
>extern halfword bestpagebreak ;
>extern integer leastpagecost ;
>extern scaled bestsize ;
>extern scaled pagesofar[8] ;
>extern halfword lastglue ;
>extern integer lastpenalty ;
>extern scaled lastkern ;
>extern integer lastnodetype ;
>extern integer insertpenalties ;
>extern boolean outputactive ;
>extern internalfontnumber mainf ;
>extern fourquarters maini ;
>extern fourquarters mainj ;
>extern fontindex maink ;
>extern halfword mainp ;
>extern integer mains ;
>extern halfword bchar ;
>extern halfword falsebchar ;
>extern boolean cancelboundary ;
>extern boolean insdisc ;
>extern halfword curbox ;
>extern halfword aftertoken ;
>extern boolean longhelpseen ;
>extern strnumber formatident ;
>extern wordfile fmtfile ;
>extern integer readyalready ;
>extern alphafile writefile[16] ;
>extern boolean writeopen[18] ;
>extern halfword writeloc ;
>extern integer pdflastobj ;
>extern integer pdflastxform ;
>extern integer pdflastximage ;
>extern integer pdflastximagepages ;
>extern integer pdflastximagecolordepth ;
>extern halfword altrule ;
>extern boolean warnpdfpagebox ;
>extern integer pdflastannot ;
>extern integer pdflastlink ;
>extern integer pdflastxpos ;
>extern integer pdflastypos ;
>extern integer pdfsnapxrefpos ;
>extern integer pdfsnapyrefpos ;
>extern integer countdosnapy ;
>extern integer pdfretval ;
>extern scaled curpagewidth ;
>extern scaled curpageheight ;
>extern scaled curhoffset ;
>extern scaled curvoffset ;
>extern halfword pdfobjlist ;
>extern halfword pdfxformlist ;
>extern halfword pdfximagelist ;
>extern halfword lastthread ;
>extern scaled pdfthreadht, pdfthreaddp, pdfthreadwd ;
>extern halfword pdflastthreadid ;
>extern boolean pdflastthreadnamedid ;
>extern integer pdfthreadlevel ;
>extern halfword pdfannotlist ;
>extern halfword pdflinklist ;
>extern halfword pdfdestlist ;
>extern halfword pdfbeadlist ;
>extern integer pdfobjcount ;
>extern integer pdfxformcount ;
>extern integer pdfximagecount ;
>extern integer pdfcurform ;
>extern integer pdffirstoutline, pdflastoutline, pdfparentoutline ;
>extern scaled pdfxformwidth, pdfxformheight, pdfxformdepth ;
>extern halfword pdfinfotoks ;
>extern halfword pdfcatalogtoks ;
>extern integer pdfcatalogopenaction ;
>extern halfword pdfnamestoks ;
>extern integer pdfdestnamesptr ;
>extern integer destnamessize ;
>extern destnameentry * destnames ;
>extern integer pkdpi ;
>extern integer imageorigx, imageorigy ;
>extern halfword pdftrailertoks ;
>extern boolean genfakedinterwordspace ;
>extern pdflinkstackrecord pdflinkstack[( 10 ) + 1] ;
>extern smallnumber pdflinkstackptr ;
>extern boolean isshippingpage ;
>extern unsigned char eTeXmode ;
>extern boolean etexp ;
>extern boolean * eofseen ;
>extern halfword LRptr ;
>extern integer LRproblems ;
>extern smallnumber curdir ;
>extern halfword pseudofiles ;
>extern savepointer * grpstack ;
>extern halfword * ifstack ;
>extern halfword maxregnum ;
>extern strnumber maxreghelpline ;
>extern halfword saroot[7] ;
>extern halfword curptr ;
>extern memoryword sanull ;
>extern halfword sachain ;
>extern quarterword salevel ;
>extern halfword lastlinefill ;
>extern boolean dolastlinefit ;
>extern smallnumber activenodesize ;
>extern scaled fillwidth[3] ;
>extern scaled bestplshort[4] ;
>extern scaled bestplglue[4] ;
>extern triepointer hyphstart ;
>extern triepointer hyphindex ;
>extern halfword discptr[4] ;
>extern poolpointer editnamestart ;
>extern integer editnamelength, editline ;
>extern int ipcon ;
>extern boolean stopatspace ;
>extern strnumber savestrptr ;
>extern poolpointer savepoolptr ;
>extern int shellenabledp ;
>extern int restrictedshell ;
>extern char * outputcomment ;
>extern unsigned char k, l ;
>extern boolean debugformatfile ;
>extern boolean mltexp ;
>extern boolean mltexenabledp ;
>extern integer accentc, basec, replacec ;
>extern fourquarters iac, ibc ;
>extern real baseslant, accentslant ;
>extern scaled basexheight ;
>extern scaled basewidth, baseheight ;
>extern scaled accentwidth, accentheight ;
>extern scaled delta ;
>extern boolean enctexp ;
>extern boolean enctexenabledp ;
>extern integer synctexoption ;
>extern integer synctexoffset ;
>
># 1 "pdftexcoerce.h" 1
>void initialize (void);
>
>void println (void);
>
>void zprintchar (ASCIIcode s);
>
>
>void zprint (integer s);
>
>
>void zslowprint (integer s);
>
>
>void zprintnl (strnumber s);
>
>
>void zprintesc (strnumber s);
>
>
>void zprintthedigs (eightbits k);
>
>
>void zprintint (longinteger n);
>
>
>void zprintcs (integer p);
>
>
>void zsprintcs (halfword p);
>
>
>void zprintfilename (integer n,integer a,integer e);
>
>
>void zprintsize (integer s);
>
>
>void zprintwritewhatsit (strnumber s,halfword p);
>
>
>void zprintsanum (halfword q);
>
>
>void zprintcsnames (integer hstart,integer hfinish);
>
>
>void printfileline (void);
>
>ASCIIcode zzreadbuffer (integer * i);
>
>
>void zzprintbuffer (integer * i);
>
>
>__attribute__((__noreturn__)) void jumpout (void);
>
>void error (void);
>
>__attribute__((__noreturn__)) void zfatalerror (strnumber s);
>
>
>__attribute__((__noreturn__)) void zoverflow (strnumber s,integer n);
>
>
>__attribute__((__noreturn__)) void zconfusion (strnumber s);
>
>
>boolean initterminal (void);
>
>strnumber makestring (void);
>
>boolean zstreqbuf (strnumber s,integer k);
>
>
>boolean zstreqstr (strnumber s,strnumber t);
>
>
>strnumber zsearchstring (strnumber search);
>
>
>strnumber slowmakestring (void);
>
>boolean getstringsstarted (void);
>
>void zprinttwo (integer n);
>
>
>void zprinthex (integer n);
>
>
>void zprintromanint (integer n);
>
>
>void printcurrentstring (void);
>
>void terminput (void);
>
>void zinterror (integer n);
>
>
>void normalizeselector (void);
>
>void pauseforinstructions (void);
>
>integer zhalf (integer x);
>
>
>scaled zrounddecimals (smallnumber k);
>
>
>void zprintscaled (scaled s);
>
>
>scaled zmultandadd (integer n,scaled x,scaled y,scaled maxanswer);
>
>
>scaled zxovern (scaled x,integer n);
>
>
>scaled zxnoverd (scaled x,integer n,integer d);
>
>
>halfword zbadness (scaled t,scaled s);
>
>
>integer zmakefrac (integer p,integer q);
>
>
>integer ztakefrac (integer q,integer f);
>
>
>integer zmlog (integer x);
>
>
>integer zabvscd (integer a,integer b,integer c,integer d);
>
>
>void newrandoms (void);
>
>void zinitrandoms (integer seed);
>
>
>integer zunifrand (integer x);
>
>
>integer normrand (void);
>
>void zprintword (memoryword w);
>
>
>void zshowtokenlist (integer p,integer q,integer l);
>
>
>void runaway (void);
>
>halfword getavail (void);
>
>void zflushlist (halfword p);
>
>
>halfword zgetnode (integer s);
>
>
>void zfreenode (halfword p,halfword s);
>
>
>void sortavail (void);
>
>halfword newnullbox (void);
>
>halfword newrule (void);
>
>halfword znewligature (internalfontnumber f,quarterword c,halfword q);
>
>
>halfword znewligitem (quarterword c);
>
>
>halfword newdisc (void);
>
>halfword znewmath (scaled w,smallnumber s);
>
>
>halfword znewspec (halfword p);
>
>
>halfword znewparamglue (smallnumber n);
>
>
>halfword znewglue (halfword q);
>
>
>halfword znewskipparam (smallnumber n);
>
>
>halfword znewkern (scaled w);
>
>
>halfword znewpenalty (integer m);
>
>
>void zcheckmem (boolean printlocs);
>
>
>void zsearchmem (halfword p);
>
>
>void zpdferror (strnumber t,strnumber p);
>
>
>void zpdfwarning (strnumber t,strnumber p,boolean prependnl,boolean appendnl);
>
>
>void zpdfosgetosbuf (integer s);
>
>
>void removelastspace (void);
>
>void zpdfprintoctal (integer n);
>
>
>void zpdfprintchar (internalfontnumber f,integer c);
>
>
>void zpdfprint (strnumber s);
>
>
>boolean zstrinstr (strnumber s,strnumber r,integer i);
>
>
>void zpdfprintint (longinteger n);
>
>
>void zpdfprinttwo (integer n);
>
>
>strnumber ztokenstostring (halfword p);
>
>
>scaled zdividescaled (scaled s,scaled m,integer dd);
>
>
>scaled zroundxnoverd (scaled x,integer n,integer d);
>
>
>void zappenddestname (strnumber s,integer n);
>
>
>void zpdfcreateobj (integer t,integer i);
>
>
>integer pdfnewobjnum (void);
>
>void zpdfosswitch (boolean pdfos);
>
>
>void zpdfosprepareobj (integer i,integer pdfoslevel);
>
>
>void zpdfbeginobj (integer i,integer pdfoslevel);
>
>
>void zpdfnewobj (integer t,integer i,integer pdfos);
>
>
>void pdfendobj (void);
>
>void zpdfbegindict (integer i,integer pdfoslevel);
>
>
>void zpdfnewdict (integer t,integer i,integer pdfos);
>
>
>void pdfenddict (void);
>
>void pdfoswriteobjstream (void);
>
>halfword zappendptr (halfword p,integer i);
>
>
>halfword zpdflookuplist (halfword p,integer i);
>
>
>halfword zprevrightmost (halfword s,halfword e);
>
>
>void zpdfcheckobj (integer t,integer n);
>
>
>integer zfindobj (integer t,integer i,boolean byname);
>
>
>void zflushstr (strnumber s);
>
>
>integer zgetobj (integer t,integer i,boolean byname);
>
>
>integer getmicrointerval (void);
>
>void zprintfontidentifier (internalfontnumber f);
>
>
>void zshortdisplay (integer p);
>
>
>void zprintfontandchar (integer p);
>
>
>void zprintmark (integer p);
>
>
>void zprintruledimen (scaled d);
>
>
>void zprintglue (scaled d,integer order,strnumber s);
>
>
>void zprintspec (integer p,strnumber s);
>
>
>void zprintfamandchar (halfword p);
>
>
>void zprintdelimiter (halfword p);
>
>
>void zprintsubsidiarydata (halfword p,ASCIIcode c);
>
>
>void zprintstyle (integer c);
>
>
>void zprintskipparam (integer n);
>
>
>void zshownodelist (integer p);
>
>
>void zshowbox (halfword p);
>
>
>void zdeletetokenref (halfword p);
>
>
>void zdeleteglueref (halfword p);
>
>
>void zflushnodelist (halfword p);
>
>
>halfword zcopynodelist (halfword p);
>
>
>void zprintmode (integer m);
>
>
>void zprintinmode (integer m);
>
>
>void pushnest (void);
>
>void popnest (void);
>
>void showactivities (void);
>
>void zprintparam (integer n);
>
>
>void begindiagnostic (void);
>
>void zenddiagnostic (boolean blankline);
>
>
>void zprintlengthparam (integer n);
>
>
>void zprintcmdchr (quarterword cmd,halfword chrcode);
>
>
>void zshoweqtb (halfword n);
>
>
>halfword zidlookup (integer j,integer l);
>
>
>halfword zprimlookup (strnumber s);
>
>
>void zprimitive (strnumber s,quarterword c,halfword o);
>
>
>void zrestoretrace (halfword p,strnumber s);
>
>
>void zprintgroup (boolean e);
>
>
>void zgrouptrace (boolean e);
>
>
>boolean pseudoinput (void);
>
>void pseudoclose (void);
>
>void groupwarning (void);
>
>void ifwarning (void);
>
>void filewarning (void);
>
>void zdeletesaref (halfword q);
>
>
>void zshowsa (halfword p,strnumber s);
>
>
>void zsasave (halfword p);
>
>
>void zsadestroy (halfword p);
>
>
>void zsadef (halfword p,halfword e);
>
>
>void zsawdef (halfword p,integer w);
>
>
>void zgsadef (halfword p,halfword e);
>
>
>void zgsawdef (halfword p,integer w);
>
>
>void sarestore (void);
>
>void znewsavelevel (groupcode c);
>
>
>void zeqdestroy (memoryword w);
>
>
>void zeqsave (halfword p,quarterword l);
>
>
>void zeqdefine (halfword p,quarterword t,halfword e);
>
>
>void zeqworddefine (halfword p,integer w);
>
>
>void zgeqdefine (halfword p,quarterword t,halfword e);
>
>
>void zgeqworddefine (halfword p,integer w);
>
>
>void zsaveforafter (halfword t);
>
>
>void unsave (void);
>
>void preparemag (void);
>
>void ztokenshow (halfword p);
>
>
>void printmeaning (void);
>
>void showcurcmdchr (void);
>
>void showcontext (void);
>
>void zbegintokenlist (halfword p,quarterword t);
>
>
>void endtokenlist (void);
>
>void backinput (void);
>
>void backerror (void);
>
>void inserror (void);
>
>void beginfilereading (void);
>
>void endfilereading (void);
>
>void clearforerrorprompt (void);
>
>void mubyteupdate (void);
>
>void zdisposemunode (halfword p);
>
>
>void zdisposemutableout (halfword cs);
>
>
>void checkoutervalidity (void);
>
>void getnext (void);
>
>void firmuptheline (void);
>
>void gettoken (void);
>
>void macrocall (void);
>
>void insertrelax (void);
>
>void znewindex (quarterword i,halfword q);
>
>
>void zfindsaelement (smallnumber t,halfword n,boolean w);
>
>
>void expand (void);
>
>void getxtoken (void);
>
>void xtoken (void);
>
>void scanleftbrace (void);
>
>void scanoptionalequals (void);
>
>boolean zscankeyword (strnumber s);
>
>
>void muerror (void);
>
>void scaneightbitint (void);
>
>void scancharnum (void);
>
>void scanfourbitint (void);
>
>void scanfifteenbitint (void);
>
>void scantwentysevenbitint (void);
>
>void scanregisternum (void);
>
>void scanfourbitintor18 (void);
>
>void getxorprotected (void);
>
>integer zeffectivechar (boolean errp,internalfontnumber f,quarterword c);
>
>
>integer ztestnoligatures (internalfontnumber f);
>
>
>integer zgettagcode (internalfontnumber f,eightbits c);
>
>
>void scanfontident (void);
>
>void zfindfontdimen (boolean writing);
>
>
>void zscansomethinginternal (smallnumber level,boolean negative);
>
>
>void scanint (void);
>
>void zscandimen (boolean mu,boolean inf,boolean shortcut);
>
>
>void zscanglue (smallnumber level);
>
>
>integer zaddorsub (integer x,integer y,integer maxanswer,boolean negative);
>
>
>integer zquotient (integer n,integer d);
>
>
>integer zfract (integer x,integer n,integer d,integer maxanswer);
>
>
>void scanexpr (void);
>
>void scannormalglue (void);
>
>void scanmuglue (void);
>
>halfword scanrulespec (void);
>
>void scangeneraltext (void);
>
>void pseudostart (void);
>
>halfword zstrtoks (poolpointer b);
>
>
>halfword thetoks (void);
>
>void insthetoks (void);
>
>void convtoks (void);
>
>halfword zscantoks (boolean macrodef,boolean xpand);
>
>
>void zreadtoks (integer n,halfword r,halfword j);
>
>
>void passtext (void);
>
>void zchangeiflimit (smallnumber l,halfword p);
>
>
>void conditional (void);
>
>void beginname (void);
>
>boolean zmorename (ASCIIcode c);
>
>
>void endname (void);
>
>void zpackfilename (strnumber n,strnumber a,strnumber e);
>
>
>void zpackbufferedname (smallnumber n,integer a,integer b);
>
>
>strnumber makenamestring (void);
>
>strnumber zamakenamestring (alphafile f);
>
>
>strnumber zbmakenamestring (bytefile f);
>
>
>strnumber zwmakenamestring (wordfile f);
>
>
>void scanfilename (void);
>
>void zpackjobname (strnumber s);
>
>
>void zpromptfilename (strnumber s,strnumber e);
>
>
>void openlogfile (void);
>
>void startinput (void);
>
>fourquarters zeffectivecharinfo (internalfontnumber f,quarterword c);
>
>
>internalfontnumber zreadfontinfo (halfword u,strnumber nom,strnumber aire,scaled s);
>
>
>scaled zstorescaledf (scaled sq,scaled z);
>
>
>void zcharwarning (internalfontnumber f,eightbits c);
>
>
>halfword znewcharacter (internalfontnumber f,eightbits c);
>
>
>void dviswap (void);
>
>void zdvifour (integer x);
>
>
>void zdvipop (integer l);
>
>
>void zdvifontdef (internalfontnumber f);
>
>
>void zmovement (scaled w,eightbits o);
>
>
>void zprunemovements (integer l);
>
>
>void zspecialout (halfword p);
>
>
>void zwriteout (halfword p);
>
>
>void zoutwhat (halfword p);
>
>
>halfword znewedge (smallnumber s,scaled w);
>
>
>halfword zzreverse (halfword thisbox,halfword t,scaled * curg,real * curglue);
>
>
>void hlistout (void);
>
>void vlistout (void);
>
>void zdvishipout (halfword p);
>
>
>integer getpdfcompresslevel (void);
>
>integer getpdfsuppresswarningdupmap (void);
>
>integer getpdfsuppresswarningpagegroup (void);
>
>internalfontnumber getnullfont (void);
>
>internalfontnumber getfontbase (void);
>
>halfword getnullcs (void);
>
>halfword getnullptr (void);
>
>integer zgettexint (integer code);
>
>
>scaled zgettexdimen (integer code);
>
>
>scaled zgetxheight (internalfontnumber f);
>
>
>scaled zgetcharwidth (internalfontnumber f,eightbits c);
>
>
>scaled zgetcharheight (internalfontnumber f,eightbits c);
>
>
>scaled zgetchardepth (internalfontnumber f,eightbits c);
>
>
>scaled zgetquad (internalfontnumber f);
>
>
>scaled zgetslant (internalfontnumber f);
>
>
>internalfontnumber newdummyfont (void);
>
>void zshortdisplayn (integer p,integer m);
>
>
>integer zpdfgetmem (integer s);
>
>
>integer zfixint (integer val,integer min,integer max);
>
>
>void checkpdfminorversion (void);
>
>void ensurepdfopen (void);
>
>void pdfflush (void);
>
>void pdfbeginstream (void);
>
>void pdfendstream (void);
>
>void zadvcharwidth (internalfontnumber f,eightbits c);
>
>
>void zpdfprintreal (integer m,integer d);
>
>
>void zpdfprintbp (scaled s);
>
>
>void zpdfprintmagbp (scaled s);
>
>
>void zpdfsetorigin (scaled h,scaled v);
>
>
>void zpdfsetorigintemp (scaled h,scaled v);
>
>
>void pdfendstring (void);
>
>void pdfendstringnl (void);
>
>void zpdfsettextmatrix (scaled v,scaled vout,internalfontnumber f);
>
>
>void zpdfusefont (internalfontnumber f,integer fontnum);
>
>
>void zpdfinitfont (internalfontnumber f);
>
>
>void pdfinitfontcurval (void);
>
>void zpdfsetfont (internalfontnumber f);
>
>
>void pdfbegintext (void);
>
>void pdfreaddummyfont (void);
>
>void pdfinsertinterwordspace (void);
>
>void zpdfbeginstring (internalfontnumber f);
>
>
>void pdfinsertfakespace (void);
>
>void pdfendtext (void);
>
>void zpdfsetrule (scaled x,scaled y,scaled w,scaled h);
>
>
>void zpdfrectangle (scaled left,scaled top,scaled right,scaled bottom);
>
>
>void zliteral (strnumber s,integer literalmode,boolean warn);
>
>
>void zpdfprintfwint (longinteger n,integer w);
>
>
>void zpdfoutbytes (longinteger n,integer w);
>
>
>void zpdfintentry (strnumber s,integer v);
>
>
>void zpdfintentryln (strnumber s,integer v);
>
>
>void zpdfindirect (strnumber s,integer o);
>
>
>void zpdfindirectln (strnumber s,integer o);
>
>
>void zpdfprintstr (strnumber s);
>
>
>void zpdfprintstrln (strnumber s);
>
>
>void zpdfstrentry (strnumber s,strnumber v);
>
>
>void zpdfstrentryln (strnumber s,strnumber v);
>
>
>void zsettagcode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetnoligatures (internalfontnumber f);
>
>
>integer zinitfontbase (integer v);
>
>
>void zsetlpcode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetrpcode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetefcode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetknbscode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetstbscode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetshbscode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetknbccode (internalfontnumber f,eightbits c,integer i);
>
>
>void zsetknaccode (internalfontnumber f,eightbits c,integer i);
>
>
>void zadjustinterwordglue (halfword p,halfword g);
>
>
>halfword zgetautokern (internalfontnumber f,halfword l,halfword r);
>
>
>strnumber zexpandfontname (internalfontnumber f,integer e);
>
>
>internalfontnumber zautoexpandfont (internalfontnumber f,integer e);
>
>
>void zcopyexpandparams (internalfontnumber k,internalfontnumber f,integer e);
>
>
>internalfontnumber ztfmlookup (strnumber s,scaled fs);
>
>
>internalfontnumber zloadexpandfont (internalfontnumber f,integer e);
>
>
>integer zfixexpandvalue (internalfontnumber f,integer e);
>
>
>internalfontnumber zgetexpandfont (internalfontnumber f,integer e);
>
>
>internalfontnumber zexpandfont (internalfontnumber f,integer e);
>
>
>void zsetexpandparams (internalfontnumber f,boolean autoexpand,integer stretchlimit,integer shrinklimit,integer fontstep,integer expandratio);
>
>
>void zvfexpandlocalfonts (internalfontnumber f);
>
>
>void readexpandfont (void);
>
>internalfontnumber zletterspacefont (halfword u,internalfontnumber f,integer e);
>
>
>void znewletterspacedfont (smallnumber a);
>
>
>boolean zisletterspacedfont (internalfontnumber f);
>
>
>internalfontnumber zcopyfontinfo (internalfontnumber f);
>
>
>void zmakefontcopy (smallnumber a);
>
>
>void zvferror (strnumber filename,strnumber msg);
>
>
>eightbits vfbyte (void);
>
>integer zvfreadsigned (integer k);
>
>
>integer zvfreadunsigned (integer k);
>
>
>void zvflocalfontwarning (internalfontnumber f,internalfontnumber k,strnumber s);
>
>
>internalfontnumber zvfdeffont (internalfontnumber f);
>
>
>void zdovf (internalfontnumber f);
>
>
>void pdfcheckvfcurval (void);
>
>boolean zautoexpandvf (internalfontnumber f);
>
>
>integer zpacketreadsigned (integer k);
>
>
>integer zpacketreadunsigned (integer k);
>
>
>scaled zpacketscaled (integer k,scaled fs);
>
>
>void zdovfpacket (internalfontnumber vff,eightbits c);
>
>
>void zpdfoutliteral (halfword p);
>
>
>void zpdfoutcolorstack (halfword p);
>
>
>void pdfoutcolorstackstartpage (void);
>
>void zpdfoutsetmatrix (halfword p);
>
>
>void zpdfoutsave (halfword p);
>
>
>void zpdfoutrestore (halfword p);
>
>
>void zpdfspecial (halfword p);
>
>
>void zpdfprinttoks (halfword p);
>
>
>void zpdfprinttoksln (halfword p);
>
>
>void zpdfwriteobj (integer n);
>
>
>void zflushwhatsitnode (halfword p,smallnumber s);
>
>
>void zpdfwriteimage (integer n);
>
>
>void zpdfprintrectspec (halfword r);
>
>
>void zwarndestdup (integer id,smallnumber byname,strnumber s1,strnumber s2);
>
>
>void zwriteaction (halfword p);
>
>
>void zsetrectdimens (halfword p,halfword parentbox,scaled x,scaled y,scaled w,scaled h,scaled d,scaled margin);
>
>
>void zdoannot (halfword p,halfword parentbox,scaled x,scaled y);
>
>
>void zpushlinklevel (halfword p);
>
>
>void poplinklevel (void);
>
>void zdolink (halfword p,halfword parentbox,scaled x,scaled y);
>
>
>void endlink (void);
>
>void zappendlink (halfword parentbox,scaled x,scaled y,smallnumber i);
>
>
>void zappendbead (halfword p);
>
>
>void zdothread (halfword p,halfword parentbox,scaled x,scaled y);
>
>
>void zappendthread (halfword parentbox,scaled x,scaled y);
>
>
>void endthread (void);
>
>integer zopensubentries (halfword p);
>
>
>void zdodest (halfword p,halfword parentbox,scaled x,scaled y);
>
>
>void zoutform (halfword p);
>
>
>void zoutimage (halfword p);
>
>
>scaled zgapamount (halfword p,scaled curpos);
>
>
>halfword zgetvpos (halfword p,halfword q,halfword b);
>
>
>void zdosnapycomp (halfword p,halfword b);
>
>
>void zdosnapy (halfword p);
>
>
>void pdfhlistout (void);
>
>void pdfvlistout (void);
>
>void fixpdfoutput (void);
>
>void fixpdfdraftmode (void);
>
>void zpdfshipout (halfword p,boolean shippingpage);
>
>
>void zshipout (halfword p);
>
>
>boolean zstrlessstr (strnumber s1,strnumber s2);
>
>
>void zsortdestnames (integer l,integer r);
>
>
>void zpdffixdest (integer k);
>
>
>boolean zsubstrofstr (strnumber s,strnumber t);
>
>
>void pdfprintinfo (void);
>
>void zscanspec (groupcode c,boolean threecodes);
>
>
>boolean zcheckexpandpars (internalfontnumber f);
>
>
>scaled zcharstretch (internalfontnumber f,eightbits c);
>
>
>scaled zcharshrink (internalfontnumber f,eightbits c);
>
>
>scaled zgetkern (internalfontnumber f,eightbits lc,eightbits rc);
>
>
>scaled zkernstretch (halfword p);
>
>
>scaled zkernshrink (halfword p);
>
>
>void zdosubstfont (halfword p,integer exratio);
>
>
>scaled zcharpw (halfword p,smallnumber side);
>
>
>halfword znewmarginkern (scaled w,halfword p,smallnumber side);
>
>
>halfword zhpack (halfword p,scaled w,smallnumber m);
>
>
>halfword zvpackage (halfword p,scaled h,smallnumber m,scaled l);
>
>
>void zappendtovlist (halfword b);
>
>
>halfword newnoad (void);
>
>halfword znewstyle (smallnumber s);
>
>
>halfword newchoice (void);
>
>void showinfo (void);
>
>halfword zfractionrule (scaled t);
>
>
>halfword zoverbar (halfword b,scaled k,scaled t);
>
>
>halfword zcharbox (internalfontnumber f,quarterword c);
>
>
>void zstackintobox (halfword b,internalfontnumber f,quarterword c);
>
>
>scaled zheightplusdepth (internalfontnumber f,quarterword c);
>
>
>halfword zvardelimiter (halfword d,smallnumber s,scaled v);
>
>
>halfword zrebox (halfword b,scaled w);
>
>
>halfword zmathglue (halfword g,scaled m);
>
>
>void zmathkern (halfword p,scaled m);
>
>
>void flushmath (void);
>
>halfword zcleanbox (halfword p,smallnumber s);
>
>
>void zfetch (halfword a);
>
>
>void zmakeover (halfword q);
>
>
>void zmakeunder (halfword q);
>
>
>void zmakevcenter (halfword q);
>
>
>void zmakeradical (halfword q);
>
>
>void zmakemathaccent (halfword q);
>
>
>void zmakefraction (halfword q);
>
>
>scaled zmakeop (halfword q);
>
>
>void zmakeord (halfword q);
>
>
>void zmakescripts (halfword q,scaled delta);
>
>
>smallnumber zmakeleftright (halfword q,smallnumber style,scaled maxd,scaled maxh);
>
>
>void mlisttohlist (void);
>
>void pushalignment (void);
>
>void popalignment (void);
>
>void getpreambletoken (void);
>
>void initalign (void);
>
>void zinitspan (halfword p);
>
>
>void initrow (void);
>
>void initcol (void);
>
>boolean fincol (void);
>
>void finrow (void);
>
>void finalign (void);
>
>void alignpeek (void);
>
>halfword zfiniteshrink (halfword p);
>
>
>void zpushnode (halfword p);
>
>
>halfword popnode (void);
>
>halfword zfindprotcharleft (halfword l,boolean d);
>
>
>halfword zfindprotcharright (halfword l,halfword r);
>
>
>scaled ztotalpw (halfword q,halfword p);
>
>
>void ztrybreak (integer pi,smallnumber breaktype);
>
>
>void zpostlinebreak (boolean d);
>
>
>smallnumber zreconstitute (smallnumber j,smallnumber n,halfword bchar,halfword hchar);
>
>
>void hyphenate (void);
>
>trieopcode znewtrieop (smallnumber d,smallnumber n,trieopcode v);
>
>
>triepointer ztrienode (triepointer p);
>
>
>triepointer zcompresstrie (triepointer p);
>
>
>void zfirstfit (triepointer p);
>
>
>void ztriepack (triepointer p);
>
>
>void ztriefix (triepointer p);
>
>
>void newpatterns (void);
>
>void inittrie (void);
>
>void zlinebreak (boolean d);
>
>
>boolean zeTeXenabled (boolean b,quarterword j,halfword k);
>
>
>void showsavegroups (void);
>
>void newhyphexceptions (void);
>
>halfword zprunepagetop (halfword p,boolean s);
>
>
>halfword zvertbreak (halfword p,scaled h,scaled d);
>
>
>boolean zdomarks (smallnumber a,smallnumber l,halfword q);
>
>
>halfword zvsplit (halfword n,scaled h);
>
>
>void printtotals (void);
>
>void zfreezepagespecs (smallnumber s);
>
>
>void zboxerror (eightbits n);
>
>
>void zensurevbox (eightbits n);
>
>
>void zfireup (halfword c);
>
>
>void buildpage (void);
>
>void appspace (void);
>
>void insertdollarsign (void);
>
>void youcant (void);
>
>void reportillegalcase (void);
>
>boolean privileged (void);
>
>boolean itsallover (void);
>
>void appendglue (void);
>
>void appendkern (void);
>
>void offsave (void);
>
>void extrarightbrace (void);
>
>void normalparagraph (void);
>
>void zboxend (integer boxcontext);
>
>
>void zbeginbox (integer boxcontext);
>
>
>void zscanbox (integer boxcontext);
>
>
>void zpackage (smallnumber c);
>
>
>smallnumber znormmin (integer h);
>
>
>void znewgraf (boolean indented);
>
>
>void indentinhmode (void);
>
>void headforvmode (void);
>
>void endgraf (void);
>
>void begininsertoradjust (void);
>
>void makemark (void);
>
>void appendpenalty (void);
>
>void deletelast (void);
>
>void unpackage (void);
>
>void appenditaliccorrection (void);
>
>void appenddiscretionary (void);
>
>void builddiscretionary (void);
>
>void makeaccent (void);
>
>void alignerror (void);
>
>void noalignerror (void);
>
>void omiterror (void);
>
>void doendv (void);
>
>void cserror (void);
>
>void zpushmath (groupcode c);
>
>
>void zjustcopy (halfword p,halfword h,halfword t);
>
>
>void zjustreverse (halfword p);
>
>
>void initmath (void);
>
>void starteqno (void);
>
>void zscanmath (halfword p);
>
>
>void zsetmathchar (integer c);
>
>
>void mathlimitswitch (void);
>
>void zscandelimiter (halfword p,boolean r);
>
>
>void mathradical (void);
>
>void mathac (void);
>
>void appendchoices (void);
>
>halfword zfinmlist (halfword p);
>
>
>void buildchoices (void);
>
>void subsup (void);
>
>void mathfraction (void);
>
>void mathleftright (void);
>
>void zappdisplay (halfword j,halfword b,scaled d);
>
>
>void aftermath (void);
>
>void resumeafterdisplay (void);
>
>void getrtoken (void);
>
>void trapzeroglue (void);
>
>void zdoregistercommand (smallnumber a);
>
>
>void alteraux (void);
>
>void alterprevgraf (void);
>
>void alterpagesofar (void);
>
>void alterinteger (void);
>
>void alterboxdimen (void);
>
>void znewfont (smallnumber a);
>
>
>void newinteraction (void);
>
>void prefixedcommand (void);
>
>void doassignments (void);
>
>void openorclosein (void);
>
>void issuemessage (void);
>
>void shiftcase (void);
>
>void showwhatever (void);
>
>void storefmtfile (void);
>
>void znewwhatsit (smallnumber s,smallnumber w);
>
>
>void znewwritewhatsit (smallnumber w);
>
>
>void zcheckpdfoutput (strnumber s,boolean iserror);
>
>
>void scanpdfexttoks (void);
>
>void comparestrings (void);
>
>void zscaleimage (integer n);
>
>
>integer scanpdfboxspec (void);
>
>void scanaltrule (void);
>
>void scanimage (void);
>
>halfword scanaction (void);
>
>void znewannotwhatsit (smallnumber w,smallnumber s);
>
>
>integer zoutlinelistcount (halfword p);
>
>
>void scanthreadid (void);
>
>halfword znewsnapnode (smallnumber s);
>
>
>halfword zconcattokens (halfword q,halfword r);
>
>
>void pdfincludechars (void);
>
>void glyphtounicode (void);
>
>void zthreadtitle (integer thread);
>
>
>void zpdffixthread (integer thread);
>
>
>void zoutthread (integer thread);
>
>
>void doextension (void);
>
>void fixlanguage (void);
>
>void insertsrcspecial (void);
>
>void appendsrcspecial (void);
>
>void handlerightbrace (void);
>
>void maincontrol (void);
>
>void giveerrhelp (void);
>
>boolean openfmtfile (void);
>
>boolean loadfmtfile (void);
>
>void closefilesandterminate (void);
>
>void finalcleanup (void);
>
>void initprim (void);
>
>void debughelp (void);
>
>void mainbody (void);
>
>strnumber getnullstr (void);
># 1595 "pdftexcoerce.h"
>extern strnumber getjobname (strnumber);
>
>
>
>
>
>extern void calledit (packedASCIIcode *, poolpointer, integer, integer);
>
>
>
>
>
>
>extern strnumber makefullnamestring(void);
>
>
>extern string gettexstring (strnumber);
>
>extern boolean isnewsource (strnumber, int);
>extern poolpointer makesrcspecial (strnumber, int);
>extern void remembersourceinfo (strnumber, int);
>
>
># 1 "../../../texk/web2c/pdftexdir/pdftex.h" 1
># 64 "../../../texk/web2c/pdftexdir/pdftex.h"
># 1 "../../../texk/web2c/pdftexdir/ptexlib.h" 1
># 33 "../../../texk/web2c/pdftexdir/ptexlib.h"
># 1 "../../../texk/web2c/pdftexdir/ptexmac.h" 1
># 34 "../../../texk/web2c/pdftexdir/ptexlib.h" 2
>
>
># 1 "../../../texk/web2c/pdftexdir/avlstuff.h" 1
># 18 "../../../texk/web2c/pdftexdir/avlstuff.h"
># 1 "../../../texk/web2c/pdftexdir/avl.h" 1
># 31 "../../../texk/web2c/pdftexdir/avl.h"
># 1 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 1 3 4
># 147 "/usr/lib/gcc/s390x-redhat-linux/4.9.0/include/stddef.h" 3 4
>typedef long int ptrdiff_t;
># 32 "../../../texk/web2c/pdftexdir/avl.h" 2
>
>
>typedef int avl_comparison_func (const void *avl_a, const void *avl_b,
> void *avl_param);
>typedef void avl_item_func (void *avl_item, void *avl_param);
>typedef void *avl_copy_func (void *avl_item, void *avl_param);
>
>
>
>
>struct libavl_allocator
> {
> void *(*libavl_malloc) (struct libavl_allocator *, size_t libavl_size);
> void (*libavl_free) (struct libavl_allocator *, void *libavl_block);
> };
>
>
>
>extern struct libavl_allocator avl_allocator_default;
>void *avl_malloc (struct libavl_allocator *, size_t);
>void avl_free (struct libavl_allocator *, void *);
>
>
>
>
>
>
>
>struct avl_table
> {
> struct avl_node *avl_root;
> avl_comparison_func *avl_compare;
> void *avl_param;
> struct libavl_allocator *avl_alloc;
> size_t avl_count;
> unsigned long avl_generation;
> };
>
>
>struct avl_node
> {
> struct avl_node *avl_link[2];
> void *avl_data;
> signed char avl_balance;
> };
>
>
>struct avl_traverser
> {
> struct avl_table *avl_table;
> struct avl_node *avl_node;
> struct avl_node *avl_stack[32];
>
> size_t avl_height;
> unsigned long avl_generation;
> };
>
>
>struct avl_table *avl_create (avl_comparison_func *, void *,
> struct libavl_allocator *);
>struct avl_table *avl_copy (const struct avl_table *, avl_copy_func *,
> avl_item_func *, struct libavl_allocator *);
>void avl_destroy (struct avl_table *, avl_item_func *);
>void **avl_probe (struct avl_table *, void *);
>void *avl_insert (struct avl_table *, void *);
>void *avl_replace (struct avl_table *, void *);
>void *avl_delete (struct avl_table *, const void *);
>void *avl_find (const struct avl_table *, const void *);
>void avl_assert_insert (struct avl_table *, void *);
>void *avl_assert_delete (struct avl_table *, void *);
>
>
>
>
>void avl_t_init (struct avl_traverser *, struct avl_table *);
>void *avl_t_first (struct avl_traverser *, struct avl_table *);
>void *avl_t_last (struct avl_traverser *, struct avl_table *);
>void *avl_t_find (struct avl_traverser *, struct avl_table *, void *);
>void *avl_t_insert (struct avl_traverser *, struct avl_table *, void *);
>void *avl_t_copy (struct avl_traverser *, const struct avl_traverser *);
>void *avl_t_next (struct avl_traverser *);
>void *avl_t_prev (struct avl_traverser *);
>void *avl_t_cur (struct avl_traverser *);
>void *avl_t_replace (struct avl_traverser *, void *);
># 19 "../../../texk/web2c/pdftexdir/avlstuff.h" 2
>
>
>
>extern struct libavl_allocator avl_xallocator;
># 37 "../../../texk/web2c/pdftexdir/ptexlib.h" 2
>
>
>typedef struct {
> const char *pdfname;
> const char *t1name;
> float value;
> boolean valid;
>} key_entry;
>
>struct _subfont_entry;
>typedef struct _subfont_entry subfont_entry;
>
>struct _subfont_entry {
> char *infix;
> long charcodes[256];
> subfont_entry *next;
>};
>
>typedef struct {
> char *name;
> subfont_entry *subfont;
>} sfd_entry;
>
>typedef struct {
> integer fe_objnum;
> char *name;
> char **glyph_names;
> struct avl_table *tx_tree;
>} fe_entry;
>
>typedef struct {
> char *name;
> long code;
>
> char *unicode_seq;
>} glyph_unicode_entry;
>
>
>
>
>
>
>typedef struct {
>
> char *tfm_name;
> char *sfd_name;
> char *ps_name;
> integer fd_flags;
> integer slant;
> integer extend;
> char *encname;
> char *ff_name;
> unsigned short type;
> short pid;
> short eid;
>
> subfont_entry *subfont;
> unsigned short links;
> boolean in_use;
>} fm_entry;
>
>
>
>typedef struct {
> int val;
> boolean set;
>} intparm;
>
>typedef struct fd_entry_ {
> integer fd_objnum;
> char *fontname;
> char *subset_tag;
> boolean ff_found;
> integer ff_objnum;
> integer fn_objnum;
> boolean all_glyphs;
> boolean write_ttf_glyph_names;
> intparm font_dim[(10 + 1)];
> fe_entry *fe;
> char **builtin_glyph_names;
> fm_entry *fm;
> struct avl_table *tx_tree;
> struct avl_table *gl_tree;
>} fd_entry;
>
>typedef struct cw_entry_ {
> integer cw_objnum;
> integer *width;
>} cw_entry;
>
>typedef struct fo_entry_ {
> integer fo_objnum;
> internalfontnumber tex_font;
> fm_entry *fm;
> fd_entry *fd;
> fe_entry *fe;
> cw_entry *cw;
> integer first_char;
> integer last_char;
> integer tounicode_objnum;
>} fo_entry;
>
>
>
>typedef struct {
> char *ff_name;
> char *ff_path;
>} ff_entry;
>
>typedef short shalfword;
>typedef struct {
> integer charcode, cwidth, cheight, xoff, yoff, xescape, rastersize;
> halfword *raster;
>} chardesc;
>
>
>extern boolean true_dimen;
>extern char **t1_glyph_names, *t1_builtin_glyph_names[];
>extern char *cur_file_name;
>extern integer t1_length1, t1_length2, t1_length3;
>extern integer ttf_length;
>extern strnumber last_tex_string;
>extern size_t last_ptr_index;
>extern char *fb_array;
>extern FILE *t3_file;
>extern const char *ptexbanner;
>
>
>
>
># 1 "../../../texk/web2c/pdftexdir/pdftex-common.h" 1
># 35 "../../../texk/web2c/pdftexdir/pdftex-common.h"
>extern integer pdfboxspecmedia;
>extern integer pdfboxspeccrop;
>extern integer pdfboxspecbleed;
>extern integer pdfboxspectrim;
>extern integer pdfboxspecart;
>
>extern longinteger pdfstreamlength;
>extern integer pdfptr;
>extern integer poolptr;
>extern eightbits *pdfbuf;
>extern integer pdfbufsize;
>extern boolean pdfosmode;
>extern eightbits pdflastbyte;
>extern integer fixedinclusioncopyfont;
>extern integer pdfpagegroupval;
>
>
>extern integer pdfnewobjnum(void);
>extern void pdfbeginstream(void);
>extern void pdfendobj(void);
>extern void pdfendstream(void);
>extern void pdfflush(void);
>extern void zpdfosgetosbuf(integer);
>
>extern void zpdfbeginobj(integer, integer);
>
>
>
>
>
>
>
>extern void embed_whole_font(fd_entry *);
>extern fd_entry *epdf_create_fontdescriptor(fm_entry *, int);
>extern void epdf_free(void);
>extern void epdf_mark_glyphs(fd_entry *, char *);
>extern int get_fd_objnum(fd_entry *);
>extern int get_fn_objnum(fd_entry *);
>extern int is_subsetable(fm_entry *);
>
>
>extern char notdef[];
>
>
>extern fm_entry *lookup_fontmap(char *);
>
>
>
>
>extern void epdf_check_mem(void);
>extern void epdf_delete(void);
>extern int read_pdf_info(char *, char *, int, int, int, int);
>
>
>extern char *convertStringToPDFString(const char *in, int len);
>extern void pdf_newline(void);
>__attribute__ ((format(printf, 1, 2)))
>extern void pdf_printf(const char *, ...);
>extern void pdf_puts(const char *);
>__attribute__ ((noreturn, format(printf, 1, 2)))
>extern void pdftex_fail(const char *, ...);
>__attribute__ ((format(printf, 1, 2)))
>extern void pdftex_warn(const char *, ...);
>extern char *stripzeros(char *a);
>__attribute__ ((format(printf, 1, 2)))
>extern void tex_printf(const char *, ...);
>extern void write_epdf(void);
>
>
>extern void epdf_write_enc(char **, int);
>
>
>extern float epdf_width;
>extern float epdf_height;
>extern float epdf_orig_x;
>extern float epdf_orig_y;
>extern float epdf_rotate;
>extern int epdf_selected_page;
>extern int epdf_num_pages;
>extern int epdf_page_box;
>extern void *epdf_doc;
>extern int epdf_has_page_group;
># 168 "../../../texk/web2c/pdftexdir/ptexlib.h" 2
>
>
>extern boolean hasfmentry(internalfontnumber);
>extern void fm_free(void);
>extern void fm_read_info(void);
>extern ff_entry *check_ff_exist(char *, boolean);
>extern void pdfmapfile(integer);
>extern void pdfmapline(integer);
>extern void pdfinitmapfile(const_string map_name);
>extern fm_entry *new_fm_entry(void);
>extern void delete_fm_entry(fm_entry *);
>extern int avl_do_entry(fm_entry *, int);
>extern int check_std_t1font(char *s);
>
>
>extern integer myatodim(char **);
>extern integer myatol(char **);
>
>
>extern int readchar(boolean, chardesc *);
>
>
>extern void sfd_free(void);
>extern boolean handle_subfont_fm(fm_entry *, int);
>
>
>extern void glyph_unicode_free(void);
>extern void deftounicode(strnumber, strnumber);
>extern integer write_tounicode(char **, const char *, const char *);
>
>
>extern boolean str_eq_cstr(strnumber, char *);
>extern int xfflush(FILE *);
>extern int xgetc(FILE *);
>extern int xputc(int, FILE *);
>extern scaled extxnoverd(scaled, scaled, scaled);
>extern size_t xfwrite(void *, size_t size, size_t nmemb, FILE *);
>extern strnumber getresnameprefix(void);
>extern strnumber maketexstring(const char *);
>extern integer fb_offset(void);
>extern void fb_flush(void);
>extern void fb_putchar(eightbits b);
>extern void fb_seek(integer);
>extern void libpdffinish(void);
>extern void make_subset_tag(fd_entry *);
>extern void setjobid(int, int, int, int);
>extern void writestreamlength(longinteger, longinteger);
>extern void printID(strnumber);
>extern void printcreationdate(void);
>extern void printmoddate(void);
>extern void escapename(poolpointer in);
>extern void escapestring(poolpointer in);
>extern void escapehex(poolpointer in);
>extern void unescapehex(poolpointer in);
>extern void getmd5sum(strnumber s, boolean file);
>extern void matchstrings(strnumber s, strnumber t, int subcount, boolean icase);
>extern void getmatch(int i);
>extern void makepdftexbanner(void);
>extern void removepdffile(void);
>extern void garbagewarning(void);
>extern void initversionstring(char **versions);
>extern int newcolorstack(integer s, integer literal_mode, boolean pagestart);
>extern int colorstackused(void);
>extern integer colorstackset(int colstack_no, integer s);
>extern integer colorstackpush(int colstack_no, integer s);
>extern integer colorstackpop(int colstack_no);
>extern integer colorstackcurrent(int colstack_no);
>extern integer colorstackskippagestart(int colstack_no);
>extern void checkpdfsave(int cur_h, int cur_v);
>extern void checkpdfrestore(int cur_h, int cur_v);
>extern void pdfshipoutbegin(boolean shipping_page);
>extern void pdfshipoutend(boolean shipping_page);
>extern integer pdfsetmatrix(poolpointer in, scaled cur_h, scaled cur_v);
>extern void matrixtransformpoint(scaled x, scaled y);
>extern void matrixtransformrect(scaled llx, scaled lly, scaled urx, scaled ury);
>extern boolean matrixused(void);
>extern void matrixrecalculate(scaled urx);
>extern scaled getllx(void);
>extern scaled getlly(void);
>extern scaled geturx(void);
>extern scaled getury(void);
>extern void allocvffnts(void);
>
>
>extern integer newvfpacket(internalfontnumber);
>extern void storepacket(internalfontnumber, integer, strnumber);
>extern void startpacket(internalfontnumber, eightbits);
>extern eightbits packetbyte(void);
>extern void poppacketstate(void);
>extern void pushpacketstate(void);
>extern void vf_free(void);
>
>
>extern fe_entry *get_fe_entry(char *);
>extern void enc_free(void);
>extern void write_fontencodings(void);
>
>
>extern void dopdffont(integer, internalfontnumber);
>extern fd_entry *lookup_fd_entry(char *, integer, integer);
>extern fd_entry *new_fd_entry(void);
>extern void writefontstuff(void);
>extern void register_fd_entry(fd_entry *);
>
>
>extern boolean checkimageb(integer);
>extern boolean checkimagec(integer);
>extern boolean checkimagei(integer);
>extern boolean ispdfimage(integer);
>extern boolean ispngimage(integer);
>extern integer epdforigx(integer);
>extern integer epdforigy(integer);
>extern integer imagecolor(integer);
>extern integer imageheight(integer);
>extern integer imagerotate(integer);
>extern integer imagepages(integer);
>extern integer imagewidth(integer);
>extern integer imagexres(integer);
>extern integer imageyres(integer);
>extern integer imagecolordepth(integer);
>extern integer getimagegroupref(integer);
>extern void setimagegroupref(integer,integer);
>extern integer readimage(strnumber, integer, strnumber, integer, integer,
> integer, integer);
>extern void deleteimage(integer);
>extern void img_free(void);
>extern void updateimageprocset(integer);
>extern void writeimage(integer);
>extern void dumpimagemeta(void);
>extern void undumpimagemeta(integer, integer);
>
>
>extern void flushjbig2page0objects(void);
>
>
>extern boolean t1_subset(char *, char *, unsigned char *);
>extern char **load_enc_file(char *);
>extern void writet1(fd_entry *);
>extern void t1_free(void);
>
>
>extern void writet3(int, internalfontnumber);
>extern scaled getpkcharwidth(internalfontnumber, scaled);
>
>
>extern void writettf(fd_entry *);
>extern void writeotf(fd_entry *);
>extern void ttf_free(void);
>
>
>extern void writezip(boolean);
>extern void zip_free(void);
>
>
>extern int comp_int_entry(const void *, const void *, void *);
>extern int comp_string_entry(const void *, const void *, void *);
>extern void avlputobj(integer, integer);
>extern integer avlfindobj(integer, integer, integer);
>
>
>static const key_entry font_key[(10 + 1)] = {
> {"Ascent", "Ascender"}
> , {"CapHeight", "CapHeight"}
> , {"Descent", "Descender"}
> , {"ItalicAngle", "ItalicAngle"}
> , {"StemV", "StdVW"}
> , {"XHeight", "XHeight"}
> , {"FontBBox", "FontBBox"}
> , {"", "", 0}
> , {"", "", 0}
> , {"", "", 0}
> , {"FontName", "FontName"}
>};
># 64 "../../../texk/web2c/pdftexdir/pdftex.h" 2
># 1619 "pdftexcoerce.h" 2
># 796 "pdftexd.h" 2
># 3 "pdftex0.c" 2
>
>void
>println ( void )
>{
> 
> switch ( selector )
> {case 19 :
> {
> _IO_putc ('\n', stdout);
> _IO_putc ('\n', logfile);
> termoffset = 0 ;
> fileoffset = 0 ;
> }
> break ;
> case 18 :
> {
> _IO_putc ('\n', logfile);
> fileoffset = 0 ;
> }
> break ;
> case 17 :
> {
> _IO_putc ('\n', stdout);
> termoffset = 0 ;
> }
> break ;
> case 16 :
> case 20 :
> case 21 :
> ;
> break ;
> default:
> _IO_putc ('\n', writefile [selector ]);
> break ;
> }
>}
>void
>zprintchar ( ASCIIcode s )
>{
> register memoryword *eqtb=zeqtb;
> if ( s == eqtb [27226 ].cint ) {
>
> if ( selector < 20 )
> {
> println () ;
> return ;
> }
> }
> switch ( selector )
> {case 19 :
> {
> _IO_putc (xchr[s], stdout);
> _IO_putc (xchr[s], logfile);
> ++(termoffset) ;
> ++(fileoffset) ;
> if ( termoffset == maxprintline )
> {
> _IO_putc ('\n', stdout);
> termoffset = 0 ;
> }
> if ( fileoffset == maxprintline )
> {
> _IO_putc ('\n', logfile);
> fileoffset = 0 ;
> }
> }
> break ;
> case 18 :
> {
> _IO_putc (xchr[s], logfile);
> ++(fileoffset) ;
> if ( fileoffset == maxprintline )
> println () ;
> }
> break ;
> case 17 :
> {
> _IO_putc (xchr[s], stdout);
> ++(termoffset) ;
> if ( termoffset == maxprintline )
> println () ;
> }
> break ;
> case 16 :
> ;
> break ;
> case 20 :
> if ( tally < trickcount )
> trickbuf [tally % errorline ]= s ;
> break ;
> case 21 :
> {
> if ( poolptr < poolsize )
> {
> strpool [poolptr ]= s ;
> ++(poolptr) ;
> }
> }
> break ;
> default:
> _IO_putc (xchr[s], writefile [selector ]);
> break ;
> }
> ++(tally) ;
>}
>void
>zprint ( integer s )
>{
> register memoryword *eqtb=zeqtb;
> poolpointer j ;
> integer nl ;
> if ( s >= strptr )
> s = 261 ;
> else if ( s < 256 ) {
>
> if ( s < 0 )
> s = 261 ;
> else {
>
> if ( ( selector > 20 ) && ( ! specialprinting ) && ( ! messageprinting )
> )
> {
> zprintchar((ASCIIcode) (s)) ;
> return ;
> }
> if ( ( s == eqtb [27226 ].cint ) ) {
>
> if ( selector < 20 )
> {
> println () ;
> noconvert = 0 ;
> return ;
> }
> else if ( messageprinting )
> {
> zprintchar((ASCIIcode) (s)) ;
> noconvert = 0 ;
> return ;
> }
> }
> if ( ( eqtb [27237 ].cint > 0 ) && ( ! noconvert ) && ( mubytewrite [
> s ]> 0 ) )
> s = mubytewrite [s ];
> else if ( xprn [s ]|| specialprinting )
> {
> zprintchar((ASCIIcode) (s)) ;
> noconvert = 0 ;
> return ;
> }
> noconvert = 0 ;
> nl = eqtb [27226 ].cint ;
> eqtb [27226 ].cint = -1 ;
> j = strstart [s ];
> while ( j < strstart [s + 1 ]) {
>
> zprintchar((ASCIIcode) (strpool [j ])) ;
> ++(j) ;
> }
> eqtb [27226 ].cint = nl ;
> return ;
> }
> }
> j = strstart [s ];
> while ( j < strstart [s + 1 ]) {
>
> zprintchar((ASCIIcode) (strpool [j ])) ;
> ++(j) ;
> }
>}
>void
>zslowprint ( integer s )
>{
> 
> poolpointer j ;
> if ( ( s >= strptr ) || ( s < 256 ) )
> zprint((integer) (s)) ;
> else {
>
> j = strstart [s ];
> while ( j < strstart [s + 1 ]) {
>
> zprint((integer) (strpool [j ])) ;
> ++(j) ;
> }
> }
>}
>void
>zprintnl ( strnumber s )
>{
> 
> if ( ( ( termoffset > 0 ) && ( ((selector) & 1) ) ) || ( ( fileoffset > 0 )
> && ( selector >= 18 ) ) )
> println () ;
> zprint((integer) (s)) ;
>}
>void
>zprintesc ( strnumber s )
>{
> register memoryword *eqtb=zeqtb;
> integer c ;
> c = eqtb [27222 ].cint ;
> if ( c >= 0 ) {
>
> if ( c < 256 )
> zprint((integer) (c)) ;
> }
> zslowprint((integer) (s)) ;
>}
>void
>zprintthedigs ( eightbits k )
>{
> 
> while ( k > 0 ) {
>
> --(k) ;
> if ( dig [k ]< 10 )
> zprintchar((ASCIIcode) (48 + dig [k ])) ;
> else zprintchar((ASCIIcode) (55 + dig [k ])) ;
> }
>}
>void
>zprintint ( longinteger n )
>{
> 
> unsigned char k ;
> longinteger m ;
> k = 0 ;
> if ( n < 0 )
> {
> zprintchar((ASCIIcode) (45)) ;
> if ( n > -100000000L )
> n = - (integer) n ;
> else {
>
> m = -1 - n ;
> n = m / 10 ;
> m = ( m % 10 ) + 1 ;
> k = 1 ;
> if ( m < 10 )
> dig [0 ]= m ;
> else {
>
> dig [0 ]= 0 ;
> ++(n) ;
> }
> }
> }
> do {
> dig [k ]= n % 10 ;
> n = n / 10 ;
> ++(k) ;
> } while ( ! ( n == 0 ) ) ;
> zprintthedigs((eightbits) (k)) ;
>}
>void
>zprintcs ( integer p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword q ;
> strnumber s ;
> if ( activenoconvert && ( ! noconvert ) && ( eqtb [p ].hh.u.B0 == 94 ) && (
> eqtb [p ].hh .v.RH == 11 ) )
> {
> noconvert = 1 ;
> return ;
> }
> s = 0 ;
> if ( csconverting && ( ! noconvert ) )
> {
> q = mubytecswrite [p % 128 ];
> while ( q != -268435455L ) if ( mem [q ].hh .v.LH == p )
> {
> s = mem [mem [q ].hh .v.RH ].hh .v.LH ;
> q = -268435455L ;
> }
> else q = mem [mem [q ].hh .v.RH ].hh .v.RH ;
> }
> noconvert = 0 ;
> if ( s > 0 )
> zprint((integer) (s)) ;
> else if ( p < 514 ) {
>
> if ( p >= 257 ) {
>
> if ( p == 513 )
> {
> zprintesc((strnumber) (577)) ;
> zprintesc((strnumber) (578)) ;
> zprintchar((ASCIIcode) (32)) ;
> }
> else {
>
> zprintesc((strnumber) (p - 257)) ;
> if ( eqtb [25641 + p - 257 ].hh .v.RH == 11 )
> zprintchar((ASCIIcode) (32)) ;
> }
> }
> else if ( p < 1 )
> zprintesc((strnumber) (579)) ;
> else zprint((integer) (p - 1)) ;
> }
> else if ( ( ( p >= 24527 ) && ( p <= 28081 ) ) || ( p > eqtbtop ) )
> zprintesc((strnumber) (579)) ;
> else if ( ( hash [p ].v.RH >= strptr ) )
> zprintesc((strnumber) (580)) ;
> else {
>
> zprintesc((strnumber) (hash [p ].v.RH)) ;
> zprintchar((ASCIIcode) (32)) ;
> }
>}
>void
>zsprintcs ( halfword p )
>{
> 
> if ( p < 514 ) {
>
> if ( p < 257 )
> zprint((integer) (p - 1)) ;
> else if ( p < 513 )
> zprintesc((strnumber) (p - 257)) ;
> else {
>
> zprintesc((strnumber) (577)) ;
> zprintesc((strnumber) (578)) ;
> }
> }
> else zprintesc((strnumber) (hash [p ].v.RH)) ;
>}
>void
>zprintfilename ( integer n , integer a , integer e )
>{
> 
> boolean mustquote ;
> poolpointer j ;
> mustquote = 0 ;
> if ( a != 0 )
> {
> j = strstart [a ];
> while ( ( ! mustquote ) && ( j < strstart [a + 1 ]) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> }
> if ( n != 0 )
> {
> j = strstart [n ];
> while ( ( ! mustquote ) && ( j < strstart [n + 1 ]) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> }
> if ( e != 0 )
> {
> j = strstart [e ];
> while ( ( ! mustquote ) && ( j < strstart [e + 1 ]) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> }
> if ( mustquote )
> zprintchar((ASCIIcode) (34)) ;
> if ( a != 0 )
> {register integer for_end; j = strstart [a ];for_end = strstart [a + 1
> ]- 1 ; if ( j <= for_end) do
> if ( strpool [j ]!= 34 )
> zprint((integer) (strpool [j ])) ;
> while ( j++ < for_end ) ;}
> if ( n != 0 )
> {register integer for_end; j = strstart [n ];for_end = strstart [n + 1
> ]- 1 ; if ( j <= for_end) do
> if ( strpool [j ]!= 34 )
> zprint((integer) (strpool [j ])) ;
> while ( j++ < for_end ) ;}
> if ( e != 0 )
> {register integer for_end; j = strstart [e ];for_end = strstart [e + 1
> ]- 1 ; if ( j <= for_end) do
> if ( strpool [j ]!= 34 )
> zprint((integer) (strpool [j ])) ;
> while ( j++ < for_end ) ;}
> if ( mustquote )
> zprintchar((ASCIIcode) (34)) ;
>}
>void
>zprintsize ( integer s )
>{
> 
> if ( s == 0 )
> zprintesc((strnumber) (432)) ;
> else if ( s == 16 )
> zprintesc((strnumber) (433)) ;
> else zprintesc((strnumber) (434)) ;
>}
>void
>zprintwritewhatsit ( strnumber s , halfword p )
>{
> register memoryword *mem=zmem;
> zprintesc((strnumber) (s)) ;
> if ( mem [p + 1 ].hh.u.B0 < 16 )
> zprintint((longinteger) (mem [p + 1 ].hh.u.B0)) ;
> else if ( mem [p + 1 ].hh.u.B0 == 16 )
> zprintchar((ASCIIcode) (42)) ;
> else zprintchar((ASCIIcode) (45)) ;
> if ( ( s == 675 ) && ( mem [p + 1 ].hh.u.B1 != 64 ) )
> {
> zprintchar((ASCIIcode) (60)) ;
> zprintint((longinteger) (mem [p + 1 ].hh.u.B1 - 64)) ;
> zprintchar((ASCIIcode) (62)) ;
> }
>}
>void
>zprintsanum ( halfword q )
>{
> register memoryword *mem=zmem;
> halfword n ;
> if ( mem [q ].hh.u.B0 < 32 )
> n = mem [q + 1 ].hh .v.RH ;
> else {
>
> n = mem [q ].hh.u.B0 % 16 ;
> q = mem [q ].hh .v.RH ;
> n = n + 16 * mem [q ].hh.u.B0 ;
> q = mem [q ].hh .v.RH ;
> n = n + 256 * ( mem [q ].hh.u.B0 + 16 * mem [mem [q ].hh .v.RH ].hh.u.B0
> ) ;
> }
> zprintint((longinteger) (n)) ;
>}
>void
>zprintcsnames ( integer hstart , integer hfinish )
>{
> 
> integer c, h ;
> fprintf ( stderr , "%s%ld%s%ld%c\n", "fmtdebug:csnames from " , (long)hstart , " to " , (long)hfinish , ':' ) ;
> {register integer for_end; h = hstart ;for_end = hfinish ; if ( h <=
> for_end) do
> {
> if ( hash [h ].v.RH > 0 )
> {
> {register integer for_end; c = strstart [hash [h ].v.RH ];
> for_end = strstart [hash [h ].v.RH + 1 ]- 1 ; if ( c <= for_end)
> do
> {
> do { if (_IO_putc ((char) (strpool [c ]) & 255, stderr) == (-1)) do { fprintf (stderr, "%s: fatal: ", kpse_def->invocation_name);; fprintf (stderr, "putbyte(%ld) failed", (long) strpool [c ]); fputs (".\n", stderr); exit (1); } while (0); } while (0) ;
> }
> while ( c++ < for_end ) ;}
> { _IO_putc ('|', stderr); _IO_putc ('\n', stderr); }
> }
> }
> while ( h++ < for_end ) ;}
>}
>void
>printfileline ( void )
>{
> 
> integer level ;
> level = inopen ;
> while ( ( level > 0 ) && ( fullsourcefilenamestack [level ]== 0 ) ) --(level)
> ;
> if ( level == 0 )
> zprintnl((strnumber) (264)) ;
> else {
>
> zprintnl((strnumber) (345)) ;
> zprint((integer) (fullsourcefilenamestack [level ])) ;
> zprint((integer) (58)) ;
> if ( level == inopen )
> zprintint((longinteger) (line)) ;
> else zprintint((longinteger) (linestack [level + 1 ])) ;
> zprint((integer) (648)) ;
> }
>}
>ASCIIcode
>zzreadbuffer ( integer * i )
>{
> register ASCIIcode Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> integer lastfound ;
> integer lasttype ;
> mubyteskip = 0 ;
> mubytetoken = 0 ;
> Result = buffer [*i ];
> if ( eqtb [27235 ].cint == 0 )
> {
> if ( mubytekeep > 0 )
> mubytekeep = 0 ;
> return Result ;
> }
> lastfound = -2 ;
> if ( ( *i == curinput .startfield ) && ( ! mubytestart ) )
> {
> mubytekeep = 0 ;
> if ( ( eqtb [27225 ].cint >= 0 ) && ( eqtb [27225 ].cint < 256 ) ) {
>
> if ( mubyteread [eqtb [27225 ].cint ]!= -268435455L )
> {
> mubytestart = 1 ;
> mubyteskip = -1 ;
> p = mubyteread [eqtb [27225 ].cint ];
> goto lab22 ;
> }
> }
> }
> lab20: mubytestart = 0 ;
> if ( ( mubyteread [buffer [*i ]]== -268435455L ) || ( mubytekeep > 0 ) )
> {
> if ( mubytekeep > 0 )
> --(mubytekeep) ;
> return Result ;
> }
> p = mubyteread [buffer [*i ]];
> lab22: if ( mem [p ].hh.u.B0 >= 64 )
> {
> lasttype = mem [p ].hh.u.B0 - 64 ;
> p = mem [p ].hh .v.RH ;
> mubytetoken = mem [p ].hh .v.LH ;
> lastfound = mubyteskip ;
> }
> else if ( mem [p ].hh.u.B0 > 0 )
> {
> lasttype = mem [p ].hh.u.B0 ;
> mubytetoken = mem [p ].hh .v.RH ;
> goto lab40 ;
> }
> ++(mubyteskip) ;
> if ( *i + mubyteskip > curinput .limitfield )
> {
> mubyteskip = 0 ;
> if ( mubytestart )
> goto lab20 ;
> return Result ;
> }
> do {
> p = mem [p ].hh .v.RH ;
> if ( mem [mem [p ].hh .v.LH ].hh.u.B1 == buffer [*i + mubyteskip ])
> {
> p = mem [p ].hh .v.LH ;
> goto lab22 ;
> }
> } while ( ! ( mem [p ].hh .v.RH == -268435455L ) ) ;
> mubyteskip = 0 ;
> if ( mubytestart )
> goto lab20 ;
> if ( lastfound == -2 )
> return Result ;
> mubyteskip = lastfound ;
> lab40: if ( mubytetoken < 256 )
> {
> Result = mubytetoken ;
> mubytetoken = 0 ;
>* i = *i + mubyteskip ;
> if ( mubytestart && ( *i >= curinput .startfield ) )
> mubytestart = 0 ;
> return Result ;
> }
> else {
>
> Result = 0 ;
> if ( lasttype == 60 )
>* i = *i + mubyteskip ;
> else {
>
> --(*i) ;
> mubytekeep = lasttype ;
> if ( *i < curinput .startfield )
> mubytestart = 1 ;
> if ( lasttype == 52 )
> mubytekeep = 10000 ;
> if ( lasttype == 51 )
> mubytekeep = mubyteskip + 1 ;
> mubyteskip = -1 ;
> }
> if ( mubytestart && ( *i >= curinput .startfield ) )
> mubytestart = 0 ;
> return Result ;
> }
> return Result ;
>}
>void
>zzprintbuffer ( integer * i )
>{
> register memoryword *eqtb=zeqtb;
> ASCIIcode c ;
> if ( eqtb [27235 ].cint == 0 )
> zprint((integer) (buffer [*i ])) ;
> else if ( eqtb [27237 ].cint > 0 )
> zprintchar((ASCIIcode) (buffer [*i ])) ;
> else {
>
> c = zzreadbuffer((integer *) &(*i)) ;
> if ( mubytetoken > 0 )
> zprintcs((integer) (mubytetoken - 4095)) ;
> else zprint((integer) (c)) ;
> }
> ++(*i) ;
>}
>
>
>void
>jumpout ( void )
>{
> 
> closefilesandterminate () ;
> {
> fflush ( stdout ) ;
> readyalready = 0 ;
> if ( ( history != 0 ) && ( history != 1 ) )
> uexit ( 1 ) ;
> else uexit ( 0 ) ;
> }
>}
>void
>error ( void )
>{
> 
> ASCIIcode c ;
> integer s1, s2, s3, s4 ;
> if ( history < 2 )
> history = 2 ;
> zprintchar((ASCIIcode) (46)) ;
> showcontext () ;
> if ( ( haltonerrorp ) )
> {
> history = 3 ;
> jumpout () ;
> }
> if ( interaction == 3 )
> while ( 1 ) {
>
> lab22: clearforerrorprompt () ;
> {
> ;
> zprint((integer) (266)) ;
> terminput () ;
> }
> if ( last == first )
> return ;
> c = buffer [first ];
> if ( c >= 97 )
> c = c - 32 ;
> switch ( c )
> {case 48 :
> case 49 :
> case 50 :
> case 51 :
> case 52 :
> case 53 :
> case 54 :
> case 55 :
> case 56 :
> case 57 :
> if ( deletionsallowed )
> {
> s1 = curtok ;
> s2 = curcmd ;
> s3 = curchr ;
> s4 = alignstate ;
> alignstate = 1000000L ;
> OKtointerrupt = 0 ;
> if ( ( last > first + 1 ) && ( buffer [first + 1 ]>= 48 ) && (
> buffer [first + 1 ]<= 57 ) )
> c = c * 10 + buffer [first + 1 ]- 48 * 11 ;
> else c = c - 48 ;
> while ( c > 0 ) {
>
> gettoken () ;
> --(c) ;
> }
> curtok = s1 ;
> curcmd = s2 ;
> curchr = s3 ;
> alignstate = s4 ;
> OKtointerrupt = 1 ;
> {
> helpptr = 2 ;
> helpline [1 ]= 279 ;
> helpline [0 ]= 280 ;
> }
> showcontext () ;
> goto lab22 ;
> }
> break ;
> ;
># 697 "pdftex0.c"
> case 69 :
> if ( baseptr > 0 )
> {
> editnamestart = strstart [inputstack [baseptr ].namefield ];
> editnamelength = strstart [inputstack [baseptr ].namefield + 1 ]-
> strstart [inputstack [baseptr ].namefield ];
> editline = line ;
> jumpout () ;
> }
> break ;
> case 72 :
> {
> if ( useerrhelp )
> {
> giveerrhelp () ;
> useerrhelp = 0 ;
> }
> else {
>
> if ( helpptr == 0 )
> {
> helpptr = 2 ;
> helpline [1 ]= 281 ;
> helpline [0 ]= 282 ;
> }
> do {
> --(helpptr) ;
> zprint((integer) (helpline [helpptr ])) ;
> println () ;
> } while ( ! ( helpptr == 0 ) ) ;
> }
> {
> helpptr = 4 ;
> helpline [3 ]= 283 ;
> helpline [2 ]= 282 ;
> helpline [1 ]= 284 ;
> helpline [0 ]= 285 ;
> }
> goto lab22 ;
> }
> break ;
> case 73 :
> {
> beginfilereading () ;
> if ( last > first + 1 )
> {
> curinput .locfield = first + 1 ;
> buffer [first ]= 32 ;
> }
> else {
>
> {
> ;
> zprint((integer) (278)) ;
> terminput () ;
> }
> curinput .locfield = first ;
> }
> first = last ;
> curinput .limitfield = last - 1 ;
> return ;
> }
> break ;
> case 81 :
> case 82 :
> case 83 :
> {
> errorcount = 0 ;
> interaction = 0 + c - 81 ;
> zprint((integer) (273)) ;
> switch ( c )
> {case 81 :
> {
> zprintesc((strnumber) (274)) ;
> --(selector) ;
> }
> break ;
> case 82 :
> zprintesc((strnumber) (275)) ;
> break ;
> case 83 :
> zprintesc((strnumber) (276)) ;
> break ;
> }
> zprint((integer) (277)) ;
> println () ;
> fflush ( stdout ) ;
> return ;
> }
> break ;
> case 88 :
> {
> interaction = 2 ;
> jumpout () ;
> }
> break ;
> default:
> ;
> break ;
> }
> {
> zprint((integer) (267)) ;
> zprintnl((strnumber) (268)) ;
> zprintnl((strnumber) (269)) ;
> if ( baseptr > 0 )
> zprint((integer) (270)) ;
> if ( deletionsallowed )
> zprintnl((strnumber) (271)) ;
> zprintnl((strnumber) (272)) ;
> }
> }
> ++(errorcount) ;
> if ( errorcount == 100 )
> {
> zprintnl((strnumber) (265)) ;
> history = 3 ;
> jumpout () ;
> }
> if ( interaction > 0 )
> --(selector) ;
> if ( useerrhelp )
> {
> println () ;
> giveerrhelp () ;
> }
> else while ( helpptr > 0 ) {
>
> --(helpptr) ;
> zprintnl((strnumber) (helpline [helpptr ])) ;
> }
> println () ;
> if ( interaction > 0 )
> ++(selector) ;
> println () ;
>}
>void
>zfatalerror ( strnumber s )
>{
> 
> normalizeselector () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (287)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= s ;
> }
> {
> if ( interaction == 3 )
> interaction = 2 ;
> if ( logopened )
> error () ;
> ;
>
>
>
>
> history = 3 ;
> jumpout () ;
> }
>}
>void
>zoverflow ( strnumber s , integer n )
>{
> 
> normalizeselector () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (288)) ;
> }
> zprint((integer) (s)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintint((longinteger) (n)) ;
> zprintchar((ASCIIcode) (93)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 289 ;
> helpline [0 ]= 290 ;
> }
> {
> if ( interaction == 3 )
> interaction = 2 ;
> if ( logopened )
> error () ;
> ;
>
>
>
>
> history = 3 ;
> jumpout () ;
> }
>}
>void
>zconfusion ( strnumber s )
>{
> 
> normalizeselector () ;
> if ( history < 2 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (291)) ;
> }
> zprint((integer) (s)) ;
> zprintchar((ASCIIcode) (41)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 292 ;
> }
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (293)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 294 ;
> helpline [0 ]= 295 ;
> }
> }
> {
> if ( interaction == 3 )
> interaction = 2 ;
> if ( logopened )
> error () ;
> ;
>
>
>
>
> history = 3 ;
> jumpout () ;
> }
>}
>boolean
>initterminal ( void )
>{
> register boolean Result;
> topenin () ;
> if ( last > first )
> {
> curinput .locfield = first ;
> while ( ( curinput .locfield < last ) && ( buffer [curinput .locfield ]
> == ' ' ) ) ++(curinput .locfield) ;
> if ( curinput .locfield < last )
> {
> Result = 1 ;
> return Result ;
> }
> }
> while ( 1 ) {
>
> ;
> (void) fputs ("**", stdout) ;
> fflush ( stdout ) ;
> if ( ! input_line (stdin) )
> {
> _IO_putc ('\n', stdout);
> fprintf ( stdout , "%s\n", "! End of file on the terminal... why?" ) ;
> Result = 0 ;
> return Result ;
> }
> curinput .locfield = first ;
> while ( ( curinput .locfield < last ) && ( buffer [curinput .locfield ]
> == 32 ) ) ++(curinput .locfield) ;
> if ( curinput .locfield < last )
> {
> Result = 1 ;
> return Result ;
> }
> fprintf ( stdout , "%s\n", "Please type the name of your input file." ) ;
> }
> return Result ;
>}
>strnumber
>makestring ( void )
>{
> register strnumber Result;
> if ( strptr == maxstrings )
> zoverflow((strnumber) (260), (integer) (maxstrings - initstrptr)) ;
> ++(strptr) ;
> strstart [strptr ]= poolptr ;
> Result = strptr - 1 ;
> return Result ;
>}
>boolean
>zstreqbuf ( strnumber s , integer k )
>{
> register boolean Result;
> poolpointer j ;
> boolean result ;
> j = strstart [s ];
> while ( j < strstart [s + 1 ]) {
>
> if ( strpool [j ]!= buffer [k ])
> {
> result = 0 ;
> goto lab45 ;
> }
> ++(j) ;
> ++(k) ;
> }
> result = 1 ;
> lab45: Result = result ;
> return Result ;
>}
>boolean
>zstreqstr ( strnumber s , strnumber t )
>{
> register boolean Result;
> poolpointer j, k ;
> boolean result ;
> result = 0 ;
> if ( ( strstart [s + 1 ]- strstart [s ]) != ( strstart [t + 1 ]-
> strstart [t ]) )
> goto lab45 ;
> j = strstart [s ];
> k = strstart [t ];
> while ( j < strstart [s + 1 ]) {
>
> if ( strpool [j ]!= strpool [k ])
> goto lab45 ;
> ++(j) ;
> ++(k) ;
> }
> result = 1 ;
> lab45: Result = result ;
> return Result ;
>}
>strnumber
>zsearchstring ( strnumber search )
>{
> register strnumber Result;
> strnumber result ;
> strnumber s ;
> integer len ;
> result = 0 ;
> len = ( strstart [search + 1 ]- strstart [search ]) ;
> if ( len == 0 )
> {
> result = 345 ;
> goto lab40 ;
> }
> else {
>
> s = search - 1 ;
> while ( s > 255 ) {
>
> if ( ( strstart [s + 1 ]- strstart [s ]) == len ) {
>
> if ( zstreqstr((strnumber) (s), (strnumber) (search)) )
> {
> result = s ;
> goto lab40 ;
> }
> }
> --(s) ;
> }
> }
> lab40: Result = result ;
> return Result ;
>}
>strnumber
>slowmakestring ( void )
>{
> register strnumber Result;
> strnumber s ;
> strnumber t ;
> t = makestring () ;
> s = zsearchstring((strnumber) (t)) ;
> if ( s > 0 )
> {
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
> Result = s ;
> return Result ;
> }
> Result = t ;
> return Result ;
>}
>void
>zprinttwo ( integer n )
>{
> 
> n = ((integer)(n) >= 0 ? (integer)(n) : (integer)-(n)) % 100 ;
> zprintchar((ASCIIcode) (48 + ( n / 10 ))) ;
> zprintchar((ASCIIcode) (48 + ( n % 10 ))) ;
>}
>void
>zprinthex ( integer n )
>{
> 
> unsigned char k ;
> k = 0 ;
> zprintchar((ASCIIcode) (34)) ;
> do {
> dig [k ]= n % 16 ;
> n = n / 16 ;
> ++(k) ;
> } while ( ! ( n == 0 ) ) ;
> zprintthedigs((eightbits) (k)) ;
>}
>void
>zprintromanint ( integer n )
>{
> 
> poolpointer j, k ;
> nonnegativeinteger u, v ;
> j = strstart [262 ];
> v = 1000 ;
> while ( 1 ) {
>
> while ( n >= v ) {
>
> zprintchar((ASCIIcode) (strpool [j ])) ;
> n = n - v ;
> }
> if ( n <= 0 )
> return ;
> k = j + 2 ;
> u = v / ( strpool [k - 1 ]- 48 ) ;
> if ( strpool [k - 1 ]== 50 )
> {
> k = k + 2 ;
> u = u / ( strpool [k - 1 ]- 48 ) ;
> }
> if ( n + u >= v )
> {
> zprintchar((ASCIIcode) (strpool [k ])) ;
> n = n + u ;
> }
> else {
>
> j = j + 2 ;
> v = v / ( strpool [j - 1 ]- 48 ) ;
> }
> }
>}
>void
>printcurrentstring ( void )
>{
> 
> poolpointer j ;
> j = strstart [strptr ];
> while ( j < poolptr ) {
>
> zprintchar((ASCIIcode) (strpool [j ])) ;
> ++(j) ;
> }
>}
>void
>terminput ( void )
>{
> 
> integer k ;
> fflush ( stdout ) ;
> if ( ! input_line (stdin) )
> zfatalerror((strnumber) (263)) ;
> termoffset = 0 ;
> --(selector) ;
> k = first ;
> while ( k < last ) {
>
> zzprintbuffer((integer *) &(k)) ;
> }
> println () ;
> ++(selector) ;
>}
>void
>zinterror ( integer n )
>{
> 
> zprint((integer) (286)) ;
> zprintint((longinteger) (n)) ;
> zprintchar((ASCIIcode) (41)) ;
> error () ;
>}
>void
>normalizeselector ( void )
>{
> 
> if ( logopened )
> selector = 19 ;
> else selector = 17 ;
> if ( jobname == 0 )
> openlogfile () ;
> if ( interaction == 0 )
> --(selector) ;
>}
>void
>pauseforinstructions ( void )
>{
> 
> if ( OKtointerrupt )
> {
> interaction = 3 ;
> if ( ( selector == 18 ) || ( selector == 16 ) )
> ++(selector) ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (296)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 297 ;
> helpline [1 ]= 298 ;
> helpline [0 ]= 299 ;
> }
> deletionsallowed = 0 ;
> error () ;
> deletionsallowed = 1 ;
> interrupt = 0 ;
> }
>}
>integer
>zhalf ( integer x )
>{
> register integer Result;
> if ( ((x) & 1) )
> Result = ( x + 1 ) / 2 ;
> else Result = x / 2 ;
> return Result ;
>}
>scaled
>zrounddecimals ( smallnumber k )
>{
> register scaled Result;
> integer a ;
> a = 0 ;
> while ( k > 0 ) {
>
> --(k) ;
> a = ( a + dig [k ]* 131072L ) / 10 ;
> }
> Result = ( a + 1 ) / 2 ;
> return Result ;
>}
>void
>zprintscaled ( scaled s )
>{
> 
> scaled delta ;
> if ( s < 0 )
> {
> zprintchar((ASCIIcode) (45)) ;
> s = - (integer) s ;
> }
> zprintint((longinteger) (s / 65536L)) ;
> zprintchar((ASCIIcode) (46)) ;
> s = 10 * ( s % 65536L ) + 5 ;
> delta = 10 ;
> do {
> if ( delta > 65536L )
> s = s - 17232 ;
> zprintchar((ASCIIcode) (48 + ( s / 65536L ))) ;
> s = 10 * ( s % 65536L ) ;
> delta = delta * 10 ;
> } while ( ! ( s <= delta ) ) ;
>}
>scaled
>zmultandadd ( integer n , scaled x , scaled y , scaled maxanswer )
>{
> register scaled Result;
> if ( n < 0 )
> {
> x = - (integer) x ;
> n = - (integer) n ;
> }
> if ( n == 0 )
> Result = y ;
> else if ( ( ( x <= ( maxanswer - y ) / n ) && ( - (integer) x <= ( maxanswer
> + y ) / n ) ) )
> Result = n * x + y ;
> else {
>
> aritherror = 1 ;
> Result = 0 ;
> }
> return Result ;
>}
>scaled
>zxovern ( scaled x , integer n )
>{
> register scaled Result;
> boolean negative ;
> negative = 0 ;
> if ( n == 0 )
> {
> aritherror = 1 ;
> Result = 0 ;
> texremainder = x ;
> }
> else {
>
> if ( n < 0 )
> {
> x = - (integer) x ;
> n = - (integer) n ;
> negative = 1 ;
> }
> if ( x >= 0 )
> {
> Result = x / n ;
> texremainder = x % n ;
> }
> else {
>
> Result = - (integer) ( ( - (integer) x ) / n ) ;
> texremainder = - (integer) ( ( - (integer) x ) % n ) ;
> }
> }
> if ( negative )
> texremainder = - (integer) texremainder ;
> return Result ;
>}
>scaled
>zxnoverd ( scaled x , integer n , integer d )
>{
> register scaled Result;
> boolean positive ;
> nonnegativeinteger t, u, v ;
> if ( x >= 0 )
> positive = 1 ;
> else {
>
> x = - (integer) x ;
> positive = 0 ;
> }
> t = ( x % 32768L ) * n ;
> u = ( x / 32768L ) * n + ( t / 32768L ) ;
> v = ( u % d ) * 32768L + ( t % 32768L ) ;
> if ( u / d >= 32768L )
> aritherror = 1 ;
> else u = 32768L * ( u / d ) + ( v / d ) ;
> if ( positive )
> {
> Result = u ;
> texremainder = v % d ;
> }
> else {
>
> Result = - (integer) u ;
> texremainder = - (integer) ( v % d ) ;
> }
> return Result ;
>}
>halfword
>zbadness ( scaled t , scaled s )
>{
> register halfword Result;
> integer r ;
> if ( t == 0 )
> Result = 0 ;
> else if ( s <= 0 )
> Result = 10000 ;
> else {
>
> if ( t <= 7230584L )
> r = ( t * 297 ) / s ;
> else if ( s >= 1663497L )
> r = t / ( s / 297 ) ;
> else r = t ;
> if ( r > 1290 )
> Result = 10000 ;
> else Result = ( r * r * r + 131072L ) / 262144L ;
> }
> return Result ;
>}
>integer
>zmakefrac ( integer p , integer q )
>{
> register integer Result;
> integer f ;
> integer n ;
> boolean negative ;
> integer becareful ;
> if ( p >= 0 )
> negative = 0 ;
> else {
>
> p = - (integer) p ;
> negative = 1 ;
> }
> if ( q <= 0 )
> {
> ;
>
>
>
>
> q = - (integer) q ;
> negative = ! negative ;
> }
> n = p / q ;
> p = p % q ;
> if ( n >= 8 )
> {
> aritherror = 1 ;
> if ( negative )
> Result = -2147483647L ;
> else Result = 2147483647L ;
> }
> else {
>
> n = ( n - 1 ) * 268435456L ;
> f = 1 ;
> do {
> becareful = p - q ;
> p = becareful + p ;
> if ( p >= 0 )
> f = f + f + 1 ;
> else {
>
> f = f + f ;
> p = p + q ;
> }
> } while ( ! ( f >= 268435456L ) ) ;
> becareful = p - q ;
> if ( becareful + p >= 0 )
> ++(f) ;
> if ( negative )
> Result = - (integer) ( f + n ) ;
> else Result = f + n ;
> }
> return Result ;
>}
>integer
>ztakefrac ( integer q , integer f )
>{
> register integer Result;
> integer p ;
> boolean negative ;
> integer n ;
> integer becareful ;
> if ( f >= 0 )
> negative = 0 ;
> else {
>
> f = - (integer) f ;
> negative = 1 ;
> }
> if ( q < 0 )
> {
> q = - (integer) q ;
> negative = ! negative ;
> }
> if ( f < 268435456L )
> n = 0 ;
> else {
>
> n = f / 268435456L ;
> f = f % 268435456L ;
> if ( q <= 2147483647L / n )
> n = n * q ;
> else {
>
> aritherror = 1 ;
> n = 2147483647L ;
> }
> }
> f = f + 268435456L ;
> p = 134217728L ;
> if ( q < 1073741824L )
> do {
> if ( ((f) & 1) )
> p = ( p + q ) / 2 ;
> else p = ( p ) / 2 ;
> f = ( f ) / 2 ;
> } while ( ! ( f == 1 ) ) ;
> else do {
> if ( ((f) & 1) )
> p = p + ( q - p ) / 2 ;
> else p = ( p ) / 2 ;
> f = ( f ) / 2 ;
> } while ( ! ( f == 1 ) ) ;
> becareful = n - 2147483647L ;
> if ( becareful + p > 0 )
> {
> aritherror = 1 ;
> n = 2147483647L - p ;
> }
> if ( negative )
> Result = - (integer) ( n + p ) ;
> else Result = n + p ;
> return Result ;
>}
>integer
>zmlog ( integer x )
>{
> register integer Result;
> integer y, z ;
> integer k ;
> if ( x <= 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (300)) ;
> }
> zprintscaled((scaled) (x)) ;
> zprint((integer) (301)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 302 ;
> helpline [0 ]= 303 ;
> }
> error () ;
> Result = 0 ;
> }
> else {
>
> y = 1302456860L ;
> z = 6581195L ;
> while ( x < 1073741824L ) {
>
> x = x + x ;
> y = y - 93032639L ;
> z = z - 48782L ;
> }
> y = y + ( z / 65536L ) ;
> k = 2 ;
> while ( x > 1073741828L ) {
>
> z = ( ( x - 1 ) / twotothe [k ]) + 1 ;
> while ( x < 1073741824L + z ) {
>
> z = ( z + 1 ) / 2 ;
> k = k + 1 ;
> }
> y = y + speclog [k ];
> x = x - z ;
> }
> Result = y / 8 ;
> }
> return Result ;
>}
>integer
>zabvscd ( integer a , integer b , integer c , integer d )
>{
> register integer Result;
> integer q, r ;
> if ( a < 0 )
> {
> a = - (integer) a ;
> b = - (integer) b ;
> }
> if ( c < 0 )
> {
> c = - (integer) c ;
> d = - (integer) d ;
> }
> if ( d <= 0 )
> {
> if ( b >= 0 ) {
>
> if ( ( ( a == 0 ) || ( b == 0 ) ) && ( ( c == 0 ) || ( d == 0 ) ) )
> {
> Result = 0 ;
> return Result ;
> }
> else {
>
> Result = 1 ;
> return Result ;
> }
> }
> if ( d == 0 ) {
>
> if ( a == 0 )
> {
> Result = 0 ;
> return Result ;
> }
> else {
>
> Result = -1 ;
> return Result ;
> }
> }
> q = a ;
> a = c ;
> c = q ;
> q = - (integer) b ;
> b = - (integer) d ;
> d = q ;
> }
> else if ( b <= 0 )
> {
> if ( b < 0 ) {
>
> if ( a > 0 )
> {
> Result = -1 ;
> return Result ;
> }
> }
> if ( c == 0 )
> {
> Result = 0 ;
> return Result ;
> }
> else {
>
> Result = -1 ;
> return Result ;
> }
> }
> while ( 1 ) {
>
> q = a / d ;
> r = c / b ;
> if ( q != r ) {
>
> if ( q > r )
> {
> Result = 1 ;
> return Result ;
> }
> else {
>
> Result = -1 ;
> return Result ;
> }
> }
> q = a % d ;
> r = c % b ;
> if ( r == 0 ) {
>
> if ( q == 0 )
> {
> Result = 0 ;
> return Result ;
> }
> else {
>
> Result = 1 ;
> return Result ;
> }
> }
> if ( q == 0 )
> {
> Result = -1 ;
> return Result ;
> }
> a = b ;
> b = q ;
> c = d ;
> d = r ;
> }
> return Result ;
>}
>void
>newrandoms ( void )
>{
> 
> unsigned char k ;
> integer x ;
> {register integer for_end; k = 0 ;for_end = 23 ; if ( k <= for_end) do
> {
> x = randoms [k ]- randoms [k + 31 ];
> if ( x < 0 )
> x = x + 268435456L ;
> randoms [k ]= x ;
> }
> while ( k++ < for_end ) ;}
> {register integer for_end; k = 24 ;for_end = 54 ; if ( k <= for_end) do
> {
> x = randoms [k ]- randoms [k - 24 ];
> if ( x < 0 )
> x = x + 268435456L ;
> randoms [k ]= x ;
> }
> while ( k++ < for_end ) ;}
> jrandom = 54 ;
>}
>void
>zinitrandoms ( integer seed )
>{
> 
> integer j, jj, k ;
> unsigned char i ;
> j = ((integer)(seed) >= 0 ? (integer)(seed) : (integer)-(seed)) ;
> while ( j >= 268435456L ) j = ( j ) / 2 ;
> k = 1 ;
> {register integer for_end; i = 0 ;for_end = 54 ; if ( i <= for_end) do
> {
> jj = k ;
> k = j - k ;
> j = jj ;
> if ( k < 0 )
> k = k + 268435456L ;
> randoms [( i * 21 ) % 55 ]= j ;
> }
> while ( i++ < for_end ) ;}
> newrandoms () ;
> newrandoms () ;
> newrandoms () ;
>}
>integer
>zunifrand ( integer x )
>{
> register integer Result;
> integer y ;
> if ( jrandom == 0 )
> newrandoms () ;
> else --(jrandom) ;
> y = ztakefrac((integer) (((integer)(x) >= 0 ? (integer)(x) : (integer)-(x))), (integer) (randoms [jrandom ])) ;
> if ( y == ((integer)(x) >= 0 ? (integer)(x) : (integer)-(x)) )
> Result = 0 ;
> else if ( x > 0 )
> Result = y ;
> else Result = - (integer) y ;
> return Result ;
>}
>integer
>normrand ( void )
>{
> register integer Result;
> integer x, u, l ;
> do {
> do { if ( jrandom == 0 )
> newrandoms () ;
> else --(jrandom) ;
> x = ztakefrac((integer) (112429L), (integer) (randoms [jrandom ]- 134217728L)) ;
> if ( jrandom == 0 )
> newrandoms () ;
> else --(jrandom) ;
> u = randoms [jrandom ];
> } while ( ! ( ((integer)(x) >= 0 ? (integer)(x) : (integer)-(x)) x = zmakefrac((integer) (x), (integer) (u)) ;
> l = 139548960L - zmlog((integer) (u)) ;
> } while ( ! ( zabvscd((integer) (1024), (integer) (l), (integer) (x), (integer) (x)) >= 0 ) ) ;
> Result = x ;
> return Result ;
>}
># 1789 "pdftex0.c"
>void
>zshowtokenlist ( integer p , integer q , integer l )
>{
> register memoryword *mem=zmem;
> integer m, c ;
> ASCIIcode matchchr ;
> ASCIIcode n ;
> matchchr = 35 ;
> n = 48 ;
> tally = 0 ;
> while ( ( p != -268435455L ) && ( tally < l ) ) {
>
> if ( p == q )
> {
> firstcount = tally ;
> trickcount = tally + 1 + errorline - halferrorline ;
> if ( trickcount < errorline )
> trickcount = errorline ;
> }
> if ( ( p < himemmin ) || ( p > memend ) )
> {
> zprintesc((strnumber) (314)) ;
> return ;
> }
> if ( mem [p ].hh .v.LH >= 4095 )
> zprintcs((integer) (mem [p ].hh .v.LH - 4095)) ;
> else {
>
> m = mem [p ].hh .v.LH / 256 ;
> c = mem [p ].hh .v.LH % 256 ;
> if ( mem [p ].hh .v.LH < 0 )
> zprintesc((strnumber) (635)) ;
> else switch ( m )
> {case 1 :
> case 2 :
> case 3 :
> case 4 :
> case 7 :
> case 8 :
> case 10 :
> case 11 :
> case 12 :
> zprint((integer) (c)) ;
> break ;
> case 6 :
> {
> zprint((integer) (c)) ;
> zprint((integer) (c)) ;
> }
> break ;
> case 5 :
> {
> zprint((integer) (matchchr)) ;
> if ( c <= 9 )
> zprintchar((ASCIIcode) (c + 48)) ;
> else {
>
> zprintchar((ASCIIcode) (33)) ;
> return ;
> }
> }
> break ;
> case 13 :
> {
> matchchr = c ;
> zprint((integer) (c)) ;
> ++(n) ;
> zprintchar((ASCIIcode) (n)) ;
> if ( n > 57 )
> return ;
> }
> break ;
> case 14 :
> if ( c == 0 )
> zprint((integer) (636)) ;
> break ;
> default:
> zprintesc((strnumber) (635)) ;
> break ;
> }
> }
> p = mem [p ].hh .v.RH ;
> }
> if ( p != -268435455L )
> zprintesc((strnumber) (428)) ;
>}
>void
>runaway ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> if ( scannerstatus > 1 )
> {
> switch ( scannerstatus )
> {case 2 :
> {
> zprintnl((strnumber) (650)) ;
> p = defref ;
> }
> break ;
> case 3 :
> {
> zprintnl((strnumber) (651)) ;
> p = memtop - 3 ;
> }
> break ;
> case 4 :
> {
> zprintnl((strnumber) (652)) ;
> p = memtop - 4 ;
> }
> break ;
> case 5 :
> {
> zprintnl((strnumber) (653)) ;
> p = defref ;
> }
> break ;
> }
> zprintchar((ASCIIcode) (63)) ;
> println () ;
> zshowtokenlist((integer) (mem [p ].hh .v.RH), (integer) (-268435455L), (integer) (errorline - 10)) ;
> }
>}
>halfword
>getavail ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = avail ;
> if ( p != -268435455L )
> avail = mem [avail ].hh .v.RH ;
> else if ( memend < memmax )
> {
> ++(memend) ;
> p = memend ;
> }
> else {
>
> --(himemmin) ;
> p = himemmin ;
> if ( himemmin <= lomemmax )
> {
> runaway () ;
> zoverflow((strnumber) (304), (integer) (memmax + 1 - memmin)) ;
> }
> }
> mem [p ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> Result = p ;
> return Result ;
>}
>void
>zflushlist ( halfword p )
>{
> register memoryword *mem=zmem;
> halfword q, r ;
> if ( p != -268435455L )
> {
> r = p ;
> do {
> q = r ;
> r = mem [r ].hh .v.RH ;
> ;
>
> --(dynused) ;
>
> } while ( ! ( r == -268435455L ) ) ;
> mem [q ].hh .v.RH = avail ;
> avail = p ;
> }
>}
>halfword
>zgetnode ( integer s )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> halfword q ;
> integer r ;
> integer t ;
> lab20: p = rover ;
> do {
> q = p + mem [p ].hh .v.LH ;
> while ( ( mem [q ].hh .v.RH == 268435455L ) ) {
>
> t = mem [q + 1 ].hh .v.RH ;
> if ( q == rover )
> rover = t ;
> mem [t + 1 ].hh .v.LH = mem [q + 1 ].hh .v.LH ;
> mem [mem [q + 1 ].hh .v.LH + 1 ].hh .v.RH = t ;
> q = q + mem [q ].hh .v.LH ;
> }
> r = q - s ;
> if ( r > ((integer) (p + 1)) )
> {
> mem [p ].hh .v.LH = r - p ;
> rover = p ;
> goto lab40 ;
> }
> if ( r == p ) {
>
> if ( mem [p + 1 ].hh .v.RH != p )
> {
> rover = mem [p + 1 ].hh .v.RH ;
> t = mem [p + 1 ].hh .v.LH ;
> mem [rover + 1 ].hh .v.LH = t ;
> mem [t + 1 ].hh .v.RH = rover ;
> goto lab40 ;
> }
> }
> mem [p ].hh .v.LH = q - p ;
> p = mem [p + 1 ].hh .v.RH ;
> } while ( ! ( p == rover ) ) ;
> if ( s == 1073741824L )
> {
> Result = 268435455L ;
> return Result ;
> }
> if ( lomemmax + 2 < himemmin ) {
>
> if ( lomemmax + 2 <= membot + 268435455L )
> {
> if ( himemmin - lomemmax >= 1998 )
> t = lomemmax + 1000 ;
> else t = lomemmax + 1 + ( himemmin - lomemmax ) / 2 ;
> p = mem [rover + 1 ].hh .v.LH ;
> q = lomemmax ;
> mem [p + 1 ].hh .v.RH = q ;
> mem [rover + 1 ].hh .v.LH = q ;
> if ( t > membot + 268435455L )
> t = membot + 268435455L ;
> mem [q + 1 ].hh .v.RH = rover ;
> mem [q + 1 ].hh .v.LH = p ;
> mem [q ].hh .v.RH = 268435455L ;
> mem [q ].hh .v.LH = t - lomemmax ;
> lomemmax = t ;
> mem [lomemmax ].hh .v.RH = -268435455L ;
> mem [lomemmax ].hh .v.LH = -268435455L ;
> rover = q ;
> goto lab20 ;
> }
> }
> zoverflow((strnumber) (304), (integer) (memmax + 1 - memmin)) ;
> lab40: mem [r ].hh .v.RH = -268435455L ;
> ;
>
> varused = varused + s ;
>
> if ( s >= 4 )
> {
> mem [r + s - 2 ].cint = curinput .synctextagfield ;
> mem [r + s - 1 ].cint = line ;
> }
> Result = r ;
> return Result ;
>}
>void
>zfreenode ( halfword p , halfword s )
>{
> register memoryword *mem=zmem;
> halfword q ;
> mem [p ].hh .v.LH = s ;
> mem [p ].hh .v.RH = 268435455L ;
> q = mem [rover + 1 ].hh .v.LH ;
> mem [p + 1 ].hh .v.LH = q ;
> mem [p + 1 ].hh .v.RH = rover ;
> mem [rover + 1 ].hh .v.LH = p ;
> mem [q + 1 ].hh .v.RH = p ;
> ;
>
> varused = varused - s ;
>
>}
>halfword
>newnullbox ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (9)) ;
> mem [p ].hh.u.B0 = 0 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].cint = 0 ;
> mem [p + 2 ].cint = 0 ;
> mem [p + 3 ].cint = 0 ;
> mem [p + 4 ].cint = 0 ;
> mem [p + 5 ].hh .v.RH = -268435455L ;
> mem [p + 5 ].hh.u.B0 = 0 ;
> mem [p + 5 ].hh.u.B1 = 0 ;
> mem [p + 6 ].gr = 0.0 ;
> Result = p ;
> return Result ;
>}
>halfword
>newrule ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (6)) ;
> mem [p ].hh.u.B0 = 2 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].cint = -1073741824L ;
> mem [p + 2 ].cint = -1073741824L ;
> mem [p + 3 ].cint = -1073741824L ;
> Result = p ;
> return Result ;
>}
>halfword
>znewligature ( internalfontnumber f , quarterword c , halfword q )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (2)) ;
> mem [p ].hh.u.B0 = 6 ;
> mem [p + 1 ].hh.u.B0 = f ;
> mem [p + 1 ].hh.u.B1 = c ;
> mem [p + 1 ].hh .v.RH = q ;
> mem [p ].hh.u.B1 = 0 ;
> Result = p ;
> return Result ;
>}
>halfword
>znewligitem ( quarterword c )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (2)) ;
> mem [p ].hh.u.B1 = c ;
> mem [p + 1 ].hh .v.RH = -268435455L ;
> Result = p ;
> return Result ;
>}
>halfword
>newdisc ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (2)) ;
> mem [p ].hh.u.B0 = 7 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].hh .v.LH = -268435455L ;
> mem [p + 1 ].hh .v.RH = -268435455L ;
> Result = p ;
> return Result ;
>}
>halfword
>znewmath ( scaled w , smallnumber s )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 9 ;
> mem [p ].hh.u.B1 = s ;
> mem [p + 1 ].cint = w ;
> Result = p ;
> return Result ;
>}
>halfword
>znewspec ( halfword p )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword q ;
> q = zgetnode((integer) (4)) ;
> mem [q ]= mem [p ];
> mem [q ].hh .v.RH = -268435455L ;
> mem [q + 1 ].cint = mem [p + 1 ].cint ;
> mem [q + 2 ].cint = mem [p + 2 ].cint ;
> mem [q + 3 ].cint = mem [p + 3 ].cint ;
> Result = q ;
> return Result ;
>}
>halfword
>znewparamglue ( smallnumber n )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> halfword q ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 10 ;
> mem [p ].hh.u.B1 = n + 1 ;
> mem [p + 1 ].hh .v.RH = -268435455L ;
> q = eqtb [24528 + n ].hh .v.RH ;
> mem [p + 1 ].hh .v.LH = q ;
> ++(mem [q ].hh .v.RH) ;
> Result = p ;
> return Result ;
>}
>halfword
>znewglue ( halfword q )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 10 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].hh .v.RH = -268435455L ;
> mem [p + 1 ].hh .v.LH = q ;
> ++(mem [q ].hh .v.RH) ;
> Result = p ;
> return Result ;
>}
>halfword
>znewskipparam ( smallnumber n )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> tempptr = znewspec((halfword) (eqtb [24528 + n ].hh .v.RH)) ;
> p = znewglue((halfword) (tempptr)) ;
> mem [tempptr ].hh .v.RH = -268435455L ;
> mem [p ].hh.u.B1 = n + 1 ;
> Result = p ;
> return Result ;
>}
>halfword
>znewkern ( scaled w )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 11 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].cint = w ;
> Result = p ;
> return Result ;
>}
>halfword
>znewpenalty ( integer m )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 12 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].cint = m ;
> Result = p ;
> return Result ;
>}
># 2418 "pdftex0.c"
>void
>zpdferror ( strnumber t , strnumber p )
>{
> 
> normalizeselector () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1019)) ;
> }
> if ( t != 0 )
> {
> zprint((integer) (286)) ;
> zprint((integer) (t)) ;
> zprint((integer) (41)) ;
> }
> zprint((integer) (648)) ;
> zprint((integer) (p)) ;
> {
> if ( interaction == 3 )
> interaction = 2 ;
> if ( logopened )
> error () ;
> ;
>
>
>
>
> history = 3 ;
> jumpout () ;
> }
>}
>void
>zpdfwarning ( strnumber t , strnumber p , boolean prependnl , boolean appendnl
>)
>{
> 
> if ( interaction == 3 )
> ;
> if ( prependnl )
> println () ;
> zprint((integer) (1020)) ;
> if ( t != 0 )
> {
> zprint((integer) (286)) ;
> zprint((integer) (t)) ;
> zprint((integer) (41)) ;
> }
> zprint((integer) (648)) ;
> zprint((integer) (p)) ;
> if ( appendnl )
> println () ;
> if ( history == 0 )
> history = 1 ;
>}
>void
>zpdfosgetosbuf ( integer s )
>{
> 
> integer a ;
> if ( s > ( 5000000L ) - pdfptr )
> zoverflow((strnumber) (1021), (integer) (pdfosbufsize)) ;
> if ( pdfptr + s > pdfosbufsize )
> {
> a = 0.2 * pdfosbufsize ;
> if ( pdfptr + s > pdfosbufsize + a )
> pdfosbufsize = pdfptr + s ;
> else if ( pdfosbufsize < ( 5000000L ) - a )
> pdfosbufsize = pdfosbufsize + a ;
> else pdfosbufsize = ( 5000000L ) ;
> pdfosbuf = ((eightbits*)xrealloc(pdfosbuf,(pdfosbufsize+1)*sizeof(eightbits))) ;
> pdfbuf = pdfosbuf ;
> pdfbufsize = pdfosbufsize ;
> }
>}
>void
>removelastspace ( void )
>{
> 
> if ( ( pdfptr > 0 ) && ( pdfbuf [pdfptr - 1 ]== 32 ) )
> --(pdfptr) ;
>}
>void
>zpdfprintoctal ( integer n )
>{
> 
> unsigned char k ;
> k = 0 ;
> do {
> dig [k ]= n % 8 ;
> n = n / 8 ;
> ++(k) ;
> } while ( ! ( n == 0 ) ) ;
> if ( k == 1 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( k == 2 )
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 ;
> ++(pdfptr) ;
> }
> }
> while ( k > 0 ) {
>
> --(k) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 + dig [k ];
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdfprintchar ( internalfontnumber f , integer c )
>{
> 
> pdfcharused[f][c/8] |= (1<<(c%8)) ;
> if ( ( c <= 32 ) || ( c == 92 ) || ( c == 40 ) || ( c == 41 ) || ( c > 127 )
> )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 92 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintoctal((integer) (c)) ;
> }
> else {
>
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= c ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfprint ( strnumber s )
>{
> 
> poolpointer j ;
> integer c ;
> j = strstart [s ];
> while ( j < strstart [s + 1 ]) {
>
> c = strpool [j ];
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= c ;
> ++(pdfptr) ;
> }
> }
> ++(j) ;
> }
>}
>boolean
>zstrinstr ( strnumber s , strnumber r , integer i )
>{
> register boolean Result;
> poolpointer j, k ;
> Result = 0 ;
> if ( ( strstart [s + 1 ]- strstart [s ]) strstart [r ]) )
> return Result ;
> j = i + strstart [s ];
> k = strstart [r ];
> while ( ( j < strstart [s + 1 ]) && ( k < strstart [r + 1 ]) ) {
>
> if ( strpool [j ]!= strpool [k ])
> return Result ;
> ++(j) ;
> ++(k) ;
> }
> Result = 1 ;
> return Result ;
>}
>void
>zpdfprintint ( longinteger n )
>{
> 
> integer k ;
> longinteger m ;
> k = 0 ;
> if ( n < 0 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 45 ;
> ++(pdfptr) ;
> }
> }
> if ( n > -100000000L )
> n = - (integer) n ;
> else {
>
> m = -1 - n ;
> n = m / 10 ;
> m = ( m % 10 ) + 1 ;
> k = 1 ;
> if ( m < 10 )
> dig [0 ]= m ;
> else {
>
> dig [0 ]= 0 ;
> ++(n) ;
> }
> }
> }
> do {
> dig [k ]= n % 10 ;
> n = n / 10 ;
> ++(k) ;
> } while ( ! ( n == 0 ) ) ;
> {
> if ( pdfosmode && ( k + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (k)) ;
> else if ( ! pdfosmode && ( k > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( k + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> while ( k > 0 ) {
>
> --(k) ;
> {
> pdfbuf [pdfptr ]= 48 + dig [k ];
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfprinttwo ( integer n )
>{
> 
> n = ((integer)(n) >= 0 ? (integer)(n) : (integer)-(n)) % 100 ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 + ( n / 10 ) ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 + ( n % 10 ) ;
> ++(pdfptr) ;
> }
> }
>}
>strnumber
>ztokenstostring ( halfword p )
>{
> register strnumber Result; register memoryword *mem=zmem;
> if ( selector == 21 )
> zpdferror((strnumber) (1022), (strnumber) (1023)) ;
> oldsetting = selector ;
> selector = 21 ;
> zshowtokenlist((integer) (mem [p ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr)) ;
> selector = oldsetting ;
> lasttokensstring = makestring () ;
> Result = lasttokensstring ;
> return Result ;
>}
>scaled
>zdividescaled ( scaled s , scaled m , integer dd )
>{
> register scaled Result;
> scaled q, r ;
> integer sign, i ;
> sign = 1 ;
> if ( s < 0 )
> {
> sign = - (integer) sign ;
> s = - (integer) s ;
> }
> if ( m < 0 )
> {
> sign = - (integer) sign ;
> m = - (integer) m ;
> }
> if ( m == 0 )
> zpdferror((strnumber) (1024), (strnumber) (1025)) ;
> else if ( m >= ( 2147483647L / 10 ) )
> zpdferror((strnumber) (1024), (strnumber) (1026)) ;
> q = s / m ;
> r = s % m ;
> {register integer for_end; i = 1 ;for_end = dd ; if ( i <= for_end) do
> {
> q = 10 * q + ( 10 * r ) / m ;
> r = ( 10 * r ) % m ;
> }
> while ( i++ < for_end ) ;}
> if ( 2 * r >= m )
> {
> ++(q) ;
> r = r - m ;
> }
> scaledout = sign * ( s - ( r / tenpow [dd ]) ) ;
> Result = sign * q ;
> return Result ;
>}
>scaled
>zroundxnoverd ( scaled x , integer n , integer d )
>{
> register scaled Result;
> boolean positive ;
> nonnegativeinteger t, u, v ;
> if ( x >= 0 )
> positive = 1 ;
> else {
>
> x = - (integer) x ;
> positive = 0 ;
> }
> t = ( x % 32768L ) * n ;
> u = ( x / 32768L ) * n + ( t / 32768L ) ;
> v = ( u % d ) * 32768L + ( t % 32768L ) ;
> if ( u / d >= 32768L )
> aritherror = 1 ;
> else u = 32768L * ( u / d ) + ( v / d ) ;
> v = v % d ;
> if ( 2 * v >= d )
> ++(u) ;
> if ( positive )
> Result = u ;
> else Result = - (integer) u ;
> return Result ;
>}
>void
>zappenddestname ( strnumber s , integer n )
>{
> 
> integer a ;
> if ( pdfdestnamesptr == ( 500000L ) )
> zoverflow((strnumber) (1059), (integer) (destnamessize)) ;
> if ( pdfdestnamesptr == destnamessize )
> {
> a = 0.2 * destnamessize ;
> if ( destnamessize < ( 500000L ) - a )
> destnamessize = destnamessize + a ;
> else destnamessize = ( 500000L ) ;
> destnames = ((destnameentry*)xrealloc(destnames,(destnamessize+1)*sizeof(destnameentry))) ;
> }
> destnames [pdfdestnamesptr ].objname = s ;
> destnames [pdfdestnamesptr ].objnum = n ;
> ++(pdfdestnamesptr) ;
>}
>void
>zpdfcreateobj ( integer t , integer i )
>{
> 
> integer a, p, q ;
> if ( sysobjptr == ( 8388607L ) )
> zoverflow((strnumber) (1060), (integer) (objtabsize)) ;
> if ( sysobjptr == objtabsize )
> {
> a = 0.2 * objtabsize ;
> if ( objtabsize < ( 8388607L ) - a )
> objtabsize = objtabsize + a ;
> else objtabsize = ( 8388607L ) ;
> objtab = ((objentry*)xrealloc(objtab,(objtabsize+1)*sizeof(objentry))) ;
> }
> ++(sysobjptr) ;
> objptr = sysobjptr ;
> objtab [objptr ].int0 = i ;
> objtab [objptr ].int2 = -2 ;
> objtab [objptr ].int4 = 0 ;
> avlputobj ( objptr , t ) ;
> if ( t == 1 )
> {
> p = headtab [t ];
> if ( ( p == 0 ) || ( objtab [p ].int0 {
> objtab [objptr ].int1 = p ;
> headtab [t ]= objptr ;
> }
> else {
>
> while ( p != 0 ) {
>
> if ( objtab [p ].int0 goto lab30 ;
> q = p ;
> p = objtab [p ].int1 ;
> }
> lab30: objtab [q ].int1 = objptr ;
> objtab [objptr ].int1 = p ;
> }
> }
> else if ( t != 0 )
> {
> objtab [objptr ].int1 = headtab [t ];
> headtab [t ]= objptr ;
> if ( ( t == 5 ) && ( i < 0 ) )
> zappenddestname((strnumber) (- (integer) objtab [objptr ].int0), (integer) (objptr)) ;
> }
>}
>integer
>pdfnewobjnum ( void )
>{
> register integer Result;
> zpdfcreateobj((integer) (0), (integer) (0)) ;
> Result = objptr ;
> return Result ;
>}
>void
>zpdfosswitch ( boolean pdfos )
>{
> 
> if ( pdfos && pdfosenable )
> {
> if ( ! pdfosmode )
> {
> pdfopptr = pdfptr ;
> pdfptr = pdfosptr ;
> pdfbuf = pdfosbuf ;
> pdfbufsize = pdfosbufsize ;
> pdfosmode = 1 ;
> }
> }
> else {
>
> if ( pdfosmode )
> {
> pdfosptr = pdfptr ;
> pdfptr = pdfopptr ;
> pdfbuf = pdfopbuf ;
> pdfbufsize = ( 16384 ) ;
> pdfosmode = 0 ;
> }
> }
>}
>void
>zpdfosprepareobj ( integer i , integer pdfoslevel )
>{
> 
> zpdfosswitch((boolean) (( pdfoslevel > 0 ) && ( fixedpdfobjcompresslevel >= pdfoslevel )))
> ;
> if ( pdfosmode )
> {
> if ( pdfoscurobjnum == 0 )
> {
> pdfoscurobjnum = pdfnewobjnum () ;
> --(objptr) ;
> ++(pdfoscntr) ;
> pdfosobjidx = 0 ;
> pdfptr = 0 ;
> }
> else ++(pdfosobjidx) ;
> objtab [i ].int3 = pdfosobjidx ;
> objtab [i ].int2 = pdfoscurobjnum ;
> pdfosobjnum [pdfosobjidx ]= i ;
> pdfosobjoff [pdfosobjidx ]= pdfptr ;
> }
> else {
>
> objtab [i ].int2 = ( pdfgone + pdfptr ) ;
> objtab [i ].int3 = -1 ;
> }
>}
>void
>zpdfbeginobj ( integer i , integer pdfoslevel )
>{
> register memoryword *eqtb=zeqtb;
> checkpdfminorversion () ;
> zpdfosprepareobj((integer) (i), (integer) (pdfoslevel)) ;
> if ( ! pdfosmode )
> {
> zpdfprintint((longinteger) (i)) ;
> {
> zpdfprint((strnumber) (1061)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> else if ( eqtb [27240 ].cint == 0 )
> {
> zpdfprint((strnumber) (1062)) ;
> zpdfprintint((longinteger) (i)) ;
> {
> zpdfprint((strnumber) (1061)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
>}
>void
>zpdfnewobj ( integer t , integer i , integer pdfos )
>{
> 
> zpdfcreateobj((integer) (t), (integer) (i)) ;
> zpdfbeginobj((integer) (objptr), (integer) (pdfos)) ;
>}
>void
>pdfendobj ( void )
>{
> 
> if ( pdfosmode )
> {
> if ( pdfosobjidx == ( 100 ) - 1 )
> pdfoswriteobjstream () ;
> }
> else {
>
> zpdfprint((strnumber) (1063)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdfbegindict ( integer i , integer pdfoslevel )
>{
> register memoryword *eqtb=zeqtb;
> checkpdfminorversion () ;
> zpdfosprepareobj((integer) (i), (integer) (pdfoslevel)) ;
> if ( ! pdfosmode )
> {
> zpdfprintint((longinteger) (i)) ;
> {
> zpdfprint((strnumber) (1061)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> else if ( eqtb [27240 ].cint == 0 )
> {
> zpdfprint((strnumber) (1062)) ;
> zpdfprintint((longinteger) (i)) ;
> {
> zpdfprint((strnumber) (1061)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> {
> zpdfprint((strnumber) (1064)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdfnewdict ( integer t , integer i , integer pdfos )
>{
> 
> zpdfcreateobj((integer) (t), (integer) (i)) ;
> zpdfbegindict((integer) (objptr), (integer) (pdfos)) ;
>}
>void
>pdfenddict ( void )
>{
> 
> if ( pdfosmode )
> {
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( pdfosobjidx == ( 100 ) - 1 )
> pdfoswriteobjstream () ;
> }
> else {
>
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1063)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
>}
>void
>pdfoswriteobjstream ( void )
>{
> 
> halfword i, j, p, q ;
> if ( pdfoscurobjnum == 0 )
> return ;
> p = pdfptr ;
> i = 0 ;
> j = 0 ;
> while ( i <= pdfosobjidx ) {
>
> zpdfprintint((longinteger) (pdfosobjnum [i ])) ;
> zpdfprint((strnumber) (32)) ;
> zpdfprintint((longinteger) (pdfosobjoff [i ])) ;
> if ( j == 9 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> j = 0 ;
> }
> else {
>
> zpdfprint((strnumber) (32)) ;
> ++(j) ;
> }
> ++(i) ;
> }
> pdfbuf [pdfptr - 1 ]= 10 ;
> q = pdfptr ;
> zpdfbegindict((integer) (pdfoscurobjnum), (integer) (0)) ;
> {
> zpdfprint((strnumber) (1065)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1066)) ;
> {
> zpdfprintint((longinteger) (pdfosobjidx + 1)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1067)) ;
> {
> zpdfprintint((longinteger) (q - p)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfbeginstream () ;
> {
> if ( pdfosmode && ( q - p + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (q - p)) ;
> else if ( ! pdfosmode && ( q - p > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( q - p + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> i = p ;
> while ( i < q ) {
>
> {
> pdfbuf [pdfptr ]= pdfosbuf [i ];
> ++(pdfptr) ;
> }
> ++(i) ;
> }
> i = 0 ;
> while ( i 
> q = i + pdfbufsize ;
> if ( q > p )
> q = p ;
> {
> if ( pdfosmode && ( q - i + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (q - i)) ;
> else if ( ! pdfosmode && ( q - i > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( q - i + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> while ( i < q ) {
>
> {
> pdfbuf [pdfptr ]= pdfosbuf [i ];
> ++(pdfptr) ;
> }
> ++(i) ;
> }
> }
> pdfendstream () ;
> pdfoscurobjnum = 0 ;
>}
>halfword
>zappendptr ( halfword p , integer i )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword q ;
> Result = p ;
> {
> q = avail ;
> if ( q == -268435455L )
> q = getavail () ;
> else {
>
> avail = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [q ].hh .v.LH = i ;
> mem [q ].hh .v.RH = -268435455L ;
> if ( p == -268435455L )
> {
> Result = q ;
> return Result ;
> }
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = q ;
> return Result ;
>}
>halfword
>zpdflookuplist ( halfword p , integer i )
>{
> register halfword Result; register memoryword *mem=zmem;
> Result = -268435455L ;
> while ( p != -268435455L ) {
>
> if ( mem [p ].hh .v.LH == i )
> {
> Result = p ;
> return Result ;
> }
> p = mem [p ].hh .v.RH ;
> }
> return Result ;
>}
>halfword
>zprevrightmost ( halfword s , halfword e )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> Result = -268435455L ;
> p = s ;
> if ( p == -268435455L )
> return Result ;
> while ( mem [p ].hh .v.RH != e ) {
>
> p = mem [p ].hh .v.RH ;
> if ( p == -268435455L )
> return Result ;
> }
> Result = p ;
> return Result ;
>}
>void
>zpdfcheckobj ( integer t , integer n )
>{
> 
> integer k ;
> k = headtab [t ];
> while ( ( k != 0 ) && ( k != n ) ) k = objtab [k ].int1 ;
> if ( k == 0 )
> zpdferror((strnumber) (1763), (strnumber) (1789)) ;
>}
>integer
>zfindobj ( integer t , integer i , boolean byname )
>{
> register integer Result;
> Result = avlfindobj ( t , i , byname ) ;
> return Result ;
>}
>void
>zflushstr ( strnumber s )
>{
> 
> if ( ( s == strptr - 1 ) )
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
>}
>integer
>zgetobj ( integer t , integer i , boolean byname )
>{
> register integer Result;
> integer r ;
> strnumber s ;
> if ( byname > 0 )
> {
> s = ztokenstostring((halfword) (i)) ;
> r = zfindobj((integer) (t), (integer) (s), (boolean) (1)) ;
> }
> else {
>
> s = 0 ;
> r = zfindobj((integer) (t), (integer) (i), (boolean) (0)) ;
> }
> if ( r == 0 )
> {
> if ( byname > 0 )
> {
> zpdfcreateobj((integer) (t), (integer) (- (integer) s)) ;
> s = 0 ;
> }
> else zpdfcreateobj((integer) (t), (integer) (i)) ;
> r = objptr ;
> if ( t == 5 )
> objtab [r ].int4 = -268435455L ;
> }
> if ( s != 0 )
> zflushstr((strnumber) (s)) ;
> Result = r ;
> return Result ;
>}
>integer
>getmicrointerval ( void )
>{
> register integer Result;
> integer s, m ;
> get_seconds_and_micros (&(s), &(m)) ;
> if ( ( s - epochseconds ) > 32767 )
> Result = 2147483647L ;
> else if ( ( microseconds > m ) )
> Result = ( ( s - 1 - epochseconds ) * 65536L ) + ( ( ( m + 1000000L -
> microseconds ) / ((double) 100 ) ) * 65536L ) / ((double) 10000 ) ;
> else Result = ( ( s - epochseconds ) * 65536L ) + ( ( ( m - microseconds )
> / ((double) 100 ) ) * 65536L ) / ((double) 10000 ) ;
> return Result ;
>}
>void
>zprintfontidentifier ( internalfontnumber f )
>{
> register memoryword *eqtb=zeqtb;
> if ( pdffontblink [f ]== 0 )
> zprintesc((strnumber) (hash [15526 + f ].v.RH)) ;
> else zprintesc((strnumber) (hash [15526 + pdffontblink [f ]].v.RH)) ;
> if ( eqtb [27258 ].cint > 0 )
> {
> zprint((integer) (286)) ;
> zprint((integer) (fontname [f ])) ;
> if ( fontsize [f ]!= fontdsize [f ])
> {
> zprint((integer) (64)) ;
> zprintscaled((scaled) (fontsize [f ])) ;
> zprint((integer) (312)) ;
> }
> zprint((integer) (41)) ;
> }
> else if ( pdffontexpandratio [f ]!= 0 )
> {
> zprint((integer) (286)) ;
> if ( pdffontexpandratio [f ]> 0 )
> zprint((integer) (43)) ;
> zprintint((longinteger) (pdffontexpandratio [f ])) ;
> zprint((integer) (41)) ;
> }
>}
>void
>zshortdisplay ( integer p )
>{
> register memoryword *mem=zmem;
> integer n ;
> while ( p > memmin ) {
>
> if ( ( p >= himemmin ) )
> {
> if ( p <= memend )
> {
> if ( mem [p ].hh.u.B0 != fontinshortdisplay )
> {
> if ( ( mem [p ].hh.u.B0 > fontmax ) )
> zprintchar((ASCIIcode) (42)) ;
> else zprintfontidentifier((internalfontnumber) (mem [p ].hh.u.B0)) ;
> zprintchar((ASCIIcode) (32)) ;
> fontinshortdisplay = mem [p ].hh.u.B0 ;
> }
> zprint((integer) (mem [p ].hh.u.B1)) ;
> }
> }
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 3 :
> case 8 :
> case 4 :
> case 5 :
> case 13 :
> zprint((integer) (313)) ;
> break ;
> case 2 :
> zprintchar((ASCIIcode) (124)) ;
> break ;
> case 10 :
> if ( mem [p + 1 ].hh .v.LH != membot )
> zprintchar((ASCIIcode) (32)) ;
> break ;
> case 9 :
> if ( mem [p ].hh.u.B1 >= 4 )
> zprint((integer) (313)) ;
> else zprintchar((ASCIIcode) (36)) ;
> break ;
> case 6 :
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> break ;
> case 7 :
> {
> zshortdisplay((integer) (mem [p + 1 ].hh .v.LH)) ;
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> n = mem [p ].hh.u.B1 ;
> while ( n > 0 ) {
>
> if ( mem [p ].hh .v.RH != -268435455L )
> p = mem [p ].hh .v.RH ;
> --(n) ;
> }
> }
> break ;
> default:
> ;
> break ;
> }
> p = mem [p ].hh .v.RH ;
> }
>}
>void
>zprintfontandchar ( integer p )
>{
> register memoryword *mem=zmem;
> if ( p > memend )
> zprintesc((strnumber) (314)) ;
> else {
>
> if ( ( mem [p ].hh.u.B0 > fontmax ) )
> zprintchar((ASCIIcode) (42)) ;
> else zprintfontidentifier((internalfontnumber) (mem [p ].hh.u.B0)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprint((integer) (mem [p ].hh.u.B1)) ;
> }
>}
>void
>zprintmark ( integer p )
>{
> register memoryword *mem=zmem;
> zprintchar((ASCIIcode) (123)) ;
> if ( ( p < himemmin ) || ( p > memend ) )
> zprintesc((strnumber) (314)) ;
> else zshowtokenlist((integer) (mem [p ].hh .v.RH), (integer) (-268435455L), (integer) (maxprintline - 10))
> ;
> zprintchar((ASCIIcode) (125)) ;
>}
>void
>zprintruledimen ( scaled d )
>{
> 
> if ( ( d == -1073741824L ) )
> zprintchar((ASCIIcode) (42)) ;
> else zprintscaled((scaled) (d)) ;
>}
>void
>zprintglue ( scaled d , integer order , strnumber s )
>{
> 
> zprintscaled((scaled) (d)) ;
> if ( ( order < 0 ) || ( order > 3 ) )
> zprint((integer) (315)) ;
> else if ( order > 0 )
> {
> zprint((integer) (316)) ;
> while ( order > 1 ) {
>
> zprintchar((ASCIIcode) (108)) ;
> --(order) ;
> }
> }
> else if ( s != 0 )
> zprint((integer) (s)) ;
>}
>void
>zprintspec ( integer p , strnumber s )
>{
> register memoryword *mem=zmem;
> if ( ( p < memmin ) || ( p >= lomemmax ) )
> zprintchar((ASCIIcode) (42)) ;
> else {
>
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> if ( s != 0 )
> zprint((integer) (s)) ;
> if ( mem [p + 2 ].cint != 0 )
> {
> zprint((integer) (317)) ;
> zprintglue((scaled) (mem [p + 2 ].cint), (integer) (mem [p ].hh.u.B0), (strnumber) (s)) ;
> }
> if ( mem [p + 3 ].cint != 0 )
> {
> zprint((integer) (318)) ;
> zprintglue((scaled) (mem [p + 3 ].cint), (integer) (mem [p ].hh.u.B1), (strnumber) (s)) ;
> }
> }
>}
>void
>zprintfamandchar ( halfword p )
>{
> register memoryword *mem=zmem;
> zprintesc((strnumber) (484)) ;
> zprintint((longinteger) (mem [p ].hh.u.B0)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprint((integer) (mem [p ].hh.u.B1)) ;
>}
>void
>zprintdelimiter ( halfword p )
>{
> register memoryword *mem=zmem;
> integer a ;
> a = mem [p ].qqqq .u.B0 * 256 + mem [p ].qqqq .u.B1 ;
> a = a * 4096 + mem [p ].qqqq .u.B2 * 256 + mem [p ].qqqq .u.B3 ;
> if ( a < 0 )
> zprintint((longinteger) (a)) ;
> else zprinthex((integer) (a)) ;
>}
>void
>zprintsubsidiarydata ( halfword p , ASCIIcode c )
>{
> register memoryword *mem=zmem;
> if ( ( poolptr - strstart [strptr ]) >= depththreshold )
> {
> if ( mem [p ].hh .v.RH != 0 )
> zprint((integer) (319)) ;
> }
> else {
>
> {
> strpool [poolptr ]= c ;
> ++(poolptr) ;
> }
> tempptr = p ;
> switch ( mem [p ].hh .v.RH )
> {case 1 :
> {
> println () ;
> printcurrentstring () ;
> zprintfamandchar((halfword) (p)) ;
> }
> break ;
> case 2 :
> showinfo () ;
> break ;
> case 3 :
> if ( mem [p ].hh .v.LH == -268435455L )
> {
> println () ;
> printcurrentstring () ;
> zprint((integer) (1256)) ;
> }
> else showinfo () ;
> break ;
> default:
> ;
> break ;
> }
> --(poolptr) ;
> }
>}
>void
>zprintstyle ( integer c )
>{
> 
> switch ( c / 2 )
> {case 0 :
> zprintesc((strnumber) (1257)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1258)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1259)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1260)) ;
> break ;
> default:
> zprint((integer) (1261)) ;
> break ;
> }
>}
>void
>zprintskipparam ( integer n )
>{
> 
> switch ( n )
> {case 0 :
> zprintesc((strnumber) (393)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (394)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (395)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (396)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (397)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (398)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (399)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (400)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (401)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (402)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (403)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (404)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (405)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (406)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (407)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (408)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (409)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (410)) ;
> break ;
> default:
> zprint((integer) (411)) ;
> break ;
> }
>}
>void
>zshownodelist ( integer p )
>{
> register memoryword *mem=zmem;
> integer n ;
> real g ;
> if ( ( poolptr - strstart [strptr ]) > depththreshold )
> {
> if ( p > -268435455L )
> zprint((integer) (319)) ;
> return ;
> }
> n = 0 ;
> while ( p > memmin ) {
>
> println () ;
> printcurrentstring () ;
> if ( p > memend )
> {
> zprint((integer) (320)) ;
> return ;
> }
> ++(n) ;
> if ( n > breadthmax )
> {
> zprint((integer) (321)) ;
> return ;
> }
> if ( ( p >= himemmin ) )
> zprintfontandchar((integer) (p)) ;
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 13 :
> {
> if ( mem [p ].hh.u.B0 == 0 )
> zprintesc((strnumber) (104)) ;
> else if ( mem [p ].hh.u.B0 == 1 )
> zprintesc((strnumber) (118)) ;
> else zprintesc((strnumber) (326)) ;
> zprint((integer) (327)) ;
> zprintscaled((scaled) (mem [p + 3 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintscaled((scaled) (mem [p + 2 ].cint)) ;
> zprint((integer) (328)) ;
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> if ( mem [p ].hh.u.B0 == 13 )
> {
> if ( mem [p ].hh.u.B1 != 0 )
> {
> zprint((integer) (286)) ;
> zprintint((longinteger) (mem [p ].hh.u.B1 + 1)) ;
> zprint((integer) (330)) ;
> }
> if ( mem [p + 6 ].cint != 0 )
> {
> zprint((integer) (331)) ;
> zprintglue((scaled) (mem [p + 6 ].cint), (integer) (mem [p + 5 ].hh.u.B1), (strnumber) (0)) ;
> }
> if ( mem [p + 4 ].cint != 0 )
> {
> zprint((integer) (332)) ;
> zprintglue((scaled) (mem [p + 4 ].cint), (integer) (mem [p + 5 ].hh.u.B0), (strnumber) (0)) ;
> }
> }
> else {
>
> g = mem [p + 6 ].gr ;
> if ( ( g != 0.0 ) && ( mem [p + 5 ].hh.u.B0 != 0 ) )
> {
> zprint((integer) (333)) ;
> if ( mem [p + 5 ].hh.u.B0 == 2 )
> zprint((integer) (334)) ;
> if ( ((g) >= 0.0 ? (g) : -(g)) > 20000.0 )
> {
> if ( g > 0.0 )
> zprintchar((ASCIIcode) (62)) ;
> else zprint((integer) (335)) ;
> zprintglue((scaled) (20000 * 65536L), (integer) (mem [p + 5 ].hh.u.B1), (strnumber) (0)) ;
> }
> else zprintglue((scaled) (zround ((double) (65536L * g))), (integer) (mem [p + 5 ].hh.u.B1), (strnumber) (0))
> ;
> }
> if ( mem [p + 4 ].cint != 0 )
> {
> zprint((integer) (329)) ;
> zprintscaled((scaled) (mem [p + 4 ].cint)) ;
> }
> if ( ( eTeXmode == 1 ) ) {
>
> if ( ( mem [p ].hh.u.B0 == 0 ) && ( ( mem [p ].hh.u.B1 ) == 2 ) )
> zprint((integer) (2010)) ;
> }
> }
> {
> {
> strpool [poolptr ]= 46 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 5 ].hh .v.RH)) ;
> --(poolptr) ;
> }
> }
> break ;
> case 2 :
> {
> zprintesc((strnumber) (336)) ;
> zprintruledimen((scaled) (mem [p + 3 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintruledimen((scaled) (mem [p + 2 ].cint)) ;
> zprint((integer) (328)) ;
> zprintruledimen((scaled) (mem [p + 1 ].cint)) ;
> }
> break ;
> case 3 :
> {
> zprintesc((strnumber) (337)) ;
> zprintint((longinteger) (mem [p ].hh.u.B1)) ;
> zprint((integer) (338)) ;
> zprintscaled((scaled) (mem [p + 3 ].cint)) ;
> zprint((integer) (339)) ;
> zprintspec((integer) (mem [p + 4 ].hh .v.RH), (strnumber) (0)) ;
> zprintchar((ASCIIcode) (44)) ;
> zprintscaled((scaled) (mem [p + 2 ].cint)) ;
> zprint((integer) (340)) ;
> zprintint((longinteger) (mem [p + 1 ].cint)) ;
> {
> {
> strpool [poolptr ]= 46 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 4 ].hh .v.LH)) ;
> --(poolptr) ;
> }
> }
> break ;
> case 8 :
> switch ( mem [p ].hh.u.B1 )
> {case 0 :
> {
> zprintwritewhatsit((strnumber) (1719), (halfword) (p)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintfilename((integer) (mem [p + 1 ].hh .v.RH), (integer) (mem [p + 2 ].hh .v.LH), (integer) (mem [p + 2 ].hh .v.RH))
> ;
> }
> break ;
> case 1 :
> {
> zprintwritewhatsit((strnumber) (675), (halfword) (p)) ;
> zprintmark((integer) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 2 :
> zprintwritewhatsit((strnumber) (1720), (halfword) (p)) ;
> break ;
> case 3 :
> {
> zprintesc((strnumber) (1721)) ;
> if ( mem [p + 1 ].hh.u.B0 != 64 )
> {
> zprintchar((ASCIIcode) (60)) ;
> zprintint((longinteger) (mem [p + 1 ].hh.u.B0 - 64)) ;
> if ( ( mem [p + 1 ].hh.u.B0 - 64 == 2 ) || ( mem [p + 1 ].hh.u.B0
> - 64 == 3 ) )
> {
> zprintchar((ASCIIcode) (58)) ;
> zprintint((longinteger) (mem [p + 1 ].hh.u.B1 - 64)) ;
> }
> zprintchar((ASCIIcode) (62)) ;
> }
> zprintmark((integer) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 4 :
> {
> zprintesc((strnumber) (1723)) ;
> zprintint((longinteger) (mem [p + 1 ].hh .v.RH)) ;
> zprint((integer) (1869)) ;
> zprintint((longinteger) (mem [p + 1 ].hh.u.B0)) ;
> zprintchar((ASCIIcode) (44)) ;
> zprintint((longinteger) (mem [p + 1 ].hh.u.B1)) ;
> zprintchar((ASCIIcode) (41)) ;
> }
> break ;
> case 6 :
> {
> zprintesc((strnumber) (1724)) ;
> switch ( mem [p + 1 ].hh .v.LH )
> {case 0 :
> ;
> break ;
> case 1 :
> zprint((integer) (997)) ;
> break ;
> case 2 :
> zprint((integer) (1870)) ;
> break ;
> default:
> zconfusion((strnumber) (1871)) ;
> break ;
> }
> zprintmark((integer) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 37 :
> {
> zprintesc((strnumber) (1872)) ;
> zprintint((longinteger) (mem [p + 1 ].hh .v.RH)) ;
> switch ( mem [p + 1 ].hh .v.LH )
> {case 0 :
> zprint((integer) (1873)) ;
> break ;
> case 1 :
> zprint((integer) (1874)) ;
> break ;
> case 2 :
> zprint((integer) (1875)) ;
> break ;
> case 3 :
> zprint((integer) (1876)) ;
> break ;
> default:
> zconfusion((strnumber) (1124)) ;
> break ;
> }
> if ( mem [p + 1 ].hh .v.LH <= 1 )
> zprintmark((integer) (mem [p + 2 ].hh .v.RH)) ;
> }
> break ;
> case 38 :
> {
> zprintesc((strnumber) (1725)) ;
> zprintmark((integer) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 39 :
> {
> zprintesc((strnumber) (1726)) ;
> }
> break ;
> case 40 :
> {
> zprintesc((strnumber) (1727)) ;
> }
> break ;
> case 8 :
> {
> zprintesc((strnumber) (1729)) ;
> if ( pdfmem [objtab [mem [p + 1 ].hh .v.LH ].int4 + 1 ]> 0 )
> {
> if ( pdfmem [objtab [mem [p + 1 ].hh .v.LH ].int4 + 2 ]!=
> -268435455L )
> {
> zprint((integer) (1877)) ;
> zprintmark((integer) (pdfmem [objtab [mem [p + 1 ].hh .v.LH ].int4 + 2 ]))
> ;
> }
> zprint((integer) (1878)) ;
> }
> if ( pdfmem [objtab [mem [p + 1 ].hh .v.LH ].int4 + 3 ]> 0 )
> zprint((integer) (1879)) ;
> zprintmark((integer) (pdfmem [objtab [mem [p + 1 ].hh .v.LH ].int4 + 0 ]))
> ;
> }
> break ;
> case 10 :
> {
> zprintesc((strnumber) (1731)) ;
> zprint((integer) (40)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 1 ]))
> ;
> zprintchar((ASCIIcode) (43)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 2 ]))
> ;
> zprint((integer) (328)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 0 ]))
> ;
> }
> break ;
> case 12 :
> {
> zprintesc((strnumber) (1733)) ;
> zprint((integer) (40)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 1 ]))
> ;
> zprintchar((ASCIIcode) (43)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 2 ]))
> ;
> zprint((integer) (328)) ;
> zprintscaled((scaled) (pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 0 ]))
> ;
> }
> break ;
> case 13 :
> {
> zprintesc((strnumber) (1734)) ;
> zprint((integer) (40)) ;
> zprintruledimen((scaled) (mem [p + 2 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintruledimen((scaled) (mem [p + 3 ].cint)) ;
> zprint((integer) (328)) ;
> zprintruledimen((scaled) (mem [p + 1 ].cint)) ;
> zprintmark((integer) (mem [p + 5 ].hh .v.LH)) ;
> }
> break ;
> case 14 :
> {
> zprintesc((strnumber) (1735)) ;
> zprint((integer) (40)) ;
> zprintruledimen((scaled) (mem [p + 2 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintruledimen((scaled) (mem [p + 3 ].cint)) ;
> zprint((integer) (328)) ;
> zprintruledimen((scaled) (mem [p + 1 ].cint)) ;
> if ( mem [p + 5 ].hh .v.LH != -268435455L )
> {
> zprint((integer) (1877)) ;
> zprintmark((integer) (mem [p + 5 ].hh .v.LH)) ;
> }
> zprint((integer) (1880)) ;
> if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B0 == 3 )
> {
> zprint((integer) (1881)) ;
> zprintmark((integer) (mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.LH)) ;
> }
> else {
>
> if ( mem [mem [p + 5 ].hh .v.RH + 1 ].hh .v.LH != -268435455L
> )
> {
> zprint((integer) (1879)) ;
> zprintmark((integer) (mem [mem [p + 5 ].hh .v.RH + 1 ].hh .v.LH)) ;
> }
> switch ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B0 )
> {case 1 :
> {
> if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B1 > 0 )
> {
> zprint((integer) (1882)) ;
> zprintmark((integer) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH)) ;
> }
> else {
>
> zprint((integer) (1883)) ;
> zprintint((longinteger) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH)) ;
> }
> }
> break ;
> case 0 :
> {
> zprint((integer) (997)) ;
> zprintint((longinteger) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH)) ;
> zprintmark((integer) (mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.LH)) ;
> }
> break ;
> case 2 :
> {
> if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B1 > 0 )
> {
> zprint((integer) (1884)) ;
> zprintmark((integer) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH)) ;
> }
> else {
>
> zprint((integer) (1885)) ;
> zprintint((longinteger) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH)) ;
> }
> }
> break ;
> default:
> zpdferror((strnumber) (1886), (strnumber) (1887)) ;
> break ;
> }
> }
> }
> break ;
> case 15 :
> zprintesc((strnumber) (1736)) ;
> break ;
> case 17 :
> {
> zprintesc((strnumber) (1738)) ;
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> {
> zprint((integer) (1888)) ;
> zprintmark((integer) (mem [p + 5 ].hh .v.RH)) ;
> }
> else {
>
> zprint((integer) (1889)) ;
> zprintint((longinteger) (mem [p + 5 ].hh .v.RH)) ;
> }
> zprint((integer) (32)) ;
> switch ( mem [p + 5 ].hh.u.B0 )
> {case 0 :
> {
> zprint((integer) (1833)) ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> {
> zprint((integer) (1890)) ;
> zprintint((longinteger) (mem [p + 6 ].hh .v.LH)) ;
> }
> }
> break ;
> case 5 :
> zprint((integer) (1835)) ;
> break ;
> case 6 :
> zprint((integer) (1836)) ;
> break ;
> case 4 :
> zprint((integer) (1837)) ;
> break ;
> case 2 :
> zprint((integer) (1838)) ;
> break ;
> case 3 :
> zprint((integer) (1839)) ;
> break ;
> case 7 :
> {
> zprint((integer) (1840)) ;
> zprint((integer) (40)) ;
> zprintruledimen((scaled) (mem [p + 2 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintruledimen((scaled) (mem [p + 3 ].cint)) ;
> zprint((integer) (328)) ;
> zprintruledimen((scaled) (mem [p + 1 ].cint)) ;
> }
> break ;
> case 1 :
> zprint((integer) (1841)) ;
> break ;
> default:
> zprint((integer) (1891)) ;
> break ;
> }
> }
> break ;
> case 18 :
> case 19 :
> {
> if ( mem [p ].hh.u.B1 == 18 )
> zprintesc((strnumber) (1739)) ;
> else zprintesc((strnumber) (1740)) ;
> zprint((integer) (40)) ;
> zprintruledimen((scaled) (mem [p + 2 ].cint)) ;
> zprintchar((ASCIIcode) (43)) ;
> zprintruledimen((scaled) (mem [p + 3 ].cint)) ;
> zprint((integer) (328)) ;
> zprintruledimen((scaled) (mem [p + 1 ].cint)) ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> {
> zprint((integer) (1877)) ;
> zprintmark((integer) (mem [p + 6 ].hh .v.LH)) ;
> }
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> {
> zprint((integer) (1888)) ;
> zprintmark((integer) (mem [p + 5 ].hh .v.RH)) ;
> }
> else {
>
> zprint((integer) (1889)) ;
> zprintint((longinteger) (mem [p + 5 ].hh .v.RH)) ;
> }
> }
> break ;
> case 20 :
> zprintesc((strnumber) (1741)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (1742)) ;
> break ;
> case 33 :
> zprintesc((strnumber) (1743)) ;
> break ;
> case 34 :
> {
> zprintesc((strnumber) (1744)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprintspec((integer) (mem [p + 1 ].hh .v.LH), (strnumber) (0)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprintspec((integer) (mem [p + 2 ].cint), (strnumber) (0)) ;
> }
> break ;
> case 35 :
> {
> zprintesc((strnumber) (1745)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprintint((longinteger) (mem [p + 1 ].cint)) ;
> }
> break ;
> case 42 :
> zprintesc((strnumber) (1759)) ;
> break ;
> case 43 :
> zprintesc((strnumber) (1760)) ;
> break ;
> case 44 :
> zprintesc((strnumber) (1761)) ;
> break ;
> default:
> zprint((integer) (1892)) ;
> break ;
> }
> break ;
> case 10 :
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> zprintesc((strnumber) (345)) ;
> if ( mem [p ].hh.u.B1 == 101 )
> zprintchar((ASCIIcode) (99)) ;
> else if ( mem [p ].hh.u.B1 == 102 )
> zprintchar((ASCIIcode) (120)) ;
> zprint((integer) (346)) ;
> zprintspec((integer) (mem [p + 1 ].hh .v.LH), (strnumber) (0)) ;
> {
> {
> strpool [poolptr ]= 46 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].hh .v.RH)) ;
> --(poolptr) ;
> }
> }
> else {
>
> zprintesc((strnumber) (341)) ;
> if ( mem [p ].hh.u.B1 != 0 )
> {
> zprintchar((ASCIIcode) (40)) ;
> if ( mem [p ].hh.u.B1 < 98 )
> zprintskipparam((integer) (mem [p ].hh.u.B1 - 1)) ;
> else if ( mem [p ].hh.u.B1 == 98 )
> zprintesc((strnumber) (342)) ;
> else zprintesc((strnumber) (343)) ;
> zprintchar((ASCIIcode) (41)) ;
> }
> if ( mem [p ].hh.u.B1 != 98 )
> {
> zprintchar((ASCIIcode) (32)) ;
> if ( mem [p ].hh.u.B1 < 98 )
> zprintspec((integer) (mem [p + 1 ].hh .v.LH), (strnumber) (0)) ;
> else zprintspec((integer) (mem [p + 1 ].hh .v.LH), (strnumber) (344)) ;
> }
> }
> break ;
> case 40 :
> {
> zprintesc((strnumber) (322)) ;
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> if ( mem [p ].hh.u.B1 == 0 )
> zprint((integer) (323)) ;
> else zprint((integer) (324)) ;
> }
> break ;
> case 11 :
> if ( mem [p ].hh.u.B1 != 99 )
> {
> zprintesc((strnumber) (322)) ;
> if ( mem [p ].hh.u.B1 != 0 )
> zprintchar((ASCIIcode) (32)) ;
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> if ( mem [p ].hh.u.B1 == 2 )
> zprint((integer) (347)) ;
> }
> else {
>
> zprintesc((strnumber) (348)) ;
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> zprint((integer) (344)) ;
> }
> break ;
> case 9 :
> if ( mem [p ].hh.u.B1 > 1 )
> {
> if ( ((mem [p ].hh.u.B1) & 1) )
> zprintesc((strnumber) (349)) ;
> else zprintesc((strnumber) (350)) ;
> if ( mem [p ].hh.u.B1 > 8 )
> zprintchar((ASCIIcode) (82)) ;
> else if ( mem [p ].hh.u.B1 > 4 )
> zprintchar((ASCIIcode) (76)) ;
> else zprintchar((ASCIIcode) (77)) ;
> }
> else {
>
> zprintesc((strnumber) (351)) ;
> if ( mem [p ].hh.u.B1 == 0 )
> zprint((integer) (352)) ;
> else zprint((integer) (353)) ;
> if ( mem [p + 1 ].cint != 0 )
> {
> zprint((integer) (354)) ;
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> }
> }
> break ;
> case 6 :
> {
> zprintfontandchar((integer) (p + 1)) ;
> zprint((integer) (355)) ;
> if ( mem [p ].hh.u.B1 > 1 )
> zprintchar((ASCIIcode) (124)) ;
> fontinshortdisplay = mem [p + 1 ].hh.u.B0 ;
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> if ( ((mem [p ].hh.u.B1) & 1) )
> zprintchar((ASCIIcode) (124)) ;
> zprintchar((ASCIIcode) (41)) ;
> }
> break ;
> case 12 :
> {
> zprintesc((strnumber) (356)) ;
> zprintint((longinteger) (mem [p + 1 ].cint)) ;
> }
> break ;
> case 7 :
> {
> zprintesc((strnumber) (357)) ;
> if ( mem [p ].hh.u.B1 > 0 )
> {
> zprint((integer) (358)) ;
> zprintint((longinteger) (mem [p ].hh.u.B1)) ;
> }
> {
> {
> strpool [poolptr ]= 46 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].hh .v.LH)) ;
> --(poolptr) ;
> }
> {
> strpool [poolptr ]= 124 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].hh .v.RH)) ;
> --(poolptr) ;
> }
> break ;
> case 4 :
> {
> zprintesc((strnumber) (359)) ;
> if ( mem [p + 1 ].hh .v.LH != 0 )
> {
> zprintchar((ASCIIcode) (115)) ;
> zprintint((longinteger) (mem [p + 1 ].hh .v.LH)) ;
> }
> zprintmark((integer) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 5 :
> {
> zprintesc((strnumber) (360)) ;
> if ( mem [p ].hh.u.B1 != 0 )
> zprint((integer) (361)) ;
> {
> {
> strpool [poolptr ]= 46 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].cint)) ;
> --(poolptr) ;
> }
> }
> break ;
> case 14 :
> zprintstyle((integer) (mem [p ].hh.u.B1)) ;
> break ;
> case 15 :
> {
> zprintesc((strnumber) (601)) ;
> {
> strpool [poolptr ]= 68 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].hh .v.LH)) ;
> --(poolptr) ;
> {
> strpool [poolptr ]= 84 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 1 ].hh .v.RH)) ;
> --(poolptr) ;
> {
> strpool [poolptr ]= 83 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 2 ].hh .v.LH)) ;
> --(poolptr) ;
> {
> strpool [poolptr ]= 115 ;
> ++(poolptr) ;
> }
> zshownodelist((integer) (mem [p + 2 ].hh .v.RH)) ;
> --(poolptr) ;
> }
> break ;
> case 16 :
> case 17 :
> case 18 :
> case 19 :
> case 20 :
> case 21 :
> case 22 :
> case 23 :
> case 24 :
> case 27 :
> case 26 :
> case 29 :
> case 28 :
> case 30 :
> case 31 :
> {
> switch ( mem [p ].hh.u.B0 )
> {case 16 :
> zprintesc((strnumber) (1262)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (1263)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (1264)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (1265)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (1266)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (1267)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (1268)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (1269)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (1270)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (1271)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (616)) ;
> break ;
> case 24 :
> {
> zprintesc((strnumber) (610)) ;
> zprintdelimiter((halfword) (p + 4)) ;
> }
> break ;
> case 28 :
> {
> zprintesc((strnumber) (581)) ;
> zprintfamandchar((halfword) (p + 4)) ;
> }
> break ;
> case 30 :
> {
> zprintesc((strnumber) (1272)) ;
> zprintdelimiter((halfword) (p + 1)) ;
> }
> break ;
> case 31 :
> {
> if ( mem [p ].hh.u.B1 == 0 )
> zprintesc((strnumber) (1273)) ;
> else zprintesc((strnumber) (1274)) ;
> zprintdelimiter((halfword) (p + 1)) ;
> }
> break ;
> }
> if ( mem [p ].hh.u.B0 < 30 )
> {
> if ( mem [p ].hh.u.B1 != 0 ) {
>
> if ( mem [p ].hh.u.B1 == 1 )
> zprintesc((strnumber) (1275)) ;
> else zprintesc((strnumber) (1276)) ;
> }
> zprintsubsidiarydata((halfword) (p + 1), (ASCIIcode) (46)) ;
> }
> zprintsubsidiarydata((halfword) (p + 2), (ASCIIcode) (94)) ;
> zprintsubsidiarydata((halfword) (p + 3), (ASCIIcode) (95)) ;
> }
> break ;
> case 25 :
> {
> zprintesc((strnumber) (1277)) ;
> if ( mem [p + 1 ].cint == 1073741824L )
> zprint((integer) (1278)) ;
> else zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> if ( ( mem [p + 4 ].qqqq .u.B0 != 0 ) || ( mem [p + 4 ].qqqq .u.B1 !=
> 0 ) || ( mem [p + 4 ].qqqq .u.B2 != 0 ) || ( mem [p + 4 ].qqqq .u.B3
> != 0 ) )
> {
> zprint((integer) (1279)) ;
> zprintdelimiter((halfword) (p + 4)) ;
> }
> if ( ( mem [p + 5 ].qqqq .u.B0 != 0 ) || ( mem [p + 5 ].qqqq .u.B1 !=
> 0 ) || ( mem [p + 5 ].qqqq .u.B2 != 0 ) || ( mem [p + 5 ].qqqq .u.B3
> != 0 ) )
> {
> zprint((integer) (1280)) ;
> zprintdelimiter((halfword) (p + 5)) ;
> }
> zprintsubsidiarydata((halfword) (p + 2), (ASCIIcode) (92)) ;
> zprintsubsidiarydata((halfword) (p + 3), (ASCIIcode) (47)) ;
> }
> break ;
> default:
> zprint((integer) (325)) ;
> break ;
> }
> p = mem [p ].hh .v.RH ;
> }
>}
>void
>zshowbox ( halfword p )
>{
> register memoryword *eqtb=zeqtb;
> depththreshold = eqtb [27202 ].cint ;
> breadthmax = eqtb [27201 ].cint ;
> if ( breadthmax <= 0 )
> breadthmax = 5 ;
> if ( poolptr + depththreshold >= poolsize )
> depththreshold = poolsize - poolptr - 1 ;
> zshownodelist((integer) (p)) ;
> println () ;
>}
>void
>zdeletetokenref ( halfword p )
>{
> register memoryword *mem=zmem;
> if ( mem [p ].hh .v.LH == -268435455L )
> zflushlist((halfword) (p)) ;
> else --(mem [p ].hh .v.LH) ;
>}
>void
>zdeleteglueref ( halfword p )
>{
> register memoryword *mem=zmem;
> if ( mem [p ].hh .v.RH == -268435455L )
> zfreenode((halfword) (p), (halfword) (4)) ;
> else --(mem [p ].hh .v.RH) ;
>}
>void
>zflushnodelist ( halfword p )
>{
> register memoryword *mem=zmem;
> halfword q ;
> while ( p != -268435455L ) {
>
> q = mem [p ].hh .v.RH ;
> if ( ( p >= himemmin ) )
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 13 :
> {
> zflushnodelist((halfword) (mem [p + 5 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (9)) ;
> goto lab30 ;
> }
> break ;
> case 2 :
> {
> zfreenode((halfword) (p), (halfword) (6)) ;
> goto lab30 ;
> }
> break ;
> case 3 :
> {
> zflushnodelist((halfword) (mem [p + 4 ].hh .v.LH)) ;
> zdeleteglueref((halfword) (mem [p + 4 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (5)) ;
> goto lab30 ;
> }
> break ;
> case 8 :
> {
> switch ( mem [p ].hh.u.B1 )
> {case 0 :
> zfreenode((halfword) (p), (halfword) (3)) ;
> break ;
> case 1 :
> case 3 :
> {
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> goto lab30 ;
> }
> break ;
> case 2 :
> case 4 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 6 :
> {
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> break ;
> case 37 :
> {
> if ( mem [p + 1 ].hh .v.LH <= 1 )
> {
> zdeletetokenref((halfword) (mem [p + 2 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
> else zfreenode((halfword) (p), (halfword) (2)) ;
> }
> break ;
> case 38 :
> {
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> break ;
> case 39 :
> {
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> break ;
> case 40 :
> {
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> break ;
> case 8 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 10 :
> zfreenode((halfword) (p), (halfword) (5)) ;
> break ;
> case 12 :
> zfreenode((halfword) (p), (halfword) (5)) ;
> break ;
> case 13 :
> {
> zdeletetokenref((halfword) (mem [p + 5 ].hh .v.LH)) ;
> zfreenode((halfword) (p), (halfword) (7)) ;
> }
> break ;
> case 14 :
> {
> if ( mem [p + 5 ].hh .v.LH != -268435455L )
> zdeletetokenref((halfword) (mem [p + 5 ].hh .v.LH)) ;
> {
> if ( mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.RH ==
> -268435455L )
> {
> if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B0 == 3 )
> zdeletetokenref((halfword) (mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.LH))
> ;
> else {
>
> if ( mem [mem [p + 5 ].hh .v.RH + 1 ].hh .v.LH !=
> -268435455L )
> zdeletetokenref((halfword) (mem [mem [p + 5 ].hh .v.RH + 1 ].hh .v.LH))
> ;
> if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B0 == 0 )
> zdeletetokenref((halfword) (mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.LH))
> ;
> else if ( mem [mem [p + 5 ].hh .v.RH ].hh.u.B1 > 0 )
> zdeletetokenref((halfword) (mem [mem [p + 5 ].hh .v.RH ].hh .v.RH))
> ;
> }
> zfreenode((halfword) (mem [p + 5 ].hh .v.RH), (halfword) (3)) ;
> }
> else --(mem [mem [p + 5 ].hh .v.RH + 2 ].hh .v.RH) ;
> }
> zfreenode((halfword) (p), (halfword) (7)) ;
> }
> break ;
> case 15 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 17 :
> {
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> zdeletetokenref((halfword) (mem [p + 5 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (7)) ;
> }
> break ;
> case 18 :
> case 19 :
> {
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> zdeletetokenref((halfword) (mem [p + 5 ].hh .v.RH)) ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> zdeletetokenref((halfword) (mem [p + 6 ].hh .v.LH)) ;
> zfreenode((halfword) (p), (halfword) (7)) ;
> }
> break ;
> case 20 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 21 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 33 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 34 :
> {
> zdeleteglueref((halfword) (mem [p + 1 ].hh .v.LH)) ;
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
> break ;
> case 35 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 42 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 43 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> case 44 :
> zfreenode((halfword) (p), (halfword) (2)) ;
> break ;
> default:
> zconfusion((strnumber) (1894)) ;
> break ;
> }
> goto lab30 ;
> }
> break ;
> case 10 :
> {
> {
> if ( mem [mem [p + 1 ].hh .v.LH ].hh .v.RH == -268435455L )
> zfreenode((halfword) (mem [p + 1 ].hh .v.LH), (halfword) (4)) ;
> else --(mem [mem [p + 1 ].hh .v.LH ].hh .v.RH) ;
> }
> if ( mem [p + 1 ].hh .v.RH != -268435455L )
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (4)) ;
> goto lab30 ;
> }
> break ;
> case 11 :
> case 9 :
> case 12 :
> {
> zfreenode((halfword) (p), (halfword) (4)) ;
> goto lab30 ;
> }
> break ;
> case 40 :
> {
> {
> mem [mem [p + 2 ].hh .v.LH ].hh .v.RH = avail ;
> avail = mem [p + 2 ].hh .v.LH ;
> ;
>
> --(dynused) ;
>
> }
> zfreenode((halfword) (p), (halfword) (3)) ;
> goto lab30 ;
> }
> break ;
> case 6 :
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> break ;
> case 4 :
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> break ;
> case 7 :
> {
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 5 :
> zflushnodelist((halfword) (mem [p + 1 ].cint)) ;
> break ;
> case 14 :
> {
> zfreenode((halfword) (p), (halfword) (3)) ;
> goto lab30 ;
> }
> break ;
> case 15 :
> {
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> zflushnodelist((halfword) (mem [p + 2 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [p + 2 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (3)) ;
> goto lab30 ;
> }
> break ;
> case 16 :
> case 17 :
> case 18 :
> case 19 :
> case 20 :
> case 21 :
> case 22 :
> case 23 :
> case 24 :
> case 27 :
> case 26 :
> case 29 :
> case 28 :
> {
> if ( mem [p + 1 ].hh .v.RH >= 2 )
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.LH)) ;
> if ( mem [p + 2 ].hh .v.RH >= 2 )
> zflushnodelist((halfword) (mem [p + 2 ].hh .v.LH)) ;
> if ( mem [p + 3 ].hh .v.RH >= 2 )
> zflushnodelist((halfword) (mem [p + 3 ].hh .v.LH)) ;
> if ( mem [p ].hh.u.B0 == 24 )
> zfreenode((halfword) (p), (halfword) (5)) ;
> else if ( mem [p ].hh.u.B0 == 28 )
> zfreenode((halfword) (p), (halfword) (5)) ;
> else zfreenode((halfword) (p), (halfword) (4)) ;
> goto lab30 ;
> }
> break ;
> case 30 :
> case 31 :
> {
> zfreenode((halfword) (p), (halfword) (4)) ;
> goto lab30 ;
> }
> break ;
> case 25 :
> {
> zflushnodelist((halfword) (mem [p + 2 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [p + 3 ].hh .v.LH)) ;
> zfreenode((halfword) (p), (halfword) (6)) ;
> goto lab30 ;
> }
> break ;
> default:
> zconfusion((strnumber) (362)) ;
> break ;
> }
> zfreenode((halfword) (p), (halfword) (2)) ;
> lab30: ;
> }
> p = q ;
> }
>}
>halfword
>zcopynodelist ( halfword p )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword h ;
> halfword q ;
> halfword r ;
> unsigned char words ;
> h = getavail () ;
> q = h ;
> while ( p != -268435455L ) {
>
> words = 1 ;
> if ( ( p >= himemmin ) )
> r = getavail () ;
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 13 :
> {
> r = zgetnode((integer) (9)) ;
> mem [r + 7 ].cint = mem [p + 7 ].cint ;
> mem [r + 8 ].cint = mem [p + 8 ].cint ;
> mem [r + 6 ]= mem [p + 6 ];
> mem [r + 5 ]= mem [p + 5 ];
> mem [r + 5 ].hh .v.RH = zcopynodelist((halfword) (mem [p + 5 ].hh .v.RH)) ;
> words = 5 ;
> }
> break ;
> case 2 :
> {
> r = zgetnode((integer) (6)) ;
> words = 4 ;
> }
> break ;
> case 3 :
> {
> r = zgetnode((integer) (5)) ;
> mem [r + 4 ]= mem [p + 4 ];
> ++(mem [mem [p + 4 ].hh .v.RH ].hh .v.RH) ;
> mem [r + 4 ].hh .v.LH = zcopynodelist((halfword) (mem [p + 4 ].hh .v.LH)) ;
> words = 4 ;
> }
> break ;
> case 8 :
> switch ( mem [p ].hh.u.B1 )
> {case 0 :
> {
> r = zgetnode((integer) (3)) ;
> words = 3 ;
> }
> break ;
> case 1 :
> case 3 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 2 :
> case 4 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 6 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 37 :
> {
> if ( mem [p + 1 ].hh .v.LH <= 1 )
> {
> r = zgetnode((integer) (3)) ;
> ++(mem [mem [p + 2 ].hh .v.RH ].hh .v.LH) ;
> words = 3 ;
> }
> else {
>
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> }
> break ;
> case 38 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 39 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 40 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 8 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 10 :
> {
> r = zgetnode((integer) (5)) ;
> words = 5 ;
> }
> break ;
> case 12 :
> {
> r = zgetnode((integer) (5)) ;
> words = 5 ;
> }
> break ;
> case 13 :
> {
> r = zgetnode((integer) (7)) ;
> ++(mem [mem [p + 5 ].hh .v.LH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 14 :
> {
> r = zgetnode((integer) (7)) ;
> mem [r + 2 ].cint = mem [p + 2 ].cint ;
> mem [r + 3 ].cint = mem [p + 3 ].cint ;
> mem [r + 1 ].cint = mem [p + 1 ].cint ;
> mem [r + 5 ].hh .v.LH = mem [p + 5 ].hh .v.LH ;
> if ( mem [r + 5 ].hh .v.LH != -268435455L )
> ++(mem [mem [r + 5 ].hh .v.LH ].hh .v.LH) ;
> mem [r + 5 ].hh .v.RH = mem [p + 5 ].hh .v.RH ;
> ++(mem [mem [r + 5 ].hh .v.RH + 2 ].hh .v.RH) ;
> mem [r + 6 ].cint = mem [p + 6 ].cint ;
> }
> break ;
> case 15 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 17 :
> {
> r = zgetnode((integer) (7)) ;
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 18 :
> case 19 :
> {
> r = zgetnode((integer) (7)) ;
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> ++(mem [mem [p + 6 ].hh .v.LH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 20 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 21 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 33 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 34 :
> {
> ++(mem [mem [p + 1 ].hh .v.LH ].hh .v.RH) ;
> r = zgetnode((integer) (3)) ;
> words = 3 ;
> }
> break ;
> case 35 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 42 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 43 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 44 :
> r = zgetnode((integer) (2)) ;
> break ;
> default:
> zconfusion((strnumber) (1893)) ;
> break ;
> }
> break ;
> case 10 :
> {
> r = zgetnode((integer) (4)) ;
> ++(mem [mem [p + 1 ].hh .v.LH ].hh .v.RH) ;
> mem [r + 2 ].cint = mem [p + 2 ].cint ;
> mem [r + 3 ].cint = mem [p + 3 ].cint ;
> mem [r + 1 ].hh .v.LH = mem [p + 1 ].hh .v.LH ;
> mem [r + 1 ].hh .v.RH = zcopynodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 11 :
> case 9 :
> case 12 :
> {
> r = zgetnode((integer) (4)) ;
> words = 4 ;
> }
> break ;
> case 40 :
> {
> r = zgetnode((integer) (3)) ;
> {
> mem [r + 2 ].hh .v.LH = avail ;
> if ( mem [r + 2 ].hh .v.LH == -268435455L )
> mem [r + 2 ].hh .v.LH = getavail () ;
> else {
>
> avail = mem [mem [r + 2 ].hh .v.LH ].hh .v.RH ;
> mem [mem [r + 2 ].hh .v.LH ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [mem [r + 2 ].hh .v.LH ].hh.u.B0 = mem [mem [p + 2 ].hh .v.LH
> ].hh.u.B0 ;
> mem [mem [r + 2 ].hh .v.LH ].hh.u.B1 = mem [mem [p + 2 ].hh .v.LH
> ].hh.u.B1 ;
> words = 2 ;
> }
> break ;
> case 6 :
> {
> r = zgetnode((integer) (2)) ;
> mem [r + 1 ]= mem [p + 1 ];
> mem [r + 1 ].hh .v.RH = zcopynodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 7 :
> {
> r = zgetnode((integer) (2)) ;
> mem [r + 1 ].hh .v.LH = zcopynodelist((halfword) (mem [p + 1 ].hh .v.LH)) ;
> mem [r + 1 ].hh .v.RH = zcopynodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> }
> break ;
> case 4 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 5 :
> {
> r = zgetnode((integer) (2)) ;
> mem [r + 1 ].cint = zcopynodelist((halfword) (mem [p + 1 ].cint)) ;
> }
> break ;
> default:
> zconfusion((strnumber) (363)) ;
> break ;
> }
> while ( words > 0 ) {
>
> --(words) ;
> mem [r + words ]= mem [p + words ];
> }
> mem [q ].hh .v.RH = r ;
> q = r ;
> p = mem [p ].hh .v.RH ;
> }
> mem [q ].hh .v.RH = -268435455L ;
> q = mem [h ].hh .v.RH ;
> {
> mem [h ].hh .v.RH = avail ;
> avail = h ;
> ;
>
> --(dynused) ;
>
> }
> Result = q ;
> return Result ;
>}
>void
>zprintmode ( integer m )
>{
> 
> if ( m > 0 )
> switch ( m / ( 103 ) )
> {case 0 :
> zprint((integer) (364)) ;
> break ;
> case 1 :
> zprint((integer) (365)) ;
> break ;
> case 2 :
> zprint((integer) (366)) ;
> break ;
> }
> else if ( m == 0 )
> zprint((integer) (367)) ;
> else switch ( ( - (integer) m ) / ( 103 ) )
> {case 0 :
> zprint((integer) (368)) ;
> break ;
> case 1 :
> zprint((integer) (369)) ;
> break ;
> case 2 :
> zprint((integer) (370)) ;
> break ;
> }
>}
>void
>zprintinmode ( integer m )
>{
> 
> if ( m > 0 )
> switch ( m / ( 103 ) )
> {case 0 :
> zprint((integer) (371)) ;
> break ;
> case 1 :
> zprint((integer) (372)) ;
> break ;
> case 2 :
> zprint((integer) (373)) ;
> break ;
> }
> else if ( m == 0 )
> zprint((integer) (374)) ;
> else switch ( ( - (integer) m ) / ( 103 ) )
> {case 0 :
> zprint((integer) (375)) ;
> break ;
> case 1 :
> zprint((integer) (376)) ;
> break ;
> case 2 :
> zprint((integer) (377)) ;
> break ;
> }
>}
>void
>pushnest ( void )
>{
> 
> if ( nestptr > maxneststack )
> {
> maxneststack = nestptr ;
> if ( nestptr == nestsize )
> zoverflow((strnumber) (378), (integer) (nestsize)) ;
> }
> nest [nestptr ]= curlist ;
> ++(nestptr) ;
> curlist .headfield = getavail () ;
> curlist .tailfield = curlist .headfield ;
> curlist .pgfield = 0 ;
> curlist .mlfield = line ;
> curlist .eTeXauxfield = -268435455L ;
>}
>void
>popnest ( void )
>{
> register memoryword *mem=zmem;
> {
> mem [curlist .headfield ].hh .v.RH = avail ;
> avail = curlist .headfield ;
> ;
>
> --(dynused) ;
>
> }
> --(nestptr) ;
> curlist = nest [nestptr ];
>}
>void
>showactivities ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer p ;
> short m ;
> memoryword a ;
> halfword q, r ;
> integer t ;
> nest [nestptr ]= curlist ;
> zprintnl((strnumber) (345)) ;
> println () ;
> {register integer for_end; p = nestptr ;for_end = 0 ; if ( p >= for_end)
> do
> {
> m = nest [p ].modefield ;
> a = nest [p ].auxfield ;
> zprintnl((strnumber) (379)) ;
> zprintmode((integer) (m)) ;
> zprint((integer) (380)) ;
> zprintint((longinteger) (((integer)(nest [p ].mlfield) >= 0 ? (integer)(nest [p ].mlfield) : (integer)-(nest [p ].mlfield)))) ;
> if ( m == 104 ) {
>
> if ( nest [p ].pgfield != 8585216L )
> {
> zprint((integer) (381)) ;
> zprintint((longinteger) (nest [p ].pgfield % 65536L)) ;
> zprint((integer) (382)) ;
> zprintint((longinteger) (nest [p ].pgfield / 4194304L)) ;
> zprintchar((ASCIIcode) (44)) ;
> zprintint((longinteger) (( nest [p ].pgfield / 65536L ) % 64)) ;
> zprintchar((ASCIIcode) (41)) ;
> }
> }
> if ( nest [p ].mlfield < 0 )
> zprint((integer) (383)) ;
> if ( p == 0 )
> {
> if ( memtop - 2 != pagetail )
> {
> zprintnl((strnumber) (1383)) ;
> if ( outputactive )
> zprint((integer) (1384)) ;
> zshowbox((halfword) (mem [memtop - 2 ].hh .v.RH)) ;
> if ( pagecontents > 0 )
> {
> zprintnl((strnumber) (1385)) ;
> printtotals () ;
> zprintnl((strnumber) (1386)) ;
> zprintscaled((scaled) (pagesofar [0 ])) ;
> r = mem [memtop ].hh .v.RH ;
> while ( r != memtop ) {
>
> println () ;
> zprintesc((strnumber) (337)) ;
> t = mem [r ].hh.u.B1 ;
> zprintint((longinteger) (t)) ;
> zprint((integer) (1387)) ;
> if ( eqtb [27280 + t ].cint == 1000 )
> t = mem [r + 3 ].cint ;
> else t = zxovern((scaled) (mem [r + 3 ].cint), (integer) (1000)) * eqtb [27280 +
> t ].cint ;
> zprintscaled((scaled) (t)) ;
> if ( mem [r ].hh.u.B0 == 1 )
> {
> q = memtop - 2 ;
> t = 0 ;
> do {
> q = mem [q ].hh .v.RH ;
> if ( ( mem [q ].hh.u.B0 == 3 ) && ( mem [q ].hh.u.B1 == mem
> [r ].hh.u.B1 ) )
> ++(t) ;
> } while ( ! ( q == mem [r + 1 ].hh .v.LH ) ) ;
> zprint((integer) (1388)) ;
> zprintint((longinteger) (t)) ;
> zprint((integer) (1389)) ;
> }
> r = mem [r ].hh .v.RH ;
> }
> }
> }
> if ( mem [memtop - 1 ].hh .v.RH != -268435455L )
> zprintnl((strnumber) (384)) ;
> }
> zshowbox((halfword) (mem [nest [p ].headfield ].hh .v.RH)) ;
> switch ( ((integer)(m) >= 0 ? (integer)(m) : (integer)-(m)) / ( 103 ) )
> {case 0 :
> {
> zprintnl((strnumber) (385)) ;
> if ( a .cint <= eqtb [27824 ].cint )
> zprint((integer) (386)) ;
> else zprintscaled((scaled) (a .cint)) ;
> if ( nest [p ].pgfield != 0 )
> {
> zprint((integer) (387)) ;
> zprintint((longinteger) (nest [p ].pgfield)) ;
> if ( nest [p ].pgfield != 1 )
> zprint((integer) (388)) ;
> else zprint((integer) (389)) ;
> }
> }
> break ;
> case 1 :
> {
> zprintnl((strnumber) (390)) ;
> zprintint((longinteger) (a .hh .v.LH)) ;
> if ( m > 0 ) {
>
> if ( a .hh .v.RH > 0 )
> {
> zprint((integer) (391)) ;
> zprintint((longinteger) (a .hh .v.RH)) ;
> }
> }
> }
> break ;
> case 2 :
> if ( a .cint != -268435455L )
> {
> zprint((integer) (392)) ;
> zshowbox((halfword) (a .cint)) ;
> }
> break ;
> }
> }
> while ( p-- > for_end ) ;}
>}
>void
>zprintparam ( integer n )
>{
> 
> switch ( n )
> {case 0 :
> zprintesc((strnumber) (440)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (441)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (442)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (443)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (444)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (445)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (446)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (447)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (448)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (449)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (450)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (451)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (452)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (453)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (454)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (455)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (456)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (457)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (458)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (459)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (460)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (461)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (462)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (463)) ;
> break ;
> case 24 :
> zprintesc((strnumber) (464)) ;
> break ;
> case 25 :
> zprintesc((strnumber) (465)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (466)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (467)) ;
> break ;
> case 28 :
> zprintesc((strnumber) (468)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (469)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (470)) ;
> break ;
> case 31 :
> zprintesc((strnumber) (471)) ;
> break ;
> case 32 :
> zprintesc((strnumber) (472)) ;
> break ;
> case 33 :
> zprintesc((strnumber) (473)) ;
> break ;
> case 34 :
> zprintesc((strnumber) (474)) ;
> break ;
> case 35 :
> zprintesc((strnumber) (475)) ;
> break ;
> case 36 :
> zprintesc((strnumber) (476)) ;
> break ;
> case 37 :
> zprintesc((strnumber) (477)) ;
> break ;
> case 38 :
> zprintesc((strnumber) (478)) ;
> break ;
> case 39 :
> zprintesc((strnumber) (479)) ;
> break ;
> case 40 :
> zprintesc((strnumber) (480)) ;
> break ;
> case 41 :
> zprintesc((strnumber) (481)) ;
> break ;
> case 42 :
> zprintesc((strnumber) (482)) ;
> break ;
> case 43 :
> zprintesc((strnumber) (483)) ;
> break ;
> case 44 :
> zprintesc((strnumber) (484)) ;
> break ;
> case 45 :
> zprintesc((strnumber) (485)) ;
> break ;
> case 46 :
> zprintesc((strnumber) (486)) ;
> break ;
> case 47 :
> zprintesc((strnumber) (487)) ;
> break ;
> case 48 :
> zprintesc((strnumber) (488)) ;
> break ;
> case 49 :
> zprintesc((strnumber) (489)) ;
> break ;
> case 50 :
> zprintesc((strnumber) (490)) ;
> break ;
> case 51 :
> zprintesc((strnumber) (491)) ;
> break ;
> case 52 :
> zprintesc((strnumber) (492)) ;
> break ;
> case 53 :
> zprintesc((strnumber) (493)) ;
> break ;
> case 54 :
> zprintesc((strnumber) (494)) ;
> break ;
> case 55 :
> zprintesc((strnumber) (495)) ;
> break ;
> case 56 :
> zprintesc((strnumber) (496)) ;
> break ;
> case 57 :
> zprintesc((strnumber) (497)) ;
> break ;
> case 58 :
> zprintesc((strnumber) (498)) ;
> break ;
> case 59 :
> zprintesc((strnumber) (499)) ;
> break ;
> case 60 :
> zprintesc((strnumber) (500)) ;
> break ;
> case 61 :
> zprintesc((strnumber) (501)) ;
> break ;
> case 62 :
> zprintesc((strnumber) (502)) ;
> break ;
> case 63 :
> zprintesc((strnumber) (503)) ;
> break ;
> case 82 :
> zprintesc((strnumber) (504)) ;
> break ;
> case 64 :
> zprintesc((strnumber) (505)) ;
> break ;
> case 65 :
> zprintesc((strnumber) (506)) ;
> break ;
> case 66 :
> zprintesc((strnumber) (507)) ;
> break ;
> case 67 :
> zprintesc((strnumber) (508)) ;
> break ;
> case 68 :
> zprintesc((strnumber) (509)) ;
> break ;
> case 69 :
> zprintesc((strnumber) (510)) ;
> break ;
> case 70 :
> zprintesc((strnumber) (511)) ;
> break ;
> case 71 :
> zprintesc((strnumber) (512)) ;
> break ;
> case 72 :
> zprintesc((strnumber) (513)) ;
> break ;
> case 73 :
> zprintesc((strnumber) (514)) ;
> break ;
> case 74 :
> zprintesc((strnumber) (515)) ;
> break ;
> case 75 :
> zprintesc((strnumber) (516)) ;
> break ;
> case 76 :
> zprintesc((strnumber) (517)) ;
> break ;
> case 77 :
> zprintesc((strnumber) (518)) ;
> break ;
> case 78 :
> zprintesc((strnumber) (519)) ;
> break ;
> case 79 :
> zprintesc((strnumber) (520)) ;
> break ;
> case 80 :
> zprintesc((strnumber) (521)) ;
> break ;
> case 81 :
> zprintesc((strnumber) (522)) ;
> break ;
> case 83 :
> zprintesc((strnumber) (523)) ;
> break ;
> case 84 :
> zprintesc((strnumber) (524)) ;
> break ;
> case 85 :
> zprintesc((strnumber) (525)) ;
> break ;
> case 86 :
> zprintesc((strnumber) (526)) ;
> break ;
> case 87 :
> zprintesc((strnumber) (527)) ;
> break ;
> case 88 :
> zprintesc((strnumber) (528)) ;
> break ;
> case 89 :
> zprintesc((strnumber) (529)) ;
> break ;
> case 90 :
> zprintesc((strnumber) (530)) ;
> break ;
> case 91 :
> zprintesc((strnumber) (531)) ;
> break ;
> case 102 :
> zprintesc((strnumber) (2063)) ;
> break ;
> case 92 :
> zprintesc((strnumber) (1957)) ;
> break ;
> case 93 :
> zprintesc((strnumber) (1958)) ;
> break ;
> case 94 :
> zprintesc((strnumber) (1959)) ;
> break ;
> case 95 :
> zprintesc((strnumber) (1960)) ;
> break ;
> case 96 :
> zprintesc((strnumber) (1961)) ;
> break ;
> case 97 :
> zprintesc((strnumber) (1962)) ;
> break ;
> case 98 :
> zprintesc((strnumber) (1963)) ;
> break ;
> case 99 :
> zprintesc((strnumber) (1964)) ;
> break ;
> case 100 :
> zprintesc((strnumber) (1965)) ;
> break ;
> case 101 :
> zprintesc((strnumber) (2005)) ;
> break ;
> default:
> zprint((integer) (532)) ;
> break ;
> }
>}
>void
>begindiagnostic ( void )
>{
> register memoryword *eqtb=zeqtb;
> oldsetting = selector ;
> if ( ( eqtb [27206 ].cint <= 0 ) && ( selector == 19 ) )
> {
> --(selector) ;
> if ( history == 0 )
> history = 1 ;
> }
>}
>void
>zenddiagnostic ( boolean blankline )
>{
> 
> zprintnl((strnumber) (345)) ;
> if ( blankline )
> println () ;
> selector = oldsetting ;
>}
>void
>zprintlengthparam ( integer n )
>{
> 
> switch ( n )
> {case 0 :
> zprintesc((strnumber) (536)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (537)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (538)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (539)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (540)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (541)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (542)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (543)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (544)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (545)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (546)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (547)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (548)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (549)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (550)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (551)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (552)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (553)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (554)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (555)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (556)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (557)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (558)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (559)) ;
> break ;
> case 24 :
> zprintesc((strnumber) (560)) ;
> break ;
> case 25 :
> zprintesc((strnumber) (561)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (562)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (563)) ;
> break ;
> case 28 :
> zprintesc((strnumber) (564)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (565)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (566)) ;
> break ;
> case 31 :
> zprintesc((strnumber) (567)) ;
> break ;
> case 32 :
> zprintesc((strnumber) (568)) ;
> break ;
> case 33 :
> zprintesc((strnumber) (569)) ;
> break ;
> default:
> zprint((integer) (570)) ;
> break ;
> }
>}
>void
>zprintcmdchr ( quarterword cmd , halfword chrcode )
>{
> register memoryword *mem=zmem;
> integer n ;
> switch ( cmd )
> {case 1 :
> {
> zprint((integer) (637)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 2 :
> {
> zprint((integer) (638)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 3 :
> {
> zprint((integer) (639)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 6 :
> {
> zprint((integer) (640)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 7 :
> {
> zprint((integer) (641)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 8 :
> {
> zprint((integer) (642)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 9 :
> zprint((integer) (643)) ;
> break ;
> case 10 :
> {
> zprint((integer) (644)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 11 :
> {
> zprint((integer) (645)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 12 :
> {
> zprint((integer) (646)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 75 :
> case 76 :
> if ( chrcode < 24546 )
> zprintskipparam((integer) (chrcode - 24528)) ;
> else if ( chrcode < 24802 )
> {
> zprintesc((strnumber) (412)) ;
> zprintint((longinteger) (chrcode - 24546)) ;
> }
> else {
>
> zprintesc((strnumber) (413)) ;
> zprintint((longinteger) (chrcode - 24802)) ;
> }
> break ;
> case 72 :
> if ( chrcode >= 25073 )
> {
> zprintesc((strnumber) (427)) ;
> zprintint((longinteger) (chrcode - 25073)) ;
> }
> else switch ( chrcode )
> {case 25059 :
> zprintesc((strnumber) (414)) ;
> break ;
> case 25060 :
> zprintesc((strnumber) (415)) ;
> break ;
> case 25061 :
> zprintesc((strnumber) (416)) ;
> break ;
> case 25062 :
> zprintesc((strnumber) (417)) ;
> break ;
> case 25063 :
> zprintesc((strnumber) (418)) ;
> break ;
> case 25064 :
> zprintesc((strnumber) (419)) ;
> break ;
> case 25065 :
> zprintesc((strnumber) (420)) ;
> break ;
> case 25066 :
> zprintesc((strnumber) (421)) ;
> break ;
> case 25072 :
> zprintesc((strnumber) (1956)) ;
> break ;
> case 25068 :
> zprintesc((strnumber) (423)) ;
> break ;
> case 25069 :
> zprintesc((strnumber) (424)) ;
> break ;
> case 25070 :
> zprintesc((strnumber) (425)) ;
> break ;
> case 25071 :
> zprintesc((strnumber) (426)) ;
> break ;
> default:
> zprintesc((strnumber) (422)) ;
> break ;
> }
> break ;
> case 73 :
> if ( chrcode < 27280 )
> zprintparam((integer) (chrcode - 27177)) ;
> else {
>
> zprintesc((strnumber) (534)) ;
> zprintint((longinteger) (chrcode - 27280)) ;
> }
> break ;
> case 74 :
> if ( chrcode < 27826 )
> zprintlengthparam((integer) (chrcode - 27792)) ;
> else {
>
> zprintesc((strnumber) (571)) ;
> zprintint((longinteger) (chrcode - 27826)) ;
> }
> break ;
> case 45 :
> zprintesc((strnumber) (581)) ;
> break ;
> case 90 :
> zprintesc((strnumber) (582)) ;
> break ;
> case 40 :
> zprintesc((strnumber) (583)) ;
> break ;
> case 41 :
> zprintesc((strnumber) (584)) ;
> break ;
> case 77 :
> zprintesc((strnumber) (595)) ;
> break ;
> case 61 :
> zprintesc((strnumber) (585)) ;
> break ;
> case 42 :
> zprintesc((strnumber) (608)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (586)) ;
> break ;
> case 109 :
> zprintesc((strnumber) (577)) ;
> break ;
> case 88 :
> zprintesc((strnumber) (592)) ;
> break ;
> case 101 :
> zprintesc((strnumber) (593)) ;
> break ;
> case 102 :
> zprintesc((strnumber) (594)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (587)) ;
> break ;
> case 92 :
> zprintesc((strnumber) (588)) ;
> break ;
> case 67 :
> if ( chrcode == 10 )
> zprintesc((strnumber) (589)) ;
> else zprintesc((strnumber) (578)) ;
> break ;
> case 62 :
> zprintesc((strnumber) (590)) ;
> break ;
> case 64 :
> zprintesc((strnumber) (32)) ;
> break ;
> case 104 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (591)) ;
> else zprintesc((strnumber) (927)) ;
> break ;
> case 32 :
> zprintesc((strnumber) (596)) ;
> break ;
> case 36 :
> zprintesc((strnumber) (597)) ;
> break ;
> case 39 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (598)) ;
> else zprintesc((strnumber) (574)) ;
> break ;
> case 37 :
> zprintesc((strnumber) (337)) ;
> break ;
> case 44 :
> zprintesc((strnumber) (47)) ;
> break ;
> case 18 :
> {
> zprintesc((strnumber) (359)) ;
> if ( chrcode > 0 )
> zprintchar((ASCIIcode) (115)) ;
> }
> break ;
> case 46 :
> zprintesc((strnumber) (599)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (600)) ;
> break ;
> case 54 :
> zprintesc((strnumber) (601)) ;
> break ;
> case 91 :
> zprintesc((strnumber) (602)) ;
> break ;
> case 34 :
> zprintesc((strnumber) (603)) ;
> break ;
> case 65 :
> zprintesc((strnumber) (604)) ;
> break ;
> case 105 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (605)) ;
> else zprintesc((strnumber) (574)) ;
> break ;
> case 55 :
> zprintesc((strnumber) (342)) ;
> break ;
> case 63 :
> zprintesc((strnumber) (606)) ;
> break ;
> case 66 :
> zprintesc((strnumber) (610)) ;
> break ;
> case 96 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (611)) ;
> else zprintesc((strnumber) (2020)) ;
> break ;
> case 0 :
> zprintesc((strnumber) (612)) ;
> break ;
> case 98 :
> zprintesc((strnumber) (613)) ;
> break ;
> case 80 :
> zprintesc((strnumber) (609)) ;
> break ;
> case 84 :
> switch ( chrcode )
> {case 25058 :
> zprintesc((strnumber) (607)) ;
> break ;
> case 25329 :
> zprintesc((strnumber) (2056)) ;
> break ;
> case 25330 :
> zprintesc((strnumber) (2057)) ;
> break ;
> case 25331 :
> zprintesc((strnumber) (2058)) ;
> break ;
> case 25332 :
> zprintesc((strnumber) (2059)) ;
> break ;
> }
> break ;
> case 111 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (614)) ;
> else if ( chrcode == 1 )
> zprintesc((strnumber) (1995)) ;
> else zprintesc((strnumber) (1996)) ;
> break ;
> case 71 :
> {
> zprintesc((strnumber) (427)) ;
> if ( chrcode != membot )
> zprintsanum((halfword) (chrcode)) ;
> }
> break ;
> case 38 :
> zprintesc((strnumber) (360)) ;
> break ;
> case 33 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (615)) ;
> else switch ( chrcode )
> {case 6 :
> zprintesc((strnumber) (2006)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (2007)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (2008)) ;
> break ;
> default:
> zprintesc((strnumber) (2009)) ;
> break ;
> }
> break ;
> case 56 :
> zprintesc((strnumber) (616)) ;
> break ;
> case 35 :
> zprintesc((strnumber) (617)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (678)) ;
> break ;
> case 106 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (716)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (2018)) ;
> else zprintesc((strnumber) (717)) ;
> break ;
> case 112 :
> {
> switch ( ( chrcode % 5 ) )
> {case 1 :
> zprintesc((strnumber) (719)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (720)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (721)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (722)) ;
> break ;
> default:
> zprintesc((strnumber) (718)) ;
> break ;
> }
> if ( chrcode >= 5 )
> zprintchar((ASCIIcode) (115)) ;
> }
> break ;
> case 89 :
> {
> if ( ( chrcode < membot ) || ( chrcode > membot + 19 ) )
> cmd = ( mem [chrcode ].hh.u.B0 / 16 ) ;
> else {
>
> cmd = chrcode - membot ;
> chrcode = -268435455L ;
> }
> if ( cmd == 0 )
> zprintesc((strnumber) (534)) ;
> else if ( cmd == 1 )
> zprintesc((strnumber) (571)) ;
> else if ( cmd == 2 )
> zprintesc((strnumber) (412)) ;
> else zprintesc((strnumber) (413)) ;
> if ( chrcode != -268435455L )
> zprintsanum((halfword) (chrcode)) ;
> }
> break ;
> case 79 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (756)) ;
> else zprintesc((strnumber) (755)) ;
> break ;
> case 82 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (757)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (2001)) ;
> else zprintesc((strnumber) (758)) ;
> break ;
> case 83 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (759)) ;
> else if ( chrcode == 3 )
> zprintesc((strnumber) (760)) ;
> else zprintesc((strnumber) (761)) ;
> break ;
> case 70 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (762)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (763)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (764)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (765)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1953)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (1954)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (1980)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (1981)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (1982)) ;
> break ;
> case 24 :
> zprintesc((strnumber) (1983)) ;
> break ;
> case 25 :
> zprintesc((strnumber) (1984)) ;
> break ;
> case 28 :
> zprintesc((strnumber) (1985)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (1986)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (1987)) ;
> break ;
> case 31 :
> zprintesc((strnumber) (1988)) ;
> break ;
> case 32 :
> zprintesc((strnumber) (1989)) ;
> break ;
> case 33 :
> zprintesc((strnumber) (1990)) ;
> break ;
> case 34 :
> zprintesc((strnumber) (1991)) ;
> break ;
> case 39 :
> zprintesc((strnumber) (2032)) ;
> break ;
> case 40 :
> zprintesc((strnumber) (2033)) ;
> break ;
> case 41 :
> zprintesc((strnumber) (2034)) ;
> break ;
> case 42 :
> zprintesc((strnumber) (2035)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (2039)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (2040)) ;
> break ;
> case 35 :
> zprintesc((strnumber) (2041)) ;
> break ;
> case 36 :
> zprintesc((strnumber) (2042)) ;
> break ;
> case 37 :
> zprintesc((strnumber) (2043)) ;
> break ;
> case 38 :
> zprintesc((strnumber) (2044)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (767)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (768)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (769)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (770)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (771)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (772)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (773)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (774)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (775)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (776)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (777)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (778)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (779)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (780)) ;
> break ;
> default:
> zprintesc((strnumber) (766)) ;
> break ;
> }
> break ;
> case 110 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (839)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (840)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (841)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (842)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (843)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (871)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (844)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (845)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (846)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (847)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (848)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (849)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (850)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (851)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (852)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (853)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (854)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (855)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (856)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (857)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (858)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (859)) ;
> break ;
> case 24 :
> zprintesc((strnumber) (860)) ;
> break ;
> case 25 :
> zprintesc((strnumber) (861)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (862)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (863)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (864)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (865)) ;
> break ;
> case 28 :
> zprintesc((strnumber) (866)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (867)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (869)) ;
> break ;
> case 31 :
> zprintesc((strnumber) (870)) ;
> break ;
> default:
> zprintesc((strnumber) (868)) ;
> break ;
> }
> break ;
> case 107 :
> {
> if ( chrcode >= 32 )
> zprintesc((strnumber) (927)) ;
> switch ( chrcode % 32 )
> {case 1 :
> zprintesc((strnumber) (910)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (911)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (912)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (913)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (914)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (915)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (916)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (917)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (918)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (919)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (920)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (921)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (922)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (923)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (924)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (925)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (926)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (2021)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (2022)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (2023)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (2024)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (2025)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (2026)) ;
> break ;
> default:
> zprintesc((strnumber) (909)) ;
> break ;
> }
> }
> break ;
> case 108 :
> if ( chrcode == 2 )
> zprintesc((strnumber) (928)) ;
> else if ( chrcode == 4 )
> zprintesc((strnumber) (929)) ;
> else zprintesc((strnumber) (930)) ;
> break ;
> case 4 :
> if ( chrcode == 256 )
> zprintesc((strnumber) (1295)) ;
> else {
>
> zprint((integer) (1299)) ;
> zprint((integer) (chrcode)) ;
> }
> break ;
> case 5 :
> if ( chrcode == 257 )
> zprintesc((strnumber) (1296)) ;
> else zprintesc((strnumber) (1297)) ;
> break ;
> case 81 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (1373)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1374)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1375)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1376)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1377)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1378)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (1379)) ;
> break ;
> default:
> zprintesc((strnumber) (1380)) ;
> break ;
> }
> break ;
> case 14 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1426)) ;
> else zprintesc((strnumber) (349)) ;
> break ;
> case 26 :
> switch ( chrcode )
> {case 4 :
> zprintesc((strnumber) (1427)) ;
> break ;
> case 0 :
> zprintesc((strnumber) (1428)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1429)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1430)) ;
> break ;
> default:
> zprintesc((strnumber) (1431)) ;
> break ;
> }
> break ;
> case 27 :
> switch ( chrcode )
> {case 4 :
> zprintesc((strnumber) (1432)) ;
> break ;
> case 0 :
> zprintesc((strnumber) (1433)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1434)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1435)) ;
> break ;
> default:
> zprintesc((strnumber) (1436)) ;
> break ;
> }
> break ;
> case 28 :
> zprintesc((strnumber) (343)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (322)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (348)) ;
> break ;
> case 21 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1454)) ;
> else zprintesc((strnumber) (1455)) ;
> break ;
> case 22 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1456)) ;
> else zprintesc((strnumber) (1457)) ;
> break ;
> case 20 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (429)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1458)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1459)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1368)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1460)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1370)) ;
> break ;
> default:
> zprintesc((strnumber) (1461)) ;
> break ;
> }
> break ;
> case 31 :
> if ( chrcode == 100 )
> zprintesc((strnumber) (1463)) ;
> else if ( chrcode == 101 )
> zprintesc((strnumber) (1464)) ;
> else if ( chrcode == 102 )
> zprintesc((strnumber) (1465)) ;
> else zprintesc((strnumber) (1462)) ;
> break ;
> case 43 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (1482)) ;
> else if ( chrcode == 1 )
> zprintesc((strnumber) (1481)) ;
> else zprintesc((strnumber) (1483)) ;
> break ;
> case 25 :
> if ( chrcode == 10 )
> zprintesc((strnumber) (1495)) ;
> else if ( chrcode == 11 )
> zprintesc((strnumber) (1494)) ;
> else zprintesc((strnumber) (1493)) ;
> break ;
> case 23 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1497)) ;
> else zprintesc((strnumber) (1496)) ;
> break ;
> case 24 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1499)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (2054)) ;
> else if ( chrcode == 3 )
> zprintesc((strnumber) (2055)) ;
> else zprintesc((strnumber) (1498)) ;
> break ;
> case 47 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (45)) ;
> else zprintesc((strnumber) (357)) ;
> break ;
> case 48 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1532)) ;
> else zprintesc((strnumber) (1531)) ;
> break ;
> case 50 :
> switch ( chrcode )
> {case 16 :
> zprintesc((strnumber) (1262)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (1263)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (1264)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (1265)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (1266)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (1267)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (1268)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (1269)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (1271)) ;
> break ;
> default:
> zprintesc((strnumber) (1270)) ;
> break ;
> }
> break ;
> case 51 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1275)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (1276)) ;
> else zprintesc((strnumber) (1533)) ;
> break ;
> case 53 :
> zprintstyle((integer) (chrcode)) ;
> break ;
> case 52 :
> switch ( chrcode )
> {case 1 :
> zprintesc((strnumber) (1552)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1553)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1554)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1555)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1556)) ;
> break ;
> default:
> zprintesc((strnumber) (1551)) ;
> break ;
> }
> break ;
> case 49 :
> if ( chrcode == 30 )
> zprintesc((strnumber) (1272)) ;
> else if ( chrcode == 1 )
> zprintesc((strnumber) (1274)) ;
> else zprintesc((strnumber) (1273)) ;
> break ;
> case 93 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1576)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (1577)) ;
> else if ( chrcode == 8 )
> zprintesc((strnumber) (1590)) ;
> else zprintesc((strnumber) (1578)) ;
> break ;
> case 97 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (1579)) ;
> else if ( chrcode == 1 )
> zprintesc((strnumber) (1580)) ;
> else if ( chrcode == 2 )
> zprintesc((strnumber) (1581)) ;
> else zprintesc((strnumber) (1582)) ;
> break ;
> case 94 :
> if ( chrcode != 0 ) {
>
> if ( chrcode == 10 )
> zprintesc((strnumber) (1601)) ;
> else if ( chrcode == 11 )
> zprintesc((strnumber) (1602)) ;
> else zprintesc((strnumber) (1600)) ;
> }
> else zprintesc((strnumber) (1599)) ;
> break ;
> case 95 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (1608)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1609)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1610)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1611)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1612)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1613)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (1615)) ;
> break ;
> default:
> zprintesc((strnumber) (1614)) ;
> break ;
> }
> break ;
> case 68 :
> {
> zprintesc((strnumber) (586)) ;
> zprinthex((integer) (chrcode)) ;
> }
> break ;
> case 69 :
> {
> zprintesc((strnumber) (600)) ;
> zprinthex((integer) (chrcode)) ;
> }
> break ;
> case 85 :
> if ( chrcode == 25590 )
> zprintesc((strnumber) (1620)) ;
> else if ( chrcode == 25591 )
> zprintesc((strnumber) (1621)) ;
> else if ( chrcode == 25592 )
> zprintesc((strnumber) (1622)) ;
> else if ( chrcode == 25641 )
> zprintesc((strnumber) (435)) ;
> else if ( chrcode == 26665 )
> zprintesc((strnumber) (439)) ;
> else if ( chrcode == 25897 )
> zprintesc((strnumber) (436)) ;
> else if ( chrcode == 26153 )
> zprintesc((strnumber) (437)) ;
> else if ( chrcode == 26409 )
> zprintesc((strnumber) (438)) ;
> else zprintesc((strnumber) (535)) ;
> break ;
> case 86 :
> zprintsize((integer) (chrcode - 25593)) ;
> break ;
> case 99 :
> if ( chrcode == 1 )
> zprintesc((strnumber) (1354)) ;
> else zprintesc((strnumber) (1342)) ;
> break ;
> case 78 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (1638)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (1639)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1640)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1641)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1642)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1643)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (1644)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (1645)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (1646)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (1647)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (1648)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (1649)) ;
> break ;
> }
> break ;
> case 87 :
> {
> zprint((integer) (1656)) ;
> zslowprint((integer) (fontname [chrcode ])) ;
> if ( fontsize [chrcode ]!= fontdsize [chrcode ])
> {
> zprint((integer) (894)) ;
> zprintscaled((scaled) (fontsize [chrcode ])) ;
> zprint((integer) (312)) ;
> }
> }
> break ;
> case 100 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (274)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (275)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (276)) ;
> break ;
> default:
> zprintesc((strnumber) (1657)) ;
> break ;
> }
> break ;
> case 60 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (1659)) ;
> else zprintesc((strnumber) (1658)) ;
> break ;
> case 58 :
> if ( chrcode == 0 )
> zprintesc((strnumber) (1660)) ;
> else zprintesc((strnumber) (1661)) ;
> break ;
> case 57 :
> if ( chrcode == 25897 )
> zprintesc((strnumber) (1667)) ;
> else zprintesc((strnumber) (1668)) ;
> break ;
> case 19 :
> switch ( chrcode )
> {case 1 :
> zprintesc((strnumber) (1670)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1671)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1672)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1992)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1994)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (1997)) ;
> break ;
> default:
> zprintesc((strnumber) (1669)) ;
> break ;
> }
> break ;
> case 103 :
> zprint((integer) (1679)) ;
> break ;
> case 113 :
> case 114 :
> case 115 :
> case 116 :
> {
> n = cmd - 113 ;
> if ( mem [mem [chrcode ].hh .v.RH ].hh .v.LH == 3585 )
> n = n + 4 ;
> if ( ((n / 4) & 1) )
> zprintesc((strnumber) (1590)) ;
> if ( ((n) & 1) )
> zprintesc((strnumber) (1576)) ;
> if ( ((n / 2) & 1) )
> zprintesc((strnumber) (1577)) ;
> if ( n > 0 )
> zprintchar((ASCIIcode) (32)) ;
> zprint((integer) (1680)) ;
> }
> break ;
> case 117 :
> zprintesc((strnumber) (1681)) ;
> break ;
> case 59 :
> switch ( chrcode )
> {case 0 :
> zprintesc((strnumber) (1719)) ;
> break ;
> case 1 :
> zprintesc((strnumber) (675)) ;
> break ;
> case 2 :
> zprintesc((strnumber) (1720)) ;
> break ;
> case 3 :
> zprintesc((strnumber) (1721)) ;
> break ;
> case 4 :
> zprintesc((strnumber) (1722)) ;
> break ;
> case 5 :
> zprintesc((strnumber) (1723)) ;
> break ;
> case 13 :
> zprintesc((strnumber) (1734)) ;
> break ;
> case 23 :
> zprintesc((strnumber) (1747)) ;
> break ;
> case 17 :
> zprintesc((strnumber) (1738)) ;
> break ;
> case 15 :
> zprintesc((strnumber) (1736)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (1741)) ;
> break ;
> case 25 :
> zprintesc((strnumber) (1750)) ;
> break ;
> case 31 :
> zprintesc((strnumber) (1756)) ;
> break ;
> case 26 :
> zprintesc((strnumber) (1749)) ;
> break ;
> case 22 :
> zprintesc((strnumber) (1746)) ;
> break ;
> case 6 :
> zprintesc((strnumber) (1724)) ;
> break ;
> case 37 :
> zprintesc((strnumber) (1124)) ;
> break ;
> case 38 :
> zprintesc((strnumber) (1725)) ;
> break ;
> case 39 :
> zprintesc((strnumber) (1726)) ;
> break ;
> case 40 :
> zprintesc((strnumber) (1727)) ;
> break ;
> case 27 :
> zprintesc((strnumber) (1751)) ;
> break ;
> case 28 :
> zprintesc((strnumber) (1752)) ;
> break ;
> case 24 :
> zprintesc((strnumber) (1748)) ;
> break ;
> case 7 :
> zprintesc((strnumber) (1728)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (1737)) ;
> break ;
> case 8 :
> zprintesc((strnumber) (1729)) ;
> break ;
> case 10 :
> zprintesc((strnumber) (1731)) ;
> break ;
> case 12 :
> zprintesc((strnumber) (1733)) ;
> break ;
> case 21 :
> zprintesc((strnumber) (1742)) ;
> break ;
> case 33 :
> zprintesc((strnumber) (1743)) ;
> break ;
> case 35 :
> zprintesc((strnumber) (1745)) ;
> break ;
> case 34 :
> zprintesc((strnumber) (1744)) ;
> break ;
> case 14 :
> zprintesc((strnumber) (1735)) ;
> break ;
> case 19 :
> zprintesc((strnumber) (1740)) ;
> break ;
> case 18 :
> zprintesc((strnumber) (1739)) ;
> break ;
> case 29 :
> zprintesc((strnumber) (1753)) ;
> break ;
> case 9 :
> zprintesc((strnumber) (1730)) ;
> break ;
> case 11 :
> zprintesc((strnumber) (1732)) ;
> break ;
> case 30 :
> zprintesc((strnumber) (1754)) ;
> break ;
> case 32 :
> zprintesc((strnumber) (1755)) ;
> break ;
> case 41 :
> zprintesc((strnumber) (1758)) ;
> break ;
> case 36 :
> zprintesc((strnumber) (1757)) ;
> break ;
> case 42 :
> zprintesc((strnumber) (1759)) ;
> break ;
> case 43 :
> zprintesc((strnumber) (1760)) ;
> break ;
> case 44 :
> zprintesc((strnumber) (1761)) ;
> break ;
> default:
> zprint((integer) (1762)) ;
> break ;
> }
> break ;
> default:
> zprint((integer) (647)) ;
> break ;
> }
>}
>
>void
>zshoweqtb ( halfword n )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( n < 1 )
> zprintchar((ASCIIcode) (63)) ;
> else if ( ( n < 24528 ) || ( ( n > 28081 ) && ( n <= eqtbtop ) ) )
> {
> zsprintcs((halfword) (n)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintcmdchr((quarterword) (eqtb [n ].hh.u.B0), (halfword) (eqtb [n ].hh .v.RH)) ;
> if ( eqtb [n ].hh.u.B0 >= 113 )
> {
> zprintchar((ASCIIcode) (58)) ;
> zshowtokenlist((integer) (mem [eqtb [n ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (32))
> ;
> }
> }
> else if ( n < 25058 ) {
>
> if ( n < 24546 )
> {
> zprintskipparam((integer) (n - 24528)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( n < 24543 )
> zprintspec((integer) (eqtb [n ].hh .v.RH), (strnumber) (312)) ;
> else zprintspec((integer) (eqtb [n ].hh .v.RH), (strnumber) (344)) ;
> }
> else if ( n < 24802 )
> {
> zprintesc((strnumber) (412)) ;
> zprintint((longinteger) (n - 24546)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintspec((integer) (eqtb [n ].hh .v.RH), (strnumber) (312)) ;
> }
> else {
>
> zprintesc((strnumber) (413)) ;
> zprintint((longinteger) (n - 24802)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintspec((integer) (eqtb [n ].hh .v.RH), (strnumber) (344)) ;
> }
> }
> else if ( n < 27177 ) {
>
> if ( ( n == 25058 ) || ( ( n >= 25329 ) && ( n < 25333 ) ) )
> {
> zprintcmdchr((quarterword) (84), (halfword) (n)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( eqtb [n ].hh .v.RH == -268435455L )
> zprintchar((ASCIIcode) (48)) ;
> else if ( n > 25058 )
> {
> zprintint((longinteger) (mem [eqtb [n ].hh .v.RH + 1 ].cint)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprintint((longinteger) (mem [eqtb [n ].hh .v.RH + 2 ].cint)) ;
> if ( mem [eqtb [n ].hh .v.RH + 1 ].cint > 1 )
> zprintesc((strnumber) (428)) ;
> }
> else zprintint((longinteger) (mem [eqtb [25058 ].hh .v.RH ].hh .v.LH)) ;
> }
> else if ( n < 25073 )
> {
> zprintcmdchr((quarterword) (72), (halfword) (n)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( eqtb [n ].hh .v.RH != -268435455L )
> zshowtokenlist((integer) (mem [eqtb [n ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (32))
> ;
> }
> else if ( n < 25333 )
> {
> zprintesc((strnumber) (427)) ;
> zprintint((longinteger) (n - 25073)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( eqtb [n ].hh .v.RH != -268435455L )
> zshowtokenlist((integer) (mem [eqtb [n ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (32))
> ;
> }
> else if ( n < 25589 )
> {
> zprintesc((strnumber) (429)) ;
> zprintint((longinteger) (n - 25333)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( eqtb [n ].hh .v.RH == -268435455L )
> zprint((integer) (430)) ;
> else {
>
> depththreshold = 0 ;
> breadthmax = 1 ;
> zshownodelist((integer) (eqtb [n ].hh .v.RH)) ;
> }
> }
> else if ( n < 25641 )
> {
> if ( n == 25589 )
> zprint((integer) (431)) ;
> else if ( n < 25609 )
> {
> zprintesc((strnumber) (432)) ;
> zprintint((longinteger) (n - 25593)) ;
> }
> else if ( n < 25625 )
> {
> zprintesc((strnumber) (433)) ;
> zprintint((longinteger) (n - 25609)) ;
> }
> else {
>
> zprintesc((strnumber) (434)) ;
> zprintint((longinteger) (n - 25625)) ;
> }
> zprintchar((ASCIIcode) (61)) ;
> zprintesc((strnumber) (hash [15526 + eqtb [n ].hh .v.RH ].v.RH)) ;
> }
> else if ( n < 26665 )
> {
> if ( n < 25897 )
> {
> zprintesc((strnumber) (435)) ;
> zprintint((longinteger) (n - 25641)) ;
> }
> else if ( n < 26153 )
> {
> zprintesc((strnumber) (436)) ;
> zprintint((longinteger) (n - 25897)) ;
> }
> else if ( n < 26409 )
> {
> zprintesc((strnumber) (437)) ;
> zprintint((longinteger) (n - 26153)) ;
> }
> else {
>
> zprintesc((strnumber) (438)) ;
> zprintint((longinteger) (n - 26409)) ;
> }
> zprintchar((ASCIIcode) (61)) ;
> zprintint((longinteger) (eqtb [n ].hh .v.RH)) ;
> }
> else {
>
> zprintesc((strnumber) (439)) ;
> zprintint((longinteger) (n - 26665)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintint((longinteger) (eqtb [n ].hh .v.RH)) ;
> }
> }
> else if ( n < 27792 )
> {
> if ( n < 27280 )
> zprintparam((integer) (n - 27177)) ;
> else if ( n < 27536 )
> {
> zprintesc((strnumber) (534)) ;
> zprintint((longinteger) (n - 27280)) ;
> }
> else {
>
> zprintesc((strnumber) (535)) ;
> zprintint((longinteger) (n - 27536)) ;
> }
> zprintchar((ASCIIcode) (61)) ;
> zprintint((longinteger) (eqtb [n ].cint)) ;
> }
> else if ( n <= 28081 )
> {
> if ( n < 27826 )
> zprintlengthparam((integer) (n - 27792)) ;
> else {
>
> zprintesc((strnumber) (571)) ;
> zprintint((longinteger) (n - 27826)) ;
> }
> zprintchar((ASCIIcode) (61)) ;
> zprintscaled((scaled) (eqtb [n ].cint)) ;
> zprint((integer) (312)) ;
> }
> else zprintchar((ASCIIcode) (63)) ;
>}
>
>halfword
>zidlookup ( integer j , integer l )
>{
> register halfword Result;
> integer h ;
> integer d ;
> halfword p ;
> halfword k ;
> h = buffer [j ];
> {register integer for_end; k = j + 1 ;for_end = j + l - 1 ; if ( k <=
> for_end) do
> {
> h = h + h + buffer [k ];
> while ( h >= 8501 ) h = h - 8501 ;
> }
> while ( k++ < for_end ) ;}
> p = h + 514 ;
> while ( 1 ) {
>
> if ( hash [p ].v.RH > 0 ) {
>
> if ( ( strstart [hash [p ].v.RH + 1 ]- strstart [hash [p ].v.RH ]
> ) == l ) {
>
> if ( zstreqbuf((strnumber) (hash [p ].v.RH), (integer) (j)) )
> goto lab40 ;
> }
> }
> if ( hash [p ].v.LH == 0 )
> {
> if ( nonewcontrolsequence )
> p = 24527 ;
> else {
>
> if ( hash [p ].v.RH > 0 )
> {
> if ( hashhigh < hashextra )
> {
> ++(hashhigh) ;
> hash [p ].v.LH = hashhigh + 28081 ;
> p = hashhigh + 28081 ;
> }
> else {
>
> do {
> if ( ( hashused == 514 ) )
> zoverflow((strnumber) (575), (integer) (15000 + hashextra)) ;
> --(hashused) ;
> } while ( ! ( hash [hashused ].v.RH == 0 ) ) ;
> hash [p ].v.LH = hashused ;
> p = hashused ;
> }
> }
> {
> if ( poolptr + l > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> d = ( poolptr - strstart [strptr ]) ;
> while ( poolptr > strstart [strptr ]) {
>
> --(poolptr) ;
> strpool [poolptr + l ]= strpool [poolptr ];
> }
> {register integer for_end; k = j ;for_end = j + l - 1 ; if ( k <=
> for_end) do
> {
> strpool [poolptr ]= buffer [k ];
> ++(poolptr) ;
> }
> while ( k++ < for_end ) ;}
> hash [p ].v.RH = makestring () ;
> poolptr = poolptr + d ;
> ;
>
> ++(cscount) ;
>
> }
> goto lab40 ;
> }
> p = hash [p ].v.LH ;
> }
> lab40: Result = p ;
> return Result ;
>}
>halfword
>zprimlookup ( strnumber s )
>{
> register halfword Result;
> integer h ;
> halfword p ;
> halfword k ;
> integer j, l ;
> if ( s < 256 )
> {
> p = s ;
> if ( ( p < 0 ) || ( primeqtb [p ].hh.u.B1 != 1 ) )
> p = 0 ;
> }
> else {
>
> j = strstart [s ];
> if ( s == strptr )
> l = ( poolptr - strstart [strptr ]) ;
> else l = ( strstart [s + 1 ]- strstart [s ]) ;
> h = strpool [j ];
> {register integer for_end; k = j + 1 ;for_end = j + l - 1 ; if ( k <=
> for_end) do
> {
> h = h + h + strpool [k ];
> while ( h >= 1777 ) h = h - 1777 ;
> }
> while ( k++ < for_end ) ;}
> p = h + 1 ;
> while ( 1 ) {
>
> if ( prim [p ].v.RH > 0 ) {
>
> if ( ( strstart [prim [p ].v.RH + 1 ]- strstart [prim [p ].v.RH
> ]) == l ) {
>
> if ( zstreqstr((strnumber) (prim [p ].v.RH), (strnumber) (s)) )
> goto lab40 ;
> }
> }
> if ( prim [p ].v.LH == 0 )
> {
> if ( nonewcontrolsequence )
> p = 0 ;
> else {
>
> if ( prim [p ].v.RH > 0 )
> {
> do {
> if ( ( primused == 1 ) )
> zoverflow((strnumber) (576), (integer) (2100)) ;
> --(primused) ;
> } while ( ! ( prim [primused ].v.RH == 0 ) ) ;
> prim [p ].v.LH = primused ;
> p = primused ;
> }
> prim [p ].v.RH = s ;
> }
> goto lab40 ;
> }
> p = prim [p ].v.LH ;
> }
> }
> lab40: Result = p ;
> return Result ;
>}
>
>void
>zrestoretrace ( halfword p , strnumber s )
>{
> 
> begindiagnostic () ;
> zprintchar((ASCIIcode) (123)) ;
> zprint((integer) (s)) ;
> zprintchar((ASCIIcode) (32)) ;
> zshoweqtb((halfword) (p)) ;
> zprintchar((ASCIIcode) (125)) ;
> zenddiagnostic((boolean) (0)) ;
>}
>
>void
>zprintgroup ( boolean e )
>{
> 
> switch ( curgroup )
> {case 0 :
> {
> zprint((integer) (1966)) ;
> return ;
> }
> break ;
> case 1 :
> case 14 :
> {
> if ( curgroup == 14 )
> zprint((integer) (1967)) ;
> zprint((integer) (1968)) ;
> }
> break ;
> case 2 :
> case 3 :
> {
> if ( curgroup == 3 )
> zprint((integer) (1969)) ;
> zprint((integer) (1461)) ;
> }
> break ;
> case 4 :
> zprint((integer) (1370)) ;
> break ;
> case 5 :
> zprint((integer) (1460)) ;
> break ;
> case 6 :
> case 7 :
> {
> if ( curgroup == 7 )
> zprint((integer) (1970)) ;
> zprint((integer) (1971)) ;
> }
> break ;
> case 8 :
> zprint((integer) (414)) ;
> break ;
> case 10 :
> zprint((integer) (1972)) ;
> break ;
> case 11 :
> zprint((integer) (337)) ;
> break ;
> case 12 :
> zprint((integer) (616)) ;
> break ;
> case 9 :
> case 13 :
> case 15 :
> case 16 :
> {
> zprint((integer) (351)) ;
> if ( curgroup == 13 )
> zprint((integer) (1973)) ;
> else if ( curgroup == 15 )
> zprint((integer) (1974)) ;
> else if ( curgroup == 16 )
> zprint((integer) (1975)) ;
> }
> break ;
> }
> zprint((integer) (1976)) ;
> zprintint((longinteger) (curlevel)) ;
> zprintchar((ASCIIcode) (41)) ;
> if ( savestack [saveptr - 1 ].cint != 0 )
> {
> if ( e )
> zprint((integer) (380)) ;
> else zprint((integer) (1977)) ;
> zprintint((longinteger) (savestack [saveptr - 1 ].cint)) ;
> }
>}
>
>void
>zgrouptrace ( boolean e )
>{
> 
> begindiagnostic () ;
> zprintchar((ASCIIcode) (123)) ;
> if ( e )
> zprint((integer) (1978)) ;
> else zprint((integer) (1979)) ;
> zprintgroup((boolean) (e)) ;
> zprintchar((ASCIIcode) (125)) ;
> zenddiagnostic((boolean) (0)) ;
>}
>
>boolean
>pseudoinput ( void )
>{
> register boolean Result; register memoryword *mem=zmem;
> halfword p ;
> integer sz ;
> fourquarters w ;
> halfword r ;
> last = first ;
> p = mem [pseudofiles ].hh .v.LH ;
> if ( p == -268435455L )
> Result = 0 ;
> else {
>
> mem [pseudofiles ].hh .v.LH = mem [p ].hh .v.RH ;
> sz = mem [p ].hh .v.LH ;
> if ( 4 * sz - 3 >= bufsize - last )
> {
> curinput .locfield = first ;
> curinput .limitfield = last - 1 ;
> zoverflow((strnumber) (258), (integer) (bufsize)) ;
> }
> last = first ;
> {register integer for_end; r = p + 1 ;for_end = p + sz - 1 ; if ( r <=
> for_end) do
> {
> w = mem [r ].qqqq ;
> buffer [last ]= w .u.B0 ;
> buffer [last + 1 ]= w .u.B1 ;
> buffer [last + 2 ]= w .u.B2 ;
> buffer [last + 3 ]= w .u.B3 ;
> last = last + 4 ;
> }
> while ( r++ < for_end ) ;}
> if ( last >= maxbufstack )
> maxbufstack = last + 1 ;
> while ( ( last > first ) && ( buffer [last - 1 ]== 32 ) ) --(last)
> ;
> zfreenode((halfword) (p), (halfword) (sz)) ;
> Result = 1 ;
> }
> return Result ;
>}
>void
>pseudoclose ( void )
>{
> register memoryword *mem=zmem;
> halfword p, q ;
> p = mem [pseudofiles ].hh .v.RH ;
> q = mem [pseudofiles ].hh .v.LH ;
> {
> mem [pseudofiles ].hh .v.RH = avail ;
> avail = pseudofiles ;
> ;
>
> --(dynused) ;
>
> }
> pseudofiles = p ;
> while ( q != -268435455L ) {
>
> p = q ;
> q = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (mem [p ].hh .v.LH)) ;
> }
>}
>void
>groupwarning ( void )
>{
> register memoryword *eqtb=zeqtb;
> integer i ;
> boolean w ;
> baseptr = inputptr ;
> inputstack [baseptr ]= curinput ;
> i = inopen ;
> w = 0 ;
> while ( ( grpstack [i ]== curboundary ) && ( i > 0 ) ) {
>
> if ( eqtb [27273 ].cint > 0 )
> {
> while ( ( inputstack [baseptr ].statefield == 0 ) || ( inputstack [
> baseptr ].indexfield > i ) ) --(baseptr) ;
> if ( inputstack [baseptr ].namefield > 17 )
> w = 1 ;
> }
> grpstack [i ]= savestack [saveptr ].hh .v.RH ;
> --(i) ;
> }
> if ( w )
> {
> zprintnl((strnumber) (2028)) ;
> zprintgroup((boolean) (1)) ;
> zprint((integer) (2029)) ;
> println () ;
> if ( eqtb [27273 ].cint > 1 )
> showcontext () ;
> if ( history == 0 )
> history = 1 ;
> }
>}
>void
>ifwarning ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer i ;
> boolean w ;
> baseptr = inputptr ;
> inputstack [baseptr ]= curinput ;
> i = inopen ;
> w = 0 ;
> while ( ifstack [i ]== condptr ) {
>
> if ( eqtb [27273 ].cint > 0 )
> {
> while ( ( inputstack [baseptr ].statefield == 0 ) || ( inputstack [
> baseptr ].indexfield > i ) ) --(baseptr) ;
> if ( inputstack [baseptr ].namefield > 17 )
> w = 1 ;
> }
> ifstack [i ]= mem [condptr ].hh .v.RH ;
> --(i) ;
> }
> if ( w )
> {
> zprintnl((strnumber) (2028)) ;
> zprintcmdchr((quarterword) (107), (halfword) (curif)) ;
> if ( ifline != 0 )
> {
> zprint((integer) (1998)) ;
> zprintint((longinteger) (ifline)) ;
> }
> zprint((integer) (2029)) ;
> println () ;
> if ( eqtb [27273 ].cint > 1 )
> showcontext () ;
> if ( history == 0 )
> history = 1 ;
> }
>}
>void
>filewarning ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> quarterword l ;
> quarterword c ;
> integer i ;
> p = saveptr ;
> l = curlevel ;
> c = curgroup ;
> saveptr = curboundary ;
> while ( grpstack [inopen ]!= saveptr ) {
>
> --(curlevel) ;
> zprintnl((strnumber) (2030)) ;
> zprintgroup((boolean) (1)) ;
> zprint((integer) (2031)) ;
> curgroup = savestack [saveptr ].hh.u.B1 ;
> saveptr = savestack [saveptr ].hh .v.RH ;
> }
> saveptr = p ;
> curlevel = l ;
> curgroup = c ;
> p = condptr ;
> l = iflimit ;
> c = curif ;
> i = ifline ;
> while ( ifstack [inopen ]!= condptr ) {
>
> zprintnl((strnumber) (2030)) ;
> zprintcmdchr((quarterword) (107), (halfword) (curif)) ;
> if ( iflimit == 2 )
> zprintesc((strnumber) (930)) ;
> if ( ifline != 0 )
> {
> zprint((integer) (1998)) ;
> zprintint((longinteger) (ifline)) ;
> }
> zprint((integer) (2031)) ;
> ifline = mem [condptr + 1 ].cint ;
> curif = mem [condptr ].hh.u.B1 ;
> iflimit = mem [condptr ].hh.u.B0 ;
> condptr = mem [condptr ].hh .v.RH ;
> }
> condptr = p ;
> iflimit = l ;
> curif = c ;
> ifline = i ;
> println () ;
> if ( eqtb [27273 ].cint > 1 )
> showcontext () ;
> if ( history == 0 )
> history = 1 ;
>}
>void
>zdeletesaref ( halfword q )
>{
> register memoryword *mem=zmem;
> halfword p ;
> smallnumber i ;
> smallnumber s ;
> --(mem [q + 1 ].hh .v.LH) ;
> if ( mem [q + 1 ].hh .v.LH != -268435455L )
> return ;
> if ( mem [q ].hh.u.B0 < 32 ) {
>
> if ( mem [q + 2 ].cint == 0 )
> s = 3 ;
> else return ;
> }
> else {
>
> if ( mem [q ].hh.u.B0 < 64 ) {
>
> if ( mem [q + 1 ].hh .v.RH == membot )
> zdeleteglueref((halfword) (membot)) ;
> else return ;
> }
> else if ( mem [q + 1 ].hh .v.RH != -268435455L )
> return ;
> s = 2 ;
> }
> do {
> i = mem [q ].hh.u.B0 % 16 ;
> p = q ;
> q = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (s)) ;
> if ( q == -268435455L )
> {
> saroot [i ]= -268435455L ;
> return ;
> }
> {
> if ( ((i) & 1) )
> mem [q + ( i / 2 ) + 1 ].hh .v.RH = -268435455L ;
> else mem [q + ( i / 2 ) + 1 ].hh .v.LH = -268435455L ;
> --(mem [q ].hh.u.B1) ;
> }
> s = 9 ;
> } while ( ! ( mem [q ].hh.u.B1 > 0 ) ) ;
>}
>
>void
>zshowsa ( halfword p , strnumber s )
>{
> register memoryword *mem=zmem;
> smallnumber t ;
> begindiagnostic () ;
> zprintchar((ASCIIcode) (123)) ;
> zprint((integer) (s)) ;
> zprintchar((ASCIIcode) (32)) ;
> if ( p == -268435455L )
> zprintchar((ASCIIcode) (63)) ;
> else {
>
> t = ( mem [p ].hh.u.B0 / 16 ) ;
> if ( t < 4 )
> zprintcmdchr((quarterword) (89), (halfword) (p)) ;
> else if ( t == 4 )
> {
> zprintesc((strnumber) (429)) ;
> zprintsanum((halfword) (p)) ;
> }
> else if ( t == 5 )
> zprintcmdchr((quarterword) (71), (halfword) (p)) ;
> else zprintchar((ASCIIcode) (63)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( t == 0 )
> zprintint((longinteger) (mem [p + 2 ].cint)) ;
> else if ( t == 1 )
> {
> zprintscaled((scaled) (mem [p + 2 ].cint)) ;
> zprint((integer) (312)) ;
> }
> else {
>
> p = mem [p + 1 ].hh .v.RH ;
> if ( t == 2 )
> zprintspec((integer) (p), (strnumber) (312)) ;
> else if ( t == 3 )
> zprintspec((integer) (p), (strnumber) (344)) ;
> else if ( t == 4 ) {
>
> if ( p == -268435455L )
> zprint((integer) (430)) ;
> else {
>
> depththreshold = 0 ;
> breadthmax = 1 ;
> zshownodelist((integer) (p)) ;
> }
> }
> else if ( t == 5 )
> {
> if ( p != -268435455L )
> zshowtokenlist((integer) (mem [p ].hh .v.RH), (integer) (-268435455L), (integer) (32)) ;
> }
> else zprintchar((ASCIIcode) (63)) ;
> }
> }
> zprintchar((ASCIIcode) (125)) ;
> zenddiagnostic((boolean) (0)) ;
>}
>
>void
>zsasave ( halfword p )
>{
> register memoryword *mem=zmem;
> halfword q ;
> quarterword i ;
> if ( curlevel != salevel )
> {
> if ( saveptr > maxsavestack )
> {
> maxsavestack = saveptr ;
> if ( maxsavestack > savesize - 7 )
> zoverflow((strnumber) (618), (integer) (savesize)) ;
> }
> savestack [saveptr ].hh.u.B0 = 4 ;
> savestack [saveptr ].hh.u.B1 = salevel ;
> savestack [saveptr ].hh .v.RH = sachain ;
> ++(saveptr) ;
> sachain = -268435455L ;
> salevel = curlevel ;
> }
> i = mem [p ].hh.u.B0 ;
> if ( i < 32 )
> {
> if ( mem [p + 2 ].cint == 0 )
> {
> q = zgetnode((integer) (2)) ;
> i = 96 ;
> }
> else {
>
> q = zgetnode((integer) (3)) ;
> mem [q + 2 ].cint = mem [p + 2 ].cint ;
> }
> mem [q + 1 ].hh .v.RH = -268435455L ;
> }
> else {
>
> q = zgetnode((integer) (2)) ;
> mem [q + 1 ].hh .v.RH = mem [p + 1 ].hh .v.RH ;
> }
> mem [q + 1 ].hh .v.LH = p ;
> mem [q ].hh.u.B0 = i ;
> mem [q ].hh.u.B1 = mem [p ].hh.u.B1 ;
> mem [q ].hh .v.RH = sachain ;
> sachain = q ;
> ++(mem [p + 1 ].hh .v.LH) ;
>}
>void
>zsadestroy ( halfword p )
>{
> register memoryword *mem=zmem;
> if ( mem [p ].hh.u.B0 < 64 )
> zdeleteglueref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> else if ( mem [p + 1 ].hh .v.RH != -268435455L ) {
>
> if ( mem [p ].hh.u.B0 < 80 )
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> else zdeletetokenref((halfword) (mem [p + 1 ].hh .v.RH)) ;
> }
>}
>void
>zsadef ( halfword p , halfword e )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> ++(mem [p + 1 ].hh .v.LH) ;
> if ( mem [p + 1 ].hh .v.RH == e )
> {
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (620)) ;
>
> zsadestroy((halfword) (p)) ;
> }
> else {
>
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (621)) ;
>
> if ( mem [p ].hh.u.B1 == curlevel )
> zsadestroy((halfword) (p)) ;
> else zsasave((halfword) (p)) ;
> mem [p ].hh.u.B1 = curlevel ;
> mem [p + 1 ].hh .v.RH = e ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (622)) ;
>
> }
> zdeletesaref((halfword) (p)) ;
>}
>void
>zsawdef ( halfword p , integer w )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> ++(mem [p + 1 ].hh .v.LH) ;
> if ( mem [p + 2 ].cint == w )
> {
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (620)) ;
>
> }
> else {
>
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (621)) ;
>
> if ( mem [p ].hh.u.B1 != curlevel )
> zsasave((halfword) (p)) ;
> mem [p ].hh.u.B1 = curlevel ;
> mem [p + 2 ].cint = w ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (622)) ;
>
> }
> zdeletesaref((halfword) (p)) ;
>}
>void
>zgsadef ( halfword p , halfword e )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> ++(mem [p + 1 ].hh .v.LH) ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (623)) ;
>
> zsadestroy((halfword) (p)) ;
> mem [p ].hh.u.B1 = 1 ;
> mem [p + 1 ].hh .v.RH = e ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (622)) ;
>
> zdeletesaref((halfword) (p)) ;
>}
>void
>zgsawdef ( halfword p , integer w )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> ++(mem [p + 1 ].hh .v.LH) ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (623)) ;
>
> mem [p ].hh.u.B1 = 1 ;
> mem [p + 2 ].cint = w ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (622)) ;
>
> zdeletesaref((halfword) (p)) ;
>}
>void
>sarestore ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> do {
> p = mem [sachain + 1 ].hh .v.LH ;
> if ( mem [p ].hh.u.B1 == 1 )
> {
> if ( mem [p ].hh.u.B0 >= 32 )
> zsadestroy((halfword) (sachain)) ;
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (625)) ;
>
> }
> else {
>
> if ( mem [p ].hh.u.B0 < 32 ) {
>
> if ( mem [sachain ].hh.u.B0 < 32 )
> mem [p + 2 ].cint = mem [sachain + 2 ].cint ;
> else mem [p + 2 ].cint = 0 ;
> }
> else {
>
> zsadestroy((halfword) (p)) ;
> mem [p + 1 ].hh .v.RH = mem [sachain + 1 ].hh .v.RH ;
> }
> mem [p ].hh.u.B1 = mem [sachain ].hh.u.B1 ;
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zshowsa((halfword) (p), (strnumber) (626)) ;
>
> }
> zdeletesaref((halfword) (p)) ;
> p = sachain ;
> sachain = mem [p ].hh .v.RH ;
> if ( mem [p ].hh.u.B0 < 32 )
> zfreenode((halfword) (p), (halfword) (3)) ;
> else zfreenode((halfword) (p), (halfword) (2)) ;
> } while ( ! ( sachain == -268435455L ) ) ;
>}
>void
>znewsavelevel ( groupcode c )
>{
> register memoryword *eqtb=zeqtb;
> if ( saveptr > maxsavestack )
> {
> maxsavestack = saveptr ;
> if ( maxsavestack > savesize - 7 )
> zoverflow((strnumber) (618), (integer) (savesize)) ;
> }
> if ( ( eTeXmode == 1 ) )
> {
> savestack [saveptr + 0 ].cint = line ;
> ++(saveptr) ;
> }
> savestack [saveptr ].hh.u.B0 = 3 ;
> savestack [saveptr ].hh.u.B1 = curgroup ;
> savestack [saveptr ].hh .v.RH = curboundary ;
> if ( curlevel == 255 )
> zoverflow((strnumber) (619), (integer) (255)) ;
> curboundary = saveptr ;
> curgroup = c ;
> ;
>
> if ( eqtb [27270 ].cint > 0 )
> zgrouptrace((boolean) (0)) ;
>
> ++(curlevel) ;
> ++(saveptr) ;
>}
>void
>zeqdestroy ( memoryword w )
>{
> register memoryword *mem=zmem;
> halfword q ;
> switch ( w .hh.u.B0 )
> {case 113 :
> case 114 :
> case 115 :
> case 116 :
> zdeletetokenref((halfword) (w .hh .v.RH)) ;
> break ;
> case 119 :
> zdeleteglueref((halfword) (w .hh .v.RH)) ;
> break ;
> case 120 :
> {
> q = w .hh .v.RH ;
> if ( q != -268435455L )
> zfreenode((halfword) (q), (halfword) (mem [q ].hh .v.LH + mem [q ].hh .v.LH + 1)) ;
> }
> break ;
> case 121 :
> zflushnodelist((halfword) (w .hh .v.RH)) ;
> break ;
> case 71 :
> case 89 :
> if ( ( w .hh .v.RH < membot ) || ( w .hh .v.RH > membot + 19 ) )
> zdeletesaref((halfword) (w .hh .v.RH)) ;
> break ;
> default:
> ;
> break ;
> }
>}
>void
>zeqsave ( halfword p , quarterword l )
>{
> register memoryword *eqtb=zeqtb;
> if ( saveptr > maxsavestack )
> {
> maxsavestack = saveptr ;
> if ( maxsavestack > savesize - 7 )
> zoverflow((strnumber) (618), (integer) (savesize)) ;
> }
> if ( l == 0 )
> savestack [saveptr ].hh.u.B0 = 1 ;
> else {
>
> savestack [saveptr ]= eqtb [p ];
> ++(saveptr) ;
> savestack [saveptr ].hh.u.B0 = 0 ;
> }
> savestack [saveptr ].hh.u.B1 = l ;
> savestack [saveptr ].hh .v.RH = p ;
> ++(saveptr) ;
>}
>void
>zeqdefine ( halfword p , quarterword t , halfword e )
>{
> register memoryword *eqtb=zeqtb;
> if ( ( eTeXmode == 1 ) && ( eqtb [p ].hh.u.B0 == t ) && ( eqtb [p ].hh
> .v.RH == e ) )
> {
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (620)) ;
>
> zeqdestroy(eqtb [p ]) ;
> return ;
> }
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (621)) ;
>
> if ( eqtb [p ].hh.u.B1 == curlevel )
> zeqdestroy(eqtb [p ]) ;
> else if ( curlevel > 1 )
> zeqsave((halfword) (p), (quarterword) (eqtb [p ].hh.u.B1)) ;
> eqtb [p ].hh.u.B1 = curlevel ;
> eqtb [p ].hh.u.B0 = t ;
> eqtb [p ].hh .v.RH = e ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (622)) ;
>
>}
>void
>zeqworddefine ( halfword p , integer w )
>{
> register memoryword *eqtb=zeqtb;
> if ( ( eTeXmode == 1 ) && ( eqtb [p ].cint == w ) )
> {
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (620)) ;
>
> return ;
> }
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (621)) ;
>
> if ( (zzzaa -27177) [p ]!= curlevel )
> {
> zeqsave((halfword) (p), (quarterword) ((zzzaa -27177) [p ])) ;
> (zzzaa -27177) [p ]= curlevel ;
> }
> eqtb [p ].cint = w ;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (622)) ;
>
>}
>void
>zgeqdefine ( halfword p , quarterword t , halfword e )
>{
> register memoryword *eqtb=zeqtb;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (623)) ;
>
> {
> zeqdestroy(eqtb [p ]) ;
> eqtb [p ].hh.u.B1 = 1 ;
> eqtb [p ].hh.u.B0 = t ;
> eqtb [p ].hh .v.RH = e ;
> }
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (622)) ;
>
>}
>void
>zgeqworddefine ( halfword p , integer w )
>{
> register memoryword *eqtb=zeqtb;
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (623)) ;
>
> {
> eqtb [p ].cint = w ;
> (zzzaa -27177) [p ]= 1 ;
> }
> ;
>
> if ( eqtb [27269 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (622)) ;
>
>}
>void
>zsaveforafter ( halfword t )
>{
> 
> if ( curlevel > 1 )
> {
> if ( saveptr > maxsavestack )
> {
> maxsavestack = saveptr ;
> if ( maxsavestack > savesize - 7 )
> zoverflow((strnumber) (618), (integer) (savesize)) ;
> }
> savestack [saveptr ].hh.u.B0 = 2 ;
> savestack [saveptr ].hh.u.B1 = 0 ;
> savestack [saveptr ].hh .v.RH = t ;
> ++(saveptr) ;
> }
>}
>void
>unsave ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> quarterword l ;
> halfword t ;
> boolean a ;
> a = 0 ;
> if ( curlevel > 1 )
> {
> --(curlevel) ;
> while ( 1 ) {
>
> --(saveptr) ;
> if ( savestack [saveptr ].hh.u.B0 == 3 )
> goto lab30 ;
> p = savestack [saveptr ].hh .v.RH ;
> if ( savestack [saveptr ].hh.u.B0 == 2 )
> {
> t = curtok ;
> curtok = p ;
> if ( a )
> {
> p = getavail () ;
> mem [p ].hh .v.LH = curtok ;
> mem [p ].hh .v.RH = curinput .locfield ;
> curinput .locfield = p ;
> curinput .startfield = p ;
> if ( curtok < 768 ) {
>
> if ( curtok < 512 )
> --(alignstate) ;
> else ++(alignstate) ;
> }
> }
> else {
>
> backinput () ;
> a = ( eTeXmode == 1 ) ;
> }
> curtok = t ;
> }
> else if ( savestack [saveptr ].hh.u.B0 == 4 )
> {
> sarestore () ;
> sachain = p ;
> salevel = savestack [saveptr ].hh.u.B1 ;
> }
> else {
>
> if ( savestack [saveptr ].hh.u.B0 == 0 )
> {
> l = savestack [saveptr ].hh.u.B1 ;
> --(saveptr) ;
> }
> else savestack [saveptr ]= eqtb [24527 ];
> if ( ( p < 27177 ) || ( p > 28081 ) ) {
>
> if ( eqtb [p ].hh.u.B1 == 1 )
> {
> zeqdestroy(savestack [saveptr ]) ;
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (625)) ;
>
> }
> else {
>
> zeqdestroy(eqtb [p ]) ;
> eqtb [p ]= savestack [saveptr ];
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (626)) ;
>
> }
> }
> else if ( (zzzaa -27177) [p ]!= 1 )
> {
> eqtb [p ]= savestack [saveptr ];
> (zzzaa -27177) [p ]= l ;
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (626)) ;
>
> }
> else {
>
> ;
>
> if ( eqtb [27214 ].cint > 0 )
> zrestoretrace((halfword) (p), (strnumber) (625)) ;
>
> }
> }
> }
> lab30:
> ;
>
> if ( eqtb [27270 ].cint > 0 )
> zgrouptrace((boolean) (1)) ;
>
> if ( grpstack [inopen ]== curboundary )
> groupwarning () ;
> curgroup = savestack [saveptr ].hh.u.B1 ;
> curboundary = savestack [saveptr ].hh .v.RH ;
> if ( ( eTeXmode == 1 ) )
> --(saveptr) ;
> }
> else zconfusion((strnumber) (624)) ;
>}
>void
>preparemag ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( ( magset > 0 ) && ( eqtb [27194 ].cint != magset ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (628)) ;
> }
> zprintint((longinteger) (eqtb [27194 ].cint)) ;
> zprint((integer) (629)) ;
> zprintnl((strnumber) (630)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 631 ;
> helpline [0 ]= 632 ;
> }
> zinterror((integer) (magset)) ;
> zgeqworddefine((halfword) (27194), (integer) (magset)) ;
> }
> if ( ( eqtb [27194 ].cint <= 0 ) || ( eqtb [27194 ].cint > 32768L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (633)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 634 ;
> }
> zinterror((integer) (eqtb [27194 ].cint)) ;
> zgeqworddefine((halfword) (27194), (integer) (1000)) ;
> }
> magset = eqtb [27194 ].cint ;
>}
>void
>ztokenshow ( halfword p )
>{
> register memoryword *mem=zmem;
> if ( p != -268435455L )
> zshowtokenlist((integer) (mem [p ].hh .v.RH), (integer) (-268435455L), (integer) (10000000L)) ;
>}
>void
>printmeaning ( void )
>{
> 
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> if ( curcmd >= 113 )
> {
> zprintchar((ASCIIcode) (58)) ;
> println () ;
> ztokenshow((halfword) (curchr)) ;
> }
> else if ( ( curcmd == 112 ) && ( curchr < 5 ) )
> {
> zprintchar((ASCIIcode) (58)) ;
> println () ;
> ztokenshow((halfword) (curmark [curchr ])) ;
> }
>}
>void
>showcurcmdchr ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer n ;
> integer l ;
> halfword p ;
> begindiagnostic () ;
> zprintnl((strnumber) (123)) ;
> if ( curlist .modefield != shownmode )
> {
> zprintmode((integer) (curlist .modefield)) ;
> zprint((integer) (648)) ;
> shownmode = curlist .modefield ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> if ( eqtb [27271 ].cint > 0 ) {
>
> if ( curcmd >= 107 ) {
>
> if ( curcmd <= 108 )
> {
> zprint((integer) (648)) ;
> if ( curcmd == 108 )
> {
> zprintcmdchr((quarterword) (107), (halfword) (curif)) ;
> zprintchar((ASCIIcode) (32)) ;
> n = 0 ;
> l = ifline ;
> }
> else {
>
> n = 1 ;
> l = line ;
> }
> p = condptr ;
> while ( p != -268435455L ) {
>
> ++(n) ;
> p = mem [p ].hh .v.RH ;
> }
> zprint((integer) (649)) ;
> zprintint((longinteger) (n)) ;
> zprintchar((ASCIIcode) (41)) ;
> if ( l != 0 )
> {
> zprint((integer) (1998)) ;
> zprintint((longinteger) (l)) ;
> }
> }
> }
> }
> zprintchar((ASCIIcode) (125)) ;
> zenddiagnostic((boolean) (0)) ;
>}
>void
>showcontext ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> integer nn ;
> boolean bottomline ;
> integer i ;
> integer j ;
> integer l ;
> integer m ;
> integer n ;
> integer p ;
> integer q ;
> baseptr = inputptr ;
> inputstack [baseptr ]= curinput ;
> nn = -1 ;
> bottomline = 0 ;
> while ( 1 ) {
>
> curinput = inputstack [baseptr ];
> if ( ( curinput .statefield != 0 ) ) {
>
> if ( ( curinput .namefield > 19 ) || ( baseptr == 0 ) )
> bottomline = 1 ;
> }
> if ( ( baseptr == inputptr ) || bottomline || ( nn < eqtb [27231 ].cint
> ) )
> {
> if ( ( baseptr == inputptr ) || ( curinput .statefield != 0 ) || (
> curinput .indexfield != 3 ) || ( curinput .locfield != -268435455L ) )
> {
> tally = 0 ;
> oldsetting = selector ;
> if ( curinput .statefield != 0 )
> {
> if ( curinput .namefield <= 17 ) {
>
> if ( ( curinput .namefield == 0 ) ) {
>
> if ( baseptr == 0 )
> zprintnl((strnumber) (654)) ;
> else zprintnl((strnumber) (655)) ;
> }
> else {
>
> zprintnl((strnumber) (656)) ;
> if ( curinput .namefield == 17 )
> zprintchar((ASCIIcode) (42)) ;
> else zprintint((longinteger) (curinput .namefield - 1)) ;
> zprintchar((ASCIIcode) (62)) ;
> }
> }
> else if ( curinput .indexfield != inopen )
> {
> zprintnl((strnumber) (657)) ;
> zprintint((longinteger) (linestack [curinput .indexfield + 1 ])) ;
> }
> else {
>
> zprintnl((strnumber) (657)) ;
> zprintint((longinteger) (line)) ;
> }
> zprintchar((ASCIIcode) (32)) ;
> {
> l = tally ;
> tally = 0 ;
> selector = 20 ;
> trickcount = 1000000L ;
> }
> if ( buffer [curinput .limitfield ]== eqtb [27225 ].cint )
> j = curinput .limitfield ;
> else j = curinput .limitfield + 1 ;
> i = curinput .startfield ;
> mubyteskeep = mubytekeep ;
> mubytesstart = mubytestart ;
> mubytestart = 0 ;
> if ( j > 0 )
> while ( i < j ) {
>
> if ( i == curinput .locfield )
> {
> firstcount = tally ;
> trickcount = tally + 1 + errorline - halferrorline ;
> if ( trickcount < errorline )
> trickcount = errorline ;
> }
> zzprintbuffer((integer *) &(i)) ;
> }
> mubytekeep = mubyteskeep ;
> mubytestart = mubytesstart ;
> }
> else {
>
> switch ( curinput .indexfield )
> {case 0 :
> zprintnl((strnumber) (658)) ;
> break ;
> case 1 :
> case 2 :
> zprintnl((strnumber) (659)) ;
> break ;
> case 3 :
> if ( curinput .locfield == -268435455L )
> zprintnl((strnumber) (660)) ;
> else zprintnl((strnumber) (661)) ;
> break ;
> case 4 :
> zprintnl((strnumber) (662)) ;
> break ;
> case 5 :
> {
> println () ;
> zprintcs((integer) (curinput .namefield)) ;
> }
> break ;
> case 6 :
> zprintnl((strnumber) (663)) ;
> break ;
> case 7 :
> zprintnl((strnumber) (664)) ;
> break ;
> case 8 :
> zprintnl((strnumber) (665)) ;
> break ;
> case 9 :
> zprintnl((strnumber) (666)) ;
> break ;
> case 10 :
> zprintnl((strnumber) (667)) ;
> break ;
> case 11 :
> zprintnl((strnumber) (668)) ;
> break ;
> case 12 :
> zprintnl((strnumber) (669)) ;
> break ;
> case 13 :
> zprintnl((strnumber) (670)) ;
> break ;
> case 14 :
> zprintnl((strnumber) (671)) ;
> break ;
> case 19 :
> zprintnl((strnumber) (672)) ;
> break ;
> case 20 :
> zprintnl((strnumber) (673)) ;
> break ;
> default:
> zprintnl((strnumber) (63)) ;
> break ;
> }
> {
> l = tally ;
> tally = 0 ;
> selector = 20 ;
> trickcount = 1000000L ;
> }
> if ( curinput .indexfield < 5 )
> zshowtokenlist((integer) (curinput .startfield), (integer) (curinput .locfield), (integer) (100000L))
> ;
> else zshowtokenlist((integer) (mem [curinput .startfield ].hh .v.RH), (integer) (curinput .locfield), (integer) (100000L))
> ;
> }
> selector = oldsetting ;
> if ( trickcount == 1000000L )
> {
> firstcount = tally ;
> trickcount = tally + 1 + errorline - halferrorline ;
> if ( trickcount < errorline )
> trickcount = errorline ;
> }
> if ( tally < trickcount )
> m = tally - firstcount ;
> else m = trickcount - firstcount ;
> if ( l + firstcount <= halferrorline )
> {
> p = 0 ;
> n = l + firstcount ;
> }
> else {
>
> zprint((integer) (277)) ;
> p = l + firstcount - halferrorline + 3 ;
> n = halferrorline ;
> }
> {register integer for_end; q = p ;for_end = firstcount - 1 ; if ( q
> <= for_end) do
> zprintchar((ASCIIcode) (trickbuf [q % errorline ])) ;
> while ( q++ < for_end ) ;}
> println () ;
> {register integer for_end; q = 1 ;for_end = n ; if ( q <= for_end)
> do
> zprintchar((ASCIIcode) (32)) ;
> while ( q++ < for_end ) ;}
> if ( m + n <= errorline )
> p = firstcount + m ;
> else p = firstcount + ( errorline - n - 3 ) ;
> {register integer for_end; q = firstcount ;for_end = p - 1 ; if ( q
> <= for_end) do
> zprintchar((ASCIIcode) (trickbuf [q % errorline ])) ;
> while ( q++ < for_end ) ;}
> if ( m + n > errorline )
> zprint((integer) (277)) ;
> ++(nn) ;
> }
> }
> else if ( nn == eqtb [27231 ].cint )
> {
> zprintnl((strnumber) (277)) ;
> ++(nn) ;
> }
> if ( bottomline )
> goto lab30 ;
> --(baseptr) ;
> }
> lab30: curinput = inputstack [inputptr ];
>}
>void
>zbegintokenlist ( halfword p , quarterword t )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> {
> if ( inputptr > maxinstack )
> {
> maxinstack = inputptr ;
> if ( inputptr == stacksize )
> zoverflow((strnumber) (674), (integer) (stacksize)) ;
> }
> inputstack [inputptr ]= curinput ;
> ++(inputptr) ;
> }
> curinput .statefield = 0 ;
> curinput .startfield = p ;
> curinput .indexfield = t ;
> if ( t >= 5 )
> {
> ++(mem [p ].hh .v.LH) ;
> if ( t == 5 )
> curinput .limitfield = paramptr ;
> else {
>
> curinput .locfield = mem [p ].hh .v.RH ;
> if ( eqtb [27207 ].cint > 1 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (345)) ;
> switch ( t )
> {case 14 :
> zprintesc((strnumber) (359)) ;
> break ;
> case 20 :
> zprintesc((strnumber) (675)) ;
> break ;
> default:
> zprintcmdchr((quarterword) (72), (halfword) (t + 25053)) ;
> break ;
> }
> zprint((integer) (636)) ;
> ztokenshow((halfword) (p)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> }
> }
> else curinput .locfield = p ;
>}
>void
>endtokenlist ( void )
>{
> 
> if ( curinput .indexfield >= 3 )
> {
> if ( curinput .indexfield <= 4 )
> zflushlist((halfword) (curinput .startfield)) ;
> else {
>
> zdeletetokenref((halfword) (curinput .startfield)) ;
> if ( curinput .indexfield == 5 )
> while ( paramptr > curinput .limitfield ) {
>
> --(paramptr) ;
> zflushlist((halfword) (paramstack [paramptr ])) ;
> }
> }
> }
> else if ( curinput .indexfield == 1 ) {
>
> if ( alignstate > 500000L )
> alignstate = 0 ;
> else zfatalerror((strnumber) (676)) ;
> }
> {
> --(inputptr) ;
> curinput = inputstack [inputptr ];
> }
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
>}
>void
>backinput ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> while ( ( curinput .statefield == 0 ) && ( curinput .locfield == -268435455L
> ) && ( curinput .indexfield != 2 ) ) endtokenlist () ;
> p = getavail () ;
> mem [p ].hh .v.LH = curtok ;
> if ( curtok < 768 ) {
>
> if ( curtok < 512 )
> --(alignstate) ;
> else ++(alignstate) ;
> }
> {
> if ( inputptr > maxinstack )
> {
> maxinstack = inputptr ;
> if ( inputptr == stacksize )
> zoverflow((strnumber) (674), (integer) (stacksize)) ;
> }
> inputstack [inputptr ]= curinput ;
> ++(inputptr) ;
> }
> curinput .statefield = 0 ;
> curinput .startfield = p ;
> curinput .indexfield = 3 ;
> curinput .locfield = p ;
>}
>void
>backerror ( void )
>{
> 
> OKtointerrupt = 0 ;
> backinput () ;
> OKtointerrupt = 1 ;
> error () ;
>}
>void
>inserror ( void )
>{
> 
> OKtointerrupt = 0 ;
> backinput () ;
> curinput .indexfield = 4 ;
> OKtointerrupt = 1 ;
> error () ;
>}
>void
>beginfilereading ( void )
>{
> 
> if ( inopen == maxinopen )
> zoverflow((strnumber) (677), (integer) (maxinopen)) ;
> if ( first == bufsize )
> zoverflow((strnumber) (258), (integer) (bufsize)) ;
> ++(inopen) ;
> {
> if ( inputptr > maxinstack )
> {
> maxinstack = inputptr ;
> if ( inputptr == stacksize )
> zoverflow((strnumber) (674), (integer) (stacksize)) ;
> }
> inputstack [inputptr ]= curinput ;
> ++(inputptr) ;
> }
> curinput .indexfield = inopen ;
> sourcefilenamestack [curinput .indexfield ]= 0 ;
> fullsourcefilenamestack [curinput .indexfield ]= 0 ;
> eofseen [curinput .indexfield ]= 0 ;
> grpstack [curinput .indexfield ]= curboundary ;
> ifstack [curinput .indexfield ]= condptr ;
> linestack [curinput .indexfield ]= line ;
> curinput .startfield = first ;
> curinput .statefield = 1 ;
> curinput .namefield = 0 ;
> curinput .synctextagfield = 0 ;
>}
>void
>endfilereading ( void )
>{
> 
> first = curinput .startfield ;
> line = linestack [curinput .indexfield ];
> if ( ( curinput .namefield == 18 ) || ( curinput .namefield == 19 ) )
> pseudoclose () ;
> else if ( curinput .namefield > 17 )
> close_file_or_pipe(inputfile [curinput .indexfield ]) ;
> {
> --(inputptr) ;
> curinput = inputstack [inputptr ];
> }
> --(inopen) ;
>}
>void
>clearforerrorprompt ( void )
>{
> 
> while ( ( curinput .statefield != 0 ) && ( curinput .namefield == 0 ) && (
> inputptr > 0 ) && ( curinput .locfield > curinput .limitfield ) )
> endfilereading () ;
> println () ;
>}
>void
>mubyteupdate ( void )
>{
> register memoryword *mem=zmem;
> poolpointer j ;
> halfword p ;
> halfword q ;
> integer inmutree ;
> j = strstart [strptr ];
> if ( mubyteread [strpool [j ]]== -268435455L )
> {
> inmutree = 0 ;
> p = getavail () ;
> mubyteread [strpool [j ]]= p ;
> mem [p ].hh.u.B1 = strpool [j ];
> mem [p ].hh.u.B0 = 0 ;
> }
> else {
>
> inmutree = 1 ;
> p = mubyteread [strpool [j ]];
> }
> ++(j) ;
> while ( j < poolptr ) {
>
> if ( inmutree == 0 )
> {
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = getavail () ;
> p = mem [p ].hh .v.LH ;
> mem [p ].hh.u.B1 = strpool [j ];
> mem [p ].hh.u.B0 = 0 ;
> }
> else if ( ( mem [p ].hh.u.B0 > 0 ) && ( mem [p ].hh.u.B0 < 64 ) )
> {
> mem [p ].hh.u.B0 = mem [p ].hh.u.B0 + 64 ;
> q = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = q ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = getavail () ;
> p = mem [p ].hh .v.LH ;
> mem [p ].hh.u.B1 = strpool [j ];
> mem [p ].hh.u.B0 = 0 ;
> inmutree = 0 ;
> }
> else {
>
> if ( mem [p ].hh.u.B0 >= 64 )
> p = mem [p ].hh .v.RH ;
> do {
> p = mem [p ].hh .v.RH ;
> if ( mem [mem [p ].hh .v.LH ].hh.u.B1 == strpool [j ])
> {
> p = mem [p ].hh .v.LH ;
> goto lab22 ;
> }
> } while ( ! ( mem [p ].hh .v.RH == -268435455L ) ) ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = getavail () ;
> p = mem [p ].hh .v.LH ;
> mem [p ].hh.u.B1 = strpool [j ];
> mem [p ].hh.u.B0 = 0 ;
> inmutree = 0 ;
> }
> lab22: ++(j) ;
> }
> if ( inmutree == 1 )
> {
> if ( mem [p ].hh.u.B0 == 0 )
> {
> mem [p ].hh.u.B0 = mubyteprefix + 64 ;
> q = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = q ;
> mem [p ].hh .v.LH = mubytestoken ;
> return ;
> }
> if ( mem [p ].hh.u.B0 >= 64 )
> {
> mem [p ].hh.u.B0 = mubyteprefix + 64 ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = mubytestoken ;
> return ;
> }
> }
> mem [p ].hh.u.B0 = mubyteprefix ;
> mem [p ].hh .v.RH = mubytestoken ;
>}
>void
>zdisposemunode ( halfword p )
>{
> register memoryword *mem=zmem;
> halfword q ;
> if ( ( mem [p ].hh.u.B0 > 0 ) && ( mem [p ].hh.u.B0 < 64 ) )
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> else {
>
> if ( mem [p ].hh.u.B0 >= 64 )
> {
> q = mem [p ].hh .v.RH ;
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> p = q ;
> }
> q = mem [p ].hh .v.RH ;
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> p = q ;
> while ( p != -268435455L ) {
>
> zdisposemunode((halfword) (mem [p ].hh .v.LH)) ;
> q = mem [p ].hh .v.RH ;
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> p = q ;
> }
> }
>}
>void
>zdisposemutableout ( halfword cs )
>{
> register memoryword *mem=zmem;
> halfword p, q, r ;
> p = mubytecswrite [cs % 128 ];
> r = -268435455L ;
> while ( p != -268435455L ) if ( mem [p ].hh .v.LH == cs )
> {
> if ( r != -268435455L )
> mem [r ].hh .v.RH = mem [mem [p ].hh .v.RH ].hh .v.RH ;
> else mubytecswrite [cs % 128 ]= mem [mem [p ].hh .v.RH ].hh .v.RH ;
> q = mem [mem [p ].hh .v.RH ].hh .v.RH ;
> {
> mem [mem [p ].hh .v.RH ].hh .v.RH = avail ;
> avail = mem [p ].hh .v.RH ;
> ;
>
> --(dynused) ;
>
> }
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> p = q ;
> }
> else {
>
> r = mem [p ].hh .v.RH ;
> p = mem [r ].hh .v.RH ;
> }
>}
>void
>checkoutervalidity ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> halfword q ;
> if ( scannerstatus != 0 )
> {
> deletionsallowed = 0 ;
> if ( curcs != 0 )
> {
> if ( ( curinput .statefield == 0 ) || ( curinput .namefield < 1 ) || (
> curinput .namefield > 17 ) )
> {
> p = getavail () ;
> mem [p ].hh .v.LH = 4095 + curcs ;
> zbegintokenlist((halfword) (p), (quarterword) (3)) ;
> }
> curcmd = 10 ;
> curchr = 32 ;
> }
> if ( scannerstatus > 1 )
> {
> runaway () ;
> if ( curcs == 0 )
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (685)) ;
> }
> else {
>
> curcs = 0 ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (686)) ;
> }
> }
> p = getavail () ;
> switch ( scannerstatus )
> {case 2 :
> {
> zprint((integer) (692)) ;
> mem [p ].hh .v.LH = 637 ;
> }
> break ;
> case 3 :
> {
> zprint((integer) (693)) ;
> mem [p ].hh .v.LH = partoken ;
> longstate = 115 ;
> }
> break ;
> case 4 :
> {
> zprint((integer) (694)) ;
> mem [p ].hh .v.LH = 637 ;
> q = p ;
> p = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [p ].hh .v.LH = 19610 ;
> alignstate = -1000000L ;
> }
> break ;
> case 5 :
> {
> zprint((integer) (695)) ;
> mem [p ].hh .v.LH = 637 ;
> }
> break ;
> }
> zbegintokenlist((halfword) (p), (quarterword) (4)) ;
> zprint((integer) (687)) ;
> zsprintcs((halfword) (warningindex)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 688 ;
> helpline [2 ]= 689 ;
> helpline [1 ]= 690 ;
> helpline [0 ]= 691 ;
> }
> error () ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (679)) ;
> }
> zprintcmdchr((quarterword) (107), (halfword) (curif)) ;
> zprint((integer) (680)) ;
> zprintint((longinteger) (skipline)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 681 ;
> helpline [1 ]= 682 ;
> helpline [0 ]= 683 ;
> }
> if ( curcs != 0 )
> curcs = 0 ;
> else helpline [2 ]= 684 ;
> curtok = 19613 ;
> inserror () ;
> }
> deletionsallowed = 1 ;
> }
>}
>void
>getnext ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer k ;
> halfword t ;
> integer i, j ;
> boolean mubyteincs ;
> halfword p ;
> unsigned char cat ;
> ASCIIcode c, cc ;
> unsigned char d ;
> lab20: curcs = 0 ;
> if ( curinput .statefield != 0 )
> {
> lab25: if ( curinput .locfield <= curinput .limitfield )
> {
> k = curinput .locfield ;
> curchr = zzreadbuffer((integer *) &(k)) ;
> curinput .locfield = k ;
> ++(curinput .locfield) ;
> if ( ( mubytetoken > 0 ) )
> {
> curinput .statefield = 1 ;
> curcs = mubytetoken - 4095 ;
> goto lab40 ;
> }
> lab21: curcmd = eqtb [25641 + curchr ].hh .v.RH ;
> switch ( curinput .statefield + curcmd )
> {case 10 :
> case 26 :
> case 42 :
> case 27 :
> case 43 :
> goto lab25 ;
> break ;
> case 1 :
> case 17 :
> case 33 :
> {
> if ( curinput .locfield > curinput .limitfield )
> curcs = 513 ;
> else {
>
> lab26: mubyteincs = 0 ;
> k = curinput .locfield ;
> mubyteskeep = mubytekeep ;
> curchr = zzreadbuffer((integer *) &(k)) ;
> cat = eqtb [25641 + curchr ].hh .v.RH ;
> if ( ( eqtb [27235 ].cint > 0 ) && ( ! mubyteincs ) && ( (
> mubyteskip > 0 ) || ( curchr != buffer [k ]) ) )
> mubyteincs = 1 ;
> ++(k) ;
> if ( mubytetoken > 0 )
> {
> curinput .statefield = 1 ;
> curcs = mubytetoken - 4095 ;
> goto lab40 ;
> }
> if ( cat == 11 )
> curinput .statefield = 17 ;
> else if ( cat == 10 )
> curinput .statefield = 17 ;
> else curinput .statefield = 1 ;
> if ( ( cat == 11 ) && ( k <= curinput .limitfield ) )
> {
> do {
> curchr = zzreadbuffer((integer *) &(k)) ;
> cat = eqtb [25641 + curchr ].hh .v.RH ;
> if ( mubytetoken > 0 )
> cat = 0 ;
> if ( ( eqtb [27235 ].cint > 0 ) && ( ! mubyteincs ) && ( cat
> == 11 ) && ( ( mubyteskip > 0 ) || ( curchr != buffer [k ])
> ) )
> mubyteincs = 1 ;
> ++(k) ;
> } while ( ! ( ( cat != 11 ) || ( k > curinput .limitfield ) ) )
> ;
> {
> if ( buffer [k ]== curchr ) {
>
> if ( cat == 7 ) {
>
> if ( k < curinput .limitfield )
> {
> c = buffer [k + 1 ];
> if ( c < 128 )
> {
> d = 2 ;
> if ( ( ( ( c >= 48 ) && ( c <= 57 ) ) || ( ( c >= 97 )
> && ( c <= 102 ) ) ) ) {
>
> if ( k + 2 <= curinput .limitfield )
> {
> cc = buffer [k + 2 ];
> if ( ( ( ( cc >= 48 ) && ( cc <= 57 ) ) || ( ( cc
> >= 97 ) && ( cc <= 102 ) ) ) )
> ++(d) ;
> }
> }
> if ( d > 2 )
> {
> if ( c <= 57 )
> curchr = c - 48 ;
> else curchr = c - 87 ;
> if ( cc <= 57 )
> curchr = 16 * curchr + cc - 48 ;
> else curchr = 16 * curchr + cc - 87 ;
> buffer [k - 1 ]= curchr ;
> }
> else if ( c < 64 )
> buffer [k - 1 ]= c + 64 ;
> else buffer [k - 1 ]= c - 64 ;
> curinput .limitfield = curinput .limitfield - d ;
> first = first - d ;
> while ( k <= curinput .limitfield ) {
>
> buffer [k ]= buffer [k + d ];
> ++(k) ;
> }
> goto lab26 ;
> }
> }
> }
> }
> }
> if ( cat != 11 )
> {
> --(k) ;
> k = k - mubyteskip ;
> }
> if ( k > curinput .locfield + 1 )
> {
> if ( mubyteincs )
> {
> i = curinput .locfield ;
> j = first ;
> mubytekeep = mubyteskeep ;
> if ( j - curinput .locfield + k > maxbufstack )
> {
> maxbufstack = j - curinput .locfield + k ;
> if ( maxbufstack >= bufsize )
> {
> maxbufstack = bufsize ;
> zoverflow((strnumber) (258), (integer) (bufsize)) ;
> }
> }
> while ( i < k ) {
>
> buffer [j ]= zzreadbuffer((integer *) &(i)) ;
> ++(i) ;
> ++(j) ;
> }
> if ( j == first + 1 )
> curcs = 257 + buffer [first ];
> else curcs = zidlookup((integer) (first), (integer) (j - first)) ;
> }
> else curcs = zidlookup((integer) (curinput .locfield), (integer) (k - curinput .locfield))
> ;
> curinput .locfield = k ;
> goto lab40 ;
> }
> }
> else {
>
> if ( buffer [k ]== curchr ) {
>
> if ( cat == 7 ) {
>
> if ( k < curinput .limitfield )
> {
> c = buffer [k + 1 ];
> if ( c < 128 )
> {
> d = 2 ;
> if ( ( ( ( c >= 48 ) && ( c <= 57 ) ) || ( ( c >= 97 )
> && ( c <= 102 ) ) ) ) {
>
> if ( k + 2 <= curinput .limitfield )
> {
> cc = buffer [k + 2 ];
> if ( ( ( ( cc >= 48 ) && ( cc <= 57 ) ) || ( ( cc >=
> 97 ) && ( cc <= 102 ) ) ) )
> ++(d) ;
> }
> }
> if ( d > 2 )
> {
> if ( c <= 57 )
> curchr = c - 48 ;
> else curchr = c - 87 ;
> if ( cc <= 57 )
> curchr = 16 * curchr + cc - 48 ;
> else curchr = 16 * curchr + cc - 87 ;
> buffer [k - 1 ]= curchr ;
> }
> else if ( c < 64 )
> buffer [k - 1 ]= c + 64 ;
> else buffer [k - 1 ]= c - 64 ;
> curinput .limitfield = curinput .limitfield - d ;
> first = first - d ;
> while ( k <= curinput .limitfield ) {
>
> buffer [k ]= buffer [k + d ];
> ++(k) ;
> }
> goto lab26 ;
> }
> }
> }
> }
> }
> mubytekeep = mubyteskeep ;
> curcs = 257 + zzreadbuffer((integer *) &(curinput .locfield)) ;
> ++(curinput .locfield) ;
> }
> lab40: curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> if ( curcmd >= 115 )
> checkoutervalidity () ;
> if ( writenoexpanding )
> {
> p = mubytecswrite [curcs % 128 ];
> while ( p != -268435455L ) if ( mem [p ].hh .v.LH == curcs )
> {
> curcmd = 0 ;
> curchr = 256 ;
> p = -268435455L ;
> }
> else p = mem [mem [p ].hh .v.RH ].hh .v.RH ;
> }
> }
> break ;
> case 14 :
> case 30 :
> case 46 :
> {
> curcs = curchr + 1 ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> curinput .statefield = 1 ;
> if ( curcmd >= 115 )
> checkoutervalidity () ;
> }
> break ;
> case 8 :
> case 24 :
> case 40 :
> {
> if ( curchr == buffer [curinput .locfield ]) {
>
> if ( curinput .locfield < curinput .limitfield )
> {
> c = buffer [curinput .locfield + 1 ];
> if ( c < 128 )
> {
> curinput .locfield = curinput .locfield + 2 ;
> if ( ( ( ( c >= 48 ) && ( c <= 57 ) ) || ( ( c >= 97 ) && ( c
> <= 102 ) ) ) ) {
>
> if ( curinput .locfield <= curinput .limitfield )
> {
> cc = buffer [curinput .locfield ];
> if ( ( ( ( cc >= 48 ) && ( cc <= 57 ) ) || ( ( cc >= 97 )
> && ( cc <= 102 ) ) ) )
> {
> ++(curinput .locfield) ;
> if ( c <= 57 )
> curchr = c - 48 ;
> else curchr = c - 87 ;
> if ( cc <= 57 )
> curchr = 16 * curchr + cc - 48 ;
> else curchr = 16 * curchr + cc - 87 ;
> goto lab21 ;
> }
> }
> }
> if ( c < 64 )
> curchr = c + 64 ;
> else curchr = c - 64 ;
> goto lab21 ;
> }
> }
> }
> curinput .statefield = 1 ;
> }
> break ;
> case 16 :
> case 32 :
> case 48 :
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (696)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 697 ;
> helpline [0 ]= 698 ;
> }
> deletionsallowed = 0 ;
> error () ;
> deletionsallowed = 1 ;
> goto lab20 ;
> }
> break ;
> case 11 :
> {
> curinput .statefield = 17 ;
> curchr = 32 ;
> }
> break ;
> case 6 :
> {
> curinput .locfield = curinput .limitfield + 1 ;
> curcmd = 10 ;
> curchr = 32 ;
> }
> break ;
> case 22 :
> case 15 :
> case 31 :
> case 47 :
> {
> curinput .locfield = curinput .limitfield + 1 ;
> goto lab25 ;
> }
> break ;
> case 38 :
> {
> curinput .locfield = curinput .limitfield + 1 ;
> curcs = parloc ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> if ( curcmd >= 115 )
> checkoutervalidity () ;
> }
> break ;
> case 2 :
> ++(alignstate) ;
> break ;
> case 18 :
> case 34 :
> {
> curinput .statefield = 1 ;
> ++(alignstate) ;
> }
> break ;
> case 3 :
> --(alignstate) ;
> break ;
> case 19 :
> case 35 :
> {
> curinput .statefield = 1 ;
> --(alignstate) ;
> }
> break ;
> case 20 :
> case 21 :
> case 23 :
> case 25 :
> case 28 :
> case 29 :
> case 36 :
> case 37 :
> case 39 :
> case 41 :
> case 44 :
> case 45 :
> curinput .statefield = 1 ;
> break ;
> default:
> ;
> break ;
> }
> }
> else {
>
> curinput .statefield = 33 ;
> if ( curinput .namefield > 17 )
> {
> ++(line) ;
> first = curinput .startfield ;
> if ( ! forceeof ) {
>
> if ( curinput .namefield <= 19 )
> {
> if ( pseudoinput () )
> firmuptheline () ;
> else if ( ( eqtb [25072 ].hh .v.RH != -268435455L ) && ! eofseen
> [curinput .indexfield ])
> {
> curinput .limitfield = first - 1 ;
> eofseen [curinput .indexfield ]= 1 ;
> zbegintokenlist((halfword) (eqtb [25072 ].hh .v.RH), (quarterword) (19)) ;
> goto lab20 ;
> }
> else forceeof = 1 ;
> }
> else {
>
> if ( input_line (inputfile [curinput .indexfield ]) )
> firmuptheline () ;
> else if ( ( eqtb [25072 ].hh .v.RH != -268435455L ) && ! eofseen
> [curinput .indexfield ])
> {
> curinput .limitfield = first - 1 ;
> eofseen [curinput .indexfield ]= 1 ;
> zbegintokenlist((halfword) (eqtb [25072 ].hh .v.RH), (quarterword) (19)) ;
> goto lab20 ;
> }
> else forceeof = 1 ;
> }
> }
> if ( forceeof )
> {
> if ( eqtb [27273 ].cint > 0 ) {
>
> if ( ( grpstack [inopen ]!= curboundary ) || ( ifstack [inopen
> ]!= condptr ) )
> filewarning () ;
> }
> if ( curinput .namefield >= 19 )
> {
> zprintchar((ASCIIcode) (41)) ;
> --(openparens) ;
> fflush ( stdout ) ;
> }
> forceeof = 0 ;
> endfilereading () ;
> checkoutervalidity () ;
> goto lab20 ;
> }
> if ( ( eqtb [27225 ].cint < 0 ) || ( eqtb [27225 ].cint > 255 ) )
> --(curinput .limitfield) ;
> else buffer [curinput .limitfield ]= eqtb [27225 ].cint ;
> first = curinput .limitfield + 1 ;
> curinput .locfield = curinput .startfield ;
> }
> else {
>
> if ( ! ( curinput .namefield == 0 ) )
> {
> curcmd = 0 ;
> curchr = 0 ;
> return ;
> }
> if ( inputptr > 0 )
> {
> endfilereading () ;
> goto lab20 ;
> }
> if ( selector < 18 )
> openlogfile () ;
> if ( interaction > 1 )
> {
> if ( ( eqtb [27225 ].cint < 0 ) || ( eqtb [27225 ].cint > 255 )
> )
> ++(curinput .limitfield) ;
> if ( curinput .limitfield == curinput .startfield )
> zprintnl((strnumber) (699)) ;
> println () ;
> first = curinput .startfield ;
> {
> ;
> zprint((integer) (42)) ;
> terminput () ;
> }
> curinput .limitfield = last ;
> if ( ( eqtb [27225 ].cint < 0 ) || ( eqtb [27225 ].cint > 255 )
> )
> --(curinput .limitfield) ;
> else buffer [curinput .limitfield ]= eqtb [27225 ].cint ;
> first = curinput .limitfield + 1 ;
> curinput .locfield = curinput .startfield ;
> }
> else zfatalerror((strnumber) (700)) ;
> }
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
> goto lab25 ;
> }
> }
> else if ( curinput .locfield != -268435455L )
> {
> t = mem [curinput .locfield ].hh .v.LH ;
> curinput .locfield = mem [curinput .locfield ].hh .v.RH ;
> if ( t >= 4095 )
> {
> curcs = t - 4095 ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> if ( curcmd >= 115 ) {
>
> if ( curcmd == 118 )
> {
> curcs = mem [curinput .locfield ].hh .v.LH - 4095 ;
> curinput .locfield = -268435455L ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> if ( curcmd > 102 )
> {
> curcmd = 0 ;
> curchr = 257 ;
> }
> }
> else checkoutervalidity () ;
> }
> if ( writenoexpanding )
> {
> p = mubytecswrite [curcs % 128 ];
> while ( p != -268435455L ) if ( mem [p ].hh .v.LH == curcs )
> {
> curcmd = 0 ;
> curchr = 256 ;
> p = -268435455L ;
> }
> else p = mem [mem [p ].hh .v.RH ].hh .v.RH ;
> }
> }
> else {
>
> curcmd = t / 256 ;
> curchr = t % 256 ;
> switch ( curcmd )
> {case 1 :
> ++(alignstate) ;
> break ;
> case 2 :
> --(alignstate) ;
> break ;
> case 5 :
> {
> zbegintokenlist((halfword) (paramstack [curinput .limitfield + curchr - 1 ]), (quarterword) (0))
> ;
> goto lab20 ;
> }
> break ;
> default:
> ;
> break ;
> }
> }
> }
> else {
>
> endtokenlist () ;
> goto lab20 ;
> }
> if ( curcmd <= 5 ) {
>
> if ( curcmd >= 4 ) {
>
> if ( alignstate == 0 )
> {
> if ( ( scannerstatus == 4 ) || ( curalign == -268435455L ) )
> zfatalerror((strnumber) (676)) ;
> curcmd = mem [curalign + 5 ].hh .v.LH ;
> mem [curalign + 5 ].hh .v.LH = curchr ;
> if ( curcmd == 63 )
> zbegintokenlist((halfword) (memtop - 10), (quarterword) (2)) ;
> else zbegintokenlist((halfword) (mem [curalign + 2 ].cint), (quarterword) (2)) ;
> alignstate = 1000000L ;
> goto lab20 ;
> }
> }
> }
>}
>void
>firmuptheline ( void )
>{
> register memoryword *eqtb=zeqtb;
> integer k ;
> curinput .limitfield = last ;
> if ( eqtb [27205 ].cint > 0 ) {
>
> if ( interaction > 1 )
> {
> ;
> println () ;
> k = curinput .startfield ;
> while ( k < curinput .limitfield ) {
>
> zzprintbuffer((integer *) &(k)) ;
> }
> first = curinput .limitfield ;
> {
> ;
> zprint((integer) (701)) ;
> terminput () ;
> }
> if ( last > first )
> {
> {register integer for_end; k = first ;for_end = last - 1 ; if ( k <=
> for_end) do
> buffer [k + curinput .startfield - first ]= buffer [k ];
> while ( k++ < for_end ) ;}
> curinput .limitfield = curinput .startfield + last - first ;
> }
> }
> }
>}
>void
>gettoken ( void )
>{
> 
> nonewcontrolsequence = 0 ;
> getnext () ;
> nonewcontrolsequence = 1 ;
> if ( curcs == 0 )
> curtok = ( curcmd * 256 ) + curchr ;
> else curtok = 4095 + curcs ;
>}
>void
>macrocall ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword r ;
> halfword p ;
> halfword q ;
> halfword s ;
> halfword t ;
> halfword u, v ;
> halfword rbraceptr ;
> smallnumber n ;
> halfword unbalance ;
> halfword m ;
> halfword refcount ;
> smallnumber savescannerstatus ;
> halfword savewarningindex ;
> ASCIIcode matchchr ;
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> warningindex = curcs ;
> refcount = curchr ;
> r = mem [refcount ].hh .v.RH ;
> n = 0 ;
> if ( eqtb [27207 ].cint > 0 )
> {
> begindiagnostic () ;
> println () ;
> zprintcs((integer) (warningindex)) ;
> ztokenshow((halfword) (refcount)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> if ( mem [r ].hh .v.LH == 3585 )
> r = mem [r ].hh .v.RH ;
> if ( mem [r ].hh .v.LH != 3584 )
> {
> scannerstatus = 3 ;
> unbalance = 0 ;
> longstate = eqtb [curcs ].hh.u.B0 ;
> if ( longstate >= 115 )
> longstate = longstate - 2 ;
> do {
> mem [memtop - 3 ].hh .v.RH = -268435455L ;
> if ( ( mem [r ].hh .v.LH > 3583 ) || ( mem [r ].hh .v.LH < 3328 ) )
> s = -268435455L ;
> else {
>
> matchchr = mem [r ].hh .v.LH - 3328 ;
> s = mem [r ].hh .v.RH ;
> r = s ;
> p = memtop - 3 ;
> m = 0 ;
> }
> lab22: gettoken () ;
> if ( curtok == mem [r ].hh .v.LH )
> {
> r = mem [r ].hh .v.RH ;
> if ( ( mem [r ].hh .v.LH >= 3328 ) && ( mem [r ].hh .v.LH <= 3584
> ) )
> {
> if ( curtok < 512 )
> --(alignstate) ;
> goto lab40 ;
> }
> else goto lab22 ;
> }
> if ( s != r ) {
>
> if ( s == -268435455L )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (737)) ;
> }
> zsprintcs((halfword) (warningindex)) ;
> zprint((integer) (738)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 739 ;
> helpline [2 ]= 740 ;
> helpline [1 ]= 741 ;
> helpline [0 ]= 742 ;
> }
> error () ;
> goto lab10 ;
> }
> else {
>
> t = s ;
> do {
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = mem [t ].hh .v.LH ;
> p = q ;
> }
> ++(m) ;
> u = mem [t ].hh .v.RH ;
> v = s ;
> while ( 1 ) {
>
> if ( u == r ) {
>
> if ( curtok != mem [v ].hh .v.LH )
> goto lab30 ;
> else {
>
> r = mem [v ].hh .v.RH ;
> goto lab22 ;
> }
> }
> if ( mem [u ].hh .v.LH != mem [v ].hh .v.LH )
> goto lab30 ;
> u = mem [u ].hh .v.RH ;
> v = mem [v ].hh .v.RH ;
> }
> lab30: t = mem [t ].hh .v.RH ;
> } while ( ! ( t == r ) ) ;
> r = s ;
> }
> }
> if ( curtok == partoken ) {
>
> if ( longstate != 114 )
> {
> if ( longstate == 113 )
> {
> runaway () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (732)) ;
> }
> zsprintcs((halfword) (warningindex)) ;
> zprint((integer) (733)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 734 ;
> helpline [1 ]= 735 ;
> helpline [0 ]= 736 ;
> }
> backerror () ;
> }
> pstack [n ]= mem [memtop - 3 ].hh .v.RH ;
> alignstate = alignstate - unbalance ;
> {register integer for_end; m = 0 ;for_end = n ; if ( m <= for_end)
> do
> zflushlist((halfword) (pstack [m ])) ;
> while ( m++ < for_end ) ;}
> goto lab10 ;
> }
> }
> if ( curtok < 768 ) {
>
> if ( curtok < 512 )
> {
> unbalance = 1 ;
> while ( 1 ) {
>
> {
> {
> q = avail ;
> if ( q == -268435455L )
> q = getavail () ;
> else {
>
> avail = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> gettoken () ;
> if ( curtok == partoken ) {
>
> if ( longstate != 114 )
> {
> if ( longstate == 113 )
> {
> runaway () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (732)) ;
> }
> zsprintcs((halfword) (warningindex)) ;
> zprint((integer) (733)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 734 ;
> helpline [1 ]= 735 ;
> helpline [0 ]= 736 ;
> }
> backerror () ;
> }
> pstack [n ]= mem [memtop - 3 ].hh .v.RH ;
> alignstate = alignstate - unbalance ;
> {register integer for_end; m = 0 ;for_end = n ; if ( m <=
> for_end) do
> zflushlist((halfword) (pstack [m ])) ;
> while ( m++ < for_end ) ;}
> goto lab10 ;
> }
> }
> if ( curtok < 768 ) {
>
> if ( curtok < 512 )
> ++(unbalance) ;
> else {
>
> --(unbalance) ;
> if ( unbalance == 0 )
> goto lab31 ;
> }
> }
> }
> lab31: rbraceptr = p ;
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> else {
>
> backinput () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (724)) ;
> }
> zsprintcs((halfword) (warningindex)) ;
> zprint((integer) (725)) ;
> {
> helpptr = 6 ;
> helpline [5 ]= 726 ;
> helpline [4 ]= 727 ;
> helpline [3 ]= 728 ;
> helpline [2 ]= 729 ;
> helpline [1 ]= 730 ;
> helpline [0 ]= 731 ;
> }
> ++(alignstate) ;
> longstate = 113 ;
> curtok = partoken ;
> inserror () ;
> goto lab22 ;
> }
> }
> else {
>
> if ( curtok == 2592 ) {
>
> if ( mem [r ].hh .v.LH <= 3584 ) {
>
> if ( mem [r ].hh .v.LH >= 3328 )
> goto lab22 ;
> }
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> ++(m) ;
> if ( mem [r ].hh .v.LH > 3584 )
> goto lab22 ;
> if ( mem [r ].hh .v.LH < 3328 )
> goto lab22 ;
> lab40: if ( s != -268435455L )
> {
> if ( ( m == 1 ) && ( mem [p ].hh .v.LH < 768 ) && ( p != memtop - 3
> ) )
> {
> mem [rbraceptr ].hh .v.RH = -268435455L ;
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> p = mem [memtop - 3 ].hh .v.RH ;
> pstack [n ]= mem [p ].hh .v.RH ;
> {
> mem [p ].hh .v.RH = avail ;
> avail = p ;
> ;
>
> --(dynused) ;
>
> }
> }
> else pstack [n ]= mem [memtop - 3 ].hh .v.RH ;
> ++(n) ;
> if ( eqtb [27207 ].cint > 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (matchchr)) ;
> zprintint((longinteger) (n)) ;
> zprint((integer) (743)) ;
> zshowtokenlist((integer) (pstack [n - 1 ]), (integer) (-268435455L), (integer) (1000)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> }
> } while ( ! ( mem [r ].hh .v.LH == 3584 ) ) ;
> }
> while ( ( curinput .statefield == 0 ) && ( curinput .locfield == -268435455L
> ) && ( curinput .indexfield != 2 ) ) endtokenlist () ;
> zbegintokenlist((halfword) (refcount), (quarterword) (5)) ;
> curinput .namefield = warningindex ;
> curinput .locfield = mem [r ].hh .v.RH ;
> if ( n > 0 )
> {
> if ( paramptr + n > maxparamstack )
> {
> maxparamstack = paramptr + n ;
> if ( maxparamstack > paramsize )
> zoverflow((strnumber) (723), (integer) (paramsize)) ;
> }
> {register integer for_end; m = 0 ;for_end = n - 1 ; if ( m <= for_end)
> do
> paramstack [paramptr + m ]= pstack [m ];
> while ( m++ < for_end ) ;}
> paramptr = paramptr + n ;
> }
> lab10: scannerstatus = savescannerstatus ;
> warningindex = savewarningindex ;
>}
>void
>insertrelax ( void )
>{
> 
> curtok = 4095 + curcs ;
> backinput () ;
> curtok = 19616 ;
> backinput () ;
> curinput .indexfield = 4 ;
>}
>void
>znewindex ( quarterword i , halfword q )
>{
> register memoryword *mem=zmem;
> smallnumber k ;
> curptr = zgetnode((integer) (9)) ;
> mem [curptr ].hh.u.B0 = i ;
> mem [curptr ].hh.u.B1 = 0 ;
> mem [curptr ].hh .v.RH = q ;
> {register integer for_end; k = 1 ;for_end = 8 ; if ( k <= for_end) do
> mem [curptr + k ]= sanull ;
> while ( k++ < for_end ) ;}
>}
>void
>zfindsaelement ( smallnumber t , halfword n , boolean w )
>{
> register memoryword *mem=zmem;
> halfword q ;
> smallnumber i ;
> curptr = saroot [t ];
> {
> if ( curptr == -268435455L ) {
>
> if ( w )
> goto lab45 ;
> else return ;
> }
> }
> q = curptr ;
> i = n / 4096 ;
> if ( ((i) & 1) )
> curptr = mem [q + ( i / 2 ) + 1 ].hh .v.RH ;
> else curptr = mem [q + ( i / 2 ) + 1 ].hh .v.LH ;
> {
> if ( curptr == -268435455L ) {
>
> if ( w )
> goto lab46 ;
> else return ;
> }
> }
> q = curptr ;
> i = ( n / 256 ) % 16 ;
> if ( ((i) & 1) )
> curptr = mem [q + ( i / 2 ) + 1 ].hh .v.RH ;
> else curptr = mem [q + ( i / 2 ) + 1 ].hh .v.LH ;
> {
> if ( curptr == -268435455L ) {
>
> if ( w )
> goto lab47 ;
> else return ;
> }
> }
> q = curptr ;
> i = ( n / 16 ) % 16 ;
> if ( ((i) & 1) )
> curptr = mem [q + ( i / 2 ) + 1 ].hh .v.RH ;
> else curptr = mem [q + ( i / 2 ) + 1 ].hh .v.LH ;
> {
> if ( curptr == -268435455L ) {
>
> if ( w )
> goto lab48 ;
> else return ;
> }
> }
> q = curptr ;
> i = n % 16 ;
> if ( ((i) & 1) )
> curptr = mem [q + ( i / 2 ) + 1 ].hh .v.RH ;
> else curptr = mem [q + ( i / 2 ) + 1 ].hh .v.LH ;
> if ( ( curptr == -268435455L ) && w )
> goto lab49 ;
> return ;
> lab45: znewindex((quarterword) (t), (halfword) (-268435455L)) ;
> saroot [t ]= curptr ;
> q = curptr ;
> i = n / 4096 ;
> lab46: znewindex((quarterword) (i), (halfword) (q)) ;
> {
> if ( ((i) & 1) )
> mem [q + ( i / 2 ) + 1 ].hh .v.RH = curptr ;
> else mem [q + ( i / 2 ) + 1 ].hh .v.LH = curptr ;
> ++(mem [q ].hh.u.B1) ;
> }
> q = curptr ;
> i = ( n / 256 ) % 16 ;
> lab47: znewindex((quarterword) (i), (halfword) (q)) ;
> {
> if ( ((i) & 1) )
> mem [q + ( i / 2 ) + 1 ].hh .v.RH = curptr ;
> else mem [q + ( i / 2 ) + 1 ].hh .v.LH = curptr ;
> ++(mem [q ].hh.u.B1) ;
> }
> q = curptr ;
> i = ( n / 16 ) % 16 ;
> lab48: znewindex((quarterword) (i), (halfword) (q)) ;
> {
> if ( ((i) & 1) )
> mem [q + ( i / 2 ) + 1 ].hh .v.RH = curptr ;
> else mem [q + ( i / 2 ) + 1 ].hh .v.LH = curptr ;
> ++(mem [q ].hh.u.B1) ;
> }
> q = curptr ;
> i = n % 16 ;
> lab49: if ( t == 6 )
> {
> curptr = zgetnode((integer) (4)) ;
> mem [curptr + 1 ]= sanull ;
> mem [curptr + 2 ]= sanull ;
> mem [curptr + 3 ]= sanull ;
> }
> else {
>
> if ( t <= 1 )
> {
> curptr = zgetnode((integer) (3)) ;
> mem [curptr + 2 ].cint = 0 ;
> mem [curptr + 1 ].hh .v.RH = n ;
> }
> else {
>
> curptr = zgetnode((integer) (2)) ;
> if ( t <= 3 )
> {
> mem [curptr + 1 ].hh .v.RH = membot ;
> ++(mem [membot ].hh .v.RH) ;
> }
> else mem [curptr + 1 ].hh .v.RH = -268435455L ;
> }
> mem [curptr + 1 ].hh .v.LH = -268435455L ;
> }
> mem [curptr ].hh.u.B0 = 16 * t + i ;
> mem [curptr ].hh.u.B1 = 1 ;
> mem [curptr ].hh .v.RH = q ;
> {
> if ( ((i) & 1) )
> mem [q + ( i / 2 ) + 1 ].hh .v.RH = curptr ;
> else mem [q + ( i / 2 ) + 1 ].hh .v.LH = curptr ;
> ++(mem [q ].hh.u.B1) ;
> }
>}
>void
>expand ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword t ;
> boolean b ;
> halfword p, q, r ;
> integer j ;
> integer cvbackup ;
> smallnumber cvlbackup, radixbackup, cobackup ;
> halfword backupbackup ;
> smallnumber savescannerstatus ;
> ++(expanddepthcount) ;
> if ( expanddepthcount >= expanddepth )
> zoverflow((strnumber) (702), (integer) (expanddepth)) ;
> cvbackup = curval ;
> cvlbackup = curvallevel ;
> radixbackup = radix ;
> cobackup = curorder ;
> backupbackup = mem [memtop - 13 ].hh .v.RH ;
> lab21: if ( curcmd < 113 )
> {
> if ( eqtb [27213 ].cint > 1 )
> showcurcmdchr () ;
> switch ( curcmd )
> {case 112 :
> {
> t = curchr % 5 ;
> if ( curchr >= 5 )
> scanregisternum () ;
> else curval = 0 ;
> if ( curval == 0 )
> curptr = curmark [t ];
> else {
>
> zfindsaelement((smallnumber) (6), (halfword) (curval), (boolean) (0)) ;
> if ( curptr != -268435455L ) {
>
> if ( ((t) & 1) )
> curptr = mem [curptr + ( t / 2 ) + 1 ].hh .v.RH ;
> else curptr = mem [curptr + ( t / 2 ) + 1 ].hh .v.LH ;
> }
> }
> if ( curptr != -268435455L )
> zbegintokenlist((halfword) (curptr), (quarterword) (14)) ;
> }
> break ;
> case 104 :
> if ( curchr == 0 )
> {
> gettoken () ;
> t = curtok ;
> gettoken () ;
> if ( curcmd > 102 )
> expand () ;
> else backinput () ;
> curtok = t ;
> backinput () ;
> }
> else {
>
> gettoken () ;
> if ( ( curcmd == 107 ) && ( curchr != 16 ) )
> {
> curchr = curchr + 32 ;
> goto lab21 ;
> }
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (786)) ;
> }
> zprintesc((strnumber) (927)) ;
> zprint((integer) (2027)) ;
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> zprintchar((ASCIIcode) (39)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 698 ;
> }
> backerror () ;
> }
> break ;
> case 105 :
> if ( curchr == 0 )
> {
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> gettoken () ;
> scannerstatus = savescannerstatus ;
> t = curtok ;
> backinput () ;
> if ( t >= 4095 )
> {
> p = getavail () ;
> mem [p ].hh .v.LH = 19618 ;
> mem [p ].hh .v.RH = curinput .locfield ;
> curinput .startfield = p ;
> curinput .locfield = p ;
> }
> }
> else {
>
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> gettoken () ;
> scannerstatus = savescannerstatus ;
> if ( curcs < 514 )
> curcs = zprimlookup((strnumber) (curcs - 257)) ;
> else curcs = zprimlookup((strnumber) (hash [curcs ].v.RH)) ;
> if ( curcs != 0 )
> {
> t = primeqtb [curcs ].hh.u.B0 ;
> if ( t > 102 )
> {
> curcmd = t ;
> curchr = primeqtb [curcs ].hh .v.RH ;
> curtok = ( curcmd * 256 ) + curchr ;
> curcs = 0 ;
> goto lab21 ;
> }
> else {
>
> backinput () ;
> p = getavail () ;
> mem [p ].hh .v.LH = 19620 ;
> mem [p ].hh .v.RH = curinput .locfield ;
> curinput .locfield = p ;
> curinput .startfield = p ;
> }
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (703)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 704 ;
> helpline [0 ]= 705 ;
> }
> backerror () ;
> }
> }
> break ;
> case 109 :
> {
> r = getavail () ;
> p = r ;
> b = isincsname ;
> isincsname = 1 ;
> do {
> getxtoken () ;
> if ( curcs == 0 )
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> } while ( ! ( curcs != 0 ) ) ;
> if ( ( curcmd != 67 ) || ( curchr != 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (712)) ;
> }
> zprintesc((strnumber) (578)) ;
> zprint((integer) (713)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 714 ;
> helpline [0 ]= 715 ;
> }
> backerror () ;
> }
> isincsname = b ;
> j = first ;
> p = mem [r ].hh .v.RH ;
> while ( p != -268435455L ) {
>
> if ( j >= maxbufstack )
> {
> maxbufstack = j + 1 ;
> if ( maxbufstack == bufsize )
> zoverflow((strnumber) (258), (integer) (bufsize)) ;
> }
> buffer [j ]= mem [p ].hh .v.LH % 256 ;
> ++(j) ;
> p = mem [p ].hh .v.RH ;
> }
> if ( j > first + 1 )
> {
> nonewcontrolsequence = 0 ;
> curcs = zidlookup((integer) (first), (integer) (j - first)) ;
> nonewcontrolsequence = 1 ;
> }
> else if ( j == first )
> curcs = 513 ;
> else curcs = 257 + buffer [first ];
> zflushlist((halfword) (r)) ;
> if ( eqtb [curcs ].hh.u.B0 == 103 )
> {
> zeqdefine((halfword) (curcs), (quarterword) (0), (halfword) (256)) ;
> }
> curtok = curcs + 4095 ;
> backinput () ;
> }
> break ;
> case 110 :
> convtoks () ;
> break ;
> case 111 :
> insthetoks () ;
> break ;
> case 107 :
> conditional () ;
> break ;
> case 108 :
> {
> if ( eqtb [27271 ].cint > 0 ) {
>
> if ( eqtb [27213 ].cint <= 1 )
> showcurcmdchr () ;
> }
> if ( curchr > iflimit ) {
>
> if ( iflimit == 1 )
> insertrelax () ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> zprintcmdchr((quarterword) (108), (halfword) (curchr)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 932 ;
> }
> error () ;
> }
> }
> else {
>
> while ( curchr != 2 ) passtext () ;
> {
> if ( ifstack [inopen ]== condptr )
> ifwarning () ;
> p = condptr ;
> ifline = mem [p + 1 ].cint ;
> curif = mem [p ].hh.u.B1 ;
> iflimit = mem [p ].hh.u.B0 ;
> condptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> }
> }
> break ;
> case 106 :
> if ( curchr == 1 )
> forceeof = 1 ;
> else if ( curchr == 2 )
> pseudostart () ;
> else if ( nameinprogress )
> insertrelax () ;
> else startinput () ;
> break ;
> default:
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (706)) ;
> }
> {
> helpptr = 5 ;
> helpline [4 ]= 707 ;
> helpline [3 ]= 708 ;
> helpline [2 ]= 709 ;
> helpline [1 ]= 710 ;
> helpline [0 ]= 711 ;
> }
> error () ;
> }
> break ;
> }
> }
> else if ( curcmd < 117 )
> macrocall () ;
> else {
>
> curtok = 19615 ;
> backinput () ;
> }
> curval = cvbackup ;
> curvallevel = cvlbackup ;
> radix = radixbackup ;
> curorder = cobackup ;
> mem [memtop - 13 ].hh .v.RH = backupbackup ;
> --(expanddepthcount) ;
>}
>void
>getxtoken ( void )
>{
> 
> lab20: getnext () ;
> if ( curcmd <= 102 )
> goto lab30 ;
> if ( curcmd >= 113 ) {
>
> if ( curcmd < 117 )
> macrocall () ;
> else {
>
> curcs = 15520 ;
> curcmd = 9 ;
> goto lab30 ;
> }
> }
> else expand () ;
> goto lab20 ;
> lab30: if ( curcs == 0 )
> curtok = ( curcmd * 256 ) + curchr ;
> else curtok = 4095 + curcs ;
>}
>void
>xtoken ( void )
>{
> 
> while ( curcmd > 102 ) {
>
> expand () ;
> getnext () ;
> }
> if ( curcs == 0 )
> curtok = ( curcmd * 256 ) + curchr ;
> else curtok = 4095 + curcs ;
>}
>void
>scanleftbrace ( void )
>{
> 
> do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> if ( curcmd != 1 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (744)) ;
> }
> {
> helpptr = 4 ;
> helpline [3 ]= 745 ;
> helpline [2 ]= 746 ;
> helpline [1 ]= 747 ;
> helpline [0 ]= 748 ;
> }
> backerror () ;
> curtok = 379 ;
> curcmd = 1 ;
> curchr = 123 ;
> ++(alignstate) ;
> }
>}
>void
>scanoptionalequals ( void )
>{
> 
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok != 3133 )
> backinput () ;
>}
>boolean
>zscankeyword ( strnumber s )
>{
> register boolean Result; register memoryword *mem=zmem;
> halfword p ;
> halfword q ;
> poolpointer k ;
> halfword savecurcs ;
> p = memtop - 13 ;
> mem [p ].hh .v.RH = -268435455L ;
> k = strstart [s ];
> savecurcs = curcs ;
> while ( k < strstart [s + 1 ]) {
>
> getxtoken () ;
> if ( ( curcs == 0 ) && ( ( curchr == strpool [k ]) || ( curchr ==
> strpool [k ]- 32 ) ) )
> {
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> ++(k) ;
> }
> else if ( ( curcmd != 10 ) || ( p != memtop - 13 ) )
> {
> backinput () ;
> if ( p != memtop - 13 )
> zbegintokenlist((halfword) (mem [memtop - 13 ].hh .v.RH), (quarterword) (3)) ;
> curcs = savecurcs ;
> Result = 0 ;
> return Result ;
> }
> }
> zflushlist((halfword) (mem [memtop - 13 ].hh .v.RH)) ;
> Result = 1 ;
> return Result ;
>}
>void
>muerror ( void )
>{
> 
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (749)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 750 ;
> }
> error () ;
>}
>void
>scaneightbitint ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > 255 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (788)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 789 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scancharnum ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > 255 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (791)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 792 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scanfourbitint ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > 15 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (793)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 794 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scanfifteenbitint ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > 32767 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (795)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 796 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scantwentysevenbitint ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > 134217727L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (797)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 798 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scanregisternum ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( curval > maxregnum ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (788)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= maxreghelpline ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>scanfourbitintor18 ( void )
>{
> 
> scanint () ;
> if ( ( curval < 0 ) || ( ( curval > 15 ) && ( curval != 18 ) ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (793)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 794 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
>}
>void
>getxorprotected ( void )
>{
> register memoryword *mem=zmem;
> while ( 1 ) {
>
> gettoken () ;
> if ( curcmd <= 102 )
> return ;
> if ( ( curcmd >= 113 ) && ( curcmd < 117 ) ) {
>
> if ( mem [mem [curchr ].hh .v.RH ].hh .v.LH == 3585 )
> return ;
> }
> expand () ;
> }
>}
>integer
>zeffectivechar ( boolean errp , internalfontnumber f , quarterword c )
>{
> register integer Result; register memoryword *eqtb=zeqtb;
> integer basec ;
> integer result ;
> result = c ;
> if ( ! mltexenabledp )
> goto lab40 ;
> if ( fontec [f ]>= c ) {
>
> if ( fontbc [f ]<= c ) {
>
> if ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B0 > 0 ) )
> goto lab40 ;
> }
> }
> if ( c >= eqtb [27232 ].cint ) {
>
> if ( c <= eqtb [27233 ].cint ) {
>
> if ( ( eqtb [26921 + c ].hh .v.RH > 0 ) )
> {
> basec = ( eqtb [26921 + c ].hh .v.RH % 256 ) ;
> result = basec ;
> if ( ! errp )
> goto lab40 ;
> if ( fontec [f ]>= basec ) {
>
> if ( fontbc [f ]<= basec ) {
>
> if ( ( fontinfo [charbase [f ]+ basec ].qqqq .u.B0 > 0 ) )
> goto lab40 ;
> }
> }
> }
> }
> }
> if ( errp )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (981)) ;
> zprint((integer) (2060)) ;
> zprint((integer) (c)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> result = fontbc [f ];
> }
> lab40: Result = result ;
> return Result ;
>}
>integer
>ztestnoligatures ( internalfontnumber f )
>{
> register integer Result;
> integer c ;
> Result = 1 ;
> {register integer for_end; c = fontbc [f ];for_end = fontec [f ]; if (
> c <= for_end) do
> if ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) {
>
> if ( ((( ( fontinfo [charbase [f ]+ c ].qqqq .u.B2 ) % 4 )) & 1) )
> {
> Result = 0 ;
> return Result ;
> }
> }
> while ( c++ < for_end ) ;}
> return Result ;
>}
>integer
>zgettagcode ( internalfontnumber f , eightbits c )
>{
> register integer Result;
> smallnumber i ;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> {
> i = ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B2 ) % 4 ) ;
> if ( i == 1 )
> Result = 1 ;
> else if ( i == 2 )
> Result = 2 ;
> else if ( i == 3 )
> Result = 4 ;
> else Result = 0 ;
> }
> else Result = -1 ;
> return Result ;
>}
>void
>scanfontident ( void )
>{
> register memoryword *eqtb=zeqtb;
> internalfontnumber f ;
> halfword m ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( ( curcmd == 88 ) || ( curcmd == 101 ) || ( curcmd == 102 ) )
> f = eqtb [25589 ].hh .v.RH ;
> else if ( curcmd == 87 )
> f = curchr ;
> else if ( curcmd == 86 )
> {
> m = curchr ;
> scanfourbitint () ;
> f = eqtb [m + curval ].hh .v.RH ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (973)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 974 ;
> helpline [0 ]= 975 ;
> }
> backerror () ;
> f = 0 ;
> }
> curval = f ;
>}
>void
>zfindfontdimen ( boolean writing )
>{
> 
> internalfontnumber f ;
> integer n ;
> scanint () ;
> n = curval ;
> scanfontident () ;
> f = curval ;
> if ( n <= 0 )
> curval = fmemptr ;
> else {
>
> if ( writing && ( n <= 4 ) && ( n >= 2 ) && ( fontglue [f ]!=
> -268435455L ) )
> {
> zdeleteglueref((halfword) (fontglue [f ])) ;
> fontglue [f ]= -268435455L ;
> }
> if ( n > fontparams [f ]) {
>
> if ( f < fontptr )
> curval = fmemptr ;
> else {
>
> do {
> if ( fmemptr == fontmemsize )
> zoverflow((strnumber) (980), (integer) (fontmemsize)) ;
> fontinfo [fmemptr ].cint = 0 ;
> ++(fmemptr) ;
> ++(fontparams [f ]) ;
> } while ( ! ( n == fontparams [f ]) ) ;
> curval = fmemptr - 1 ;
> }
> }
> else curval = n + parambase [f ];
> }
> if ( curval == fmemptr )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (956)) ;
> }
> zprintesc((strnumber) (hash [15526 + f ].v.RH)) ;
> zprint((integer) (976)) ;
> zprintint((longinteger) (fontparams [f ])) ;
> zprint((integer) (977)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 978 ;
> helpline [0 ]= 979 ;
> }
> error () ;
> }
>}
>void
>zscansomethinginternal ( smallnumber level , boolean negative )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword m ;
> integer n, k ;
> halfword q, r ;
> halfword tx ;
> fourquarters i ;
> integer p ;
> lab20: m = curchr ;
> switch ( curcmd )
> {case 85 :
> {
> scancharnum () ;
> if ( m == 25590 )
> {
> curval = xord [curval ];
> curvallevel = 0 ;
> }
> else if ( m == 25591 )
> {
> curval = xchr [curval ];
> curvallevel = 0 ;
> }
> else if ( m == 25592 )
> {
> curval = xprn [curval ];
> curvallevel = 0 ;
> }
> else if ( m == 26665 )
> {
> curval = eqtb [26665 + curval ].hh .v.RH ;
> curvallevel = 0 ;
> }
> else if ( m < 26665 )
> {
> curval = eqtb [m + curval ].hh .v.RH ;
> curvallevel = 0 ;
> }
> else {
>
> curval = eqtb [m + curval ].cint ;
> curvallevel = 0 ;
> }
> }
> break ;
> case 71 :
> case 72 :
> case 86 :
> case 87 :
> case 88 :
> case 101 :
> case 102 :
> if ( level != 5 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (751)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 752 ;
> helpline [1 ]= 753 ;
> helpline [0 ]= 754 ;
> }
> backerror () ;
> {
> curval = 0 ;
> curvallevel = 1 ;
> }
> }
> else if ( curcmd <= 72 )
> {
> if ( curcmd < 72 ) {
>
> if ( m == membot )
> {
> scanregisternum () ;
> if ( curval < 256 )
> curval = eqtb [25073 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (5), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> curval = -268435455L ;
> else curval = mem [curptr + 1 ].hh .v.RH ;
> }
> }
> else curval = mem [m + 1 ].hh .v.RH ;
> }
> else curval = eqtb [m ].hh .v.RH ;
> curvallevel = 5 ;
> }
> else {
>
> backinput () ;
> scanfontident () ;
> {
> curval = 15526 + curval ;
> curvallevel = 4 ;
> }
> }
> break ;
> case 73 :
> {
> curval = eqtb [m ].cint ;
> curvallevel = 0 ;
> }
> break ;
> case 74 :
> {
> curval = eqtb [m ].cint ;
> curvallevel = 1 ;
> }
> break ;
> case 75 :
> {
> curval = eqtb [m ].hh .v.RH ;
> curvallevel = 2 ;
> }
> break ;
> case 76 :
> {
> curval = eqtb [m ].hh .v.RH ;
> curvallevel = 3 ;
> }
> break ;
> case 79 :
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) != m )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (781)) ;
> }
> zprintcmdchr((quarterword) (79), (halfword) (m)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 782 ;
> helpline [2 ]= 783 ;
> helpline [1 ]= 784 ;
> helpline [0 ]= 785 ;
> }
> error () ;
> if ( level != 5 )
> {
> curval = 0 ;
> curvallevel = 1 ;
> }
> else {
>
> curval = 0 ;
> curvallevel = 0 ;
> }
> }
> else if ( m == 1 )
> {
> curval = curlist .auxfield .cint ;
> curvallevel = 1 ;
> }
> else {
>
> curval = curlist .auxfield .hh .v.LH ;
> curvallevel = 0 ;
> }
> break ;
> case 80 :
> if ( curlist .modefield == 0 )
> {
> curval = 0 ;
> curvallevel = 0 ;
> }
> else {
>
> nest [nestptr ]= curlist ;
> p = nestptr ;
> while ( ((integer)(nest [p ].modefield) >= 0 ? (integer)(nest [p ].modefield) : (integer)-(nest [p ].modefield)) != 1 ) --(p) ;
> {
> curval = nest [p ].pgfield ;
> curvallevel = 0 ;
> }
> }
> break ;
> case 82 :
> {
> if ( m == 0 )
> curval = deadcycles ;
> else if ( m == 2 )
> curval = interaction ;
> else curval = insertpenalties ;
> curvallevel = 0 ;
> }
> break ;
> case 81 :
> {
> if ( ( pagecontents == 0 ) && ( ! outputactive ) ) {
>
> if ( m == 0 )
> curval = 1073741823L ;
> else curval = 0 ;
> }
> else curval = pagesofar [m ];
> curvallevel = 1 ;
> }
> break ;
> case 84 :
> {
> if ( m > 25058 )
> {
> scanint () ;
> if ( ( eqtb [m ].hh .v.RH == -268435455L ) || ( curval < 0 ) )
> curval = 0 ;
> else {
>
> if ( curval > mem [eqtb [m ].hh .v.RH + 1 ].cint )
> curval = mem [eqtb [m ].hh .v.RH + 1 ].cint ;
> curval = mem [eqtb [m ].hh .v.RH + curval + 1 ].cint ;
> }
> }
> else if ( eqtb [25058 ].hh .v.RH == -268435455L )
> curval = 0 ;
> else curval = mem [eqtb [25058 ].hh .v.RH ].hh .v.LH ;
> curvallevel = 0 ;
> }
> break ;
> case 83 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> q = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> q = -268435455L ;
> else q = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( q == -268435455L )
> curval = 0 ;
> else curval = mem [q + m ].cint ;
> curvallevel = 1 ;
> }
> break ;
> case 68 :
> case 69 :
> {
> curval = curchr ;
> curvallevel = 0 ;
> }
> break ;
> case 77 :
> {
> zfindfontdimen((boolean) (0)) ;
> fontinfo [fmemptr ].cint = 0 ;
> {
> curval = fontinfo [curval ].cint ;
> curvallevel = 1 ;
> }
> }
> break ;
> case 78 :
> {
> scanfontident () ;
> if ( m == 0 )
> {
> curval = hyphenchar [curval ];
> curvallevel = 0 ;
> }
> else if ( m == 1 )
> {
> curval = skewchar [curval ];
> curvallevel = 0 ;
> }
> else if ( m == 6 )
> {
> curval = ztestnoligatures((internalfontnumber) (curval)) ;
> curvallevel = 0 ;
> }
> else {
>
> n = curval ;
> scancharnum () ;
> k = curval ;
> switch ( m )
> {case 2 :
> {
> curval = (pdffontlpbase[n] == 0 ? 0 : pdfmem[pdffontlpbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 3 :
> {
> curval = (pdffontrpbase[n] == 0 ? 0 : pdfmem[pdffontrpbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 4 :
> {
> curval = (pdffontefbase[n] == 0 ? 1000 : pdfmem[pdffontefbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 5 :
> {
> curval = zgettagcode((internalfontnumber) (n), (eightbits) (k)) ;
> curvallevel = 0 ;
> }
> break ;
> case 7 :
> {
> curval = (pdffontknbsbase[n] == 0 ? 0 : pdfmem[pdffontknbsbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 8 :
> {
> curval = (pdffontstbsbase[n] == 0 ? 0 : pdfmem[pdffontstbsbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 9 :
> {
> curval = (pdffontshbsbase[n] == 0 ? 0 : pdfmem[pdffontshbsbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 10 :
> {
> curval = (pdffontknbcbase[n] == 0 ? 0 : pdfmem[pdffontknbcbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> case 11 :
> {
> curval = (pdffontknacbase[n] == 0 ? 0 : pdfmem[pdffontknacbase[n] + k]) ;
> curvallevel = 0 ;
> }
> break ;
> }
> }
> }
> break ;
> case 89 :
> {
> if ( ( m < membot ) || ( m > membot + 19 ) )
> {
> curvallevel = ( mem [m ].hh.u.B0 / 16 ) ;
> if ( curvallevel < 2 )
> curval = mem [m + 2 ].cint ;
> else curval = mem [m + 1 ].hh .v.RH ;
> }
> else {
>
> scanregisternum () ;
> curvallevel = m - membot ;
> if ( curval > 255 )
> {
> zfindsaelement((smallnumber) (curvallevel), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L ) {
>
> if ( curvallevel < 2 )
> curval = 0 ;
> else curval = membot ;
> }
> else if ( curvallevel < 2 )
> curval = mem [curptr + 2 ].cint ;
> else curval = mem [curptr + 1 ].hh .v.RH ;
> }
> else switch ( curvallevel )
> {case 0 :
> curval = eqtb [27280 + curval ].cint ;
> break ;
> case 1 :
> curval = eqtb [27826 + curval ].cint ;
> break ;
> case 2 :
> curval = eqtb [24546 + curval ].hh .v.RH ;
> break ;
> case 3 :
> curval = eqtb [24802 + curval ].hh .v.RH ;
> break ;
> }
> }
> }
> break ;
> case 70 :
> if ( m >= 4 ) {
>
> if ( m >= 37 )
> {
> if ( m < 38 )
> {
> switch ( m )
> {case 37 :
> scanmuglue () ;
> break ;
> }
> curvallevel = 2 ;
> }
> else if ( m < 39 )
> {
> switch ( m )
> {case 38 :
> scannormalglue () ;
> break ;
> }
> curvallevel = 3 ;
> }
> else {
>
> curvallevel = m - 39 ;
> scanexpr () ;
> }
> while ( curvallevel > level ) {
>
> if ( curvallevel == 2 )
> {
> m = curval ;
> curval = mem [m + 1 ].cint ;
> zdeleteglueref((halfword) (m)) ;
> }
> else if ( curvallevel == 3 )
> muerror () ;
> --(curvallevel) ;
> }
> if ( negative ) {
>
> if ( curvallevel >= 2 )
> {
> m = curval ;
> curval = znewspec((halfword) (m)) ;
> zdeleteglueref((halfword) (m)) ;
> {
> mem [curval + 1 ].cint = - (integer) mem [curval + 1 ].cint
> ;
> mem [curval + 2 ].cint = - (integer) mem [curval + 2 ].cint
> ;
> mem [curval + 3 ].cint = - (integer) mem [curval + 3 ].cint
> ;
> }
> }
> else curval = - (integer) curval ;
> }
> return ;
> }
> else if ( m >= 28 )
> {
> switch ( m )
> {case 28 :
> case 29 :
> case 30 :
> case 31 :
> {
> scanfontident () ;
> q = curval ;
> scancharnum () ;
> if ( ( fontbc [q ]<= curval ) && ( fontec [q ]>= curval ) )
> {
> i = fontinfo [charbase [q ]+ zeffectivechar((boolean) (1), (internalfontnumber) (q), (quarterword) (curval))
> ].qqqq ;
> switch ( m )
> {case 28 :
> curval = fontinfo [widthbase [q ]+ i .u.B0 ].cint ;
> break ;
> case 29 :
> curval = fontinfo [heightbase [q ]+ ( i .u.B1 ) / 16 ].cint
> ;
> break ;
> case 30 :
> curval = fontinfo [depthbase [q ]+ ( i .u.B1 ) % 16 ].cint ;
> break ;
> case 31 :
> curval = fontinfo [italicbase [q ]+ ( i .u.B2 ) / 4 ].cint ;
> break ;
> }
> }
> else curval = 0 ;
> }
> break ;
> case 32 :
> case 33 :
> case 34 :
> {
> q = curchr - 32 ;
> scanint () ;
> if ( ( eqtb [25058 ].hh .v.RH == -268435455L ) || ( curval <= 0
> ) )
> curval = 0 ;
> else {
>
> if ( q == 2 )
> {
> q = curval % 2 ;
> curval = ( curval + q ) / 2 ;
> }
> if ( curval > mem [eqtb [25058 ].hh .v.RH ].hh .v.LH )
> curval = mem [eqtb [25058 ].hh .v.RH ].hh .v.LH ;
> curval = mem [eqtb [25058 ].hh .v.RH + 2 * curval - q ].cint
> ;
> }
> curvallevel = 1 ;
> }
> break ;
> case 35 :
> case 36 :
> {
> scannormalglue () ;
> q = curval ;
> if ( m == 35 )
> curval = mem [q + 2 ].cint ;
> else curval = mem [q + 3 ].cint ;
> zdeleteglueref((halfword) (q)) ;
> }
> break ;
> }
> curvallevel = 1 ;
> }
> else {
>
> switch ( m )
> {case 4 :
> curval = line ;
> break ;
> case 5 :
> curval = lastbadness ;
> break ;
> case 6 :
> curval = 140 ;
> break ;
> case 7 :
> curval = pdflastobj ;
> break ;
> case 8 :
> curval = pdflastxform ;
> break ;
> case 9 :
> curval = pdflastximage ;
> break ;
> case 10 :
> curval = pdflastximagepages ;
> break ;
> case 11 :
> curval = pdflastannot ;
> break ;
> case 12 :
> curval = pdflastxpos ;
> break ;
> case 13 :
> curval = pdflastypos ;
> break ;
> case 14 :
> curval = pdfretval ;
> break ;
> case 15 :
> curval = pdflastximagecolordepth ;
> break ;
> case 16 :
> curval = getmicrointerval () ;
> break ;
> case 18 :
> curval = randomseed ;
> break ;
> case 17 :
> {
> if ( shellenabledp )
> {
> if ( restrictedshell )
> curval = 2 ;
> else curval = 1 ;
> }
> else curval = 0 ;
> }
> break ;
> case 19 :
> curval = pdflastlink ;
> break ;
> case 20 :
> curval = 2 ;
> break ;
> case 21 :
> curval = curlevel - 1 ;
> break ;
> case 22 :
> curval = curgroup ;
> break ;
> case 23 :
> {
> q = condptr ;
> curval = 0 ;
> while ( q != -268435455L ) {
>
> ++(curval) ;
> q = mem [q ].hh .v.RH ;
> }
> }
> break ;
> case 24 :
> if ( condptr == -268435455L )
> curval = 0 ;
> else if ( curif < 32 )
> curval = curif + 1 ;
> else curval = - (integer) ( curif - 31 ) ;
> break ;
> case 25 :
> if ( ( iflimit == 4 ) || ( iflimit == 3 ) )
> curval = 1 ;
> else if ( iflimit == 2 )
> curval = -1 ;
> else curval = 0 ;
> break ;
> case 26 :
> case 27 :
> {
> scannormalglue () ;
> q = curval ;
> if ( m == 26 )
> curval = mem [q ].hh.u.B0 ;
> else curval = mem [q ].hh.u.B1 ;
> zdeleteglueref((halfword) (q)) ;
> }
> break ;
> }
> curvallevel = 0 ;
> }
> }
> else {
>
> if ( curchr == 2 )
> curval = membot ;
> else curval = 0 ;
> tx = curlist .tailfield ;
> if ( ! ( tx >= himemmin ) ) {
>
> if ( ( mem [tx ].hh.u.B0 == 9 ) && ( mem [tx ].hh.u.B1 == 3 ) )
> {
> r = curlist .headfield ;
> do {
> q = r ;
> r = mem [q ].hh .v.RH ;
> } while ( ! ( r == tx ) ) ;
> tx = q ;
> }
> }
> if ( curchr == 3 )
> {
> curvallevel = 0 ;
> if ( ( tx == curlist .headfield ) || ( curlist .modefield == 0 ) )
> curval = -1 ;
> }
> else curvallevel = curchr ;
> if ( ! ( tx >= himemmin ) && ( curlist .modefield != 0 ) )
> switch ( curchr )
> {case 0 :
> if ( mem [tx ].hh.u.B0 == 12 )
> curval = mem [tx + 1 ].cint ;
> break ;
> case 1 :
> if ( mem [tx ].hh.u.B0 == 11 )
> curval = mem [tx + 1 ].cint ;
> break ;
> case 2 :
> if ( mem [tx ].hh.u.B0 == 10 )
> {
> curval = mem [tx + 1 ].hh .v.LH ;
> if ( mem [tx ].hh.u.B1 == 99 )
> curvallevel = 3 ;
> }
> break ;
> case 3 :
> if ( mem [tx ].hh.u.B0 <= 13 )
> curval = mem [tx ].hh.u.B0 + 1 ;
> else curval = 15 ;
> break ;
> }
> else if ( ( curlist .modefield == 1 ) && ( tx == curlist .headfield ) )
> switch ( curchr )
> {case 0 :
> curval = lastpenalty ;
> break ;
> case 1 :
> curval = lastkern ;
> break ;
> case 2 :
> if ( lastglue != 268435455L )
> curval = lastglue ;
> break ;
> case 3 :
> curval = lastnodetype ;
> break ;
> }
> }
> break ;
> case 39 :
> if ( curchr == 1 )
> {
> gettoken () ;
> curcs = zprimlookup((strnumber) (hash [curcs ].v.RH)) ;
> if ( curcs != 0 )
> {
> curcmd = primeqtb [curcs ].hh.u.B0 ;
> curchr = primeqtb [curcs ].hh .v.RH ;
> curtok = ( curcmd * 256 ) + curchr ;
> }
> else {
>
> curcmd = 0 ;
> curchr = 0 ;
> curtok = 19616 ;
> curcs = 15521 ;
> }
> goto lab20 ;
> }
> break ;
> default:
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (786)) ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> zprint((integer) (787)) ;
> zprintesc((strnumber) (614)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 785 ;
> }
> error () ;
> if ( level != 5 )
> {
> curval = 0 ;
> curvallevel = 1 ;
> }
> else {
>
> curval = 0 ;
> curvallevel = 0 ;
> }
> }
> break ;
> }
> while ( curvallevel > level ) {
>
> if ( curvallevel == 2 )
> curval = mem [curval + 1 ].cint ;
> else if ( curvallevel == 3 )
> muerror () ;
> --(curvallevel) ;
> }
> if ( negative ) {
>
> if ( curvallevel >= 2 )
> {
> curval = znewspec((halfword) (curval)) ;
> {
> mem [curval + 1 ].cint = - (integer) mem [curval + 1 ].cint ;
> mem [curval + 2 ].cint = - (integer) mem [curval + 2 ].cint ;
> mem [curval + 3 ].cint = - (integer) mem [curval + 3 ].cint ;
> }
> }
> else curval = - (integer) curval ;
> }
> else if ( ( curvallevel >= 2 ) && ( curvallevel <= 3 ) )
> ++(mem [curval ].hh .v.RH) ;
>}
>void
>scanint ( void )
>{
> 
> boolean negative ;
> integer m ;
> smallnumber d ;
> boolean vacuous ;
> boolean OKsofar ;
> radix = 0 ;
> OKsofar = 1 ;
> negative = 0 ;
> do {
> do { getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok == 3117 )
> {
> negative = ! negative ;
> curtok = 3115 ;
> }
> } while ( ! ( curtok != 3115 ) ) ;
> lab20: if ( curtok == 3168 )
> {
> gettoken () ;
> if ( curtok < 4095 )
> {
> curval = curchr ;
> if ( curcmd <= 2 ) {
>
> if ( curcmd == 2 )
> ++(alignstate) ;
> else --(alignstate) ;
> }
> }
> else if ( curtok < 4352 )
> curval = curtok - 4096 ;
> else curval = curtok - 4352 ;
> if ( curval > 255 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (799)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 800 ;
> helpline [0 ]= 801 ;
> }
> curval = 48 ;
> backerror () ;
> }
> else {
>
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> else if ( curtok == 19620 )
> {
> gettoken () ;
> curcs = zprimlookup((strnumber) (hash [curcs ].v.RH)) ;
> if ( curcs != 0 )
> {
> curcmd = primeqtb [curcs ].hh.u.B0 ;
> curchr = primeqtb [curcs ].hh .v.RH ;
> curtok = ( curcmd * 256 ) + curchr ;
> }
> else {
>
> curcmd = 0 ;
> curchr = 0 ;
> curtok = 19616 ;
> curcs = 15521 ;
> }
> goto lab20 ;
> }
> else if ( ( curcmd >= 68 ) && ( curcmd <= 89 ) )
> zscansomethinginternal((smallnumber) (0), (boolean) (0)) ;
> else {
>
> radix = 10 ;
> m = 214748364L ;
> if ( curtok == 3111 )
> {
> radix = 8 ;
> m = 268435456L ;
> getxtoken () ;
> }
> else if ( curtok == 3106 )
> {
> radix = 16 ;
> m = 134217728L ;
> getxtoken () ;
> }
> vacuous = 1 ;
> curval = 0 ;
> while ( 1 ) {
>
> if ( ( curtok < 3120 + radix ) && ( curtok >= 3120 ) && ( curtok <= 3129
> ) )
> d = curtok - 3120 ;
> else if ( radix == 16 ) {
>
> if ( ( curtok <= 2886 ) && ( curtok >= 2881 ) )
> d = curtok - 2871 ;
> else if ( ( curtok <= 3142 ) && ( curtok >= 3137 ) )
> d = curtok - 3127 ;
> else goto lab30 ;
> }
> else goto lab30 ;
> vacuous = 0 ;
> if ( ( curval >= m ) && ( ( curval > m ) || ( d > 7 ) || ( radix != 10 )
> ) )
> {
> if ( OKsofar )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (802)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 803 ;
> helpline [0 ]= 804 ;
> }
> error () ;
> curval = 2147483647L ;
> OKsofar = 0 ;
> }
> }
> else curval = curval * radix + d ;
> getxtoken () ;
> }
> lab30: ;
> if ( vacuous )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (751)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 752 ;
> helpline [1 ]= 753 ;
> helpline [0 ]= 754 ;
> }
> backerror () ;
> }
> else if ( curcmd != 10 )
> backinput () ;
> }
> if ( negative )
> curval = - (integer) curval ;
>}
>void
>zscandimen ( boolean mu , boolean inf , boolean shortcut )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> boolean negative ;
> integer f ;
> integer num, denom ;
> smallnumber k, kk ;
> halfword p, q ;
> scaled v ;
> integer savecurval ;
> f = 0 ;
> aritherror = 0 ;
> curorder = 0 ;
> negative = 0 ;
> if ( ! shortcut )
> {
> negative = 0 ;
> do {
> do { getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok == 3117 )
> {
> negative = ! negative ;
> curtok = 3115 ;
> }
> } while ( ! ( curtok != 3115 ) ) ;
> if ( ( curcmd >= 68 ) && ( curcmd <= 89 ) ) {
>
> if ( mu )
> {
> zscansomethinginternal((smallnumber) (3), (boolean) (0)) ;
> if ( curvallevel >= 2 )
> {
> v = mem [curval + 1 ].cint ;
> zdeleteglueref((halfword) (curval)) ;
> curval = v ;
> }
> if ( curvallevel == 3 )
> goto lab89 ;
> if ( curvallevel != 0 )
> muerror () ;
> }
> else {
>
> zscansomethinginternal((smallnumber) (1), (boolean) (0)) ;
> if ( curvallevel == 1 )
> goto lab89 ;
> }
> }
> else {
>
> backinput () ;
> if ( curtok == 3116 )
> curtok = 3118 ;
> if ( curtok != 3118 )
> scanint () ;
> else {
>
> radix = 10 ;
> curval = 0 ;
> }
> if ( curtok == 3116 )
> curtok = 3118 ;
> if ( ( radix == 10 ) && ( curtok == 3118 ) )
> {
> k = 0 ;
> p = -268435455L ;
> gettoken () ;
> while ( 1 ) {
>
> getxtoken () ;
> if ( ( curtok > 3129 ) || ( curtok < 3120 ) )
> goto lab31 ;
> if ( k < 17 )
> {
> q = getavail () ;
> mem [q ].hh .v.RH = p ;
> mem [q ].hh .v.LH = curtok - 3120 ;
> p = q ;
> ++(k) ;
> }
> }
> lab31: {
> register integer for_end; kk = k ;for_end = 1 ; if ( kk >=
> for_end) do
> {
> dig [kk - 1 ]= mem [p ].hh .v.LH ;
> q = p ;
> p = mem [p ].hh .v.RH ;
> {
> mem [q ].hh .v.RH = avail ;
> avail = q ;
> ;
>
> --(dynused) ;
>
> }
> }
> while ( kk-- > for_end ) ;}
> f = zrounddecimals((smallnumber) (k)) ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> }
> if ( curval < 0 )
> {
> negative = ! negative ;
> curval = - (integer) curval ;
> }
> if ( inf ) {
>
> if ( zscankeyword((strnumber) (316)) )
> {
> curorder = 1 ;
> while ( zscankeyword((strnumber) (108)) ) {
>
> if ( curorder == 3 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (806)) ;
> }
> zprint((integer) (807)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 808 ;
> }
> error () ;
> }
> else ++(curorder) ;
> }
> goto lab88 ;
> }
> }
> savecurval = curval ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( ( curcmd < 68 ) || ( curcmd > 89 ) )
> backinput () ;
> else {
>
> if ( mu )
> {
> zscansomethinginternal((smallnumber) (3), (boolean) (0)) ;
> if ( curvallevel >= 2 )
> {
> v = mem [curval + 1 ].cint ;
> zdeleteglueref((halfword) (curval)) ;
> curval = v ;
> }
> if ( curvallevel != 3 )
> muerror () ;
> }
> else zscansomethinginternal((smallnumber) (1), (boolean) (0)) ;
> v = curval ;
> goto lab40 ;
> }
> if ( mu )
> goto lab45 ;
> if ( zscankeyword((strnumber) (809)) )
> v = ( fontinfo [6 + parambase [eqtb [25589 ].hh .v.RH ]].cint ) ;
> else if ( zscankeyword((strnumber) (810)) )
> v = ( fontinfo [5 + parambase [eqtb [25589 ].hh .v.RH ]].cint ) ;
> else if ( zscankeyword((strnumber) (811)) )
> v = eqtb [27825 ].cint ;
> else goto lab45 ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> lab40: curval = zmultandadd((integer) (savecurval), (scaled) (v), (scaled) (zxnoverd((scaled) (v), (integer) (f), (integer) (65536L))), (scaled) (1073741823L))
> ;
> goto lab89 ;
> lab45: ;
> if ( mu ) {
>
> if ( zscankeyword((strnumber) (344)) )
> goto lab88 ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (806)) ;
> }
> zprint((integer) (812)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 813 ;
> helpline [2 ]= 814 ;
> helpline [1 ]= 815 ;
> helpline [0 ]= 816 ;
> }
> error () ;
> goto lab88 ;
> }
> }
> if ( zscankeyword((strnumber) (805)) )
> {
> preparemag () ;
> if ( eqtb [27194 ].cint != 1000 )
> {
> curval = zxnoverd((scaled) (curval), (integer) (1000), (integer) (eqtb [27194 ].cint)) ;
> f = ( 1000 * f + 65536L * texremainder ) / eqtb [27194 ].cint ;
> curval = curval + ( f / 65536L ) ;
> f = f % 65536L ;
> }
> }
> if ( zscankeyword((strnumber) (312)) )
> goto lab88 ;
> if ( zscankeyword((strnumber) (817)) )
> {
> num = 7227 ;
> denom = 100 ;
> }
> else if ( zscankeyword((strnumber) (818)) )
> {
> num = 12 ;
> denom = 1 ;
> }
> else if ( zscankeyword((strnumber) (819)) )
> {
> num = 7227 ;
> denom = 254 ;
> }
> else if ( zscankeyword((strnumber) (820)) )
> {
> num = 7227 ;
> denom = 2540 ;
> }
> else if ( zscankeyword((strnumber) (821)) )
> {
> num = 7227 ;
> denom = 7200 ;
> }
> else if ( zscankeyword((strnumber) (822)) )
> {
> num = 1238 ;
> denom = 1157 ;
> }
> else if ( zscankeyword((strnumber) (823)) )
> {
> num = 14856 ;
> denom = 1157 ;
> }
> else if ( zscankeyword((strnumber) (824)) )
> {
> num = 685 ;
> denom = 642 ;
> }
> else if ( zscankeyword((strnumber) (825)) )
> {
> num = 1370 ;
> denom = 107 ;
> }
> else if ( zscankeyword((strnumber) (826)) )
> goto lab30 ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (806)) ;
> }
> zprint((integer) (827)) ;
> {
> helpptr = 6 ;
> helpline [5 ]= 828 ;
> helpline [4 ]= 829 ;
> helpline [3 ]= 830 ;
> helpline [2 ]= 814 ;
> helpline [1 ]= 815 ;
> helpline [0 ]= 816 ;
> }
> error () ;
> goto lab32 ;
> }
> curval = zxnoverd((scaled) (curval), (integer) (num), (integer) (denom)) ;
> f = ( num * f + 65536L * texremainder ) / denom ;
> curval = curval + ( f / 65536L ) ;
> f = f % 65536L ;
> lab32: ;
> lab88: if ( curval >= 16384 )
> aritherror = 1 ;
> else curval = curval * 65536L + f ;
> lab30: ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> lab89: if ( aritherror || ( ((integer)(curval) >= 0 ? (integer)(curval) : (integer)-(curval)) >= 1073741824L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (831)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 832 ;
> helpline [0 ]= 833 ;
> }
> error () ;
> curval = 1073741823L ;
> aritherror = 0 ;
> }
> if ( negative )
> curval = - (integer) curval ;
>}
>void
>zscanglue ( smallnumber level )
>{
> register memoryword *mem=zmem;
> boolean negative ;
> halfword q ;
> boolean mu ;
> mu = ( level == 3 ) ;
> negative = 0 ;
> do {
> do { getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok == 3117 )
> {
> negative = ! negative ;
> curtok = 3115 ;
> }
> } while ( ! ( curtok != 3115 ) ) ;
> if ( ( curcmd >= 68 ) && ( curcmd <= 89 ) )
> {
> zscansomethinginternal((smallnumber) (level), (boolean) (negative)) ;
> if ( curvallevel >= 2 )
> {
> if ( curvallevel != level )
> muerror () ;
> return ;
> }
> if ( curvallevel == 0 )
> zscandimen((boolean) (mu), (boolean) (0), (boolean) (1)) ;
> else if ( level == 3 )
> muerror () ;
> }
> else {
>
> backinput () ;
> zscandimen((boolean) (mu), (boolean) (0), (boolean) (0)) ;
> if ( negative )
> curval = - (integer) curval ;
> }
> q = znewspec((halfword) (membot)) ;
> mem [q + 1 ].cint = curval ;
> if ( zscankeyword((strnumber) (834)) )
> {
> zscandimen((boolean) (mu), (boolean) (1), (boolean) (0)) ;
> mem [q + 2 ].cint = curval ;
> mem [q ].hh.u.B0 = curorder ;
> }
> if ( zscankeyword((strnumber) (835)) )
> {
> zscandimen((boolean) (mu), (boolean) (1), (boolean) (0)) ;
> mem [q + 3 ].cint = curval ;
> mem [q ].hh.u.B1 = curorder ;
> }
> curval = q ;
>}
>integer
>zaddorsub ( integer x , integer y , integer maxanswer , boolean negative )
>{
> register integer Result;
> integer a ;
> if ( negative )
> y = - (integer) y ;
> if ( x >= 0 ) {
>
> if ( y <= maxanswer - x )
> a = x + y ;
> else {
>
> aritherror = 1 ;
> a = 0 ;
> }
> }
> else if ( y >= - (integer) maxanswer - x )
> a = x + y ;
> else {
>
> aritherror = 1 ;
> a = 0 ;
> }
> Result = a ;
> return Result ;
>}
>integer
>zquotient ( integer n , integer d )
>{
> register integer Result;
> boolean negative ;
> integer a ;
> if ( d == 0 )
> {
> aritherror = 1 ;
> a = 0 ;
> }
> else {
>
> if ( d > 0 )
> negative = 0 ;
> else {
>
> d = - (integer) d ;
> negative = 1 ;
> }
> if ( n < 0 )
> {
> n = - (integer) n ;
> negative = ! negative ;
> }
> a = n / d ;
> n = n - a * d ;
> d = n - d ;
> if ( d + n >= 0 )
> ++(a) ;
> if ( negative )
> a = - (integer) a ;
> }
> Result = a ;
> return Result ;
>}
>integer
>zfract ( integer x , integer n , integer d , integer maxanswer )
>{
> register integer Result;
> boolean negative ;
> integer a ;
> integer f ;
> integer h ;
> integer r ;
> integer t ;
> if ( d == 0 )
> goto lab88 ;
> a = 0 ;
> if ( d > 0 )
> negative = 0 ;
> else {
>
> d = - (integer) d ;
> negative = 1 ;
> }
> if ( x < 0 )
> {
> x = - (integer) x ;
> negative = ! negative ;
> }
> else if ( x == 0 )
> goto lab30 ;
> if ( n < 0 )
> {
> n = - (integer) n ;
> negative = ! negative ;
> }
> t = n / d ;
> if ( t > maxanswer / x )
> goto lab88 ;
> a = t * x ;
> n = n - t * d ;
> if ( n == 0 )
> goto lab40 ;
> t = x / d ;
> if ( t > ( maxanswer - a ) / n )
> goto lab88 ;
> a = a + t * n ;
> x = x - t * d ;
> if ( x == 0 )
> goto lab40 ;
> if ( x < n )
> {
> t = x ;
> x = n ;
> n = t ;
> }
> f = 0 ;
> r = ( d / 2 ) - d ;
> h = - (integer) r ;
> while ( 1 ) {
>
> if ( ((n) & 1) )
> {
> r = r + x ;
> if ( r >= 0 )
> {
> r = r - d ;
> ++(f) ;
> }
> }
> n = n / 2 ;
> if ( n == 0 )
> goto lab41 ;
> if ( x < h )
> x = x + x ;
> else {
>
> t = x - d ;
> x = t + x ;
> f = f + n ;
> if ( x < n )
> {
> if ( x == 0 )
> goto lab41 ;
> t = x ;
> x = n ;
> n = t ;
> }
> }
> }
> lab41: if ( f > ( maxanswer - a ) )
> goto lab88 ;
> a = a + f ;
> lab40: if ( negative )
> a = - (integer) a ;
> goto lab30 ;
> lab88: {
>
> aritherror = 1 ;
> a = 0 ;
> }
> lab30: Result = a ;
> return Result ;
>}
>void
>scanexpr ( void )
>{
> register memoryword *mem=zmem;
> boolean a, b ;
> smallnumber l ;
> smallnumber r ;
> smallnumber s ;
> smallnumber o ;
> integer e ;
> integer t ;
> integer f ;
> integer n ;
> halfword p ;
> halfword q ;
> l = curvallevel ;
> a = aritherror ;
> b = 0 ;
> p = -268435455L ;
> lab20: r = 0 ;
> e = 0 ;
> s = 0 ;
> t = 0 ;
> n = 0 ;
> lab22: if ( s == 0 )
> o = l ;
> else o = 0 ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok == 3112 )
> {
> q = zgetnode((integer) (4)) ;
> mem [q ].hh .v.RH = p ;
> mem [q ].hh.u.B0 = l ;
> mem [q ].hh.u.B1 = 4 * s + r ;
> mem [q + 1 ].cint = e ;
> mem [q + 2 ].cint = t ;
> mem [q + 3 ].cint = n ;
> p = q ;
> l = o ;
> goto lab20 ;
> }
> backinput () ;
> if ( o == 0 )
> scanint () ;
> else if ( o == 1 )
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> else if ( o == 2 )
> scannormalglue () ;
> else scanmuglue () ;
> f = curval ;
> lab40: do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curtok == 3115 )
> o = 1 ;
> else if ( curtok == 3117 )
> o = 2 ;
> else if ( curtok == 3114 )
> o = 3 ;
> else if ( curtok == 3119 )
> o = 4 ;
> else {
>
> o = 0 ;
> if ( p == -268435455L )
> {
> if ( curcmd != 0 )
> backinput () ;
> }
> else if ( curtok != 3113 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (2037)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 2038 ;
> }
> backerror () ;
> }
> }
> aritherror = b ;
> if ( ( l == 0 ) || ( s > 2 ) )
> {
> if ( ( f > 2147483647L ) || ( f < -2147483647L ) )
> {
> aritherror = 1 ;
> f = 0 ;
> }
> }
> else if ( l == 1 )
> {
> if ( ((integer)(f) >= 0 ? (integer)(f) : (integer)-(f)) > 1073741823L )
> {
> aritherror = 1 ;
> f = 0 ;
> }
> }
> else {
>
> if ( ( ((integer)(mem [f + 1 ].cint) >= 0 ? (integer)(mem [f + 1 ].cint) : (integer)-(mem [f + 1 ].cint)) > 1073741823L ) || ( ((integer)(mem [f + 2 ].cint) >= 0 ? (integer)(mem [f + 2 ].cint) : (integer)-(mem [f + 2 ].cint))
> > 1073741823L ) || ( ((integer)(mem [f + 3 ].cint) >= 0 ? (integer)(mem [f + 3 ].cint) : (integer)-(mem [f + 3 ].cint)) > 1073741823L )
> )
> {
> aritherror = 1 ;
> zdeleteglueref((halfword) (f)) ;
> f = znewspec((halfword) (membot)) ;
> }
> }
> switch ( s )
> {case 0 :
> if ( ( l >= 2 ) && ( o != 0 ) )
> {
> t = znewspec((halfword) (f)) ;
> zdeleteglueref((halfword) (f)) ;
> if ( mem [t + 2 ].cint == 0 )
> mem [t ].hh.u.B0 = 0 ;
> if ( mem [t + 3 ].cint == 0 )
> mem [t ].hh.u.B1 = 0 ;
> }
> else t = f ;
> break ;
> case 3 :
> if ( o == 4 )
> {
> n = f ;
> o = 5 ;
> }
> else if ( l == 0 )
> t = zmultandadd((integer) (t), (scaled) (f), (scaled) (0), (scaled) (2147483647L)) ;
> else if ( l == 1 )
> t = zmultandadd((integer) (t), (scaled) (f), (scaled) (0), (scaled) (1073741823L)) ;
> else {
>
> mem [t + 1 ].cint = zmultandadd((integer) (mem [t + 1 ].cint), (scaled) (f), (scaled) (0), (scaled) (1073741823L))
> ;
> mem [t + 2 ].cint = zmultandadd((integer) (mem [t + 2 ].cint), (scaled) (f), (scaled) (0), (scaled) (1073741823L))
> ;
> mem [t + 3 ].cint = zmultandadd((integer) (mem [t + 3 ].cint), (scaled) (f), (scaled) (0), (scaled) (1073741823L))
> ;
> }
> break ;
> case 4 :
> if ( l < 2 )
> t = zquotient((integer) (t), (integer) (f)) ;
> else {
>
> mem [t + 1 ].cint = zquotient((integer) (mem [t + 1 ].cint), (integer) (f)) ;
> mem [t + 2 ].cint = zquotient((integer) (mem [t + 2 ].cint), (integer) (f)) ;
> mem [t + 3 ].cint = zquotient((integer) (mem [t + 3 ].cint), (integer) (f)) ;
> }
> break ;
> case 5 :
> if ( l == 0 )
> t = zfract((integer) (t), (integer) (n), (integer) (f), (integer) (2147483647L)) ;
> else if ( l == 1 )
> t = zfract((integer) (t), (integer) (n), (integer) (f), (integer) (1073741823L)) ;
> else {
>
> mem [t + 1 ].cint = zfract((integer) (mem [t + 1 ].cint), (integer) (n), (integer) (f), (integer) (1073741823L))
> ;
> mem [t + 2 ].cint = zfract((integer) (mem [t + 2 ].cint), (integer) (n), (integer) (f), (integer) (1073741823L))
> ;
> mem [t + 3 ].cint = zfract((integer) (mem [t + 3 ].cint), (integer) (n), (integer) (f), (integer) (1073741823L))
> ;
> }
> break ;
> }
> if ( o > 2 )
> s = o ;
> else {
>
> s = 0 ;
> if ( r == 0 )
> e = t ;
> else if ( l == 0 )
> e = zaddorsub((integer) (e), (integer) (t), (integer) (2147483647L), (boolean) (r == 2)) ;
> else if ( l == 1 )
> e = zaddorsub((integer) (e), (integer) (t), (integer) (1073741823L), (boolean) (r == 2)) ;
> else {
>
> mem [e + 1 ].cint = zaddorsub((integer) (mem [e + 1 ].cint), (integer) (mem [t + 1 ] .cint), (integer) (1073741823L), (boolean) (r == 2))
> ;
> if ( mem [e ].hh.u.B0 == mem [t ].hh.u.B0 )
> mem [e + 2 ].cint = zaddorsub((integer) (mem [e + 2 ].cint), (integer) (mem [t + 2 ] .cint), (integer) (1073741823L), (boolean) (r == 2))
> ;
> else if ( ( mem [e ].hh.u.B0 < mem [t ].hh.u.B0 ) && ( mem [t + 2 ]
> .cint != 0 ) )
> {
> mem [e + 2 ].cint = mem [t + 2 ].cint ;
> mem [e ].hh.u.B0 = mem [t ].hh.u.B0 ;
> }
> if ( mem [e ].hh.u.B1 == mem [t ].hh.u.B1 )
> mem [e + 3 ].cint = zaddorsub((integer) (mem [e + 3 ].cint), (integer) (mem [t + 3 ] .cint), (integer) (1073741823L), (boolean) (r == 2))
> ;
> else if ( ( mem [e ].hh.u.B1 < mem [t ].hh.u.B1 ) && ( mem [t + 3 ]
> .cint != 0 ) )
> {
> mem [e + 3 ].cint = mem [t + 3 ].cint ;
> mem [e ].hh.u.B1 = mem [t ].hh.u.B1 ;
> }
> zdeleteglueref((halfword) (t)) ;
> if ( mem [e + 2 ].cint == 0 )
> mem [e ].hh.u.B0 = 0 ;
> if ( mem [e + 3 ].cint == 0 )
> mem [e ].hh.u.B1 = 0 ;
> }
> r = o ;
> }
> b = aritherror ;
> if ( o != 0 )
> goto lab22 ;
> if ( p != -268435455L )
> {
> f = e ;
> q = p ;
> e = mem [q + 1 ].cint ;
> t = mem [q + 2 ].cint ;
> n = mem [q + 3 ].cint ;
> s = mem [q ].hh.u.B1 / 4 ;
> r = mem [q ].hh.u.B1 % 4 ;
> l = mem [q ].hh.u.B0 ;
> p = mem [q ].hh .v.RH ;
> zfreenode((halfword) (q), (halfword) (4)) ;
> goto lab40 ;
> }
> if ( b )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1628)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 2036 ;
> helpline [0 ]= 1630 ;
> }
> error () ;
> if ( l >= 2 )
> {
> zdeleteglueref((halfword) (e)) ;
> e = membot ;
> ++(mem [e ].hh .v.RH) ;
> }
> else e = 0 ;
> }
> aritherror = a ;
> curval = e ;
> curvallevel = l ;
>}
>void
>scannormalglue ( void )
>{
> 
> zscanglue((smallnumber) (2)) ;
>}
>void
>scanmuglue ( void )
>{
> 
> zscanglue((smallnumber) (3)) ;
>}
>halfword
>scanrulespec ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword q ;
> q = newrule () ;
> if ( curcmd == 35 )
> mem [q + 1 ].cint = 26214 ;
> else {
>
> mem [q + 3 ].cint = 26214 ;
> mem [q + 2 ].cint = 0 ;
> }
> lab21: if ( zscankeyword((strnumber) (836)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [q + 1 ].cint = curval ;
> goto lab21 ;
> }
> if ( zscankeyword((strnumber) (837)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [q + 3 ].cint = curval ;
> goto lab21 ;
> }
> if ( zscankeyword((strnumber) (838)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [q + 2 ].cint = curval ;
> goto lab21 ;
> }
> Result = q ;
> return Result ;
>}
>void
>scangeneraltext ( void )
>{
> register memoryword *mem=zmem;
> unsigned char s ;
> halfword w ;
> halfword d ;
> halfword p ;
> halfword q ;
> halfword unbalance ;
> s = scannerstatus ;
> w = warningindex ;
> d = defref ;
> scannerstatus = 5 ;
> warningindex = curcs ;
> defref = getavail () ;
> mem [defref ].hh .v.LH = -268435455L ;
> p = defref ;
> scanleftbrace () ;
> unbalance = 1 ;
> while ( 1 ) {
>
> gettoken () ;
> if ( curtok < 768 ) {
>
> if ( curcmd < 2 )
> ++(unbalance) ;
> else {
>
> --(unbalance) ;
> if ( unbalance == 0 )
> goto lab40 ;
> }
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> lab40: q = mem [defref ].hh .v.RH ;
> {
> mem [defref ].hh .v.RH = avail ;
> avail = defref ;
> ;
>
> --(dynused) ;
>
> }
> if ( q == -268435455L )
> curval = memtop - 3 ;
> else curval = p ;
> mem [memtop - 3 ].hh .v.RH = q ;
> scannerstatus = s ;
> warningindex = w ;
> defref = d ;
>}
>void
>pseudostart ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> strnumber s ;
> poolpointer l, m ;
> halfword p, q, r ;
> fourquarters w ;
> integer nl, sz ;
> scangeneraltext () ;
> oldsetting = selector ;
> selector = 21 ;
> ztokenshow((halfword) (memtop - 3)) ;
> selector = oldsetting ;
> zflushlist((halfword) (mem [memtop - 3 ].hh .v.RH)) ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> s = makestring () ;
> strpool [poolptr ]= 32 ;
> l = strstart [s ];
> nl = eqtb [27226 ].cint ;
> p = getavail () ;
> q = p ;
> while ( l < poolptr ) {
>
> m = l ;
> while ( ( l < poolptr ) && ( strpool [l ]!= nl ) ) ++(l) ;
> sz = ( l - m + 7 ) / 4 ;
> if ( sz == 1 )
> sz = 2 ;
> r = zgetnode((integer) (sz)) ;
> mem [q ].hh .v.RH = r ;
> q = r ;
> mem [q ].hh .v.LH = sz ;
> while ( sz > 2 ) {
>
> --(sz) ;
> ++(r) ;
> w .u.B0 = strpool [m ];
> w .u.B1 = strpool [m + 1 ];
> w .u.B2 = strpool [m + 2 ];
> w .u.B3 = strpool [m + 3 ];
> mem [r ].qqqq = w ;
> m = m + 4 ;
> }
> w .u.B0 = 32 ;
> w .u.B1 = 32 ;
> w .u.B2 = 32 ;
> w .u.B3 = 32 ;
> if ( l > m )
> {
> w .u.B0 = strpool [m ];
> if ( l > m + 1 )
> {
> w .u.B1 = strpool [m + 1 ];
> if ( l > m + 2 )
> {
> w .u.B2 = strpool [m + 2 ];
> if ( l > m + 3 )
> w .u.B3 = strpool [m + 3 ];
> }
> }
> }
> mem [r + 1 ].qqqq = w ;
> if ( strpool [l ]== nl )
> ++(l) ;
> }
> mem [p ].hh .v.LH = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = pseudofiles ;
> pseudofiles = p ;
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
> beginfilereading () ;
> line = 0 ;
> curinput .limitfield = curinput .startfield ;
> curinput .locfield = curinput .limitfield + 1 ;
> if ( eqtb [27272 ].cint > 0 )
> {
> if ( termoffset > maxprintline - 3 )
> println () ;
> else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) )
> zprintchar((ASCIIcode) (32)) ;
> curinput .namefield = 19 ;
> zprint((integer) (2019)) ;
> ++(openparens) ;
> fflush ( stdout ) ;
> }
> else {
>
> curinput .namefield = 18 ;
> curinput .synctextagfield = 0 ;
> }
>}
>halfword
>zstrtoks ( poolpointer b )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> halfword q ;
> halfword t ;
> poolpointer k ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> p = memtop - 3 ;
> mem [p ].hh .v.RH = -268435455L ;
> k = b ;
> while ( k < poolptr ) {
>
> t = strpool [k ];
> if ( t == 32 )
> t = 2592 ;
> else t = 3072 + t ;
> {
> {
> q = avail ;
> if ( q == -268435455L )
> q = getavail () ;
> else {
>
> avail = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = t ;
> p = q ;
> }
> ++(k) ;
> }
> poolptr = b ;
> Result = p ;
> return Result ;
>}
>halfword
>thetoks ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> unsigned char oldsetting ;
> halfword p, q, r ;
> poolpointer b ;
> smallnumber c ;
> if ( ((curchr) & 1) )
> {
> c = curchr ;
> scangeneraltext () ;
> if ( c == 1 )
> Result = curval ;
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> b = poolptr ;
> p = getavail () ;
> mem [p ].hh .v.RH = mem [memtop - 3 ].hh .v.RH ;
> ztokenshow((halfword) (p)) ;
> zflushlist((halfword) (p)) ;
> selector = oldsetting ;
> Result = zstrtoks((poolpointer) (b)) ;
> }
> return Result ;
> }
> getxtoken () ;
> zscansomethinginternal((smallnumber) (5), (boolean) (0)) ;
> if ( curvallevel >= 4 )
> {
> p = memtop - 3 ;
> mem [p ].hh .v.RH = -268435455L ;
> if ( curvallevel == 4 )
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = 4095 + curval ;
> p = q ;
> }
> else if ( curval != -268435455L )
> {
> r = mem [curval ].hh .v.RH ;
> while ( r != -268435455L ) {
>
> {
> {
> q = avail ;
> if ( q == -268435455L )
> q = getavail () ;
> else {
>
> avail = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = mem [r ].hh .v.LH ;
> p = q ;
> }
> r = mem [r ].hh .v.RH ;
> }
> }
> Result = p ;
> }
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> b = poolptr ;
> switch ( curvallevel )
> {case 0 :
> zprintint((longinteger) (curval)) ;
> break ;
> case 1 :
> {
> zprintscaled((scaled) (curval)) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 2 :
> {
> zprintspec((integer) (curval), (strnumber) (312)) ;
> zdeleteglueref((halfword) (curval)) ;
> }
> break ;
> case 3 :
> {
> zprintspec((integer) (curval), (strnumber) (344)) ;
> zdeleteglueref((halfword) (curval)) ;
> }
> break ;
> }
> selector = oldsetting ;
> Result = zstrtoks((poolpointer) (b)) ;
> }
> return Result ;
>}
>void
>insthetoks ( void )
>{
> register memoryword *mem=zmem;
> mem [memtop - 12 ].hh .v.RH = thetoks () ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
>}
>void
>convtoks ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> halfword p, q ;
> unsigned char c ;
> smallnumber savescannerstatus ;
> halfword savedefref ;
> halfword savewarningindex ;
> boolean bool ;
> integer i ;
> integer j ;
> poolpointer b ;
> strnumber s ;
> strnumber t ;
> strnumber u ;
> c = curchr ;
> u = 0 ;
> switch ( c )
> {case 0 :
> case 1 :
> scanint () ;
> break ;
> case 2 :
> case 3 :
> {
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> gettoken () ;
> scannerstatus = savescannerstatus ;
> }
> break ;
> case 4 :
> scanfontident () ;
> break ;
> case 5 :
> ;
> break ;
> case 6 :
> ;
> break ;
> case 7 :
> ;
> break ;
> case 8 :
> case 9 :
> case 10 :
> {
> scanfontident () ;
> if ( curval == 0 )
> zpdferror((strnumber) (592), (strnumber) (872)) ;
> if ( c != 10 )
> {
> pdfcheckvfcurval () ;
> if ( ! fontused [curval ])
> pdfinitfontcurval () ;
> }
> }
> break ;
> case 11 :
> {
> scanint () ;
> if ( curval <= 0 )
> zpdferror((strnumber) (873), (strnumber) (874)) ;
> }
> break ;
> case 15 :
> case 16 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> p = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> p = -268435455L ;
> else p = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( ( p == -268435455L ) || ( mem [p ].hh.u.B0 != 0 ) )
> zpdferror((strnumber) (875), (strnumber) (876)) ;
> }
> break ;
> case 12 :
> {
> scanint () ;
> zpdfcheckobj((integer) (7), (integer) (curval)) ;
> }
> break ;
> case 13 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> escapestring ( strstart [s ]) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 14 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> escapename ( strstart [s ]) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 19 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> escapehex ( strstart [s ]) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 20 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> unescapehex ( strstart [s ]) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 21 :
> {
> b = poolptr ;
> getcreationdate () ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> return ;
> }
> break ;
> case 22 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> getfilemoddate ( s ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 23 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> getfilesize ( s ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 24 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> bool = zscankeyword((strnumber) (877)) ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> getmd5sum ( s , bool ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 25 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> curval = 0 ;
> if ( ( zscankeyword((strnumber) (878)) ) )
> {
> scanint () ;
> if ( ( curval < 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (879)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 880 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
> }
> i = curval ;
> curval = 0 ;
> if ( ( zscankeyword((strnumber) (881)) ) )
> {
> scanint () ;
> if ( ( curval < 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (882)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 883 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
> }
> j = curval ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> getfiledump ( s , i , j ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 26 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> bool = zscankeyword((strnumber) (884)) ;
> i = -1 ;
> if ( zscankeyword((strnumber) (885)) )
> {
> scanint () ;
> i = curval ;
> }
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> scanpdfexttoks () ;
> t = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> b = poolptr ;
> matchstrings ( s , t , i , bool ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zflushstr((strnumber) (t)) ;
> zflushstr((strnumber) (s)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> return ;
> }
> break ;
> case 27 :
> {
> scanint () ;
> if ( curval < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (886)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 887 ;
> helpline [0 ]= 790 ;
> }
> zinterror((integer) (curval)) ;
> curval = 0 ;
> }
> b = poolptr ;
> getmatch ( curval ) ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> return ;
> }
> break ;
> case 17 :
> {
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> comparestrings () ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> }
> break ;
> case 18 :
> {
> bool = zscankeyword((strnumber) (888)) ;
> if ( zscankeyword((strnumber) (889)) )
> curval = 2 ;
> else if ( zscankeyword((strnumber) (888)) )
> curval = 1 ;
> else curval = 0 ;
> savescannerstatus = scannerstatus ;
> savewarningindex = warningindex ;
> savedefref = defref ;
> if ( strstart [strptr ]< poolptr )
> u = makestring () ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> defref = savedefref ;
> warningindex = savewarningindex ;
> scannerstatus = savescannerstatus ;
> curval = newcolorstack ( s , curval , bool ) ;
> zflushstr((strnumber) (s)) ;
> curvallevel = 0 ;
> if ( curval < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (890)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 891 ;
> helpline [0 ]= 892 ;
> }
> error () ;
> curval = 0 ;
> if ( u != 0 )
> {
> --(strptr) ;
> u = 0 ;
> }
> }
> }
> break ;
> case 32 :
> if ( jobname == 0 )
> openlogfile () ;
> break ;
> case 28 :
> scanint () ;
> break ;
> case 29 :
> ;
> break ;
> case 30 :
> scanregisternum () ;
> break ;
> case 31 :
> {
> scanint () ;
> zpdfcheckobj((integer) (8), (integer) (curval)) ;
> i = pdfmem [objtab [curval ].int4 + 4 ];
> scanint () ;
> j = curval ;
> if ( ( j < 1 ) || ( j > 4 ) )
> zpdferror((strnumber) (870), (strnumber) (893)) ;
> }
> break ;
> }
> oldsetting = selector ;
> selector = 21 ;
> b = poolptr ;
> switch ( c )
> {case 0 :
> zprintint((longinteger) (curval)) ;
> break ;
> case 1 :
> zprintromanint((integer) (curval)) ;
> break ;
> case 2 :
> if ( curcs != 0 )
> zsprintcs((halfword) (curcs)) ;
> else zprintchar((ASCIIcode) (curchr)) ;
> break ;
> case 3 :
> printmeaning () ;
> break ;
> case 4 :
> {
> zprint((integer) (fontname [curval ])) ;
> if ( fontsize [curval ]!= fontdsize [curval ])
> {
> zprint((integer) (894)) ;
> zprintscaled((scaled) (fontsize [curval ])) ;
> zprint((integer) (312)) ;
> }
> }
> break ;
> case 5 :
> zprint((integer) (256)) ;
> break ;
> case 6 :
> zprint((integer) (257)) ;
> break ;
> case 7 :
> zprint((integer) (pdftexbanner)) ;
> break ;
> case 8 :
> case 9 :
> {
> {
> if ( pdffontnum [curval ]< 0 )
> ff = - (integer) pdffontnum [curval ];
> else ff = curval ;
> }
> if ( c == 8 )
> zprintint((longinteger) (objtab [pdffontnum [ff ]].int0)) ;
> else zprintint((longinteger) (pdffontnum [ff ])) ;
> }
> break ;
> case 10 :
> {
> zprintscaled((scaled) (fontsize [curval ])) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 11 :
> zprintint((longinteger) (zgetobj((integer) (1), (integer) (curval), (boolean) (0)))) ;
> break ;
> case 15 :
> {
> p = mem [p + 5 ].hh .v.RH ;
> while ( ( p != -268435455L ) && ( ( ! ( p >= himemmin ) && ( ( mem [p ]
> .hh.u.B0 == 3 ) || ( mem [p ].hh.u.B0 == 4 ) || ( mem [p ].hh.u.B0 == 5 )
> || ( mem [p ].hh.u.B0 == 12 ) || ( ( mem [p ].hh.u.B0 == 8 ) && ( mem [
> p ].hh.u.B1 != 12 ) && ( mem [p ].hh.u.B1 != 10 ) ) || ( ( mem [p ]
> .hh.u.B0 == 7 ) && ( mem [p + 1 ].hh .v.LH == -268435455L ) && ( mem [p
> + 1 ].hh .v.RH == -268435455L ) && ( mem [p ].hh.u.B1 == 0 ) ) || ( (
> mem [p ].hh.u.B0 == 9 ) && ( mem [p + 1 ].cint == 0 ) ) || ( ( mem [p
> ].hh.u.B0 == 11 ) && ( ( mem [p + 1 ].cint == 0 ) || ( mem [p ].hh.u.B1
> == 0 ) ) ) || ( ( mem [p ].hh.u.B0 == 10 ) && ( mem [p + 1 ].hh .v.LH
> == membot ) ) || ( ( mem [p ].hh.u.B0 == 0 ) && ( mem [p + 1 ].cint ==
> 0 ) && ( mem [p + 3 ].cint == 0 ) && ( mem [p + 2 ].cint == 0 ) && (
> mem [p + 5 ].hh .v.RH == -268435455L ) ) ) ) || ( ( ! ( p >= himemmin
> ) ) && ( mem [p ].hh.u.B0 == 10 ) && ( mem [p ].hh.u.B1 == 8 ) ) ) ) p =
> mem [p ].hh .v.RH ;
> if ( ( p != -268435455L ) && ( ! ( p >= himemmin ) ) && ( mem [p ]
> .hh.u.B0 == 40 ) && ( mem [p ].hh.u.B1 == 0 ) )
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> else zprint((integer) (48)) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 16 :
> {
> q = mem [p + 5 ].hh .v.RH ;
> p = zprevrightmost((halfword) (q), (halfword) (-268435455L)) ;
> while ( ( p != -268435455L ) && ( ( ! ( p >= himemmin ) && ( ( mem [p ]
> .hh.u.B0 == 3 ) || ( mem [p ].hh.u.B0 == 4 ) || ( mem [p ].hh.u.B0 == 5 )
> || ( mem [p ].hh.u.B0 == 12 ) || ( ( mem [p ].hh.u.B0 == 8 ) && ( mem [
> p ].hh.u.B1 != 12 ) && ( mem [p ].hh.u.B1 != 10 ) ) || ( ( mem [p ]
> .hh.u.B0 == 7 ) && ( mem [p + 1 ].hh .v.LH == -268435455L ) && ( mem [p
> + 1 ].hh .v.RH == -268435455L ) && ( mem [p ].hh.u.B1 == 0 ) ) || ( (
> mem [p ].hh.u.B0 == 9 ) && ( mem [p + 1 ].cint == 0 ) ) || ( ( mem [p
> ].hh.u.B0 == 11 ) && ( ( mem [p + 1 ].cint == 0 ) || ( mem [p ].hh.u.B1
> == 0 ) ) ) || ( ( mem [p ].hh.u.B0 == 10 ) && ( mem [p + 1 ].hh .v.LH
> == membot ) ) || ( ( mem [p ].hh.u.B0 == 0 ) && ( mem [p + 1 ].cint ==
> 0 ) && ( mem [p + 3 ].cint == 0 ) && ( mem [p + 2 ].cint == 0 ) && (
> mem [p + 5 ].hh .v.RH == -268435455L ) ) ) ) || ( ( ! ( p >= himemmin
> ) ) && ( mem [p ].hh.u.B0 == 10 ) && ( mem [p ].hh.u.B1 == 9 ) ) ) ) p =
> zprevrightmost((halfword) (q), (halfword) (p)) ;
> if ( ( p != -268435455L ) && ( ! ( p >= himemmin ) ) && ( mem [p ]
> .hh.u.B0 == 40 ) && ( mem [p ].hh.u.B1 == 1 ) )
> zprintscaled((scaled) (mem [p + 1 ].cint)) ;
> else zprint((integer) (48)) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 12 :
> zprintint((longinteger) (objtab [curval ].int0)) ;
> break ;
> case 17 :
> zprintint((longinteger) (curval)) ;
> break ;
> case 18 :
> zprintint((longinteger) (curval)) ;
> break ;
> case 28 :
> zprintint((longinteger) (zunifrand((integer) (curval)))) ;
> break ;
> case 29 :
> zprintint((longinteger) (normrand ())) ;
> break ;
> case 30 :
> {
> i = curval ;
> p = memtop ;
> while ( i >= mem [mem [p ].hh .v.RH ].hh.u.B1 ) p = mem [p ].hh
> .v.RH ;
> if ( mem [p ].hh.u.B1 == i )
> zprintscaled((scaled) (mem [p + 3 ].cint)) ;
> else zprint((integer) (48)) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 31 :
> {
> if ( ispdfimage ( i ) )
> {
> switch ( j )
> {case 1 :
> zprintscaled((scaled) (epdforigx ( i ))) ;
> break ;
> case 2 :
> zprintscaled((scaled) (epdforigy ( i ))) ;
> break ;
> case 3 :
> zprintscaled((scaled) (epdforigx ( i ) + imagewidth ( i ))) ;
> break ;
> case 4 :
> zprintscaled((scaled) (epdforigy ( i ) + imageheight ( i ))) ;
> break ;
> }
> }
> else zprintscaled((scaled) (0)) ;
> zprint((integer) (312)) ;
> }
> break ;
> case 32 :
> zprint((integer) (jobname)) ;
> break ;
> }
> selector = oldsetting ;
> mem [memtop - 12 ].hh .v.RH = zstrtoks((poolpointer) (b)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
>}
>halfword
>zscantoks ( boolean macrodef , boolean xpand )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword t ;
> halfword s ;
> halfword p ;
> halfword q ;
> halfword unbalance ;
> halfword hashbrace ;
> if ( macrodef )
> scannerstatus = 2 ;
> else scannerstatus = 5 ;
> warningindex = curcs ;
> defref = getavail () ;
> mem [defref ].hh .v.LH = -268435455L ;
> p = defref ;
> hashbrace = 0 ;
> t = 3120 ;
> if ( macrodef )
> {
> while ( 1 ) {
>
> gettoken () ;
> if ( curtok < 768 )
> goto lab31 ;
> if ( curcmd == 6 )
> {
> s = 3328 + curchr ;
> gettoken () ;
> if ( curcmd == 1 )
> {
> hashbrace = curtok ;
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = 3584 ;
> p = q ;
> }
> goto lab30 ;
> }
> if ( t == 3129 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (897)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 898 ;
> }
> error () ;
> }
> else {
>
> ++(t) ;
> if ( curtok != t )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (899)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 900 ;
> helpline [0 ]= 901 ;
> }
> backerror () ;
> }
> curtok = s ;
> }
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> lab31: {
>
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = 3584 ;
> p = q ;
> }
> if ( curcmd == 2 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (744)) ;
> }
> ++(alignstate) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 895 ;
> helpline [0 ]= 896 ;
> }
> error () ;
> goto lab40 ;
> }
> lab30: ;
> }
> else scanleftbrace () ;
> unbalance = 1 ;
> while ( 1 ) {
>
> if ( xpand )
> {
> while ( 1 ) {
>
> getnext () ;
> if ( curcmd >= 113 ) {
>
> if ( mem [mem [curchr ].hh .v.RH ].hh .v.LH == 3585 )
> {
> curcmd = 0 ;
> curchr = 257 ;
> }
> }
> if ( curcmd <= 102 )
> goto lab32 ;
> if ( curcmd != 111 )
> expand () ;
> else {
>
> q = thetoks () ;
> if ( mem [memtop - 3 ].hh .v.RH != -268435455L )
> {
> mem [p ].hh .v.RH = mem [memtop - 3 ].hh .v.RH ;
> p = q ;
> }
> }
> }
> lab32: xtoken () ;
> }
> else gettoken () ;
> if ( curtok < 768 ) {
>
> if ( curcmd < 2 )
> ++(unbalance) ;
> else {
>
> --(unbalance) ;
> if ( unbalance == 0 )
> goto lab40 ;
> }
> }
> else if ( curcmd == 6 ) {
>
> if ( macrodef )
> {
> s = curtok ;
> if ( xpand )
> getxtoken () ;
> else gettoken () ;
> if ( curcmd != 6 ) {
>
> if ( ( curtok <= 3120 ) || ( curtok > t ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (902)) ;
> }
> zsprintcs((halfword) (warningindex)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 903 ;
> helpline [1 ]= 904 ;
> helpline [0 ]= 905 ;
> }
> backerror () ;
> curtok = s ;
> }
> else curtok = 1232 + curchr ;
> }
> }
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> lab40: scannerstatus = 0 ;
> if ( hashbrace != 0 )
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = hashbrace ;
> p = q ;
> }
> Result = p ;
> return Result ;
>}
>void
>zreadtoks ( integer n , halfword r , halfword j )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> halfword q ;
> integer s ;
> smallnumber m ;
> scannerstatus = 2 ;
> warningindex = r ;
> defref = getavail () ;
> mem [defref ].hh .v.LH = -268435455L ;
> p = defref ;
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = 3584 ;
> p = q ;
> }
> if ( ( n < 0 ) || ( n > 15 ) )
> m = 16 ;
> else m = n ;
> s = alignstate ;
> alignstate = 1000000L ;
> do {
> beginfilereading () ;
> curinput .namefield = m + 1 ;
> if ( readopen [m ]== 2 ) {
>
> if ( interaction > 1 ) {
>
> if ( n < 0 )
> {
> ;
> zprint((integer) (345)) ;
> terminput () ;
> }
> else {
>
> ;
> println () ;
> zsprintcs((halfword) (r)) ;
> {
> ;
> zprint((integer) (61)) ;
> terminput () ;
> }
> n = -1 ;
> }
> }
> else zfatalerror((strnumber) (906)) ;
> }
> else if ( readopen [m ]== 1 ) {
>
> if ( input_line (readfile [m ]) )
> readopen [m ]= 0 ;
> else {
>
> close_file_or_pipe(readfile [m ]) ;
> readopen [m ]= 2 ;
> }
> }
> else {
>
> if ( ! input_line (readfile [m ]) )
> {
> close_file_or_pipe(readfile [m ]) ;
> readopen [m ]= 2 ;
> if ( alignstate != 1000000L )
> {
> runaway () ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (907)) ;
> }
> zprintesc((strnumber) (611)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 908 ;
> }
> alignstate = 1000000L ;
> error () ;
> }
> }
> }
> curinput .limitfield = last ;
> if ( ( eqtb [27225 ].cint < 0 ) || ( eqtb [27225 ].cint > 255 ) )
> --(curinput .limitfield) ;
> else buffer [curinput .limitfield ]= eqtb [27225 ].cint ;
> first = curinput .limitfield + 1 ;
> curinput .locfield = curinput .startfield ;
> curinput .statefield = 33 ;
> if ( j == 1 )
> {
> while ( curinput .locfield <= curinput .limitfield ) {
>
> curchr = buffer [curinput .locfield ];
> ++(curinput .locfield) ;
> if ( curchr == 32 )
> curtok = 2592 ;
> else curtok = curchr + 3072 ;
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> goto lab30 ;
> }
> while ( 1 ) {
>
> gettoken () ;
> if ( curtok == 0 )
> goto lab30 ;
> if ( alignstate < 1000000L )
> {
> do {
> gettoken () ;
> } while ( ! ( curtok == 0 ) ) ;
> alignstate = 1000000L ;
> goto lab30 ;
> }
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> }
> lab30: endfilereading () ;
> } while ( ! ( alignstate == 1000000L ) ) ;
> curval = defref ;
> scannerstatus = 0 ;
> alignstate = s ;
>}
>void
>passtext ( void )
>{
> register memoryword *eqtb=zeqtb;
> integer l ;
> smallnumber savescannerstatus ;
> savescannerstatus = scannerstatus ;
> scannerstatus = 1 ;
> l = 0 ;
> skipline = line ;
> while ( 1 ) {
>
> getnext () ;
> if ( curcmd == 108 )
> {
> if ( l == 0 )
> goto lab30 ;
> if ( curchr == 2 )
> --(l) ;
> }
> else if ( curcmd == 107 )
> ++(l) ;
> }
> lab30: scannerstatus = savescannerstatus ;
> if ( eqtb [27271 ].cint > 0 )
> showcurcmdchr () ;
>}
>void
>zchangeiflimit ( smallnumber l , halfword p )
>{
> register memoryword *mem=zmem;
> halfword q ;
> if ( p == condptr )
> iflimit = l ;
> else {
>
> q = condptr ;
> while ( 1 ) {
>
> if ( q == -268435455L )
> zconfusion((strnumber) (909)) ;
> if ( mem [q ].hh .v.RH == p )
> {
> mem [q ].hh.u.B0 = l ;
> return ;
> }
> q = mem [q ].hh .v.RH ;
> }
> }
>}
>void
>conditional ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> boolean b ;
> boolean e ;
> unsigned char r ;
> integer m, n ;
> halfword p, q ;
> smallnumber savescannerstatus ;
> halfword savecondptr ;
> smallnumber thisif ;
> boolean isunless ;
> if ( eqtb [27271 ].cint > 0 ) {
>
> if ( eqtb [27213 ].cint <= 1 )
> showcurcmdchr () ;
> }
> {
> p = zgetnode((integer) (2)) ;
> mem [p ].hh .v.RH = condptr ;
> mem [p ].hh.u.B0 = iflimit ;
> mem [p ].hh.u.B1 = curif ;
> mem [p + 1 ].cint = ifline ;
> condptr = p ;
> curif = curchr ;
> iflimit = 1 ;
> ifline = line ;
> }
> savecondptr = condptr ;
> isunless = ( curchr >= 32 ) ;
> thisif = curchr % 32 ;
> switch ( thisif )
> {case 0 :
> case 1 :
> {
> {
> getxtoken () ;
> if ( curcmd == 0 ) {
>
> if ( curchr == 257 )
> {
> curcmd = 13 ;
> curchr = curtok - 4096 ;
> }
> }
> }
> if ( ( curcmd > 13 ) || ( curchr > 255 ) )
> {
> m = 0 ;
> n = 256 ;
> }
> else {
>
> m = curcmd ;
> n = curchr ;
> }
> {
> getxtoken () ;
> if ( curcmd == 0 ) {
>
> if ( curchr == 257 )
> {
> curcmd = 13 ;
> curchr = curtok - 4096 ;
> }
> }
> }
> if ( ( curcmd > 13 ) || ( curchr > 255 ) )
> {
> curcmd = 0 ;
> curchr = 256 ;
> }
> if ( thisif == 0 )
> b = ( n == curchr ) ;
> else b = ( m == curcmd ) ;
> }
> break ;
> case 2 :
> case 3 :
> {
> if ( thisif == 2 )
> scanint () ;
> else zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> n = curval ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( ( curtok >= 3132 ) && ( curtok <= 3134 ) )
> r = curtok - 3072 ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (935)) ;
> }
> zprintcmdchr((quarterword) (107), (halfword) (thisif)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 936 ;
> }
> backerror () ;
> r = 61 ;
> }
> if ( thisif == 2 )
> scanint () ;
> else zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> switch ( r )
> {case 60 :
> b = ( n < curval ) ;
> break ;
> case 61 :
> b = ( n == curval ) ;
> break ;
> case 62 :
> b = ( n > curval ) ;
> break ;
> }
> }
> break ;
> case 4 :
> {
> scanint () ;
> b = ((curval) & 1) ;
> }
> break ;
> case 5 :
> b = ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 ) ;
> break ;
> case 6 :
> b = ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 104 ) ;
> break ;
> case 7 :
> b = ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 207 ) ;
> break ;
> case 8 :
> b = ( curlist .modefield < 0 ) ;
> break ;
> case 9 :
> case 10 :
> case 11 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> p = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> p = -268435455L ;
> else p = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( thisif == 9 )
> b = ( p == -268435455L ) ;
> else if ( p == -268435455L )
> b = 0 ;
> else if ( thisif == 10 )
> b = ( mem [p ].hh.u.B0 == 0 ) ;
> else b = ( mem [p ].hh.u.B0 == 1 ) ;
> }
> break ;
> case 12 :
> {
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> getnext () ;
> n = curcs ;
> p = curcmd ;
> q = curchr ;
> getnext () ;
> if ( curcmd != p )
> b = 0 ;
> else if ( curcmd < 113 )
> b = ( curchr == q ) ;
> else {
>
> p = mem [curchr ].hh .v.RH ;
> q = mem [eqtb [n ].hh .v.RH ].hh .v.RH ;
> if ( p == q )
> b = 1 ;
> else {
>
> while ( ( p != -268435455L ) && ( q != -268435455L ) ) if ( mem [p
> ].hh .v.LH != mem [q ].hh .v.LH )
> p = -268435455L ;
> else {
>
> p = mem [p ].hh .v.RH ;
> q = mem [q ].hh .v.RH ;
> }
> b = ( ( p == -268435455L ) && ( q == -268435455L ) ) ;
> }
> }
> scannerstatus = savescannerstatus ;
> }
> break ;
> case 13 :
> {
> scanfourbitintor18 () ;
> if ( curval == 18 )
> b = ! shellenabledp ;
> else b = ( readopen [curval ]== 2 ) ;
> }
> break ;
> case 14 :
> b = 1 ;
> break ;
> case 15 :
> b = 0 ;
> break ;
> case 17 :
> {
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> getnext () ;
> b = ( curcmd != 103 ) ;
> scannerstatus = savescannerstatus ;
> }
> break ;
> case 18 :
> {
> n = getavail () ;
> p = n ;
> e = isincsname ;
> isincsname = 1 ;
> do {
> getxtoken () ;
> if ( curcs == 0 )
> {
> q = getavail () ;
> mem [p ].hh .v.RH = q ;
> mem [q ].hh .v.LH = curtok ;
> p = q ;
> }
> } while ( ! ( curcs != 0 ) ) ;
> if ( curcmd != 67 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (712)) ;
> }
> zprintesc((strnumber) (578)) ;
> zprint((integer) (713)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 714 ;
> helpline [0 ]= 715 ;
> }
> backerror () ;
> }
> m = first ;
> p = mem [n ].hh .v.RH ;
> while ( p != -268435455L ) {
>
> if ( m >= maxbufstack )
> {
> maxbufstack = m + 1 ;
> if ( maxbufstack == bufsize )
> zoverflow((strnumber) (258), (integer) (bufsize)) ;
> }
> buffer [m ]= mem [p ].hh .v.LH % 256 ;
> ++(m) ;
> p = mem [p ].hh .v.RH ;
> }
> if ( m > first + 1 )
> curcs = zidlookup((integer) (first), (integer) (m - first)) ;
> else if ( m == first )
> curcs = 513 ;
> else curcs = 257 + buffer [first ];
> zflushlist((halfword) (n)) ;
> b = ( eqtb [curcs ].hh.u.B0 != 103 ) ;
> isincsname = e ;
> }
> break ;
> case 20 :
> b = isincsname ;
> break ;
> case 23 :
> case 22 :
> {
> if ( thisif == 22 )
> scanint () ;
> else zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> n = curval ;
> if ( n < 0 )
> n = - (integer) n ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( ( curtok >= 3132 ) && ( curtok <= 3134 ) )
> r = curtok - 3072 ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (935)) ;
> }
> zprintcmdchr((quarterword) (107), (halfword) (thisif)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 936 ;
> }
> backerror () ;
> r = 61 ;
> }
> if ( thisif == 22 )
> scanint () ;
> else zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> if ( curval < 0 )
> curval = - (integer) curval ;
> switch ( r )
> {case 60 :
> b = ( n < curval ) ;
> break ;
> case 61 :
> b = ( n == curval ) ;
> break ;
> case 62 :
> b = ( n > curval ) ;
> break ;
> }
> }
> break ;
> case 19 :
> {
> scanfontident () ;
> n = curval ;
> scancharnum () ;
> if ( ( fontbc [n ]<= curval ) && ( fontec [n ]>= curval ) )
> b = ( fontinfo [charbase [n ]+ zeffectivechar((boolean) (1), (internalfontnumber) (n), (quarterword) (curval)) ]
> .qqqq .u.B0 > 0 ) ;
> else b = 0 ;
> }
> break ;
> case 16 :
> {
> scanint () ;
> n = curval ;
> if ( eqtb [27213 ].cint > 1 )
> {
> begindiagnostic () ;
> zprint((integer) (937)) ;
> zprintint((longinteger) (n)) ;
> zprintchar((ASCIIcode) (125)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> while ( n != 0 ) {
>
> passtext () ;
> if ( condptr == savecondptr ) {
>
> if ( curchr == 4 )
> --(n) ;
> else goto lab50 ;
> }
> else if ( curchr == 2 )
> {
> if ( ifstack [inopen ]== condptr )
> ifwarning () ;
> p = condptr ;
> ifline = mem [p + 1 ].cint ;
> curif = mem [p ].hh.u.B1 ;
> iflimit = mem [p ].hh.u.B0 ;
> condptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> }
> zchangeiflimit((smallnumber) (4), (halfword) (savecondptr)) ;
> return ;
> }
> break ;
> case 21 :
> {
> savescannerstatus = scannerstatus ;
> scannerstatus = 0 ;
> getnext () ;
> scannerstatus = savescannerstatus ;
> if ( curcs < 514 )
> m = zprimlookup((strnumber) (curcs - 257)) ;
> else m = zprimlookup((strnumber) (hash [curcs ].v.RH)) ;
> b = ( ( curcmd != 103 ) && ( m != 0 ) && ( curcmd == primeqtb [m ]
> .hh.u.B0 ) && ( curchr == primeqtb [m ].hh .v.RH ) ) ;
> }
> break ;
> }
> if ( isunless )
> b = ! b ;
> if ( eqtb [27213 ].cint > 1 )
> {
> begindiagnostic () ;
> if ( b )
> zprint((integer) (933)) ;
> else zprint((integer) (934)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> if ( b )
> {
> zchangeiflimit((smallnumber) (3), (halfword) (savecondptr)) ;
> return ;
> }
> while ( 1 ) {
>
> passtext () ;
> if ( condptr == savecondptr )
> {
> if ( curchr != 4 )
> goto lab50 ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> zprintesc((strnumber) (929)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 932 ;
> }
> error () ;
> }
> else if ( curchr == 2 )
> {
> if ( ifstack [inopen ]== condptr )
> ifwarning () ;
> p = condptr ;
> ifline = mem [p + 1 ].cint ;
> curif = mem [p ].hh.u.B1 ;
> iflimit = mem [p ].hh.u.B0 ;
> condptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> }
> lab50: if ( curchr == 2 )
> {
> if ( ifstack [inopen ]== condptr )
> ifwarning () ;
> p = condptr ;
> ifline = mem [p + 1 ].cint ;
> curif = mem [p ].hh.u.B1 ;
> iflimit = mem [p ].hh.u.B0 ;
> condptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> }
> else iflimit = 2 ;
>}
>void
>beginname ( void )
>{
> 
> areadelimiter = 0 ;
> extdelimiter = 0 ;
> quotedfilename = 0 ;
>}
>boolean
>zmorename ( ASCIIcode c )
>{
> register boolean Result;
> if ( ( c == 32 ) && stopatspace && ( ! quotedfilename ) )
> Result = 0 ;
> else if ( c == 34 )
> {
> quotedfilename = ! quotedfilename ;
> Result = 1 ;
> }
> else {
>
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> {
> strpool [poolptr ]= c ;
> ++(poolptr) ;
> }
> if ( ((c) == '/') )
> {
> areadelimiter = ( poolptr - strstart [strptr ]) ;
> extdelimiter = 0 ;
> }
> else if ( c == 46 )
> extdelimiter = ( poolptr - strstart [strptr ]) ;
> Result = 1 ;
> }
> return Result ;
>}
>void
>endname ( void )
>{
> 
> strnumber tempstr ;
> poolpointer j, s, t ;
> boolean mustquote ;
> if ( strptr + 3 > maxstrings )
> zoverflow((strnumber) (260), (integer) (maxstrings - initstrptr)) ;
> {
> if ( poolptr + 6 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> if ( areadelimiter != 0 )
> {
> mustquote = 0 ;
> s = strstart [strptr ];
> t = strstart [strptr ]+ areadelimiter ;
> j = s ;
> while ( ( ! mustquote ) && ( j < t ) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> if ( mustquote )
> {
> {register integer for_end; j = poolptr - 1 ;for_end = t ; if ( j >=
> for_end) do
> strpool [j + 2 ]= strpool [j ];
> while ( j-- > for_end ) ;}
> strpool [t + 1 ]= 34 ;
> {register integer for_end; j = t - 1 ;for_end = s ; if ( j >= for_end)
> do
> strpool [j + 1 ]= strpool [j ];
> while ( j-- > for_end ) ;}
> strpool [s ]= 34 ;
> if ( extdelimiter != 0 )
> extdelimiter = extdelimiter + 2 ;
> areadelimiter = areadelimiter + 2 ;
> poolptr = poolptr + 2 ;
> }
> }
> s = strstart [strptr ]+ areadelimiter ;
> if ( extdelimiter == 0 )
> t = poolptr ;
> else t = strstart [strptr ]+ extdelimiter - 1 ;
> mustquote = 0 ;
> j = s ;
> while ( ( ! mustquote ) && ( j < t ) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> if ( mustquote )
> {
> {register integer for_end; j = poolptr - 1 ;for_end = t ; if ( j >=
> for_end) do
> strpool [j + 2 ]= strpool [j ];
> while ( j-- > for_end ) ;}
> strpool [t + 1 ]= 34 ;
> {register integer for_end; j = t - 1 ;for_end = s ; if ( j >= for_end)
> do
> strpool [j + 1 ]= strpool [j ];
> while ( j-- > for_end ) ;}
> strpool [s ]= 34 ;
> if ( extdelimiter != 0 )
> extdelimiter = extdelimiter + 2 ;
> poolptr = poolptr + 2 ;
> }
> if ( extdelimiter != 0 )
> {
> s = strstart [strptr ]+ extdelimiter - 1 ;
> t = poolptr ;
> mustquote = 0 ;
> j = s ;
> while ( ( ! mustquote ) && ( j < t ) ) {
>
> mustquote = strpool [j ]== 32 ;
> ++(j) ;
> }
> if ( mustquote )
> {
> strpool [t + 1 ]= 34 ;
> {register integer for_end; j = t - 1 ;for_end = s ; if ( j >= for_end)
> do
> strpool [j + 1 ]= strpool [j ];
> while ( j-- > for_end ) ;}
> strpool [s ]= 34 ;
> poolptr = poolptr + 2 ;
> }
> }
> if ( areadelimiter == 0 )
> curarea = 345 ;
> else {
>
> curarea = strptr ;
> strstart [strptr + 1 ]= strstart [strptr ]+ areadelimiter ;
> ++(strptr) ;
> tempstr = zsearchstring((strnumber) (curarea)) ;
> if ( tempstr > 0 )
> {
> curarea = tempstr ;
> --(strptr) ;
> {register integer for_end; j = strstart [strptr + 1 ];for_end =
> poolptr - 1 ; if ( j <= for_end) do
> {
> strpool [j - areadelimiter ]= strpool [j ];
> }
> while ( j++ < for_end ) ;}
> poolptr = poolptr - areadelimiter ;
> }
> }
> if ( extdelimiter == 0 )
> {
> curext = 345 ;
> curname = slowmakestring () ;
> }
> else {
>
> curname = strptr ;
> strstart [strptr + 1 ]= strstart [strptr ]+ extdelimiter -
> areadelimiter - 1 ;
> ++(strptr) ;
> curext = makestring () ;
> --(strptr) ;
> tempstr = zsearchstring((strnumber) (curname)) ;
> if ( tempstr > 0 )
> {
> curname = tempstr ;
> --(strptr) ;
> {register integer for_end; j = strstart [strptr + 1 ];for_end =
> poolptr - 1 ; if ( j <= for_end) do
> {
> strpool [j - extdelimiter + areadelimiter + 1 ]= strpool [j ];
> }
> while ( j++ < for_end ) ;}
> poolptr = poolptr - extdelimiter + areadelimiter + 1 ;
> }
> curext = slowmakestring () ;
> }
>}
>void
>zpackfilename ( strnumber n , strnumber a , strnumber e )
>{
> 
> integer k ;
> ASCIIcode c ;
> poolpointer j ;
> k = 0 ;
> if ( nameoffile )
> free ( nameoffile ) ;
> nameoffile = ((ASCIIcode*)xmalloc((( strstart [a + 1 ]- strstart [a ]) + ( strstart [n + 1 ]- strstart [n ]) + ( strstart [e + 1 ]- strstart [e ]) + 1 +1)*sizeof(ASCIIcode)))
>
> ;
> {register integer for_end; j = strstart [a ];for_end = strstart [a + 1
> ]- 1 ; if ( j <= for_end) do
> {
> c = strpool [j ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> {register integer for_end; j = strstart [n ];for_end = strstart [n + 1
> ]- 1 ; if ( j <= for_end) do
> {
> c = strpool [j ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> {register integer for_end; j = strstart [e ];for_end = strstart [e + 1
> ]- 1 ; if ( j <= for_end) do
> {
> c = strpool [j ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> if ( k <= 2147483647 )
> namelength = k ;
> else namelength = 2147483647 ;
> nameoffile [namelength + 1 ]= 0 ;
>}
>void
>zpackbufferedname ( smallnumber n , integer a , integer b )
>{
> 
> integer k ;
> ASCIIcode c ;
> integer j ;
> if ( n + b - a + 5 > 2147483647 )
> b = a + 2147483647 - n - 5 ;
> k = 0 ;
> if ( nameoffile )
> free ( nameoffile ) ;
> nameoffile = ((ASCIIcode*)xmalloc((n + ( b - a + 1 ) + 5 +1)*sizeof(ASCIIcode))) ;
> {register integer for_end; j = 1 ;for_end = n ; if ( j <= for_end) do
> {
> c = xord [((unsigned char) (TEXformatdefault [j ])) ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> {register integer for_end; j = a ;for_end = b ; if ( j <= for_end) do
> {
> c = buffer [j ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> {register integer for_end; j = formatdefaultlength - 3 ;for_end =
> formatdefaultlength ; if ( j <= for_end) do
> {
> c = xord [((unsigned char) (TEXformatdefault [j ])) ];
> if ( ! ( c == 34 ) )
> {
> ++(k) ;
> if ( k <= 2147483647 )
> nameoffile [k ]= xchr [c ];
> }
> }
> while ( j++ < for_end ) ;}
> if ( k <= 2147483647 )
> namelength = k ;
> else namelength = 2147483647 ;
> nameoffile [namelength + 1 ]= 0 ;
>}
>strnumber
>makenamestring ( void )
>{
> register strnumber Result;
> integer k ;
> poolpointer saveareadelimiter, saveextdelimiter ;
> boolean savenameinprogress, savestopatspace ;
> if ( ( poolptr + namelength > poolsize ) || ( strptr == maxstrings ) || ( (
> poolptr - strstart [strptr ]) > 0 ) )
> Result = 63 ;
> else {
>
> {register integer for_end; k = 1 ;for_end = namelength ; if ( k <=
> for_end) do
> {
> strpool [poolptr ]= xord [nameoffile [k ]];
> ++(poolptr) ;
> }
> while ( k++ < for_end ) ;}
> Result = makestring () ;
> saveareadelimiter = areadelimiter ;
> saveextdelimiter = extdelimiter ;
> savenameinprogress = nameinprogress ;
> savestopatspace = stopatspace ;
> nameinprogress = 1 ;
> beginname () ;
> stopatspace = 0 ;
> k = 1 ;
> while ( ( k <= namelength ) && ( zmorename((ASCIIcode) (nameoffile [k ])) ) ) ++(k)
> ;
> stopatspace = savestopatspace ;
> endname () ;
> nameinprogress = savenameinprogress ;
> areadelimiter = saveareadelimiter ;
> extdelimiter = saveextdelimiter ;
> }
> return Result ;
>}
>strnumber
>zamakenamestring ( alphafile f )
>{
> register strnumber Result;
> Result = makenamestring () ;
> return Result ;
>}
>strnumber
>zbmakenamestring ( bytefile f )
>{
> register strnumber Result;
> Result = makenamestring () ;
> return Result ;
>}
>strnumber
>zwmakenamestring ( wordfile f )
>{
> register strnumber Result;
> Result = makenamestring () ;
> return Result ;
>}
>void
>scanfilename ( void )
>{
> 
> nameinprogress = 1 ;
> beginname () ;
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> while ( 1 ) {
>
> if ( ( curcmd > 12 ) || ( curchr > 255 ) )
> {
> backinput () ;
> goto lab30 ;
> }
> if ( ( curchr == 32 ) && ( curinput .statefield != 0 ) && ( curinput
> .locfield > curinput .limitfield ) )
> goto lab30 ;
> if ( ! zmorename((ASCIIcode) (curchr)) )
> goto lab30 ;
> getxtoken () ;
> }
> lab30: endname () ;
> nameinprogress = 0 ;
>}
>void
>zpackjobname ( strnumber s )
>{
> 
> curarea = 345 ;
> curext = s ;
> curname = jobname ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
>}
>void
>zpromptfilename ( strnumber s , strnumber e )
>{
> 
> integer k ;
> strnumber savedcurname ;
> strnumber savedcurext ;
> strnumber savedcurarea ;
> if ( interaction == 2 )
> ;
> if ( s == 939 )
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (940)) ;
> }
> else {
>
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (941)) ;
> }
> zprintfilename((integer) (curname), (integer) (curarea), (integer) (curext)) ;
> zprint((integer) (942)) ;
> if ( ( e == 943 ) || ( e == 345 ) )
> showcontext () ;
> println () ;
> do { const_string ch_ptr = ("(Press Enter to retry, or Control-D to exit"); while (*ch_ptr) zprintchar((ASCIIcode) (*(ch_ptr++))); } while (0) ;
> if ( ( e != 345 ) )
> {
> zprint((integer) (944)) ;
> zprint((integer) (e)) ;
> zprint((integer) (39)) ;
> }
> zprint((integer) (41)) ;
> println () ;
> zprintnl((strnumber) (945)) ;
> zprint((integer) (s)) ;
> if ( interaction < 2 )
> zfatalerror((strnumber) (946)) ;
> savedcurname = curname ;
> savedcurext = curext ;
> savedcurarea = curarea ;
> {
> ;
> zprint((integer) (648)) ;
> terminput () ;
> }
> {
> beginname () ;
> k = first ;
> while ( ( buffer [k ]== 32 ) && ( k < last ) ) ++(k) ;
> while ( 1 ) {
>
> if ( k == last )
> goto lab30 ;
> if ( ! zmorename((ASCIIcode) (buffer [k ])) )
> goto lab30 ;
> ++(k) ;
> }
> lab30: endname () ;
> }
> if ( ( ( strstart [curname + 1 ]- strstart [curname ]) == 0 ) && (
> curext == 345 ) && ( curarea == 345 ) )
> {
> curname = savedcurname ;
> curext = savedcurext ;
> curarea = savedcurarea ;
> }
> else if ( curext == 345 )
> curext = e ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
>}
>void
>openlogfile ( void )
>{
> register memoryword *eqtb=zeqtb;
> unsigned char oldsetting ;
> integer k ;
> integer l ;
> const_string months ;
> oldsetting = selector ;
> if ( jobname == 0 )
> jobname = getjobname ( 949 ) ;
> zpackjobname((strnumber) (950)) ;
> recorder_change_filename ( ((string) (nameoffile + 1)) ) ;
> zpackjobname((strnumber) (951)) ;
> while ( ! open_out_or_pipe(&(logfile),"wb") ) {
>
> selector = 17 ;
> zpromptfilename((strnumber) (953), (strnumber) (951)) ;
> }
> texmflogname = zamakenamestring((alphafile) (logfile)) ;
> selector = 18 ;
> logopened = 1 ;
> {
> if ( srcspecialsp || filelineerrorstylep || parsefirstlinep )
> fprintf ( logfile , "%s%s%s", "This is pdfTeX, Version 3.14159265" , "-2.6" , "-1.40.15" ) ;
> else
> fprintf ( logfile , "%s%s%s", "This is pdfTeX, Version 3.14159265" , "-2.6" , "-1.40.15" ) ;
> (void) fputs (versionstring, logfile) ;
> zslowprint((integer) (formatident)) ;
> zprint((integer) (954)) ;
> zprintint((longinteger) (eqtb [27198 ].cint)) ;
> zprintchar((ASCIIcode) (32)) ;
> months = " JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" ;
> {register integer for_end; k = 3 * eqtb [27199 ].cint - 2 ;for_end = 3
> * eqtb [27199 ].cint ; if ( k <= for_end) do
> _IO_putc (months [k ], logfile);
> while ( k++ < for_end ) ;}
> zprintchar((ASCIIcode) (32)) ;
> zprintint((longinteger) (eqtb [27200 ].cint)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprinttwo((integer) (eqtb [27197 ].cint / 60)) ;
> zprintchar((ASCIIcode) (58)) ;
> zprinttwo((integer) (eqtb [27197 ].cint % 60)) ;
> if ( ( eTeXmode == 1 ) )
> {
> ;
> _IO_putc ('\n', logfile);
> (void) fputs ("entering extended mode", logfile) ;
> }
> if ( shellenabledp )
> {
> _IO_putc ('\n', logfile);
> _IO_putc (' ', logfile);
> if ( restrictedshell )
> {
> (void) fputs ("restricted ", logfile) ;
> }
> (void) fputs ("\\write18 enabled.", logfile) ;
> }
> if ( srcspecialsp )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" Source specials enabled.", logfile) ;
> }
> if ( filelineerrorstylep )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" file:line:error style messages enabled.", logfile) ;
> }
> if ( parsefirstlinep )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" %&-line parsing enabled.", logfile) ;
> }
> if ( translate_filename )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" (", logfile) ;
> fputs ( translate_filename , logfile ) ;
> _IO_putc (')', logfile);
> }
> }
> if ( mltexenabledp )
> {
> _IO_putc ('\n', logfile);
> (void) fputs ("MLTeX v2.2 enabled", logfile) ;
> }
> if ( enctexenabledp )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" encTeX v. Jun. 2004", logfile) ;
> (void) fputs (", reencoding enabled", logfile) ;
> if ( translate_filename )
> {
> _IO_putc ('\n', logfile);
> (void) fputs (" (\\xordcode, \\xchrcode, \\xprncode overridden by TCX)", logfile) ;
> }
> }
> inputstack [inputptr ]= curinput ;
> zprintnl((strnumber) (952)) ;
> l = inputstack [0 ].limitfield ;
> if ( buffer [l ]== eqtb [27225 ].cint )
> --(l) ;
> {register integer for_end; k = 1 ;for_end = l ; if ( k <= for_end) do
> zprint((integer) (buffer [k ])) ;
> while ( k++ < for_end ) ;}
> println () ;
> selector = oldsetting + 2 ;
>}
>void
>startinput ( void )
>{
> register memoryword *eqtb=zeqtb;
> strnumber tempstr ;
> scanfilename () ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
> while ( 1 ) {
>
> beginfilereading () ;
> texinputtype = 1 ;
> if ( kpse_in_name_ok ( ((string) (nameoffile + 1)) ) && open_in_or_pipe(&(inputfile [curinput .indexfield ]),kpse_tex_format,"rb")
> )
> goto lab30 ;
> endfilereading () ;
> zpromptfilename((strnumber) (939), (strnumber) (345)) ;
> }
> lab30: curinput .namefield = zamakenamestring((alphafile) (inputfile [curinput .indexfield ]))
> ;
> sourcefilenamestack [inopen ]= curinput .namefield ;
> fullsourcefilenamestack [inopen ]= makefullnamestring () ;
> if ( curinput .namefield == strptr - 1 )
> {
> tempstr = zsearchstring((strnumber) (curinput .namefield)) ;
> if ( tempstr > 0 )
> {
> curinput .namefield = tempstr ;
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
> }
> }
> if ( jobname == 0 )
> {
> jobname = getjobname ( curname ) ;
> openlogfile () ;
> }
> if ( termoffset + ( strstart [fullsourcefilenamestack [inopen ]+ 1 ]-
> strstart [fullsourcefilenamestack [inopen ]]) > maxprintline - 2 )
> println () ;
> else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) )
> zprintchar((ASCIIcode) (32)) ;
> zprintchar((ASCIIcode) (40)) ;
> ++(openparens) ;
> zslowprint((integer) (fullsourcefilenamestack [inopen ])) ;
> fflush ( stdout ) ;
> curinput .statefield = 33 ;
> synctexstartinput () ;
> {
> line = 1 ;
> if ( input_line (inputfile [curinput .indexfield ]) )
> ;
> firmuptheline () ;
> if ( ( eqtb [27225 ].cint < 0 ) || ( eqtb [27225 ].cint > 255 ) )
> --(curinput .limitfield) ;
> else buffer [curinput .limitfield ]= eqtb [27225 ].cint ;
> first = curinput .limitfield + 1 ;
> curinput .locfield = curinput .startfield ;
> }
>}
>fourquarters
>zeffectivecharinfo ( internalfontnumber f , quarterword c )
>{
> register fourquarters Result; register memoryword *eqtb=zeqtb;
> fourquarters ci ;
> integer basec ;
> if ( ! mltexenabledp )
> {
> Result = fontinfo [charbase [f ]+ c ].qqqq ;
> return Result ;
> }
> if ( fontec [f ]>= c ) {
>
> if ( fontbc [f ]<= c )
> {
> ci = fontinfo [charbase [f ]+ c ].qqqq ;
> if ( ( ci .u.B0 > 0 ) )
> {
> Result = ci ;
> return Result ;
> }
> }
> }
> if ( c >= eqtb [27232 ].cint ) {
>
> if ( c <= eqtb [27233 ].cint ) {
>
> if ( ( eqtb [26921 + c ].hh .v.RH > 0 ) )
> {
> basec = ( eqtb [26921 + c ].hh .v.RH % 256 ) ;
> if ( fontec [f ]>= basec ) {
>
> if ( fontbc [f ]<= basec )
> {
> ci = fontinfo [charbase [f ]+ basec ].qqqq ;
> if ( ( ci .u.B0 > 0 ) )
> {
> Result = ci ;
> return Result ;
> }
> }
> }
> }
> }
> }
> Result = nullcharacter ;
> return Result ;
>}
>internalfontnumber
>zreadfontinfo ( halfword u , strnumber nom , strnumber aire , scaled s )
>{
> register internalfontnumber Result; register memoryword *eqtb=zeqtb;
> fontindex k ;
> boolean nametoolong ;
> boolean fileopened ;
> halfword lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np ;
> internalfontnumber f ;
> internalfontnumber g ;
> eightbits a, b, c, d ;
> fourquarters qw ;
> scaled sw ;
> integer bchlabel ;
> short bchar ;
> scaled z ;
> integer alpha ;
> unsigned char beta ;
> g = 0 ;
> fileopened = 0 ;
> nametoolong = ( ( strstart [nom + 1 ]- strstart [nom ]) > 255 ) || ( (
> strstart [aire + 1 ]- strstart [aire ]) > 255 ) ;
> if ( nametoolong )
> goto lab11 ;
> zpackfilename((strnumber) (nom), (strnumber) (aire), (strnumber) (345)) ;
> if ( ! open_input (&(tfmfile), kpse_tfm_format, "rb") )
> goto lab11 ;
> fileopened = 1 ;
> {
> {
> lf = tfmtemp ;
> if ( lf > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> lf = lf * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> lh = tfmtemp ;
> if ( lh > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> lh = lh * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> bc = tfmtemp ;
> if ( bc > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> bc = bc * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> ec = tfmtemp ;
> if ( ec > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> ec = ec * 256 + tfmtemp ;
> }
> if ( ( bc > ec + 1 ) || ( ec > 255 ) )
> goto lab11 ;
> if ( bc > 255 )
> {
> bc = 1 ;
> ec = 0 ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> nw = tfmtemp ;
> if ( nw > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> nw = nw * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> nh = tfmtemp ;
> if ( nh > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> nh = nh * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> nd = tfmtemp ;
> if ( nd > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> nd = nd * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> ni = tfmtemp ;
> if ( ni > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> ni = ni * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> nl = tfmtemp ;
> if ( nl > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> nl = nl * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> nk = tfmtemp ;
> if ( nk > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> nk = nk * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> ne = tfmtemp ;
> if ( ne > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> ne = ne * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> np = tfmtemp ;
> if ( np > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> np = np * 256 + tfmtemp ;
> }
> if ( lf != 6 + lh + ( ec - bc + 1 ) + nw + nh + nd + ni + nl + nk + ne +
> np )
> goto lab11 ;
> if ( ( nw == 0 ) || ( nh == 0 ) || ( nd == 0 ) || ( ni == 0 ) )
> goto lab11 ;
> }
> lf = lf - 6 - lh ;
> if ( np < 7 )
> lf = lf + 7 - np ;
> if ( ( fontptr == fontmax ) || ( fmemptr + lf > fontmemsize ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (956)) ;
> }
> zsprintcs((halfword) (u)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintfilename((integer) (nom), (integer) (aire), (integer) (345)) ;
> if ( s >= 0 )
> {
> zprint((integer) (894)) ;
> zprintscaled((scaled) (s)) ;
> zprint((integer) (312)) ;
> }
> else if ( s != -1000 )
> {
> zprint((integer) (957)) ;
> zprintint((longinteger) (- (integer) s)) ;
> }
> zprint((integer) (966)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 967 ;
> helpline [2 ]= 968 ;
> helpline [1 ]= 969 ;
> helpline [0 ]= 970 ;
> }
> error () ;
> goto lab30 ;
> }
> f = fontptr + 1 ;
> charbase [f ]= fmemptr - bc ;
> widthbase [f ]= charbase [f ]+ ec + 1 ;
> heightbase [f ]= widthbase [f ]+ nw ;
> depthbase [f ]= heightbase [f ]+ nh ;
> italicbase [f ]= depthbase [f ]+ nd ;
> ligkernbase [f ]= italicbase [f ]+ ni ;
> kernbase [f ]= ligkernbase [f ]+ nl - 256 * ( 128 ) ;
> extenbase [f ]= kernbase [f ]+ 256 * ( 128 ) + nk ;
> parambase [f ]= extenbase [f ]+ ne ;
> {
> if ( lh < 2 )
> goto lab11 ;
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> qw .u.B0 = a ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> qw .u.B1 = b ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> qw .u.B2 = c ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> qw .u.B3 = d ;
> fontcheck [f ]= qw ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> {
> z = tfmtemp ;
> if ( z > 127 )
> goto lab11 ;
> tfmtemp = _IO_getc (tfmfile) ;
> z = z * 256 + tfmtemp ;
> }
> tfmtemp = _IO_getc (tfmfile) ;
> z = z * 256 + tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> z = ( z * 16 ) + ( tfmtemp / 16 ) ;
> if ( z < 65536L )
> goto lab11 ;
> while ( lh > 2 ) {
>
> tfmtemp = _IO_getc (tfmfile) ;
> tfmtemp = _IO_getc (tfmfile) ;
> tfmtemp = _IO_getc (tfmfile) ;
> tfmtemp = _IO_getc (tfmfile) ;
> --(lh) ;
> }
> fontdsize [f ]= z ;
> if ( s != -1000 ) {
>
> if ( s >= 0 )
> z = s ;
> else z = zxnoverd((scaled) (z), (integer) (- (integer) s), (integer) (1000)) ;
> }
> fontsize [f ]= z ;
> }
> {register integer for_end; k = fmemptr ;for_end = widthbase [f ]- 1
> ; if ( k <= for_end) do
> {
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> qw .u.B0 = a ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> qw .u.B1 = b ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> qw .u.B2 = c ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> qw .u.B3 = d ;
> fontinfo [k ].qqqq = qw ;
> }
> if ( ( a >= nw ) || ( b / 16 >= nh ) || ( b % 16 >= nd ) || ( c / 4 >=
> ni ) )
> goto lab11 ;
> switch ( c % 4 )
> {case 1 :
> if ( d >= nl )
> goto lab11 ;
> break ;
> case 3 :
> if ( d >= ne )
> goto lab11 ;
> break ;
> case 2 :
> {
> {
> if ( ( d < bc ) || ( d > ec ) )
> goto lab11 ;
> }
> while ( d < k + bc - fmemptr ) {
>
> qw = fontinfo [charbase [f ]+ d ].qqqq ;
> if ( ( ( qw .u.B2 ) % 4 ) != 2 )
> goto lab45 ;
> d = qw .u.B3 ;
> }
> if ( d == k + bc - fmemptr )
> goto lab11 ;
> lab45: ;
> }
> break ;
> default:
> ;
> break ;
> }
> }
> while ( k++ < for_end ) ;}
> {
> {
> alpha = 16 ;
> while ( z >= 8388608L ) {
>
> z = z / 2 ;
> alpha = alpha + alpha ;
> }
> beta = 256 / alpha ;
> alpha = alpha * z ;
> }
> {register integer for_end; k = widthbase [f ];for_end = ligkernbase [
> f ]- 1 ; if ( k <= for_end) do
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> sw = ( ( ( ( ( d * z ) / 256 ) + ( c * z ) ) / 256 ) + ( b * z ) ) /
> beta ;
> if ( a == 0 )
> fontinfo [k ].cint = sw ;
> else if ( a == 255 )
> fontinfo [k ].cint = sw - alpha ;
> else goto lab11 ;
> }
> while ( k++ < for_end ) ;}
> if ( fontinfo [widthbase [f ]].cint != 0 )
> goto lab11 ;
> if ( fontinfo [heightbase [f ]].cint != 0 )
> goto lab11 ;
> if ( fontinfo [depthbase [f ]].cint != 0 )
> goto lab11 ;
> if ( fontinfo [italicbase [f ]].cint != 0 )
> goto lab11 ;
> }
> bchlabel = 32767 ;
> bchar = 256 ;
> if ( nl > 0 )
> {
> {register integer for_end; k = ligkernbase [f ];for_end = kernbase [f
> ]+ 256 * ( 128 ) - 1 ; if ( k <= for_end) do
> {
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> qw .u.B0 = a ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> qw .u.B1 = b ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> qw .u.B2 = c ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> qw .u.B3 = d ;
> fontinfo [k ].qqqq = qw ;
> }
> if ( a > 128 )
> {
> if ( 256 * c + d >= nl )
> goto lab11 ;
> if ( a == 255 ) {
>
> if ( k == ligkernbase [f ])
> bchar = b ;
> }
> }
> else {
>
> if ( b != bchar )
> {
> {
> if ( ( b < bc ) || ( b > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ b ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> if ( c < 128 )
> {
> {
> if ( ( d < bc ) || ( d > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ d ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> else if ( 256 * ( c - 128 ) + d >= nk )
> goto lab11 ;
> if ( a < 128 ) {
>
> if ( k - ligkernbase [f ]+ a + 1 >= nl )
> goto lab11 ;
> }
> }
> }
> while ( k++ < for_end ) ;}
> if ( a == 255 )
> bchlabel = 256 * c + d ;
> }
> {register integer for_end; k = kernbase [f ]+ 256 * ( 128 ) ;for_end =
> extenbase [f ]- 1 ; if ( k <= for_end) do
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> sw = ( ( ( ( ( d * z ) / 256 ) + ( c * z ) ) / 256 ) + ( b * z ) ) /
> beta ;
> if ( a == 0 )
> fontinfo [k ].cint = sw ;
> else if ( a == 255 )
> fontinfo [k ].cint = sw - alpha ;
> else goto lab11 ;
> }
> while ( k++ < for_end ) ;}
> {register integer for_end; k = extenbase [f ];for_end = parambase [f ]
> - 1 ; if ( k <= for_end) do
> {
> {
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> qw .u.B0 = a ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> qw .u.B1 = b ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> qw .u.B2 = c ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> qw .u.B3 = d ;
> fontinfo [k ].qqqq = qw ;
> }
> if ( a != 0 )
> {
> {
> if ( ( a < bc ) || ( a > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ a ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> if ( b != 0 )
> {
> {
> if ( ( b < bc ) || ( b > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ b ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> if ( c != 0 )
> {
> {
> if ( ( c < bc ) || ( c > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ c ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> {
> {
> if ( ( d < bc ) || ( d > ec ) )
> goto lab11 ;
> }
> qw = fontinfo [charbase [f ]+ d ].qqqq ;
> if ( ! ( qw .u.B0 > 0 ) )
> goto lab11 ;
> }
> }
> while ( k++ < for_end ) ;}
> {
> {register integer for_end; k = 1 ;for_end = np ; if ( k <= for_end) do
> if ( k == 1 )
> {
> tfmtemp = _IO_getc (tfmfile) ;
> sw = tfmtemp ;
> if ( sw > 127 )
> sw = sw - 256 ;
> tfmtemp = _IO_getc (tfmfile) ;
> sw = sw * 256 + tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> sw = sw * 256 + tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> fontinfo [parambase [f ]].cint = ( sw * 16 ) + ( tfmtemp / 16 ) ;
> }
> else {
>
> tfmtemp = _IO_getc (tfmfile) ;
> a = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> b = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> c = tfmtemp ;
> tfmtemp = _IO_getc (tfmfile) ;
> d = tfmtemp ;
> sw = ( ( ( ( ( d * z ) / 256 ) + ( c * z ) ) / 256 ) + ( b * z ) ) /
> beta ;
> if ( a == 0 )
> fontinfo [parambase [f ]+ k - 1 ].cint = sw ;
> else if ( a == 255 )
> fontinfo [parambase [f ]+ k - 1 ].cint = sw - alpha ;
> else goto lab11 ;
> }
> while ( k++ < for_end ) ;}
> if ( feof ( tfmfile ) )
> goto lab11 ;
> {register integer for_end; k = np + 1 ;for_end = 7 ; if ( k <= for_end)
> do
> fontinfo [parambase [f ]+ k - 1 ].cint = 0 ;
> while ( k++ < for_end ) ;}
> }
> if ( np >= 7 )
> fontparams [f ]= np ;
> else fontparams [f ]= 7 ;
> hyphenchar [f ]= eqtb [27223 ].cint ;
> skewchar [f ]= eqtb [27224 ].cint ;
> if ( bchlabel < nl )
> bcharlabel [f ]= bchlabel + ligkernbase [f ];
> else bcharlabel [f ]= 0 ;
> fontbchar [f ]= bchar ;
> fontfalsebchar [f ]= bchar ;
> if ( bchar <= ec ) {
>
> if ( bchar >= bc )
> {
> qw = fontinfo [charbase [f ]+ bchar ].qqqq ;
> if ( ( qw .u.B0 > 0 ) )
> fontfalsebchar [f ]= 256 ;
> }
> }
> fontname [f ]= nom ;
> fontarea [f ]= aire ;
> fontbc [f ]= bc ;
> fontec [f ]= ec ;
> fontglue [f ]= -268435455L ;
> charbase [f ]= charbase [f ];
> widthbase [f ]= widthbase [f ];
> ligkernbase [f ]= ligkernbase [f ];
> kernbase [f ]= kernbase [f ];
> extenbase [f ]= extenbase [f ];
> --(parambase [f ]) ;
> fmemptr = fmemptr + lf ;
> fontptr = f ;
> g = f ;
> goto lab30 ;
> lab11: {
>
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (956)) ;
> }
> zsprintcs((halfword) (u)) ;
> zprintchar((ASCIIcode) (61)) ;
> zprintfilename((integer) (nom), (integer) (aire), (integer) (345)) ;
> if ( s >= 0 )
> {
> zprint((integer) (894)) ;
> zprintscaled((scaled) (s)) ;
> zprint((integer) (312)) ;
> }
> else if ( s != -1000 )
> {
> zprint((integer) (957)) ;
> zprintint((longinteger) (- (integer) s)) ;
> }
> if ( fileopened )
> zprint((integer) (958)) ;
> else if ( nametoolong )
> zprint((integer) (959)) ;
> else zprint((integer) (960)) ;
> {
> helpptr = 5 ;
> helpline [4 ]= 961 ;
> helpline [3 ]= 962 ;
> helpline [2 ]= 963 ;
> helpline [1 ]= 964 ;
> helpline [0 ]= 965 ;
> }
> error () ;
> lab30: if ( fileopened )
> close_file_or_pipe(tfmfile) ;
> Result = g ;
> return Result ;
>}
>scaled
>zstorescaledf ( scaled sq , scaled z )
>{
> register scaled Result;
> eightbits a, b, c, d ;
> scaled sw ;
> integer alpha ;
> unsigned char beta ;
> alpha = 16 ;
> while ( z >= 8388608L ) {
>
> z = z / 2 ;
> alpha = alpha + alpha ;
> }
> beta = 256 / alpha ;
> alpha = alpha * z ;
> if ( sq >= 0 )
> {
> d = sq % 256 ;
> sq = sq / 256 ;
> c = sq % 256 ;
> sq = sq / 256 ;
> b = sq % 256 ;
> sq = sq / 256 ;
> a = sq % 256 ;
> }
> else {
>
> sq = ( sq + 1073741824L ) + 1073741824L ;
> d = sq % 256 ;
> sq = sq / 256 ;
> c = sq % 256 ;
> sq = sq / 256 ;
> b = sq % 256 ;
> sq = sq / 256 ;
> a = ( sq + 128 ) % 256 ;
> }
> sw = ( ( ( ( ( d * z ) / 256 ) + ( c * z ) ) / 256 ) + ( b * z ) ) / beta ;
> if ( a == 0 )
> Result = sw ;
> else if ( a == 255 )
> Result = sw - alpha ;
> else zpdferror((strnumber) (971), (strnumber) (972)) ;
> return Result ;
>}
>void
>zcharwarning ( internalfontnumber f , eightbits c )
>{
> register memoryword *eqtb=zeqtb;
> integer oldsetting ;
> if ( eqtb [27212 ].cint > 0 )
> {
> oldsetting = eqtb [27206 ].cint ;
> if ( ( eTeXmode == 1 ) && ( eqtb [27212 ].cint > 1 ) )
> eqtb [27206 ].cint = 1 ;
> {
> begindiagnostic () ;
> zprintnl((strnumber) (981)) ;
> zprint((integer) (c)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> eqtb [27206 ].cint = oldsetting ;
> }
>}
>halfword
>znewcharacter ( internalfontnumber f , eightbits c )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> quarterword ec ;
> ec = zeffectivechar((boolean) (0), (internalfontnumber) (f), (quarterword) (c)) ;
> if ( fontbc [f ]<= ec ) {
>
> if ( fontec [f ]>= ec ) {
>
> if ( ( fontinfo [charbase [f ]+ ec ].qqqq .u.B0 > 0 ) )
> {
> p = getavail () ;
> mem [p ].hh.u.B0 = f ;
> mem [p ].hh.u.B1 = c ;
> Result = p ;
> return Result ;
> }
> }
> }
> zcharwarning((internalfontnumber) (f), (eightbits) (c)) ;
> Result = -268435455L ;
> return Result ;
>}
>void
>dviswap ( void )
>{
> 
> if ( dviptr > ( 2147483647L - dvioffset ) )
> {
> curs = -2 ;
> zfatalerror((strnumber) (983)) ;
> }
> if ( dvilimit == dvibufsize )
> {
> if ((size_t) fwrite ((char *) &dvibuf[0], sizeof (dvibuf[0]), (size_t) ((size_t)(halfbuf - 1) - (size_t)(0) + 1), dvifile) != (size_t) ((size_t) (halfbuf - 1) - (size_t) (0) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> dvilimit = halfbuf ;
> dvioffset = dvioffset + dvibufsize ;
> dviptr = 0 ;
> }
> else {
>
> if ((size_t) fwrite ((char *) &dvibuf[halfbuf], sizeof (dvibuf[halfbuf]), (size_t) ((size_t)(dvibufsize - 1) - (size_t)(halfbuf) + 1), dvifile) != (size_t) ((size_t) (dvibufsize - 1) - (size_t) (halfbuf) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> dvilimit = dvibufsize ;
> }
> dvigone = dvigone + halfbuf ;
>}
>void
>zdvifour ( integer x )
>{
> 
> if ( x >= 0 )
> {
> dvibuf [dviptr ]= x / 16777216L ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> else {
>
> x = x + 1073741824L ;
> x = x + 1073741824L ;
> {
> dvibuf [dviptr ]= ( x / 16777216L ) + 128 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> x = x % 16777216L ;
> {
> dvibuf [dviptr ]= x / 65536L ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> x = x % 65536L ;
> {
> dvibuf [dviptr ]= x / 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= x % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
>}
>void
>zdvipop ( integer l )
>{
> 
> if ( ( l == dvioffset + dviptr ) && ( dviptr > 0 ) )
> --(dviptr) ;
> else {
>
> dvibuf [dviptr ]= 142 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
>}
>void
>zdvifontdef ( internalfontnumber f )
>{
> 
> poolpointer k ;
> if ( f <= 256 )
> {
> {
> dvibuf [dviptr ]= 243 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= f - 1 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> else {
>
> {
> dvibuf [dviptr ]= 244 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( f - 1 ) / 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( f - 1 ) % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> {
> dvibuf [dviptr ]= fontcheck [f ].u.B0 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= fontcheck [f ].u.B1 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= fontcheck [f ].u.B2 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= fontcheck [f ].u.B3 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (fontsize [f ])) ;
> zdvifour((integer) (fontdsize [f ])) ;
> {
> dvibuf [dviptr ]= ( strstart [fontarea [f ]+ 1 ]- strstart [
> fontarea [f ]]) ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( strstart [fontname [f ]+ 1 ]- strstart [
> fontname [f ]]) ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {register integer for_end; k = strstart [fontarea [f ]];for_end =
> strstart [fontarea [f ]+ 1 ]- 1 ; if ( k <= for_end) do
> {
> dvibuf [dviptr ]= strpool [k ];
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( k++ < for_end ) ;}
> {register integer for_end; k = strstart [fontname [f ]];for_end =
> strstart [fontname [f ]+ 1 ]- 1 ; if ( k <= for_end) do
> {
> dvibuf [dviptr ]= strpool [k ];
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( k++ < for_end ) ;}
>}
>void
>zmovement ( scaled w , eightbits o )
>{
> register memoryword *mem=zmem;
> smallnumber mstate ;
> halfword p, q ;
> integer k ;
> q = zgetnode((integer) (3)) ;
> mem [q + 1 ].cint = w ;
> mem [q + 2 ].cint = dvioffset + dviptr ;
> if ( o == 157 )
> {
> mem [q ].hh .v.RH = downptr ;
> downptr = q ;
> }
> else {
>
> mem [q ].hh .v.RH = rightptr ;
> rightptr = q ;
> }
> p = mem [q ].hh .v.RH ;
> mstate = 0 ;
> while ( p != -268435455L ) {
>
> if ( mem [p + 1 ].cint == w )
> switch ( mstate + mem [p ].hh .v.LH )
> {case 3 :
> case 4 :
> case 15 :
> case 16 :
> if ( mem [p + 2 ].cint < dvigone )
> goto lab45 ;
> else {
>
> k = mem [p + 2 ].cint - dvioffset ;
> if ( k < 0 )
> k = k + dvibufsize ;
> dvibuf [k ]= dvibuf [k ]+ 5 ;
> mem [p ].hh .v.LH = 1 ;
> goto lab40 ;
> }
> break ;
> case 5 :
> case 9 :
> case 11 :
> if ( mem [p + 2 ].cint < dvigone )
> goto lab45 ;
> else {
>
> k = mem [p + 2 ].cint - dvioffset ;
> if ( k < 0 )
> k = k + dvibufsize ;
> dvibuf [k ]= dvibuf [k ]+ 10 ;
> mem [p ].hh .v.LH = 2 ;
> goto lab40 ;
> }
> break ;
> case 1 :
> case 2 :
> case 8 :
> case 13 :
> goto lab40 ;
> break ;
> default:
> ;
> break ;
> }
> else switch ( mstate + mem [p ].hh .v.LH )
> {case 1 :
> mstate = 6 ;
> break ;
> case 2 :
> mstate = 12 ;
> break ;
> case 8 :
> case 13 :
> goto lab45 ;
> break ;
> default:
> ;
> break ;
> }
> p = mem [p ].hh .v.RH ;
> }
> lab45: ;
> mem [q ].hh .v.LH = 3 ;
> if ( ((integer)(w) >= 0 ? (integer)(w) : (integer)-(w)) >= 8388608L )
> {
> {
> dvibuf [dviptr ]= o + 3 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (w)) ;
> return ;
> }
> if ( ((integer)(w) >= 0 ? (integer)(w) : (integer)-(w)) >= 32768L )
> {
> {
> dvibuf [dviptr ]= o + 2 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> if ( w < 0 )
> w = w + 16777216L ;
> {
> dvibuf [dviptr ]= w / 65536L ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> w = w % 65536L ;
> goto lab2 ;
> }
> if ( ((integer)(w) >= 0 ? (integer)(w) : (integer)-(w)) >= 128 )
> {
> {
> dvibuf [dviptr ]= o + 1 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> if ( w < 0 )
> w = w + 65536L ;
> goto lab2 ;
> }
> {
> dvibuf [dviptr ]= o ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> if ( w < 0 )
> w = w + 256 ;
> goto lab1 ;
> lab2: {
>
> dvibuf [dviptr ]= w / 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> lab1: {
>
> dvibuf [dviptr ]= w % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> return ;
> lab40: mem [q ].hh .v.LH = mem [p ].hh .v.LH ;
> if ( mem [q ].hh .v.LH == 1 )
> {
> {
> dvibuf [dviptr ]= o + 4 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( mem [q ].hh .v.RH != p ) {
>
> q = mem [q ].hh .v.RH ;
> switch ( mem [q ].hh .v.LH )
> {case 3 :
> mem [q ].hh .v.LH = 5 ;
> break ;
> case 4 :
> mem [q ].hh .v.LH = 6 ;
> break ;
> default:
> ;
> break ;
> }
> }
> }
> else {
>
> {
> dvibuf [dviptr ]= o + 9 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( mem [q ].hh .v.RH != p ) {
>
> q = mem [q ].hh .v.RH ;
> switch ( mem [q ].hh .v.LH )
> {case 3 :
> mem [q ].hh .v.LH = 4 ;
> break ;
> case 5 :
> mem [q ].hh .v.LH = 6 ;
> break ;
> default:
> ;
> break ;
> }
> }
> }
>}
>void
>zprunemovements ( integer l )
>{
> register memoryword *mem=zmem;
> halfword p ;
> while ( downptr != -268435455L ) {
>
> if ( mem [downptr + 2 ].cint < l )
> goto lab30 ;
> p = downptr ;
> downptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
> lab30: while ( rightptr != -268435455L ) {
>
> if ( mem [rightptr + 2 ].cint < l )
> return ;
> p = rightptr ;
> rightptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
>}
>void
>zspecialout ( halfword p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> poolpointer k ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> oldsetting = selector ;
> selector = 21 ;
> specsout = eqtb [27238 ].cint ;
> eqtb [27238 ].cint = mem [p + 1 ].hh.u.B0 - 64 ;
> mubytesout = eqtb [27236 ].cint ;
> eqtb [27236 ].cint = mem [p + 1 ].hh.u.B1 - 64 ;
> activenoconvert = 1 ;
> mubyteslog = eqtb [27237 ].cint ;
> eqtb [27237 ].cint = 0 ;
> if ( ( eqtb [27236 ].cint > 0 ) || ( eqtb [27236 ].cint == -1 ) )
> eqtb [27237 ].cint = 1 ;
> if ( ( eqtb [27238 ].cint == 2 ) || ( eqtb [27238 ].cint == 3 ) )
> {
> if ( ( eqtb [27236 ].cint > 0 ) || ( eqtb [27236 ].cint == -1 ) )
> {
> specialprinting = 1 ;
> eqtb [27237 ].cint = 1 ;
> }
> if ( eqtb [27236 ].cint > 1 )
> csconverting = 1 ;
> }
> zshowtokenlist((integer) (mem [mem [p + 1 ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr))
> ;
> selector = oldsetting ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> if ( ( poolptr - strstart [strptr ]) < 256 )
> {
> {
> dvibuf [dviptr ]= 239 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( poolptr - strstart [strptr ]) ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> else {
>
> {
> dvibuf [dviptr ]= 242 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (( poolptr - strstart [strptr ]))) ;
> }
> if ( ( eqtb [27238 ].cint == 1 ) || ( eqtb [27238 ].cint == 3 ) )
> {register integer for_end; k = strstart [strptr ];for_end = poolptr - 1
> ; if ( k <= for_end) do
> strpool [k ]= xchr [strpool [k ]];
> while ( k++ < for_end ) ;}
> {register integer for_end; k = strstart [strptr ];for_end = poolptr - 1
> ; if ( k <= for_end) do
> {
> dvibuf [dviptr ]= strpool [k ];
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( k++ < for_end ) ;}
> eqtb [27238 ].cint = specsout ;
> eqtb [27236 ].cint = mubytesout ;
> eqtb [27237 ].cint = mubyteslog ;
> specialprinting = 0 ;
> csconverting = 0 ;
> activenoconvert = 0 ;
> poolptr = strstart [strptr ];
>}
>void
>zwriteout ( halfword p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> integer oldmode ;
> smallnumber j ;
> halfword q, r ;
> integer d ;
> boolean clobbered ;
> integer runsystemret ;
> mubytesout = eqtb [27236 ].cint ;
> eqtb [27236 ].cint = mem [p + 1 ].hh.u.B1 - 64 ;
> if ( ( eqtb [27236 ].cint > 2 ) || ( eqtb [27236 ].cint == -1 ) || (
> eqtb [27236 ].cint == -2 ) )
> writenoexpanding = 1 ;
> q = getavail () ;
> mem [q ].hh .v.LH = 637 ;
> r = getavail () ;
> mem [q ].hh .v.RH = r ;
> mem [r ].hh .v.LH = 19617 ;
> zbegintokenlist((halfword) (q), (quarterword) (4)) ;
> zbegintokenlist((halfword) (mem [p + 1 ].hh .v.RH), (quarterword) (20)) ;
> q = getavail () ;
> mem [q ].hh .v.LH = 379 ;
> zbegintokenlist((halfword) (q), (quarterword) (4)) ;
> oldmode = curlist .modefield ;
> curlist .modefield = 0 ;
> curcs = writeloc ;
> q = zscantoks((boolean) (0), (boolean) (1)) ;
> gettoken () ;
> if ( curtok != 19617 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1904)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1905 ;
> helpline [0 ]= 1414 ;
> }
> error () ;
> do {
> gettoken () ;
> } while ( ! ( curtok == 19617 ) ) ;
> }
> curlist .modefield = oldmode ;
> endtokenlist () ;
> oldsetting = selector ;
> j = mem [p + 1 ].hh.u.B0 ;
> if ( j == 18 )
> selector = 21 ;
> else if ( writeopen [j ])
> selector = j ;
> else {
>
> if ( ( j == 17 ) && ( selector == 19 ) )
> selector = 18 ;
> zprintnl((strnumber) (345)) ;
> }
> activenoconvert = 1 ;
> if ( eqtb [27236 ].cint > 1 )
> csconverting = 1 ;
> mubyteslog = eqtb [27237 ].cint ;
> if ( ( eqtb [27236 ].cint > 0 ) || ( eqtb [27236 ].cint == -1 ) )
> eqtb [27237 ].cint = 1 ;
> else eqtb [27237 ].cint = 0 ;
> ztokenshow((halfword) (defref)) ;
> println () ;
> csconverting = 0 ;
> writenoexpanding = 0 ;
> activenoconvert = 0 ;
> eqtb [27236 ].cint = mubytesout ;
> eqtb [27237 ].cint = mubyteslog ;
> zflushlist((halfword) (defref)) ;
> if ( j == 18 )
> {
> if ( ( eqtb [27206 ].cint <= 0 ) )
> selector = 18 ;
> else selector = 19 ;
> if ( ! logopened )
> selector = 17 ;
> zprintnl((strnumber) (1896)) ;
> {register integer for_end; d = 0 ;for_end = ( poolptr - strstart [
> strptr ]) - 1 ; if ( d <= for_end) do
> {
> zprint((integer) (strpool [strstart [strptr ]+ d ])) ;
> }
> while ( d++ < for_end ) ;}
> zprint((integer) (1897)) ;
> if ( shellenabledp )
> {
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> {
> strpool [poolptr ]= 0 ;
> ++(poolptr) ;
> }
> clobbered = 0 ;
> {register integer for_end; d = 0 ;for_end = ( poolptr - strstart [
> strptr ]) - 1 ; if ( d <= for_end) do
> {
> strpool [strstart [strptr ]+ d ]= xchr [strpool [strstart [
> strptr ]+ d ]];
> if ( ( strpool [strstart [strptr ]+ d ]== 0 ) && ( d < ( poolptr
> - strstart [strptr ]) - 1 ) )
> clobbered = 1 ;
> }
> while ( d++ < for_end ) ;}
> if ( clobbered )
> zprint((integer) (1898)) ;
> else {
>
> runsystemret = runsystem ( ((const_string) ((&(strpool [ strstart [strptr ]]))))
> ) ;
> if ( runsystemret == -1 )
> zprint((integer) (1899)) ;
> else if ( runsystemret == 0 )
> zprint((integer) (1900)) ;
> else if ( runsystemret == 1 )
> zprint((integer) (1901)) ;
> else if ( runsystemret == 2 )
> zprint((integer) (1902)) ;
> }
> }
> else {
>
> zprint((integer) (1903)) ;
> }
> zprintchar((ASCIIcode) (46)) ;
> zprintnl((strnumber) (345)) ;
> println () ;
> poolptr = strstart [strptr ];
> }
> selector = oldsetting ;
>}
>void
>zoutwhat ( halfword p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> smallnumber j ;
> unsigned char oldsetting ;
> switch ( mem [p ].hh.u.B1 )
> {case 0 :
> case 1 :
> case 2 :
> if ( ! doingleaders )
> {
> j = mem [p + 1 ].hh.u.B0 ;
> if ( mem [p ].hh.u.B1 == 1 )
> zwriteout((halfword) (p)) ;
> else {
>
> if ( writeopen [j ])
> close_file_or_pipe(writefile [j ]) ;
> if ( mem [p ].hh.u.B1 == 2 )
> writeopen [j ]= 0 ;
> else if ( j < 16 )
> {
> curname = mem [p + 1 ].hh .v.RH ;
> curarea = mem [p + 2 ].hh .v.LH ;
> curext = mem [p + 2 ].hh .v.RH ;
> if ( curext == 345 )
> curext = 943 ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
> while ( ! kpse_out_name_ok ( ((string) (nameoffile + 1)) ) || !
> open_out_or_pipe(&(writefile [j ]),"wb") ) zpromptfilename((strnumber) (1907), (strnumber) (943)) ;
> writeopen [j ]= 1 ;
> if ( logopened )
> {
> oldsetting = selector ;
> if ( ( eqtb [27206 ].cint <= 0 ) )
> selector = 18 ;
> else selector = 19 ;
> zprintnl((strnumber) (1908)) ;
> zprintint((longinteger) (j)) ;
> zprint((integer) (1909)) ;
> zprintfilename((integer) (curname), (integer) (curarea), (integer) (curext)) ;
> zprint((integer) (942)) ;
> zprintnl((strnumber) (345)) ;
> println () ;
> selector = oldsetting ;
> }
> }
> }
> }
> break ;
> case 3 :
> zspecialout((halfword) (p)) ;
> break ;
> case 4 :
> ;
> break ;
> case 21 :
> {
> pdflastxpos = curh + 4736286L ;
> pdflastypos = curpageheight - curv - 4736286L ;
> }
> break ;
> default:
> {
> if ( ( 6 <= mem [p ].hh.u.B1 ) && ( mem [p ].hh.u.B1 <= 44 ) )
> zpdferror((strnumber) (1843), (strnumber) (1906)) ;
> else zconfusion((strnumber) (1843)) ;
> }
> break ;
> }
>}
>halfword
>znewedge ( smallnumber s , scaled w )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (3)) ;
> mem [p ].hh.u.B0 = 14 ;
> mem [p ].hh.u.B1 = s ;
> mem [p + 1 ].cint = w ;
> mem [p + 2 ].cint = 0 ;
> Result = p ;
> return Result ;
>}
>halfword
>zzreverse ( halfword thisbox , halfword t , scaled * curg , real * curglue )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword l ;
> halfword p ;
> halfword q ;
> glueord gorder ;
> unsigned char gsign ;
> real gluetemp ;
> halfword m, n ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> l = t ;
> p = tempptr ;
> m = -268435455L ;
> n = -268435455L ;
> while ( 1 ) {
>
> while ( p != -268435455L ) lab21: if ( ( p >= himemmin ) )
> do {
> f = mem [p ].hh.u.B0 ;
> c = mem [p ].hh.u.B1 ;
> curh = curh + fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B0 ].cint ;
> q = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = l ;
> l = p ;
> p = q ;
> } while ( ! ( ! ( p >= himemmin ) ) ) ;
> else {
>
> q = mem [p ].hh .v.RH ;
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> case 11 :
> rulewd = mem [p + 1 ].cint ;
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> rulewd = mem [g + 1 ].cint - *curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
>* curglue = *curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * *curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
>* curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
>* curglue = *curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * *curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
>* curg = zround ((double) (gluetemp)) ;
> }
> }
> rulewd = rulewd + *curg ;
> if ( ( ( ( gsign == 1 ) && ( mem [g ].hh.u.B0 == gorder ) ) || ( (
> gsign == 2 ) && ( mem [g ].hh.u.B1 == gorder ) ) ) )
> {
> {
> if ( mem [g ].hh .v.RH == -268435455L )
> zfreenode((halfword) (g), (halfword) (4)) ;
> else --(mem [g ].hh .v.RH) ;
> }
> if ( mem [p ].hh.u.B1 < 100 )
> {
> mem [p ].hh.u.B0 = 11 ;
> mem [p + 1 ].cint = rulewd ;
> }
> else {
>
> g = zgetnode((integer) (4)) ;
> mem [g ].hh.u.B0 = 4 ;
> mem [g ].hh.u.B1 = 4 ;
> mem [g + 1 ].cint = rulewd ;
> mem [g + 2 ].cint = 0 ;
> mem [g + 3 ].cint = 0 ;
> mem [p + 1 ].hh .v.LH = g ;
> }
> }
> }
> break ;
> case 6 :
> {
> zflushnodelist((halfword) (mem [p + 1 ].hh .v.RH)) ;
> tempptr = p ;
> p = getavail () ;
> mem [p ]= mem [tempptr + 1 ];
> mem [p ].hh .v.RH = q ;
> zfreenode((halfword) (tempptr), (halfword) (2)) ;
> goto lab21 ;
> }
> break ;
> case 9 :
> {
> rulewd = mem [p + 1 ].cint ;
> if ( ((mem [p ].hh.u.B1) & 1) ) {
>
> if ( mem [LRptr ].hh .v.LH != ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3
> ) )
> {
> mem [p ].hh.u.B0 = 11 ;
> ++(LRproblems) ;
> }
> else {
>
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> if ( n > -268435455L )
> {
> --(n) ;
> --(mem [p ].hh.u.B1) ;
> }
> else {
>
> mem [p ].hh.u.B0 = 11 ;
> if ( m > -268435455L )
> --(m) ;
> else {
>
> zfreenode((halfword) (p), (halfword) (4)) ;
> mem [t ].hh .v.RH = q ;
> mem [t + 1 ].cint = rulewd ;
> mem [t + 2 ].cint = - (integer) curh - rulewd ;
> goto lab30 ;
> }
> }
> }
> }
> else {
>
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3 )
> ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( n > -268435455L ) || ( ( mem [p ].hh.u.B1 / 8 ) != curdir )
> )
> {
> ++(n) ;
> ++(mem [p ].hh.u.B1) ;
> }
> else {
>
> mem [p ].hh.u.B0 = 11 ;
> ++(m) ;
> }
> }
> }
> break ;
> case 14 :
> zconfusion((strnumber) (2015)) ;
> break ;
> default:
> goto lab15 ;
> break ;
> }
> curh = curh + rulewd ;
> lab15: mem [p ].hh .v.RH = l ;
> if ( mem [p ].hh.u.B0 == 11 ) {
>
> if ( ( rulewd == 0 ) || ( l == -268435455L ) )
> {
> zfreenode((halfword) (p), (halfword) (4)) ;
> p = l ;
> }
> }
> l = p ;
> p = q ;
> }
> if ( ( t == -268435455L ) && ( m == -268435455L ) && ( n == -268435455L )
> )
> goto lab30 ;
> p = znewmath((scaled) (0), (smallnumber) (mem [LRptr ].hh .v.LH)) ;
> LRproblems = LRproblems + 10000 ;
> }
> lab30: Result = l ;
> return Result ;
>}
>void
>hlistout ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled baseline ;
> scaled leftedge ;
> scaled saveh, savev ;
> halfword thisbox ;
> glueord gorder ;
> unsigned char gsign ;
> halfword p ;
> integer saveloc ;
> halfword leaderbox ;
> scaled leaderwd ;
> scaled lx ;
> boolean outerdoingleaders ;
> scaled edge ;
> halfword prevp ;
> real gluetemp ;
> real curglue ;
> scaled curg ;
> curg = 0 ;
> curglue = 0.0 ;
> thisbox = tempptr ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> p = mem [thisbox + 5 ].hh .v.RH ;
> ++(curs) ;
> if ( curs > 0 )
> {
> dvibuf [dviptr ]= 141 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> if ( curs > maxpush )
> maxpush = curs ;
> saveloc = dvioffset + dviptr ;
> baseline = curv ;
> prevp = thisbox + 5 ;
> if ( ( eTeXmode == 1 ) )
> {
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = 0 ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( mem [thisbox ].hh.u.B1 ) == 2 ) {
>
> if ( curdir == 1 )
> {
> curdir = 0 ;
> curh = curh - mem [thisbox + 1 ].cint ;
> }
> else mem [thisbox ].hh.u.B1 = 0 ;
> }
> if ( ( curdir == 1 ) && ( ( mem [thisbox ].hh.u.B1 ) != 1 ) )
> {
> saveh = curh ;
> tempptr = p ;
> p = znewkern((scaled) (0)) ;
> mem [p + 2 ].cint = 0 ;
> mem [prevp ].hh .v.RH = p ;
> curh = 0 ;
> mem [p ].hh .v.RH = zzreverse((halfword) (thisbox), (halfword) (-268435455L), (scaled *) &(curg), (real *) &(curglue))
> ;
> mem [p + 1 ].cint = - (integer) curh ;
> curh = saveh ;
> mem [thisbox ].hh.u.B1 = 1 ;
> }
> }
> leftedge = curh ;
> synctexhlist ( thisbox ) ;
> while ( p != -268435455L ) lab21: if ( ( p >= himemmin ) )
> {
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> do {
> f = mem [p ].hh.u.B0 ;
> c = mem [p ].hh.u.B1 ;
> if ( f != dvif )
> {
> if ( ! fontused [f ])
> {
> zdvifontdef((internalfontnumber) (f)) ;
> fontused [f ]= 1 ;
> }
> if ( f <= 64 )
> {
> dvibuf [dviptr ]= f + 170 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> else if ( f <= 256 )
> {
> {
> dvibuf [dviptr ]= 235 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= f - 1 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> else {
>
> {
> dvibuf [dviptr ]= 236 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( f - 1 ) / 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( f - 1 ) % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> dvif = f ;
> }
> if ( fontec [f ]>= c ) {
>
> if ( fontbc [f ]<= c ) {
>
> if ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B0 > 0 ) )
> {
> if ( c >= 128 )
> {
> dvibuf [dviptr ]= 128 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= c ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> curh = curh + fontinfo [widthbase [f ]+ fontinfo [charbase [f
> ]+ c ].qqqq .u.B0 ].cint ;
> goto lab22 ;
> }
> }
> }
> if ( mltexenabledp )
> {
> if ( c >= eqtb [27232 ].cint ) {
>
> if ( c <= eqtb [27233 ].cint ) {
>
> if ( ( eqtb [26921 + c ].hh .v.RH > 0 ) )
> {
> basec = ( eqtb [26921 + c ].hh .v.RH % 256 ) ;
> accentc = ( eqtb [26921 + c ].hh .v.RH / 256 ) ;
> if ( ( fontec [f ]>= basec ) ) {
>
> if ( ( fontbc [f ]<= basec ) ) {
>
> if ( ( fontec [f ]>= accentc ) ) {
>
> if ( ( fontbc [f ]<= accentc ) )
> {
> iac = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (accentc))
> ].qqqq ;
> ibc = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (basec))
> ].qqqq ;
> if ( ( ibc .u.B0 > 0 ) ) {
>
> if ( ( iac .u.B0 > 0 ) )
> goto lab40 ;
> }
> }
> }
> }
> }
> begindiagnostic () ;
> zprintnl((strnumber) (2061)) ;
> zprint((integer) (c)) ;
> zprint((integer) (1617)) ;
> zprint((integer) (accentc)) ;
> zprint((integer) (32)) ;
> zprint((integer) (basec)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> goto lab22 ;
> }
> }
> }
> begindiagnostic () ;
> zprintnl((strnumber) (981)) ;
> zprint((integer) (2060)) ;
> zprint((integer) (c)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> goto lab22 ;
> lab40: if ( eqtb [27212 ].cint > 99 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (2062)) ;
> zprint((integer) (c)) ;
> zprint((integer) (1617)) ;
> zprint((integer) (accentc)) ;
> zprint((integer) (32)) ;
> zprint((integer) (basec)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (46)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> basexheight = fontinfo [5 + parambase [f ]].cint ;
> baseslant = fontinfo [1 + parambase [f ]].cint / ((double) 65536.0
> ) ;
> accentslant = baseslant ;
> basewidth = fontinfo [widthbase [f ]+ ibc .u.B0 ].cint ;
> baseheight = fontinfo [heightbase [f ]+ ( ibc .u.B1 ) / 16 ].cint ;
> accentwidth = fontinfo [widthbase [f ]+ iac .u.B0 ].cint ;
> accentheight = fontinfo [heightbase [f ]+ ( iac .u.B1 ) / 16 ].cint
> ;
> delta = zround ((double) (( basewidth - accentwidth ) / ((double) 2.0 ) + baseheight * baseslant - basexheight * accentslant))
> ;
> dvih = curh ;
> curh = curh + delta ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> if ( ( ( baseheight != basexheight ) && ( accentheight > 0 ) ) )
> {
> curv = baseline + ( basexheight - baseheight ) ;
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> if ( accentc >= 128 )
> {
> dvibuf [dviptr ]= 128 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= accentc ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> curv = baseline ;
> }
> else {
>
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> if ( accentc >= 128 )
> {
> dvibuf [dviptr ]= 128 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= accentc ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> }
> curh = curh + accentwidth ;
> dvih = curh ;
> curh = curh + ( - (integer) accentwidth - delta ) ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> if ( basec >= 128 )
> {
> dvibuf [dviptr ]= 128 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= basec ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> curh = curh + basewidth ;
> dvih = curh ;
> }
> lab22: prevp = mem [prevp ].hh .v.RH ;
> p = mem [p ].hh .v.RH ;
> } while ( ! ( ! ( p >= himemmin ) ) ) ;
> synctexcurrent () ;
> dvih = curh ;
> }
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> if ( mem [p + 5 ].hh .v.RH == -268435455L )
> {
> if ( mem [p ].hh.u.B0 == 1 )
> {
> synctexvoidvlist ( p , thisbox ) ;
> }
> else {
>
> synctexvoidhlist ( p , thisbox ) ;
> }
> curh = curh + mem [p + 1 ].cint ;
> }
> else {
>
> saveh = dvih ;
> savev = dviv ;
> curv = baseline + mem [p + 4 ].cint ;
> tempptr = p ;
> edge = curh + mem [p + 1 ].cint ;
> if ( curdir == 1 )
> curh = edge ;
> if ( mem [p ].hh.u.B0 == 1 )
> vlistout () ;
> else hlistout () ;
> dvih = saveh ;
> dviv = savev ;
> curh = edge ;
> curv = baseline ;
> }
> break ;
> case 2 :
> {
> ruleht = mem [p + 3 ].cint ;
> ruledp = mem [p + 2 ].cint ;
> rulewd = mem [p + 1 ].cint ;
> goto lab14 ;
> }
> break ;
> case 8 :
> zoutwhat((halfword) (p)) ;
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> rulewd = mem [g + 1 ].cint - curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
> curglue = curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
> curglue = curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> rulewd = rulewd + curg ;
> if ( ( eTeXmode == 1 ) ) {
>
> if ( ( ( ( gsign == 1 ) && ( mem [g ].hh.u.B0 == gorder ) ) || ( (
> gsign == 2 ) && ( mem [g ].hh.u.B1 == gorder ) ) ) )
> {
> {
> if ( mem [g ].hh .v.RH == -268435455L )
> zfreenode((halfword) (g), (halfword) (4)) ;
> else --(mem [g ].hh .v.RH) ;
> }
> if ( mem [p ].hh.u.B1 < 100 )
> {
> mem [p ].hh.u.B0 = 11 ;
> mem [p + 1 ].cint = rulewd ;
> }
> else {
>
> g = zgetnode((integer) (4)) ;
> mem [g ].hh.u.B0 = 4 ;
> mem [g ].hh.u.B1 = 4 ;
> mem [g + 1 ].cint = rulewd ;
> mem [g + 2 ].cint = 0 ;
> mem [g + 3 ].cint = 0 ;
> mem [p + 1 ].hh .v.LH = g ;
> }
> }
> }
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> leaderbox = mem [p + 1 ].hh .v.RH ;
> if ( mem [leaderbox ].hh.u.B0 == 2 )
> {
> ruleht = mem [leaderbox + 3 ].cint ;
> ruledp = mem [leaderbox + 2 ].cint ;
> goto lab14 ;
> }
> leaderwd = mem [leaderbox + 1 ].cint ;
> if ( ( leaderwd > 0 ) && ( rulewd > 0 ) )
> {
> rulewd = rulewd + 10 ;
> if ( curdir == 1 )
> curh = curh - 10 ;
> edge = curh + rulewd ;
> lx = 0 ;
> if ( mem [p ].hh.u.B1 == 100 )
> {
> saveh = curh ;
> curh = leftedge + leaderwd * ( ( curh - leftedge ) / leaderwd )
> ;
> if ( curh < saveh )
> curh = curh + leaderwd ;
> }
> else {
>
> lq = rulewd / leaderwd ;
> lr = rulewd % leaderwd ;
> if ( mem [p ].hh.u.B1 == 101 )
> curh = curh + ( lr / 2 ) ;
> else {
>
> lx = lr / ( lq + 1 ) ;
> curh = curh + ( ( lr - ( lq - 1 ) * lx ) / 2 ) ;
> }
> }
> while ( curh + leaderwd <= edge ) {
>
> curv = baseline + mem [leaderbox + 4 ].cint ;
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> savev = dviv ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> saveh = dvih ;
> tempptr = leaderbox ;
> if ( curdir == 1 )
> curh = curh + leaderwd ;
> outerdoingleaders = doingleaders ;
> doingleaders = 1 ;
> if ( mem [leaderbox ].hh.u.B0 == 1 )
> vlistout () ;
> else hlistout () ;
> doingleaders = outerdoingleaders ;
> dviv = savev ;
> dvih = saveh ;
> curv = baseline ;
> curh = saveh + leaderwd + lx ;
> }
> if ( curdir == 1 )
> curh = edge ;
> else curh = edge - 10 ;
> goto lab15 ;
> }
> }
> goto lab13 ;
> }
> break ;
> case 40 :
> curh = curh + mem [p + 1 ].cint ;
> break ;
> case 11 :
> {
> synctexkern ( p , thisbox ) ;
> curh = curh + mem [p + 1 ].cint ;
> }
> break ;
> case 9 :
> {
> synctexmath ( p , thisbox ) ;
> {
> if ( ( eTeXmode == 1 ) )
> {
> if ( ((mem [p ].hh.u.B1) & 1) ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [p ].hh.u.B1 / 4 ) +
> 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> else {
>
> if ( mem [p ].hh.u.B1 > 4 )
> ++(LRproblems) ;
> }
> }
> else {
>
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3
> ) ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( mem [p ].hh.u.B1 / 8 ) != curdir )
> {
> saveh = curh ;
> tempptr = mem [p ].hh .v.RH ;
> rulewd = mem [p + 1 ].cint ;
> zfreenode((halfword) (p), (halfword) (4)) ;
> curdir = 1 - curdir ;
> p = znewedge((smallnumber) (curdir), (scaled) (rulewd)) ;
> mem [prevp ].hh .v.RH = p ;
> curh = curh - leftedge + rulewd ;
> mem [p ].hh .v.RH = zzreverse((halfword) (thisbox), (halfword) (znewedge((smallnumber) (1 - curdir), (scaled) (0))), (scaled *) &(curg), (real *) &(curglue))
> ;
> mem [p + 2 ].cint = curh ;
> curdir = 1 - curdir ;
> curh = saveh ;
> goto lab21 ;
> }
> }
> mem [p ].hh.u.B0 = 11 ;
> }
> curh = curh + mem [p + 1 ].cint ;
> }
> }
> break ;
> case 6 :
> {
> mem [memtop - 12 ]= mem [p + 1 ];
> mem [memtop - 12 ].hh .v.RH = mem [p ].hh .v.RH ;
> p = memtop - 12 ;
> goto lab21 ;
> }
> break ;
> case 14 :
> {
> curh = curh + mem [p + 1 ].cint ;
> leftedge = curh + mem [p + 2 ].cint ;
> curdir = mem [p ].hh.u.B1 ;
> }
> break ;
> default:
> ;
> break ;
> }
> goto lab15 ;
> lab14: if ( ( ruleht == -1073741824L ) )
> ruleht = mem [thisbox + 3 ].cint ;
> if ( ( ruledp == -1073741824L ) )
> ruledp = mem [thisbox + 2 ].cint ;
> ruleht = ruleht + ruledp ;
> if ( ( ruleht > 0 ) && ( rulewd > 0 ) )
> {
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> curv = baseline + ruledp ;
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> {
> dvibuf [dviptr ]= 132 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (ruleht)) ;
> zdvifour((integer) (rulewd)) ;
> curv = baseline ;
> dvih = dvih + rulewd ;
> }
> lab13: {
>
> curh = curh + rulewd ;
> synctexhorizontalruleorglue ( p , thisbox ) ;
> }
> lab15: prevp = p ;
> p = mem [p ].hh .v.RH ;
> }
> synctextsilh ( thisbox ) ;
> if ( ( eTeXmode == 1 ) )
> {
> {
> while ( mem [LRptr ].hh .v.LH != 0 ) {
>
> if ( mem [LRptr ].hh .v.LH > 4 )
> LRproblems = LRproblems + 10000 ;
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> if ( ( mem [thisbox ].hh.u.B1 ) == 2 )
> curdir = 1 ;
> }
> zprunemovements((integer) (saveloc)) ;
> if ( curs > 0 )
> zdvipop((integer) (saveloc)) ;
> --(curs) ;
>}
>void
>vlistout ( void )
>{
> register memoryword *mem=zmem;
> scaled leftedge ;
> scaled topedge ;
> scaled saveh, savev ;
> halfword thisbox ;
> glueord gorder ;
> unsigned char gsign ;
> halfword p ;
> integer saveloc ;
> halfword leaderbox ;
> scaled leaderht ;
> scaled lx ;
> boolean outerdoingleaders ;
> scaled edge ;
> real gluetemp ;
> real curglue ;
> scaled curg ;
> curg = 0 ;
> curglue = 0.0 ;
> thisbox = tempptr ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> p = mem [thisbox + 5 ].hh .v.RH ;
> ++(curs) ;
> if ( curs > 0 )
> {
> dvibuf [dviptr ]= 141 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> if ( curs > maxpush )
> maxpush = curs ;
> saveloc = dvioffset + dviptr ;
> leftedge = curh ;
> synctexvlist ( thisbox ) ;
> curv = curv - mem [thisbox + 3 ].cint ;
> topedge = curv ;
> while ( p != -268435455L ) {
>
> if ( ( p >= himemmin ) )
> zconfusion((strnumber) (985)) ;
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> if ( mem [p + 5 ].hh .v.RH == -268435455L )
> {
> curv = curv + mem [p + 3 ].cint ;
> if ( mem [p ].hh.u.B0 == 1 )
> {
> synctexvoidvlist ( p , thisbox ) ;
> }
> else {
>
> synctexvoidhlist ( p , thisbox ) ;
> }
> curv = curv + mem [p + 2 ].cint ;
> }
> else {
>
> curv = curv + mem [p + 3 ].cint ;
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> saveh = dvih ;
> savev = dviv ;
> if ( curdir == 1 )
> curh = leftedge - mem [p + 4 ].cint ;
> else curh = leftedge + mem [p + 4 ].cint ;
> tempptr = p ;
> if ( mem [p ].hh.u.B0 == 1 )
> vlistout () ;
> else hlistout () ;
> dvih = saveh ;
> dviv = savev ;
> curv = savev + mem [p + 2 ].cint ;
> curh = leftedge ;
> }
> break ;
> case 2 :
> {
> ruleht = mem [p + 3 ].cint ;
> ruledp = mem [p + 2 ].cint ;
> rulewd = mem [p + 1 ].cint ;
> goto lab14 ;
> }
> break ;
> case 8 :
> zoutwhat((halfword) (p)) ;
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> ruleht = mem [g + 1 ].cint - curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
> curglue = curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
> curglue = curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> ruleht = ruleht + curg ;
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> leaderbox = mem [p + 1 ].hh .v.RH ;
> if ( mem [leaderbox ].hh.u.B0 == 2 )
> {
> rulewd = mem [leaderbox + 1 ].cint ;
> ruledp = 0 ;
> goto lab14 ;
> }
> leaderht = mem [leaderbox + 3 ].cint + mem [leaderbox + 2 ]
> .cint ;
> if ( ( leaderht > 0 ) && ( ruleht > 0 ) )
> {
> ruleht = ruleht + 10 ;
> edge = curv + ruleht ;
> lx = 0 ;
> if ( mem [p ].hh.u.B1 == 100 )
> {
> savev = curv ;
> curv = topedge + leaderht * ( ( curv - topedge ) / leaderht )
> ;
> if ( curv < savev )
> curv = curv + leaderht ;
> }
> else {
>
> lq = ruleht / leaderht ;
> lr = ruleht % leaderht ;
> if ( mem [p ].hh.u.B1 == 101 )
> curv = curv + ( lr / 2 ) ;
> else {
>
> lx = lr / ( lq + 1 ) ;
> curv = curv + ( ( lr - ( lq - 1 ) * lx ) / 2 ) ;
> }
> }
> while ( curv + leaderht <= edge ) {
>
> if ( curdir == 1 )
> curh = leftedge - mem [leaderbox + 4 ].cint ;
> else curh = leftedge + mem [leaderbox + 4 ].cint ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> saveh = dvih ;
> curv = curv + mem [leaderbox + 3 ].cint ;
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> savev = dviv ;
> tempptr = leaderbox ;
> outerdoingleaders = doingleaders ;
> doingleaders = 1 ;
> if ( mem [leaderbox ].hh.u.B0 == 1 )
> vlistout () ;
> else hlistout () ;
> doingleaders = outerdoingleaders ;
> dviv = savev ;
> dvih = saveh ;
> curh = leftedge ;
> curv = savev - mem [leaderbox + 3 ].cint + leaderht + lx ;
> }
> curv = edge - 10 ;
> goto lab15 ;
> }
> }
> goto lab13 ;
> }
> break ;
> case 11 :
> curv = curv + mem [p + 1 ].cint ;
> break ;
> default:
> ;
> break ;
> }
> goto lab15 ;
> lab14: if ( ( rulewd == -1073741824L ) )
> rulewd = mem [thisbox + 1 ].cint ;
> ruleht = ruleht + ruledp ;
> curv = curv + ruleht ;
> if ( ( ruleht > 0 ) && ( rulewd > 0 ) )
> {
> if ( curdir == 1 )
> curh = curh - rulewd ;
> if ( curh != dvih )
> {
> zmovement((scaled) (curh - dvih), (eightbits) (143)) ;
> dvih = curh ;
> }
> if ( curv != dviv )
> {
> zmovement((scaled) (curv - dviv), (eightbits) (157)) ;
> dviv = curv ;
> }
> {
> dvibuf [dviptr ]= 137 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (ruleht)) ;
> zdvifour((integer) (rulewd)) ;
> curh = leftedge ;
> }
> goto lab15 ;
> lab13: curv = curv + ruleht ;
> }
> lab15: p = mem [p ].hh .v.RH ;
> }
> synctextsilv ( thisbox ) ;
> zprunemovements((integer) (saveloc)) ;
> if ( curs > 0 )
> zdvipop((integer) (saveloc)) ;
> --(curs) ;
>}
>void
>zdvishipout ( halfword p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer pageloc ;
> unsigned char j, k ;
> poolpointer s ;
> unsigned char oldsetting ;
> pdfoutputvalue = eqtb [27239 ].cint ;
> synctexsheet ( eqtb [27194 ].cint ) ;
> {
> if ( eqtb [27211 ].cint > 0 )
> {
> zprintnl((strnumber) (345)) ;
> println () ;
> zprint((integer) (986)) ;
> }
> if ( termoffset > maxprintline - 9 )
> println () ;
> else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) )
> zprintchar((ASCIIcode) (32)) ;
> zprintchar((ASCIIcode) (91)) ;
> j = 9 ;
> while ( ( eqtb [27280 + j ].cint == 0 ) && ( j > 0 ) ) --(j) ;
> {register integer for_end; k = 0 ;for_end = j ; if ( k <= for_end) do
> {
> zprintint((longinteger) (eqtb [27280 + k ].cint)) ;
> if ( k < j )
> zprintchar((ASCIIcode) (46)) ;
> }
> while ( k++ < for_end ) ;}
> fflush ( stdout ) ;
> if ( eqtb [27211 ].cint > 0 )
> {
> zprintchar((ASCIIcode) (93)) ;
> begindiagnostic () ;
> zshowbox((halfword) (p)) ;
> zenddiagnostic((boolean) (1)) ;
> }
> if ( ( mem [p + 3 ].cint > 1073741823L ) || ( mem [p + 2 ].cint >
> 1073741823L ) || ( mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [
> 27811 ].cint > 1073741823L ) || ( mem [p + 1 ].cint + eqtb [27810 ]
> .cint > 1073741823L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (990)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 991 ;
> helpline [0 ]= 992 ;
> }
> error () ;
> if ( eqtb [27211 ].cint <= 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (993)) ;
> zshowbox((halfword) (p)) ;
> zenddiagnostic((boolean) (1)) ;
> }
> goto lab30 ;
> }
> if ( mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [27811 ].cint >
> maxv )
> maxv = mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [27811 ].cint ;
> if ( mem [p + 1 ].cint + eqtb [27810 ].cint > maxh )
> maxh = mem [p + 1 ].cint + eqtb [27810 ].cint ;
> dvih = 0 ;
> dviv = 0 ;
> curh = eqtb [27810 ].cint ;
> dvif = 0 ;
> curhoffset = eqtb [27810 ].cint ;
> curvoffset = eqtb [27811 ].cint ;
> if ( eqtb [27815 ].cint != 0 )
> curpagewidth = eqtb [27815 ].cint ;
> else curpagewidth = mem [p + 1 ].cint + 2 * curhoffset + 2 * 4736286L ;
> if ( eqtb [27816 ].cint != 0 )
> curpageheight = eqtb [27816 ].cint ;
> else curpageheight = mem [p + 3 ].cint + mem [p + 2 ].cint + 2 *
> curvoffset + 2 * 4736286L ;
> if ( outputfilename == 0 )
> {
> if ( jobname == 0 )
> openlogfile () ;
> zpackjobname((strnumber) (947)) ;
> while ( ! open_output (&(dvifile), "wb") ) zpromptfilename((strnumber) (948), (strnumber) (947)) ;
> outputfilename = zbmakenamestring((bytefile) (dvifile)) ;
> }
> if ( totalpages == 0 )
> {
> {
> dvibuf [dviptr ]= 247 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= 2 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (25400000L)) ;
> zdvifour((integer) (473628672L)) ;
> preparemag () ;
> zdvifour((integer) (eqtb [27194 ].cint)) ;
> if ( outputcomment )
> {
> l = strlen ( outputcomment ) ;
> {
> dvibuf [dviptr ]= l ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {register integer for_end; s = 0 ;for_end = l - 1 ; if ( s <=
> for_end) do
> {
> dvibuf [dviptr ]= outputcomment [s ];
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( s++ < for_end ) ;}
> }
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (984)) ;
> zprintint((longinteger) (eqtb [27200 ].cint)) ;
> zprintchar((ASCIIcode) (46)) ;
> zprinttwo((integer) (eqtb [27199 ].cint)) ;
> zprintchar((ASCIIcode) (46)) ;
> zprinttwo((integer) (eqtb [27198 ].cint)) ;
> zprintchar((ASCIIcode) (58)) ;
> zprinttwo((integer) (eqtb [27197 ].cint / 60)) ;
> zprinttwo((integer) (eqtb [27197 ].cint % 60)) ;
> selector = oldsetting ;
> {
> dvibuf [dviptr ]= ( poolptr - strstart [strptr ]) ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {register integer for_end; s = strstart [strptr ];for_end =
> poolptr - 1 ; if ( s <= for_end) do
> {
> dvibuf [dviptr ]= strpool [s ];
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( s++ < for_end ) ;}
> poolptr = strstart [strptr ];
> }
> }
> pageloc = dvioffset + dviptr ;
> {
> dvibuf [dviptr ]= 139 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {register integer for_end; k = 0 ;for_end = 9 ; if ( k <= for_end) do
> zdvifour((integer) (eqtb [27280 + k ].cint)) ;
> while ( k++ < for_end ) ;}
> zdvifour((integer) (lastbop)) ;
> lastbop = pageloc ;
> curv = mem [p + 3 ].cint + eqtb [27811 ].cint ;
> tempptr = p ;
> if ( mem [p ].hh.u.B0 == 1 )
> vlistout () ;
> else hlistout () ;
> {
> dvibuf [dviptr ]= 140 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> ++(totalpages) ;
> curs = -1 ;
> ;
>
> if ( ipcon > 0 )
> {
> if ( dvilimit == halfbuf )
> {
> if ((size_t) fwrite ((char *) &dvibuf[halfbuf], sizeof (dvibuf[halfbuf]), (size_t) ((size_t)(dvibufsize - 1) - (size_t)(halfbuf) + 1), dvifile) != (size_t) ((size_t) (dvibufsize - 1) - (size_t) (halfbuf) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> fflush (dvifile) ;
> dvigone = dvigone + halfbuf ;
> }
> if ( dviptr > ( 2147483647L - dvioffset ) )
> {
> curs = -2 ;
> zfatalerror((strnumber) (983)) ;
> }
> if ( dviptr > 0 )
> {
> if ((size_t) fwrite ((char *) &dvibuf[0], sizeof (dvibuf[0]), (size_t) ((size_t)(dviptr - 1) - (size_t)(0) + 1), dvifile) != (size_t) ((size_t) (dviptr - 1) - (size_t) (0) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> fflush (dvifile) ;
> dvioffset = dvioffset + dviptr ;
> dvigone = dvigone + dviptr ;
> }
> dviptr = 0 ;
> dvilimit = dvibufsize ;
> ipcpage ( dvigone ) ;
> }
>
> lab30: ;
> if ( ( eTeXmode == 1 ) )
> {
> if ( LRproblems > 0 )
> {
> {
> println () ;
> zprintnl((strnumber) (2012)) ;
> zprintint((longinteger) (LRproblems / 10000)) ;
> zprint((integer) (2013)) ;
> zprintint((longinteger) (LRproblems % 10000)) ;
> zprint((integer) (2014)) ;
> LRproblems = 0 ;
> }
> zprintchar((ASCIIcode) (41)) ;
> println () ;
> }
> if ( ( LRptr != -268435455L ) || ( curdir != 0 ) )
> zconfusion((strnumber) (2016)) ;
> }
> if ( eqtb [27211 ].cint <= 0 )
> zprintchar((ASCIIcode) (93)) ;
> deadcycles = 0 ;
> fflush ( stdout ) ;
> ;
>
> if ( eqtb [27208 ].cint > 1 )
> {
> zprintnl((strnumber) (987)) ;
> zprintint((longinteger) (varused)) ;
> zprintchar((ASCIIcode) (38)) ;
> zprintint((longinteger) (dynused)) ;
> zprintchar((ASCIIcode) (59)) ;
> }
>
> zflushnodelist((halfword) (p)) ;
> ;
>
> if ( eqtb [27208 ].cint > 1 )
> {
> zprint((integer) (988)) ;
> zprintint((longinteger) (varused)) ;
> zprintchar((ASCIIcode) (38)) ;
> zprintint((longinteger) (dynused)) ;
> zprint((integer) (989)) ;
> zprintint((longinteger) (himemmin - lomemmax - 1)) ;
> println () ;
> }
>
> }
> synctexteehs () ;
>}
>integer
>getpdfcompresslevel ( void )
>{
> register integer Result; register memoryword *eqtb=zeqtb;
> Result = eqtb [27240 ].cint ;
> return Result ;
>}
>integer
>getpdfsuppresswarningdupmap ( void )
>{
> register integer Result; register memoryword *eqtb=zeqtb;
> Result = eqtb [27267 ].cint ;
> return Result ;
>}
>integer
>getpdfsuppresswarningpagegroup ( void )
>{
> register integer Result; register memoryword *eqtb=zeqtb;
> Result = eqtb [27268 ].cint ;
> return Result ;
>}
>internalfontnumber
>getnullfont ( void )
>{
> register internalfontnumber Result;
> Result = 0 ;
> return Result ;
>}
>internalfontnumber
>getfontbase ( void )
>{
> register internalfontnumber Result;
> Result = 0 ;
> return Result ;
>}
>halfword
>getnullcs ( void )
>{
> register halfword Result;
> Result = 513 ;
> return Result ;
>}
>halfword
>getnullptr ( void )
>{
> register halfword Result;
> Result = -268435455L ;
> return Result ;
>}
>integer
>zgettexint ( integer code )
>{
> register integer Result; register memoryword *eqtb=zeqtb;
> Result = eqtb [27177 + code ].cint ;
> return Result ;
>}
>scaled
>zgettexdimen ( integer code )
>{
> register scaled Result; register memoryword *eqtb=zeqtb;
> Result = eqtb [27792 + code ].cint ;
> return Result ;
>}
>scaled
>zgetxheight ( internalfontnumber f )
>{
> register scaled Result;
> Result = fontinfo [5 + parambase [f ]].cint ;
> return Result ;
>}
>scaled
>zgetcharwidth ( internalfontnumber f , eightbits c )
>{
> register scaled Result;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> Result = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+ c ].qqqq
> .u.B0 ].cint ;
> else Result = 0 ;
> return Result ;
>}
>scaled
>zgetcharheight ( internalfontnumber f , eightbits c )
>{
> register scaled Result;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> Result = fontinfo [heightbase [f ]+ ( fontinfo [charbase [f ]+ c ]
> .qqqq .u.B1 ) / 16 ].cint ;
> else Result = 0 ;
> return Result ;
>}
>scaled
>zgetchardepth ( internalfontnumber f , eightbits c )
>{
> register scaled Result;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> Result = fontinfo [depthbase [f ]+ ( fontinfo [charbase [f ]+ c ]
> .qqqq .u.B1 ) % 16 ].cint ;
> else Result = 0 ;
> return Result ;
>}
>scaled
>zgetquad ( internalfontnumber f )
>{
> register scaled Result;
> Result = fontinfo [6 + parambase [f ]].cint ;
> return Result ;
>}
>scaled
>zgetslant ( internalfontnumber f )
>{
> register scaled Result;
> Result = fontinfo [1 + parambase [f ]].cint ;
> return Result ;
>}
>internalfontnumber
>newdummyfont ( void )
>{
> register internalfontnumber Result;
> Result = zreadfontinfo((halfword) (513), (strnumber) (1000), (strnumber) (345), (scaled) (-1000)) ;
> return Result ;
>}
>void
>zshortdisplayn ( integer p , integer m )
>{
> register memoryword *mem=zmem;
> integer n ;
> integer i ;
> i = 0 ;
> fontinshortdisplay = 0 ;
> if ( p == -268435455L )
> return ;
> while ( p > memmin ) {
>
> if ( ( p >= himemmin ) )
> {
> if ( p <= memend )
> {
> if ( mem [p ].hh.u.B0 != fontinshortdisplay )
> {
> if ( ( mem [p ].hh.u.B0 < 0 ) || ( mem [p ].hh.u.B0 > fontmax ) )
> zprintchar((ASCIIcode) (42)) ;
> else zprintfontidentifier((internalfontnumber) (mem [p ].hh.u.B0)) ;
> zprintchar((ASCIIcode) (32)) ;
> fontinshortdisplay = mem [p ].hh.u.B0 ;
> }
> zprint((integer) (mem [p ].hh.u.B1)) ;
> }
> }
> else {
>
> if ( ( mem [p ].hh.u.B0 == 10 ) || ( mem [p ].hh.u.B0 == 7 ) || ( mem [
> p ].hh.u.B0 == 12 ) || ( ( mem [p ].hh.u.B0 == 11 ) && ( mem [p ].hh.u.B1
> == 1 ) ) )
> ++(i) ;
> if ( i >= m )
> return ;
> if ( ( mem [p ].hh.u.B0 == 7 ) )
> {
> zprint((integer) (124)) ;
> zshortdisplay((integer) (mem [p + 1 ].hh .v.LH)) ;
> zprint((integer) (124)) ;
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> zprint((integer) (124)) ;
> n = mem [p ].hh.u.B1 ;
> while ( n > 0 ) {
>
> if ( mem [p ].hh .v.RH != -268435455L )
> p = mem [p ].hh .v.RH ;
> --(n) ;
> }
> }
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 3 :
> case 8 :
> case 4 :
> case 5 :
> case 13 :
> zprint((integer) (313)) ;
> break ;
> case 2 :
> zprintchar((ASCIIcode) (124)) ;
> break ;
> case 10 :
> if ( mem [p + 1 ].hh .v.LH != membot )
> zprintchar((ASCIIcode) (32)) ;
> break ;
> case 9 :
> if ( mem [p ].hh.u.B1 >= 4 )
> zprint((integer) (313)) ;
> else zprintchar((ASCIIcode) (36)) ;
> break ;
> case 6 :
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> break ;
> case 7 :
> {
> zshortdisplay((integer) (mem [p + 1 ].hh .v.LH)) ;
> zshortdisplay((integer) (mem [p + 1 ].hh .v.RH)) ;
> n = mem [p ].hh.u.B1 ;
> while ( n > 0 ) {
>
> if ( mem [p ].hh .v.RH != -268435455L )
> p = mem [p ].hh .v.RH ;
> --(n) ;
> }
> }
> break ;
> default:
> ;
> break ;
> }
> }
> p = mem [p ].hh .v.RH ;
> if ( p == -268435455L )
> return ;
> }
> fflush ( stdout ) ;
>}
>integer
>zpdfgetmem ( integer s )
>{
> register integer Result;
> integer a ;
> if ( s > ( 10000000L ) - pdfmemptr )
> zoverflow((strnumber) (1001), (integer) (pdfmemsize)) ;
> if ( pdfmemptr + s > pdfmemsize )
> {
> a = 0.2 * pdfmemsize ;
> if ( pdfmemptr + s > pdfmemsize + a )
> pdfmemsize = pdfmemptr + s ;
> else if ( pdfmemsize < ( 10000000L ) - a )
> pdfmemsize = pdfmemsize + a ;
> else pdfmemsize = ( 10000000L ) ;
> pdfmem = ((integer*)xrealloc(pdfmem,(pdfmemsize+1)*sizeof(integer))) ;
> }
> Result = pdfmemptr ;
> pdfmemptr = pdfmemptr + s ;
> return Result ;
>}
>integer
>zfixint ( integer val , integer min , integer max )
>{
> register integer Result;
> if ( val < min )
> Result = min ;
> else if ( val > max )
> Result = max ;
> else Result = val ;
> return Result ;
>}
>void
>checkpdfminorversion ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( ! pdfminorversionwritten )
> {
> pdfminorversionwritten = 1 ;
> if ( ( eqtb [27248 ].cint < 0 ) || ( eqtb [27248 ].cint > 9 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1003)) ;
> }
> println () ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1004 ;
> helpline [0 ]= 1005 ;
> }
> zinterror((integer) (eqtb [27248 ].cint)) ;
> eqtb [27248 ].cint = 4 ;
> }
> fixedpdfminorversion = eqtb [27248 ].cint ;
> fixedgamma = zfixint((integer) (eqtb [27252 ].cint), (integer) (0), (integer) (1000000L)) ;
> fixedimagegamma = zfixint((integer) (eqtb [27253 ].cint), (integer) (0), (integer) (1000000L)) ;
> fixedimagehicolor = zfixint((integer) (eqtb [27254 ].cint), (integer) (0), (integer) (1)) ;
> fixedimageapplygamma = zfixint((integer) (eqtb [27255 ].cint), (integer) (0), (integer) (1)) ;
> fixedpdfobjcompresslevel = zfixint((integer) (eqtb [27259 ].cint), (integer) (0), (integer) (3)) ;
> fixedpdfdraftmode = zfixint((integer) (eqtb [27264 ].cint), (integer) (0), (integer) (1)) ;
> fixedinclusioncopyfont = zfixint((integer) (eqtb [27265 ].cint), (integer) (0), (integer) (1)) ;
> if ( ( fixedpdfminorversion >= 5 ) && ( fixedpdfobjcompresslevel > 0 ) )
> pdfosenable = 1 ;
> else {
>
> if ( fixedpdfobjcompresslevel > 0 )
> {
> zpdfwarning((strnumber) (1006), (strnumber) (1007), (boolean) (1), (boolean) (1)) ;
> fixedpdfobjcompresslevel = 0 ;
> }
> pdfosenable = 0 ;
> }
> ensurepdfopen () ;
> fixpdfoutput () ;
> zpdfprint((strnumber) (1008)) ;
> {
> zpdfprintint((longinteger) (fixedpdfminorversion)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (37)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 208 ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 212 ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 197 ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 216 ;
> ++(pdfptr) ;
> }
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> else {
>
> if ( fixedpdfminorversion != eqtb [27248 ].cint )
> zpdferror((strnumber) (1009), (strnumber) (1010)) ;
> }
>}
>void
>ensurepdfopen ( void )
>{
> 
> if ( outputfilename != 0 )
> return ;
> if ( jobname == 0 )
> openlogfile () ;
> zpackjobname((strnumber) (1011)) ;
> if ( fixedpdfdraftmode == 0 )
> while ( ! open_output (&(pdffile), "wb") ) zpromptfilename((strnumber) (948), (strnumber) (1011)) ;
> outputfilename = zbmakenamestring((bytefile) (pdffile)) ;
>}
>void
>pdfflush ( void )
>{
> 
> longinteger savedpdfgone ;
> if ( ! pdfosmode )
> {
> savedpdfgone = pdfgone ;
> switch ( zipwritestate )
> {case 0 :
> if ( pdfptr > 0 )
> {
> if ( fixedpdfdraftmode == 0 )
> (void) fwrite ((char *) &pdfbuf[0], sizeof (pdfbuf[0]), (int) ((pdfptr - 1) - (0) + 1), pdffile) ;
> pdfgone = pdfgone + pdfptr ;
> pdflastbyte = pdfbuf [pdfptr - 1 ];
> }
> break ;
> case 1 :
> if ( fixedpdfdraftmode == 0 )
> writezip ( 0 ) ;
> break ;
> case 2 :
> {
> if ( fixedpdfdraftmode == 0 )
> writezip ( 1 ) ;
> zipwritestate = 0 ;
> }
> break ;
> }
> pdfptr = 0 ;
> if ( savedpdfgone > pdfgone )
> zpdferror((strnumber) (1012), (strnumber) (1013)) ;
> }
>}
>void
>pdfbeginstream ( void )
>{
> register memoryword *eqtb=zeqtb;
> {
> zpdfprint((strnumber) (1014)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfseekwritelength = 1 ;
> pdfstreamlengthoffset = ( pdfgone + pdfptr ) - 11 ;
> pdfstreamlength = 0 ;
> pdflastbyte = 0 ;
> if ( eqtb [27240 ].cint > 0 )
> {
> {
> zpdfprint((strnumber) (1015)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1017)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfflush () ;
> zipwritestate = 1 ;
> }
> else {
>
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1017)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfsaveoffset = ( pdfgone + pdfptr ) ;
> }
>}
>void
>pdfendstream ( void )
>{
> 
> if ( zipwritestate == 1 )
> zipwritestate = 2 ;
> else pdfstreamlength = ( pdfgone + pdfptr ) - pdfsaveoffset ;
> pdfflush () ;
> if ( pdfseekwritelength )
> writestreamlength ( pdfstreamlength , pdfstreamlengthoffset ) ;
> pdfseekwritelength = 0 ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> {
> zpdfprint((strnumber) (1018)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfendobj () ;
>}
>void
>zadvcharwidth ( internalfontnumber f , eightbits c )
>{
> 
> scaled w, sout ;
> integer s ;
> w = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c))
> ].qqqq .u.B0 ].cint ;
> if ( hasfmentry ( f ) )
> {
> if ( pdfcurTma == 0 )
> {
> {
> if ( zdividescaled((scaled) (w), (scaled) (pdffontsize [f ]), (integer) (4)) != 0 )
> ;
> }
> pdfdeltah = pdfdeltah + scaledout ;
> }
> else {
>
> s = zdividescaled((scaled) (zroundxnoverd((scaled) (w), (integer) (1000), (integer) (1000 + pdfcurTma))), (scaled) (pdffontsize [f ]), (integer) (4))
> ;
> sout = zroundxnoverd((scaled) (zroundxnoverd((scaled) (pdffontsize [f ]), (integer) (((integer)(s) >= 0 ? (integer)(s) : (integer)-(s))), (integer) (10000))), (integer) (1000 + pdfcurTma), (integer) (1000))
> ;
> if ( s < 0 )
> sout = - (integer) sout ;
> pdfdeltah = pdfdeltah + sout ;
> }
> }
> else pdfdeltah = pdfdeltah + getpkcharwidth ( f , w ) ;
>}
>void
>zpdfprintreal ( integer m , integer d )
>{
> 
> if ( m < 0 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 45 ;
> ++(pdfptr) ;
> }
> }
> m = - (integer) m ;
> }
> zpdfprintint((longinteger) (m / tenpow [d ])) ;
> m = m % tenpow [d ];
> if ( m > 0 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 46 ;
> ++(pdfptr) ;
> }
> }
> --(d) ;
> while ( m < tenpow [d ]) {
>
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 48 ;
> ++(pdfptr) ;
> }
> }
> --(d) ;
> }
> while ( m % 10 == 0 ) m = m / 10 ;
> zpdfprintint((longinteger) (m)) ;
> }
>}
>void
>zpdfprintbp ( scaled s )
>{
> 
> zpdfprintreal((integer) (zdividescaled((scaled) (s), (scaled) (onehundredbp), (integer) (fixeddecimaldigits + 2))), (integer) (fixeddecimaldigits))
> ;
>}
>void
>zpdfprintmagbp ( scaled s )
>{
> register memoryword *eqtb=zeqtb;
> preparemag () ;
> if ( eqtb [27194 ].cint != 1000 )
> s = zroundxnoverd((scaled) (s), (integer) (eqtb [27194 ].cint), (integer) (1000)) ;
> zpdfprintbp((scaled) (s)) ;
>}
>void
>zpdfsetorigin ( scaled h , scaled v )
>{
> 
> if ( ( ((integer)(h - pdforiginh) >= 0 ? (integer)(h - pdforiginh) : (integer)-(h - pdforiginh)) >= minbpval ) || ( ((integer)(v - pdforiginv) >= 0 ? (integer)(v - pdforiginv) : (integer)-(v - pdforiginv)) >=
> minbpval ) )
> {
> zpdfprint((strnumber) (1027)) ;
> zpdfprintbp((scaled) (h - pdforiginh)) ;
> pdforiginh = pdforiginh + scaledout ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (pdforiginv - v)) ;
> pdforiginv = pdforiginv - scaledout ;
> {
> zpdfprint((strnumber) (1028)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> pdfh = pdforiginh ;
> pdftjstarth = pdfh ;
> pdfv = pdforiginv ;
>}
>void
>zpdfsetorigintemp ( scaled h , scaled v )
>{
> 
> if ( ( ((integer)(h - pdforiginh) >= 0 ? (integer)(h - pdforiginh) : (integer)-(h - pdforiginh)) >= minbpval ) || ( ((integer)(v - pdforiginv) >= 0 ? (integer)(v - pdforiginv) : (integer)-(v - pdforiginv)) >=
> minbpval ) )
> {
> zpdfprint((strnumber) (1027)) ;
> zpdfprintbp((scaled) (h - pdforiginh)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (pdforiginv - v)) ;
> {
> zpdfprint((strnumber) (1028)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
>}
>void
>pdfendstring ( void )
>{
> 
> if ( pdfdoingstring )
> {
> zpdfprint((strnumber) (1029)) ;
> pdfdoingstring = 0 ;
> }
>}
>void
>pdfendstringnl ( void )
>{
> 
> if ( pdfdoingstring )
> {
> {
> zpdfprint((strnumber) (1029)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfdoingstring = 0 ;
> }
>}
>void
>zpdfsettextmatrix ( scaled v , scaled vout , internalfontnumber f )
>{
> 
> integer pdfnewTma ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> if ( f == pdff )
> pdfnewTma = pdfcurTma ;
> else if ( ! pdffontautoexpand [f ])
> pdfnewTma = 0 ;
> else pdfnewTma = pdffontexpandratio [f ];
> if ( ( pdfnewTma != 0 ) || ( ( pdfnewTma == 0 ) && ( pdfcurTma != 0 ) ) )
> {
> zpdfprintreal((integer) (1000 + pdfnewTma), (integer) (3)) ;
> zpdfprint((strnumber) (1030)) ;
> zpdfprintbp((scaled) (curh - pdforiginh)) ;
> pdfh = pdforiginh + scaledout ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (pdforiginv - curv)) ;
> pdfv = pdforiginv - scaledout ;
> zpdfprint((strnumber) (1031)) ;
> pdfcurTma = pdfnewTma ;
> ((pdfcurTma > -1000) ? (void) (0) : __assert_fail ("pdfcurTma > -1000", "pdftex0.c", 19383, __PRETTY_FUNCTION__)) ;
> }
> else if ( ( ((integer)(curh - pdftjstarth) >= 0 ? (integer)(curh - pdftjstarth) : (integer)-(curh - pdftjstarth)) >= minbpval ) || ( vout != 0 ) )
> {
> zpdfprintbp((scaled) (curh - pdftjstarth)) ;
> pdfh = pdftjstarth + scaledout ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintreal((integer) (v), (integer) (fixeddecimaldigits)) ;
> pdfv = pdfv - vout ;
> zpdfprint((strnumber) (1032)) ;
> }
> pdftjstarth = pdfh ;
> pdfdeltah = 0 ;
>}
>void
>zpdfusefont ( internalfontnumber f , integer fontnum )
>{
> register memoryword *eqtb=zeqtb;
> {
> if ( zdividescaled((scaled) (fontsize [f ]), (scaled) (onehundredbp), (integer) (6)) != 0 )
> ;
> }
> pdffontsize [f ]= scaledout ;
> fontused [f ]= 1 ;
> ((( fontnum > 0 ) || ( ( fontnum < 0 ) && ( pdffontnum [ - (integer) fontnum ]> 0 ) )) ? (void) (0) : __assert_fail ("( fontnum > 0 ) || ( ( fontnum < 0 ) && ( pdffontnum [ - (integer) fontnum ]> 0 ) )",
> "pdftex0.c"
># 19420 "pdftex0.c" 3 4
> ,
> 19421
># 19420 "pdftex0.c" 3 4
> , __PRETTY_FUNCTION__))
> ;
> pdffontnum [f ]= fontnum ;
> if ( eqtb [27242 ].cint > 0 )
> {
> zpdfwarning((strnumber) (0), (strnumber) (1033), (boolean) (1), (boolean) (1)) ;
> eqtb [27242 ].cint = 0 ;
> }
>}
>void
>zpdfinitfont ( internalfontnumber f )
>{
> 
> internalfontnumber k, b ;
> integer i ;
> ((! fontused [f ]) ? (void) (0) : __assert_fail ("! fontused [f ]", "pdftex0.c", 19435, __PRETTY_FUNCTION__)) ;
> if ( pdffontautoexpand [f ]&& ( pdffontblink [f ]!= 0 ) )
> {
> b = pdffontblink [f ];
> if ( ! hasfmentry ( b ) )
> zpdferror((strnumber) (1034), (strnumber) (1035)) ;
> if ( ! fontused [b ])
> zpdfinitfont((internalfontnumber) (b)) ;
> pdffontmap [f ]= pdffontmap [b ];
> }
> if ( hasfmentry ( f ) )
> {
> i = headtab [3 ];
> while ( i != 0 ) {
>
> k = objtab [i ].int0 ;
> if ( hasfmentry ( k ) && ( pdffontmap [k ]== pdffontmap [f ]) && (
> zstreqstr((strnumber) (fontname [k ]), (strnumber) (fontname [f ])) || ( pdffontautoexpand [f
> ]&& ( pdffontblink [f ]!= 0 ) && zstreqstr((strnumber) (fontname [k ]), (strnumber) (fontname [pdffontblink [f ]]))
> ) ) )
> {
> ((pdffontnum [k ]!= 0) ? (void) (0) : __assert_fail ("pdffontnum [k ]!= 0", "pdftex0.c", 19456, __PRETTY_FUNCTION__)) ;
> if ( pdffontnum [k ]< 0 )
> zpdfusefont((internalfontnumber) (f), (integer) (pdffontnum [k ])) ;
> else zpdfusefont((internalfontnumber) (f), (integer) (- (integer) k)) ;
> return ;
> }
> i = objtab [i ].int1 ;
> }
> }
> zpdfcreateobj((integer) (3), (integer) (f)) ;
> zpdfusefont((internalfontnumber) (f), (integer) (objptr)) ;
>}
>void
>pdfinitfontcurval ( void )
>{
> 
> zpdfinitfont((internalfontnumber) (curval)) ;
>}
>void
>zpdfsetfont ( internalfontnumber f )
>{
> register memoryword *mem=zmem;
> halfword p ;
> internalfontnumber k ;
> if ( ! fontused [f ])
> zpdfinitfont((internalfontnumber) (f)) ;
> {
> if ( pdffontnum [f ]< 0 )
> ff = - (integer) pdffontnum [f ];
> else ff = f ;
> }
> k = ff ;
> p = pdffontlist ;
> while ( p != -268435455L ) {
>
> {
> if ( pdffontnum [mem [p ].hh .v.LH ]< 0 )
> ff = - (integer) pdffontnum [mem [p ].hh .v.LH ];
> else ff = mem [p ].hh .v.LH ;
> }
> if ( ff == k )
> goto lab40 ;
> p = mem [p ].hh .v.RH ;
> }
> {
> pdfappendlistarg = f ;
> pdffontlist = zappendptr((halfword) (pdffontlist), (integer) (pdfappendlistarg)) ;
> }
> lab40: if ( ( k == pdflastf ) && ( fontsize [f ]== pdflastfs ) )
> return ;
> zpdfprint((strnumber) (1036)) ;
> zpdfprintint((longinteger) (k)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintreal((integer) (zdividescaled((scaled) (fontsize [f ]), (scaled) (onehundredbp), (integer) (6))), (integer) (4)) ;
> zpdfprint((strnumber) (1037)) ;
> pdflastf = k ;
> pdflastfs = fontsize [f ];
>}
>void
>pdfbegintext ( void )
>{
> 
> zpdfsetorigin((scaled) (0), (scaled) (curpageheight)) ;
> {
> zpdfprint((strnumber) (1038)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfdoingtext = 1 ;
> pdff = 0 ;
> pdflastf = 0 ;
> pdflastfs = 0 ;
> pdfdoingstring = 0 ;
> pdfcurTma = 0 ;
>}
>void
>pdfreaddummyfont ( void )
>{
> 
> if ( pdfdummyfont == 0 )
> {
> pdfdummyfont = zreadfontinfo((halfword) (513), (strnumber) (1039), (strnumber) (345), (scaled) (onebp)) ;
> pdfcharused[pdfdummyfont][32/8] |= (1<<(32%8)) ;
> }
>}
>void
>pdfinsertinterwordspace ( void )
>{
> 
> pdfreaddummyfont () ;
> zpdfsetfont((internalfontnumber) (pdfdummyfont)) ;
> zpdfprint((strnumber) (1040)) ;
>}
>void
>zpdfbeginstring ( internalfontnumber f )
>{
> 
> scaled sout, v, vout ;
> integer s ;
> boolean mustendstring ;
> boolean mustinsertspace ;
> if ( ! pdfdoingtext )
> pdfbegintext () ;
> if ( f != pdff )
> {
> pdfendstring () ;
> zpdfsetfont((internalfontnumber) (f)) ;
> }
> if ( pdfcurTma == 0 )
> {
> s = zdividescaled((scaled) (curh - ( pdftjstarth + pdfdeltah )), (scaled) (pdffontsize [f ]), (integer) (3))
> ;
> sout = scaledout ;
> }
> else {
>
> s = zdividescaled((scaled) (zroundxnoverd((scaled) (curh - ( pdftjstarth + pdfdeltah )), (integer) (1000), (integer) (1000 + pdfcurTma))), (scaled) (pdffontsize [f ]), (integer) (3))
> ;
> if ( ((integer)(s) >= 0 ? (integer)(s) : (integer)-(s)) < 32768L )
> {
> sout = zroundxnoverd((scaled) (zroundxnoverd((scaled) (pdffontsize [f ]), (integer) (((integer)(s) >= 0 ? (integer)(s) : (integer)-(s))), (integer) (1000))), (integer) (1000 + pdfcurTma), (integer) (1000))
> ;
> if ( s < 0 )
> sout = - (integer) sout ;
> }
> }
> if ( ((integer)(curv - pdfv) >= 0 ? (integer)(curv - pdfv) : (integer)-(curv - pdfv)) >= minbpval )
> {
> v = zdividescaled((scaled) (pdfv - curv), (scaled) (onehundredbp), (integer) (fixeddecimaldigits + 2)) ;
> vout = scaledout ;
> }
> else {
>
> v = 0 ;
> vout = 0 ;
> }
> mustinsertspace = 0 ;
> mustendstring = 0 ;
> if ( genfakedinterwordspace && ( ( ((integer)(vout) >= 0 ? (integer)(vout) : (integer)-(vout)) > 2 * fontinfo [5 +
> parambase [f ]].cint ) || ( sout > fontinfo [2 + parambase [f ]].cint
> - fontinfo [4 + parambase [f ]].cint ) || ( ( f != pdff ) && ( v == 0 )
> ) ) )
> {
> mustinsertspace = 1 ;
> }
> if ( ( f != pdff ) || ( v != 0 ) || ( ((integer)(s) >= 0 ? (integer)(s) : (integer)-(s)) >= 32768L ) ||
> mustinsertspace )
> {
> mustendstring = 1 ;
> }
> if ( mustendstring )
> {
> pdfendstring () ;
> if ( mustinsertspace )
> {
> pdfinsertinterwordspace () ;
> zpdfsetfont((internalfontnumber) (f)) ;
> }
> zpdfsettextmatrix((scaled) (v), (scaled) (vout), (internalfontnumber) (f)) ;
> pdff = f ;
> s = 0 ;
> }
> if ( ! pdfdoingstring )
> {
> zpdfprint((strnumber) (1041)) ;
> if ( s == 0 )
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 40 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( s != 0 )
> {
> if ( pdfdoingstring )
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 41 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (- (integer) s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 40 ;
> ++(pdfptr) ;
> }
> }
> pdfdeltah = pdfdeltah + sout ;
> }
> pdfdoingstring = 1 ;
>}
>void
>pdfinsertfakespace ( void )
>{
> 
> integer s ;
> s = genfakedinterwordspace ;
> genfakedinterwordspace = 0 ;
> pdfreaddummyfont () ;
> zpdfbeginstring((internalfontnumber) (pdfdummyfont)) ;
> zpdfprint((strnumber) (32)) ;
> pdfendstringnl () ;
> genfakedinterwordspace = s ;
>}
>void
>pdfendtext ( void )
>{
> 
> if ( pdfdoingtext )
> {
> pdfendstringnl () ;
> {
> zpdfprint((strnumber) (1042)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfdoingtext = 0 ;
> }
>}
>void
>zpdfsetrule ( scaled x , scaled y , scaled w , scaled h )
>{
> 
> pdfendtext () ;
> {
> zpdfprint((strnumber) (113)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( h <= onebp )
> {
> zpdfsetorigintemp((scaled) (x), (scaled) (y - ( h + 1 ) / ((double) 2 ))) ;
> zpdfprint((strnumber) (1043)) ;
> zpdfprintbp((scaled) (h)) ;
> zpdfprint((strnumber) (1044)) ;
> zpdfprintbp((scaled) (w)) ;
> {
> zpdfprint((strnumber) (1045)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> else if ( w <= onebp )
> {
> zpdfsetorigintemp((scaled) (x + ( w + 1 ) / ((double) 2 )), (scaled) (y)) ;
> zpdfprint((strnumber) (1043)) ;
> zpdfprintbp((scaled) (w)) ;
> zpdfprint((strnumber) (1046)) ;
> zpdfprintbp((scaled) (h)) ;
> {
> zpdfprint((strnumber) (1047)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> else {
>
> zpdfsetorigintemp((scaled) (x), (scaled) (y)) ;
> zpdfprint((strnumber) (1048)) ;
> zpdfprintbp((scaled) (w)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (h)) ;
> {
> zpdfprint((strnumber) (1049)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> {
> zpdfprint((strnumber) (81)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdfrectangle ( scaled left , scaled top , scaled right , scaled bottom )
>{
> 
> preparemag () ;
> zpdfprint((strnumber) (1050)) ;
> zpdfprintmagbp((scaled) (( ( left ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( pdforiginv - ( bottom ) ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( ( right ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( pdforiginv - ( top ) ))) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zliteral ( strnumber s , integer literalmode , boolean warn )
>{
> 
> poolpointer j ;
> j = strstart [s ];
> if ( literalmode == 3 )
> {
> if ( ! ( zstrinstr((strnumber) (s), (strnumber) (1051), (integer) (0)) || zstrinstr((strnumber) (s), (strnumber) (1052), (integer) (0)) ) )
> {
> if ( warn && ! ( zstrinstr((strnumber) (s), (strnumber) (1053), (integer) (0)) || zstrinstr((strnumber) (s), (strnumber) (1054), (integer) (0))
> || ( ( strstart [s + 1 ]- strstart [s ]) == 0 ) ) )
> zprintnl((strnumber) (1055)) ;
> return ;
> }
> j = j + ( strstart [1052 ]- strstart [1051 ]) ;
> if ( zstrinstr((strnumber) (s), (strnumber) (1056), (integer) (( strstart [1052 ]- strstart [1051 ]))) )
> {
> j = j + ( strstart [1057 ]- strstart [1056 ]) ;
> literalmode = 2 ;
> }
> else if ( zstrinstr((strnumber) (s), (strnumber) (1057), (integer) (( strstart [1052 ]- strstart [1051 ])))
> )
> {
> j = j + ( strstart [1058 ]- strstart [1057 ]) ;
> literalmode = 1 ;
> }
> else literalmode = 0 ;
> }
> switch ( literalmode )
> {case 0 :
> {
> pdfendtext () ;
> zpdfsetorigin((scaled) (curh), (scaled) (curv)) ;
> }
> break ;
> case 1 :
> pdfendtext () ;
> break ;
> case 2 :
> pdfendstringnl () ;
> break ;
> default:
> zconfusion((strnumber) (1058)) ;
> break ;
> }
> while ( j < strstart [s + 1 ]) {
>
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= strpool [j ];
> ++(pdfptr) ;
> }
> }
> ++(j) ;
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfprintfwint ( longinteger n , integer w )
>{
> 
> integer k ;
> k = 0 ;
> do {
> dig [k ]= n % 10 ;
> n = n / 10 ;
> ++(k) ;
> } while ( ! ( k == w ) ) ;
> {
> if ( pdfosmode && ( k + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (k)) ;
> else if ( ! pdfosmode && ( k > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( k + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> while ( k > 0 ) {
>
> --(k) ;
> {
> pdfbuf [pdfptr ]= 48 + dig [k ];
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfoutbytes ( longinteger n , integer w )
>{
> 
> integer k ;
> integer byte[8] ;
> k = 0 ;
> do {
> byte [k ]= n % 256 ;
> n = n / 256 ;
> ++(k) ;
> } while ( ! ( k == w ) ) ;
> {
> if ( pdfosmode && ( k + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (k)) ;
> else if ( ! pdfosmode && ( k > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( k + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> while ( k > 0 ) {
>
> --(k) ;
> {
> pdfbuf [pdfptr ]= byte [k ];
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfintentry ( strnumber s , integer v )
>{
> 
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 47 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (v)) ;
>}
>void
>zpdfintentryln ( strnumber s , integer v )
>{
> 
> zpdfintentry((strnumber) (s), (integer) (v)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfindirect ( strnumber s , integer o )
>{
> 
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 47 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (o)) ;
> zpdfprint((strnumber) (1068)) ;
>}
>void
>zpdfindirectln ( strnumber s , integer o )
>{
> 
> zpdfindirect((strnumber) (s), (integer) (o)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfprintstr ( strnumber s )
>{
> 
> poolpointer i, j ;
> boolean ishexstring ;
> i = strstart [s ];
> j = i + ( strstart [s + 1 ]- strstart [s ]) - 1 ;
> if ( i > j )
> {
> zpdfprint((strnumber) (1069)) ;
> return ;
> }
> if ( ( strpool [i ]== '(' ) && ( strpool [j ]== ')' ) )
> {
> zpdfprint((strnumber) (s)) ;
> return ;
> }
> ishexstring = 0 ;
> if ( ( strpool [i ]!= '<' ) || ( strpool [j ]!= '>' ) || ((( strstart [s + 1 ]- strstart [s ])) & 1)
> )
> goto lab30 ;
> ++(i) ;
> --(j) ;
> while ( i < j ) {
>
> if ( ( ( ( strpool [i ]>= '0' ) && ( strpool [i ]<= '9' ) ) || ( (
> strpool [i ]>= 'A' ) && ( strpool [i ]<= 'F' ) ) || ( ( strpool [i ]
> >= 'a' ) && ( strpool [i ]<= 'f' ) ) ) && ( ( ( strpool [i + 1 ]>= '0'
> ) && ( strpool [i + 1 ]<= '9' ) ) || ( ( strpool [i + 1 ]>= 'A' ) && (
> strpool [i + 1 ]<= 'F' ) ) || ( ( strpool [i + 1 ]>= 'a' ) && (
> strpool [i + 1 ]<= 'f' ) ) ) )
> i = i + 2 ;
> else goto lab30 ;
> }
> ishexstring = 1 ;
> lab30: if ( ishexstring )
> zpdfprint((strnumber) (s)) ;
> else {
>
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 40 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 41 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdfprintstrln ( strnumber s )
>{
> 
> zpdfprintstr((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zpdfstrentry ( strnumber s , strnumber v )
>{
> 
> if ( v == 0 )
> return ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 47 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintstr((strnumber) (v)) ;
>}
>void
>zpdfstrentryln ( strnumber s , strnumber v )
>{
> 
> if ( v == 0 )
> return ;
> zpdfstrentry((strnumber) (s), (strnumber) (v)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
>}
>void
>zsettagcode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> integer fixedi ;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> {
> fixedi = ((integer)(zfixint((integer) (i), (integer) (-7), (integer) (0))) >= 0 ? (integer)(zfixint((integer) (i), (integer) (-7), (integer) (0))) : (integer)-(zfixint((integer) (i), (integer) (-7), (integer) (0)))) ;
> if ( fixedi >= 4 )
> {
> if ( ( ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ]
> .qqqq .u.B2 ) % 4 ) == 3 )
> fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2 =
> ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2
> ) - 3 ;
> fixedi = fixedi - 4 ;
> }
> if ( fixedi >= 2 )
> {
> if ( ( ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ]
> .qqqq .u.B2 ) % 4 ) == 2 )
> fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2 =
> ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2
> ) - 2 ;
> fixedi = fixedi - 2 ;
> }
> if ( fixedi >= 1 )
> {
> if ( ( ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ]
> .qqqq .u.B2 ) % 4 ) == 1 )
> fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2 =
> ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B2
> ) - 1 ;
> }
> }
>}
>void
>zsetnoligatures ( internalfontnumber f )
>{
> 
> integer c ;
> {register integer for_end; c = fontbc [f ];for_end = fontec [f ]; if (
> c <= for_end) do
> if ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) {
>
> if ( ( ( fontinfo [charbase [f ]+ c ].qqqq .u.B2 ) % 4 ) == 1 )
> fontinfo [charbase [f ]+ c ].qqqq .u.B2 = ( fontinfo [charbase [f ]
> + c ].qqqq .u.B2 ) - 1 ;
> }
> while ( c++ < for_end ) ;}
>}
>integer
>zinitfontbase ( integer v )
>{
> register integer Result;
> integer i, j ;
> i = zpdfgetmem((integer) (256)) ;
> {register integer for_end; j = 0 ;for_end = 255 ; if ( j <= for_end) do
> pdfmem [i + j ]= v ;
> while ( j++ < for_end ) ;}
> Result = i ;
> return Result ;
>}
>void
>zsetlpcode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontlpbase [f ]== 0 )
> pdffontlpbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontlpbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetrpcode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontrpbase [f ]== 0 )
> pdffontrpbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontrpbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetefcode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontefbase [f ]== 0 )
> pdffontefbase [f ]= zinitfontbase((integer) (1000)) ;
> pdfmem [pdffontefbase [f ]+ c ]= zfixint((integer) (i), (integer) (0), (integer) (1000)) ;
>}
>void
>zsetknbscode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontknbsbase [f ]== 0 )
> pdffontknbsbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontknbsbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetstbscode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontstbsbase [f ]== 0 )
> pdffontstbsbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontstbsbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetshbscode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontshbsbase [f ]== 0 )
> pdffontshbsbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontshbsbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetknbccode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontknbcbase [f ]== 0 )
> pdffontknbcbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontknbcbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zsetknaccode ( internalfontnumber f , eightbits c , integer i )
>{
> 
> if ( pdffontknacbase [f ]== 0 )
> pdffontknacbase [f ]= zinitfontbase((integer) (0)) ;
> pdfmem [pdffontknacbase [f ]+ c ]= zfixint((integer) (i), (integer) (-1000), (integer) (1000)) ;
>}
>void
>zadjustinterwordglue ( halfword p , halfword g )
>{
> register memoryword *mem=zmem;
> scaled kn, st, sh ;
> halfword q, r ;
> halfword c ;
> internalfontnumber f ;
> if ( ! ( ! ( g >= himemmin ) && mem [g ].hh.u.B0 == 10 ) )
> {
> zpdfwarning((strnumber) (1071), (strnumber) (1072), (boolean) (0), (boolean) (0)) ;
> return ;
> }
> c = 256 ;
> if ( ( p >= himemmin ) )
> {
> c = mem [p ].hh.u.B1 ;
> f = mem [p ].hh.u.B0 ;
> }
> else if ( mem [p ].hh.u.B0 == 6 )
> {
> c = mem [p + 1 ].hh.u.B1 ;
> f = mem [p + 1 ].hh.u.B0 ;
> }
> else if ( ( mem [p ].hh.u.B0 == 11 ) && ( mem [p ].hh.u.B1 == 1 ) && (
> savetail != -268435455L ) )
> {
> r = savetail ;
> while ( ( mem [r ].hh .v.RH != -268435455L ) && ( mem [r ].hh .v.RH !=
> p ) ) r = mem [r ].hh .v.RH ;
> if ( ( mem [r ].hh .v.RH == p ) ) {
>
> if ( ( r >= himemmin ) )
> {
> c = mem [r ].hh.u.B1 ;
> f = mem [r ].hh.u.B0 ;
> }
> else if ( mem [r ].hh.u.B0 == 6 )
> {
> c = mem [r + 1 ].hh.u.B1 ;
> f = mem [r + 1 ].hh.u.B0 ;
> }
> }
> }
> if ( ( c == 256 ) )
> return ;
> kn = (pdffontknbsbase[f] == 0 ? 0 : pdfmem[pdffontknbsbase[f] + c]) ;
> st = (pdffontstbsbase[f] == 0 ? 0 : pdfmem[pdffontstbsbase[f] + c]) ;
> sh = (pdffontshbsbase[f] == 0 ? 0 : pdfmem[pdffontshbsbase[f] + c]) ;
> if ( ( kn != 0 ) || ( st != 0 ) || ( sh != 0 ) )
> {
> q = znewspec((halfword) (mem [g + 1 ].hh .v.LH)) ;
> zdeleteglueref((halfword) (mem [g + 1 ].hh .v.LH)) ;
> mem [q + 1 ].cint = mem [q + 1 ].cint + zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (kn), (integer) (1000))
> ;
> mem [q + 2 ].cint = mem [q + 2 ].cint + zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (st), (integer) (1000))
> ;
> mem [q + 3 ].cint = mem [q + 3 ].cint + zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (sh), (integer) (1000))
> ;
> mem [g + 1 ].hh .v.LH = q ;
> }
>}
>halfword
>zgetautokern ( internalfontnumber f , halfword l , halfword r )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled tmpw ;
> integer k ;
> halfword p ;
> ((( l >= 0 ) && ( r >= 0 )) ? (void) (0) : __assert_fail ("( l >= 0 ) && ( r >= 0 )", "pdftex0.c", 20532, __PRETTY_FUNCTION__)) ;
> Result = -268435455L ;
> if ( ( eqtb [27262 ].cint <= 0 ) && ( eqtb [27261 ].cint <= 0 ) )
> return Result ;
> tmpw = 0 ;
> if ( ( eqtb [27262 ].cint > 0 ) && ( l < 256 ) )
> {
> k = (pdffontknacbase[f] == 0 ? 0 : pdfmem[pdffontknacbase[f] + l]) ;
> if ( k != 0 )
> tmpw = zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (k), (integer) (1000))
> ;
> }
> if ( ( eqtb [27261 ].cint > 0 ) && ( r < 256 ) )
> {
> k = (pdffontknbcbase[f] == 0 ? 0 : pdfmem[pdffontknbcbase[f] + r]) ;
> if ( k != 0 )
> tmpw = tmpw + zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (k), (integer) (1000))
> ;
> }
> if ( tmpw != 0 )
> {
> p = znewkern((scaled) (tmpw)) ;
> mem [p ].hh.u.B1 = 1 ;
> Result = p ;
> }
> return Result ;
>}
>strnumber
>zexpandfontname ( internalfontnumber f , integer e )
>{
> register strnumber Result;
> unsigned char oldsetting ;
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (fontname [f ])) ;
> if ( e > 0 )
> zprint((integer) (43)) ;
> zprintint((longinteger) (e)) ;
> selector = oldsetting ;
> Result = makestring () ;
> return Result ;
>}
>internalfontnumber
>zautoexpandfont ( internalfontnumber f , integer e )
>{
> register internalfontnumber Result;
> internalfontnumber k ;
> integer nw, nk, ni, i ;
> k = fontptr + 1 ;
> ++(fontptr) ;
> if ( ( fontptr >= fontmax ) )
> zoverflow((strnumber) (1073), (integer) (fontmax)) ;
> fontname [k ]= zexpandfontname((internalfontnumber) (f), (integer) (e)) ;
> fontarea [k ]= fontarea [f ];
> hash [15526 + k ].v.RH = hash [15526 + f ].v.RH ;
> hyphenchar [k ]= hyphenchar [f ];
> skewchar [k ]= skewchar [f ];
> fontbchar [k ]= fontbchar [f ];
> fontfalsebchar [k ]= fontfalsebchar [f ];
> fontbc [k ]= fontbc [f ];
> fontec [k ]= fontec [f ];
> fontsize [k ]= fontsize [f ];
> fontdsize [k ]= fontdsize [f ];
> fontparams [k ]= fontparams [f ];
> fontglue [k ]= fontglue [f ];
> bcharlabel [k ]= bcharlabel [f ];
> charbase [k ]= charbase [f ];
> heightbase [k ]= heightbase [f ];
> depthbase [k ]= depthbase [f ];
> ligkernbase [k ]= ligkernbase [f ];
> extenbase [k ]= extenbase [f ];
> parambase [k ]= parambase [f ];
> nw = heightbase [f ]- widthbase [f ];
> ni = ligkernbase [f ]- italicbase [f ];
> nk = extenbase [f ]- ( kernbase [f ]+ 256 * ( 128 ) ) ;
> if ( ( fmemptr + nw + ni + nk >= fontmemsize ) )
> zoverflow((strnumber) (1074), (integer) (fontmemsize)) ;
> widthbase [k ]= fmemptr ;
> italicbase [k ]= widthbase [k ]+ nw ;
> kernbase [k ]= italicbase [k ]+ ni - 256 * ( 128 ) ;
> fmemptr = fmemptr + nw + ni + nk ;
> {register integer for_end; i = 0 ;for_end = nw - 1 ; if ( i <= for_end) do
> fontinfo [widthbase [k ]+ i ].cint = zroundxnoverd((scaled) (fontinfo [ widthbase [f ]+ i ].cint), (integer) (1000 + e), (integer) (1000))
> ;
> while ( i++ < for_end ) ;}
> {register integer for_end; i = 0 ;for_end = ni - 1 ; if ( i <= for_end) do
> fontinfo [italicbase [k ]+ i ].cint = zroundxnoverd((scaled) (fontinfo [ italicbase [f ]+ i ].cint), (integer) (1000 + e), (integer) (1000))
> ;
> while ( i++ < for_end ) ;}
> {register integer for_end; i = 0 ;for_end = nk - 1 ; if ( i <= for_end) do
> fontinfo [kernbase [k ]+ 256 * ( 128 ) + i ].cint = zroundxnoverd((scaled) (fontinfo [kernbase [f ]+ 256 * ( 128 ) + i ].cint), (integer) (1000 + e), (integer) (1000))
>
> ;
> while ( i++ < for_end ) ;}
> Result = k ;
> return Result ;
>}
>void
>zcopyexpandparams ( internalfontnumber k , internalfontnumber f , integer e )
>{
> 
> if ( pdffontrpbase [f ]== 0 )
> pdffontrpbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontlpbase [f ]== 0 )
> pdffontlpbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontefbase [f ]== 0 )
> pdffontefbase [f ]= zinitfontbase((integer) (1000)) ;
> pdffontexpandratio [k ]= e ;
> pdffontstep [k ]= pdffontstep [f ];
> pdffontautoexpand [k ]= pdffontautoexpand [f ];
> pdffontblink [k ]= f ;
> pdffontlpbase [k ]= pdffontlpbase [f ];
> pdffontrpbase [k ]= pdffontrpbase [f ];
> pdffontefbase [k ]= pdffontefbase [f ];
> if ( pdffontknbsbase [f ]== 0 )
> pdffontknbsbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontstbsbase [f ]== 0 )
> pdffontstbsbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontshbsbase [f ]== 0 )
> pdffontshbsbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontknbcbase [f ]== 0 )
> pdffontknbcbase [f ]= zinitfontbase((integer) (0)) ;
> if ( pdffontknacbase [f ]== 0 )
> pdffontknacbase [f ]= zinitfontbase((integer) (0)) ;
> pdffontknbsbase [k ]= pdffontknbsbase [f ];
> pdffontstbsbase [k ]= pdffontstbsbase [f ];
> pdffontshbsbase [k ]= pdffontshbsbase [f ];
> pdffontknbcbase [k ]= pdffontknbcbase [f ];
> pdffontknacbase [k ]= pdffontknacbase [f ];
>}
>internalfontnumber
>ztfmlookup ( strnumber s , scaled fs )
>{
> register internalfontnumber Result;
> internalfontnumber k ;
> if ( fs != 0 )
> {
> {register integer for_end; k = 1 ;for_end = fontptr ; if ( k <= for_end)
> do
> if ( ( fontarea [k ]!= 1070 ) && zstreqstr((strnumber) (fontname [k ]), (strnumber) (s)) && (
> fontsize [k ]== fs ) )
> {
> zflushstr((strnumber) (s)) ;
> Result = k ;
> return Result ;
> }
> while ( k++ < for_end ) ;}
> }
> else {
>
> {register integer for_end; k = 1 ;for_end = fontptr ; if ( k <= for_end)
> do
> if ( ( fontarea [k ]!= 1070 ) && zstreqstr((strnumber) (fontname [k ]), (strnumber) (s)) )
> {
> zflushstr((strnumber) (s)) ;
> Result = k ;
> return Result ;
> }
> while ( k++ < for_end ) ;}
> }
> Result = 0 ;
> return Result ;
>}
>internalfontnumber
>zloadexpandfont ( internalfontnumber f , integer e )
>{
> register internalfontnumber Result;
> strnumber s ;
> internalfontnumber k ;
> s = zexpandfontname((internalfontnumber) (f), (integer) (e)) ;
> k = ztfmlookup((strnumber) (s), (scaled) (fontsize [f ])) ;
> if ( k == 0 )
> {
> if ( pdffontautoexpand [f ])
> k = zautoexpandfont((internalfontnumber) (f), (integer) (e)) ;
> else k = zreadfontinfo((halfword) (513), (strnumber) (s), (strnumber) (345), (scaled) (fontsize [f ])) ;
> }
> zcopyexpandparams((internalfontnumber) (k), (internalfontnumber) (f), (integer) (e)) ;
> Result = k ;
> return Result ;
>}
>integer
>zfixexpandvalue ( internalfontnumber f , integer e )
>{
> register integer Result;
> integer step ;
> integer maxexpand ;
> boolean neg ;
> Result = 0 ;
> if ( e == 0 )
> return Result ;
> if ( e < 0 )
> {
> e = - (integer) e ;
> neg = 1 ;
> maxexpand = - (integer) pdffontexpandratio [pdffontshrink [f ]];
> }
> else {
>
> neg = 0 ;
> maxexpand = pdffontexpandratio [pdffontstretch [f ]];
> }
> if ( e > maxexpand )
> e = maxexpand ;
> else {
>
> step = pdffontstep [f ];
> if ( e % step > 0 )
> e = step * zroundxnoverd((scaled) (e), (integer) (1), (integer) (step)) ;
> }
> if ( neg )
> e = - (integer) e ;
> Result = e ;
> return Result ;
>}
>internalfontnumber
>zgetexpandfont ( internalfontnumber f , integer e )
>{
> register internalfontnumber Result;
> internalfontnumber k ;
> k = pdffontelink [f ];
> while ( k != 0 ) {
>
> if ( pdffontexpandratio [k ]== e )
> {
> Result = k ;
> return Result ;
> }
> k = pdffontelink [k ];
> }
> k = zloadexpandfont((internalfontnumber) (f), (integer) (e)) ;
> pdffontelink [k ]= pdffontelink [f ];
> pdffontelink [f ]= k ;
> Result = k ;
> return Result ;
>}
>internalfontnumber
>zexpandfont ( internalfontnumber f , integer e )
>{
> register internalfontnumber Result;
> Result = f ;
> if ( e == 0 )
> return Result ;
> e = zfixexpandvalue((internalfontnumber) (f), (integer) (e)) ;
> if ( e == 0 )
> return Result ;
> if ( pdffontelink [f ]== 0 )
> zpdferror((strnumber) (1034), (strnumber) (1075)) ;
> Result = zgetexpandfont((internalfontnumber) (f), (integer) (e)) ;
> return Result ;
>}
>void
>zsetexpandparams ( internalfontnumber f , boolean autoexpand , integer
>stretchlimit , integer shrinklimit , integer fontstep , integer expandratio )
>{
> 
> pdffontstep [f ]= fontstep ;
> pdffontautoexpand [f ]= autoexpand ;
> if ( stretchlimit > 0 )
> pdffontstretch [f ]= zgetexpandfont((internalfontnumber) (f), (integer) (stretchlimit)) ;
> if ( shrinklimit > 0 )
> pdffontshrink [f ]= zgetexpandfont((internalfontnumber) (f), (integer) (- (integer) shrinklimit)) ;
> if ( expandratio != 0 )
> pdffontexpandratio [f ]= expandratio ;
>}
>void
>zvfexpandlocalfonts ( internalfontnumber f )
>{
> 
> internalfontnumber lf ;
> integer k ;
> ((pdffonttype [f ]== 1) ? (void) (0) : __assert_fail ("pdffonttype [f ]== 1", "pdftex0.c", 20803, __PRETTY_FUNCTION__)) ;
> {register integer for_end; k = 0 ;for_end = vflocalfontnum [f ]- 1
> ; if ( k <= for_end) do
> {
> lf = vfifnts [vfdefaultfont [f ]+ k ];
> zsetexpandparams((internalfontnumber) (lf), (boolean) (pdffontautoexpand [f ]), (integer) (pdffontexpandratio [ pdffontstretch [f ]]), (integer) (- (integer) pdffontexpandratio [pdffontshrink [f ]]), (integer) (pdffontstep [f ]), (integer) (pdffontexpandratio [f ]))
>
> ;
> if ( pdffonttype [lf ]== 1 )
> zvfexpandlocalfonts((internalfontnumber) (lf)) ;
> }
> while ( k++ < for_end ) ;}
>}
>void
>readexpandfont ( void )
>{
> 
> integer shrinklimit, stretchlimit, fontstep ;
> internalfontnumber f ;
> boolean autoexpand ;
> scanfontident () ;
> f = curval ;
> if ( f == 0 )
> zpdferror((strnumber) (1034), (strnumber) (872)) ;
> if ( pdffontblink [f ]!= 0 )
> zpdferror((strnumber) (1034), (strnumber) (1076)) ;
> scanoptionalequals () ;
> scanint () ;
> stretchlimit = zfixint((integer) (curval), (integer) (0), (integer) (1000)) ;
> scanint () ;
> shrinklimit = zfixint((integer) (curval), (integer) (0), (integer) (500)) ;
> scanint () ;
> fontstep = zfixint((integer) (curval), (integer) (0), (integer) (100)) ;
> if ( fontstep == 0 )
> zpdferror((strnumber) (1034), (strnumber) (1077)) ;
> stretchlimit = stretchlimit - stretchlimit % fontstep ;
> if ( stretchlimit < 0 )
> stretchlimit = 0 ;
> shrinklimit = shrinklimit - shrinklimit % fontstep ;
> if ( shrinklimit < 0 )
> shrinklimit = 0 ;
> if ( ( stretchlimit == 0 ) && ( shrinklimit == 0 ) )
> zpdferror((strnumber) (1034), (strnumber) (1078)) ;
> autoexpand = 0 ;
> if ( zscankeyword((strnumber) (1079)) )
> {
> autoexpand = 1 ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> if ( ( pdffontexpandratio [f ]!= 0 ) )
> zpdferror((strnumber) (1034), (strnumber) (1080)) ;
> if ( ( pdffontstep [f ]!= 0 ) )
> {
> if ( pdffontstep [f ]!= fontstep )
> zpdferror((strnumber) (1034), (strnumber) (1081)) ;
> if ( ( ( pdffontstretch [f ]== 0 ) && ( stretchlimit != 0 ) ) || ( (
> pdffontstretch [f ]!= 0 ) && ( pdffontexpandratio [pdffontstretch [f ]
> ]!= stretchlimit ) ) )
> zpdferror((strnumber) (1034), (strnumber) (1082)) ;
> if ( ( ( pdffontshrink [f ]== 0 ) && ( shrinklimit != 0 ) ) || ( (
> pdffontshrink [f ]!= 0 ) && ( - (integer) pdffontexpandratio [
> pdffontshrink [f ]]!= shrinklimit ) ) )
> zpdferror((strnumber) (1034), (strnumber) (1083)) ;
> if ( pdffontautoexpand [f ]!= autoexpand )
> zpdferror((strnumber) (1034), (strnumber) (1084)) ;
> }
> else {
>
> if ( ( pdffonttype [f ]!= 0 ) && ( pdffonttype [f ]!= 1 ) )
> zpdfwarning((strnumber) (1034), (strnumber) (1085), (boolean) (1), (boolean) (1)) ;
> zsetexpandparams((internalfontnumber) (f), (boolean) (autoexpand), (integer) (stretchlimit), (integer) (shrinklimit), (integer) (fontstep), (integer) (0))
> ;
> if ( pdffonttype [f ]== 1 )
> zvfexpandlocalfonts((internalfontnumber) (f)) ;
> }
>}
>internalfontnumber
>zletterspacefont ( halfword u , internalfontnumber f , integer e )
>{
> register internalfontnumber Result;
> internalfontnumber k ;
> scaled w, r ;
> strnumber s ;
> integer i, nw ;
> unsigned char oldsetting ;
> integer vfz ;
> integer vfalpha ;
> unsigned char vfbeta ;
> k = zreadfontinfo((halfword) (u), (strnumber) (fontname [f ]), (strnumber) (345), (scaled) (fontsize [f ])) ;
> if ( zscankeyword((strnumber) (1086)) )
> zsetnoligatures((internalfontnumber) (k)) ;
> nw = heightbase [k ]- widthbase [k ];
> {register integer for_end; i = 0 ;for_end = nw - 1 ; if ( i <= for_end) do
> fontinfo [widthbase [k ]+ i ].cint = fontinfo [widthbase [k ]+ i ]
> .cint + zroundxnoverd((scaled) (fontinfo [6 + parambase [k ]].cint), (integer) (e), (integer) (1000))
> ;
> while ( i++ < for_end ) ;}
> zflushstr((strnumber) (fontname [k ])) ;
> {
> if ( poolptr + ( strstart [fontname [k ]+ 1 ]- strstart [fontname [k
> ]]) + 7 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (fontname [k ])) ;
> if ( e > 0 )
> zprint((integer) (43)) ;
> zprintint((longinteger) (e)) ;
> zprint((integer) (1087)) ;
> selector = oldsetting ;
> fontname [k ]= makestring () ;
> allocvffnts () ;
> vfefnts [vfnf ]= 0 ;
> vfifnts [vfnf ]= f ;
> ++(vfnf) ;
> vflocalfontnum [k ]= 1 ;
> vfdefaultfont [k ]= vfnf - 1 ;
> pdffonttype [k ]= 1 ;
> vfz = fontsize [f ];
> {
> vfalpha = 16 ;
> while ( vfz >= 8388608L ) {
>
> vfz = vfz / 2 ;
> vfalpha = vfalpha + vfalpha ;
> }
> vfbeta = 256 / vfalpha ;
> vfalpha = vfalpha * vfz ;
> }
> w = zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (e), (integer) (2000)) ;
> if ( w >= 0 )
> tmpw .qqqq .u.B0 = 0 ;
> else {
>
> tmpw .qqqq .u.B0 = 255 ;
> w = vfalpha + w ;
> }
> r = w * vfbeta ;
> tmpw .qqqq .u.B1 = r / vfz ;
> r = r % vfz ;
> if ( r == 0 )
> tmpw .qqqq .u.B2 = 0 ;
> else {
>
> r = r * 256 ;
> tmpw .qqqq .u.B2 = r / vfz ;
> r = r % vfz ;
> }
> if ( r == 0 )
> tmpw .qqqq .u.B3 = 0 ;
> else {
>
> r = r * 256 ;
> tmpw .qqqq .u.B3 = r / vfz ;
> }
> vfpacketbase [k ]= newvfpacket ( k ) ;
> {register integer for_end; c = fontbc [k ];for_end = fontec [k ]; if (
> c <= for_end) do
> {
> {
> if ( poolptr + 12 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> {
> strpool [poolptr ]= 146 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B0 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B1 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B2 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B3 ;
> ++(poolptr) ;
> }
> if ( c < 128 )
> {
> strpool [poolptr ]= c ;
> ++(poolptr) ;
> }
> else {
>
> {
> strpool [poolptr ]= 128 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= c ;
> ++(poolptr) ;
> }
> }
> {
> strpool [poolptr ]= 146 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B0 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B1 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B2 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= tmpw .qqqq .u.B3 ;
> ++(poolptr) ;
> }
> s = makestring () ;
> storepacket ( k , c , s ) ;
> zflushstr((strnumber) (s)) ;
> }
> while ( c++ < for_end ) ;}
> Result = k ;
> return Result ;
>}
>void
>znewletterspacedfont ( smallnumber a )
>{
> register memoryword *eqtb=zeqtb;
> halfword u ;
> strnumber t ;
> unsigned char oldsetting ;
> internalfontnumber f, k ;
> getrtoken () ;
> u = curcs ;
> if ( u >= 514 )
> t = hash [u ].v.RH ;
> else if ( u >= 257 ) {
>
> if ( u == 513 )
> t = 1088 ;
> else t = u - 257 ;
> }
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (1088)) ;
> zprint((integer) (u - 1)) ;
> selector = oldsetting ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> t = makestring () ;
> }
> if ( ( a >= 4 ) )
> zgeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> else zeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> scanoptionalequals () ;
> scanfontident () ;
> k = curval ;
> scanint () ;
> f = zletterspacefont((halfword) (u), (internalfontnumber) (k), (integer) (zfixint((integer) (curval), (integer) (-1000), (integer) (1000)))) ;
> eqtb [u ].hh .v.RH = f ;
> eqtb [15526 + f ]= eqtb [u ];
> hash [15526 + f ].v.RH = t ;
>}
>boolean
>zisletterspacedfont ( internalfontnumber f )
>{
> register boolean Result;
> poolpointer i, j ;
> Result = 0 ;
> if ( pdffonttype [f ]!= 1 )
> return Result ;
> i = strstart [fontname [f ]+ 1 ]- 1 ;
> j = strstart [fontname [f ]];
> if ( ( strpool [i - 1 ]!= 'l' ) || ( strpool [i ]!= 's' ) )
> return Result ;
> i = i - 2 ;
> while ( i >= j ) {
>
> if ( ( strpool [i ]< '0' ) || ( strpool [i ]> '9' ) )
> goto lab30 ;
> i = i - 1 ;
> }
> lab30: if ( i < j )
> return Result ;
> if ( ( strpool [i ]!= '+' ) && ( strpool [i ]!= '-' ) )
> return Result ;
> Result = 1 ;
> return Result ;
>}
>internalfontnumber
>zcopyfontinfo ( internalfontnumber f )
>{
> register internalfontnumber Result;
> halfword lf, bc, ec, i ;
> internalfontnumber k ;
> if ( ( pdffontexpandratio [f ]!= 0 ) || ( pdffontstep [f ]!= 0 ) )
> zpdferror((strnumber) (1089), (strnumber) (1090)) ;
> if ( zisletterspacedfont((internalfontnumber) (f)) )
> zpdferror((strnumber) (1089), (strnumber) (1091)) ;
> k = fontptr + 1 ;
> ++(fontptr) ;
> if ( ( fontptr >= fontmax ) )
> zoverflow((strnumber) (1073), (integer) (fontmax)) ;
> fontname [k ]= fontname [f ];
> fontarea [k ]= 1070 ;
> hyphenchar [k ]= hyphenchar [f ];
> skewchar [k ]= skewchar [f ];
> fontbchar [k ]= fontbchar [f ];
> fontfalsebchar [k ]= fontfalsebchar [f ];
> fontbc [k ]= fontbc [f ];
> fontec [k ]= fontec [f ];
> fontsize [k ]= fontsize [f ];
> fontdsize [k ]= fontdsize [f ];
> fontparams [k ]= fontparams [f ];
> fontglue [k ]= fontglue [f ];
> bcharlabel [k ]= bcharlabel [f ];
> bc = fontbc [f ];
> ec = fontec [f ];
> charbase [k ]= fmemptr - bc ;
> widthbase [k ]= charbase [k ]+ ec + 1 ;
> heightbase [k ]= widthbase [k ]+ ( heightbase [f ]- widthbase [f ])
> ;
> depthbase [k ]= heightbase [k ]+ ( depthbase [f ]- heightbase [f ])
> ;
> italicbase [k ]= depthbase [k ]+ ( italicbase [f ]- depthbase [f ])
> ;
> ligkernbase [k ]= italicbase [k ]+ ( ligkernbase [f ]- italicbase [f
> ]) ;
> kernbase [k ]= ligkernbase [k ]+ ( kernbase [f ]- ligkernbase [f ])
> ;
> extenbase [k ]= kernbase [k ]+ ( extenbase [f ]- kernbase [f ]) ;
> parambase [k ]= extenbase [k ]+ ( parambase [f ]- extenbase [f ]) ;
> lf = ( parambase [f ]- charbase [f ]) + fontparams [f ]+ 1 ;
> if ( ( fmemptr + lf >= fontmemsize ) )
> zoverflow((strnumber) (1074), (integer) (fontmemsize)) ;
> {register integer for_end; i = 0 ;for_end = lf - 1 ; if ( i <= for_end) do
> fontinfo [charbase [k ]+ bc + i ]= fontinfo [charbase [f ]+ bc + i
> ];
> while ( i++ < for_end ) ;}
> fmemptr = fmemptr + lf ;
> Result = k ;
> return Result ;
>}
>void
>zmakefontcopy ( smallnumber a )
>{
> register memoryword *eqtb=zeqtb;
> halfword u ;
> strnumber t ;
> unsigned char oldsetting ;
> internalfontnumber f, k ;
> getrtoken () ;
> u = curcs ;
> if ( u >= 514 )
> t = hash [u ].v.RH ;
> else if ( u >= 257 ) {
>
> if ( u == 513 )
> t = 1088 ;
> else t = u - 257 ;
> }
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (1088)) ;
> zprint((integer) (u - 1)) ;
> selector = oldsetting ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> t = makestring () ;
> }
> if ( ( a >= 4 ) )
> zgeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> else zeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> scanoptionalequals () ;
> scanfontident () ;
> k = curval ;
> f = zcopyfontinfo((internalfontnumber) (k)) ;
> eqtb [u ].hh .v.RH = f ;
> eqtb [15526 + f ]= eqtb [u ];
> hash [15526 + f ].v.RH = t ;
>}
>void
>zvferror ( strnumber filename , strnumber msg )
>{
> 
> unsigned char oldsetting ;
> strnumber s ;
> {
> if ( poolptr + ( strstart [filename + 1 ]- strstart [filename ]) + 3 >
> poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (filename)) ;
> zprint((integer) (1092)) ;
> s = makestring () ;
> selector = oldsetting ;
> zpdferror((strnumber) (s), (strnumber) (msg)) ;
>}
>eightbits
>vfbyte ( void )
>{
> register eightbits Result;
> integer i ;
> i = _IO_getc (vffile) ;
> if ( i < 0 )
> zpdferror((strnumber) (1093), (strnumber) (1094)) ;
> Result = i ;
> return Result ;
>}
>integer
>zvfreadsigned ( integer k )
>{
> register integer Result;
> integer i ;
> ((( k > 0 ) && ( k <= 4 )) ? (void) (0) : __assert_fail ("( k > 0 ) && ( k <= 4 )", "pdftex0.c", 21235, __PRETTY_FUNCTION__)) ;
> i = vfbyte () ;
> if ( i >= 128 )
> i = i - 256 ;
> --(k) ;
> while ( k > 0 ) {
>
> i = i * 256 + vfbyte () ;
> --(k) ;
> }
> Result = i ;
> return Result ;
>}
>integer
>zvfreadunsigned ( integer k )
>{
> register integer Result;
> integer i ;
> ((( k > 0 ) && ( k <= 4 )) ? (void) (0) : __assert_fail ("( k > 0 ) && ( k <= 4 )", "pdftex0.c", 21253, __PRETTY_FUNCTION__)) ;
> i = vfbyte () ;
> if ( ( k == 4 ) && ( i >= 128 ) )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1026)) ;
> --(k) ;
> while ( k > 0 ) {
>
> i = i * 256 + vfbyte () ;
> --(k) ;
> }
> Result = i ;
> return Result ;
>}
>void
>zvflocalfontwarning ( internalfontnumber f , internalfontnumber k , strnumber
>s )
>{
> 
> zprintnl((strnumber) (s)) ;
> zprint((integer) (1095)) ;
> zprint((integer) (fontname [k ])) ;
> zprint((integer) (1096)) ;
> zprint((integer) (fontname [f ])) ;
> zprint((integer) (1097)) ;
>}
>internalfontnumber
>zvfdeffont ( internalfontnumber f )
>{
> register internalfontnumber Result;
> internalfontnumber k ;
> strnumber s ;
> scaled ds, fs ;
> fourquarters cs ;
> cs .u.B0 = vfbyte () ;
> cs .u.B1 = vfbyte () ;
> cs .u.B2 = vfbyte () ;
> cs .u.B3 = vfbyte () ;
> fs = zstorescaledf((scaled) (zvfreadsigned((integer) (4))), (scaled) (fontsize [f ])) ;
> ds = zvfreadsigned((integer) (4)) / 16 ;
> tmpw .qqqq .u.B0 = vfbyte () ;
> tmpw .qqqq .u.B1 = vfbyte () ;
> while ( tmpw .qqqq .u.B0 > 0 ) {
>
> --(tmpw .qqqq .u.B0) ;
> {
> if ( vfbyte () != 0 )
> ;
> }
> }
> {
> if ( poolptr + tmpw .qqqq .u.B1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> while ( tmpw .qqqq .u.B1 > 0 ) {
>
> --(tmpw .qqqq .u.B1) ;
> {
> strpool [poolptr ]= vfbyte () ;
> ++(poolptr) ;
> }
> }
> s = makestring () ;
> k = ztfmlookup((strnumber) (s), (scaled) (fs)) ;
> if ( k == 0 )
> k = zreadfontinfo((halfword) (513), (strnumber) (s), (strnumber) (345), (scaled) (fs)) ;
> if ( k != 0 )
> {
> if ( ( ( cs .u.B0 != 0 ) || ( cs .u.B1 != 0 ) || ( cs .u.B2 != 0 ) || ( cs .u.B3
> != 0 ) ) && ( ( fontcheck [k ].u.B0 != 0 ) || ( fontcheck [k ].u.B1 != 0 )
> || ( fontcheck [k ].u.B2 != 0 ) || ( fontcheck [k ].u.B3 != 0 ) ) && ( (
> cs .u.B0 != fontcheck [k ].u.B0 ) || ( cs .u.B1 != fontcheck [k ].u.B1 ) || (
> cs .u.B2 != fontcheck [k ].u.B2 ) || ( cs .u.B3 != fontcheck [k ].u.B3 ) ) )
> zvflocalfontwarning((internalfontnumber) (f), (internalfontnumber) (k), (strnumber) (1098)) ;
> if ( ds != fontdsize [k ])
> zvflocalfontwarning((internalfontnumber) (f), (internalfontnumber) (k), (strnumber) (1099)) ;
> }
> if ( ( pdffontstep [f ]!= 0 ) )
> zsetexpandparams((internalfontnumber) (k), (boolean) (pdffontautoexpand [f ]), (integer) (pdffontexpandratio [ pdffontstretch [f ]]), (integer) (- (integer) pdffontexpandratio [pdffontshrink [f ]]), (integer) (pdffontstep [f ]), (integer) (pdffontexpandratio [f ]))
>
> ;
> Result = k ;
> return Result ;
>}
>void
>zdovf ( internalfontnumber f )
>{
> 
> integer cmd, k, n ;
> integer cc, cmdlength, packetlength ;
> scaled tfmwidth ;
> strnumber s ;
> vfstackindex stacklevel ;
> internalfontnumber savevfnf ;
> pdffonttype [f ]= 2 ;
> if ( zautoexpandvf((internalfontnumber) (f)) )
> return ;
> stacklevel = 0 ;
> zpackfilename((strnumber) (fontname [f ]), (strnumber) (345), (strnumber) (1092)) ;
> if ( ! open_input (&(vffile), kpse_vf_format, "rb") )
> return ;
> if ( vfbyte () != 247 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1101)) ;
> if ( vfbyte () != 202 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1102)) ;
> cmdlength = vfbyte () ;
> {register integer for_end; k = 1 ;for_end = cmdlength ; if ( k <= for_end)
> do
> {
> if ( vfbyte () != 0 )
> ;
> }
> while ( k++ < for_end ) ;}
> tmpw .qqqq .u.B0 = vfbyte () ;
> tmpw .qqqq .u.B1 = vfbyte () ;
> tmpw .qqqq .u.B2 = vfbyte () ;
> tmpw .qqqq .u.B3 = vfbyte () ;
> if ( ( ( tmpw .qqqq .u.B0 != 0 ) || ( tmpw .qqqq .u.B1 != 0 ) || ( tmpw .qqqq
> .u.B2 != 0 ) || ( tmpw .qqqq .u.B3 != 0 ) ) && ( ( fontcheck [f ].u.B0 != 0 ) ||
> ( fontcheck [f ].u.B1 != 0 ) || ( fontcheck [f ].u.B2 != 0 ) || ( fontcheck
> [f ].u.B3 != 0 ) ) && ( ( tmpw .qqqq .u.B0 != fontcheck [f ].u.B0 ) || ( tmpw
> .qqqq .u.B1 != fontcheck [f ].u.B1 ) || ( tmpw .qqqq .u.B2 != fontcheck [f ]
> .u.B2 ) || ( tmpw .qqqq .u.B3 != fontcheck [f ].u.B3 ) ) )
> {
> zprintnl((strnumber) (1103)) ;
> zprint((integer) (fontname [f ])) ;
> zprint((integer) (1104)) ;
> }
> if ( zvfreadsigned((integer) (4)) / 16 != fontdsize [f ])
> {
> zprintnl((strnumber) (1105)) ;
> zprint((integer) (fontname [f ])) ;
> zprint((integer) (1104)) ;
> }
> fflush ( stdout ) ;
> cmd = vfbyte () ;
> savevfnf = vfnf ;
> while ( ( cmd >= 243 ) && ( cmd <= 246 ) ) {
>
> allocvffnts () ;
> vfefnts [vfnf ]= zvfreadunsigned((integer) (cmd - 242)) ;
> vfifnts [vfnf ]= zvfdeffont((internalfontnumber) (f)) ;
> ++(vfnf) ;
> cmd = vfbyte () ;
> }
> vfdefaultfont [f ]= savevfnf ;
> vflocalfontnum [f ]= vfnf - savevfnf ;
> vfpacketbase [f ]= newvfpacket ( f ) ;
> while ( cmd <= 242 ) {
>
> if ( cmd == 242 )
> {
> packetlength = zvfreadunsigned((integer) (4)) ;
> cc = zvfreadunsigned((integer) (4)) ;
> if ( ! ( ( fontbc [f ]<= cc ) && ( cc <= fontec [f ]) && ( fontinfo
> [charbase [f ]+ cc ].qqqq .u.B0 > 0 ) ) )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1106)) ;
> tfmwidth = zstorescaledf((scaled) (zvfreadsigned((integer) (4))), (scaled) (fontsize [f ])) ;
> }
> else {
>
> packetlength = cmd ;
> cc = vfbyte () ;
> if ( ! ( ( fontbc [f ]<= cc ) && ( cc <= fontec [f ]) && ( fontinfo
> [charbase [f ]+ cc ].qqqq .u.B0 > 0 ) ) )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1106)) ;
> tfmwidth = zstorescaledf((scaled) (zvfreadunsigned((integer) (3))), (scaled) (fontsize [f ])) ;
> }
> if ( packetlength < 0 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1107)) ;
> if ( packetlength > 10000 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1108)) ;
> if ( tfmwidth != fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (cc)) ].qqqq .u.B0 ].cint )
> {
> zprintnl((strnumber) (1109)) ;
> zprint((integer) (fontname [f ])) ;
> zprint((integer) (1104)) ;
> }
> {
> if ( poolptr + packetlength > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> while ( packetlength > 0 ) {
>
> cmd = vfbyte () ;
> --(packetlength) ;
> if ( ( cmd >= 0 ) && ( cmd <= 127 ) )
> cmdlength = 0 ;
> else if ( ( ( 171 <= cmd ) && ( cmd <= 234 ) ) || ( ( 235 <= cmd ) && (
> cmd <= 238 ) ) )
> {
> if ( cmd >= 235 )
> {
> k = zvfreadunsigned((integer) (cmd - 234)) ;
> packetlength = packetlength - ( cmd - 234 ) ;
> }
> else k = cmd - 171 ;
> if ( k >= 256 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1112)) ;
> n = 0 ;
> while ( ( n < vflocalfontnum [f ]) && ( vfefnts [vfdefaultfont [f
> ]+ n ]!= k ) ) ++(n) ;
> if ( n == vflocalfontnum [f ])
> zvferror((strnumber) (fontname [f ]), (strnumber) (1113)) ;
> if ( k <= 63 )
> {
> strpool [poolptr ]= 171 + k ;
> ++(poolptr) ;
> }
> else {
>
> {
> strpool [poolptr ]= 235 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= k ;
> ++(poolptr) ;
> }
> }
> cmdlength = 0 ;
> cmd = 138 ;
> }
> else switch ( cmd )
> {case 132 :
> case 137 :
> cmdlength = 8 ;
> break ;
> case 128 :
> case 129 :
> case 130 :
> case 131 :
> cmdlength = cmd - 127 ;
> break ;
> case 133 :
> case 134 :
> case 135 :
> case 136 :
> cmdlength = cmd - 132 ;
> break ;
> case 143 :
> case 144 :
> case 145 :
> case 146 :
> cmdlength = cmd - 142 ;
> break ;
> case 148 :
> case 149 :
> case 150 :
> case 151 :
> cmdlength = cmd - 147 ;
> break ;
> case 153 :
> case 154 :
> case 155 :
> case 156 :
> cmdlength = cmd - 152 ;
> break ;
> case 157 :
> case 158 :
> case 159 :
> case 160 :
> cmdlength = cmd - 156 ;
> break ;
> case 162 :
> case 163 :
> case 164 :
> case 165 :
> cmdlength = cmd - 161 ;
> break ;
> case 167 :
> case 168 :
> case 169 :
> case 170 :
> cmdlength = cmd - 166 ;
> break ;
> case 239 :
> case 240 :
> case 241 :
> case 242 :
> {
> cmdlength = zvfreadunsigned((integer) (cmd - 238)) ;
> packetlength = packetlength - ( cmd - 238 ) ;
> if ( cmdlength > 10000 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1108)) ;
> if ( cmdlength < 0 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1114)) ;
> {
> strpool [poolptr ]= 239 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= cmdlength ;
> ++(poolptr) ;
> }
> cmd = 138 ;
> }
> break ;
> case 147 :
> case 152 :
> case 161 :
> case 166 :
> case 138 :
> cmdlength = 0 ;
> break ;
> case 141 :
> case 142 :
> {
> cmdlength = 0 ;
> if ( cmd == 141 ) {
>
> if ( stacklevel == ( 100 ) )
> zoverflow((strnumber) (1115), (integer) (( 100 ))) ;
> else ++(stacklevel) ;
> }
> else if ( stacklevel == 0 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1116)) ;
> else --(stacklevel) ;
> }
> break ;
> default:
> zvferror((strnumber) (fontname [f ]), (strnumber) (1117)) ;
> break ;
> }
> if ( cmd != 138 )
> {
> strpool [poolptr ]= cmd ;
> ++(poolptr) ;
> }
> packetlength = packetlength - cmdlength ;
> while ( cmdlength > 0 ) {
>
> --(cmdlength) ;
> {
> strpool [poolptr ]= vfbyte () ;
> ++(poolptr) ;
> }
> }
> }
> if ( stacklevel != 0 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1110)) ;
> if ( packetlength != 0 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1111)) ;
> s = makestring () ;
> storepacket ( f , cc , s ) ;
> zflushstr((strnumber) (s)) ;
> cmd = vfbyte () ;
> }
> if ( cmd != 248 )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1100)) ;
> close_file_or_pipe(vffile) ;
> pdffonttype [f ]= 1 ;
>}
>void
>pdfcheckvfcurval ( void )
>{
> 
> internalfontnumber f ;
> f = curval ;
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zpdferror((strnumber) (592), (strnumber) (1118)) ;
>}
>boolean
>zautoexpandvf ( internalfontnumber f )
>{
> register boolean Result;
> internalfontnumber bf, lf ;
> integer e, k ;
> Result = 0 ;
> if ( ( ! pdffontautoexpand [f ]) || ( pdffontblink [f ]== 0 ) )
> return Result ;
> bf = pdffontblink [f ];
> if ( pdffonttype [bf ]== 0 )
> zdovf((internalfontnumber) (bf)) ;
> if ( pdffonttype [bf ]!= 1 )
> return Result ;
> e = pdffontexpandratio [f ];
> {register integer for_end; k = 0 ;for_end = vflocalfontnum [bf ]- 1
> ; if ( k <= for_end) do
> {
> lf = vfdefaultfont [bf ]+ k ;
> allocvffnts () ;
> vfefnts [vfnf ]= vfefnts [lf ];
> vfifnts [vfnf ]= zautoexpandfont((internalfontnumber) (vfifnts [lf ]), (integer) (e)) ;
> zcopyexpandparams((internalfontnumber) (vfifnts [vfnf ]), (internalfontnumber) (vfifnts [lf ]), (integer) (e)) ;
> ++(vfnf) ;
> }
> while ( k++ < for_end ) ;}
> vfpacketbase [f ]= vfpacketbase [bf ];
> vflocalfontnum [f ]= vflocalfontnum [bf ];
> vfdefaultfont [f ]= vfnf - vflocalfontnum [f ];
> pdffonttype [f ]= 1 ;
> Result = 1 ;
> return Result ;
>}
>integer
>zpacketreadsigned ( integer k )
>{
> register integer Result;
> integer i ;
> ((( k > 0 ) && ( k <= 4 )) ? (void) (0) : __assert_fail ("( k > 0 ) && ( k <= 4 )", "pdftex0.c", 21654, __PRETTY_FUNCTION__)) ;
> i = packetbyte () ;
> if ( i >= 128 )
> i = i - 256 ;
> --(k) ;
> while ( k > 0 ) {
>
> i = i * 256 + packetbyte () ;
> --(k) ;
> }
> Result = i ;
> return Result ;
>}
>integer
>zpacketreadunsigned ( integer k )
>{
> register integer Result;
> integer i ;
> ((( k > 0 ) && ( k <= 4 )) ? (void) (0) : __assert_fail ("( k > 0 ) && ( k <= 4 )", "pdftex0.c", 21672, __PRETTY_FUNCTION__)) ;
> i = packetbyte () ;
> if ( ( k == 4 ) && ( i >= 128 ) )
> zvferror((strnumber) (fontname [f ]), (strnumber) (1026)) ;
> --(k) ;
> while ( k > 0 ) {
>
> i = i * 256 + packetbyte () ;
> --(k) ;
> }
> Result = i ;
> return Result ;
>}
>scaled
>zpacketscaled ( integer k , scaled fs )
>{
> register scaled Result;
> Result = zstorescaledf((scaled) (zpacketreadsigned((integer) (k))), (scaled) (fs)) ;
> return Result ;
>}
>void
>zdovfpacket ( internalfontnumber vff , eightbits c )
>{
> 
> internalfontnumber f, k, n ;
> scaled savecurh, savecurv ;
> integer cmd ;
> boolean charmove ;
> scaled w, x, y, z ;
> strnumber s ;
> ++(vfcurs) ;
> if ( vfcurs > ( 10 ) )
> zoverflow((strnumber) (1119), (integer) (( 10 ))) ;
> savecurv = curv ;
> savecurh = curh ;
> pushpacketstate () ;
> startpacket ( vff , c ) ;
> f = vfifnts [vfdefaultfont [vff ]];
> w = 0 ;
> x = 0 ;
> y = 0 ;
> z = 0 ;
> while ( vfpacketlength > 0 ) {
>
> cmd = packetbyte () ;
> if ( ( cmd >= 0 ) && ( cmd <= 127 ) )
> {
> if ( ! ( ( fontbc [f ]<= cmd ) && ( cmd <= fontec [f ]) && (
> fontinfo [charbase [f ]+ cmd ].qqqq .u.B0 > 0 ) ) )
> {
> zcharwarning((internalfontnumber) (f), (eightbits) (cmd)) ;
> goto lab22 ;
> }
> c = cmd ;
> charmove = 1 ;
> goto lab70 ;
> }
> else if ( ( ( 171 <= cmd ) && ( cmd <= 234 ) ) || ( cmd == 235 ) )
> {
> if ( cmd == 235 )
> k = packetbyte () ;
> else k = cmd - 171 ;
> n = 0 ;
> while ( ( n < vflocalfontnum [vff ]) && ( vfefnts [vfdefaultfont [
> vff ]+ n ]!= k ) ) ++(n) ;
> if ( ( n == vflocalfontnum [vff ]) )
> zpdferror((strnumber) (1093), (strnumber) (1120)) ;
> else f = vfifnts [vfdefaultfont [vff ]+ n ];
> }
> else switch ( cmd )
> {case 141 :
> {
> vfstack [vfstackptr ].stackh = curh ;
> vfstack [vfstackptr ].stackv = curv ;
> vfstack [vfstackptr ].stackw = w ;
> vfstack [vfstackptr ].stackx = x ;
> vfstack [vfstackptr ].stacky = y ;
> vfstack [vfstackptr ].stackz = z ;
> ++(vfstackptr) ;
> }
> break ;
> case 142 :
> {
> --(vfstackptr) ;
> curh = vfstack [vfstackptr ].stackh ;
> curv = vfstack [vfstackptr ].stackv ;
> w = vfstack [vfstackptr ].stackw ;
> x = vfstack [vfstackptr ].stackx ;
> y = vfstack [vfstackptr ].stacky ;
> z = vfstack [vfstackptr ].stackz ;
> }
> break ;
> case 128 :
> case 129 :
> case 130 :
> case 131 :
> case 133 :
> case 134 :
> case 135 :
> case 136 :
> {
> if ( ( 128 <= cmd ) && ( cmd <= 131 ) )
> {
> tmpw .cint = zpacketreadunsigned((integer) (cmd - 127)) ;
> charmove = 1 ;
> }
> else {
>
> tmpw .cint = zpacketreadunsigned((integer) (cmd - 132)) ;
> charmove = 0 ;
> }
> if ( ! ( ( fontbc [f ]<= tmpw .cint ) && ( tmpw .cint <= fontec [f
> ]) && ( fontinfo [charbase [f ]+ tmpw .cint ].qqqq .u.B0 > 0 ) ) )
> {
> zcharwarning((internalfontnumber) (f), (eightbits) (tmpw .cint)) ;
> goto lab22 ;
> }
> c = tmpw .cint ;
> goto lab70 ;
> }
> break ;
> case 132 :
> case 137 :
> {
> ruleht = zpacketscaled((integer) (4), (scaled) (fontsize [vff ])) ;
> rulewd = zpacketscaled((integer) (4), (scaled) (fontsize [vff ])) ;
> if ( ( rulewd > 0 ) && ( ruleht > 0 ) )
> {
> zpdfsetrule((scaled) (curh), (scaled) (curv), (scaled) (rulewd), (scaled) (ruleht)) ;
> if ( cmd == 132 )
> curh = curh + rulewd ;
> }
> }
> break ;
> case 143 :
> case 144 :
> case 145 :
> case 146 :
> curh = curh + zpacketscaled((integer) (cmd - 142), (scaled) (fontsize [vff ])) ;
> break ;
> case 147 :
> case 148 :
> case 149 :
> case 150 :
> case 151 :
> {
> if ( cmd > 147 )
> w = zpacketscaled((integer) (cmd - 147), (scaled) (fontsize [vff ])) ;
> curh = curh + w ;
> }
> break ;
> case 152 :
> case 153 :
> case 154 :
> case 155 :
> case 156 :
> {
> if ( cmd > 152 )
> x = zpacketscaled((integer) (cmd - 152), (scaled) (fontsize [vff ])) ;
> curh = curh + x ;
> }
> break ;
> case 157 :
> case 158 :
> case 159 :
> case 160 :
> curv = curv + zpacketscaled((integer) (cmd - 156), (scaled) (fontsize [vff ])) ;
> break ;
> case 161 :
> case 162 :
> case 163 :
> case 164 :
> case 165 :
> {
> if ( cmd > 161 )
> y = zpacketscaled((integer) (cmd - 161), (scaled) (fontsize [vff ])) ;
> curv = curv + y ;
> }
> break ;
> case 166 :
> case 167 :
> case 168 :
> case 169 :
> case 170 :
> {
> if ( cmd > 166 )
> z = zpacketscaled((integer) (cmd - 166), (scaled) (fontsize [vff ])) ;
> curv = curv + z ;
> }
> break ;
> case 239 :
> case 240 :
> case 241 :
> case 242 :
> {
> tmpw .cint = zpacketreadunsigned((integer) (cmd - 238)) ;
> {
> if ( poolptr + tmpw .cint > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> while ( tmpw .cint > 0 ) {
>
> --(tmpw .cint) ;
> {
> strpool [poolptr ]= packetbyte () ;
> ++(poolptr) ;
> }
> }
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (3), (boolean) (0)) ;
> zflushstr((strnumber) (s)) ;
> }
> break ;
> default:
> zpdferror((strnumber) (1093), (strnumber) (1121)) ;
> break ;
> }
> goto lab22 ;
> lab70: if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo
> [charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> {
> if ( pdffonttype [f ]== 0 )
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zdovfpacket((internalfontnumber) (f), (eightbits) (c)) ;
> else {
>
> zpdfbeginstring((internalfontnumber) (f)) ;
> zpdfprintchar((internalfontnumber) (f), (integer) (c)) ;
> zadvcharwidth((internalfontnumber) (f), (eightbits) (c)) ;
> }
> }
> else zcharwarning((internalfontnumber) (f), (eightbits) (c)) ;
> if ( charmove )
> curh = curh + fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B0 ].cint ;
> lab22: ;
> }
> poppacketstate () ;
> curv = savecurv ;
> curh = savecurh ;
> --(vfcurs) ;
>}
>void
>zpdfoutliteral ( halfword p )
>{
> register memoryword *mem=zmem;
> unsigned char oldsetting ;
> strnumber s ;
> oldsetting = selector ;
> selector = 21 ;
> zshowtokenlist((integer) (mem [mem [p + 1 ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr))
> ;
> selector = oldsetting ;
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (mem [p + 1 ].hh .v.LH), (boolean) (0)) ;
> zflushstr((strnumber) (s)) ;
>}
>void
>zpdfoutcolorstack ( halfword p )
>{
> register memoryword *mem=zmem;
> unsigned char oldsetting ;
> strnumber s ;
> integer cmd ;
> integer stackno ;
> integer literalmode ;
> cmd = mem [p + 1 ].hh .v.LH ;
> stackno = mem [p + 1 ].hh .v.RH ;
> if ( stackno >= colorstackused () )
> {
> zprintnl((strnumber) (345)) ;
> zprint((integer) (1122)) ;
> zprintint((longinteger) (stackno)) ;
> zprint((integer) (1123)) ;
> zprintnl((strnumber) (345)) ;
> return ;
> }
> switch ( cmd )
> {case 0 :
> case 1 :
> {
> oldsetting = selector ;
> selector = 21 ;
> zshowtokenlist((integer) (mem [mem [p + 2 ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr))
> ;
> selector = oldsetting ;
> s = makestring () ;
> if ( cmd == 0 )
> literalmode = colorstackset ( stackno , s ) ;
> else literalmode = colorstackpush ( stackno , s ) ;
> if ( ( strstart [s + 1 ]- strstart [s ]) > 0 )
> zliteral((strnumber) (s), (integer) (literalmode), (boolean) (0)) ;
> zflushstr((strnumber) (s)) ;
> return ;
> }
> break ;
> case 2 :
> literalmode = colorstackpop ( stackno ) ;
> break ;
> case 3 :
> literalmode = colorstackcurrent ( stackno ) ;
> break ;
> default:
> zconfusion((strnumber) (1124)) ;
> break ;
> }
> if ( ( poolptr - strstart [strptr ]) > 0 )
> {
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (literalmode), (boolean) (0)) ;
> zflushstr((strnumber) (s)) ;
> }
>}
>void
>pdfoutcolorstackstartpage ( void )
>{
> 
> integer i ;
> integer max ;
> integer startstatus ;
> integer literalmode ;
> strnumber s ;
> i = 0 ;
> max = colorstackused () ;
> while ( i < max ) {
>
> startstatus = colorstackskippagestart ( i ) ;
> if ( startstatus == 0 )
> {
> literalmode = colorstackcurrent ( i ) ;
> if ( ( poolptr - strstart [strptr ]) > 0 )
> {
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (literalmode), (boolean) (0)) ;
> zflushstr((strnumber) (s)) ;
> }
> }
> ++(i) ;
> }
>}
>void
>zpdfoutsetmatrix ( halfword p )
>{
> register memoryword *mem=zmem;
> unsigned char oldsetting ;
> strnumber s ;
> oldsetting = selector ;
> selector = 21 ;
> zshowtokenlist((integer) (mem [mem [p + 1 ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr))
> ;
> selector = oldsetting ;
> {
> if ( poolptr + 7 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> strpool [poolptr ]= 0 ;
> if ( pdfsetmatrix ( strstart [strptr ], curh , curpageheight - curv ) == 1
> )
> {
> {
> if ( poolptr + 7 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> {
> strpool [poolptr ]= 32 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 48 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 32 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 48 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 32 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 99 ;
> ++(poolptr) ;
> }
> {
> strpool [poolptr ]= 109 ;
> ++(poolptr) ;
> }
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (0), (boolean) (0)) ;
> }
> else {
>
> zpdferror((strnumber) (1125), (strnumber) (1126)) ;
> }
> zflushstr((strnumber) (s)) ;
>}
>void
>zpdfoutsave ( halfword p )
>{
> 
> checkpdfsave ( curh , curv ) ;
> zliteral((strnumber) (113), (integer) (0), (boolean) (0)) ;
>}
>void
>zpdfoutrestore ( halfword p )
>{
> 
> checkpdfrestore ( curh , curv ) ;
> zliteral((strnumber) (81), (integer) (0), (boolean) (0)) ;
>}
>void
>zpdfspecial ( halfword p )
>{
> register memoryword *mem=zmem;
> unsigned char oldsetting ;
> strnumber s ;
> oldsetting = selector ;
> selector = 21 ;
> zshowtokenlist((integer) (mem [mem [p + 1 ].hh .v.RH ].hh .v.RH), (integer) (-268435455L), (integer) (poolsize - poolptr))
> ;
> selector = oldsetting ;
> s = makestring () ;
> zliteral((strnumber) (s), (integer) (3), (boolean) (1)) ;
> zflushstr((strnumber) (s)) ;
>}
>void
>zpdfprinttoks ( halfword p )
>{
> 
> strnumber s ;
> s = ztokenstostring((halfword) (p)) ;
> if ( ( strstart [s + 1 ]- strstart [s ]) > 0 )
> zpdfprint((strnumber) (s)) ;
> zflushstr((strnumber) (s)) ;
>}
>void
>zpdfprinttoksln ( halfword p )
>{
> 
> strnumber s ;
> s = ztokenstostring((halfword) (p)) ;
> if ( ( strstart [s + 1 ]- strstart [s ]) > 0 )
> {
> {
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> zflushstr((strnumber) (s)) ;
>}
>void
>zpdfwriteobj ( integer n )
>{
> 
> strnumber s ;
> bytefile f ;
> s = ztokenstostring((halfword) (pdfmem [objtab [n ].int4 + 0 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [n ].int4 + 0 ])) ;
> pdfmem [objtab [n ].int4 + 0 ]= -268435455L ;
> }
> if ( pdfmem [objtab [n ].int4 + 1 ]> 0 )
> {
> zpdfbegindict((integer) (n), (integer) (0)) ;
> if ( pdfmem [objtab [n ].int4 + 2 ]!= -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfmem [objtab [n ].int4 + 2 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [n ].int4 + 2 ])) ;
> pdfmem [objtab [n ].int4 + 2 ]= -268435455L ;
> }
> }
> pdfbeginstream () ;
> }
> else zpdfbeginobj((integer) (n), (integer) (1)) ;
> if ( pdfmem [objtab [n ].int4 + 3 ]> 0 )
> {
> curname = s ;
> curarea = 345 ;
> curext = 345 ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
> if ( ! open_input (&(f), kpse_tex_format, "rb") )
> zpdferror((strnumber) (1156), (strnumber) (1157)) ;
> zprint((integer) (1064)) ;
> zprint((integer) (s)) ;
> if ( ! eof ( f ) )
> {
> while ( ! eof ( f ) ) {
>
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= _IO_getc (f) ;
> ++(pdfptr) ;
> }
> }
> if ( ( ! pdfmem [objtab [n ].int4 + 1 ]) && ( pdfptr > 0 ) && (
> pdfbuf [pdfptr - 1 ]!= 10 ) )
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zprint((integer) (1016)) ;
> close_file_or_pipe(f) ;
> }
> else if ( pdfmem [objtab [n ].int4 + 1 ]> 0 )
> zpdfprint((strnumber) (s)) ;
> else {
>
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( pdfmem [objtab [n ].int4 + 1 ]> 0 )
> pdfendstream () ;
> else pdfendobj () ;
> zflushstr((strnumber) (s)) ;
>}
>void
>zflushwhatsitnode ( halfword p , smallnumber s )
>{
> register memoryword *mem=zmem;
> mem [p ].hh.u.B0 = 8 ;
> mem [p ].hh.u.B1 = s ;
> if ( mem [p ].hh .v.RH != -268435455L )
> zpdferror((strnumber) (1158), (strnumber) (1159)) ;
> zflushnodelist((halfword) (p)) ;
>}
>void
>zpdfwriteimage ( integer n )
>{
> 
> zpdfbegindict((integer) (n), (integer) (0)) ;
> if ( pdfmem [objtab [n ].int4 + 3 ]!= -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfmem [objtab [n ].int4 + 3 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [n ].int4 + 3 ])) ;
> pdfmem [objtab [n ].int4 + 3 ]= -268435455L ;
> }
> }
> if ( fixedpdfdraftmode == 0 )
> writeimage ( pdfmem [objtab [n ].int4 + 4 ]) ;
> deleteimage ( pdfmem [objtab [n ].int4 + 4 ]) ;
>}
>void
>zpdfprintrectspec ( halfword r )
>{
> register memoryword *mem=zmem;
> zpdfprintmagbp((scaled) (( ( mem [r + 1 ].cint ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( pdforiginv - ( mem [r + 4 ].cint ) ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( ( mem [r + 3 ].cint ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( pdforiginv - ( mem [r + 2 ].cint ) ))) ;
>}
>void
>zwarndestdup ( integer id , smallnumber byname , strnumber s1 , strnumber s2 )
>{
> register memoryword *eqtb=zeqtb;
> if ( eqtb [27266 ].cint > 0 )
> return ;
> zpdfwarning((strnumber) (s1), (strnumber) (1830), (boolean) (0), (boolean) (0)) ;
> if ( byname > 0 )
> {
> zprint((integer) (1816)) ;
> zprintmark((integer) (id)) ;
> }
> else {
>
> zprint((integer) (1185)) ;
> zprintint((longinteger) (id)) ;
> }
> zprint((integer) (1831)) ;
> zprint((integer) (s2)) ;
> println () ;
> showcontext () ;
>}
>void
>zwriteaction ( halfword p )
>{
> register memoryword *mem=zmem;
> strnumber s ;
> integer d ;
> if ( mem [p ].hh.u.B0 == 3 )
> {
> zpdfprinttoksln((halfword) (mem [p + 2 ].hh .v.LH)) ;
> return ;
> }
> zpdfprint((strnumber) (1228)) ;
> if ( mem [p + 1 ].hh .v.LH != -268435455L )
> {
> zpdfprint((strnumber) (1911)) ;
> s = ztokenstostring((halfword) (mem [p + 1 ].hh .v.LH)) ;
> if ( ( strpool [strstart [s ]]== 40 ) && ( strpool [strstart [s ]+
> ( strstart [s + 1 ]- strstart [s ]) - 1 ]== 41 ) )
> zpdfprint((strnumber) (s)) ;
> else {
>
> zpdfprintstr((strnumber) (s)) ;
> }
> zflushstr((strnumber) (s)) ;
> zpdfprint((strnumber) (32)) ;
> if ( mem [p + 1 ].hh .v.RH > 0 )
> {
> zpdfprint((strnumber) (1912)) ;
> if ( mem [p + 1 ].hh .v.RH == 1 )
> zpdfprint((strnumber) (1913)) ;
> else zpdfprint((strnumber) (1914)) ;
> }
> }
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> {
> if ( mem [p + 1 ].hh .v.LH == -268435455L )
> {
> zpdfprint((strnumber) (1915)) ;
> zpdfprintint((longinteger) (zgetobj((integer) (1), (integer) (mem [p ].hh .v.RH), (boolean) (0)))) ;
> zpdfprint((strnumber) (1068)) ;
> }
> else {
>
> zpdfprint((strnumber) (1916)) ;
> zpdfprintint((longinteger) (mem [p ].hh .v.RH - 1)) ;
> }
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (ztokenstostring((halfword) (mem [p + 2 ].hh .v.LH)))) ;
> zflushstr((strnumber) (lasttokensstring)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 93 ;
> ++(pdfptr) ;
> }
> }
> }
> break ;
> case 1 :
> {
> if ( mem [p + 1 ].hh .v.LH == -268435455L )
> {
> zpdfprint((strnumber) (1917)) ;
> d = zgetobj((integer) (5), (integer) (mem [p ].hh .v.RH), (boolean) (mem [p ].hh.u.B1)) ;
> }
> else zpdfprint((strnumber) (1918)) ;
> if ( mem [p ].hh.u.B1 > 0 )
> {
> zpdfstrentry((strnumber) (68), (strnumber) (ztokenstostring((halfword) (mem [p ].hh .v.RH)))) ;
> zflushstr((strnumber) (lasttokensstring)) ;
> }
> else if ( mem [p + 1 ].hh .v.LH == -268435455L )
> zpdfindirect((strnumber) (68), (integer) (d)) ;
> else zpdferror((strnumber) (1843), (strnumber) (1817)) ;
> }
> break ;
> case 2 :
> {
> zpdfprint((strnumber) (1919)) ;
> if ( mem [p + 1 ].hh .v.LH == -268435455L )
> d = zgetobj((integer) (9), (integer) (mem [p ].hh .v.RH), (boolean) (mem [p ].hh.u.B1)) ;
> if ( mem [p ].hh.u.B1 > 0 )
> {
> zpdfstrentry((strnumber) (68), (strnumber) (ztokenstostring((halfword) (mem [p ].hh .v.RH)))) ;
> zflushstr((strnumber) (lasttokensstring)) ;
> }
> else if ( mem [p + 1 ].hh .v.LH == -268435455L )
> zpdfindirect((strnumber) (68), (integer) (d)) ;
> else zpdfintentry((strnumber) (68), (integer) (mem [p ].hh .v.RH)) ;
> }
> break ;
> }
> {
> zpdfprint((strnumber) (1229)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zsetrectdimens ( halfword p , halfword parentbox , scaled x , scaled y ,
>scaled w , scaled h , scaled d , scaled margin )
>{
> register memoryword *mem=zmem;
> mem [p + 1 ].cint = curh ;
> if ( ( w == -1073741824L ) )
> mem [p + 3 ].cint = x + mem [parentbox + 1 ].cint ;
> else mem [p + 3 ].cint = curh + w ;
> if ( ( h == -1073741824L ) )
> mem [p + 2 ].cint = y - mem [parentbox + 3 ].cint ;
> else mem [p + 2 ].cint = curv - h ;
> if ( ( d == -1073741824L ) )
> mem [p + 4 ].cint = y + mem [parentbox + 2 ].cint ;
> else mem [p + 4 ].cint = curv + d ;
> if ( isshippingpage && matrixused () )
> {
> matrixtransformrect ( mem [p + 1 ].cint , curpageheight - mem [p + 4 ]
> .cint , mem [p + 3 ].cint , curpageheight - mem [p + 2 ].cint ) ;
> mem [p + 1 ].cint = getllx () ;
> mem [p + 4 ].cint = curpageheight - getlly () ;
> mem [p + 3 ].cint = geturx () ;
> mem [p + 2 ].cint = curpageheight - getury () ;
> }
> mem [p + 1 ].cint = mem [p + 1 ].cint - margin ;
> mem [p + 2 ].cint = mem [p + 2 ].cint - margin ;
> mem [p + 3 ].cint = mem [p + 3 ].cint + margin ;
> mem [p + 4 ].cint = mem [p + 4 ].cint + margin ;
>}
>void
>zdoannot ( halfword p , halfword parentbox , scaled x , scaled y )
>{
> register memoryword *mem=zmem;
> if ( ! isshippingpage )
> zpdferror((strnumber) (1843), (strnumber) (1920)) ;
> if ( doingleaders )
> return ;
> if ( ( objtab [mem [p + 6 ].cint ].int2 > -2 ) )
> mem [p + 6 ].cint = pdfnewobjnum () ;
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ] .cint), (scaled) (mem [p + 3 ].cint), (scaled) (0))
> ;
> objtab [mem [p + 6 ].cint ].int4 = p ;
> {
> pdfappendlistarg = mem [p + 6 ].cint ;
> pdfannotlist = zappendptr((halfword) (pdfannotlist), (integer) (pdfappendlistarg)) ;
> }
> if ( objtab [mem [p + 6 ].cint ].int2 == -2 )
> objtab [mem [p + 6 ].cint ].int2 = -1 ;
>}
>void
>zpushlinklevel ( halfword p )
>{
> register memoryword *mem=zmem;
> if ( pdflinkstackptr >= ( 10 ) )
> zoverflow((strnumber) (1921), (integer) (( 10 ))) ;
> ((( mem [p ].hh.u.B0 == 8 ) && ( mem [p ].hh.u.B1 == 14 )) ? (void) (0) : __assert_fail ("( mem [p ].hh.u.B0 == 8 ) && ( mem [p ].hh.u.B1 == 14 )", "pdftex0.c", 22523, __PRETTY_FUNCTION__)) ;
> ++(pdflinkstackptr) ;
> pdflinkstack [pdflinkstackptr ].nestinglevel = curs ;
> pdflinkstack [pdflinkstackptr ].linknode = zcopynodelist((halfword) (p)) ;
> pdflinkstack [pdflinkstackptr ].reflinknode = p ;
>}
>void
>poplinklevel ( void )
>{
> 
> ((pdflinkstackptr > 0) ? (void) (0) : __assert_fail ("pdflinkstackptr > 0", "pdftex0.c", 22533, __PRETTY_FUNCTION__)) ;
> zflushnodelist((halfword) (pdflinkstack [pdflinkstackptr ].linknode)) ;
> --(pdflinkstackptr) ;
>}
>void
>zdolink ( halfword p , halfword parentbox , scaled x , scaled y )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( ! isshippingpage )
> zpdferror((strnumber) (1843), (strnumber) (1922)) ;
> ((mem [parentbox ].hh.u.B0 == 0) ? (void) (0) : __assert_fail ("mem [parentbox ].hh.u.B0 == 0", "pdftex0.c", 22543, __PRETTY_FUNCTION__)) ;
> if ( ( objtab [mem [p + 6 ].cint ].int2 > -2 ) )
> mem [p + 6 ].cint = pdfnewobjnum () ;
> zpushlinklevel((halfword) (p)) ;
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ] .cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27817 ].cint))
> ;
> objtab [mem [p + 6 ].cint ].int4 = p ;
> {
> pdfappendlistarg = mem [p + 6 ].cint ;
> pdflinklist = zappendptr((halfword) (pdflinklist), (integer) (pdfappendlistarg)) ;
> }
> if ( objtab [mem [p + 6 ].cint ].int2 == -2 )
> objtab [mem [p + 6 ].cint ].int2 = -1 ;
>}
>void
>endlink ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> if ( pdflinkstackptr < 1 )
> zpdferror((strnumber) (1843), (strnumber) (1923)) ;
> if ( pdflinkstack [pdflinkstackptr ].nestinglevel != curs )
> zpdferror((strnumber) (1843), (strnumber) (1924)) ;
> if ( ( mem [pdflinkstack [pdflinkstackptr ].linknode + 1 ].cint ==
> -1073741824L ) )
> {
> p = pdflinkstack [pdflinkstackptr ].reflinknode ;
> if ( isshippingpage && matrixused () )
> {
> matrixrecalculate ( curh + eqtb [27817 ].cint ) ;
> mem [p + 1 ].cint = getllx () - eqtb [27817 ].cint ;
> mem [p + 2 ].cint = curpageheight - getury () - eqtb [27817 ].cint ;
> mem [p + 3 ].cint = geturx () + eqtb [27817 ].cint ;
> mem [p + 4 ].cint = curpageheight - getlly () + eqtb [27817 ].cint ;
> }
> else mem [p + 3 ].cint = curh + eqtb [27817 ].cint ;
> }
> poplinklevel () ;
>}
>void
>zappendlink ( halfword parentbox , scaled x , scaled y , smallnumber i )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> ((mem [parentbox ].hh.u.B0 == 0) ? (void) (0) : __assert_fail ("mem [parentbox ].hh.u.B0 == 0", "pdftex0.c", 22587, __PRETTY_FUNCTION__)) ;
> p = zcopynodelist((halfword) (pdflinkstack [i ].linknode)) ;
> pdflinkstack [i ].reflinknode = p ;
> mem [p ].hh .v.LH = 268435455L ;
> mem [p ].hh .v.RH = -268435455L ;
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ] .cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27817 ].cint))
> ;
> zpdfcreateobj((integer) (0), (integer) (0)) ;
> objtab [objptr ].int4 = p ;
> {
> pdfappendlistarg = objptr ;
> pdflinklist = zappendptr((halfword) (pdflinklist), (integer) (pdfappendlistarg)) ;
> }
>}
>void
>zappendbead ( halfword p )
>{
> register memoryword *mem=zmem;
> integer a, b, c, t ;
> if ( ! isshippingpage )
> zpdferror((strnumber) (1843), (strnumber) (1925)) ;
> t = zgetobj((integer) (9), (integer) (mem [p + 5 ].hh .v.RH), (boolean) (mem [p + 5 ].hh.u.B1)) ;
> b = pdfnewobjnum () ;
> objtab [b ].int4 = zpdfgetmem((integer) (5)) ;
> pdfmem [objtab [b ].int4 + 1 ]= pdflastpage ;
> pdfmem [objtab [b ].int4 ]= p ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> pdfmem [objtab [b ].int4 + 4 ]= ztokenstostring((halfword) (mem [p + 6 ].hh .v.LH))
> ;
> else pdfmem [objtab [b ].int4 + 4 ]= 0 ;
> if ( objtab [t ].int4 == 0 )
> {
> objtab [t ].int4 = b ;
> pdfmem [objtab [b ].int4 + 2 ]= b ;
> pdfmem [objtab [b ].int4 + 3 ]= b ;
> }
> else {
>
> a = objtab [t ].int4 ;
> c = pdfmem [objtab [a ].int4 + 3 ];
> pdfmem [objtab [b ].int4 + 3 ]= c ;
> pdfmem [objtab [b ].int4 + 2 ]= a ;
> pdfmem [objtab [a ].int4 + 3 ]= b ;
> pdfmem [objtab [c ].int4 + 2 ]= b ;
> }
> {
> pdfappendlistarg = b ;
> pdfbeadlist = zappendptr((halfword) (pdfbeadlist), (integer) (pdfappendlistarg)) ;
> }
>}
>void
>zdothread ( halfword p , halfword parentbox , scaled x , scaled y )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( doingleaders )
> return ;
> if ( mem [p ].hh.u.B1 == 19 )
> {
> pdfthreadwd = mem [p + 1 ].cint ;
> pdfthreadht = mem [p + 2 ].cint ;
> pdfthreaddp = mem [p + 3 ].cint ;
> pdflastthreadid = mem [p + 5 ].hh .v.RH ;
> pdflastthreadnamedid = ( mem [p + 5 ].hh.u.B1 > 0 ) ;
> if ( pdflastthreadnamedid )
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> pdfthreadlevel = curs ;
> }
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ] .cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27819 ].cint))
> ;
> zappendbead((halfword) (p)) ;
> lastthread = p ;
>}
>void
>zappendthread ( halfword parentbox , scaled x , scaled y )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> p = zgetnode((integer) (7)) ;
> mem [p ].hh .v.LH = 268435455L ;
> mem [p ].hh .v.RH = -268435455L ;
> mem [p + 1 ].cint = pdfthreadwd ;
> mem [p + 2 ].cint = pdfthreadht ;
> mem [p + 3 ].cint = pdfthreaddp ;
> mem [p + 6 ].hh .v.LH = -268435455L ;
> mem [p + 5 ].hh .v.RH = pdflastthreadid ;
> if ( pdflastthreadnamedid )
> {
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> mem [p + 5 ].hh.u.B1 = 1 ;
> }
> else mem [p + 5 ].hh.u.B1 = 0 ;
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ] .cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27819 ].cint))
> ;
> zappendbead((halfword) (p)) ;
> lastthread = p ;
>}
>void
>endthread ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( pdfthreadlevel != curs )
> zpdferror((strnumber) (1843), (strnumber) (1926)) ;
> if ( ( pdfthreaddp == -1073741824L ) && ( lastthread != -268435455L ) )
> mem [lastthread + 4 ].cint = curv + eqtb [27819 ].cint ;
> if ( pdflastthreadnamedid )
> zdeletetokenref((halfword) (pdflastthreadid)) ;
> lastthread = -268435455L ;
>}
>integer
>zopensubentries ( halfword p )
>{
> register integer Result;
> integer k, c ;
> integer l, r ;
> k = 0 ;
> if ( pdfmem [objtab [p ].int4 + 4 ]!= 0 )
> {
> l = pdfmem [objtab [p ].int4 + 4 ];
> do {
> ++(k) ;
> c = zopensubentries((halfword) (l)) ;
> if ( objtab [l ].int0 > 0 )
> k = k + c ;
> pdfmem [objtab [l ].int4 + 1 ]= p ;
> r = pdfmem [objtab [l ].int4 + 3 ];
> if ( r == 0 )
> pdfmem [objtab [p ].int4 + 5 ]= l ;
> l = r ;
> } while ( ! ( l == 0 ) ) ;
> }
> if ( objtab [p ].int0 > 0 )
> objtab [p ].int0 = k ;
> else objtab [p ].int0 = - (integer) k ;
> Result = k ;
> return Result ;
>}
>void
>zdodest ( halfword p , halfword parentbox , scaled x , scaled y )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer k ;
> if ( ! isshippingpage )
> zpdferror((strnumber) (1843), (strnumber) (1927)) ;
> if ( doingleaders )
> return ;
> k = zgetobj((integer) (5), (integer) (mem [p + 5 ].hh .v.RH), (boolean) (mem [p + 5 ].hh.u.B1)) ;
> if ( objtab [k ].int4 != -268435455L )
> {
> zwarndestdup((integer) (mem [p + 5 ].hh .v.RH), (smallnumber) (mem [p + 5 ].hh.u.B1), (strnumber) (1843), (strnumber) (1844))
> ;
> return ;
> }
> objtab [k ].int4 = p ;
> {
> pdfappendlistarg = k ;
> pdfdestlist = zappendptr((halfword) (pdfdestlist), (integer) (pdfappendlistarg)) ;
> }
> switch ( mem [p + 5 ].hh.u.B0 )
> {case 0 :
> if ( matrixused () )
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ].cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27818 ].cint))
> ;
> else {
>
> mem [p + 1 ].cint = curh ;
> mem [p + 2 ].cint = curv ;
> }
> break ;
> case 2 :
> case 5 :
> if ( matrixused () )
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ].cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27818 ].cint))
> ;
> else mem [p + 2 ].cint = curv ;
> break ;
> case 3 :
> case 6 :
> if ( matrixused () )
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ].cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27818 ].cint))
> ;
> else mem [p + 1 ].cint = curh ;
> break ;
> case 1 :
> case 4 :
> ;
> break ;
> case 7 :
> zsetrectdimens((halfword) (p), (halfword) (parentbox), (scaled) (x), (scaled) (y), (scaled) (mem [p + 1 ].cint), (scaled) (mem [p + 2 ].cint), (scaled) (mem [p + 3 ].cint), (scaled) (eqtb [27818 ].cint))
> ;
> break ;
> }
>}
>void
>zoutform ( halfword p )
>{
> register memoryword *mem=zmem;
> pdfendtext () ;
> {
> zpdfprint((strnumber) (113)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( zpdflookuplist((halfword) (pdfxformlist), (integer) (mem [p + 4 ].hh .v.LH)) == -268435455L
> )
> {
> pdfappendlistarg = mem [p + 4 ].hh .v.LH ;
> pdfxformlist = zappendptr((halfword) (pdfxformlist), (integer) (pdfappendlistarg)) ;
> }
> curv = curv + pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 2 ];
> zpdfprint((strnumber) (1027)) ;
> zpdfprintbp((scaled) (( ( curh ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (( pdforiginv - ( curv ) ))) ;
> {
> zpdfprint((strnumber) (1028)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1141)) ;
> zpdfprintint((longinteger) (objtab [mem [p + 4 ].hh .v.LH ].int0)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> zpdfprint((strnumber) (1928)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (81)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zoutimage ( halfword p )
>{
> register memoryword *mem=zmem;
> integer image, groupref ;
> integer imgw, imgh ;
> image = pdfmem [objtab [mem [p + 4 ].hh .v.LH ].int4 + 4 ];
> if ( ( imagerotate ( image ) == 90 ) || ( imagerotate ( image ) == 270 ) )
> {
> imgh = imagewidth ( image ) ;
> imgw = imageheight ( image ) ;
> }
> else {
>
> imgw = imagewidth ( image ) ;
> imgh = imageheight ( image ) ;
> }
> pdfendtext () ;
> {
> zpdfprint((strnumber) (113)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( zpdflookuplist((halfword) (pdfximagelist), (integer) (mem [p + 4 ].hh .v.LH)) ==
> -268435455L )
> {
> pdfappendlistarg = mem [p + 4 ].hh .v.LH ;
> pdfximagelist = zappendptr((halfword) (pdfximagelist), (integer) (pdfappendlistarg)) ;
> }
> if ( ! ispdfimage ( image ) )
> {
> if ( ispngimage ( image ) )
> {
> groupref = getimagegroupref ( image ) ;
> if ( ( groupref > 0 ) && ( pdfpagegroupval == 0 ) )
> pdfpagegroupval = groupref ;
> }
> zpdfprintreal((integer) (extxnoverd ( mem [p + 1 ].cint , tenpow [6 ], onehundredbp )), (integer) (4))
> ;
> zpdfprint((strnumber) (1136)) ;
> zpdfprintreal((integer) (extxnoverd ( mem [p + 2 ].cint + mem [p + 3 ].cint , tenpow [6 ], onehundredbp )), (integer) (4))
> ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (( ( curh ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (( pdforiginv - ( curv ) ))) ;
> }
> else {
>
> groupref = getimagegroupref ( image ) ;
> if ( ( groupref != 0 ) && ( pdfpagegroupval == 0 ) )
> {
> if ( groupref == -1 )
> {
> pdfpagegroupval = pdfnewobjnum () ;
> setimagegroupref ( image , pdfpagegroupval ) ;
> }
> else pdfpagegroupval = groupref ;
> }
> zpdfprintreal((integer) (extxnoverd ( mem [p + 1 ].cint , tenpow [6 ], imgw )), (integer) (6))
> ;
> zpdfprint((strnumber) (1136)) ;
> zpdfprintreal((integer) (extxnoverd ( mem [p + 2 ].cint + mem [p + 3 ].cint , tenpow [6 ], imgh )), (integer) (6))
> ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (( ( curh ) - pdforiginh ) - extxnoverd ( mem [p + 1 ].cint , epdforigx ( image ) , imgw )))
> ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (( pdforiginv - ( curv ) ) - extxnoverd ( mem [p + 2 ].cint + mem [p + 3 ].cint , epdforigy ( image ) , imgh )))
> ;
> }
> {
> zpdfprint((strnumber) (1028)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1142)) ;
> zpdfprintint((longinteger) (objtab [mem [p + 4 ].hh .v.LH ].int0)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> zpdfprint((strnumber) (1928)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (81)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>scaled
>zgapamount ( halfword p , scaled curpos )
>{
> register scaled Result; register memoryword *mem=zmem;
> scaled snapunit, stretchamount, shrinkamount ;
> scaled lastpos, nextpos, g, g2 ;
> snapunit = mem [mem [p + 1 ].hh .v.LH + 1 ].cint ;
> if ( mem [mem [p + 1 ].hh .v.LH ].hh.u.B0 > 0 )
> stretchamount = 1073741823L ;
> else stretchamount = mem [mem [p + 1 ].hh .v.LH + 2 ].cint ;
> if ( mem [mem [p + 1 ].hh .v.LH ].hh.u.B1 > 0 )
> shrinkamount = 1073741823L ;
> else shrinkamount = mem [mem [p + 1 ].hh .v.LH + 3 ].cint ;
> if ( mem [p ].hh.u.B1 == 34 )
> lastpos = pdfsnapyrefpos + snapunit * ( ( curpos - pdfsnapyrefpos ) /
> snapunit ) ;
> else zpdferror((strnumber) (1929), (strnumber) (1930)) ;
> nextpos = lastpos + snapunit ;
> g = 1073741823L ;
> g2 = 1073741823L ;
> Result = 0 ;
> if ( curpos - lastpos < shrinkamount )
> g = curpos - lastpos ;
> if ( ( nextpos - curpos < stretchamount ) )
> g2 = nextpos - curpos ;
> if ( ( g == 1073741823L ) && ( g2 == 1073741823L ) )
> return Result ;
> if ( g2 <= g )
> Result = g2 ;
> else Result = - (integer) g ;
> return Result ;
>}
>halfword
>zgetvpos ( halfword p , halfword q , halfword b )
>{
> register halfword Result; register memoryword *mem=zmem;
> scaled tmpv ;
> glueord gorder ;
> unsigned char gsign ;
> real gluetemp ;
> real curglue ;
> scaled curg ;
> halfword thisbox ;
> tmpv = curv ;
> thisbox = b ;
> curg = 0 ;
> curglue = 0.0 ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> while ( ( p != q ) && ( p != -268435455L ) ) {
>
> if ( ( p >= himemmin ) )
> zconfusion((strnumber) (1939)) ;
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> tmpv = tmpv + mem [p + 3 ].cint + mem [p + 2 ].cint ;
> break ;
> case 8 :
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> tmpv = tmpv + mem [p + 2 ].cint + mem [p + 3 ].cint ;
> break ;
> case 10 :
> {
> {
> g = mem [p + 1 ].hh .v.LH ;
> ruleht = mem [g + 1 ].cint - curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
> curglue = curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
> curglue = curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> ruleht = ruleht + curg ;
> }
> tmpv = tmpv + ruleht ;
> }
> break ;
> case 11 :
> tmpv = tmpv + mem [p + 1 ].cint ;
> break ;
> default:
> ;
> break ;
> }
> }
> p = mem [p ].hh .v.RH ;
> }
> Result = tmpv ;
> return Result ;
>}
>void
>zdosnapycomp ( halfword p , halfword b )
>{
> register memoryword *mem=zmem;
> halfword q ;
> scaled tmpv, g, g2 ;
> if ( ! ( ! ( p >= himemmin ) && ( mem [p ].hh.u.B0 == 8 ) && ( mem [p ]
> .hh.u.B1 == 35 ) ) )
> zpdferror((strnumber) (1929), (strnumber) (1940)) ;
> q = p ;
> while ( ( q != -268435455L ) ) {
>
> if ( ! ( q >= himemmin ) && ( mem [q ].hh.u.B0 == 8 ) && ( mem [q ]
> .hh.u.B1 == 34 ) )
> {
> tmpv = zgetvpos((halfword) (p), (halfword) (q), (halfword) (b)) ;
> g = zgapamount((halfword) (q), (scaled) (tmpv)) ;
> g2 = zroundxnoverd((scaled) (g), (integer) (mem [p + 1 ].cint), (integer) (1000)) ;
> curv = curv + g2 ;
> mem [q + 2 ].cint = g - g2 ;
> if ( mem [q + 2 ].cint == 0 )
> mem [q + 2 ].cint = 1 ;
> return ;
> }
> q = mem [q ].hh .v.RH ;
> }
>}
>void
>zdosnapy ( halfword p )
>{
> register memoryword *mem=zmem;
> ++(countdosnapy) ;
> if ( mem [p + 2 ].cint != 0 )
> curv = curv + mem [p + 2 ].cint ;
> else curv = curv + zgapamount((halfword) (p), (scaled) (curv)) ;
>}
>void
>pdfhlistout ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled baseline ;
> scaled leftedge ;
> scaled saveh ;
> halfword thisbox ;
> glueord gorder ;
> unsigned char gsign ;
> halfword p ;
> halfword leaderbox ;
> scaled leaderwd ;
> scaled lx ;
> boolean outerdoingleaders ;
> scaled edge ;
> halfword prevp ;
> real gluetemp ;
> real curglue ;
> scaled curg ;
> smallnumber i ;
> curg = 0 ;
> curglue = 0.0 ;
> thisbox = tempptr ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> p = mem [thisbox + 5 ].hh .v.RH ;
> ++(curs) ;
> baseline = curv ;
> prevp = thisbox + 5 ;
> if ( ( eTeXmode == 1 ) )
> {
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = 0 ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( mem [thisbox ].hh.u.B1 ) == 2 ) {
>
> if ( curdir == 1 )
> {
> curdir = 0 ;
> curh = curh - mem [thisbox + 1 ].cint ;
> }
> else mem [thisbox ].hh.u.B1 = 0 ;
> }
> if ( ( curdir == 1 ) && ( ( mem [thisbox ].hh.u.B1 ) != 1 ) )
> {
> saveh = curh ;
> tempptr = p ;
> p = znewkern((scaled) (0)) ;
> mem [p + 2 ].cint = 0 ;
> mem [prevp ].hh .v.RH = p ;
> curh = 0 ;
> mem [p ].hh .v.RH = zzreverse((halfword) (thisbox), (halfword) (-268435455L), (scaled *) &(curg), (real *) &(curglue))
> ;
> mem [p + 1 ].cint = - (integer) curh ;
> curh = saveh ;
> mem [thisbox ].hh.u.B1 = 1 ;
> }
> }
> leftedge = curh ;
> {register integer for_end; i = 1 ;for_end = pdflinkstackptr ; if ( i <=
> for_end) do
> {
> ((( mem [pdflinkstack [i ].linknode + 1 ].cint == -1073741824L )) ? (void) (0) : __assert_fail ("( mem [pdflinkstack [i ].linknode + 1 ].cint == -1073741824L )",
> "pdftex0.c"
># 23288 "pdftex0.c" 3 4
> ,
> 23289
># 23288 "pdftex0.c" 3 4
> , __PRETTY_FUNCTION__))
> ;
> if ( ( pdflinkstack [i ].nestinglevel == curs ) )
> zappendlink((halfword) (thisbox), (scaled) (leftedge), (scaled) (baseline), (smallnumber) (i)) ;
> }
> while ( i++ < for_end ) ;}
> synctexhlist ( thisbox ) ;
> while ( p != -268435455L ) lab21: if ( ( p >= himemmin ) )
> {
> do {
> f = mem [p ].hh.u.B0 ;
> c = mem [p ].hh.u.B1 ;
> if ( ( ( fontbc [f ]<= c ) && ( c <= fontec [f ]) && ( fontinfo [
> charbase [f ]+ c ].qqqq .u.B0 > 0 ) ) )
> {
> {
> if ( pdffonttype [f ]== 0 )
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zdovfpacket((internalfontnumber) (f), (eightbits) (c)) ;
> else {
>
> zpdfbeginstring((internalfontnumber) (f)) ;
> zpdfprintchar((internalfontnumber) (f), (integer) (c)) ;
> zadvcharwidth((internalfontnumber) (f), (eightbits) (c)) ;
> }
> }
> curh = curh + fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B0 ].cint ;
> goto lab22 ;
> }
> if ( mltexenabledp )
> {
> if ( c >= eqtb [27232 ].cint ) {
>
> if ( c <= eqtb [27233 ].cint ) {
>
> if ( ( eqtb [26921 + c ].hh .v.RH > 0 ) )
> {
> basec = ( eqtb [26921 + c ].hh .v.RH % 256 ) ;
> accentc = ( eqtb [26921 + c ].hh .v.RH / 256 ) ;
> if ( ( fontec [f ]>= basec ) ) {
>
> if ( ( fontbc [f ]<= basec ) ) {
>
> if ( ( fontec [f ]>= accentc ) ) {
>
> if ( ( fontbc [f ]<= accentc ) )
> {
> iac = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (accentc))
> ].qqqq ;
> ibc = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (basec))
> ].qqqq ;
> if ( ( ibc .u.B0 > 0 ) ) {
>
> if ( ( iac .u.B0 > 0 ) )
> goto lab40 ;
> }
> }
> }
> }
> }
> begindiagnostic () ;
> zprintnl((strnumber) (2061)) ;
> zprint((integer) (c)) ;
> zprint((integer) (1617)) ;
> zprint((integer) (accentc)) ;
> zprint((integer) (32)) ;
> zprint((integer) (basec)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> goto lab22 ;
> }
> }
> }
> begindiagnostic () ;
> zprintnl((strnumber) (981)) ;
> zprint((integer) (2060)) ;
> zprint((integer) (c)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (33)) ;
> zenddiagnostic((boolean) (0)) ;
> goto lab22 ;
> lab40: if ( eqtb [27212 ].cint > 99 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (2062)) ;
> zprint((integer) (c)) ;
> zprint((integer) (1617)) ;
> zprint((integer) (accentc)) ;
> zprint((integer) (32)) ;
> zprint((integer) (basec)) ;
> zprint((integer) (982)) ;
> zslowprint((integer) (fontname [f ])) ;
> zprintchar((ASCIIcode) (46)) ;
> zenddiagnostic((boolean) (0)) ;
> }
> basexheight = fontinfo [5 + parambase [f ]].cint ;
> baseslant = fontinfo [1 + parambase [f ]].cint / ((double) 65536.0
> ) ;
> accentslant = baseslant ;
> basewidth = fontinfo [widthbase [f ]+ ibc .u.B0 ].cint ;
> baseheight = fontinfo [heightbase [f ]+ ( ibc .u.B1 ) / 16 ].cint ;
> accentwidth = fontinfo [widthbase [f ]+ iac .u.B0 ].cint ;
> accentheight = fontinfo [heightbase [f ]+ ( iac .u.B1 ) / 16 ].cint
> ;
> delta = zround ((double) (( basewidth - accentwidth ) / ((double) 2.0 ) + baseheight * baseslant - basexheight * accentslant))
> ;
> curh = curh + delta ;
> if ( ( ( baseheight != basexheight ) && ( accentheight > 0 ) ) )
> {
> curv = baseline + ( basexheight - baseheight ) ;
> {
> if ( pdffonttype [f ]== 0 )
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zdovfpacket((internalfontnumber) (f), (eightbits) (accentc)) ;
> else {
>
> zpdfbeginstring((internalfontnumber) (f)) ;
> zpdfprintchar((internalfontnumber) (f), (integer) (accentc)) ;
> zadvcharwidth((internalfontnumber) (f), (eightbits) (accentc)) ;
> }
> }
> curv = baseline ;
> }
> else {
>
> {
> if ( pdffonttype [f ]== 0 )
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zdovfpacket((internalfontnumber) (f), (eightbits) (accentc)) ;
> else {
>
> zpdfbeginstring((internalfontnumber) (f)) ;
> zpdfprintchar((internalfontnumber) (f), (integer) (accentc)) ;
> zadvcharwidth((internalfontnumber) (f), (eightbits) (accentc)) ;
> }
> }
> }
> curh = curh + accentwidth ;
> curh = curh + ( - (integer) accentwidth - delta ) ;
> {
> if ( pdffonttype [f ]== 0 )
> zdovf((internalfontnumber) (f)) ;
> if ( pdffonttype [f ]== 1 )
> zdovfpacket((internalfontnumber) (f), (eightbits) (basec)) ;
> else {
>
> zpdfbeginstring((internalfontnumber) (f)) ;
> zpdfprintchar((internalfontnumber) (f), (integer) (basec)) ;
> zadvcharwidth((internalfontnumber) (f), (eightbits) (basec)) ;
> }
> }
> curh = curh + basewidth ;
> }
> lab22: prevp = mem [prevp ].hh .v.RH ;
> p = mem [p ].hh .v.RH ;
> } while ( ! ( ! ( p >= himemmin ) ) ) ;
> synctexcurrent () ;
> }
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> if ( mem [p + 5 ].hh .v.RH == -268435455L )
> {
> if ( mem [p ].hh.u.B0 == 1 )
> {
> synctexvoidvlist ( p , thisbox ) ;
> }
> else {
>
> synctexvoidhlist ( p , thisbox ) ;
> }
> curh = curh + mem [p + 1 ].cint ;
> }
> else {
>
> curv = baseline + mem [p + 4 ].cint ;
> tempptr = p ;
> edge = curh + mem [p + 1 ].cint ;
> if ( curdir == 1 )
> curh = edge ;
> if ( mem [p ].hh.u.B0 == 1 )
> pdfvlistout () ;
> else pdfhlistout () ;
> curh = edge ;
> curv = baseline ;
> }
> break ;
> case 2 :
> {
> ruleht = mem [p + 3 ].cint ;
> ruledp = mem [p + 2 ].cint ;
> rulewd = mem [p + 1 ].cint ;
> goto lab14 ;
> }
> break ;
> case 8 :
> switch ( mem [p ].hh.u.B1 )
> {case 6 :
> zpdfoutliteral((halfword) (p)) ;
> break ;
> case 37 :
> zpdfoutcolorstack((halfword) (p)) ;
> break ;
> case 38 :
> zpdfoutsetmatrix((halfword) (p)) ;
> break ;
> case 39 :
> zpdfoutsave((halfword) (p)) ;
> break ;
> case 40 :
> zpdfoutrestore((halfword) (p)) ;
> break ;
> case 8 :
> {
> pdfappendlistarg = mem [p + 1 ].hh .v.LH ;
> pdfobjlist = zappendptr((halfword) (pdfobjlist), (integer) (pdfappendlistarg)) ;
> }
> break ;
> case 10 :
> {
> curv = baseline ;
> edge = curh ;
> zoutform((halfword) (p)) ;
> curh = edge + mem [p + 1 ].cint ;
> curv = baseline ;
> }
> break ;
> case 12 :
> {
> curv = baseline + mem [p + 3 ].cint ;
> edge = curh ;
> zoutimage((halfword) (p)) ;
> curh = edge + mem [p + 1 ].cint ;
> curv = baseline ;
> }
> break ;
> case 13 :
> zdoannot((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (baseline)) ;
> break ;
> case 14 :
> zdolink((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (baseline)) ;
> break ;
> case 15 :
> endlink () ;
> break ;
> case 17 :
> zdodest((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (baseline)) ;
> break ;
> case 18 :
> zdothread((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (baseline)) ;
> break ;
> case 19 :
> zpdferror((strnumber) (1843), (strnumber) (1951)) ;
> break ;
> case 20 :
> zpdferror((strnumber) (1843), (strnumber) (1952)) ;
> break ;
> case 21 :
> {
> pdflastxpos = curh ;
> if ( isshippingpage )
> pdflastypos = curpageheight - curv ;
> else pdflastypos = pdfxformheight + pdfxformdepth - curv ;
> }
> break ;
> case 3 :
> zpdfspecial((halfword) (p)) ;
> break ;
> case 33 :
> {
> pdfsnapxrefpos = curh ;
> pdfsnapyrefpos = curv ;
> }
> break ;
> case 35 :
> case 34 :
> ;
> break ;
> case 42 :
> genfakedinterwordspace = 1 ;
> break ;
> case 43 :
> genfakedinterwordspace = 0 ;
> break ;
> case 44 :
> pdfinsertfakespace () ;
> break ;
> default:
> zoutwhat((halfword) (p)) ;
> break ;
> }
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> rulewd = mem [g + 1 ].cint - curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
> curglue = curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
> curglue = curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> rulewd = rulewd + curg ;
> if ( ( eTeXmode == 1 ) ) {
>
> if ( ( ( ( gsign == 1 ) && ( mem [g ].hh.u.B0 == gorder ) ) || ( (
> gsign == 2 ) && ( mem [g ].hh.u.B1 == gorder ) ) ) )
> {
> {
> if ( mem [g ].hh .v.RH == -268435455L )
> zfreenode((halfword) (g), (halfword) (4)) ;
> else --(mem [g ].hh .v.RH) ;
> }
> if ( mem [p ].hh.u.B1 < 100 )
> {
> mem [p ].hh.u.B0 = 11 ;
> mem [p + 1 ].cint = rulewd ;
> }
> else {
>
> g = zgetnode((integer) (4)) ;
> mem [g ].hh.u.B0 = 4 ;
> mem [g ].hh.u.B1 = 4 ;
> mem [g + 1 ].cint = rulewd ;
> mem [g + 2 ].cint = 0 ;
> mem [g + 3 ].cint = 0 ;
> mem [p + 1 ].hh .v.LH = g ;
> }
> }
> }
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> leaderbox = mem [p + 1 ].hh .v.RH ;
> if ( mem [leaderbox ].hh.u.B0 == 2 )
> {
> ruleht = mem [leaderbox + 3 ].cint ;
> ruledp = mem [leaderbox + 2 ].cint ;
> goto lab14 ;
> }
> leaderwd = mem [leaderbox + 1 ].cint ;
> if ( ( leaderwd > 0 ) && ( rulewd > 0 ) )
> {
> rulewd = rulewd + 10 ;
> if ( curdir == 1 )
> curh = curh - 10 ;
> edge = curh + rulewd ;
> lx = 0 ;
> if ( mem [p ].hh.u.B1 == 100 )
> {
> saveh = curh ;
> curh = leftedge + leaderwd * ( ( curh - leftedge ) / leaderwd )
> ;
> if ( curh < saveh )
> curh = curh + leaderwd ;
> }
> else {
>
> lq = rulewd / leaderwd ;
> lr = rulewd % leaderwd ;
> if ( mem [p ].hh.u.B1 == 101 )
> curh = curh + ( lr / 2 ) ;
> else {
>
> lx = lr / ( lq + 1 ) ;
> curh = curh + ( ( lr - ( lq - 1 ) * lx ) / 2 ) ;
> }
> }
> while ( curh + leaderwd <= edge ) {
>
> curv = baseline + mem [leaderbox + 4 ].cint ;
> saveh = curh ;
> tempptr = leaderbox ;
> if ( curdir == 1 )
> curh = curh + leaderwd ;
> outerdoingleaders = doingleaders ;
> doingleaders = 1 ;
> if ( mem [leaderbox ].hh.u.B0 == 1 )
> pdfvlistout () ;
> else pdfhlistout () ;
> doingleaders = outerdoingleaders ;
> curv = baseline ;
> curh = saveh + leaderwd + lx ;
> }
> if ( curdir == 1 )
> curh = edge ;
> else curh = edge - 10 ;
> goto lab15 ;
> }
> }
> goto lab13 ;
> }
> break ;
> case 40 :
> curh = curh + mem [p + 1 ].cint ;
> break ;
> case 11 :
> {
> synctexkern ( p , thisbox ) ;
> curh = curh + mem [p + 1 ].cint ;
> }
> break ;
> case 9 :
> {
> synctexmath ( p , thisbox ) ;
> {
> if ( ( eTeXmode == 1 ) )
> {
> if ( ((mem [p ].hh.u.B1) & 1) ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [p ].hh.u.B1 / 4 ) +
> 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> else {
>
> if ( mem [p ].hh.u.B1 > 4 )
> ++(LRproblems) ;
> }
> }
> else {
>
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3
> ) ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( mem [p ].hh.u.B1 / 8 ) != curdir )
> {
> saveh = curh ;
> tempptr = mem [p ].hh .v.RH ;
> rulewd = mem [p + 1 ].cint ;
> zfreenode((halfword) (p), (halfword) (4)) ;
> curdir = 1 - curdir ;
> p = znewedge((smallnumber) (curdir), (scaled) (rulewd)) ;
> mem [prevp ].hh .v.RH = p ;
> curh = curh - leftedge + rulewd ;
> mem [p ].hh .v.RH = zzreverse((halfword) (thisbox), (halfword) (znewedge((smallnumber) (1 - curdir), (scaled) (0))), (scaled *) &(curg), (real *) &(curglue))
> ;
> mem [p + 2 ].cint = curh ;
> curdir = 1 - curdir ;
> curh = saveh ;
> goto lab21 ;
> }
> }
> mem [p ].hh.u.B0 = 11 ;
> }
> curh = curh + mem [p + 1 ].cint ;
> }
> }
> break ;
> case 6 :
> {
> mem [memtop - 12 ]= mem [p + 1 ];
> mem [memtop - 12 ].hh .v.RH = mem [p ].hh .v.RH ;
> p = memtop - 12 ;
> goto lab21 ;
> }
> break ;
> case 14 :
> {
> curh = curh + mem [p + 1 ].cint ;
> leftedge = curh + mem [p + 2 ].cint ;
> curdir = mem [p ].hh.u.B1 ;
> }
> break ;
> default:
> ;
> break ;
> }
> goto lab15 ;
> lab14: if ( ( ruleht == -1073741824L ) )
> ruleht = mem [thisbox + 3 ].cint ;
> if ( ( ruledp == -1073741824L ) )
> ruledp = mem [thisbox + 2 ].cint ;
> ruleht = ruleht + ruledp ;
> if ( ( ruleht > 0 ) && ( rulewd > 0 ) )
> {
> curv = baseline + ruledp ;
> zpdfsetrule((scaled) (curh), (scaled) (curv), (scaled) (rulewd), (scaled) (ruleht)) ;
> curv = baseline ;
> }
> lab13: {
>
> curh = curh + rulewd ;
> synctexhorizontalruleorglue ( p , thisbox ) ;
> }
> lab15: prevp = p ;
> p = mem [p ].hh .v.RH ;
> }
> synctextsilh ( thisbox ) ;
> if ( ( eTeXmode == 1 ) )
> {
> {
> while ( mem [LRptr ].hh .v.LH != 0 ) {
>
> if ( mem [LRptr ].hh .v.LH > 4 )
> LRproblems = LRproblems + 10000 ;
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> if ( ( mem [thisbox ].hh.u.B1 ) == 2 )
> curdir = 1 ;
> }
> --(curs) ;
>}
>void
>pdfvlistout ( void )
>{
> register memoryword *mem=zmem;
> scaled leftedge ;
> scaled topedge ;
> scaled savev ;
> halfword thisbox ;
> glueord gorder ;
> unsigned char gsign ;
> halfword p ;
> halfword leaderbox ;
> scaled leaderht ;
> scaled lx ;
> boolean outerdoingleaders ;
> scaled edge ;
> real gluetemp ;
> real curglue ;
> scaled curg ;
> curg = 0 ;
> curglue = 0.0 ;
> thisbox = tempptr ;
> gorder = mem [thisbox + 5 ].hh.u.B1 ;
> gsign = mem [thisbox + 5 ].hh.u.B0 ;
> p = mem [thisbox + 5 ].hh .v.RH ;
> ++(curs) ;
> leftedge = curh ;
> synctexvlist ( thisbox ) ;
> curv = curv - mem [thisbox + 3 ].cint ;
> topedge = curv ;
> if ( ( lastthread != -268435455L ) && ( pdfthreaddp == -1073741824L ) && (
> pdfthreadlevel == curs ) )
> zappendthread((halfword) (thisbox), (scaled) (leftedge), (scaled) (topedge + mem [thisbox + 3 ].cint)) ;
> while ( p != -268435455L ) {
>
> if ( ( p >= himemmin ) )
> zconfusion((strnumber) (1127)) ;
> else {
>
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> if ( mem [p + 5 ].hh .v.RH == -268435455L )
> {
> curv = curv + mem [p + 3 ].cint ;
> if ( mem [p ].hh.u.B0 == 1 )
> {
> synctexvoidvlist ( p , thisbox ) ;
> }
> else {
>
> synctexvoidhlist ( p , thisbox ) ;
> }
> curv = curv + mem [p + 2 ].cint ;
> }
> else {
>
> curv = curv + mem [p + 3 ].cint ;
> savev = curv ;
> if ( curdir == 1 )
> curh = leftedge - mem [p + 4 ].cint ;
> else curh = leftedge + mem [p + 4 ].cint ;
> tempptr = p ;
> if ( mem [p ].hh.u.B0 == 1 )
> pdfvlistout () ;
> else pdfhlistout () ;
> curv = savev + mem [p + 2 ].cint ;
> curh = leftedge ;
> }
> break ;
> case 2 :
> {
> ruleht = mem [p + 3 ].cint ;
> ruledp = mem [p + 2 ].cint ;
> rulewd = mem [p + 1 ].cint ;
> goto lab14 ;
> }
> break ;
> case 8 :
> switch ( mem [p ].hh.u.B1 )
> {case 6 :
> zpdfoutliteral((halfword) (p)) ;
> break ;
> case 37 :
> zpdfoutcolorstack((halfword) (p)) ;
> break ;
> case 38 :
> zpdfoutsetmatrix((halfword) (p)) ;
> break ;
> case 39 :
> zpdfoutsave((halfword) (p)) ;
> break ;
> case 40 :
> zpdfoutrestore((halfword) (p)) ;
> break ;
> case 8 :
> {
> pdfappendlistarg = mem [p + 1 ].hh .v.LH ;
> pdfobjlist = zappendptr((halfword) (pdfobjlist), (integer) (pdfappendlistarg)) ;
> }
> break ;
> case 10 :
> {
> curv = curv + mem [p + 2 ].cint ;
> savev = curv ;
> curh = leftedge ;
> zoutform((halfword) (p)) ;
> curv = savev + mem [p + 3 ].cint ;
> curh = leftedge ;
> }
> break ;
> case 12 :
> {
> curv = curv + mem [p + 2 ].cint + mem [p + 3 ].cint ;
> savev = curv ;
> curh = leftedge ;
> zoutimage((halfword) (p)) ;
> curv = savev ;
> curh = leftedge ;
> }
> break ;
> case 13 :
> zdoannot((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (topedge + mem [thisbox + 3 ] .cint))
> ;
> break ;
> case 14 :
> zpdferror((strnumber) (1843), (strnumber) (1949)) ;
> break ;
> case 15 :
> zpdferror((strnumber) (1843), (strnumber) (1950)) ;
> break ;
> case 17 :
> zdodest((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (topedge + mem [thisbox + 3 ] .cint))
> ;
> break ;
> case 18 :
> case 19 :
> zdothread((halfword) (p), (halfword) (thisbox), (scaled) (leftedge), (scaled) (topedge + mem [thisbox + 3 ] .cint))
> ;
> break ;
> case 20 :
> endthread () ;
> break ;
> case 21 :
> {
> pdflastxpos = curh ;
> if ( isshippingpage )
> pdflastypos = curpageheight - curv ;
> else pdflastypos = pdfxformheight + pdfxformdepth - curv ;
> }
> break ;
> case 3 :
> zpdfspecial((halfword) (p)) ;
> break ;
> case 33 :
> {
> pdfsnapxrefpos = curh ;
> pdfsnapyrefpos = curv ;
> }
> break ;
> case 35 :
> zdosnapycomp((halfword) (p), (halfword) (thisbox)) ;
> break ;
> case 34 :
> zdosnapy((halfword) (p)) ;
> break ;
> case 42 :
> genfakedinterwordspace = 1 ;
> break ;
> case 43 :
> genfakedinterwordspace = 0 ;
> break ;
> case 44 :
> pdfinsertfakespace () ;
> break ;
> default:
> zoutwhat((halfword) (p)) ;
> break ;
> }
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> ruleht = mem [g + 1 ].cint - curg ;
> if ( gsign != 0 )
> {
> if ( gsign == 1 )
> {
> if ( mem [g ].hh.u.B0 == gorder )
> {
> curglue = curglue + mem [g + 2 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> else if ( mem [g ].hh.u.B1 == gorder )
> {
> curglue = curglue - mem [g + 3 ].cint ;
> gluetemp = mem [thisbox + 6 ].gr * curglue ;
> if ( gluetemp > 1000000000.0 )
> gluetemp = 1000000000.0 ;
> else if ( gluetemp < -1000000000.0 )
> gluetemp = -1000000000.0 ;
> curg = zround ((double) (gluetemp)) ;
> }
> }
> ruleht = ruleht + curg ;
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> leaderbox = mem [p + 1 ].hh .v.RH ;
> if ( mem [leaderbox ].hh.u.B0 == 2 )
> {
> rulewd = mem [leaderbox + 1 ].cint ;
> ruledp = 0 ;
> goto lab14 ;
> }
> leaderht = mem [leaderbox + 3 ].cint + mem [leaderbox + 2 ]
> .cint ;
> if ( ( leaderht > 0 ) && ( ruleht > 0 ) )
> {
> ruleht = ruleht + 10 ;
> edge = curv + ruleht ;
> lx = 0 ;
> if ( mem [p ].hh.u.B1 == 100 )
> {
> savev = curv ;
> curv = topedge + leaderht * ( ( curv - topedge ) / leaderht )
> ;
> if ( curv < savev )
> curv = curv + leaderht ;
> }
> else {
>
> lq = ruleht / leaderht ;
> lr = ruleht % leaderht ;
> if ( mem [p ].hh.u.B1 == 101 )
> curv = curv + ( lr / 2 ) ;
> else {
>
> lx = lr / ( lq + 1 ) ;
> curv = curv + ( ( lr - ( lq - 1 ) * lx ) / 2 ) ;
> }
> }
> while ( curv + leaderht <= edge ) {
>
> if ( curdir == 1 )
> curh = leftedge - mem [leaderbox + 4 ].cint ;
> else curh = leftedge + mem [leaderbox + 4 ].cint ;
> curv = curv + mem [leaderbox + 3 ].cint ;
> savev = curv ;
> tempptr = leaderbox ;
> outerdoingleaders = doingleaders ;
> doingleaders = 1 ;
> if ( mem [leaderbox ].hh.u.B0 == 1 )
> pdfvlistout () ;
> else pdfhlistout () ;
> doingleaders = outerdoingleaders ;
> curh = leftedge ;
> curv = savev - mem [leaderbox + 3 ].cint + leaderht + lx ;
> }
> curv = edge - 10 ;
> goto lab15 ;
> }
> }
> goto lab13 ;
> }
> break ;
> case 11 :
> curv = curv + mem [p + 1 ].cint ;
> break ;
> default:
> ;
> break ;
> }
> goto lab15 ;
> lab14: if ( ( rulewd == -1073741824L ) )
> rulewd = mem [thisbox + 1 ].cint ;
> ruleht = ruleht + ruledp ;
> curv = curv + ruleht ;
> if ( ( ruleht > 0 ) && ( rulewd > 0 ) )
> {
> if ( curdir == 1 )
> curh = curh - rulewd ;
> zpdfsetrule((scaled) (curh), (scaled) (curv), (scaled) (rulewd), (scaled) (ruleht)) ;
> curh = leftedge ;
> }
> goto lab15 ;
> lab13: curv = curv + ruleht ;
> }
> lab15: p = mem [p ].hh .v.RH ;
> }
> synctextsilv ( thisbox ) ;
> --(curs) ;
>}
>void
>fixpdfoutput ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( ! fixedpdfoutputset )
> {
> fixedpdfoutput = eqtb [27239 ].cint ;
> fixedpdfoutputset = 1 ;
> }
> else if ( fixedpdfoutput != eqtb [27239 ].cint )
> zpdferror((strnumber) (1009), (strnumber) (1128)) ;
> if ( fixedpdfoutputset )
> fixpdfdraftmode () ;
>}
>void
>fixpdfdraftmode ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( ! fixedpdfdraftmodeset )
> {
> fixedpdfdraftmode = eqtb [27264 ].cint ;
> fixedpdfdraftmodeset = 1 ;
> }
> else if ( fixedpdfdraftmode != eqtb [27264 ].cint )
> zpdferror((strnumber) (1009), (strnumber) (1129)) ;
> if ( fixedpdfdraftmodeset && fixedpdfdraftmode > 0 )
> {
> fixedpdfdraftmodeset = 1 ;
> eqtb [27240 ].cint = 0 ;
> fixedpdfobjcompresslevel = 0 ;
> }
>}
>void
>zpdfshipout ( halfword p , boolean shippingpage )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer i, j, k ;
> halfword savefontlist ;
> halfword saveobjlist ;
> halfword saveximagelist ;
> halfword savexformlist ;
> integer saveimageprocset ;
> integer savetextprocset ;
> integer pdflastresources ;
> pdfoutputvalue = eqtb [27239 ].cint ;
> synctexsheet ( eqtb [27194 ].cint ) ;
> {
> if ( eqtb [27211 ].cint > 0 )
> {
> zprintnl((strnumber) (345)) ;
> println () ;
> zprint((integer) (986)) ;
> }
> if ( ! initpdfoutput )
> {
> checkpdfminorversion () ;
> preparemag () ;
> fixeddecimaldigits = zfixint((integer) (eqtb [27241 ].cint), (integer) (0), (integer) (4)) ;
> minbpval = zdividescaled((scaled) (onehundredbp), (scaled) (tenpow [fixeddecimaldigits + 2 ]), (integer) (0))
> ;
> if ( eqtb [27244 ].cint == 0 )
> eqtb [27244 ].cint = pkdpi ;
> fixedpkresolution = zfixint((integer) (eqtb [27244 ].cint), (integer) (72), (integer) (8000)) ;
> pkscalefactor = zdividescaled((scaled) (72), (scaled) (fixedpkresolution), (integer) (5 + fixeddecimaldigits))
> ;
> if ( eqtb [25071 ].hh .v.RH != -268435455L )
> {
> kpse_init_prog ( "PDFTEX" , fixedpkresolution , makecstring (
> ztokenstostring((halfword) (eqtb [25071 ].hh .v.RH)) ) , ((void *)0) ) ;
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
> }
> else kpse_init_prog ( "PDFTEX" , fixedpkresolution , ((void *)0) , ((void *)0) ) ;
> kpse_set_program_enabled ( kpse_pk_format , 1 , kpse_src_compile ) ;
> setjobid ( eqtb [27200 ].cint , eqtb [27199 ].cint , eqtb [27198 ]
> .cint , eqtb [27197 ].cint ) ;
> if ( ( eqtb [27245 ].cint > 0 ) && ( pdfresnameprefix == 0 ) )
> pdfresnameprefix = getresnameprefix () ;
> initpdfoutput = 1 ;
> }
> isshippingpage = shippingpage ;
> if ( shippingpage )
> {
> if ( termoffset > maxprintline - 9 )
> println () ;
> else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) )
> zprintchar((ASCIIcode) (32)) ;
> zprintchar((ASCIIcode) (91)) ;
> j = 9 ;
> while ( ( eqtb [27280 + j ].cint == 0 ) && ( j > 0 ) ) --(j) ;
> {register integer for_end; k = 0 ;for_end = j ; if ( k <= for_end) do
> {
> zprintint((longinteger) (eqtb [27280 + k ].cint)) ;
> if ( k < j )
> zprintchar((ASCIIcode) (46)) ;
> }
> while ( k++ < for_end ) ;}
> fflush ( stdout ) ;
> }
> if ( eqtb [27211 ].cint > 0 )
> {
> if ( shippingpage )
> zprintchar((ASCIIcode) (93)) ;
> begindiagnostic () ;
> zshowbox((halfword) (p)) ;
> zenddiagnostic((boolean) (1)) ;
> }
> if ( ( mem [p + 3 ].cint > 1073741823L ) || ( mem [p + 2 ].cint >
> 1073741823L ) || ( mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [
> 27811 ].cint > 1073741823L ) || ( mem [p + 1 ].cint + eqtb [27810 ]
> .cint > 1073741823L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (990)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 991 ;
> helpline [0 ]= 992 ;
> }
> error () ;
> if ( eqtb [27211 ].cint <= 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (993)) ;
> zshowbox((halfword) (p)) ;
> zenddiagnostic((boolean) (1)) ;
> }
> goto lab30 ;
> }
> if ( mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [27811 ].cint >
> maxv )
> maxv = mem [p + 3 ].cint + mem [p + 2 ].cint + eqtb [27811 ].cint ;
> if ( mem [p + 1 ].cint + eqtb [27810 ].cint > maxh )
> maxh = mem [p + 1 ].cint + eqtb [27810 ].cint ;
> fixpdfoutput () ;
> tempptr = p ;
> preparemag () ;
> pdflastresources = pdfnewobjnum () ;
> pdfpagegroupval = 0 ;
> pdffontlist = -268435455L ;
> pdfobjlist = -268435455L ;
> pdfxformlist = -268435455L ;
> pdfximagelist = -268435455L ;
> pdftextprocset = 0 ;
> pdfimageprocset = 0 ;
> if ( ! shippingpage )
> {
> pdfxformwidth = mem [p + 1 ].cint ;
> pdfxformheight = mem [p + 3 ].cint ;
> pdfxformdepth = mem [p + 2 ].cint ;
> zpdfbegindict((integer) (pdfcurform), (integer) (0)) ;
> pdflaststream = pdfcurform ;
> curv = mem [p + 3 ].cint ;
> curh = 0 ;
> pdforiginh = 0 ;
> pdforiginv = pdfxformheight + pdfxformdepth ;
> }
> else {
>
> curhoffset = eqtb [27813 ].cint + eqtb [27810 ].cint ;
> curvoffset = eqtb [27814 ].cint + eqtb [27811 ].cint ;
> if ( eqtb [27815 ].cint != 0 )
> curpagewidth = eqtb [27815 ].cint ;
> else curpagewidth = mem [p + 1 ].cint + 2 * curhoffset ;
> if ( eqtb [27816 ].cint != 0 )
> curpageheight = eqtb [27816 ].cint ;
> else curpageheight = mem [p + 3 ].cint + mem [p + 2 ].cint + 2 *
> curvoffset ;
> pdflastpage = zgetobj((integer) (1), (integer) (totalpages + 1), (boolean) (0)) ;
> objtab [pdflastpage ].int4 = 1 ;
> zpdfnewdict((integer) (0), (integer) (0), (integer) (0)) ;
> pdflaststream = objptr ;
> curh = curhoffset ;
> curv = mem [p + 3 ].cint + curvoffset ;
> pdforiginh = 0 ;
> pdforiginv = curpageheight ;
> pdfannotlist = -268435455L ;
> pdflinklist = -268435455L ;
> pdfdestlist = -268435455L ;
> pdfbeadlist = -268435455L ;
> lastthread = -268435455L ;
> }
> if ( ! shippingpage )
> {
> {
> zpdfprint((strnumber) (1130)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1131)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( pdfmem [objtab [pdfcurform ].int4 + 4 ]!= -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfmem [objtab [pdfcurform ].int4 + 4 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [pdfcurform ].int4 + 4 ])) ;
> pdfmem [objtab [pdfcurform ].int4 + 4 ]= -268435455L ;
> }
> }
> zpdfprint((strnumber) (1132)) ;
> zpdfprint((strnumber) (1048)) ;
> zpdfprintbp((scaled) (pdfxformwidth)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (pdfxformheight + pdfxformdepth)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1133)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1134)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (1135), (integer) (pdflastresources)) ;
> }
> pdfbeginstream () ;
> if ( shippingpage )
> {
> preparemag () ;
> if ( eqtb [27194 ].cint != 1000 )
> {
> zpdfprintreal((integer) (eqtb [27194 ].cint), (integer) (3)) ;
> zpdfprint((strnumber) (1136)) ;
> zpdfprintreal((integer) (eqtb [27194 ].cint), (integer) (3)) ;
> {
> zpdfprint((strnumber) (1137)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> }
> pdfshipoutbegin ( shippingpage ) ;
> if ( shippingpage )
> pdfoutcolorstackstartpage () ;
> if ( mem [p ].hh.u.B0 == 1 )
> pdfvlistout () ;
> else pdfhlistout () ;
> if ( shippingpage )
> ++(totalpages) ;
> curs = -1 ;
> pdfendtext () ;
> pdfshipoutend ( shippingpage ) ;
> pdfendstream () ;
> if ( shippingpage )
> {
> zpdfbegindict((integer) (pdflastpage), (integer) (1)) ;
> {
> zpdfprint((strnumber) (1149)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (1150), (integer) (pdflaststream)) ;
> zpdfindirectln((strnumber) (1135), (integer) (pdflastresources)) ;
> zpdfprint((strnumber) (1151)) ;
> zpdfprintmagbp((scaled) (curpagewidth)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (curpageheight)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( eqtb [25069 ].hh .v.RH != -268435455L )
> zpdfprinttoksln((halfword) (eqtb [25069 ].hh .v.RH)) ;
> if ( totalpages % 6 == 1 )
> {
> zpdfcreateobj((integer) (2), (integer) (6)) ;
> pdflastpages = objptr ;
> }
> zpdfindirectln((strnumber) (1153), (integer) (pdflastpages)) ;
> if ( pdfpagegroupval > 0 )
> {
> zpdfprint((strnumber) (1152)) ;
> zpdfprintint((longinteger) (pdfpagegroupval)) ;
> {
> zpdfprint((strnumber) (1068)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> if ( ( pdfannotlist != -268435455L ) || ( pdflinklist != -268435455L ) )
> {
> zpdfprint((strnumber) (1154)) ;
> k = pdfannotlist ;
> while ( k != -268435455L ) {
>
> zpdfprintint((longinteger) (mem [k ].hh .v.LH)) ;
> zpdfprint((strnumber) (1139)) ;
> k = mem [k ].hh .v.RH ;
> }
> k = pdflinklist ;
> while ( k != -268435455L ) {
>
> zpdfprintint((longinteger) (mem [k ].hh .v.LH)) ;
> zpdfprint((strnumber) (1139)) ;
> k = mem [k ].hh .v.RH ;
> }
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> if ( pdfbeadlist != -268435455L )
> {
> k = pdfbeadlist ;
> zpdfprint((strnumber) (1155)) ;
> while ( k != -268435455L ) {
>
> zpdfprintint((longinteger) (mem [k ].hh .v.LH)) ;
> zpdfprint((strnumber) (1139)) ;
> k = mem [k ].hh .v.RH ;
> }
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> pdfenddict () ;
> }
> if ( pdfobjlist != -268435455L )
> {
> k = pdfobjlist ;
> while ( k != -268435455L ) {
>
> if ( ! ( objtab [mem [k ].hh .v.LH ].int2 > -1 ) )
> zpdfwriteobj((integer) (mem [k ].hh .v.LH)) ;
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( pdfxformlist != -268435455L )
> {
> k = pdfxformlist ;
> while ( k != -268435455L ) {
>
> if ( ! ( objtab [mem [k ].hh .v.LH ].int2 > -1 ) )
> {
> pdfcurform = mem [k ].hh .v.LH ;
> savefontlist = pdffontlist ;
> saveobjlist = pdfobjlist ;
> savexformlist = pdfxformlist ;
> saveximagelist = pdfximagelist ;
> savetextprocset = pdftextprocset ;
> saveimageprocset = pdfimageprocset ;
> pdffontlist = -268435455L ;
> pdfobjlist = -268435455L ;
> pdfxformlist = -268435455L ;
> pdfximagelist = -268435455L ;
> pdftextprocset = 0 ;
> pdfimageprocset = 0 ;
> zpdfshipout((halfword) (pdfmem [objtab [pdfcurform ].int4 + 3 ]), (boolean) (0)) ;
> pdffontlist = savefontlist ;
> pdfobjlist = saveobjlist ;
> pdfxformlist = savexformlist ;
> pdfximagelist = saveximagelist ;
> pdftextprocset = savetextprocset ;
> pdfimageprocset = saveimageprocset ;
> }
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( pdfximagelist != -268435455L )
> {
> k = pdfximagelist ;
> while ( k != -268435455L ) {
>
> if ( ! ( objtab [mem [k ].hh .v.LH ].int2 > -1 ) )
> zpdfwriteimage((integer) (mem [k ].hh .v.LH)) ;
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( shippingpage )
> {
> pdforiginh = 0 ;
> pdforiginv = curpageheight ;
> if ( pdfannotlist != -268435455L )
> {
> k = pdfannotlist ;
> while ( k != -268435455L ) {
>
> i = objtab [mem [k ].hh .v.LH ].int4 ;
> zpdfbegindict((integer) (mem [k ].hh .v.LH), (integer) (1)) ;
> {
> zpdfprint((strnumber) (1160)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprinttoksln((halfword) (mem [i + 5 ].hh .v.LH)) ;
> zpdfrectangle((scaled) (mem [i + 1 ].cint), (scaled) (mem [i + 2 ].cint), (scaled) (mem [i + 3 ].cint), (scaled) (mem [i + 4 ].cint))
> ;
> pdfenddict () ;
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( pdflinklist != -268435455L )
> {
> k = pdflinklist ;
> while ( k != -268435455L ) {
>
> i = objtab [mem [k ].hh .v.LH ].int4 ;
> zpdfbegindict((integer) (mem [k ].hh .v.LH), (integer) (1)) ;
> {
> zpdfprint((strnumber) (1160)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( mem [mem [i + 5 ].hh .v.RH ].hh.u.B0 != 3 )
> {
> zpdfprint((strnumber) (1161)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( mem [i + 5 ].hh .v.LH != -268435455L )
> zpdfprinttoksln((halfword) (mem [i + 5 ].hh .v.LH)) ;
> zpdfrectangle((scaled) (mem [i + 1 ].cint), (scaled) (mem [i + 2 ].cint), (scaled) (mem [i + 3 ].cint), (scaled) (mem [i + 4 ].cint))
> ;
> if ( mem [mem [i + 5 ].hh .v.RH ].hh.u.B0 != 3 )
> zpdfprint((strnumber) (1162)) ;
> zwriteaction((halfword) (mem [i + 5 ].hh .v.RH)) ;
> pdfenddict () ;
> k = mem [k ].hh .v.RH ;
> }
> k = pdflinklist ;
> while ( k != -268435455L ) {
>
> i = objtab [mem [k ].hh .v.LH ].int4 ;
> if ( mem [i ].hh .v.LH == 268435455L )
> zflushwhatsitnode((halfword) (i), (smallnumber) (14)) ;
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( pdfdestlist != -268435455L )
> {
> k = pdfdestlist ;
> while ( k != -268435455L ) {
>
> if ( ( objtab [mem [k ].hh .v.LH ].int2 > -1 ) )
> zpdferror((strnumber) (1156), (strnumber) (1163)) ;
> else {
>
> i = objtab [mem [k ].hh .v.LH ].int4 ;
> if ( mem [i + 5 ].hh.u.B1 > 0 )
> {
> zpdfbegindict((integer) (mem [k ].hh .v.LH), (integer) (1)) ;
> zpdfprint((strnumber) (1164)) ;
> }
> else zpdfbeginobj((integer) (mem [k ].hh .v.LH), (integer) (1)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 91 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (pdflastpage)) ;
> zpdfprint((strnumber) (1139)) ;
> switch ( mem [i + 5 ].hh.u.B0 )
> {case 0 :
> {
> zpdfprint((strnumber) (1165)) ;
> zpdfprintmagbp((scaled) (( ( mem [i + 1 ].cint ) - pdforiginh ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintmagbp((scaled) (( pdforiginv - ( mem [i + 2 ].cint ) ))) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> if ( mem [i + 6 ].hh .v.LH == -268435455L )
> zpdfprint((strnumber) (1166)) ;
> else {
>
> zpdfprintint((longinteger) (mem [i + 6 ].hh .v.LH / 1000)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 46 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (( mem [i + 6 ].hh .v.LH % 1000 ))) ;
> }
> }
> break ;
> case 1 :
> zpdfprint((strnumber) (1167)) ;
> break ;
> case 2 :
> {
> zpdfprint((strnumber) (1168)) ;
> zpdfprintmagbp((scaled) (( pdforiginv - ( mem [i + 2 ].cint ) ))) ;
> }
> break ;
> case 3 :
> {
> zpdfprint((strnumber) (1169)) ;
> zpdfprintmagbp((scaled) (( ( mem [i + 1 ].cint ) - pdforiginh ))) ;
> }
> break ;
> case 4 :
> zpdfprint((strnumber) (1170)) ;
> break ;
> case 5 :
> {
> zpdfprint((strnumber) (1171)) ;
> zpdfprintmagbp((scaled) (( pdforiginv - ( mem [i + 2 ].cint ) ))) ;
> }
> break ;
> case 6 :
> {
> zpdfprint((strnumber) (1172)) ;
> zpdfprintmagbp((scaled) (( ( mem [i + 1 ].cint ) - pdforiginh ))) ;
> }
> break ;
> case 7 :
> {
> zpdfprint((strnumber) (1173)) ;
> zpdfprintrectspec((halfword) (i)) ;
> }
> break ;
> default:
> zpdferror((strnumber) (1156), (strnumber) (1174)) ;
> break ;
> }
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( mem [i + 5 ].hh.u.B1 > 0 )
> pdfenddict () ;
> else pdfendobj () ;
> }
> k = mem [k ].hh .v.RH ;
> }
> }
> if ( pdfbeadlist != -268435455L )
> {
> k = pdfbeadlist ;
> while ( k != -268435455L ) {
>
> zpdfnewobj((integer) (0), (integer) (0), (integer) (1)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 91 ;
> ++(pdfptr) ;
> }
> }
> i = pdfmem [objtab [mem [k ].hh .v.LH ].int4 ];
> zpdfprintrectspec((halfword) (i)) ;
> if ( mem [i ].hh .v.LH == 268435455L )
> zflushwhatsitnode((halfword) (i), (smallnumber) (19)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfmem [objtab [mem [k ].hh .v.LH ].int4 ]= objptr ;
> pdfendobj () ;
> k = mem [k ].hh .v.RH ;
> }
> }
> }
> zpdfbegindict((integer) (pdflastresources), (integer) (1)) ;
> if ( shippingpage )
> {
> if ( eqtb [25070 ].hh .v.RH != -268435455L )
> zpdfprinttoksln((halfword) (eqtb [25070 ].hh .v.RH)) ;
> }
> else {
>
> if ( pdfmem [objtab [pdfcurform ].int4 + 5 ]!= -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfmem [objtab [pdfcurform ].int4 + 5 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [pdfcurform ].int4 + 5 ])) ;
> pdfmem [objtab [pdfcurform ].int4 + 5 ]= -268435455L ;
> }
> }
> }
> if ( pdffontlist != -268435455L )
> {
> zpdfprint((strnumber) (1138)) ;
> k = pdffontlist ;
> while ( k != -268435455L ) {
>
> zpdfprint((strnumber) (1036)) ;
> {
> if ( pdffontnum [mem [k ].hh .v.LH ]< 0 )
> ff = - (integer) pdffontnum [mem [k ].hh .v.LH ];
> else ff = mem [k ].hh .v.LH ;
> }
> zpdfprintint((longinteger) (ff)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (pdffontnum [ff ])) ;
> zpdfprint((strnumber) (1139)) ;
> k = mem [k ].hh .v.RH ;
> }
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdftextprocset = 1 ;
> }
> if ( ( pdfxformlist != -268435455L ) || ( pdfximagelist != -268435455L ) )
> {
> zpdfprint((strnumber) (1140)) ;
> k = pdfxformlist ;
> while ( k != -268435455L ) {
>
> zpdfprint((strnumber) (1141)) ;
> zpdfprintint((longinteger) (objtab [mem [k ].hh .v.LH ].int0)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (mem [k ].hh .v.LH)) ;
> zpdfprint((strnumber) (1139)) ;
> k = mem [k ].hh .v.RH ;
> }
> k = pdfximagelist ;
> while ( k != -268435455L ) {
>
> zpdfprint((strnumber) (1142)) ;
> zpdfprintint((longinteger) (objtab [mem [k ].hh .v.LH ].int0)) ;
> if ( pdfresnameprefix != 0 )
> zpdfprint((strnumber) (pdfresnameprefix)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (mem [k ].hh .v.LH)) ;
> zpdfprint((strnumber) (1139)) ;
> updateimageprocset ( pdfmem [objtab [mem [k ].hh .v.LH ].int4 + 4
> ]) ;
> k = mem [k ].hh .v.RH ;
> }
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> zpdfprint((strnumber) (1143)) ;
> if ( pdftextprocset )
> zpdfprint((strnumber) (1144)) ;
> if ( checkimageb ( pdfimageprocset ) )
> zpdfprint((strnumber) (1145)) ;
> if ( checkimagec ( pdfimageprocset ) )
> zpdfprint((strnumber) (1146)) ;
> if ( checkimagei ( pdfimageprocset ) )
> zpdfprint((strnumber) (1147)) ;
> {
> zpdfprint((strnumber) (1148)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfenddict () ;
> zflushlist((halfword) (pdffontlist)) ;
> zflushlist((halfword) (pdfobjlist)) ;
> zflushlist((halfword) (pdfxformlist)) ;
> zflushlist((halfword) (pdfximagelist)) ;
> if ( shippingpage )
> {
> zflushlist((halfword) (pdfannotlist)) ;
> zflushlist((halfword) (pdflinklist)) ;
> zflushlist((halfword) (pdfdestlist)) ;
> zflushlist((halfword) (pdfbeadlist)) ;
> }
> lab30: ;
> if ( ( eTeXmode == 1 ) )
> {
> if ( LRproblems > 0 )
> {
> {
> println () ;
> zprintnl((strnumber) (2012)) ;
> zprintint((longinteger) (LRproblems / 10000)) ;
> zprint((integer) (2013)) ;
> zprintint((longinteger) (LRproblems % 10000)) ;
> zprint((integer) (2014)) ;
> LRproblems = 0 ;
> }
> zprintchar((ASCIIcode) (41)) ;
> println () ;
> }
> if ( ( LRptr != -268435455L ) || ( curdir != 0 ) )
> zconfusion((strnumber) (2016)) ;
> }
> if ( ( eqtb [27211 ].cint <= 0 ) && shippingpage )
> zprintchar((ASCIIcode) (93)) ;
> deadcycles = 0 ;
> fflush ( stdout ) ;
> ;
>
> if ( eqtb [27208 ].cint > 1 )
> {
> zprintnl((strnumber) (987)) ;
> zprintint((longinteger) (varused)) ;
> zprintchar((ASCIIcode) (38)) ;
> zprintint((longinteger) (dynused)) ;
> zprintchar((ASCIIcode) (59)) ;
> }
>
> zflushnodelist((halfword) (p)) ;
> ;
>
> if ( eqtb [27208 ].cint > 1 )
> {
> zprint((integer) (988)) ;
> zprintint((longinteger) (varused)) ;
> zprintchar((ASCIIcode) (38)) ;
> zprintint((longinteger) (dynused)) ;
> zprint((integer) (989)) ;
> zprintint((longinteger) (himemmin - lomemmax - 1)) ;
> println () ;
> }
>
> }
> synctexteehs () ;
>}
>void
>zshipout ( halfword p )
>{
> register memoryword *eqtb=zeqtb;
> fixpdfoutput () ;
> if ( eqtb [27239 ].cint > 0 )
> zpdfshipout((halfword) (p), (boolean) (1)) ;
> else zdvishipout((halfword) (p)) ;
>}
>boolean
>zstrlessstr ( strnumber s1 , strnumber s2 )
>{
> register boolean Result;
> poolpointer j1, j2, e1, e2 ;
> packedASCIIcode c1, c2 ;
> j1 = strstart [s1 ];
> j2 = strstart [s2 ];
> e1 = j1 + ( strstart [s1 + 1 ]- strstart [s1 ]) ;
> e2 = j2 + ( strstart [s2 + 1 ]- strstart [s2 ]) ;
> while ( ( j1 < e1 ) && ( j2 < e2 ) ) {
>
> c1 = strpool [j1 ];
> ++(j1) ;
> if ( ( c1 == 92 ) && ( j1 < e1 ) )
> {
> c1 = strpool [j1 ];
> ++(j1) ;
> if ( ( c1 >= 48 ) && ( c1 <= 55 ) )
> {
> c1 = c1 - 48 ;
> if ( ( j1 < e1 ) && ( strpool [j1 ]>= 48 ) && ( strpool [j1 ]<= 55
> ) )
> {
> c1 = 8 * c1 + strpool [j1 ]- 48 ;
> ++(j1) ;
> if ( ( j1 < e1 ) && ( strpool [j1 ]>= 48 ) && ( strpool [j1 ]<=
> 55 ) && ( c1 < 32 ) )
> {
> c1 = 8 * c1 + strpool [j1 ]- 48 ;
> ++(j1) ;
> }
> }
> }
> else {
>
> switch ( c1 )
> {case 98 :
> c1 = 8 ;
> break ;
> case 102 :
> c1 = 12 ;
> break ;
> case 110 :
> c1 = 10 ;
> break ;
> case 114 :
> c1 = 13 ;
> break ;
> case 116 :
> c1 = 9 ;
> break ;
> default:
> ;
> break ;
> }
> }
> }
> c2 = strpool [j2 ];
> ++(j2) ;
> if ( ( c2 == 92 ) && ( j2 < e2 ) )
> {
> c2 = strpool [j2 ];
> ++(j2) ;
> if ( ( c2 >= 48 ) && ( c2 <= 55 ) )
> {
> c2 = c2 - 48 ;
> if ( ( j2 < e2 ) && ( strpool [j2 ]>= 48 ) && ( strpool [j2 ]<= 55
> ) )
> {
> c2 = 8 * c2 + strpool [j2 ]- 48 ;
> ++(j2) ;
> if ( ( j2 < e2 ) && ( strpool [j2 ]>= 48 ) && ( strpool [j2 ]<=
> 55 ) && ( c2 < 32 ) )
> {
> c2 = 8 * c2 + strpool [j2 ]- 48 ;
> ++(j2) ;
> }
> }
> }
> else {
>
> switch ( c2 )
> {case 98 :
> c2 = 8 ;
> break ;
> case 102 :
> c2 = 12 ;
> break ;
> case 110 :
> c2 = 10 ;
> break ;
> case 114 :
> c2 = 13 ;
> break ;
> case 116 :
> c2 = 9 ;
> break ;
> default:
> ;
> break ;
> }
> }
> }
> if ( c1 < c2 )
> {
> Result = 1 ;
> return Result ;
> }
> else if ( c1 > c2 )
> {
> Result = 0 ;
> return Result ;
> }
> }
> if ( ( j1 >= e1 ) && ( j2 < e2 ) )
> Result = 1 ;
> else Result = 0 ;
> return Result ;
>}
>void
>zsortdestnames ( integer l , integer r )
>{
> 
> integer i, j ;
> strnumber s ;
> destnameentry e ;
> i = l ;
> j = r ;
> s = destnames [( l + r ) / 2 ].objname ;
> do {
> while ( zstrlessstr((strnumber) (destnames [i ].objname), (strnumber) (s)) ) ++(i) ;
> while ( zstrlessstr((strnumber) (s), (strnumber) (destnames [j ].objname)) ) --(j) ;
> if ( i <= j )
> {
> e = destnames [i ];
> destnames [i ]= destnames [j ];
> destnames [j ]= e ;
> ++(i) ;
> --(j) ;
> }
> } while ( ! ( i > j ) ) ;
> if ( l < j )
> zsortdestnames((integer) (l), (integer) (j)) ;
> if ( i < r )
> zsortdestnames((integer) (i), (integer) (r)) ;
>}
>void
>zpdffixdest ( integer k )
>{
> 
> if ( objtab [k ].int4 != -268435455L )
> return ;
> zpdfwarning((strnumber) (1183), (strnumber) (345), (boolean) (0), (boolean) (0)) ;
> if ( objtab [k ].int0 < 0 )
> {
> zprint((integer) (1184)) ;
> zprint((integer) (- (integer) objtab [k ].int0)) ;
> zprint((integer) (125)) ;
> }
> else {
>
> zprint((integer) (1185)) ;
> zprintint((longinteger) (objtab [k ].int0)) ;
> }
> zprint((integer) (1186)) ;
> println () ;
> println () ;
> zpdfbeginobj((integer) (k), (integer) (1)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 91 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (headtab [1 ])) ;
> {
> zpdfprint((strnumber) (1187)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfendobj () ;
>}
>boolean
>zsubstrofstr ( strnumber s , strnumber t )
>{
> register boolean Result;
> poolpointer j, k, kk ;
> k = strstart [t ];
> while ( ( k < strstart [t + 1 ]- ( strstart [s + 1 ]- strstart [s ]) )
> ) {
>
> j = strstart [s ];
> kk = k ;
> while ( ( j < strstart [s + 1 ]) ) {
>
> if ( strpool [j ]!= strpool [kk ])
> goto lab22 ;
> ++(j) ;
> ++(kk) ;
> }
> Result = 1 ;
> return Result ;
> lab22: ++(k) ;
> }
> Result = 0 ;
> return Result ;
>}
>void
>pdfprintinfo ( void )
>{
> 
> strnumber s ;
> boolean creatorgiven, producergiven, creationdategiven, moddategiven,
> trappedgiven ;
> zpdfnewdict((integer) (0), (integer) (0), (integer) (3)) ;
> creatorgiven = 0 ;
> producergiven = 0 ;
> creationdategiven = 0 ;
> moddategiven = 0 ;
> trappedgiven = 0 ;
> if ( pdfinfotoks != -268435455L )
> {
> s = ztokenstostring((halfword) (pdfinfotoks)) ;
> creatorgiven = zsubstrofstr((strnumber) (1205), (strnumber) (s)) ;
> producergiven = zsubstrofstr((strnumber) (1206), (strnumber) (s)) ;
> creationdategiven = zsubstrofstr((strnumber) (1207), (strnumber) (s)) ;
> moddategiven = zsubstrofstr((strnumber) (1208), (strnumber) (s)) ;
> trappedgiven = zsubstrofstr((strnumber) (1209), (strnumber) (s)) ;
> }
> if ( ! producergiven )
> {
> zpdfprint((strnumber) (1214)) ;
> zpdfprintint((longinteger) (140 / 100)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 46 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (140 % 100)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 46 ;
> ++(pdfptr) ;
> }
> }
> zpdfprint((strnumber) (257)) ;
> {
> zpdfprint((strnumber) (41)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> if ( pdfinfotoks != -268435455L )
> {
> if ( ( strstart [s + 1 ]- strstart [s ]) > 0 )
> {
> {
> zpdfprint((strnumber) (s)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> zflushstr((strnumber) (s)) ;
> {
> zdeletetokenref((halfword) (pdfinfotoks)) ;
> pdfinfotoks = -268435455L ;
> }
> }
> if ( ! creatorgiven )
> zpdfstrentryln((strnumber) (1210), (strnumber) (1211)) ;
> if ( ! creationdategiven )
> {
> printcreationdate () ;
> }
> if ( ! moddategiven )
> {
> printmoddate () ;
> }
> if ( ! trappedgiven )
> {
> {
> zpdfprint((strnumber) (1212)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> zpdfstrentryln((strnumber) (1213), (strnumber) (pdftexbanner)) ;
> pdfenddict () ;
>}
>void
>zscanspec ( groupcode c , boolean threecodes )
>{
> 
> integer s ;
> unsigned char speccode ;
> if ( threecodes )
> s = savestack [saveptr + 0 ].cint ;
> if ( zscankeyword((strnumber) (1232)) )
> speccode = 0 ;
> else if ( zscankeyword((strnumber) (1233)) )
> speccode = 1 ;
> else {
>
> speccode = 1 ;
> curval = 0 ;
> goto lab40 ;
> }
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> lab40: if ( threecodes )
> {
> savestack [saveptr + 0 ].cint = s ;
> ++(saveptr) ;
> }
> savestack [saveptr + 0 ].cint = speccode ;
> savestack [saveptr + 1 ].cint = curval ;
> saveptr = saveptr + 2 ;
> znewsavelevel((groupcode) (c)) ;
> scanleftbrace () ;
>}
>boolean
>zcheckexpandpars ( internalfontnumber f )
>{
> register boolean Result;
> internalfontnumber k ;
> Result = 0 ;
> if ( ( pdffontstep [f ]== 0 ) || ( ( pdffontstretch [f ]== 0 ) && (
> pdffontshrink [f ]== 0 ) ) )
> return Result ;
> if ( curfontstep < 0 )
> curfontstep = pdffontstep [f ];
> else if ( curfontstep != pdffontstep [f ])
> zpdferror((strnumber) (1034), (strnumber) (1234)) ;
> k = pdffontstretch [f ];
> if ( k != 0 )
> {
> if ( maxstretchratio < 0 )
> maxstretchratio = pdffontexpandratio [k ];
> else if ( maxstretchratio != pdffontexpandratio [k ])
> zpdferror((strnumber) (1034), (strnumber) (1235)) ;
> }
> k = pdffontshrink [f ];
> if ( k != 0 )
> {
> if ( maxshrinkratio < 0 )
> maxshrinkratio = - (integer) pdffontexpandratio [k ];
> else if ( maxshrinkratio != - (integer) pdffontexpandratio [k ])
> zpdferror((strnumber) (1034), (strnumber) (1235)) ;
> }
> Result = 1 ;
> return Result ;
>}
>scaled
>zcharstretch ( internalfontnumber f , eightbits c )
>{
> register scaled Result;
> internalfontnumber k ;
> scaled dw ;
> integer ef ;
> Result = 0 ;
> k = pdffontstretch [f ];
> ef = (pdffontefbase[f] == 0 ? 1000 : pdfmem[pdffontefbase[f] + c]) ;
> if ( ( k != 0 ) && ( ef > 0 ) )
> {
> dw = fontinfo [widthbase [k ]+ fontinfo [charbase [k ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (k), (quarterword) (c)) ].qqqq .u.B0 ].cint - fontinfo [widthbase
> [f ]+ fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq
> .u.B0 ].cint ;
> if ( dw > 0 )
> Result = zroundxnoverd((scaled) (dw), (integer) (ef), (integer) (1000)) ;
> }
> return Result ;
>}
>scaled
>zcharshrink ( internalfontnumber f , eightbits c )
>{
> register scaled Result;
> internalfontnumber k ;
> scaled dw ;
> integer ef ;
> Result = 0 ;
> k = pdffontshrink [f ];
> ef = (pdffontefbase[f] == 0 ? 1000 : pdfmem[pdffontefbase[f] + c]) ;
> if ( ( k != 0 ) && ( ef > 0 ) )
> {
> dw = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq .u.B0 ].cint - fontinfo [widthbase
> [k ]+ fontinfo [charbase [k ]+ zeffectivechar((boolean) (1), (internalfontnumber) (k), (quarterword) (c)) ].qqqq
> .u.B0 ].cint ;
> if ( dw > 0 )
> Result = zroundxnoverd((scaled) (dw), (integer) (ef), (integer) (1000)) ;
> }
> return Result ;
>}
>scaled
>zgetkern ( internalfontnumber f , eightbits lc , eightbits rc )
>{
> register scaled Result;
> fourquarters i ;
> fourquarters j ;
> fontindex k ;
> Result = 0 ;
> i = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (lc)) ].qqqq ;
> if ( ( ( i .u.B2 ) % 4 ) != 1 )
> return Result ;
> k = ligkernbase [f ]+ i .u.B3 ;
> j = fontinfo [k ].qqqq ;
> if ( j .u.B0 <= 128 )
> goto lab23 ;
> k = ligkernbase [f ]+ 256 * j .u.B2 + j .u.B3 + 32768L - 256 * ( 128 ) ;
> lab22: j = fontinfo [k ].qqqq ;
> lab23: if ( ( j .u.B1 == rc ) && ( j .u.B0 <= 128 ) && ( j .u.B2 >= 128 ) )
> {
> Result = fontinfo [kernbase [f ]+ 256 * j .u.B2 + j .u.B3 ].cint ;
> return Result ;
> }
> if ( j .u.B0 == 0 )
> ++(k) ;
> else {
>
> if ( j .u.B0 >= 128 )
> return Result ;
> k = k + j .u.B0 + 1 ;
> }
> goto lab22 ;
> return Result ;
>}
>scaled
>zkernstretch ( halfword p )
>{
> register scaled Result; register memoryword *mem=zmem;
> halfword l, r ;
> scaled d ;
> Result = 0 ;
> if ( ( prevcharp == -268435455L ) || ( mem [prevcharp ].hh .v.RH != p ) ||
> ( mem [p ].hh .v.RH == -268435455L ) )
> return Result ;
> l = prevcharp ;
> r = mem [p ].hh .v.RH ;
> if ( ! ( l >= himemmin ) ) {
>
> if ( mem [l ].hh.u.B0 == 6 )
> l = l + 1 ;
> else return Result ;
> }
> if ( ! ( r >= himemmin ) ) {
>
> if ( mem [r ].hh.u.B0 == 6 )
> r = r + 1 ;
> else return Result ;
> }
> if ( ! ( ( mem [l ].hh.u.B0 == mem [r ].hh.u.B0 ) && ( pdffontstretch [mem
> [l ].hh.u.B0 ]!= 0 ) ) )
> return Result ;
> d = zgetkern((internalfontnumber) (pdffontstretch [mem [l ].hh.u.B0 ]), (eightbits) (mem [l ].hh.u.B1), (eightbits) (mem [ r ].hh.u.B1))
> ;
> Result = zroundxnoverd((scaled) (d - mem [p + 1 ].cint), (integer) ((pdffontefbase[mem [l ] .hh.u.B0] == 0 ? 1000 : pdfmem[pdffontefbase[mem [l ] .hh.u.B0] + mem [l ].hh.u.B1])), (integer) (1000))
> ;
> return Result ;
>}
>scaled
>zkernshrink ( halfword p )
>{
> register scaled Result; register memoryword *mem=zmem;
> halfword l, r ;
> scaled d ;
> Result = 0 ;
> if ( ( prevcharp == -268435455L ) || ( mem [prevcharp ].hh .v.RH != p ) ||
> ( mem [p ].hh .v.RH == -268435455L ) )
> return Result ;
> l = prevcharp ;
> r = mem [p ].hh .v.RH ;
> if ( ! ( l >= himemmin ) ) {
>
> if ( mem [l ].hh.u.B0 == 6 )
> l = l + 1 ;
> else return Result ;
> }
> if ( ! ( r >= himemmin ) ) {
>
> if ( mem [r ].hh.u.B0 == 6 )
> r = r + 1 ;
> else return Result ;
> }
> if ( ! ( ( mem [l ].hh.u.B0 == mem [r ].hh.u.B0 ) && ( pdffontshrink [mem [
> l ].hh.u.B0 ]!= 0 ) ) )
> return Result ;
> d = zgetkern((internalfontnumber) (pdffontshrink [mem [l ].hh.u.B0 ]), (eightbits) (mem [l ].hh.u.B1), (eightbits) (mem [ r ].hh.u.B1))
> ;
> Result = zroundxnoverd((scaled) (mem [p + 1 ].cint - d), (integer) ((pdffontefbase[mem [l ] .hh.u.B0] == 0 ? 1000 : pdfmem[pdffontefbase[mem [l ] .hh.u.B0] + mem [l ].hh.u.B1])), (integer) (1000))
> ;
> return Result ;
>}
>void
>zdosubstfont ( halfword p , integer exratio )
>{
> register memoryword *mem=zmem;
> internalfontnumber f, k ;
> halfword r ;
> integer ef ;
> if ( ! ( p >= himemmin ) && ( mem [p ].hh.u.B0 == 7 ) )
> {
> r = mem [p + 1 ].hh .v.LH ;
> while ( r != -268435455L ) {
>
> if ( ( r >= himemmin ) || ( mem [r ].hh.u.B0 == 6 ) )
> zdosubstfont((halfword) (r), (integer) (exratio)) ;
> r = mem [r ].hh .v.RH ;
> }
> r = mem [p + 1 ].hh .v.RH ;
> while ( r != -268435455L ) {
>
> if ( ( r >= himemmin ) || ( mem [r ].hh.u.B0 == 6 ) )
> zdosubstfont((halfword) (r), (integer) (exratio)) ;
> r = mem [r ].hh .v.RH ;
> }
> return ;
> }
> if ( ( p >= himemmin ) )
> r = p ;
> else if ( mem [p ].hh.u.B0 == 6 )
> r = p + 1 ;
> else {
>
> zpdferror((strnumber) (1034), (strnumber) (1236)) ;
> }
> f = mem [r ].hh.u.B0 ;
> ef = (pdffontefbase[f] == 0 ? 1000 : pdfmem[pdffontefbase[f] + mem [r ].hh.u.B1]) ;
> if ( ef == 0 )
> return ;
> if ( ( pdffontstretch [f ]!= 0 ) && ( exratio > 0 ) )
> k = zexpandfont((internalfontnumber) (f), (integer) (extxnoverd ( exratio * ef , pdffontexpandratio [ pdffontstretch [f ]], 1000000L )))
> ;
> else if ( ( pdffontshrink [f ]!= 0 ) && ( exratio < 0 ) )
> k = zexpandfont((internalfontnumber) (f), (integer) (extxnoverd ( exratio * ef , - (integer) pdffontexpandratio [pdffontshrink [f ]], 1000000L )))
> ;
> else k = f ;
> if ( k != f )
> {
> mem [r ].hh.u.B0 = k ;
> if ( ! ( p >= himemmin ) )
> {
> r = mem [p + 1 ].hh .v.RH ;
> while ( r != -268435455L ) {
>
> mem [r ].hh.u.B0 = k ;
> r = mem [r ].hh .v.RH ;
> }
> }
> }
>}
>scaled
>zcharpw ( halfword p , smallnumber side )
>{
> register scaled Result; register memoryword *mem=zmem;
> internalfontnumber f ;
> integer c ;
> Result = 0 ;
> if ( side == 0 )
> lastleftmostchar = -268435455L ;
> else lastrightmostchar = -268435455L ;
> if ( p == -268435455L )
> return Result ;
> if ( ! ( p >= himemmin ) )
> {
> if ( mem [p ].hh.u.B0 == 6 )
> p = p + 1 ;
> else return Result ;
> }
> f = mem [p ].hh.u.B0 ;
> if ( side == 0 )
> {
> c = (pdffontlpbase[f] == 0 ? 0 : pdfmem[pdffontlpbase[f] + mem [p ].hh.u.B1]) ;
> lastleftmostchar = p ;
> }
> else {
>
> c = (pdffontrpbase[f] == 0 ? 0 : pdfmem[pdffontrpbase[f] + mem [p ].hh.u.B1]) ;
> lastrightmostchar = p ;
> }
> if ( c == 0 )
> return Result ;
> Result = zroundxnoverd((scaled) (fontinfo [6 + parambase [f ]].cint), (integer) (c), (integer) (1000))
> ;
> return Result ;
>}
>halfword
>znewmarginkern ( scaled w , halfword p , smallnumber side )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword k ;
> k = zgetnode((integer) (3)) ;
> mem [k ].hh.u.B0 = 40 ;
> mem [k ].hh.u.B1 = side ;
> mem [k + 1 ].cint = w ;
> if ( p == -268435455L )
> zpdferror((strnumber) (1237), (strnumber) (1238)) ;
> {
> mem [k + 2 ].hh .v.LH = avail ;
> if ( mem [k + 2 ].hh .v.LH == -268435455L )
> mem [k + 2 ].hh .v.LH = getavail () ;
> else {
>
> avail = mem [mem [k + 2 ].hh .v.LH ].hh .v.RH ;
> mem [mem [k + 2 ].hh .v.LH ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [mem [k + 2 ].hh .v.LH ].hh.u.B1 = mem [p ].hh.u.B1 ;
> mem [mem [k + 2 ].hh .v.LH ].hh.u.B0 = mem [p ].hh.u.B0 ;
> Result = k ;
> return Result ;
>}
>halfword
>zhpack ( halfword p , scaled w , smallnumber m )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword r ;
> halfword q ;
> scaled h, d, x ;
> scaled s ;
> halfword g ;
> glueord o ;
> internalfontnumber f ;
> fourquarters i ;
> eightbits hd ;
> scaled fontstretch ;
> scaled fontshrink ;
> scaled k ;
> lastbadness = 0 ;
> r = zgetnode((integer) (9)) ;
> mem [r ].hh.u.B0 = 0 ;
> mem [r ].hh.u.B1 = 0 ;
> mem [r + 4 ].cint = 0 ;
> q = r + 5 ;
> mem [q ].hh .v.RH = p ;
> if ( m == 2 )
> {
> prevcharp = -268435455L ;
> fontstretch = 0 ;
> fontshrink = 0 ;
> fontexpandratio = 0 ;
> }
> h = 0 ;
> d = 0 ;
> x = 0 ;
> totalstretch [0 ]= 0 ;
> totalshrink [0 ]= 0 ;
> totalstretch [1 ]= 0 ;
> totalshrink [1 ]= 0 ;
> totalstretch [2 ]= 0 ;
> totalshrink [2 ]= 0 ;
> totalstretch [3 ]= 0 ;
> totalshrink [3 ]= 0 ;
> if ( ( eqtb [27278 ].cint > 0 ) )
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = 0 ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> while ( p != -268435455L ) {
>
> lab21: while ( ( p >= himemmin ) ) {
>
> if ( m >= 2 )
> {
> prevcharp = p ;
> switch ( m )
> {case 2 :
> {
> f = mem [p ].hh.u.B0 ;
> fontstretch = fontstretch + zcharstretch((internalfontnumber) (f), (eightbits) (mem [p ].hh.u.B1)) ;
> fontshrink = fontshrink + zcharshrink((internalfontnumber) (f), (eightbits) (mem [p ].hh.u.B1)) ;
> }
> break ;
> case 3 :
> zdosubstfont((halfword) (p), (integer) (fontexpandratio)) ;
> break ;
> }
> }
> f = mem [p ].hh.u.B0 ;
> i = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [p ] .hh.u.B1))
> ].qqqq ;
> hd = i .u.B1 ;
> x = x + fontinfo [widthbase [f ]+ i .u.B0 ].cint ;
> s = fontinfo [heightbase [f ]+ ( hd ) / 16 ].cint ;
> if ( s > h )
> h = s ;
> s = fontinfo [depthbase [f ]+ ( hd ) % 16 ].cint ;
> if ( s > d )
> d = s ;
> p = mem [p ].hh .v.RH ;
> }
> if ( p != -268435455L )
> {
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> case 13 :
> {
> x = x + mem [p + 1 ].cint ;
> if ( mem [p ].hh.u.B0 >= 2 )
> s = 0 ;
> else s = mem [p + 4 ].cint ;
> if ( mem [p + 3 ].cint - s > h )
> h = mem [p + 3 ].cint - s ;
> if ( mem [p + 2 ].cint + s > d )
> d = mem [p + 2 ].cint + s ;
> }
> break ;
> case 3 :
> case 4 :
> case 5 :
> if ( ( adjusttail != -268435455L ) || ( preadjusttail != -268435455L )
> )
> {
> while ( mem [q ].hh .v.RH != p ) q = mem [q ].hh .v.RH ;
> if ( mem [p ].hh.u.B0 == 5 )
> {
> if ( mem [p ].hh.u.B1 != 0 )
> {
> if ( preadjusttail == -268435455L )
> zconfusion((strnumber) (1239)) ;
> mem [preadjusttail ].hh .v.RH = mem [p + 1 ].cint ;
> while ( mem [preadjusttail ].hh .v.RH != -268435455L )
> preadjusttail = mem [preadjusttail ].hh .v.RH ;
> }
> else {
>
> if ( adjusttail == -268435455L )
> zconfusion((strnumber) (1239)) ;
> mem [adjusttail ].hh .v.RH = mem [p + 1 ].cint ;
> while ( mem [adjusttail ].hh .v.RH != -268435455L ) adjusttail
> = mem [adjusttail ].hh .v.RH ;
> }
> p = mem [p ].hh .v.RH ;
> zfreenode((halfword) (mem [q ].hh .v.RH), (halfword) (2)) ;
> }
> else {
>
> mem [adjusttail ].hh .v.RH = p ;
> adjusttail = p ;
> p = mem [p ].hh .v.RH ;
> }
> mem [q ].hh .v.RH = p ;
> p = q ;
> }
> break ;
> case 8 :
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> {
> x = x + mem [p + 1 ].cint ;
> s = 0 ;
> if ( mem [p + 2 ].cint - s > h )
> h = mem [p + 2 ].cint - s ;
> if ( mem [p + 3 ].cint + s > d )
> d = mem [p + 3 ].cint + s ;
> }
> break ;
> case 10 :
> {
> g = mem [p + 1 ].hh .v.LH ;
> x = x + mem [g + 1 ].cint ;
> o = mem [g ].hh.u.B0 ;
> totalstretch [o ]= totalstretch [o ]+ mem [g + 2 ].cint ;
> o = mem [g ].hh.u.B1 ;
> totalshrink [o ]= totalshrink [o ]+ mem [g + 3 ].cint ;
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> g = mem [p + 1 ].hh .v.RH ;
> if ( mem [g + 3 ].cint > h )
> h = mem [g + 3 ].cint ;
> if ( mem [g + 2 ].cint > d )
> d = mem [g + 2 ].cint ;
> }
> }
> break ;
> case 40 :
> {
> if ( m == 2 )
> {
> f = mem [mem [p + 2 ].hh .v.LH ].hh.u.B0 ;
> zdosubstfont((halfword) (mem [p + 2 ].hh .v.LH), (integer) (1000)) ;
> if ( f != mem [mem [p + 2 ].hh .v.LH ].hh.u.B0 )
> fontstretch = fontstretch - mem [p + 1 ].cint - zcharpw((halfword) (mem [p + 2 ].hh .v.LH), (smallnumber) (mem [p ].hh.u.B1))
> ;
> mem [mem [p + 2 ].hh .v.LH ].hh.u.B0 = f ;
> zdosubstfont((halfword) (mem [p + 2 ].hh .v.LH), (integer) (-1000)) ;
> if ( f != mem [mem [p + 2 ].hh .v.LH ].hh.u.B0 )
> fontshrink = fontshrink - mem [p + 1 ].cint - zcharpw((halfword) (mem [p + 2 ].hh .v.LH), (smallnumber) (mem [p ].hh.u.B1))
> ;
> mem [mem [p + 2 ].hh .v.LH ].hh.u.B0 = f ;
> }
> else if ( m == 3 )
> {
> zdosubstfont((halfword) (mem [p + 2 ].hh .v.LH), (integer) (fontexpandratio)) ;
> mem [p + 1 ].cint = - (integer) zcharpw((halfword) (mem [p + 2 ].hh .v.LH), (smallnumber) (mem [p ].hh.u.B1))
> ;
> }
> x = x + mem [p + 1 ].cint ;
> }
> break ;
> case 11 :
> {
> if ( mem [p ].hh.u.B1 == 0 )
> {
> if ( m == 2 )
> {
> fontstretch = fontstretch + zkernstretch((halfword) (p)) ;
> fontshrink = fontshrink + zkernshrink((halfword) (p)) ;
> }
> else if ( m == 3 )
> {
> if ( fontexpandratio > 0 )
> k = zkernstretch((halfword) (p)) ;
> else if ( fontexpandratio < 0 )
> k = zkernshrink((halfword) (p)) ;
> else ((0) ? (void) (0) : __assert_fail ("0", "pdftex0.c", 26134, __PRETTY_FUNCTION__)) ;
> if ( k != 0 )
> {
> if ( ( mem [p ].hh .v.RH >= himemmin ) )
> mem [p + 1 ].cint = zgetkern((internalfontnumber) (mem [prevcharp ].hh.u.B0), (eightbits) (mem [prevcharp ].hh.u.B1), (eightbits) (mem [mem [p ].hh .v.RH ].hh.u.B1))
> ;
> else if ( mem [mem [p ].hh .v.RH ].hh.u.B0 == 6 )
> mem [p + 1 ].cint = zgetkern((internalfontnumber) (mem [prevcharp ].hh.u.B0), (eightbits) (mem [prevcharp ].hh.u.B1), (eightbits) (mem [mem [p ].hh .v.RH + 1 ].hh.u.B1))
>
> ;
> }
> }
> }
> x = x + mem [p + 1 ].cint ;
> }
> break ;
> case 9 :
> {
> x = x + mem [p + 1 ].cint ;
> if ( ( eqtb [27278 ].cint > 0 ) ) {
>
> if ( ((mem [p ].hh.u.B1) & 1) ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [p ].hh.u.B1 / 4 ) +
> 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> else {
>
> ++(LRproblems) ;
> mem [p ].hh.u.B0 = 11 ;
> mem [p ].hh.u.B1 = 1 ;
> }
> }
> else {
>
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3 )
> ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> }
> }
> break ;
> case 6 :
> {
> if ( m == 3 )
> zdosubstfont((halfword) (p), (integer) (fontexpandratio)) ;
> {
> mem [memtop - 12 ]= mem [p + 1 ];
> mem [memtop - 12 ].hh .v.RH = mem [p ].hh .v.RH ;
> p = memtop - 12 ;
> goto lab21 ;
> }
> }
> break ;
> case 7 :
> if ( m == 3 )
> zdosubstfont((halfword) (p), (integer) (fontexpandratio)) ;
> break ;
> default:
> ;
> break ;
> }
> p = mem [p ].hh .v.RH ;
> }
> }
> if ( adjusttail != -268435455L )
> mem [adjusttail ].hh .v.RH = -268435455L ;
> if ( preadjusttail != -268435455L )
> mem [preadjusttail ].hh .v.RH = -268435455L ;
> mem [r + 3 ].cint = h ;
> mem [r + 2 ].cint = d ;
> if ( m == 1 )
> w = x + w ;
> mem [r + 1 ].cint = w ;
> x = w - x ;
> if ( x == 0 )
> {
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 5 ].hh.u.B1 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> goto lab10 ;
> }
> else if ( x > 0 )
> {
> if ( totalstretch [3 ]!= 0 )
> o = 3 ;
> else if ( totalstretch [2 ]!= 0 )
> o = 2 ;
> else if ( totalstretch [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> if ( ( m == 2 ) && ( o == 0 ) && ( fontstretch > 0 ) )
> {
> fontexpandratio = zdividescaled((scaled) (x), (scaled) (fontstretch), (integer) (3)) ;
> goto lab10 ;
> }
> mem [r + 5 ].hh.u.B1 = o ;
> mem [r + 5 ].hh.u.B0 = 1 ;
> if ( totalstretch [o ]!= 0 )
> mem [r + 6 ].gr = x / ((double) totalstretch [o ]) ;
> else {
>
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> if ( o == 0 ) {
>
> if ( mem [r + 5 ].hh .v.RH != -268435455L )
> {
> lastbadness = zbadness((scaled) (x), (scaled) (totalstretch [0 ])) ;
> if ( lastbadness > eqtb [27203 ].cint )
> {
> println () ;
> if ( lastbadness > 100 )
> zprintnl((strnumber) (1240)) ;
> else zprintnl((strnumber) (1241)) ;
> zprint((integer) (1242)) ;
> zprintint((longinteger) (lastbadness)) ;
> goto lab50 ;
> }
> }
> }
> goto lab10 ;
> }
> else {
>
> if ( totalshrink [3 ]!= 0 )
> o = 3 ;
> else if ( totalshrink [2 ]!= 0 )
> o = 2 ;
> else if ( totalshrink [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> if ( ( m == 2 ) && ( o == 0 ) && ( fontshrink > 0 ) )
> {
> fontexpandratio = zdividescaled((scaled) (x), (scaled) (fontshrink), (integer) (3)) ;
> goto lab10 ;
> }
> mem [r + 5 ].hh.u.B1 = o ;
> mem [r + 5 ].hh.u.B0 = 2 ;
> if ( totalshrink [o ]!= 0 )
> mem [r + 6 ].gr = ( - (integer) x ) / ((double) totalshrink [o ]) ;
> else {
>
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> if ( ( totalshrink [o ]< - (integer) x ) && ( o == 0 ) && ( mem [r + 5
> ].hh .v.RH != -268435455L ) )
> {
> lastbadness = 1000000L ;
> mem [r + 6 ].gr = 1.0 ;
> if ( ( - (integer) x - totalshrink [0 ]> eqtb [27800 ].cint ) || (
> eqtb [27203 ].cint < 100 ) )
> {
> if ( ( eqtb [27808 ].cint > 0 ) && ( - (integer) x - totalshrink [0
> ]> eqtb [27800 ].cint ) )
> {
> while ( mem [q ].hh .v.RH != -268435455L ) q = mem [q ].hh .v.RH
> ;
> mem [q ].hh .v.RH = newrule () ;
> mem [mem [q ].hh .v.RH + 1 ].cint = eqtb [27808 ].cint ;
> }
> println () ;
> zprintnl((strnumber) (1248)) ;
> zprintscaled((scaled) (- (integer) x - totalshrink [0 ])) ;
> zprint((integer) (1249)) ;
> goto lab50 ;
> }
> }
> else if ( o == 0 ) {
>
> if ( mem [r + 5 ].hh .v.RH != -268435455L )
> {
> lastbadness = zbadness((scaled) (- (integer) x), (scaled) (totalshrink [0 ])) ;
> if ( lastbadness > eqtb [27203 ].cint )
> {
> println () ;
> zprintnl((strnumber) (1250)) ;
> zprintint((longinteger) (lastbadness)) ;
> goto lab50 ;
> }
> }
> }
> goto lab10 ;
> }
> lab50: if ( outputactive )
> zprint((integer) (1243)) ;
> else {
>
> if ( packbeginline != 0 )
> {
> if ( packbeginline > 0 )
> zprint((integer) (1244)) ;
> else zprint((integer) (1245)) ;
> zprintint((longinteger) (((integer)(packbeginline) >= 0 ? (integer)(packbeginline) : (integer)-(packbeginline)))) ;
> zprint((integer) (1246)) ;
> }
> else zprint((integer) (1247)) ;
> zprintint((longinteger) (line)) ;
> }
> println () ;
> fontinshortdisplay = 0 ;
> zshortdisplay((integer) (mem [r + 5 ].hh .v.RH)) ;
> println () ;
> begindiagnostic () ;
> zshowbox((halfword) (r)) ;
> zenddiagnostic((boolean) (1)) ;
> lab10: if ( ( eqtb [27278 ].cint > 0 ) )
> {
> if ( mem [LRptr ].hh .v.LH != 0 )
> {
> while ( mem [q ].hh .v.RH != -268435455L ) q = mem [q ].hh .v.RH ;
> do {
> tempptr = q ;
> q = znewmath((scaled) (0), (smallnumber) (mem [LRptr ].hh .v.LH)) ;
> mem [tempptr ].hh .v.RH = q ;
> LRproblems = LRproblems + 10000 ;
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> } while ( ! ( mem [LRptr ].hh .v.LH == 0 ) ) ;
> }
> if ( LRproblems > 0 )
> {
> {
> println () ;
> zprintnl((strnumber) (2012)) ;
> zprintint((longinteger) (LRproblems / 10000)) ;
> zprint((integer) (2013)) ;
> zprintint((longinteger) (LRproblems % 10000)) ;
> zprint((integer) (2014)) ;
> LRproblems = 0 ;
> }
> goto lab50 ;
> }
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> if ( LRptr != -268435455L )
> zconfusion((strnumber) (2011)) ;
> }
> if ( ( m == 2 ) && ( fontexpandratio != 0 ) )
> {
> fontexpandratio = zfixint((integer) (fontexpandratio), (integer) (-1000), (integer) (1000)) ;
> q = mem [r + 5 ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (9)) ;
> r = zhpack((halfword) (q), (scaled) (w), (smallnumber) (3)) ;
> }
> Result = r ;
> return Result ;
>}
>halfword
>zvpackage ( halfword p , scaled h , smallnumber m , scaled l )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword r ;
> scaled w, d, x ;
> scaled s ;
> halfword g ;
> glueord o ;
> lastbadness = 0 ;
> r = zgetnode((integer) (9)) ;
> mem [r ].hh.u.B0 = 1 ;
> mem [r ].hh.u.B1 = 0 ;
> mem [r + 4 ].cint = 0 ;
> mem [r + 5 ].hh .v.RH = p ;
> w = 0 ;
> d = 0 ;
> x = 0 ;
> totalstretch [0 ]= 0 ;
> totalshrink [0 ]= 0 ;
> totalstretch [1 ]= 0 ;
> totalshrink [1 ]= 0 ;
> totalstretch [2 ]= 0 ;
> totalshrink [2 ]= 0 ;
> totalstretch [3 ]= 0 ;
> totalshrink [3 ]= 0 ;
> while ( p != -268435455L ) {
>
> if ( ( p >= himemmin ) )
> zconfusion((strnumber) (1251)) ;
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> case 13 :
> {
> x = x + d + mem [p + 3 ].cint ;
> d = mem [p + 2 ].cint ;
> if ( mem [p ].hh.u.B0 >= 2 )
> s = 0 ;
> else s = mem [p + 4 ].cint ;
> if ( mem [p + 1 ].cint + s > w )
> w = mem [p + 1 ].cint + s ;
> }
> break ;
> case 8 :
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> {
> x = x + d + mem [p + 2 ].cint ;
> d = mem [p + 3 ].cint ;
> s = 0 ;
> if ( mem [p + 1 ].cint + s > w )
> w = mem [p + 1 ].cint + s ;
> }
> break ;
> case 10 :
> {
> x = x + d ;
> d = 0 ;
> g = mem [p + 1 ].hh .v.LH ;
> x = x + mem [g + 1 ].cint ;
> o = mem [g ].hh.u.B0 ;
> totalstretch [o ]= totalstretch [o ]+ mem [g + 2 ].cint ;
> o = mem [g ].hh.u.B1 ;
> totalshrink [o ]= totalshrink [o ]+ mem [g + 3 ].cint ;
> if ( mem [p ].hh.u.B1 >= 100 )
> {
> g = mem [p + 1 ].hh .v.RH ;
> if ( mem [g + 1 ].cint > w )
> w = mem [g + 1 ].cint ;
> }
> }
> break ;
> case 11 :
> {
> x = x + d + mem [p + 1 ].cint ;
> d = 0 ;
> }
> break ;
> default:
> ;
> break ;
> }
> p = mem [p ].hh .v.RH ;
> }
> mem [r + 1 ].cint = w ;
> if ( d > l )
> {
> x = x + d - l ;
> mem [r + 2 ].cint = l ;
> }
> else mem [r + 2 ].cint = d ;
> if ( m == 1 )
> h = x + h ;
> mem [r + 3 ].cint = h ;
> x = h - x ;
> if ( x == 0 )
> {
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 5 ].hh.u.B1 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> goto lab10 ;
> }
> else if ( x > 0 )
> {
> if ( totalstretch [3 ]!= 0 )
> o = 3 ;
> else if ( totalstretch [2 ]!= 0 )
> o = 2 ;
> else if ( totalstretch [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> mem [r + 5 ].hh.u.B1 = o ;
> mem [r + 5 ].hh.u.B0 = 1 ;
> if ( totalstretch [o ]!= 0 )
> mem [r + 6 ].gr = x / ((double) totalstretch [o ]) ;
> else {
>
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> if ( o == 0 ) {
>
> if ( mem [r + 5 ].hh .v.RH != -268435455L )
> {
> lastbadness = zbadness((scaled) (x), (scaled) (totalstretch [0 ])) ;
> if ( lastbadness > eqtb [27204 ].cint )
> {
> println () ;
> if ( lastbadness > 100 )
> zprintnl((strnumber) (1240)) ;
> else zprintnl((strnumber) (1241)) ;
> zprint((integer) (1252)) ;
> zprintint((longinteger) (lastbadness)) ;
> goto lab50 ;
> }
> }
> }
> goto lab10 ;
> }
> else {
>
> if ( totalshrink [3 ]!= 0 )
> o = 3 ;
> else if ( totalshrink [2 ]!= 0 )
> o = 2 ;
> else if ( totalshrink [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> mem [r + 5 ].hh.u.B1 = o ;
> mem [r + 5 ].hh.u.B0 = 2 ;
> if ( totalshrink [o ]!= 0 )
> mem [r + 6 ].gr = ( - (integer) x ) / ((double) totalshrink [o ]) ;
> else {
>
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> if ( ( totalshrink [o ]< - (integer) x ) && ( o == 0 ) && ( mem [r + 5
> ].hh .v.RH != -268435455L ) )
> {
> lastbadness = 1000000L ;
> mem [r + 6 ].gr = 1.0 ;
> if ( ( - (integer) x - totalshrink [0 ]> eqtb [27801 ].cint ) || (
> eqtb [27204 ].cint < 100 ) )
> {
> println () ;
> zprintnl((strnumber) (1253)) ;
> zprintscaled((scaled) (- (integer) x - totalshrink [0 ])) ;
> zprint((integer) (1254)) ;
> goto lab50 ;
> }
> }
> else if ( o == 0 ) {
>
> if ( mem [r + 5 ].hh .v.RH != -268435455L )
> {
> lastbadness = zbadness((scaled) (- (integer) x), (scaled) (totalshrink [0 ])) ;
> if ( lastbadness > eqtb [27204 ].cint )
> {
> println () ;
> zprintnl((strnumber) (1255)) ;
> zprintint((longinteger) (lastbadness)) ;
> goto lab50 ;
> }
> }
> }
> goto lab10 ;
> }
> lab50: if ( outputactive )
> zprint((integer) (1243)) ;
> else {
>
> if ( packbeginline != 0 )
> {
> zprint((integer) (1245)) ;
> zprintint((longinteger) (((integer)(packbeginline) >= 0 ? (integer)(packbeginline) : (integer)-(packbeginline)))) ;
> zprint((integer) (1246)) ;
> }
> else zprint((integer) (1247)) ;
> zprintint((longinteger) (line)) ;
> println () ;
> }
> begindiagnostic () ;
> zshowbox((halfword) (r)) ;
> zenddiagnostic((boolean) (1)) ;
> lab10: Result = r ;
> return Result ;
>}
>void
>zappendtovlist ( halfword b )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled d ;
> halfword p ;
> if ( curlist .auxfield .cint > eqtb [27824 ].cint )
> {
> d = mem [eqtb [24529 ].hh .v.RH + 1 ].cint - curlist .auxfield .cint -
> mem [b + 3 ].cint ;
> if ( d < eqtb [27794 ].cint )
> p = znewparamglue((smallnumber) (0)) ;
> else {
>
> p = znewskipparam((smallnumber) (1)) ;
> mem [tempptr + 1 ].cint = d ;
> }
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
> }
> mem [curlist .tailfield ].hh .v.RH = b ;
> curlist .tailfield = b ;
> curlist .auxfield .cint = mem [b + 2 ].cint ;
>}
>halfword
>newnoad ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (4)) ;
> mem [p ].hh.u.B0 = 16 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].hh = emptyfield ;
> mem [p + 3 ].hh = emptyfield ;
> mem [p + 2 ].hh = emptyfield ;
> Result = p ;
> return Result ;
>}
>halfword
>znewstyle ( smallnumber s )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (3)) ;
> mem [p ].hh.u.B0 = 14 ;
> mem [p ].hh.u.B1 = s ;
> mem [p + 1 ].cint = 0 ;
> mem [p + 2 ].cint = 0 ;
> Result = p ;
> return Result ;
>}
>halfword
>newchoice ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (3)) ;
> mem [p ].hh.u.B0 = 15 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].hh .v.LH = -268435455L ;
> mem [p + 1 ].hh .v.RH = -268435455L ;
> mem [p + 2 ].hh .v.LH = -268435455L ;
> mem [p + 2 ].hh .v.RH = -268435455L ;
> Result = p ;
> return Result ;
>}
>void
>showinfo ( void )
>{
> register memoryword *mem=zmem;
> zshownodelist((integer) (mem [tempptr ].hh .v.LH)) ;
>}
>halfword
>zfractionrule ( scaled t )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> p = newrule () ;
> mem [p + 3 ].cint = t ;
> mem [p + 2 ].cint = 0 ;
> Result = p ;
> return Result ;
>}
>halfword
>zoverbar ( halfword b , scaled k , scaled t )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p, q ;
> p = znewkern((scaled) (k)) ;
> mem [p ].hh .v.RH = b ;
> q = zfractionrule((scaled) (t)) ;
> mem [q ].hh .v.RH = p ;
> p = znewkern((scaled) (t)) ;
> mem [p ].hh .v.RH = q ;
> Result = zvpackage((halfword) (p), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L)) ;
> return Result ;
>}
>halfword
>zcharbox ( internalfontnumber f , quarterword c )
>{
> register halfword Result; register memoryword *mem=zmem;
> fourquarters q ;
> eightbits hd ;
> halfword b, p ;
> q = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq ;
> hd = q .u.B1 ;
> b = newnullbox () ;
> mem [b + 1 ].cint = fontinfo [widthbase [f ]+ q .u.B0 ].cint + fontinfo
> [italicbase [f ]+ ( q .u.B2 ) / 4 ].cint ;
> mem [b + 3 ].cint = fontinfo [heightbase [f ]+ ( hd ) / 16 ].cint ;
> mem [b + 2 ].cint = fontinfo [depthbase [f ]+ ( hd ) % 16 ].cint ;
> p = getavail () ;
> mem [p ].hh.u.B1 = c ;
> mem [p ].hh.u.B0 = f ;
> mem [b + 5 ].hh .v.RH = p ;
> Result = b ;
> return Result ;
>}
>void
>zstackintobox ( halfword b , internalfontnumber f , quarterword c )
>{
> register memoryword *mem=zmem;
> halfword p ;
> p = zcharbox((internalfontnumber) (f), (quarterword) (c)) ;
> mem [p ].hh .v.RH = mem [b + 5 ].hh .v.RH ;
> mem [b + 5 ].hh .v.RH = p ;
> mem [b + 3 ].cint = mem [p + 3 ].cint ;
>}
>scaled
>zheightplusdepth ( internalfontnumber f , quarterword c )
>{
> register scaled Result;
> fourquarters q ;
> eightbits hd ;
> q = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq ;
> hd = q .u.B1 ;
> Result = fontinfo [heightbase [f ]+ ( hd ) / 16 ].cint + fontinfo [
> depthbase [f ]+ ( hd ) % 16 ].cint ;
> return Result ;
>}
>halfword
>zvardelimiter ( halfword d , smallnumber s , scaled v )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword b ;
> internalfontnumber f, g ;
> quarterword c, x, y ;
> integer m, n ;
> scaled u ;
> scaled w ;
> fourquarters q ;
> eightbits hd ;
> fourquarters r ;
> smallnumber z ;
> boolean largeattempt ;
> f = 0 ;
> w = 0 ;
> largeattempt = 0 ;
> z = mem [d ].qqqq .u.B0 ;
> x = mem [d ].qqqq .u.B1 ;
> while ( 1 ) {
>
> if ( ( z != 0 ) || ( x != 0 ) )
> {
> z = z + s + 16 ;
> do {
> z = z - 16 ;
> g = eqtb [25593 + z ].hh .v.RH ;
> if ( g != 0 )
> {
> y = x ;
> if ( ( y >= fontbc [g ]) && ( y <= fontec [g ]) )
> {
> lab22: q = fontinfo [charbase [g ]+ y ].qqqq ;
> if ( ( q .u.B0 > 0 ) )
> {
> if ( ( ( q .u.B2 ) % 4 ) == 3 )
> {
> f = g ;
> c = y ;
> goto lab40 ;
> }
> hd = q .u.B1 ;
> u = fontinfo [heightbase [g ]+ ( hd ) / 16 ].cint + fontinfo
> [depthbase [g ]+ ( hd ) % 16 ].cint ;
> if ( u > w )
> {
> f = g ;
> c = y ;
> w = u ;
> if ( u >= v )
> goto lab40 ;
> }
> if ( ( ( q .u.B2 ) % 4 ) == 2 )
> {
> y = q .u.B3 ;
> goto lab22 ;
> }
> }
> }
> }
> } while ( ! ( z < 16 ) ) ;
> }
> if ( largeattempt )
> goto lab40 ;
> largeattempt = 1 ;
> z = mem [d ].qqqq .u.B2 ;
> x = mem [d ].qqqq .u.B3 ;
> }
> lab40: if ( f != 0 ) {
>
> if ( ( ( q .u.B2 ) % 4 ) == 3 )
> {
> b = newnullbox () ;
> mem [b ].hh.u.B0 = 1 ;
> r = fontinfo [extenbase [f ]+ q .u.B3 ].qqqq ;
> c = r .u.B3 ;
> u = zheightplusdepth((internalfontnumber) (f), (quarterword) (c)) ;
> w = 0 ;
> q = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (c)) ].qqqq ;
> mem [b + 1 ].cint = fontinfo [widthbase [f ]+ q .u.B0 ].cint +
> fontinfo [italicbase [f ]+ ( q .u.B2 ) / 4 ].cint ;
> c = r .u.B2 ;
> if ( c != 0 )
> w = w + zheightplusdepth((internalfontnumber) (f), (quarterword) (c)) ;
> c = r .u.B1 ;
> if ( c != 0 )
> w = w + zheightplusdepth((internalfontnumber) (f), (quarterword) (c)) ;
> c = r .u.B0 ;
> if ( c != 0 )
> w = w + zheightplusdepth((internalfontnumber) (f), (quarterword) (c)) ;
> n = 0 ;
> if ( u > 0 )
> while ( w < v ) {
>
> w = w + u ;
> ++(n) ;
> if ( r .u.B1 != 0 )
> w = w + u ;
> }
> c = r .u.B2 ;
> if ( c != 0 )
> zstackintobox((halfword) (b), (internalfontnumber) (f), (quarterword) (c)) ;
> c = r .u.B3 ;
> {register integer for_end; m = 1 ;for_end = n ; if ( m <= for_end) do
> zstackintobox((halfword) (b), (internalfontnumber) (f), (quarterword) (c)) ;
> while ( m++ < for_end ) ;}
> c = r .u.B1 ;
> if ( c != 0 )
> {
> zstackintobox((halfword) (b), (internalfontnumber) (f), (quarterword) (c)) ;
> c = r .u.B3 ;
> {register integer for_end; m = 1 ;for_end = n ; if ( m <= for_end)
> do
> zstackintobox((halfword) (b), (internalfontnumber) (f), (quarterword) (c)) ;
> while ( m++ < for_end ) ;}
> }
> c = r .u.B0 ;
> if ( c != 0 )
> zstackintobox((halfword) (b), (internalfontnumber) (f), (quarterword) (c)) ;
> mem [b + 2 ].cint = w - mem [b + 3 ].cint ;
> }
> else b = zcharbox((internalfontnumber) (f), (quarterword) (c)) ;
> }
> else {
>
> b = newnullbox () ;
> mem [b + 1 ].cint = eqtb [27803 ].cint ;
> }
> mem [b + 4 ].cint = zhalf((integer) (mem [b + 3 ].cint - mem [b + 2 ].cint)) -
> fontinfo [22 + parambase [eqtb [25595 + s ].hh .v.RH ]].cint ;
> Result = b ;
> return Result ;
>}
>halfword
>zrebox ( halfword b , scaled w )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> internalfontnumber f ;
> scaled v ;
> if ( ( mem [b + 1 ].cint != w ) && ( mem [b + 5 ].hh .v.RH !=
> -268435455L ) )
> {
> if ( mem [b ].hh.u.B0 == 1 )
> b = zhpack((halfword) (b), (scaled) (0), (smallnumber) (1)) ;
> p = mem [b + 5 ].hh .v.RH ;
> if ( ( ( p >= himemmin ) ) && ( mem [p ].hh .v.RH == -268435455L ) )
> {
> f = mem [p ].hh.u.B0 ;
> v = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [p ].hh.u.B1)) ].qqqq .u.B0 ].cint ;
> if ( v != mem [b + 1 ].cint )
> mem [p ].hh .v.RH = znewkern((scaled) (mem [b + 1 ].cint - v)) ;
> }
> zfreenode((halfword) (b), (halfword) (9)) ;
> b = znewglue((halfword) (membot + 12)) ;
> mem [b ].hh .v.RH = p ;
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = znewglue((halfword) (membot + 12)) ;
> Result = zhpack((halfword) (b), (scaled) (w), (smallnumber) (0)) ;
> }
> else {
>
> mem [b + 1 ].cint = w ;
> Result = b ;
> }
> return Result ;
>}
>halfword
>zmathglue ( halfword g , scaled m )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> integer n ;
> scaled f ;
> n = zxovern((scaled) (m), (integer) (65536L)) ;
> f = texremainder ;
> if ( f < 0 )
> {
> --(n) ;
> f = f + 65536L ;
> }
> p = zgetnode((integer) (4)) ;
> mem [p + 1 ].cint = zmultandadd((integer) (n), (scaled) (mem [g + 1 ].cint), (scaled) (zxnoverd((scaled) (mem [ g + 1 ].cint), (integer) (f), (integer) (65536L))), (scaled) (1073741823L))
> ;
> mem [p ].hh.u.B0 = mem [g ].hh.u.B0 ;
> if ( mem [p ].hh.u.B0 == 0 )
> mem [p + 2 ].cint = zmultandadd((integer) (n), (scaled) (mem [g + 2 ].cint), (scaled) (zxnoverd((scaled) (mem [ g + 2 ].cint), (integer) (f), (integer) (65536L))), (scaled) (1073741823L))
> ;
> else mem [p + 2 ].cint = mem [g + 2 ].cint ;
> mem [p ].hh.u.B1 = mem [g ].hh.u.B1 ;
> if ( mem [p ].hh.u.B1 == 0 )
> mem [p + 3 ].cint = zmultandadd((integer) (n), (scaled) (mem [g + 3 ].cint), (scaled) (zxnoverd((scaled) (mem [ g + 3 ].cint), (integer) (f), (integer) (65536L))), (scaled) (1073741823L))
> ;
> else mem [p + 3 ].cint = mem [g + 3 ].cint ;
> Result = p ;
> return Result ;
>}
>void
>zmathkern ( halfword p , scaled m )
>{
> register memoryword *mem=zmem;
> integer n ;
> scaled f ;
> if ( mem [p ].hh.u.B1 == 99 )
> {
> n = zxovern((scaled) (m), (integer) (65536L)) ;
> f = texremainder ;
> if ( f < 0 )
> {
> --(n) ;
> f = f + 65536L ;
> }
> mem [p + 1 ].cint = zmultandadd((integer) (n), (scaled) (mem [p + 1 ].cint), (scaled) (zxnoverd((scaled) (mem [p + 1 ].cint), (integer) (f), (integer) (65536L))), (scaled) (1073741823L))
> ;
> mem [p ].hh.u.B1 = 1 ;
> }
>}
>void
>flushmath ( void )
>{
> register memoryword *mem=zmem;
> zflushnodelist((halfword) (mem [curlist .headfield ].hh .v.RH)) ;
> zflushnodelist((halfword) (curlist .auxfield .cint)) ;
> mem [curlist .headfield ].hh .v.RH = -268435455L ;
> curlist .tailfield = curlist .headfield ;
> curlist .auxfield .cint = -268435455L ;
>}
>halfword
>zcleanbox ( halfword p , smallnumber s )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword q ;
> smallnumber savestyle ;
> halfword x ;
> halfword r ;
> switch ( mem [p ].hh .v.RH )
> {case 1 :
> {
> curmlist = newnoad () ;
> mem [curmlist + 1 ]= mem [p ];
> }
> break ;
> case 2 :
> {
> q = mem [p ].hh .v.LH ;
> goto lab40 ;
> }
> break ;
> case 3 :
> curmlist = mem [p ].hh .v.LH ;
> break ;
> default:
> {
> q = newnullbox () ;
> goto lab40 ;
> }
> break ;
> }
> savestyle = curstyle ;
> curstyle = s ;
> mlistpenalties = 0 ;
> mlisttohlist () ;
> q = mem [memtop - 3 ].hh .v.RH ;
> curstyle = savestyle ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint), (integer) (18))
> ;
> }
> lab40: if ( ( q >= himemmin ) || ( q == -268435455L ) )
> x = zhpack((halfword) (q), (scaled) (0), (smallnumber) (1)) ;
> else if ( ( mem [q ].hh .v.RH == -268435455L ) && ( mem [q ].hh.u.B0 <= 1
> ) && ( mem [q + 4 ].cint == 0 ) )
> x = q ;
> else x = zhpack((halfword) (q), (scaled) (0), (smallnumber) (1)) ;
> q = mem [x + 5 ].hh .v.RH ;
> if ( ( q >= himemmin ) )
> {
> r = mem [q ].hh .v.RH ;
> if ( r != -268435455L ) {
>
> if ( mem [r ].hh .v.RH == -268435455L ) {
>
> if ( ! ( r >= himemmin ) ) {
>
> if ( mem [r ].hh.u.B0 == 11 )
> {
> zfreenode((halfword) (r), (halfword) (4)) ;
> mem [q ].hh .v.RH = -268435455L ;
> }
> }
> }
> }
> }
> Result = x ;
> return Result ;
>}
>void
>zfetch ( halfword a )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> curc = mem [a ].hh.u.B1 ;
> curf = eqtb [25593 + mem [a ].hh.u.B0 + cursize ].hh .v.RH ;
> if ( curf == 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (345)) ;
> }
> zprintsize((integer) (cursize)) ;
> zprintchar((ASCIIcode) (32)) ;
> zprintint((longinteger) (mem [a ].hh.u.B0)) ;
> zprint((integer) (1281)) ;
> zprint((integer) (curc)) ;
> zprintchar((ASCIIcode) (41)) ;
> {
> helpptr = 4 ;
> helpline [3 ]= 1282 ;
> helpline [2 ]= 1283 ;
> helpline [1 ]= 1284 ;
> helpline [0 ]= 1285 ;
> }
> error () ;
> curi = nullcharacter ;
> mem [a ].hh .v.RH = 0 ;
> }
> else {
>
> if ( ( curc >= fontbc [curf ]) && ( curc <= fontec [curf ]) )
> curi = fontinfo [charbase [curf ]+ curc ].qqqq ;
> else curi = nullcharacter ;
> if ( ! ( ( curi .u.B0 > 0 ) ) )
> {
> zcharwarning((internalfontnumber) (curf), (eightbits) (curc)) ;
> mem [a ].hh .v.RH = 0 ;
> }
> }
>}
>void
>zmakeover ( halfword q )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> mem [q + 1 ].hh .v.LH = zoverbar((halfword) (zcleanbox((halfword) (q + 1), (smallnumber) (2 * ( curstyle / 2 ) + 1))), (scaled) (3 * fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ] ].cint), (scaled) (fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]] .cint))
>
>
> ;
> mem [q + 1 ].hh .v.RH = 2 ;
>}
>void
>zmakeunder ( halfword q )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, x, y ;
> scaled delta ;
> x = zcleanbox((halfword) (q + 1), (smallnumber) (curstyle)) ;
> p = znewkern((scaled) (3 * fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]].cint))
> ;
> mem [x ].hh .v.RH = p ;
> mem [p ].hh .v.RH = zfractionrule((scaled) (fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]].cint))
> ;
> y = zvpackage((halfword) (x), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L)) ;
> delta = mem [y + 3 ].cint + mem [y + 2 ].cint + fontinfo [8 + parambase
> [eqtb [25596 + cursize ].hh .v.RH ]].cint ;
> mem [y + 3 ].cint = mem [x + 3 ].cint ;
> mem [y + 2 ].cint = delta - mem [y + 3 ].cint ;
> mem [q + 1 ].hh .v.LH = y ;
> mem [q + 1 ].hh .v.RH = 2 ;
>}
>void
>zmakevcenter ( halfword q )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword v ;
> scaled delta ;
> v = mem [q + 1 ].hh .v.LH ;
> if ( mem [v ].hh.u.B0 != 1 )
> zconfusion((strnumber) (616)) ;
> delta = mem [v + 3 ].cint + mem [v + 2 ].cint ;
> mem [v + 3 ].cint = fontinfo [22 + parambase [eqtb [25595 + cursize ]
> .hh .v.RH ]].cint + zhalf((integer) (delta)) ;
> mem [v + 2 ].cint = delta - mem [v + 3 ].cint ;
>}
>void
>zmakeradical ( halfword q )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword x, y ;
> scaled delta, clr ;
> x = zcleanbox((halfword) (q + 1), (smallnumber) (2 * ( curstyle / 2 ) + 1)) ;
> if ( curstyle < 2 )
> clr = fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]]
> .cint + ( ((integer)(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint) >= 0 ? (integer)(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint) : (integer)-(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint))
> / 4 ) ;
> else {
>
> clr = fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]]
> .cint ;
> clr = clr + ( ((integer)(clr) >= 0 ? (integer)(clr) : (integer)-(clr)) / 4 ) ;
> }
> y = zvardelimiter((halfword) (q + 4), (smallnumber) (cursize), (scaled) (mem [x + 3 ].cint + mem [x + 2 ] .cint + clr + fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]].cint))
>
> ;
> delta = mem [y + 2 ].cint - ( mem [x + 3 ].cint + mem [x + 2 ].cint +
> clr ) ;
> if ( delta > 0 )
> clr = clr + zhalf((integer) (delta)) ;
> mem [y + 4 ].cint = - (integer) ( mem [x + 3 ].cint + clr ) ;
> mem [y ].hh .v.RH = zoverbar((halfword) (x), (scaled) (clr), (scaled) (mem [y + 3 ].cint)) ;
> mem [q + 1 ].hh .v.LH = zhpack((halfword) (y), (scaled) (0), (smallnumber) (1)) ;
> mem [q + 1 ].hh .v.RH = 2 ;
>}
>void
>zmakemathaccent ( halfword q )
>{
> register memoryword *mem=zmem;
> halfword p, x, y ;
> integer a ;
> quarterword c ;
> internalfontnumber f ;
> fourquarters i ;
> scaled s ;
> scaled h ;
> scaled delta ;
> scaled w ;
> zfetch((halfword) (q + 4)) ;
> if ( ( curi .u.B0 > 0 ) )
> {
> i = curi ;
> c = curc ;
> f = curf ;
> s = 0 ;
> if ( mem [q + 1 ].hh .v.RH == 1 )
> {
> zfetch((halfword) (q + 1)) ;
> if ( ( ( curi .u.B2 ) % 4 ) == 1 )
> {
> a = ligkernbase [curf ]+ curi .u.B3 ;
> curi = fontinfo [a ].qqqq ;
> if ( curi .u.B0 > 128 )
> {
> a = ligkernbase [curf ]+ 256 * curi .u.B2 + curi .u.B3 + 32768L - 256
> * ( 128 ) ;
> curi = fontinfo [a ].qqqq ;
> }
> while ( 1 ) {
>
> if ( curi .u.B1 == skewchar [curf ])
> {
> if ( curi .u.B2 >= 128 ) {
>
> if ( curi .u.B0 <= 128 )
> s = fontinfo [kernbase [curf ]+ 256 * curi .u.B2 + curi .u.B3 ]
> .cint ;
> }
> goto lab31 ;
> }
> if ( curi .u.B0 >= 128 )
> goto lab31 ;
> a = a + curi .u.B0 + 1 ;
> curi = fontinfo [a ].qqqq ;
> }
> }
> }
> lab31: ;
> x = zcleanbox((halfword) (q + 1), (smallnumber) (2 * ( curstyle / 2 ) + 1)) ;
> w = mem [x + 1 ].cint ;
> h = mem [x + 3 ].cint ;
> while ( 1 ) {
>
> if ( ( ( i .u.B2 ) % 4 ) != 2 )
> goto lab30 ;
> y = i .u.B3 ;
> i = fontinfo [charbase [f ]+ y ].qqqq ;
> if ( ! ( i .u.B0 > 0 ) )
> goto lab30 ;
> if ( fontinfo [widthbase [f ]+ i .u.B0 ].cint > w )
> goto lab30 ;
> c = y ;
> }
> lab30: ;
> if ( h < fontinfo [5 + parambase [f ]].cint )
> delta = h ;
> else delta = fontinfo [5 + parambase [f ]].cint ;
> if ( ( mem [q + 2 ].hh .v.RH != 0 ) || ( mem [q + 3 ].hh .v.RH != 0 )
> ) {
>
> if ( mem [q + 1 ].hh .v.RH == 1 )
> {
> zflushnodelist((halfword) (x)) ;
> x = newnoad () ;
> mem [x + 1 ]= mem [q + 1 ];
> mem [x + 2 ]= mem [q + 2 ];
> mem [x + 3 ]= mem [q + 3 ];
> mem [q + 2 ].hh = emptyfield ;
> mem [q + 3 ].hh = emptyfield ;
> mem [q + 1 ].hh .v.RH = 3 ;
> mem [q + 1 ].hh .v.LH = x ;
> x = zcleanbox((halfword) (q + 1), (smallnumber) (curstyle)) ;
> delta = delta + mem [x + 3 ].cint - h ;
> h = mem [x + 3 ].cint ;
> }
> }
> y = zcharbox((internalfontnumber) (f), (quarterword) (c)) ;
> mem [y + 4 ].cint = s + zhalf((integer) (w - mem [y + 1 ].cint)) ;
> mem [y + 1 ].cint = 0 ;
> p = znewkern((scaled) (- (integer) delta)) ;
> mem [p ].hh .v.RH = x ;
> mem [y ].hh .v.RH = p ;
> y = zvpackage((halfword) (y), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L)) ;
> mem [y + 1 ].cint = mem [x + 1 ].cint ;
> if ( mem [y + 3 ].cint < h )
> {
> p = znewkern((scaled) (h - mem [y + 3 ].cint)) ;
> mem [p ].hh .v.RH = mem [y + 5 ].hh .v.RH ;
> mem [y + 5 ].hh .v.RH = p ;
> mem [y + 3 ].cint = h ;
> }
> mem [q + 1 ].hh .v.LH = y ;
> mem [q + 1 ].hh .v.RH = 2 ;
> }
>}
>void
>zmakefraction ( halfword q )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, v, x, y, z ;
> scaled delta, delta1, delta2, shiftup, shiftdown, clr ;
> if ( mem [q + 1 ].cint == 1073741824L )
> mem [q + 1 ].cint = fontinfo [8 + parambase [eqtb [25596 + cursize ]
> .hh .v.RH ]].cint ;
> x = zcleanbox((halfword) (q + 2), (smallnumber) (curstyle + 2 - 2 * ( curstyle / 6 ))) ;
> z = zcleanbox((halfword) (q + 3), (smallnumber) (2 * ( curstyle / 2 ) + 3 - 2 * ( curstyle / 6 ))) ;
> if ( mem [x + 1 ].cint < mem [z + 1 ].cint )
> x = zrebox((halfword) (x), (scaled) (mem [z + 1 ].cint)) ;
> else z = zrebox((halfword) (z), (scaled) (mem [x + 1 ].cint)) ;
> if ( curstyle < 2 )
> {
> shiftup = fontinfo [8 + parambase [eqtb [25595 + cursize ].hh .v.RH ]
> ].cint ;
> shiftdown = fontinfo [11 + parambase [eqtb [25595 + cursize ].hh .v.RH
> ]].cint ;
> }
> else {
>
> shiftdown = fontinfo [12 + parambase [eqtb [25595 + cursize ].hh .v.RH
> ]].cint ;
> if ( mem [q + 1 ].cint != 0 )
> shiftup = fontinfo [9 + parambase [eqtb [25595 + cursize ].hh .v.RH ]
> ].cint ;
> else shiftup = fontinfo [10 + parambase [eqtb [25595 + cursize ].hh
> .v.RH ]].cint ;
> }
> if ( mem [q + 1 ].cint == 0 )
> {
> if ( curstyle < 2 )
> clr = 7 * fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH ]
> ].cint ;
> else clr = 3 * fontinfo [8 + parambase [eqtb [25596 + cursize ].hh
> .v.RH ]].cint ;
> delta = zhalf((integer) (clr - ( ( shiftup - mem [x + 2 ].cint ) - ( mem [z + 3 ] .cint - shiftdown ) )))
> ;
> if ( delta > 0 )
> {
> shiftup = shiftup + delta ;
> shiftdown = shiftdown + delta ;
> }
> }
> else {
>
> if ( curstyle < 2 )
> clr = 3 * mem [q + 1 ].cint ;
> else clr = mem [q + 1 ].cint ;
> delta = zhalf((integer) (mem [q + 1 ].cint)) ;
> delta1 = clr - ( ( shiftup - mem [x + 2 ].cint ) - ( fontinfo [22 +
> parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint + delta ) ) ;
> delta2 = clr - ( ( fontinfo [22 + parambase [eqtb [25595 + cursize ]
> .hh .v.RH ]].cint - delta ) - ( mem [z + 3 ].cint - shiftdown ) ) ;
> if ( delta1 > 0 )
> shiftup = shiftup + delta1 ;
> if ( delta2 > 0 )
> shiftdown = shiftdown + delta2 ;
> }
> v = newnullbox () ;
> mem [v ].hh.u.B0 = 1 ;
> mem [v + 3 ].cint = shiftup + mem [x + 3 ].cint ;
> mem [v + 2 ].cint = mem [z + 2 ].cint + shiftdown ;
> mem [v + 1 ].cint = mem [x + 1 ].cint ;
> if ( mem [q + 1 ].cint == 0 )
> {
> p = znewkern((scaled) (( shiftup - mem [x + 2 ].cint ) - ( mem [z + 3 ].cint - shiftdown )))
> ;
> mem [p ].hh .v.RH = z ;
> }
> else {
>
> y = zfractionrule((scaled) (mem [q + 1 ].cint)) ;
> p = znewkern((scaled) (( fontinfo [22 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint - delta ) - ( mem [z + 3 ].cint - shiftdown )))
> ;
> mem [y ].hh .v.RH = p ;
> mem [p ].hh .v.RH = z ;
> p = znewkern((scaled) (( shiftup - mem [x + 2 ].cint ) - ( fontinfo [22 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint + delta )))
> ;
> mem [p ].hh .v.RH = y ;
> }
> mem [x ].hh .v.RH = p ;
> mem [v + 5 ].hh .v.RH = x ;
> if ( curstyle < 2 )
> delta = fontinfo [20 + parambase [eqtb [25595 + cursize ].hh .v.RH ]]
> .cint ;
> else delta = fontinfo [21 + parambase [eqtb [25595 + cursize ].hh .v.RH
> ]].cint ;
> x = zvardelimiter((halfword) (q + 4), (smallnumber) (cursize), (scaled) (delta)) ;
> mem [x ].hh .v.RH = v ;
> z = zvardelimiter((halfword) (q + 5), (smallnumber) (cursize), (scaled) (delta)) ;
> mem [v ].hh .v.RH = z ;
> mem [q + 1 ].cint = zhpack((halfword) (x), (scaled) (0), (smallnumber) (1)) ;
>}
>scaled
>zmakeop ( halfword q )
>{
> register scaled Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled delta ;
> halfword p, v, x, y, z ;
> quarterword c ;
> fourquarters i ;
> scaled shiftup, shiftdown ;
> if ( ( mem [q ].hh.u.B1 == 0 ) && ( curstyle < 2 ) )
> mem [q ].hh.u.B1 = 1 ;
> if ( mem [q + 1 ].hh .v.RH == 1 )
> {
> zfetch((halfword) (q + 1)) ;
> if ( ( curstyle < 2 ) && ( ( ( curi .u.B2 ) % 4 ) == 2 ) )
> {
> c = curi .u.B3 ;
> i = fontinfo [charbase [curf ]+ c ].qqqq ;
> if ( ( i .u.B0 > 0 ) )
> {
> curc = c ;
> curi = i ;
> mem [q + 1 ].hh.u.B1 = c ;
> }
> }
> delta = fontinfo [italicbase [curf ]+ ( curi .u.B2 ) / 4 ].cint ;
> x = zcleanbox((halfword) (q + 1), (smallnumber) (curstyle)) ;
> if ( ( mem [q + 3 ].hh .v.RH != 0 ) && ( mem [q ].hh.u.B1 != 1 ) )
> mem [x + 1 ].cint = mem [x + 1 ].cint - delta ;
> mem [x + 4 ].cint = zhalf((integer) (mem [x + 3 ].cint - mem [x + 2 ].cint)) -
> fontinfo [22 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint ;
> mem [q + 1 ].hh .v.RH = 2 ;
> mem [q + 1 ].hh .v.LH = x ;
> }
> else delta = 0 ;
> if ( mem [q ].hh.u.B1 == 1 )
> {
> x = zcleanbox((halfword) (q + 2), (smallnumber) (2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ))) ;
> y = zcleanbox((halfword) (q + 1), (smallnumber) (curstyle)) ;
> z = zcleanbox((halfword) (q + 3), (smallnumber) (2 * ( curstyle / 4 ) + 5)) ;
> v = newnullbox () ;
> mem [v ].hh.u.B0 = 1 ;
> mem [v + 1 ].cint = mem [y + 1 ].cint ;
> if ( mem [x + 1 ].cint > mem [v + 1 ].cint )
> mem [v + 1 ].cint = mem [x + 1 ].cint ;
> if ( mem [z + 1 ].cint > mem [v + 1 ].cint )
> mem [v + 1 ].cint = mem [z + 1 ].cint ;
> x = zrebox((halfword) (x), (scaled) (mem [v + 1 ].cint)) ;
> y = zrebox((halfword) (y), (scaled) (mem [v + 1 ].cint)) ;
> z = zrebox((halfword) (z), (scaled) (mem [v + 1 ].cint)) ;
> mem [x + 4 ].cint = zhalf((integer) (delta)) ;
> mem [z + 4 ].cint = - (integer) mem [x + 4 ].cint ;
> mem [v + 3 ].cint = mem [y + 3 ].cint ;
> mem [v + 2 ].cint = mem [y + 2 ].cint ;
> if ( mem [q + 2 ].hh .v.RH == 0 )
> {
> zfreenode((halfword) (x), (halfword) (9)) ;
> mem [v + 5 ].hh .v.RH = y ;
> }
> else {
>
> shiftup = fontinfo [11 + parambase [eqtb [25596 + cursize ].hh .v.RH
> ]].cint - mem [x + 2 ].cint ;
> if ( shiftup < fontinfo [9 + parambase [eqtb [25596 + cursize ].hh
> .v.RH ]].cint )
> shiftup = fontinfo [9 + parambase [eqtb [25596 + cursize ].hh .v.RH
> ]].cint ;
> p = znewkern((scaled) (shiftup)) ;
> mem [p ].hh .v.RH = y ;
> mem [x ].hh .v.RH = p ;
> p = znewkern((scaled) (fontinfo [13 + parambase [eqtb [25596 + cursize ].hh .v.RH ]].cint))
> ;
> mem [p ].hh .v.RH = x ;
> mem [v + 5 ].hh .v.RH = p ;
> mem [v + 3 ].cint = mem [v + 3 ].cint + fontinfo [13 + parambase [
> eqtb [25596 + cursize ].hh .v.RH ]].cint + mem [x + 3 ].cint + mem
> [x + 2 ].cint + shiftup ;
> }
> if ( mem [q + 3 ].hh .v.RH == 0 )
> zfreenode((halfword) (z), (halfword) (9)) ;
> else {
>
> shiftdown = fontinfo [12 + parambase [eqtb [25596 + cursize ].hh
> .v.RH ]].cint - mem [z + 3 ].cint ;
> if ( shiftdown < fontinfo [10 + parambase [eqtb [25596 + cursize ]
> .hh .v.RH ]].cint )
> shiftdown = fontinfo [10 + parambase [eqtb [25596 + cursize ].hh
> .v.RH ]].cint ;
> p = znewkern((scaled) (shiftdown)) ;
> mem [y ].hh .v.RH = p ;
> mem [p ].hh .v.RH = z ;
> p = znewkern((scaled) (fontinfo [13 + parambase [eqtb [25596 + cursize ].hh .v.RH ]].cint))
> ;
> mem [z ].hh .v.RH = p ;
> mem [v + 2 ].cint = mem [v + 2 ].cint + fontinfo [13 + parambase [
> eqtb [25596 + cursize ].hh .v.RH ]].cint + mem [z + 3 ].cint + mem
> [z + 2 ].cint + shiftdown ;
> }
> mem [q + 1 ].cint = v ;
> }
> Result = delta ;
> return Result ;
>}
>void
>zmakeord ( halfword q )
>{
> register memoryword *mem=zmem;
> integer a ;
> halfword p, r ;
> lab20: if ( mem [q + 3 ].hh .v.RH == 0 ) {
>
> if ( mem [q + 2 ].hh .v.RH == 0 ) {
>
> if ( mem [q + 1 ].hh .v.RH == 1 )
> {
> p = mem [q ].hh .v.RH ;
> if ( p != -268435455L ) {
>
> if ( ( mem [p ].hh.u.B0 >= 16 ) && ( mem [p ].hh.u.B0 <= 22 ) ) {
>
> if ( mem [p + 1 ].hh .v.RH == 1 ) {
>
> if ( mem [p + 1 ].hh.u.B0 == mem [q + 1 ].hh.u.B0 )
> {
> mem [q + 1 ].hh .v.RH = 4 ;
> zfetch((halfword) (q + 1)) ;
> if ( ( ( curi .u.B2 ) % 4 ) == 1 )
> {
> a = ligkernbase [curf ]+ curi .u.B3 ;
> curc = mem [p + 1 ].hh.u.B1 ;
> curi = fontinfo [a ].qqqq ;
> if ( curi .u.B0 > 128 )
> {
> a = ligkernbase [curf ]+ 256 * curi .u.B2 + curi .u.B3 +
> 32768L - 256 * ( 128 ) ;
> curi = fontinfo [a ].qqqq ;
> }
> while ( 1 ) {
>
> if ( curi .u.B1 == curc ) {
>
> if ( curi .u.B0 <= 128 ) {
>
> if ( curi .u.B2 >= 128 )
> {
> p = znewkern((scaled) (fontinfo [kernbase [curf ]+ 256 * curi .u.B2 + curi .u.B3 ].cint))
> ;
> mem [p ].hh .v.RH = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = p ;
> return ;
> }
> else {
>
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
> switch ( curi .u.B2 )
> {case 1 :
> case 5 :
> mem [q + 1 ].hh.u.B1 = curi .u.B3 ;
> break ;
> case 2 :
> case 6 :
> mem [p + 1 ].hh.u.B1 = curi .u.B3 ;
> break ;
> case 3 :
> case 7 :
> case 11 :
> {
> r = newnoad () ;
> mem [r + 1 ].hh.u.B1 = curi .u.B3 ;
> mem [r + 1 ].hh.u.B0 = mem [q + 1 ].hh.u.B0 ;
> mem [q ].hh .v.RH = r ;
> mem [r ].hh .v.RH = p ;
> if ( curi .u.B2 < 11 )
> mem [r + 1 ].hh .v.RH = 1 ;
> else mem [r + 1 ].hh .v.RH = 4 ;
> }
> break ;
> default:
> {
> mem [q ].hh .v.RH = mem [p ].hh .v.RH ;
> mem [q + 1 ].hh.u.B1 = curi .u.B3 ;
> mem [q + 3 ]= mem [p + 3 ];
> mem [q + 2 ]= mem [p + 2 ];
> zfreenode((halfword) (p), (halfword) (4)) ;
> }
> break ;
> }
> if ( curi .u.B2 > 3 )
> return ;
> mem [q + 1 ].hh .v.RH = 1 ;
> goto lab20 ;
> }
> }
> }
> if ( curi .u.B0 >= 128 )
> return ;
> a = a + curi .u.B0 + 1 ;
> curi = fontinfo [a ].qqqq ;
> }
> }
> }
> }
> }
> }
> }
> }
> }
>}
>void
>zmakescripts ( halfword q , scaled delta )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, x, y, z ;
> scaled shiftup, shiftdown, clr ;
> smallnumber t ;
> p = mem [q + 1 ].cint ;
> if ( ( p >= himemmin ) )
> {
> shiftup = 0 ;
> shiftdown = 0 ;
> }
> else {
>
> z = zhpack((halfword) (p), (scaled) (0), (smallnumber) (1)) ;
> if ( curstyle < 4 )
> t = 16 ;
> else t = 32 ;
> shiftup = mem [z + 3 ].cint - fontinfo [18 + parambase [eqtb [25595 +
> t ].hh .v.RH ]].cint ;
> shiftdown = mem [z + 2 ].cint + fontinfo [19 + parambase [eqtb [25595
> + t ].hh .v.RH ]].cint ;
> zfreenode((halfword) (z), (halfword) (9)) ;
> }
> if ( mem [q + 2 ].hh .v.RH == 0 )
> {
> x = zcleanbox((halfword) (q + 3), (smallnumber) (2 * ( curstyle / 4 ) + 5)) ;
> mem [x + 1 ].cint = mem [x + 1 ].cint + eqtb [27804 ].cint ;
> if ( shiftdown < fontinfo [16 + parambase [eqtb [25595 + cursize ].hh
> .v.RH ]].cint )
> shiftdown = fontinfo [16 + parambase [eqtb [25595 + cursize ].hh .v.RH
> ]].cint ;
> clr = mem [x + 3 ].cint - ( ((integer)(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint * 4) >= 0 ? (integer)(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint * 4) : (integer)-(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint * 4))
> / 5 ) ;
> if ( shiftdown < clr )
> shiftdown = clr ;
> mem [x + 4 ].cint = shiftdown ;
> }
> else {
>
> {
> x = zcleanbox((halfword) (q + 2), (smallnumber) (2 * ( curstyle / 4 ) + 4 + ( curstyle % 2 ))) ;
> mem [x + 1 ].cint = mem [x + 1 ].cint + eqtb [27804 ].cint ;
> if ( ((curstyle) & 1) )
> clr = fontinfo [15 + parambase [eqtb [25595 + cursize ].hh .v.RH ]]
> .cint ;
> else if ( curstyle < 2 )
> clr = fontinfo [13 + parambase [eqtb [25595 + cursize ].hh .v.RH ]]
> .cint ;
> else clr = fontinfo [14 + parambase [eqtb [25595 + cursize ].hh
> .v.RH ]].cint ;
> if ( shiftup < clr )
> shiftup = clr ;
> clr = mem [x + 2 ].cint + ( ((integer)(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint) >= 0 ? (integer)(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint) : (integer)-(fontinfo [5 + parambase [eqtb [ 25595 + cursize ].hh .v.RH ]].cint))
> / 4 ) ;
> if ( shiftup < clr )
> shiftup = clr ;
> }
> if ( mem [q + 3 ].hh .v.RH == 0 )
> mem [x + 4 ].cint = - (integer) shiftup ;
> else {
>
> y = zcleanbox((halfword) (q + 3), (smallnumber) (2 * ( curstyle / 4 ) + 5)) ;
> mem [y + 1 ].cint = mem [y + 1 ].cint + eqtb [27804 ].cint ;
> if ( shiftdown < fontinfo [17 + parambase [eqtb [25595 + cursize ]
> .hh .v.RH ]].cint )
> shiftdown = fontinfo [17 + parambase [eqtb [25595 + cursize ].hh
> .v.RH ]].cint ;
> clr = 4 * fontinfo [8 + parambase [eqtb [25596 + cursize ].hh .v.RH
> ]].cint - ( ( shiftup - mem [x + 2 ].cint ) - ( mem [y + 3 ].cint
> - shiftdown ) ) ;
> if ( clr > 0 )
> {
> shiftdown = shiftdown + clr ;
> clr = ( ((integer)(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint * 4) >= 0 ? (integer)(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint * 4) : (integer)-(fontinfo [5 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint * 4))
> / 5 ) - ( shiftup - mem [x + 2 ].cint ) ;
> if ( clr > 0 )
> {
> shiftup = shiftup + clr ;
> shiftdown = shiftdown - clr ;
> }
> }
> mem [x + 4 ].cint = delta ;
> p = znewkern((scaled) (( shiftup - mem [x + 2 ].cint ) - ( mem [y + 3 ].cint - shiftdown )))
> ;
> mem [x ].hh .v.RH = p ;
> mem [p ].hh .v.RH = y ;
> x = zvpackage((halfword) (x), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L)) ;
> mem [x + 4 ].cint = shiftdown ;
> }
> }
> if ( mem [q + 1 ].cint == -268435455L )
> mem [q + 1 ].cint = x ;
> else {
>
> p = mem [q + 1 ].cint ;
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = x ;
> }
>}
>smallnumber
>zmakeleftright ( halfword q , smallnumber style , scaled maxd , scaled maxh )
>{
> register smallnumber Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled delta, delta1, delta2 ;
> curstyle = style ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint), (integer) (18))
> ;
> }
> delta2 = maxd + fontinfo [22 + parambase [eqtb [25595 + cursize ].hh
> .v.RH ]].cint ;
> delta1 = maxh + maxd - delta2 ;
> if ( delta2 > delta1 )
> delta1 = delta2 ;
> delta = ( delta1 / 500 ) * eqtb [27195 ].cint ;
> delta2 = delta1 + delta1 - eqtb [27802 ].cint ;
> if ( delta < delta2 )
> delta = delta2 ;
> mem [q + 1 ].cint = zvardelimiter((halfword) (q + 1), (smallnumber) (cursize), (scaled) (delta)) ;
> Result = mem [q ].hh.u.B0 - ( 10 ) ;
> return Result ;
>}
>void
>mlisttohlist ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword mlist ;
> boolean penalties ;
> smallnumber style ;
> smallnumber savestyle ;
> halfword q ;
> halfword r ;
> smallnumber rtype ;
> smallnumber t ;
> halfword p, x, y, z ;
> integer pen ;
> smallnumber s ;
> scaled maxh, maxd ;
> scaled delta ;
> mlist = curmlist ;
> penalties = mlistpenalties ;
> style = curstyle ;
> q = mlist ;
> r = -268435455L ;
> rtype = 17 ;
> maxh = 0 ;
> maxd = 0 ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint), (integer) (18))
> ;
> }
> while ( q != -268435455L ) {
>
> lab21: delta = 0 ;
> switch ( mem [q ].hh.u.B0 )
> {case 18 :
> switch ( rtype )
> {case 18 :
> case 17 :
> case 19 :
> case 20 :
> case 22 :
> case 30 :
> {
> mem [q ].hh.u.B0 = 16 ;
> goto lab21 ;
> }
> break ;
> default:
> ;
> break ;
> }
> break ;
> case 19 :
> case 21 :
> case 22 :
> case 31 :
> {
> if ( rtype == 18 )
> mem [r ].hh.u.B0 = 16 ;
> if ( mem [q ].hh.u.B0 == 31 )
> goto lab80 ;
> }
> break ;
> case 30 :
> goto lab80 ;
> break ;
> case 25 :
> {
> zmakefraction((halfword) (q)) ;
> goto lab82 ;
> }
> break ;
> case 17 :
> {
> delta = zmakeop((halfword) (q)) ;
> if ( mem [q ].hh.u.B1 == 1 )
> goto lab82 ;
> }
> break ;
> case 16 :
> zmakeord((halfword) (q)) ;
> break ;
> case 20 :
> case 23 :
> ;
> break ;
> case 24 :
> zmakeradical((halfword) (q)) ;
> break ;
> case 27 :
> zmakeover((halfword) (q)) ;
> break ;
> case 26 :
> zmakeunder((halfword) (q)) ;
> break ;
> case 28 :
> zmakemathaccent((halfword) (q)) ;
> break ;
> case 29 :
> zmakevcenter((halfword) (q)) ;
> break ;
> case 14 :
> {
> curstyle = mem [q ].hh.u.B1 ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ] .hh .v.RH ]].cint), (integer) (18))
> ;
> }
> goto lab81 ;
> }
> break ;
> case 15 :
> {
> switch ( curstyle / 2 )
> {case 0 :
> {
> p = mem [q + 1 ].hh .v.LH ;
> mem [q + 1 ].hh .v.LH = -268435455L ;
> }
> break ;
> case 1 :
> {
> p = mem [q + 1 ].hh .v.RH ;
> mem [q + 1 ].hh .v.RH = -268435455L ;
> }
> break ;
> case 2 :
> {
> p = mem [q + 2 ].hh .v.LH ;
> mem [q + 2 ].hh .v.LH = -268435455L ;
> }
> break ;
> case 3 :
> {
> p = mem [q + 2 ].hh .v.RH ;
> mem [q + 2 ].hh .v.RH = -268435455L ;
> }
> break ;
> }
> zflushnodelist((halfword) (mem [q + 1 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [q + 1 ].hh .v.RH)) ;
> zflushnodelist((halfword) (mem [q + 2 ].hh .v.LH)) ;
> zflushnodelist((halfword) (mem [q + 2 ].hh .v.RH)) ;
> mem [q ].hh.u.B0 = 14 ;
> mem [q ].hh.u.B1 = curstyle ;
> mem [q + 1 ].cint = 0 ;
> mem [q + 2 ].cint = 0 ;
> if ( p != -268435455L )
> {
> z = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = p ;
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH
> ;
> mem [p ].hh .v.RH = z ;
> }
> goto lab81 ;
> }
> break ;
> case 3 :
> case 4 :
> case 5 :
> case 8 :
> case 12 :
> case 7 :
> goto lab81 ;
> break ;
> case 2 :
> {
> if ( mem [q + 3 ].cint > maxh )
> maxh = mem [q + 3 ].cint ;
> if ( mem [q + 2 ].cint > maxd )
> maxd = mem [q + 2 ].cint ;
> goto lab81 ;
> }
> break ;
> case 10 :
> {
> if ( mem [q ].hh.u.B1 == 99 )
> {
> x = mem [q + 1 ].hh .v.LH ;
> y = zmathglue((halfword) (x), (scaled) (curmu)) ;
> zdeleteglueref((halfword) (x)) ;
> mem [q + 1 ].hh .v.LH = y ;
> mem [q ].hh.u.B1 = 0 ;
> }
> else if ( ( cursize != 0 ) && ( mem [q ].hh.u.B1 == 98 ) )
> {
> p = mem [q ].hh .v.RH ;
> if ( p != -268435455L ) {
>
> if ( ( mem [p ].hh.u.B0 == 10 ) || ( mem [p ].hh.u.B0 == 11 ) )
> {
> mem [q ].hh .v.RH = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (p)) ;
> }
> }
> }
> goto lab81 ;
> }
> break ;
> case 11 :
> {
> zmathkern((halfword) (q), (scaled) (curmu)) ;
> goto lab81 ;
> }
> break ;
> default:
> zconfusion((strnumber) (1286)) ;
> break ;
> }
> switch ( mem [q + 1 ].hh .v.RH )
> {case 1 :
> case 4 :
> {
> zfetch((halfword) (q + 1)) ;
> if ( ( curi .u.B0 > 0 ) )
> {
> delta = fontinfo [italicbase [curf ]+ ( curi .u.B2 ) / 4 ].cint ;
> p = znewcharacter((internalfontnumber) (curf), (eightbits) (curc)) ;
> if ( ( mem [q + 1 ].hh .v.RH == 4 ) && ( fontinfo [2 + parambase
> [curf ]].cint != 0 ) )
> delta = 0 ;
> if ( ( mem [q + 3 ].hh .v.RH == 0 ) && ( delta != 0 ) )
> {
> mem [p ].hh .v.RH = znewkern((scaled) (delta)) ;
> delta = 0 ;
> }
> }
> else p = -268435455L ;
> }
> break ;
> case 0 :
> p = -268435455L ;
> break ;
> case 2 :
> p = mem [q + 1 ].hh .v.LH ;
> break ;
> case 3 :
> {
> curmlist = mem [q + 1 ].hh .v.LH ;
> savestyle = curstyle ;
> mlistpenalties = 0 ;
> mlisttohlist () ;
> curstyle = savestyle ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ] .hh .v.RH ]].cint), (integer) (18))
> ;
> }
> p = zhpack((halfword) (mem [memtop - 3 ].hh .v.RH), (scaled) (0), (smallnumber) (1)) ;
> }
> break ;
> default:
> zconfusion((strnumber) (1287)) ;
> break ;
> }
> mem [q + 1 ].cint = p ;
> if ( ( mem [q + 3 ].hh .v.RH == 0 ) && ( mem [q + 2 ].hh .v.RH == 0 )
> )
> goto lab82 ;
> zmakescripts((halfword) (q), (scaled) (delta)) ;
> lab82: z = zhpack((halfword) (mem [q + 1 ].cint), (scaled) (0), (smallnumber) (1)) ;
> if ( mem [z + 3 ].cint > maxh )
> maxh = mem [z + 3 ].cint ;
> if ( mem [z + 2 ].cint > maxd )
> maxd = mem [z + 2 ].cint ;
> zfreenode((halfword) (z), (halfword) (9)) ;
> lab80: r = q ;
> rtype = mem [r ].hh.u.B0 ;
> if ( rtype == 31 )
> {
> rtype = 30 ;
> curstyle = style ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ] .hh .v.RH ]].cint), (integer) (18))
> ;
> }
> }
> lab81: q = mem [q ].hh .v.RH ;
> }
> if ( rtype == 18 )
> mem [r ].hh.u.B0 = 16 ;
> p = memtop - 3 ;
> mem [p ].hh .v.RH = -268435455L ;
> q = mlist ;
> rtype = 0 ;
> curstyle = style ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ].hh .v.RH ]].cint), (integer) (18))
> ;
> }
> while ( q != -268435455L ) {
>
> t = 16 ;
> s = 4 ;
> pen = 10000 ;
> switch ( mem [q ].hh.u.B0 )
> {case 17 :
> case 20 :
> case 21 :
> case 22 :
> case 23 :
> t = mem [q ].hh.u.B0 ;
> break ;
> case 18 :
> {
> t = 18 ;
> pen = eqtb [27186 ].cint ;
> }
> break ;
> case 19 :
> {
> t = 19 ;
> pen = eqtb [27187 ].cint ;
> }
> break ;
> case 16 :
> case 29 :
> case 27 :
> case 26 :
> ;
> break ;
> case 24 :
> s = 5 ;
> break ;
> case 28 :
> s = 5 ;
> break ;
> case 25 :
> {
> t = 23 ;
> s = 6 ;
> }
> break ;
> case 30 :
> case 31 :
> t = zmakeleftright((halfword) (q), (smallnumber) (style), (scaled) (maxd), (scaled) (maxh)) ;
> break ;
> case 14 :
> {
> curstyle = mem [q ].hh.u.B1 ;
> s = 3 ;
> {
> if ( curstyle < 4 )
> cursize = 0 ;
> else cursize = 16 * ( ( curstyle - 2 ) / 2 ) ;
> curmu = zxovern((scaled) (fontinfo [6 + parambase [eqtb [25595 + cursize ] .hh .v.RH ]].cint), (integer) (18))
> ;
> }
> goto lab83 ;
> }
> break ;
> case 8 :
> case 12 :
> case 2 :
> case 7 :
> case 5 :
> case 3 :
> case 4 :
> case 10 :
> case 11 :
> {
> mem [p ].hh .v.RH = q ;
> p = q ;
> q = mem [q ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> goto lab30 ;
> }
> break ;
> default:
> zconfusion((strnumber) (1288)) ;
> break ;
> }
> if ( rtype > 0 )
> {
> switch ( strpool [rtype * 8 + t + magicoffset ])
> {case 48 :
> x = 0 ;
> break ;
> case 49 :
> if ( curstyle < 4 )
> x = 15 ;
> else x = 0 ;
> break ;
> case 50 :
> x = 15 ;
> break ;
> case 51 :
> if ( curstyle < 4 )
> x = 16 ;
> else x = 0 ;
> break ;
> case 52 :
> if ( curstyle < 4 )
> x = 17 ;
> else x = 0 ;
> break ;
> default:
> zconfusion((strnumber) (1290)) ;
> break ;
> }
> if ( x != 0 )
> {
> y = zmathglue((halfword) (eqtb [24528 + x ].hh .v.RH), (scaled) (curmu)) ;
> z = znewglue((halfword) (y)) ;
> mem [y ].hh .v.RH = -268435455L ;
> mem [p ].hh .v.RH = z ;
> p = z ;
> mem [z ].hh.u.B1 = x + 1 ;
> }
> }
> if ( mem [q + 1 ].cint != -268435455L )
> {
> mem [p ].hh .v.RH = mem [q + 1 ].cint ;
> do {
> p = mem [p ].hh .v.RH ;
> } while ( ! ( mem [p ].hh .v.RH == -268435455L ) ) ;
> }
> if ( penalties ) {
>
> if ( mem [q ].hh .v.RH != -268435455L ) {
>
> if ( pen < 10000 )
> {
> rtype = mem [mem [q ].hh .v.RH ].hh.u.B0 ;
> if ( rtype != 12 ) {
>
> if ( rtype != 19 )
> {
> z = znewpenalty((integer) (pen)) ;
> mem [p ].hh .v.RH = z ;
> p = z ;
> }
> }
> }
> }
> }
> if ( mem [q ].hh.u.B0 == 31 )
> t = 20 ;
> rtype = t ;
> lab83: r = q ;
> q = mem [q ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (s)) ;
> lab30: ;
> }
>}
>void
>pushalignment ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (6)) ;
> mem [p ].hh .v.RH = alignptr ;
> mem [p ].hh .v.LH = curalign ;
> mem [p + 1 ].hh .v.LH = mem [memtop - 8 ].hh .v.RH ;
> mem [p + 1 ].hh .v.RH = curspan ;
> mem [p + 2 ].cint = curloop ;
> mem [p + 3 ].cint = alignstate ;
> mem [p + 4 ].hh .v.LH = curhead ;
> mem [p + 4 ].hh .v.RH = curtail ;
> mem [p + 5 ].hh .v.LH = curprehead ;
> mem [p + 5 ].hh .v.RH = curpretail ;
> alignptr = p ;
> curhead = getavail () ;
> curprehead = getavail () ;
>}
>void
>popalignment ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> {
> mem [curhead ].hh .v.RH = avail ;
> avail = curhead ;
> ;
>
> --(dynused) ;
>
> }
> {
> mem [curprehead ].hh .v.RH = avail ;
> avail = curprehead ;
> ;
>
> --(dynused) ;
>
> }
> p = alignptr ;
> curtail = mem [p + 4 ].hh .v.RH ;
> curhead = mem [p + 4 ].hh .v.LH ;
> curpretail = mem [p + 5 ].hh .v.RH ;
> curprehead = mem [p + 5 ].hh .v.LH ;
> alignstate = mem [p + 3 ].cint ;
> curloop = mem [p + 2 ].cint ;
> curspan = mem [p + 1 ].hh .v.RH ;
> mem [memtop - 8 ].hh .v.RH = mem [p + 1 ].hh .v.LH ;
> curalign = mem [p ].hh .v.LH ;
> alignptr = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (6)) ;
>}
>void
>getpreambletoken ( void )
>{
> register memoryword *eqtb=zeqtb;
> lab20: gettoken () ;
> while ( ( curchr == 256 ) && ( curcmd == 4 ) ) {
>
> gettoken () ;
> if ( curcmd > 102 )
> {
> expand () ;
> gettoken () ;
> }
> }
> if ( curcmd == 9 )
> zfatalerror((strnumber) (676)) ;
> if ( ( curcmd == 75 ) && ( curchr == 24539 ) )
> {
> scanoptionalequals () ;
> zscanglue((smallnumber) (2)) ;
> if ( eqtb [27220 ].cint > 0 )
> zgeqdefine((halfword) (24539), (quarterword) (119), (halfword) (curval)) ;
> else zeqdefine((halfword) (24539), (quarterword) (119), (halfword) (curval)) ;
> goto lab20 ;
> }
>}
>void
>initalign ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword savecsptr ;
> halfword p ;
> savecsptr = curcs ;
> pushalignment () ;
> alignstate = -1000000L ;
> if ( ( curlist .modefield == 207 ) && ( ( curlist .tailfield != curlist
> .headfield ) || ( curlist .auxfield .cint != -268435455L ) ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (781)) ;
> }
> zprintesc((strnumber) (596)) ;
> zprint((integer) (1291)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1292 ;
> helpline [1 ]= 1293 ;
> helpline [0 ]= 1294 ;
> }
> error () ;
> flushmath () ;
> }
> pushnest () ;
> if ( curlist .modefield == 207 )
> {
> curlist .modefield = -1 ;
> curlist .auxfield .cint = nest [nestptr - 2 ].auxfield .cint ;
> }
> else if ( curlist .modefield > 0 )
> curlist .modefield = - (integer) curlist .modefield ;
> zscanspec((groupcode) (6), (boolean) (0)) ;
> mem [memtop - 8 ].hh .v.RH = -268435455L ;
> curalign = memtop - 8 ;
> curloop = -268435455L ;
> scannerstatus = 4 ;
> warningindex = savecsptr ;
> alignstate = -1000000L ;
> while ( 1 ) {
>
> mem [curalign ].hh .v.RH = znewparamglue((smallnumber) (11)) ;
> curalign = mem [curalign ].hh .v.RH ;
> if ( curcmd == 5 )
> goto lab30 ;
> p = memtop - 4 ;
> mem [p ].hh .v.RH = -268435455L ;
> while ( 1 ) {
>
> getpreambletoken () ;
> if ( curcmd == 6 )
> goto lab31 ;
> if ( ( curcmd <= 5 ) && ( curcmd >= 4 ) && ( alignstate == -1000000L ) )
> {
> if ( ( p == memtop - 4 ) && ( curloop == -268435455L ) && ( curcmd ==
> 4 ) )
> curloop = curalign ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1300)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1301 ;
> helpline [1 ]= 1302 ;
> helpline [0 ]= 1303 ;
> }
> backerror () ;
> goto lab31 ;
> }
> }
> else if ( ( curcmd != 10 ) || ( p != memtop - 4 ) )
> {
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = curtok ;
> }
> }
> lab31: ;
> mem [curalign ].hh .v.RH = newnullbox () ;
> curalign = mem [curalign ].hh .v.RH ;
> mem [curalign ].hh .v.LH = memtop - 9 ;
> mem [curalign + 1 ].cint = -1073741824L ;
> mem [curalign + 3 ].cint = mem [memtop - 4 ].hh .v.RH ;
> p = memtop - 4 ;
> mem [p ].hh .v.RH = -268435455L ;
> while ( 1 ) {
>
> lab22: getpreambletoken () ;
> if ( ( curcmd <= 5 ) && ( curcmd >= 4 ) && ( alignstate == -1000000L ) )
> goto lab32 ;
> if ( curcmd == 6 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1304)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1301 ;
> helpline [1 ]= 1302 ;
> helpline [0 ]= 1305 ;
> }
> error () ;
> goto lab22 ;
> }
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = curtok ;
> }
> lab32: mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = 19614 ;
> mem [curalign + 2 ].cint = mem [memtop - 4 ].hh .v.RH ;
> }
> lab30: scannerstatus = 0 ;
> znewsavelevel((groupcode) (6)) ;
> if ( eqtb [25066 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25066 ].hh .v.RH), (quarterword) (13)) ;
> alignpeek () ;
>}
>void
>zinitspan ( halfword p )
>{
> register memoryword *eqtb=zeqtb;
> pushnest () ;
> if ( curlist .modefield == -104 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else {
>
> curlist .auxfield .cint = eqtb [27824 ].cint ;
> normalparagraph () ;
> }
> curspan = p ;
>}
>void
>initrow ( void )
>{
> register memoryword *mem=zmem;
> pushnest () ;
> curlist .modefield = ( -105 ) - curlist .modefield ;
> if ( curlist .modefield == -104 )
> curlist .auxfield .hh .v.LH = 0 ;
> else curlist .auxfield .cint = 0 ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewglue((halfword) (mem [mem [memtop - 8 ] .hh .v.RH + 1 ].hh .v.LH))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B1 = 12 ;
> curalign = mem [mem [memtop - 8 ].hh .v.RH ].hh .v.RH ;
> curtail = curhead ;
> curpretail = curprehead ;
> zinitspan((halfword) (curalign)) ;
>}
>void
>initcol ( void )
>{
> register memoryword *mem=zmem;
> mem [curalign + 5 ].hh .v.LH = curcmd ;
> if ( curcmd == 63 )
> alignstate = 0 ;
> else {
>
> backinput () ;
> zbegintokenlist((halfword) (mem [curalign + 3 ].cint), (quarterword) (1)) ;
> }
>}
>boolean
>fincol ( void )
>{
> register boolean Result; register memoryword *mem=zmem;
> halfword p ;
> halfword q, r ;
> halfword s ;
> halfword u ;
> scaled w ;
> glueord o ;
> halfword n ;
> if ( curalign == -268435455L )
> zconfusion((strnumber) (1306)) ;
> q = mem [curalign ].hh .v.RH ;
> if ( q == -268435455L )
> zconfusion((strnumber) (1306)) ;
> if ( alignstate < 500000L )
> zfatalerror((strnumber) (676)) ;
> p = mem [q ].hh .v.RH ;
> if ( ( p == -268435455L ) && ( mem [curalign + 5 ].hh .v.LH < 257 ) ) {
>
> if ( curloop != -268435455L )
> {
> mem [q ].hh .v.RH = newnullbox () ;
> p = mem [q ].hh .v.RH ;
> mem [p ].hh .v.LH = memtop - 9 ;
> mem [p + 1 ].cint = -1073741824L ;
> curloop = mem [curloop ].hh .v.RH ;
> q = memtop - 4 ;
> r = mem [curloop + 3 ].cint ;
> while ( r != -268435455L ) {
>
> mem [q ].hh .v.RH = getavail () ;
> q = mem [q ].hh .v.RH ;
> mem [q ].hh .v.LH = mem [r ].hh .v.LH ;
> r = mem [r ].hh .v.RH ;
> }
> mem [q ].hh .v.RH = -268435455L ;
> mem [p + 3 ].cint = mem [memtop - 4 ].hh .v.RH ;
> q = memtop - 4 ;
> r = mem [curloop + 2 ].cint ;
> while ( r != -268435455L ) {
>
> mem [q ].hh .v.RH = getavail () ;
> q = mem [q ].hh .v.RH ;
> mem [q ].hh .v.LH = mem [r ].hh .v.LH ;
> r = mem [r ].hh .v.RH ;
> }
> mem [q ].hh .v.RH = -268435455L ;
> mem [p + 2 ].cint = mem [memtop - 4 ].hh .v.RH ;
> curloop = mem [curloop ].hh .v.RH ;
> mem [p ].hh .v.RH = znewglue((halfword) (mem [curloop + 1 ].hh .v.LH)) ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1307)) ;
> }
> zprintesc((strnumber) (1296)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1308 ;
> helpline [1 ]= 1309 ;
> helpline [0 ]= 1310 ;
> }
> mem [curalign + 5 ].hh .v.LH = 257 ;
> error () ;
> }
> }
> if ( mem [curalign + 5 ].hh .v.LH != 256 )
> {
> unsave () ;
> znewsavelevel((groupcode) (6)) ;
> {
> if ( curlist .modefield == -104 )
> {
> adjusttail = curtail ;
> preadjusttail = curpretail ;
> u = zhpack((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (0), (smallnumber) (1)) ;
> w = mem [u + 1 ].cint ;
> curtail = adjusttail ;
> adjusttail = -268435455L ;
> curpretail = preadjusttail ;
> preadjusttail = -268435455L ;
> }
> else {
>
> u = zvpackage((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (0), (smallnumber) (1), (scaled) (0)) ;
> w = mem [u + 3 ].cint ;
> }
> n = 0 ;
> if ( curspan != curalign )
> {
> q = curspan ;
> do {
> ++(n) ;
> q = mem [mem [q ].hh .v.RH ].hh .v.RH ;
> } while ( ! ( q == curalign ) ) ;
> if ( n > 255 )
> zconfusion((strnumber) (1311)) ;
> q = curspan ;
> while ( mem [mem [q ].hh .v.LH ].hh .v.RH < n ) q = mem [q ].hh
> .v.LH ;
> if ( mem [mem [q ].hh .v.LH ].hh .v.RH > n )
> {
> s = zgetnode((integer) (2)) ;
> mem [s ].hh .v.LH = mem [q ].hh .v.LH ;
> mem [s ].hh .v.RH = n ;
> mem [q ].hh .v.LH = s ;
> mem [s + 1 ].cint = w ;
> }
> else if ( mem [mem [q ].hh .v.LH + 1 ].cint < w )
> mem [mem [q ].hh .v.LH + 1 ].cint = w ;
> }
> else if ( w > mem [curalign + 1 ].cint )
> mem [curalign + 1 ].cint = w ;
> mem [u ].hh.u.B0 = 13 ;
> mem [u ].hh.u.B1 = n ;
> if ( totalstretch [3 ]!= 0 )
> o = 3 ;
> else if ( totalstretch [2 ]!= 0 )
> o = 2 ;
> else if ( totalstretch [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> mem [u + 5 ].hh.u.B1 = o ;
> mem [u + 6 ].cint = totalstretch [o ];
> if ( totalshrink [3 ]!= 0 )
> o = 3 ;
> else if ( totalshrink [2 ]!= 0 )
> o = 2 ;
> else if ( totalshrink [1 ]!= 0 )
> o = 1 ;
> else o = 0 ;
> mem [u + 5 ].hh.u.B0 = o ;
> mem [u + 4 ].cint = totalshrink [o ];
> popnest () ;
> mem [curlist .tailfield ].hh .v.RH = u ;
> curlist .tailfield = u ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewglue((halfword) (mem [mem [curalign ] .hh .v.RH + 1 ].hh .v.LH))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B1 = 12 ;
> if ( mem [curalign + 5 ].hh .v.LH >= 257 )
> {
> Result = 1 ;
> return Result ;
> }
> zinitspan((halfword) (p)) ;
> }
> alignstate = 1000000L ;
> do {
> getxorprotected () ;
> } while ( ! ( curcmd != 10 ) ) ;
> curalign = p ;
> initcol () ;
> Result = 0 ;
> return Result ;
>}
>void
>finrow ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> if ( curlist .modefield == -104 )
> {
> p = zhpack((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (0), (smallnumber) (1)) ;
> popnest () ;
> if ( curprehead != curpretail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [curprehead ].hh .v.RH ;
> curlist .tailfield = curpretail ;
> }
> zappendtovlist((halfword) (p)) ;
> if ( curhead != curtail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [curhead ].hh .v.RH ;
> curlist .tailfield = curtail ;
> }
> }
> else {
>
> p = zvpackage((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L))
> ;
> popnest () ;
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
> curlist .auxfield .hh .v.LH = 1000 ;
> }
> mem [p ].hh.u.B0 = 13 ;
> mem [p + 6 ].cint = 0 ;
> if ( eqtb [25066 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25066 ].hh .v.RH), (quarterword) (13)) ;
> alignpeek () ;
>}
>void
>finalign ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, q, r, s, u, v ;
> scaled t, w ;
> scaled o ;
> halfword n ;
> scaled rulesave ;
> memoryword auxsave ;
> if ( curgroup != 6 )
> zconfusion((strnumber) (1312)) ;
> unsave () ;
> if ( curgroup != 6 )
> zconfusion((strnumber) (1313)) ;
> unsave () ;
> if ( nest [nestptr - 1 ].modefield == 207 )
> o = eqtb [27807 ].cint ;
> else o = 0 ;
> q = mem [mem [memtop - 8 ].hh .v.RH ].hh .v.RH ;
> do {
> zflushlist((halfword) (mem [q + 3 ].cint)) ;
> zflushlist((halfword) (mem [q + 2 ].cint)) ;
> p = mem [mem [q ].hh .v.RH ].hh .v.RH ;
> if ( mem [q + 1 ].cint == -1073741824L )
> {
> mem [q + 1 ].cint = 0 ;
> r = mem [q ].hh .v.RH ;
> s = mem [r + 1 ].hh .v.LH ;
> if ( s != membot )
> {
> ++(mem [membot ].hh .v.RH) ;
> zdeleteglueref((halfword) (s)) ;
> mem [r + 1 ].hh .v.LH = membot ;
> }
> }
> if ( mem [q ].hh .v.LH != memtop - 9 )
> {
> t = mem [q + 1 ].cint + mem [mem [mem [q ].hh .v.RH + 1 ].hh
> .v.LH + 1 ].cint ;
> r = mem [q ].hh .v.LH ;
> s = memtop - 9 ;
> mem [s ].hh .v.LH = p ;
> n = 1 ;
> do {
> mem [r + 1 ].cint = mem [r + 1 ].cint - t ;
> u = mem [r ].hh .v.LH ;
> while ( mem [r ].hh .v.RH > n ) {
>
> s = mem [s ].hh .v.LH ;
> n = mem [mem [s ].hh .v.LH ].hh .v.RH + 1 ;
> }
> if ( mem [r ].hh .v.RH < n )
> {
> mem [r ].hh .v.LH = mem [s ].hh .v.LH ;
> mem [s ].hh .v.LH = r ;
> --(mem [r ].hh .v.RH) ;
> s = r ;
> }
> else {
>
> if ( mem [r + 1 ].cint > mem [mem [s ].hh .v.LH + 1 ].cint )
> mem [mem [s ].hh .v.LH + 1 ].cint = mem [r + 1 ].cint ;
> zfreenode((halfword) (r), (halfword) (2)) ;
> }
> r = u ;
> } while ( ! ( r == memtop - 9 ) ) ;
> }
> mem [q ].hh.u.B0 = 13 ;
> mem [q ].hh.u.B1 = 0 ;
> mem [q + 3 ].cint = 0 ;
> mem [q + 2 ].cint = 0 ;
> mem [q + 5 ].hh.u.B1 = 0 ;
> mem [q + 5 ].hh.u.B0 = 0 ;
> mem [q + 6 ].cint = 0 ;
> mem [q + 4 ].cint = 0 ;
> q = p ;
> } while ( ! ( q == -268435455L ) ) ;
> saveptr = saveptr - 2 ;
> packbeginline = - (integer) curlist .mlfield ;
> if ( curlist .modefield == -1 )
> {
> rulesave = eqtb [27808 ].cint ;
> eqtb [27808 ].cint = 0 ;
> p = zhpack((halfword) (mem [memtop - 8 ].hh .v.RH), (scaled) (savestack [saveptr + 1 ].cint), (smallnumber) (savestack [saveptr + 0 ].cint))
> ;
> eqtb [27808 ].cint = rulesave ;
> }
> else {
>
> q = mem [mem [memtop - 8 ].hh .v.RH ].hh .v.RH ;
> do {
> mem [q + 3 ].cint = mem [q + 1 ].cint ;
> mem [q + 1 ].cint = 0 ;
> q = mem [mem [q ].hh .v.RH ].hh .v.RH ;
> } while ( ! ( q == -268435455L ) ) ;
> p = zvpackage((halfword) (mem [memtop - 8 ].hh .v.RH), (scaled) (savestack [saveptr + 1 ] .cint), (smallnumber) (savestack [saveptr + 0 ].cint), (scaled) (1073741823L))
> ;
> q = mem [mem [memtop - 8 ].hh .v.RH ].hh .v.RH ;
> do {
> mem [q + 1 ].cint = mem [q + 3 ].cint ;
> mem [q + 3 ].cint = 0 ;
> q = mem [mem [q ].hh .v.RH ].hh .v.RH ;
> } while ( ! ( q == -268435455L ) ) ;
> }
> packbeginline = 0 ;
> q = mem [curlist .headfield ].hh .v.RH ;
> s = curlist .headfield ;
> while ( q != -268435455L ) {
>
> if ( ! ( q >= himemmin ) ) {
>
> if ( mem [q ].hh.u.B0 == 13 )
> {
> if ( curlist .modefield == -1 )
> {
> mem [q ].hh.u.B0 = 0 ;
> mem [q + 1 ].cint = mem [p + 1 ].cint ;
> if ( nest [nestptr - 1 ].modefield == 207 )
> mem [q ].hh.u.B1 = 2 ;
> }
> else {
>
> mem [q ].hh.u.B0 = 1 ;
> mem [q + 3 ].cint = mem [p + 3 ].cint ;
> }
> mem [q + 5 ].hh.u.B1 = mem [p + 5 ].hh.u.B1 ;
> mem [q + 5 ].hh.u.B0 = mem [p + 5 ].hh.u.B0 ;
> mem [q + 6 ].gr = mem [p + 6 ].gr ;
> mem [q + 4 ].cint = o ;
> r = mem [mem [q + 5 ].hh .v.RH ].hh .v.RH ;
> s = mem [mem [p + 5 ].hh .v.RH ].hh .v.RH ;
> do {
> n = mem [r ].hh.u.B1 ;
> t = mem [s + 1 ].cint ;
> w = t ;
> u = memtop - 4 ;
> mem [r ].hh.u.B1 = 0 ;
> while ( n > 0 ) {
>
> --(n) ;
> s = mem [s ].hh .v.RH ;
> v = mem [s + 1 ].hh .v.LH ;
> mem [u ].hh .v.RH = znewglue((halfword) (v)) ;
> u = mem [u ].hh .v.RH ;
> mem [u ].hh.u.B1 = 12 ;
> t = t + mem [v + 1 ].cint ;
> if ( mem [p + 5 ].hh.u.B0 == 1 )
> {
> if ( mem [v ].hh.u.B0 == mem [p + 5 ].hh.u.B1 )
> t = t + zround ((double) (mem [p + 6 ].gr * mem [v + 2 ].cint)) ;
> }
> else if ( mem [p + 5 ].hh.u.B0 == 2 )
> {
> if ( mem [v ].hh.u.B1 == mem [p + 5 ].hh.u.B1 )
> t = t - zround ((double) (mem [p + 6 ].gr * mem [v + 3 ].cint)) ;
> }
> s = mem [s ].hh .v.RH ;
> mem [u ].hh .v.RH = newnullbox () ;
> u = mem [u ].hh .v.RH ;
> t = t + mem [s + 1 ].cint ;
> if ( curlist .modefield == -1 )
> mem [u + 1 ].cint = mem [s + 1 ].cint ;
> else {
>
> mem [u ].hh.u.B0 = 1 ;
> mem [u + 3 ].cint = mem [s + 1 ].cint ;
> }
> }
> if ( curlist .modefield == -1 )
> {
> mem [r + 3 ].cint = mem [q + 3 ].cint ;
> mem [r + 2 ].cint = mem [q + 2 ].cint ;
> if ( t == mem [r + 1 ].cint )
> {
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 5 ].hh.u.B1 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> else if ( t > mem [r + 1 ].cint )
> {
> mem [r + 5 ].hh.u.B0 = 1 ;
> if ( mem [r + 6 ].cint == 0 )
> mem [r + 6 ].gr = 0.0 ;
> else mem [r + 6 ].gr = ( t - mem [r + 1 ].cint ) / ((double)
> mem [r + 6 ].cint ) ;
> }
> else {
>
> mem [r + 5 ].hh.u.B1 = mem [r + 5 ].hh.u.B0 ;
> mem [r + 5 ].hh.u.B0 = 2 ;
> if ( mem [r + 4 ].cint == 0 )
> mem [r + 6 ].gr = 0.0 ;
> else if ( ( mem [r + 5 ].hh.u.B1 == 0 ) && ( mem [r + 1 ].cint
> - t > mem [r + 4 ].cint ) )
> mem [r + 6 ].gr = 1.0 ;
> else mem [r + 6 ].gr = ( mem [r + 1 ].cint - t ) / ((double)
> mem [r + 4 ].cint ) ;
> }
> mem [r + 1 ].cint = w ;
> mem [r ].hh.u.B0 = 0 ;
> }
> else {
>
> mem [r + 1 ].cint = mem [q + 1 ].cint ;
> if ( t == mem [r + 3 ].cint )
> {
> mem [r + 5 ].hh.u.B0 = 0 ;
> mem [r + 5 ].hh.u.B1 = 0 ;
> mem [r + 6 ].gr = 0.0 ;
> }
> else if ( t > mem [r + 3 ].cint )
> {
> mem [r + 5 ].hh.u.B0 = 1 ;
> if ( mem [r + 6 ].cint == 0 )
> mem [r + 6 ].gr = 0.0 ;
> else mem [r + 6 ].gr = ( t - mem [r + 3 ].cint ) / ((double)
> mem [r + 6 ].cint ) ;
> }
> else {
>
> mem [r + 5 ].hh.u.B1 = mem [r + 5 ].hh.u.B0 ;
> mem [r + 5 ].hh.u.B0 = 2 ;
> if ( mem [r + 4 ].cint == 0 )
> mem [r + 6 ].gr = 0.0 ;
> else if ( ( mem [r + 5 ].hh.u.B1 == 0 ) && ( mem [r + 3 ].cint
> - t > mem [r + 4 ].cint ) )
> mem [r + 6 ].gr = 1.0 ;
> else mem [r + 6 ].gr = ( mem [r + 3 ].cint - t ) / ((double)
> mem [r + 4 ].cint ) ;
> }
> mem [r + 3 ].cint = w ;
> mem [r ].hh.u.B0 = 1 ;
> }
> mem [r + 4 ].cint = 0 ;
> if ( u != memtop - 4 )
> {
> mem [u ].hh .v.RH = mem [r ].hh .v.RH ;
> mem [r ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> r = u ;
> }
> r = mem [mem [r ].hh .v.RH ].hh .v.RH ;
> s = mem [mem [s ].hh .v.RH ].hh .v.RH ;
> } while ( ! ( r == -268435455L ) ) ;
> }
> else if ( mem [q ].hh.u.B0 == 2 )
> {
> if ( ( mem [q + 1 ].cint == -1073741824L ) )
> mem [q + 1 ].cint = mem [p + 1 ].cint ;
> if ( ( mem [q + 3 ].cint == -1073741824L ) )
> mem [q + 3 ].cint = mem [p + 3 ].cint ;
> if ( ( mem [q + 2 ].cint == -1073741824L ) )
> mem [q + 2 ].cint = mem [p + 2 ].cint ;
> if ( o != 0 )
> {
> r = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> q = zhpack((halfword) (q), (scaled) (0), (smallnumber) (1)) ;
> mem [q + 4 ].cint = o ;
> mem [q ].hh .v.RH = r ;
> mem [s ].hh .v.RH = q ;
> }
> }
> }
> s = q ;
> q = mem [q ].hh .v.RH ;
> }
> zflushnodelist((halfword) (p)) ;
> popalignment () ;
> auxsave = curlist .auxfield ;
> p = mem [curlist .headfield ].hh .v.RH ;
> q = curlist .tailfield ;
> popnest () ;
> if ( curlist .modefield == 207 )
> {
> doassignments () ;
> if ( curcmd != 3 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1575)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1292 ;
> helpline [0 ]= 1293 ;
> }
> backerror () ;
> }
> else {
>
> getxtoken () ;
> if ( curcmd != 3 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1571)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1572 ;
> helpline [0 ]= 1573 ;
> }
> backerror () ;
> }
> }
> zflushnodelist((halfword) (curlist .eTeXauxfield)) ;
> popnest () ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (eqtb [27188 ].cint))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewparamglue((smallnumber) (3)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh .v.RH = p ;
> if ( p != -268435455L )
> curlist .tailfield = q ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (eqtb [27189 ].cint))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewparamglue((smallnumber) (4)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> curlist .auxfield .cint = auxsave .cint ;
> resumeafterdisplay () ;
> }
> else {
>
> curlist .auxfield = auxsave ;
> mem [curlist .tailfield ].hh .v.RH = p ;
> if ( p != -268435455L )
> curlist .tailfield = q ;
> if ( curlist .modefield == 1 )
> buildpage () ;
> }
>}
>void
>alignpeek ( void )
>{
> 
> lab20: alignstate = 1000000L ;
> do {
> getxorprotected () ;
> } while ( ! ( curcmd != 10 ) ) ;
> if ( curcmd == 34 )
> {
> scanleftbrace () ;
> znewsavelevel((groupcode) (7)) ;
> if ( curlist .modefield == -1 )
> normalparagraph () ;
> }
> else if ( curcmd == 2 )
> finalign () ;
> else if ( ( curcmd == 5 ) && ( curchr == 258 ) )
> goto lab20 ;
> else {
>
> initrow () ;
> initcol () ;
> }
>}
>halfword
>zfiniteshrink ( halfword p )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword q ;
> if ( noshrinkerroryet )
> {
> noshrinkerroryet = 0 ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1314)) ;
> }
> {
> helpptr = 5 ;
> helpline [4 ]= 1315 ;
> helpline [3 ]= 1316 ;
> helpline [2 ]= 1317 ;
> helpline [1 ]= 1318 ;
> helpline [0 ]= 1319 ;
> }
> error () ;
> }
> q = znewspec((halfword) (p)) ;
> mem [q ].hh.u.B1 = 0 ;
> zdeleteglueref((halfword) (p)) ;
> Result = q ;
> return Result ;
>}
>void
>zpushnode ( halfword p )
>{
> 
> if ( hliststacklevel > 512 )
> zpdferror((strnumber) (1320), (strnumber) (1321)) ;
> hliststack [hliststacklevel ]= p ;
> hliststacklevel = hliststacklevel + 1 ;
>}
>halfword
>popnode ( void )
>{
> register halfword Result;
> hliststacklevel = hliststacklevel - 1 ;
> if ( hliststacklevel < 0 )
> zpdferror((strnumber) (1322), (strnumber) (1323)) ;
> Result = hliststack [hliststacklevel ];
> return Result ;
>}
>halfword
>zfindprotcharleft ( halfword l , boolean d )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword t ;
> boolean run ;
> if ( ( mem [l ].hh .v.RH != -268435455L ) && ( mem [l ].hh.u.B0 == 0 ) &&
> ( mem [l + 1 ].cint == 0 ) && ( mem [l + 3 ].cint == 0 ) && ( mem [l +
> 2 ].cint == 0 ) && ( mem [l + 5 ].hh .v.RH == -268435455L ) )
> l = mem [l ].hh .v.RH ;
> else if ( d )
> while ( ( mem [l ].hh .v.RH != -268435455L ) && ( ! ( ( l >= himemmin ) ||
> ( mem [l ].hh.u.B0 < 9 ) ) ) ) l = mem [l ].hh .v.RH ;
> hliststacklevel = 0 ;
> run = 1 ;
> do {
> t = l ;
> while ( run && ( mem [l ].hh.u.B0 == 0 ) && ( mem [l + 5 ].hh .v.RH !=
> -268435455L ) ) {
>
> zpushnode((halfword) (l)) ;
> l = mem [l + 5 ].hh .v.RH ;
> }
> while ( run && ( ! ( l >= himemmin ) && ( ( mem [l ].hh.u.B0 == 3 ) || (
> mem [l ].hh.u.B0 == 4 ) || ( mem [l ].hh.u.B0 == 5 ) || ( mem [l ].hh.u.B0
> == 12 ) || ( ( mem [l ].hh.u.B0 == 8 ) && ( mem [l ].hh.u.B1 != 12 ) && (
> mem [l ].hh.u.B1 != 10 ) ) || ( ( mem [l ].hh.u.B0 == 7 ) && ( mem [l + 1
> ].hh .v.LH == -268435455L ) && ( mem [l + 1 ].hh .v.RH == -268435455L )
> && ( mem [l ].hh.u.B1 == 0 ) ) || ( ( mem [l ].hh.u.B0 == 9 ) && ( mem [l
> + 1 ].cint == 0 ) ) || ( ( mem [l ].hh.u.B0 == 11 ) && ( ( mem [l + 1 ]
> .cint == 0 ) || ( mem [l ].hh.u.B1 == 0 ) ) ) || ( ( mem [l ].hh.u.B0 ==
> 10 ) && ( mem [l + 1 ].hh .v.LH == membot ) ) || ( ( mem [l ].hh.u.B0 ==
> 0 ) && ( mem [l + 1 ].cint == 0 ) && ( mem [l + 3 ].cint == 0 ) && (
> mem [l + 2 ].cint == 0 ) && ( mem [l + 5 ].hh .v.RH == -268435455L ) )
> ) ) ) {
>
> while ( ( mem [l ].hh .v.RH == -268435455L ) && ( hliststacklevel > 0
> ) ) {
>
> l = popnode () ;
> }
> if ( mem [l ].hh .v.RH != -268435455L )
> l = mem [l ].hh .v.RH ;
> else if ( hliststacklevel == 0 )
> run = 0 ;
> }
> } while ( ! ( t == l ) ) ;
> Result = l ;
> return Result ;
>}
>halfword
>zfindprotcharright ( halfword l , halfword r )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword t ;
> boolean run ;
> Result = -268435455L ;
> if ( r == -268435455L )
> return Result ;
> hliststacklevel = 0 ;
> run = 1 ;
> do {
> t = r ;
> while ( run && ( mem [r ].hh.u.B0 == 0 ) && ( mem [r + 5 ].hh .v.RH !=
> -268435455L ) ) {
>
> zpushnode((halfword) (l)) ;
> zpushnode((halfword) (r)) ;
> l = mem [r + 5 ].hh .v.RH ;
> r = l ;
> while ( mem [r ].hh .v.RH != -268435455L ) r = mem [r ].hh .v.RH ;
> }
> while ( run && ( ! ( r >= himemmin ) && ( ( mem [r ].hh.u.B0 == 3 ) || (
> mem [r ].hh.u.B0 == 4 ) || ( mem [r ].hh.u.B0 == 5 ) || ( mem [r ].hh.u.B0
> == 12 ) || ( ( mem [r ].hh.u.B0 == 8 ) && ( mem [r ].hh.u.B1 != 12 ) && (
> mem [r ].hh.u.B1 != 10 ) ) || ( ( mem [r ].hh.u.B0 == 7 ) && ( mem [r + 1
> ].hh .v.LH == -268435455L ) && ( mem [r + 1 ].hh .v.RH == -268435455L )
> && ( mem [r ].hh.u.B1 == 0 ) ) || ( ( mem [r ].hh.u.B0 == 9 ) && ( mem [r
> + 1 ].cint == 0 ) ) || ( ( mem [r ].hh.u.B0 == 11 ) && ( ( mem [r + 1 ]
> .cint == 0 ) || ( mem [r ].hh.u.B1 == 0 ) ) ) || ( ( mem [r ].hh.u.B0 ==
> 10 ) && ( mem [r + 1 ].hh .v.LH == membot ) ) || ( ( mem [r ].hh.u.B0 ==
> 0 ) && ( mem [r + 1 ].cint == 0 ) && ( mem [r + 3 ].cint == 0 ) && (
> mem [r + 2 ].cint == 0 ) && ( mem [r + 5 ].hh .v.RH == -268435455L ) )
> ) ) ) {
>
> while ( ( r == l ) && ( hliststacklevel > 0 ) ) {
>
> r = popnode () ;
> l = popnode () ;
> }
> if ( ( r != l ) && ( r != -268435455L ) )
> r = zprevrightmost((halfword) (l), (halfword) (r)) ;
> else if ( ( r == l ) && ( hliststacklevel == 0 ) )
> run = 0 ;
> }
> } while ( ! ( t == r ) ) ;
> Result = r ;
> return Result ;
>}
>scaled
>ztotalpw ( halfword q , halfword p )
>{
> register scaled Result; register memoryword *mem=zmem;
> halfword l, r ;
> integer n ;
> if ( mem [q + 1 ].hh .v.RH == -268435455L )
> l = firstp ;
> else l = mem [mem [q + 1 ].hh .v.RH + 1 ].hh .v.RH ;
> r = zprevrightmost((halfword) (prevp), (halfword) (p)) ;
> if ( ( p != -268435455L ) && ( mem [p ].hh.u.B0 == 7 ) && ( mem [p + 1 ]
> .hh .v.LH != -268435455L ) )
> {
> r = mem [p + 1 ].hh .v.LH ;
> while ( mem [r ].hh .v.RH != -268435455L ) r = mem [r ].hh .v.RH ;
> }
> else r = zfindprotcharright((halfword) (l), (halfword) (r)) ;
> if ( ( l != -268435455L ) && ( mem [l ].hh.u.B0 == 7 ) )
> {
> if ( mem [l + 1 ].hh .v.RH != -268435455L )
> {
> l = mem [l + 1 ].hh .v.RH ;
> goto lab30 ;
> }
> else {
>
> n = mem [l ].hh.u.B1 ;
> l = mem [l ].hh .v.RH ;
> while ( n > 0 ) {
>
> if ( mem [l ].hh .v.RH != -268435455L )
> l = mem [l ].hh .v.RH ;
> --(n) ;
> }
> }
> }
> l = zfindprotcharleft((halfword) (l), (boolean) (1)) ;
> lab30: Result = zcharpw((halfword) (l), (smallnumber) (0)) + zcharpw((halfword) (r), (smallnumber) (1)) ;
> return Result ;
>}
>void
>ztrybreak ( integer pi , smallnumber breaktype )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword r ;
> scaled marginkernstretch ;
> scaled marginkernshrink ;
> halfword lp, rp, cp ;
> halfword prevr ;
> halfword oldl ;
> boolean nobreakyet ;
> halfword prevprevr ;
> halfword s ;
> halfword q ;
> halfword v ;
> integer t ;
> internalfontnumber f ;
> halfword l ;
> boolean noderstaysactive ;
> scaled linewidth ;
> unsigned char fitclass ;
> halfword b ;
> integer d ;
> boolean artificialdemerits ;
> halfword savelink ;
> scaled shortfall ;
> scaled g ;
> if ( ((integer)(pi) >= 0 ? (integer)(pi) : (integer)-(pi)) >= 10000 ) {
>
> if ( pi > 0 )
> goto lab10 ;
> else pi = -10000 ;
> }
> nobreakyet = 1 ;
> prevr = memtop - 7 ;
> oldl = 0 ;
> curactivewidth [1 ]= activewidth [1 ];
> curactivewidth [2 ]= activewidth [2 ];
> curactivewidth [3 ]= activewidth [3 ];
> curactivewidth [4 ]= activewidth [4 ];
> curactivewidth [5 ]= activewidth [5 ];
> curactivewidth [6 ]= activewidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> curactivewidth [7 ]= activewidth [7 ];
> curactivewidth [8 ]= activewidth [8 ];
> }
> while ( 1 ) {
>
> lab22: r = mem [prevr ].hh .v.RH ;
> if ( mem [r ].hh.u.B0 == 2 )
> {
> curactivewidth [1 ]= curactivewidth [1 ]+ mem [r + 1 ].cint ;
> curactivewidth [2 ]= curactivewidth [2 ]+ mem [r + 2 ].cint ;
> curactivewidth [3 ]= curactivewidth [3 ]+ mem [r + 3 ].cint ;
> curactivewidth [4 ]= curactivewidth [4 ]+ mem [r + 4 ].cint ;
> curactivewidth [5 ]= curactivewidth [5 ]+ mem [r + 5 ].cint ;
> curactivewidth [6 ]= curactivewidth [6 ]+ mem [r + 6 ].cint ;
> if ( eqtb [27256 ].cint > 1 )
> {
> curactivewidth [7 ]= curactivewidth [7 ]+ mem [r + 7 ].cint ;
> curactivewidth [8 ]= curactivewidth [8 ]+ mem [r + 8 ].cint ;
> }
> prevprevr = prevr ;
> prevr = r ;
> goto lab22 ;
> }
> {
> l = mem [r + 1 ].hh .v.LH ;
> if ( l > oldl )
> {
> if ( ( minimumdemerits < 1073741823L ) && ( ( oldl != easyline ) || (
> r == memtop - 7 ) ) )
> {
> if ( nobreakyet )
> {
> nobreakyet = 0 ;
> breakwidth [1 ]= background [1 ];
> breakwidth [2 ]= background [2 ];
> breakwidth [3 ]= background [3 ];
> breakwidth [4 ]= background [4 ];
> breakwidth [5 ]= background [5 ];
> breakwidth [6 ]= background [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> breakwidth [7 ]= background [7 ];
> breakwidth [8 ]= background [8 ];
> }
> s = curp ;
> if ( breaktype > 0 ) {
>
> if ( curp != -268435455L )
> {
> t = mem [curp ].hh.u.B1 ;
> v = curp ;
> s = mem [curp + 1 ].hh .v.RH ;
> while ( t > 0 ) {
>
> --(t) ;
> v = mem [v ].hh .v.RH ;
> if ( ( v >= himemmin ) )
> {
> f = mem [v ].hh.u.B0 ;
> breakwidth [1 ]= breakwidth [1 ]- fontinfo [widthbase
> [f ]+ fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [v ].hh.u.B1))
> ].qqqq .u.B0 ].cint ;
> if ( ( eqtb [27256 ].cint > 1 ) && zcheckexpandpars((internalfontnumber) (f))
> )
> {
> prevcharp = v ;
> breakwidth [7 ]= breakwidth [7 ]- zcharstretch((internalfontnumber) (f), (eightbits) (mem [v ].hh.u.B1))
> ;
> breakwidth [8 ]= breakwidth [8 ]- zcharshrink((internalfontnumber) (f), (eightbits) (mem [v ].hh.u.B1))
> ;
> }
> }
> else switch ( mem [v ].hh.u.B0 )
> {case 6 :
> {
> f = mem [v + 1 ].hh.u.B0 ;
> breakwidth [1 ]= breakwidth [1 ]- fontinfo [
> widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [v + 1 ].hh.u.B1)) ]
> .qqqq .u.B0 ].cint ;
> if ( ( eqtb [27256 ].cint > 1 ) && zcheckexpandpars((internalfontnumber) (f))
> )
> {
> prevcharp = v ;
> breakwidth [7 ]= breakwidth [7 ]- zcharstretch((internalfontnumber) (f), (eightbits) (mem [v + 1 ].hh.u.B1))
> ;
> breakwidth [8 ]= breakwidth [8 ]- zcharshrink((internalfontnumber) (f), (eightbits) (mem [v + 1 ].hh.u.B1))
> ;
> }
> }
> break ;
> case 0 :
> case 1 :
> case 2 :
> case 11 :
> {
> breakwidth [1 ]= breakwidth [1 ]- mem [v + 1 ]
> .cint ;
> if ( ( mem [v ].hh.u.B0 == 11 ) && ( eqtb [27256 ]
> .cint > 1 ) && ( mem [v ].hh.u.B1 == 0 ) )
> {
> breakwidth [7 ]= breakwidth [7 ]- zkernstretch((halfword) (v))
> ;
> breakwidth [8 ]= breakwidth [8 ]- zkernshrink((halfword) (v))
> ;
> }
> }
> break ;
> default:
> zconfusion((strnumber) (1324)) ;
> break ;
> }
> }
> while ( s != -268435455L ) {
>
> if ( ( s >= himemmin ) )
> {
> f = mem [s ].hh.u.B0 ;
> breakwidth [1 ]= breakwidth [1 ]+ fontinfo [widthbase
> [f ]+ fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [s ].hh.u.B1))
> ].qqqq .u.B0 ].cint ;
> if ( ( eqtb [27256 ].cint > 1 ) && zcheckexpandpars((internalfontnumber) (f))
> )
> {
> prevcharp = s ;
> breakwidth [7 ]= breakwidth [7 ]+ zcharstretch((internalfontnumber) (f), (eightbits) (mem [s ].hh.u.B1))
> ;
> breakwidth [8 ]= breakwidth [8 ]+ zcharshrink((internalfontnumber) (f), (eightbits) (mem [s ].hh.u.B1))
> ;
> }
> }
> else switch ( mem [s ].hh.u.B0 )
> {case 6 :
> {
> f = mem [s + 1 ].hh.u.B0 ;
> breakwidth [1 ]= breakwidth [1 ]+ fontinfo [
> widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [s + 1 ].hh.u.B1)) ]
> .qqqq .u.B0 ].cint ;
> if ( ( eqtb [27256 ].cint > 1 ) && zcheckexpandpars((internalfontnumber) (f))
> )
> {
> prevcharp = s ;
> breakwidth [7 ]= breakwidth [7 ]+ zcharstretch((internalfontnumber) (f), (eightbits) (mem [s + 1 ].hh.u.B1))
> ;
> breakwidth [8 ]= breakwidth [8 ]+ zcharshrink((internalfontnumber) (f), (eightbits) (mem [s + 1 ].hh.u.B1))
> ;
> }
> }
> break ;
> case 0 :
> case 1 :
> case 2 :
> case 11 :
> {
> breakwidth [1 ]= breakwidth [1 ]+ mem [s + 1 ]
> .cint ;
> if ( ( mem [s ].hh.u.B0 == 11 ) && ( eqtb [27256 ]
> .cint > 1 ) && ( mem [s ].hh.u.B1 == 0 ) )
> {
> breakwidth [7 ]= breakwidth [7 ]+ zkernstretch((halfword) (s))
> ;
> breakwidth [8 ]= breakwidth [8 ]+ zkernshrink((halfword) (s))
> ;
> }
> }
> break ;
> default:
> zconfusion((strnumber) (1325)) ;
> break ;
> }
> s = mem [s ].hh .v.RH ;
> }
> breakwidth [1 ]= breakwidth [1 ]+ discwidth [1 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> breakwidth [7 ]= breakwidth [7 ]+ discwidth [7 ];
> breakwidth [8 ]= breakwidth [8 ]+ discwidth [8 ];
> }
> if ( mem [curp + 1 ].hh .v.RH == -268435455L )
> s = mem [v ].hh .v.RH ;
> }
> }
> while ( s != -268435455L ) {
>
> if ( ( s >= himemmin ) )
> goto lab30 ;
> switch ( mem [s ].hh.u.B0 )
> {case 10 :
> {
> v = mem [s + 1 ].hh .v.LH ;
> breakwidth [1 ]= breakwidth [1 ]- mem [v + 1 ].cint ;
> breakwidth [2 + mem [v ].hh.u.B0 ]= breakwidth [2 + mem [
> v ].hh.u.B0 ]- mem [v + 2 ].cint ;
> breakwidth [6 ]= breakwidth [6 ]- mem [v + 3 ].cint ;
> }
> break ;
> case 12 :
> ;
> break ;
> case 9 :
> breakwidth [1 ]= breakwidth [1 ]- mem [s + 1 ].cint ;
> break ;
> case 11 :
> if ( mem [s ].hh.u.B1 != 1 )
> goto lab30 ;
> else breakwidth [1 ]= breakwidth [1 ]- mem [s + 1 ].cint
> ;
> break ;
> default:
> goto lab30 ;
> break ;
> }
> s = mem [s ].hh .v.RH ;
> }
> lab30: ;
> }
> if ( mem [prevr ].hh.u.B0 == 2 )
> {
> mem [prevr + 1 ].cint = mem [prevr + 1 ].cint - curactivewidth
> [1 ]+ breakwidth [1 ];
> mem [prevr + 2 ].cint = mem [prevr + 2 ].cint - curactivewidth
> [2 ]+ breakwidth [2 ];
> mem [prevr + 3 ].cint = mem [prevr + 3 ].cint - curactivewidth
> [3 ]+ breakwidth [3 ];
> mem [prevr + 4 ].cint = mem [prevr + 4 ].cint - curactivewidth
> [4 ]+ breakwidth [4 ];
> mem [prevr + 5 ].cint = mem [prevr + 5 ].cint - curactivewidth
> [5 ]+ breakwidth [5 ];
> mem [prevr + 6 ].cint = mem [prevr + 6 ].cint - curactivewidth
> [6 ]+ breakwidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> mem [prevr + 7 ].cint = mem [prevr + 7 ].cint -
> curactivewidth [7 ]+ breakwidth [7 ];
> mem [prevr + 8 ].cint = mem [prevr + 8 ].cint -
> curactivewidth [8 ]+ breakwidth [8 ];
> }
> }
> else if ( prevr == memtop - 7 )
> {
> activewidth [1 ]= breakwidth [1 ];
> activewidth [2 ]= breakwidth [2 ];
> activewidth [3 ]= breakwidth [3 ];
> activewidth [4 ]= breakwidth [4 ];
> activewidth [5 ]= breakwidth [5 ];
> activewidth [6 ]= breakwidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> activewidth [7 ]= breakwidth [7 ];
> activewidth [8 ]= breakwidth [8 ];
> }
> }
> else {
>
> q = zgetnode((integer) (9)) ;
> mem [q ].hh .v.RH = r ;
> mem [q ].hh.u.B0 = 2 ;
> mem [q ].hh.u.B1 = 0 ;
> mem [q + 1 ].cint = breakwidth [1 ]- curactivewidth [1 ];
> mem [q + 2 ].cint = breakwidth [2 ]- curactivewidth [2 ];
> mem [q + 3 ].cint = breakwidth [3 ]- curactivewidth [3 ];
> mem [q + 4 ].cint = breakwidth [4 ]- curactivewidth [4 ];
> mem [q + 5 ].cint = breakwidth [5 ]- curactivewidth [5 ];
> mem [q + 6 ].cint = breakwidth [6 ]- curactivewidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> mem [q + 7 ].cint = breakwidth [7 ]- curactivewidth [7 ];
> mem [q + 8 ].cint = breakwidth [8 ]- curactivewidth [8 ];
> }
> mem [prevr ].hh .v.RH = q ;
> prevprevr = prevr ;
> prevr = q ;
> }
> if ( ((integer)(eqtb [27193 ].cint) >= 0 ? (integer)(eqtb [27193 ].cint) : (integer)-(eqtb [27193 ].cint)) >= 1073741823L - minimumdemerits )
> minimumdemerits = 1073741822L ;
> else minimumdemerits = minimumdemerits + ((integer)(eqtb [27193 ].cint) >= 0 ? (integer)(eqtb [27193 ].cint) : (integer)-(eqtb [27193 ].cint))
> ;
> {register integer for_end; fitclass = 0 ;for_end = 3 ; if (
> fitclass <= for_end) do
> {
> if ( minimaldemerits [fitclass ]<= minimumdemerits )
> {
> q = zgetnode((integer) (2)) ;
> mem [q ].hh .v.RH = passive ;
> passive = q ;
> mem [q + 1 ].hh .v.RH = curp ;
> ;
>
> ++(passnumber) ;
> mem [q ].hh .v.LH = passnumber ;
>
> mem [q + 1 ].hh .v.LH = bestplace [fitclass ];
> q = zgetnode((integer) (activenodesize)) ;
> mem [q + 1 ].hh .v.RH = passive ;
> mem [q + 1 ].hh .v.LH = bestplline [fitclass ]+ 1 ;
> mem [q ].hh.u.B1 = fitclass ;
> mem [q ].hh.u.B0 = breaktype ;
> mem [q + 2 ].cint = minimaldemerits [fitclass ];
> if ( dolastlinefit )
> {
> mem [q + 3 ].cint = bestplshort [fitclass ];
> mem [q + 4 ].cint = bestplglue [fitclass ];
> }
> mem [q ].hh .v.RH = r ;
> mem [prevr ].hh .v.RH = q ;
> prevr = q ;
> ;
>
> if ( eqtb [27209 ].cint > 0 )
> {
> zprintnl((strnumber) (1326)) ;
> zprintint((longinteger) (mem [passive ].hh .v.LH)) ;
> zprint((integer) (1327)) ;
> zprintint((longinteger) (mem [q + 1 ].hh .v.LH - 1)) ;
> zprintchar((ASCIIcode) (46)) ;
> zprintint((longinteger) (fitclass)) ;
> if ( breaktype == 1 )
> zprintchar((ASCIIcode) (45)) ;
> zprint((integer) (1328)) ;
> zprintint((longinteger) (mem [q + 2 ].cint)) ;
> if ( dolastlinefit )
> {
> zprint((integer) (2052)) ;
> zprintscaled((scaled) (mem [q + 3 ].cint)) ;
> if ( curp == -268435455L )
> zprint((integer) (2053)) ;
> else zprint((integer) (1398)) ;
> zprintscaled((scaled) (mem [q + 4 ].cint)) ;
> }
> zprint((integer) (1329)) ;
> if ( mem [passive + 1 ].hh .v.LH == -268435455L )
> zprintchar((ASCIIcode) (48)) ;
> else zprintint((longinteger) (mem [mem [passive + 1 ].hh .v.LH ].hh .v.LH))
> ;
> }
>
> }
> minimaldemerits [fitclass ]= 1073741823L ;
> }
> while ( fitclass++ < for_end ) ;}
> minimumdemerits = 1073741823L ;
> if ( r != memtop - 7 )
> {
> q = zgetnode((integer) (9)) ;
> mem [q ].hh .v.RH = r ;
> mem [q ].hh.u.B0 = 2 ;
> mem [q ].hh.u.B1 = 0 ;
> mem [q + 1 ].cint = curactivewidth [1 ]- breakwidth [1 ];
> mem [q + 2 ].cint = curactivewidth [2 ]- breakwidth [2 ];
> mem [q + 3 ].cint = curactivewidth [3 ]- breakwidth [3 ];
> mem [q + 4 ].cint = curactivewidth [4 ]- breakwidth [4 ];
> mem [q + 5 ].cint = curactivewidth [5 ]- breakwidth [5 ];
> mem [q + 6 ].cint = curactivewidth [6 ]- breakwidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> mem [q + 7 ].cint = curactivewidth [7 ]- breakwidth [7 ];
> mem [q + 8 ].cint = curactivewidth [8 ]- breakwidth [8 ];
> }
> mem [prevr ].hh .v.RH = q ;
> prevprevr = prevr ;
> prevr = q ;
> }
> }
> if ( r == memtop - 7 )
> goto lab10 ;
> if ( l > easyline )
> {
> linewidth = secondwidth ;
> oldl = 268435454L ;
> }
> else {
>
> oldl = l ;
> if ( l > lastspecialline )
> linewidth = secondwidth ;
> else if ( eqtb [25058 ].hh .v.RH == -268435455L )
> linewidth = firstwidth ;
> else linewidth = mem [eqtb [25058 ].hh .v.RH + 2 * l ].cint ;
> }
> }
> }
> {
> artificialdemerits = 0 ;
> shortfall = linewidth - curactivewidth [1 ];
> if ( eqtb [27257 ].cint > 1 )
> shortfall = shortfall + ztotalpw((halfword) (r), (halfword) (curp)) ;
> if ( ( eqtb [27256 ].cint > 1 ) && ( shortfall != 0 ) )
> {
> marginkernstretch = 0 ;
> marginkernshrink = 0 ;
> if ( eqtb [27257 ].cint > 1 )
> {
> lp = lastleftmostchar ;
> rp = lastrightmostchar ;
> {
> cp = avail ;
> if ( cp == -268435455L )
> cp = getavail () ;
> else {
>
> avail = mem [cp ].hh .v.RH ;
> mem [cp ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> if ( lp != -268435455L )
> {
> mem [cp ].hh.u.B1 = mem [lp ].hh.u.B1 ;
> mem [cp ].hh.u.B0 = mem [lp ].hh.u.B0 ;
> zdosubstfont((halfword) (cp), (integer) (1000)) ;
> if ( mem [cp ].hh.u.B0 != mem [lp ].hh.u.B0 )
> marginkernstretch = marginkernstretch + zcharpw((halfword) (lp), (smallnumber) (0)) - zcharpw((halfword) (cp), (smallnumber) (0))
> ;
> mem [cp ].hh.u.B0 = mem [lp ].hh.u.B0 ;
> zdosubstfont((halfword) (cp), (integer) (-1000)) ;
> if ( mem [cp ].hh.u.B0 != mem [lp ].hh.u.B0 )
> marginkernshrink = marginkernshrink + zcharpw((halfword) (cp), (smallnumber) (0)) - zcharpw((halfword) (lp), (smallnumber) (0))
> ;
> }
> if ( rp != -268435455L )
> {
> mem [cp ].hh.u.B1 = mem [rp ].hh.u.B1 ;
> mem [cp ].hh.u.B0 = mem [rp ].hh.u.B0 ;
> zdosubstfont((halfword) (cp), (integer) (1000)) ;
> if ( mem [cp ].hh.u.B0 != mem [rp ].hh.u.B0 )
> marginkernstretch = marginkernstretch + zcharpw((halfword) (rp), (smallnumber) (0)) - zcharpw((halfword) (cp), (smallnumber) (0))
> ;
> mem [cp ].hh.u.B0 = mem [rp ].hh.u.B0 ;
> zdosubstfont((halfword) (cp), (integer) (-1000)) ;
> if ( mem [cp ].hh.u.B0 != mem [rp ].hh.u.B0 )
> marginkernshrink = marginkernshrink + zcharpw((halfword) (cp), (smallnumber) (0)) - zcharpw((halfword) (rp), (smallnumber) (0))
> ;
> }
> {
> mem [cp ].hh .v.RH = avail ;
> avail = cp ;
> ;
>
> --(dynused) ;
>
> }
> }
> if ( ( shortfall > 0 ) && ( ( curactivewidth [7 ]+ marginkernstretch
> ) > 0 ) )
> {
> if ( ( curactivewidth [7 ]+ marginkernstretch ) > shortfall )
> shortfall = ( ( curactivewidth [7 ]+ marginkernstretch ) / (
> maxstretchratio / curfontstep ) ) / 2 ;
> else shortfall = shortfall - ( curactivewidth [7 ]+
> marginkernstretch ) ;
> }
> else if ( ( shortfall < 0 ) && ( ( curactivewidth [8 ]+
> marginkernshrink ) > 0 ) )
> {
> if ( ( curactivewidth [8 ]+ marginkernshrink ) > - (integer)
> shortfall )
> shortfall = - (integer) ( ( curactivewidth [8 ]+ marginkernshrink
> ) / ( maxshrinkratio / curfontstep ) ) / 2 ;
> else shortfall = shortfall + ( curactivewidth [8 ]+
> marginkernshrink ) ;
> }
> }
> if ( shortfall > 0 ) {
>
> if ( ( curactivewidth [3 ]!= 0 ) || ( curactivewidth [4 ]!= 0 ) ||
> ( curactivewidth [5 ]!= 0 ) )
> {
> if ( dolastlinefit )
> {
> if ( curp == -268435455L )
> {
> if ( ( mem [r + 3 ].cint == 0 ) || ( mem [r + 4 ].cint <= 0
> ) )
> goto lab45 ;
> if ( ( curactivewidth [3 ]!= fillwidth [0 ]) || (
> curactivewidth [4 ]!= fillwidth [1 ]) || ( curactivewidth [
> 5 ]!= fillwidth [2 ]) )
> goto lab45 ;
> if ( mem [r + 3 ].cint > 0 )
> g = curactivewidth [2 ];
> else g = curactivewidth [6 ];
> if ( g <= 0 )
> goto lab45 ;
> aritherror = 0 ;
> g = zfract((integer) (g), (integer) (mem [r + 3 ].cint), (integer) (mem [r + 4 ].cint), (integer) (1073741823L))
> ;
> if ( eqtb [27275 ].cint < 1000 )
> g = zfract((integer) (g), (integer) (eqtb [27275 ].cint), (integer) (1000), (integer) (1073741823L)) ;
> if ( aritherror ) {
>
> if ( mem [r + 3 ].cint > 0 )
> g = 1073741823L ;
> else g = -1073741823L ;
> }
> if ( g > 0 )
> {
> if ( g > shortfall )
> g = shortfall ;
> if ( g > 7230584L ) {
>
> if ( curactivewidth [2 ]< 1663497L )
> {
> b = 10000 ;
> fitclass = 0 ;
> goto lab40 ;
> }
> }
> b = zbadness((scaled) (g), (scaled) (curactivewidth [2 ])) ;
> if ( b > 12 ) {
>
> if ( b > 99 )
> fitclass = 0 ;
> else fitclass = 1 ;
> }
> else fitclass = 2 ;
> goto lab40 ;
> }
> else if ( g < 0 )
> {
> if ( - (integer) g > curactivewidth [6 ])
> g = - (integer) curactivewidth [6 ];
> b = zbadness((scaled) (- (integer) g), (scaled) (curactivewidth [6 ])) ;
> if ( b > 12 )
> fitclass = 3 ;
> else fitclass = 2 ;
> goto lab40 ;
> }
> lab45: ;
> }
> shortfall = 0 ;
> }
> b = 0 ;
> fitclass = 2 ;
> }
> else {
>
> if ( shortfall > 7230584L ) {
>
> if ( curactivewidth [2 ]< 1663497L )
> {
> b = 10000 ;
> fitclass = 0 ;
> goto lab31 ;
> }
> }
> b = zbadness((scaled) (shortfall), (scaled) (curactivewidth [2 ])) ;
> if ( b > 12 ) {
>
> if ( b > 99 )
> fitclass = 0 ;
> else fitclass = 1 ;
> }
> else fitclass = 2 ;
> lab31: ;
> }
> }
> else {
>
> if ( - (integer) shortfall > curactivewidth [6 ])
> b = 10001 ;
> else b = zbadness((scaled) (- (integer) shortfall), (scaled) (curactivewidth [6 ])) ;
> if ( b > 12 )
> fitclass = 3 ;
> else fitclass = 2 ;
> }
> if ( dolastlinefit )
> {
> if ( curp == -268435455L )
> shortfall = 0 ;
> if ( shortfall > 0 )
> g = curactivewidth [2 ];
> else if ( shortfall < 0 )
> g = curactivewidth [6 ];
> else g = 0 ;
> }
> lab40: if ( ( b > 10000 ) || ( pi == -10000 ) )
> {
> if ( finalpass && ( minimumdemerits == 1073741823L ) && ( mem [r ]
> .hh .v.RH == memtop - 7 ) && ( prevr == memtop - 7 ) )
> artificialdemerits = 1 ;
> else if ( b > threshold )
> goto lab60 ;
> noderstaysactive = 0 ;
> }
> else {
>
> prevr = r ;
> if ( b > threshold )
> goto lab22 ;
> noderstaysactive = 1 ;
> }
> if ( artificialdemerits )
> d = 0 ;
> else {
>
> d = eqtb [27179 ].cint + b ;
> if ( ((integer)(d) >= 0 ? (integer)(d) : (integer)-(d)) >= 10000 )
> d = 100000000L ;
> else d = d * d ;
> if ( pi != 0 ) {
>
> if ( pi > 0 )
> d = d + pi * pi ;
> else if ( pi > -10000 )
> d = d - pi * pi ;
> }
> if ( ( breaktype == 1 ) && ( mem [r ].hh.u.B0 == 1 ) ) {
>
> if ( curp != -268435455L )
> d = d + eqtb [27191 ].cint ;
> else d = d + eqtb [27192 ].cint ;
> }
> if ( ((integer)(((integer) (fitclass)) - ((integer) (mem [r ].hh.u.B1))) >= 0 ? (integer)(((integer) (fitclass)) - ((integer) (mem [r ].hh.u.B1))) : (integer)-(((integer) (fitclass)) - ((integer) (mem [r ].hh.u.B1)))) > 1 )
> d = d + eqtb [27193 ].cint ;
> }
> ;
>
> if ( eqtb [27209 ].cint > 0 )
> {
> if ( printednode != curp )
> {
> zprintnl((strnumber) (345)) ;
> if ( curp == -268435455L )
> zshortdisplay((integer) (mem [printednode ].hh .v.RH)) ;
> else {
>
> savelink = mem [curp ].hh .v.RH ;
> mem [curp ].hh .v.RH = -268435455L ;
> zprintnl((strnumber) (345)) ;
> zshortdisplay((integer) (mem [printednode ].hh .v.RH)) ;
> mem [curp ].hh .v.RH = savelink ;
> }
> printednode = curp ;
> }
> zprintnl((strnumber) (64)) ;
> if ( curp == -268435455L )
> zprintesc((strnumber) (678)) ;
> else if ( mem [curp ].hh.u.B0 != 10 )
> {
> if ( mem [curp ].hh.u.B0 == 12 )
> zprintesc((strnumber) (608)) ;
> else if ( mem [curp ].hh.u.B0 == 7 )
> zprintesc((strnumber) (357)) ;
> else if ( mem [curp ].hh.u.B0 == 11 )
> zprintesc((strnumber) (322)) ;
> else zprintesc((strnumber) (351)) ;
> }
> zprint((integer) (1330)) ;
> if ( mem [r + 1 ].hh .v.RH == -268435455L )
> zprintchar((ASCIIcode) (48)) ;
> else zprintint((longinteger) (mem [mem [r + 1 ].hh .v.RH ].hh .v.LH)) ;
> zprint((integer) (1331)) ;
> if ( b > 10000 )
> zprintchar((ASCIIcode) (42)) ;
> else zprintint((longinteger) (b)) ;
> zprint((integer) (1332)) ;
> zprintint((longinteger) (pi)) ;
> zprint((integer) (1333)) ;
> if ( artificialdemerits )
> zprintchar((ASCIIcode) (42)) ;
> else zprintint((longinteger) (d)) ;
> }
>
> d = d + mem [r + 2 ].cint ;
> if ( d <= minimaldemerits [fitclass ])
> {
> minimaldemerits [fitclass ]= d ;
> bestplace [fitclass ]= mem [r + 1 ].hh .v.RH ;
> bestplline [fitclass ]= l ;
> if ( dolastlinefit )
> {
> bestplshort [fitclass ]= shortfall ;
> bestplglue [fitclass ]= g ;
> }
> if ( d < minimumdemerits )
> minimumdemerits = d ;
> }
> if ( noderstaysactive )
> goto lab22 ;
> lab60: mem [prevr ].hh .v.RH = mem [r ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (activenodesize)) ;
> if ( prevr == memtop - 7 )
> {
> r = mem [memtop - 7 ].hh .v.RH ;
> if ( mem [r ].hh.u.B0 == 2 )
> {
> activewidth [1 ]= activewidth [1 ]+ mem [r + 1 ].cint ;
> activewidth [2 ]= activewidth [2 ]+ mem [r + 2 ].cint ;
> activewidth [3 ]= activewidth [3 ]+ mem [r + 3 ].cint ;
> activewidth [4 ]= activewidth [4 ]+ mem [r + 4 ].cint ;
> activewidth [5 ]= activewidth [5 ]+ mem [r + 5 ].cint ;
> activewidth [6 ]= activewidth [6 ]+ mem [r + 6 ].cint ;
> if ( eqtb [27256 ].cint > 1 )
> {
> activewidth [7 ]= activewidth [7 ]+ mem [r + 7 ].cint ;
> activewidth [8 ]= activewidth [8 ]+ mem [r + 8 ].cint ;
> }
> curactivewidth [1 ]= activewidth [1 ];
> curactivewidth [2 ]= activewidth [2 ];
> curactivewidth [3 ]= activewidth [3 ];
> curactivewidth [4 ]= activewidth [4 ];
> curactivewidth [5 ]= activewidth [5 ];
> curactivewidth [6 ]= activewidth [6 ];
> if ( eqtb [27256 ].cint > 1 )
> {
> curactivewidth [7 ]= activewidth [7 ];
> curactivewidth [8 ]= activewidth [8 ];
> }
> mem [memtop - 7 ].hh .v.RH = mem [r ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (9)) ;
> }
> }
> else if ( mem [prevr ].hh.u.B0 == 2 )
> {
> r = mem [prevr ].hh .v.RH ;
> if ( r == memtop - 7 )
> {
> curactivewidth [1 ]= curactivewidth [1 ]- mem [prevr + 1 ]
> .cint ;
> curactivewidth [2 ]= curactivewidth [2 ]- mem [prevr + 2 ]
> .cint ;
> curactivewidth [3 ]= curactivewidth [3 ]- mem [prevr + 3 ]
> .cint ;
> curactivewidth [4 ]= curactivewidth [4 ]- mem [prevr + 4 ]
> .cint ;
> curactivewidth [5 ]= curactivewidth [5 ]- mem [prevr + 5 ]
> .cint ;
> curactivewidth [6 ]= curactivewidth [6 ]- mem [prevr + 6 ]
> .cint ;
> if ( eqtb [27256 ].cint > 1 )
> {
> curactivewidth [7 ]= curactivewidth [7 ]- mem [prevr + 7 ]
> .cint ;
> curactivewidth [8 ]= curactivewidth [8 ]- mem [prevr + 8 ]
> .cint ;
> }
> mem [prevprevr ].hh .v.RH = memtop - 7 ;
> zfreenode((halfword) (prevr), (halfword) (9)) ;
> prevr = prevprevr ;
> }
> else if ( mem [r ].hh.u.B0 == 2 )
> {
> curactivewidth [1 ]= curactivewidth [1 ]+ mem [r + 1 ].cint ;
> curactivewidth [2 ]= curactivewidth [2 ]+ mem [r + 2 ].cint ;
> curactivewidth [3 ]= curactivewidth [3 ]+ mem [r + 3 ].cint ;
> curactivewidth [4 ]= curactivewidth [4 ]+ mem [r + 4 ].cint ;
> curactivewidth [5 ]= curactivewidth [5 ]+ mem [r + 5 ].cint ;
> curactivewidth [6 ]= curactivewidth [6 ]+ mem [r + 6 ].cint ;
> if ( eqtb [27256 ].cint > 1 )
> {
> curactivewidth [7 ]= curactivewidth [7 ]+ mem [r + 7 ].cint
> ;
> curactivewidth [8 ]= curactivewidth [8 ]+ mem [r + 8 ].cint
> ;
> }
> mem [prevr + 1 ].cint = mem [prevr + 1 ].cint + mem [r + 1 ]
> .cint ;
> mem [prevr + 2 ].cint = mem [prevr + 2 ].cint + mem [r + 2 ]
> .cint ;
> mem [prevr + 3 ].cint = mem [prevr + 3 ].cint + mem [r + 3 ]
> .cint ;
> mem [prevr + 4 ].cint = mem [prevr + 4 ].cint + mem [r + 4 ]
> .cint ;
> mem [prevr + 5 ].cint = mem [prevr + 5 ].cint + mem [r + 5 ]
> .cint ;
> mem [prevr + 6 ].cint = mem [prevr + 6 ].cint + mem [r + 6 ]
> .cint ;
> if ( eqtb [27256 ].cint > 1 )
> {
> mem [prevr + 7 ].cint = mem [prevr + 7 ].cint + mem [r + 7 ]
> .cint ;
> mem [prevr + 8 ].cint = mem [prevr + 8 ].cint + mem [r + 8 ]
> .cint ;
> }
> mem [prevr ].hh .v.RH = mem [r ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (9)) ;
> }
> }
> }
> }
> lab10:
> ;
>
> if ( curp == printednode ) {
>
> if ( curp != -268435455L ) {
>
> if ( mem [curp ].hh.u.B0 == 7 )
> {
> t = mem [curp ].hh.u.B1 ;
> while ( t > 0 ) {
>
> --(t) ;
> printednode = mem [printednode ].hh .v.RH ;
> }
> }
>
> }
> }
>}
>void
>zpostlinebreak ( boolean d )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword q, r, s ;
> halfword p, k ;
> scaled w ;
> boolean gluebreak ;
> halfword ptmp ;
> boolean discbreak ;
> boolean postdiscbreak ;
> scaled curwidth ;
> scaled curindent ;
> quarterword t ;
> integer pen ;
> halfword curline ;
> halfword LRptr ;
> LRptr = curlist .eTeXauxfield ;
> q = mem [bestbet + 1 ].hh .v.RH ;
> curp = -268435455L ;
> do {
> r = q ;
> q = mem [q + 1 ].hh .v.LH ;
> mem [r + 1 ].hh .v.LH = curp ;
> curp = r ;
> } while ( ! ( q == -268435455L ) ) ;
> curline = curlist .pgfield + 1 ;
> do {
> if ( ( eqtb [27278 ].cint > 0 ) )
> {
> q = mem [memtop - 3 ].hh .v.RH ;
> if ( LRptr != -268435455L )
> {
> tempptr = LRptr ;
> r = q ;
> do {
> s = znewmath((scaled) (0), (smallnumber) (( mem [tempptr ].hh .v.LH - 1 ))) ;
> mem [s ].hh .v.RH = r ;
> r = s ;
> tempptr = mem [tempptr ].hh .v.RH ;
> } while ( ! ( tempptr == -268435455L ) ) ;
> mem [memtop - 3 ].hh .v.RH = r ;
> }
> while ( q != mem [curp + 1 ].hh .v.RH ) {
>
> if ( ! ( q >= himemmin ) ) {
>
> if ( mem [q ].hh.u.B0 == 9 ) {
>
> if ( ((mem [q ].hh.u.B1) & 1) )
> {
> if ( LRptr != -268435455L ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [q ].hh.u.B1 / 4 )
> + 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> }
> else {
>
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [q ].hh.u.B1 / 4 ) + 3 )
> ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> }
> }
> q = mem [q ].hh .v.RH ;
> }
> }
> q = mem [curp + 1 ].hh .v.RH ;
> discbreak = 0 ;
> postdiscbreak = 0 ;
> gluebreak = 0 ;
> if ( q != -268435455L ) {
>
> if ( mem [q ].hh.u.B0 == 10 )
> {
> zdeleteglueref((halfword) (mem [q + 1 ].hh .v.LH)) ;
> mem [q + 1 ].hh .v.LH = eqtb [24536 ].hh .v.RH ;
> mem [q ].hh.u.B1 = 9 ;
> ++(mem [eqtb [24536 ].hh .v.RH ].hh .v.RH) ;
> gluebreak = 1 ;
> goto lab30 ;
> }
> else {
>
> if ( mem [q ].hh.u.B0 == 7 )
> {
> t = mem [q ].hh.u.B1 ;
> if ( t == 0 )
> r = mem [q ].hh .v.RH ;
> else {
>
> r = q ;
> while ( t > 1 ) {
>
> r = mem [r ].hh .v.RH ;
> --(t) ;
> }
> s = mem [r ].hh .v.RH ;
> r = mem [s ].hh .v.RH ;
> mem [s ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (mem [q ].hh .v.RH)) ;
> mem [q ].hh.u.B1 = 0 ;
> }
> if ( mem [q + 1 ].hh .v.RH != -268435455L )
> {
> s = mem [q + 1 ].hh .v.RH ;
> while ( mem [s ].hh .v.RH != -268435455L ) s = mem [s ].hh
> .v.RH ;
> mem [s ].hh .v.RH = r ;
> r = mem [q + 1 ].hh .v.RH ;
> mem [q + 1 ].hh .v.RH = -268435455L ;
> postdiscbreak = 1 ;
> }
> if ( mem [q + 1 ].hh .v.LH != -268435455L )
> {
> s = mem [q + 1 ].hh .v.LH ;
> mem [q ].hh .v.RH = s ;
> while ( mem [s ].hh .v.RH != -268435455L ) s = mem [s ].hh
> .v.RH ;
> mem [q + 1 ].hh .v.LH = -268435455L ;
> q = s ;
> }
> mem [q ].hh .v.RH = r ;
> discbreak = 1 ;
> }
> else if ( mem [q ].hh.u.B0 == 11 )
> mem [q + 1 ].cint = 0 ;
> else if ( mem [q ].hh.u.B0 == 9 )
> {
> mem [q + 1 ].cint = 0 ;
> if ( ( eqtb [27278 ].cint > 0 ) ) {
>
> if ( ((mem [q ].hh.u.B1) & 1) )
> {
> if ( LRptr != -268435455L ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [q ].hh.u.B1 / 4 )
> + 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> }
> else {
>
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [q ].hh.u.B1 / 4 ) + 3 )
> ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> }
> }
> }
> }
> else {
>
> q = memtop - 3 ;
> while ( mem [q ].hh .v.RH != -268435455L ) q = mem [q ].hh .v.RH ;
> }
> lab30: if ( eqtb [27257 ].cint > 0 )
> {
> if ( discbreak && ( ( q >= himemmin ) || ( mem [q ].hh.u.B0 != 7 ) ) )
> {
> p = q ;
> ptmp = p ;
> }
> else {
>
> p = zprevrightmost((halfword) (mem [memtop - 3 ].hh .v.RH), (halfword) (q)) ;
> ptmp = p ;
> p = zfindprotcharright((halfword) (mem [memtop - 3 ].hh .v.RH), (halfword) (p)) ;
> }
> w = zcharpw((halfword) (p), (smallnumber) (1)) ;
> if ( w != 0 )
> {
> k = znewmarginkern((scaled) (- (integer) w), (halfword) (lastrightmostchar), (smallnumber) (1)) ;
> mem [k ].hh .v.RH = mem [ptmp ].hh .v.RH ;
> mem [ptmp ].hh .v.RH = k ;
> if ( ( ptmp == q ) )
> q = mem [q ].hh .v.RH ;
> }
> }
> if ( ! gluebreak )
> {
> r = znewparamglue((smallnumber) (8)) ;
> mem [r ].hh .v.RH = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = r ;
> q = r ;
> }
> if ( ( eqtb [27278 ].cint > 0 ) ) {
>
> if ( LRptr != -268435455L )
> {
> s = memtop - 3 ;
> r = mem [s ].hh .v.RH ;
> while ( r != q ) {
>
> s = r ;
> r = mem [s ].hh .v.RH ;
> }
> r = LRptr ;
> while ( r != -268435455L ) {
>
> tempptr = znewmath((scaled) (0), (smallnumber) (mem [r ].hh .v.LH)) ;
> mem [s ].hh .v.RH = tempptr ;
> s = tempptr ;
> r = mem [r ].hh .v.RH ;
> }
> mem [s ].hh .v.RH = q ;
> }
> }
> r = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> q = mem [memtop - 3 ].hh .v.RH ;
> mem [memtop - 3 ].hh .v.RH = r ;
> if ( eqtb [27257 ].cint > 0 )
> {
> p = q ;
> p = zfindprotcharleft((halfword) (p), (boolean) (0)) ;
> w = zcharpw((halfword) (p), (smallnumber) (0)) ;
> if ( w != 0 )
> {
> k = znewmarginkern((scaled) (- (integer) w), (halfword) (lastleftmostchar), (smallnumber) (0)) ;
> mem [k ].hh .v.RH = q ;
> q = k ;
> }
> }
> if ( eqtb [24535 ].hh .v.RH != membot )
> {
> r = znewparamglue((smallnumber) (7)) ;
> mem [r ].hh .v.RH = q ;
> q = r ;
> }
> if ( curline > lastspecialline )
> {
> curwidth = secondwidth ;
> curindent = secondindent ;
> }
> else if ( eqtb [25058 ].hh .v.RH == -268435455L )
> {
> curwidth = firstwidth ;
> curindent = firstindent ;
> }
> else {
>
> curwidth = mem [eqtb [25058 ].hh .v.RH + 2 * curline ].cint ;
> curindent = mem [eqtb [25058 ].hh .v.RH + 2 * curline - 1 ].cint ;
> }
> adjusttail = memtop - 5 ;
> preadjusttail = memtop - 14 ;
> if ( eqtb [27256 ].cint > 0 )
> justbox = zhpack((halfword) (q), (scaled) (curwidth), (smallnumber) (2)) ;
> else justbox = zhpack((halfword) (q), (scaled) (curwidth), (smallnumber) (0)) ;
> mem [justbox + 4 ].cint = curindent ;
> if ( eqtb [27822 ].cint != eqtb [27824 ].cint )
> mem [justbox + 3 ].cint = eqtb [27822 ].cint ;
> if ( eqtb [27823 ].cint != eqtb [27824 ].cint )
> mem [justbox + 2 ].cint = eqtb [27823 ].cint ;
> if ( ( eqtb [27820 ].cint != eqtb [27824 ].cint ) && ( curline ==
> curlist .pgfield + 1 ) )
> mem [justbox + 3 ].cint = eqtb [27820 ].cint ;
> if ( ( eqtb [27821 ].cint != eqtb [27824 ].cint ) && ( curline + 1 ==
> bestline ) )
> mem [justbox + 2 ].cint = eqtb [27821 ].cint ;
> if ( memtop - 14 != preadjusttail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 14 ].hh .v.RH ;
> curlist .tailfield = preadjusttail ;
> }
> preadjusttail = -268435455L ;
> zappendtovlist((halfword) (justbox)) ;
> if ( memtop - 5 != adjusttail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 5 ].hh .v.RH ;
> curlist .tailfield = adjusttail ;
> }
> adjusttail = -268435455L ;
> if ( curline + 1 != bestline )
> {
> q = eqtb [25329 ].hh .v.RH ;
> if ( q != -268435455L )
> {
> r = curline ;
> if ( r > mem [q + 1 ].cint )
> r = mem [q + 1 ].cint ;
> pen = mem [q + r + 1 ].cint ;
> }
> else pen = eqtb [27190 ].cint ;
> q = eqtb [25330 ].hh .v.RH ;
> if ( q != -268435455L )
> {
> r = curline - curlist .pgfield ;
> if ( r > mem [q + 1 ].cint )
> r = mem [q + 1 ].cint ;
> pen = pen + mem [q + r + 1 ].cint ;
> }
> else if ( curline == curlist .pgfield + 1 )
> pen = pen + eqtb [27182 ].cint ;
> if ( d )
> q = eqtb [25332 ].hh .v.RH ;
> else q = eqtb [25331 ].hh .v.RH ;
> if ( q != -268435455L )
> {
> r = bestline - curline - 1 ;
> if ( r > mem [q + 1 ].cint )
> r = mem [q + 1 ].cint ;
> pen = pen + mem [q + r + 1 ].cint ;
> }
> else if ( curline + 2 == bestline ) {
>
> if ( d )
> pen = pen + eqtb [27184 ].cint ;
> else pen = pen + eqtb [27183 ].cint ;
> }
> if ( discbreak )
> pen = pen + eqtb [27185 ].cint ;
> if ( pen != 0 )
> {
> r = znewpenalty((integer) (pen)) ;
> mem [curlist .tailfield ].hh .v.RH = r ;
> curlist .tailfield = r ;
> }
> }
> ++(curline) ;
> curp = mem [curp + 1 ].hh .v.LH ;
> if ( curp != -268435455L ) {
>
> if ( ! postdiscbreak )
> {
> r = memtop - 3 ;
> while ( 1 ) {
>
> q = mem [r ].hh .v.RH ;
> if ( q == mem [curp + 1 ].hh .v.RH )
> goto lab31 ;
> if ( ( q >= himemmin ) )
> goto lab31 ;
> if ( ( mem [q ].hh.u.B0 < 9 ) )
> goto lab31 ;
> if ( mem [q ].hh.u.B0 == 11 ) {
>
> if ( mem [q ].hh.u.B1 != 1 )
> goto lab31 ;
> }
> r = q ;
> if ( mem [q ].hh.u.B0 == 9 ) {
>
> if ( ( eqtb [27278 ].cint > 0 ) ) {
>
> if ( ((mem [q ].hh.u.B1) & 1) )
> {
> if ( LRptr != -268435455L ) {
>
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [q ].hh.u.B1 / 4
> ) + 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> }
> }
> else {
>
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [q ].hh.u.B1 / 4 ) + 3
> ) ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> }
> }
> }
> lab31: if ( r != memtop - 3 )
> {
> mem [r ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (mem [memtop - 3 ].hh .v.RH)) ;
> mem [memtop - 3 ].hh .v.RH = q ;
> }
> }
> }
> } while ( ! ( curp == -268435455L ) ) ;
> if ( ( curline != bestline ) || ( mem [memtop - 3 ].hh .v.RH !=
> -268435455L ) )
> zconfusion((strnumber) (1340)) ;
> curlist .pgfield = bestline - 1 ;
> curlist .eTeXauxfield = LRptr ;
>}
>smallnumber
>zreconstitute ( smallnumber j , smallnumber n , halfword bchar , halfword
>hchar )
>{
> register smallnumber Result; register memoryword *mem=zmem;
> halfword p ;
> halfword t ;
> fourquarters q ;
> halfword currh ;
> halfword testchar ;
> scaled w ;
> fontindex k ;
> hyphenpassed = 0 ;
> t = memtop - 4 ;
> w = 0 ;
> mem [memtop - 4 ].hh .v.RH = -268435455L ;
> curl = hu [j ];
> curq = t ;
> if ( j == 0 )
> {
> ligaturepresent = initlig ;
> p = initlist ;
> if ( ligaturepresent )
> lfthit = initlft ;
> while ( p > -268435455L ) {
>
> {
> mem [t ].hh .v.RH = getavail () ;
> t = mem [t ].hh .v.RH ;
> mem [t ].hh.u.B0 = hf ;
> mem [t ].hh.u.B1 = mem [p ].hh.u.B1 ;
> }
> p = mem [p ].hh .v.RH ;
> }
> }
> else if ( curl < 256 )
> {
> mem [t ].hh .v.RH = getavail () ;
> t = mem [t ].hh .v.RH ;
> mem [t ].hh.u.B0 = hf ;
> mem [t ].hh.u.B1 = curl ;
> }
> ligstack = -268435455L ;
> {
> if ( j < n )
> curr = hu [j + 1 ];
> else curr = bchar ;
> if ( ((hyf [j ]) & 1) )
> currh = hchar ;
> else currh = 256 ;
> }
> lab22: if ( curl == 256 )
> {
> k = bcharlabel [hf ];
> if ( k == 0 )
> goto lab30 ;
> else q = fontinfo [k ].qqqq ;
> }
> else {
>
> q = fontinfo [charbase [hf ]+ zeffectivechar((boolean) (1), (internalfontnumber) (hf), (quarterword) (curl)) ]
> .qqqq ;
> if ( ( ( q .u.B2 ) % 4 ) != 1 )
> goto lab30 ;
> k = ligkernbase [hf ]+ q .u.B3 ;
> q = fontinfo [k ].qqqq ;
> if ( q .u.B0 > 128 )
> {
> k = ligkernbase [hf ]+ 256 * q .u.B2 + q .u.B3 + 32768L - 256 * ( 128 ) ;
> q = fontinfo [k ].qqqq ;
> }
> }
> if ( currh < 256 )
> testchar = currh ;
> else testchar = curr ;
> while ( 1 ) {
>
> if ( q .u.B1 == testchar ) {
>
> if ( q .u.B0 <= 128 ) {
>
> if ( currh < 256 )
> {
> hyphenpassed = j ;
> hchar = 256 ;
> currh = 256 ;
> goto lab22 ;
> }
> else {
>
> if ( hchar < 256 ) {
>
> if ( ((hyf [j ]) & 1) )
> {
> hyphenpassed = j ;
> hchar = 256 ;
> }
> }
> if ( q .u.B2 < 128 )
> {
> if ( curl == 256 )
> lfthit = 1 ;
> if ( j == n ) {
>
> if ( ligstack == -268435455L )
> rthit = 1 ;
> }
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
> switch ( q .u.B2 )
> {case 1 :
> case 5 :
> {
> curl = q .u.B3 ;
> ligaturepresent = 1 ;
> }
> break ;
> case 2 :
> case 6 :
> {
> curr = q .u.B3 ;
> if ( ligstack > -268435455L )
> mem [ligstack ].hh.u.B1 = curr ;
> else {
>
> ligstack = znewligitem((quarterword) (curr)) ;
> if ( j == n )
> bchar = 256 ;
> else {
>
> p = getavail () ;
> mem [ligstack + 1 ].hh .v.RH = p ;
> mem [p ].hh.u.B1 = hu [j + 1 ];
> mem [p ].hh.u.B0 = hf ;
> }
> }
> }
> break ;
> case 3 :
> {
> curr = q .u.B3 ;
> p = ligstack ;
> ligstack = znewligitem((quarterword) (curr)) ;
> mem [ligstack ].hh .v.RH = p ;
> }
> break ;
> case 7 :
> case 11 :
> {
> if ( ligaturepresent )
> {
> p = znewligature((internalfontnumber) (hf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [p ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( 0 ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [p ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> mem [curq ].hh .v.RH = p ;
> t = p ;
> ligaturepresent = 0 ;
> }
> curq = t ;
> curl = q .u.B3 ;
> ligaturepresent = 1 ;
> }
> break ;
> default:
> {
> curl = q .u.B3 ;
> ligaturepresent = 1 ;
> if ( ligstack > -268435455L )
> {
> if ( mem [ligstack + 1 ].hh .v.RH > -268435455L )
> {
> mem [t ].hh .v.RH = mem [ligstack + 1 ].hh .v.RH ;
> t = mem [t ].hh .v.RH ;
> ++(j) ;
> }
> p = ligstack ;
> ligstack = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> if ( ligstack == -268435455L )
> {
> if ( j < n )
> curr = hu [j + 1 ];
> else curr = bchar ;
> if ( ((hyf [j ]) & 1) )
> currh = hchar ;
> else currh = 256 ;
> }
> else curr = mem [ligstack ].hh.u.B1 ;
> }
> else if ( j == n )
> goto lab30 ;
> else {
>
> {
> mem [t ].hh .v.RH = getavail () ;
> t = mem [t ].hh .v.RH ;
> mem [t ].hh.u.B0 = hf ;
> mem [t ].hh.u.B1 = curr ;
> }
> ++(j) ;
> {
> if ( j < n )
> curr = hu [j + 1 ];
> else curr = bchar ;
> if ( ((hyf [j ]) & 1) )
> currh = hchar ;
> else currh = 256 ;
> }
> }
> }
> break ;
> }
> if ( q .u.B2 > 4 ) {
>
> if ( q .u.B2 != 7 )
> goto lab30 ;
> }
> goto lab22 ;
> }
> w = fontinfo [kernbase [hf ]+ 256 * q .u.B2 + q .u.B3 ].cint ;
> goto lab30 ;
> }
> }
> }
> if ( q .u.B0 >= 128 ) {
>
> if ( currh == 256 )
> goto lab30 ;
> else {
>
> currh = 256 ;
> goto lab22 ;
> }
> }
> k = k + q .u.B0 + 1 ;
> q = fontinfo [k ].qqqq ;
> }
> lab30: ;
> if ( ligaturepresent )
> {
> p = znewligature((internalfontnumber) (hf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [p ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( rthit ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [p ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> mem [curq ].hh .v.RH = p ;
> t = p ;
> ligaturepresent = 0 ;
> }
> if ( w != 0 )
> {
> mem [t ].hh .v.RH = znewkern((scaled) (w)) ;
> t = mem [t ].hh .v.RH ;
> w = 0 ;
> mem [t + 2 ].cint = 0 ;
> }
> if ( ligstack > -268435455L )
> {
> curq = t ;
> curl = mem [ligstack ].hh.u.B1 ;
> ligaturepresent = 1 ;
> {
> if ( mem [ligstack + 1 ].hh .v.RH > -268435455L )
> {
> mem [t ].hh .v.RH = mem [ligstack + 1 ].hh .v.RH ;
> t = mem [t ].hh .v.RH ;
> ++(j) ;
> }
> p = ligstack ;
> ligstack = mem [p ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> if ( ligstack == -268435455L )
> {
> if ( j < n )
> curr = hu [j + 1 ];
> else curr = bchar ;
> if ( ((hyf [j ]) & 1) )
> currh = hchar ;
> else currh = 256 ;
> }
> else curr = mem [ligstack ].hh.u.B1 ;
> }
> goto lab22 ;
> }
> Result = j ;
> return Result ;
>}
>void
>hyphenate ( void )
>{
> register memoryword *mem=zmem;
> unsigned char i, j, l ;
> halfword q, r, s ;
> halfword bchar ;
> halfword majortail, minortail ;
> ASCIIcode c ;
> unsigned char cloc ;
> integer rcount ;
> halfword hyfnode ;
> triepointer z ;
> integer v ;
> hyphpointer h ;
> strnumber k ;
> poolpointer u ;
> {register integer for_end; j = 0 ;for_end = hn ; if ( j <= for_end) do
> hyf [j ]= 0 ;
> while ( j++ < for_end ) ;}
> h = hc [1 ];
> ++(hn) ;
> hc [hn ]= curlang ;
> {register integer for_end; j = 2 ;for_end = hn ; if ( j <= for_end) do
> h = ( h + h + hc [j ]) % 607 ;
> while ( j++ < for_end ) ;}
> while ( 1 ) {
>
> k = hyphword [h ];
> if ( k == 0 )
> goto lab45 ;
> if ( ( strstart [k + 1 ]- strstart [k ]) == hn )
> {
> j = 1 ;
> u = strstart [k ];
> do {
> if ( strpool [u ]!= hc [j ])
> goto lab30 ;
> ++(j) ;
> ++(u) ;
> } while ( ! ( j > hn ) ) ;
> s = hyphlist [h ];
> while ( s != -268435455L ) {
>
> hyf [mem [s ].hh .v.LH ]= 1 ;
> s = mem [s ].hh .v.RH ;
> }
> --(hn) ;
> goto lab40 ;
> }
> lab30: ;
> h = hyphlink [h ];
> if ( h == 0 )
> goto lab45 ;
> --(h) ;
> }
> lab45: --(hn) ;
> if ( trietrc [curlang + 1 ]!= curlang )
> return ;
> hc [0 ]= 0 ;
> hc [hn + 1 ]= 0 ;
> hc [hn + 2 ]= 256 ;
> {register integer for_end; j = 0 ;for_end = hn - rhyf + 1 ; if ( j <=
> for_end) do
> {
> z = trietrl [curlang + 1 ]+ hc [j ];
> l = j ;
> while ( hc [l ]== trietrc [z ]) {
>
> if ( trietro [z ]!= ( 0 ) )
> {
> v = trietro [z ];
> do {
> v = v + opstart [curlang ];
> i = l - hyfdistance [v ];
> if ( hyfnum [v ]> hyf [i ])
> hyf [i ]= hyfnum [v ];
> v = hyfnext [v ];
> } while ( ! ( v == ( 0 ) ) ) ;
> }
> ++(l) ;
> z = trietrl [z ]+ hc [l ];
> }
> }
> while ( j++ < for_end ) ;}
> lab40: {
> register integer for_end; j = 0 ;for_end = lhyf - 1 ; if ( j <=
> for_end) do
> hyf [j ]= 0 ;
> while ( j++ < for_end ) ;}
> {register integer for_end; j = 0 ;for_end = rhyf - 1 ; if ( j <= for_end)
> do
> hyf [hn - j ]= 0 ;
> while ( j++ < for_end ) ;}
> {register integer for_end; j = lhyf ;for_end = hn - rhyf ; if ( j <=
> for_end) do
> if ( ((hyf [j ]) & 1) )
> goto lab41 ;
> while ( j++ < for_end ) ;}
> return ;
> lab41: ;
> q = mem [hb ].hh .v.RH ;
> mem [hb ].hh .v.RH = -268435455L ;
> r = mem [ha ].hh .v.RH ;
> mem [ha ].hh .v.RH = -268435455L ;
> bchar = hyfbchar ;
> if ( ( ha >= himemmin ) ) {
>
> if ( mem [ha ].hh.u.B0 != hf )
> goto lab42 ;
> else {
>
> initlist = ha ;
> initlig = 0 ;
> hu [0 ]= mem [ha ].hh.u.B1 ;
> }
> }
> else if ( mem [ha ].hh.u.B0 == 6 ) {
>
> if ( mem [ha + 1 ].hh.u.B0 != hf )
> goto lab42 ;
> else {
>
> initlist = mem [ha + 1 ].hh .v.RH ;
> initlig = 1 ;
> initlft = ( mem [ha ].hh.u.B1 > 1 ) ;
> hu [0 ]= mem [ha + 1 ].hh.u.B1 ;
> if ( initlist == -268435455L ) {
>
> if ( initlft )
> {
> hu [0 ]= 256 ;
> initlig = 0 ;
> }
> }
> zfreenode((halfword) (ha), (halfword) (2)) ;
> }
> }
> else {
>
> if ( ! ( r >= himemmin ) ) {
>
> if ( mem [r ].hh.u.B0 == 6 ) {
>
> if ( mem [r ].hh.u.B1 > 1 )
> goto lab42 ;
> }
> }
> j = 1 ;
> s = ha ;
> initlist = -268435455L ;
> goto lab50 ;
> }
> s = curp ;
> while ( mem [s ].hh .v.RH != ha ) s = mem [s ].hh .v.RH ;
> j = 0 ;
> goto lab50 ;
> lab42: s = ha ;
> j = 0 ;
> hu [0 ]= 256 ;
> initlig = 0 ;
> initlist = -268435455L ;
> lab50: zflushnodelist((halfword) (r)) ;
> do {
> l = j ;
> j = zreconstitute((smallnumber) (j), (smallnumber) (hn), (halfword) (bchar), (halfword) (hyfchar)) + 1 ;
> if ( hyphenpassed == 0 )
> {
> mem [s ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> while ( mem [s ].hh .v.RH > -268435455L ) s = mem [s ].hh .v.RH ;
> if ( ((hyf [j - 1 ]) & 1) )
> {
> l = j ;
> hyphenpassed = j - 1 ;
> mem [memtop - 4 ].hh .v.RH = -268435455L ;
> }
> }
> if ( hyphenpassed > 0 )
> do {
> r = zgetnode((integer) (2)) ;
> mem [r ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> mem [r ].hh.u.B0 = 7 ;
> majortail = r ;
> rcount = 0 ;
> while ( mem [majortail ].hh .v.RH > -268435455L ) {
>
> majortail = mem [majortail ].hh .v.RH ;
> ++(rcount) ;
> }
> i = hyphenpassed ;
> hyf [i ]= 0 ;
> minortail = -268435455L ;
> mem [r + 1 ].hh .v.LH = -268435455L ;
> hyfnode = znewcharacter((internalfontnumber) (hf), (eightbits) (hyfchar)) ;
> if ( hyfnode != -268435455L )
> {
> ++(i) ;
> c = hu [i ];
> hu [i ]= hyfchar ;
> {
> mem [hyfnode ].hh .v.RH = avail ;
> avail = hyfnode ;
> ;
>
> --(dynused) ;
>
> }
> }
> while ( l <= i ) {
>
> l = zreconstitute((smallnumber) (l), (smallnumber) (i), (halfword) (fontbchar [hf ]), (halfword) (256)) + 1 ;
> if ( mem [memtop - 4 ].hh .v.RH > -268435455L )
> {
> if ( minortail == -268435455L )
> mem [r + 1 ].hh .v.LH = mem [memtop - 4 ].hh .v.RH ;
> else mem [minortail ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> minortail = mem [memtop - 4 ].hh .v.RH ;
> while ( mem [minortail ].hh .v.RH > -268435455L ) minortail = mem
> [minortail ].hh .v.RH ;
> }
> }
> if ( hyfnode != -268435455L )
> {
> hu [i ]= c ;
> l = i ;
> --(i) ;
> }
> minortail = -268435455L ;
> mem [r + 1 ].hh .v.RH = -268435455L ;
> cloc = 0 ;
> if ( bcharlabel [hf ]!= 0 )
> {
> --(l) ;
> c = hu [l ];
> cloc = l ;
> hu [l ]= 256 ;
> }
> while ( l < j ) {
>
> do {
> l = zreconstitute((smallnumber) (l), (smallnumber) (hn), (halfword) (bchar), (halfword) (256)) + 1 ;
> if ( cloc > 0 )
> {
> hu [cloc ]= c ;
> cloc = 0 ;
> }
> if ( mem [memtop - 4 ].hh .v.RH > -268435455L )
> {
> if ( minortail == -268435455L )
> mem [r + 1 ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> else mem [minortail ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> minortail = mem [memtop - 4 ].hh .v.RH ;
> while ( mem [minortail ].hh .v.RH > -268435455L ) minortail =
> mem [minortail ].hh .v.RH ;
> }
> } while ( ! ( l >= j ) ) ;
> while ( l > j ) {
>
> j = zreconstitute((smallnumber) (j), (smallnumber) (hn), (halfword) (bchar), (halfword) (256)) + 1 ;
> mem [majortail ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> while ( mem [majortail ].hh .v.RH > -268435455L ) {
>
> majortail = mem [majortail ].hh .v.RH ;
> ++(rcount) ;
> }
> }
> }
> if ( rcount > 127 )
> {
> mem [s ].hh .v.RH = mem [r ].hh .v.RH ;
> mem [r ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (r)) ;
> }
> else {
>
> mem [s ].hh .v.RH = r ;
> mem [r ].hh.u.B1 = rcount ;
> }
> s = majortail ;
> hyphenpassed = j - 1 ;
> mem [memtop - 4 ].hh .v.RH = -268435455L ;
> } while ( ! ( ! ((hyf [j - 1 ]) & 1) ) ) ;
> } while ( ! ( j > hn ) ) ;
> mem [s ].hh .v.RH = q ;
> zflushlist((halfword) (initlist)) ;
>}
>boolean
>zeTeXenabled ( boolean b , quarterword j , halfword k )
>{
> register boolean Result;
> if ( ! b )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (781)) ;
> }
> zprintcmdchr((quarterword) (j), (halfword) (k)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1955 ;
> }
> error () ;
> }
> Result = b ;
> return Result ;
>}
>void
>showsavegroups ( void )
>{
> register memoryword *mem=zmem;
> integer p ;
> short m ;
> savepointer v ;
> quarterword l ;
> groupcode c ;
> schar a ;
> integer i ;
> quarterword j ;
> strnumber s ;
> p = nestptr ;
> nest [p ]= curlist ;
> v = saveptr ;
> l = curlevel ;
> c = curgroup ;
> saveptr = curboundary ;
> --(curlevel) ;
> a = 1 ;
> zprintnl((strnumber) (345)) ;
> println () ;
> while ( 1 ) {
>
> zprintnl((strnumber) (379)) ;
> zprintgroup((boolean) (1)) ;
> if ( curgroup == 0 )
> goto lab30 ;
> do {
> m = nest [p ].modefield ;
> if ( p > 0 )
> --(p) ;
> else m = 1 ;
> } while ( ! ( m != 104 ) ) ;
> zprint((integer) (286)) ;
> switch ( curgroup )
> {case 1 :
> {
> ++(p) ;
> goto lab42 ;
> }
> break ;
> case 2 :
> case 3 :
> s = 1461 ;
> break ;
> case 4 :
> s = 1370 ;
> break ;
> case 5 :
> s = 1460 ;
> break ;
> case 6 :
> if ( a == 0 )
> {
> if ( m == -1 )
> s = 596 ;
> else s = 615 ;
> a = 1 ;
> goto lab41 ;
> }
> else {
>
> if ( a == 1 )
> zprint((integer) (1993)) ;
> else zprintesc((strnumber) (1296)) ;
> if ( p >= a )
> p = p - a ;
> a = 0 ;
> goto lab40 ;
> }
> break ;
> case 7 :
> {
> ++(p) ;
> a = -1 ;
> zprintesc((strnumber) (603)) ;
> goto lab42 ;
> }
> break ;
> case 8 :
> {
> zprintesc((strnumber) (414)) ;
> goto lab40 ;
> }
> break ;
> case 9 :
> goto lab42 ;
> break ;
> case 10 :
> case 13 :
> {
> if ( curgroup == 10 )
> zprintesc((strnumber) (357)) ;
> else zprintesc((strnumber) (601)) ;
> {register integer for_end; i = 1 ;for_end = 3 ; if ( i <= for_end)
> do
> if ( i <= savestack [saveptr - 2 ].cint )
> zprint((integer) (1256)) ;
> while ( i++ < for_end ) ;}
> goto lab42 ;
> }
> break ;
> case 11 :
> {
> if ( savestack [saveptr - 2 ].cint == 255 )
> zprintesc((strnumber) (360)) ;
> else {
>
> zprintesc((strnumber) (337)) ;
> zprintint((longinteger) (savestack [saveptr - 2 ].cint)) ;
> }
> goto lab42 ;
> }
> break ;
> case 12 :
> {
> s = 616 ;
> goto lab41 ;
> }
> break ;
> case 14 :
> {
> ++(p) ;
> zprintesc((strnumber) (585)) ;
> goto lab40 ;
> }
> break ;
> case 15 :
> {
> if ( m == 207 )
> zprintchar((ASCIIcode) (36)) ;
> else if ( nest [p ].modefield == 207 )
> {
> zprintcmdchr((quarterword) (48), (halfword) (savestack [saveptr - 2 ].cint)) ;
> goto lab40 ;
> }
> zprintchar((ASCIIcode) (36)) ;
> goto lab40 ;
> }
> break ;
> case 16 :
> {
> if ( mem [nest [p + 1 ].eTeXauxfield ].hh.u.B0 == 30 )
> zprintesc((strnumber) (1272)) ;
> else zprintesc((strnumber) (1274)) ;
> goto lab40 ;
> }
> break ;
> }
> i = savestack [saveptr - 4 ].cint ;
> if ( i != 0 ) {
>
> if ( i < 1073741824L )
> {
> if ( ((integer)(nest [p ].modefield) >= 0 ? (integer)(nest [p ].modefield) : (integer)-(nest [p ].modefield)) == 1 )
> j = 21 ;
> else j = 22 ;
> if ( i > 0 )
> zprintcmdchr((quarterword) (j), (halfword) (0)) ;
> else zprintcmdchr((quarterword) (j), (halfword) (1)) ;
> zprintscaled((scaled) (((integer)(i) >= 0 ? (integer)(i) : (integer)-(i)))) ;
> zprint((integer) (312)) ;
> }
> else if ( i < 1073807360L )
> {
> if ( i >= 1073774592L )
> {
> zprintesc((strnumber) (1578)) ;
> i = i - ( 32768L ) ;
> }
> zprintesc((strnumber) (613)) ;
> zprintint((longinteger) (i - 1073741824L)) ;
> zprintchar((ASCIIcode) (61)) ;
> }
> else zprintcmdchr((quarterword) (31), (halfword) (i - ( 1073807261L ))) ;
> }
> lab41: zprintesc((strnumber) (s)) ;
> if ( savestack [saveptr - 2 ].cint != 0 )
> {
> zprintchar((ASCIIcode) (32)) ;
> if ( savestack [saveptr - 3 ].cint == 0 )
> zprint((integer) (1232)) ;
> else zprint((integer) (1233)) ;
> zprintscaled((scaled) (savestack [saveptr - 2 ].cint)) ;
> zprint((integer) (312)) ;
> }
> lab42: zprintchar((ASCIIcode) (123)) ;
> lab40: zprintchar((ASCIIcode) (41)) ;
> --(curlevel) ;
> curgroup = savestack [saveptr ].hh.u.B1 ;
> saveptr = savestack [saveptr ].hh .v.RH ;
> }
> lab30: saveptr = v ;
> curlevel = l ;
> curgroup = c ;
>}
>halfword
>zprunepagetop ( halfword p , boolean s )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword prevp ;
> halfword q, r ;
> prevp = memtop - 3 ;
> mem [memtop - 3 ].hh .v.RH = p ;
> while ( p != -268435455L ) switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> {
> q = znewskipparam((smallnumber) (10)) ;
> mem [prevp ].hh .v.RH = q ;
> mem [q ].hh .v.RH = p ;
> if ( mem [tempptr + 1 ].cint > mem [p + 3 ].cint )
> mem [tempptr + 1 ].cint = mem [tempptr + 1 ].cint - mem [p + 3 ]
> .cint ;
> else mem [tempptr + 1 ].cint = 0 ;
> p = -268435455L ;
> }
> break ;
> case 8 :
> case 4 :
> case 3 :
> {
> if ( ( mem [p ].hh.u.B0 == 8 ) && ( ( mem [p ].hh.u.B1 == 34 ) || ( mem
> [p ].hh.u.B1 == 35 ) ) )
> {
> zprint((integer) (1360)) ;
> goto lab60 ;
> }
> prevp = p ;
> p = mem [prevp ].hh .v.RH ;
> }
> break ;
> case 10 :
> case 11 :
> case 12 :
> {
> lab60: q = p ;
> p = mem [q ].hh .v.RH ;
> mem [q ].hh .v.RH = -268435455L ;
> mem [prevp ].hh .v.RH = p ;
> if ( s )
> {
> if ( discptr [3 ]== -268435455L )
> discptr [3 ]= q ;
> else mem [r ].hh .v.RH = q ;
> r = q ;
> }
> else zflushnodelist((halfword) (q)) ;
> }
> break ;
> default:
> zconfusion((strnumber) (1362)) ;
> break ;
> }
> Result = mem [memtop - 3 ].hh .v.RH ;
> return Result ;
>}
>halfword
>zvertbreak ( halfword p , scaled h , scaled d )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword prevp ;
> halfword q, r ;
> integer pi ;
> integer b ;
> integer leastcost ;
> halfword bestplace ;
> scaled prevdp ;
> smallnumber t ;
> prevp = p ;
> leastcost = 1073741823L ;
> activewidth [1 ]= 0 ;
> activewidth [2 ]= 0 ;
> activewidth [3 ]= 0 ;
> activewidth [4 ]= 0 ;
> activewidth [5 ]= 0 ;
> activewidth [6 ]= 0 ;
> prevdp = 0 ;
> while ( 1 ) {
>
> if ( p == -268435455L )
> pi = -10000 ;
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> {
> activewidth [1 ]= activewidth [1 ]+ prevdp + mem [p + 3 ].cint ;
> prevdp = mem [p + 2 ].cint ;
> goto lab45 ;
> }
> break ;
> case 8 :
> {
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> {
> activewidth [1 ]= activewidth [1 ]+ prevdp + mem [p + 2 ].cint
> ;
> prevdp = mem [p + 3 ].cint ;
> }
> goto lab45 ;
> }
> break ;
> case 10 :
> if ( ( mem [prevp ].hh.u.B0 < 9 ) )
> pi = 0 ;
> else goto lab90 ;
> break ;
> case 11 :
> {
> if ( mem [p ].hh .v.RH == -268435455L )
> t = 12 ;
> else t = mem [mem [p ].hh .v.RH ].hh.u.B0 ;
> if ( t == 10 )
> pi = 0 ;
> else goto lab90 ;
> }
> break ;
> case 12 :
> pi = mem [p + 1 ].cint ;
> break ;
> case 4 :
> case 3 :
> goto lab45 ;
> break ;
> default:
> zconfusion((strnumber) (1363)) ;
> break ;
> }
> if ( pi < 10000 )
> {
> if ( activewidth [1 ]< h ) {
>
> if ( ( activewidth [3 ]!= 0 ) || ( activewidth [4 ]!= 0 ) || (
> activewidth [5 ]!= 0 ) )
> b = 0 ;
> else b = zbadness((scaled) (h - activewidth [1 ]), (scaled) (activewidth [2 ])) ;
> }
> else if ( activewidth [1 ]- h > activewidth [6 ])
> b = 1073741823L ;
> else b = zbadness((scaled) (activewidth [1 ]- h), (scaled) (activewidth [6 ])) ;
> if ( b < 1073741823L ) {
>
> if ( pi <= -10000 )
> b = pi ;
> else if ( b < 10000 )
> b = b + pi ;
> else b = 100000L ;
> }
> if ( b <= leastcost )
> {
> bestplace = p ;
> leastcost = b ;
> bestheightplusdepth = activewidth [1 ]+ prevdp ;
> }
> if ( ( b == 1073741823L ) || ( pi <= -10000 ) )
> goto lab30 ;
> }
> if ( ( mem [p ].hh.u.B0 < 10 ) || ( mem [p ].hh.u.B0 > 11 ) )
> goto lab45 ;
> lab90: if ( mem [p ].hh.u.B0 == 11 )
> q = p ;
> else {
>
> q = mem [p + 1 ].hh .v.LH ;
> activewidth [2 + mem [q ].hh.u.B0 ]= activewidth [2 + mem [q ]
> .hh.u.B0 ]+ mem [q + 2 ].cint ;
> activewidth [6 ]= activewidth [6 ]+ mem [q + 3 ].cint ;
> if ( ( mem [q ].hh.u.B1 != 0 ) && ( mem [q + 3 ].cint != 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1364)) ;
> }
> {
> helpptr = 4 ;
> helpline [3 ]= 1365 ;
> helpline [2 ]= 1366 ;
> helpline [1 ]= 1367 ;
> helpline [0 ]= 1319 ;
> }
> error () ;
> r = znewspec((halfword) (q)) ;
> mem [r ].hh.u.B1 = 0 ;
> zdeleteglueref((halfword) (q)) ;
> mem [p + 1 ].hh .v.LH = r ;
> q = r ;
> }
> }
> activewidth [1 ]= activewidth [1 ]+ prevdp + mem [q + 1 ].cint ;
> prevdp = 0 ;
> lab45: if ( prevdp > d )
> {
> activewidth [1 ]= activewidth [1 ]+ prevdp - d ;
> prevdp = d ;
> }
> prevp = p ;
> p = mem [prevp ].hh .v.RH ;
> }
> lab30: Result = bestplace ;
> return Result ;
>}
>halfword
>zvsplit ( halfword n , scaled h )
>{
> register halfword Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword v ;
> halfword p ;
> halfword q ;
> curval = n ;
> if ( curval < 256 )
> v = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> v = -268435455L ;
> else v = mem [curptr + 1 ].hh .v.RH ;
> }
> zflushnodelist((halfword) (discptr [3 ])) ;
> discptr [3 ]= -268435455L ;
> if ( saroot [6 ]!= -268435455L ) {
>
> if ( zdomarks((smallnumber) (0), (smallnumber) (0), (halfword) (saroot [6 ])) )
> saroot [6 ]= -268435455L ;
> }
> if ( curmark [3 ]!= -268435455L )
> {
> zdeletetokenref((halfword) (curmark [3 ])) ;
> curmark [3 ]= -268435455L ;
> zdeletetokenref((halfword) (curmark [4 ])) ;
> curmark [4 ]= -268435455L ;
> }
> if ( v == -268435455L )
> {
> Result = -268435455L ;
> return Result ;
> }
> if ( mem [v ].hh.u.B0 != 1 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (345)) ;
> }
> zprintesc((strnumber) (1368)) ;
> zprint((integer) (1369)) ;
> zprintesc((strnumber) (1370)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1371 ;
> helpline [0 ]= 1372 ;
> }
> error () ;
> Result = -268435455L ;
> return Result ;
> }
> q = zvertbreak((halfword) (mem [v + 5 ].hh .v.RH), (scaled) (h), (scaled) (eqtb [27798 ].cint)) ;
> p = mem [v + 5 ].hh .v.RH ;
> if ( p == q )
> mem [v + 5 ].hh .v.RH = -268435455L ;
> else while ( 1 ) {
>
> if ( mem [p ].hh.u.B0 == 4 ) {
>
> if ( mem [p + 1 ].hh .v.LH != 0 )
> {
> zfindsaelement((smallnumber) (6), (halfword) (mem [p + 1 ].hh .v.LH), (boolean) (1)) ;
> if ( mem [curptr + 2 ].hh .v.RH == -268435455L )
> {
> mem [curptr + 2 ].hh .v.RH = mem [p + 1 ].hh .v.RH ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> }
> else zdeletetokenref((halfword) (mem [curptr + 3 ].hh .v.LH)) ;
> mem [curptr + 3 ].hh .v.LH = mem [p + 1 ].hh .v.RH ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> }
> else if ( curmark [3 ]== -268435455L )
> {
> curmark [3 ]= mem [p + 1 ].hh .v.RH ;
> curmark [4 ]= curmark [3 ];
> mem [curmark [3 ]].hh .v.LH = mem [curmark [3 ]].hh .v.LH + 2
> ;
> }
> else {
>
> zdeletetokenref((halfword) (curmark [4 ])) ;
> curmark [4 ]= mem [p + 1 ].hh .v.RH ;
> ++(mem [curmark [4 ]].hh .v.LH) ;
> }
> }
> if ( mem [p ].hh .v.RH == q )
> {
> mem [p ].hh .v.RH = -268435455L ;
> goto lab30 ;
> }
> p = mem [p ].hh .v.RH ;
> }
> lab30: ;
> q = zprunepagetop((halfword) (q), (boolean) (eqtb [27276 ].cint > 0)) ;
> p = mem [v + 5 ].hh .v.RH ;
> zfreenode((halfword) (v), (halfword) (9)) ;
> if ( q != -268435455L )
> q = zvpackage((halfword) (q), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L)) ;
> if ( curval < 256 )
> eqtb [25333 + curval ].hh .v.RH = q ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr != -268435455L )
> {
> mem [curptr + 1 ].hh .v.RH = q ;
> ++(mem [curptr + 1 ].hh .v.LH) ;
> zdeletesaref((halfword) (curptr)) ;
> }
> }
> Result = zvpackage((halfword) (p), (scaled) (h), (smallnumber) (0), (scaled) (eqtb [27798 ].cint)) ;
> return Result ;
>}
>void
>printtotals ( void )
>{
> 
> zprintscaled((scaled) (pagesofar [1 ])) ;
> if ( pagesofar [2 ]!= 0 )
> {
> zprint((integer) (317)) ;
> zprintscaled((scaled) (pagesofar [2 ])) ;
> zprint((integer) (345)) ;
> }
> if ( pagesofar [3 ]!= 0 )
> {
> zprint((integer) (317)) ;
> zprintscaled((scaled) (pagesofar [3 ])) ;
> zprint((integer) (316)) ;
> }
> if ( pagesofar [4 ]!= 0 )
> {
> zprint((integer) (317)) ;
> zprintscaled((scaled) (pagesofar [4 ])) ;
> zprint((integer) (1381)) ;
> }
> if ( pagesofar [5 ]!= 0 )
> {
> zprint((integer) (317)) ;
> zprintscaled((scaled) (pagesofar [5 ])) ;
> zprint((integer) (1382)) ;
> }
> if ( pagesofar [6 ]!= 0 )
> {
> zprint((integer) (318)) ;
> zprintscaled((scaled) (pagesofar [6 ])) ;
> }
>}
>void
>zfreezepagespecs ( smallnumber s )
>{
> register memoryword *eqtb=zeqtb;
> pagecontents = s ;
> pagesofar [0 ]= eqtb [27796 ].cint ;
> pagemaxdepth = eqtb [27797 ].cint ;
> pagesofar [7 ]= 0 ;
> pagesofar [1 ]= 0 ;
> pagesofar [2 ]= 0 ;
> pagesofar [3 ]= 0 ;
> pagesofar [4 ]= 0 ;
> pagesofar [5 ]= 0 ;
> pagesofar [6 ]= 0 ;
> leastpagecost = 1073741823L ;
> ;
>
> if ( eqtb [27210 ].cint > 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (1390)) ;
> zprintscaled((scaled) (pagesofar [0 ])) ;
> zprint((integer) (1391)) ;
> zprintscaled((scaled) (pagemaxdepth)) ;
> zenddiagnostic((boolean) (0)) ;
> }
>
>}
>void
>zboxerror ( eightbits n )
>{
> register memoryword *eqtb=zeqtb;
> error () ;
> begindiagnostic () ;
> zprintnl((strnumber) (993)) ;
> zshowbox((halfword) (eqtb [25333 + n ].hh .v.RH)) ;
> zenddiagnostic((boolean) (1)) ;
> zflushnodelist((halfword) (eqtb [25333 + n ].hh .v.RH)) ;
> eqtb [25333 + n ].hh .v.RH = -268435455L ;
>}
>void
>zensurevbox ( eightbits n )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> p = eqtb [25333 + n ].hh .v.RH ;
> if ( p != -268435455L ) {
>
> if ( mem [p ].hh.u.B0 == 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1392)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1393 ;
> helpline [1 ]= 1394 ;
> helpline [0 ]= 1395 ;
> }
> zboxerror((eightbits) (n)) ;
> }
> }
>}
>void
>zfireup ( halfword c )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, q, r, s ;
> halfword prevp ;
> unsigned char n ;
> boolean wait ;
> integer savevbadness ;
> scaled savevfuzz ;
> halfword savesplittopskip ;
> if ( mem [bestpagebreak ].hh.u.B0 == 12 )
> {
> zgeqworddefine((halfword) (27216), (integer) (mem [bestpagebreak + 1 ].cint)) ;
> mem [bestpagebreak + 1 ].cint = 10000 ;
> }
> else zgeqworddefine((halfword) (27216), (integer) (10000)) ;
> if ( saroot [6 ]!= -268435455L ) {
>
> if ( zdomarks((smallnumber) (1), (smallnumber) (0), (halfword) (saroot [6 ])) )
> saroot [6 ]= -268435455L ;
> }
> if ( curmark [2 ]!= -268435455L )
> {
> if ( curmark [0 ]!= -268435455L )
> zdeletetokenref((halfword) (curmark [0 ])) ;
> curmark [0 ]= curmark [2 ];
> ++(mem [curmark [0 ]].hh .v.LH) ;
> zdeletetokenref((halfword) (curmark [1 ])) ;
> curmark [1 ]= -268435455L ;
> }
> if ( c == bestpagebreak )
> bestpagebreak = -268435455L ;
> if ( eqtb [25588 ].hh .v.RH != -268435455L )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (345)) ;
> }
> zprintesc((strnumber) (429)) ;
> zprint((integer) (1405)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1406 ;
> helpline [0 ]= 1395 ;
> }
> zboxerror((eightbits) (255)) ;
> }
> insertpenalties = 0 ;
> savesplittopskip = eqtb [24538 ].hh .v.RH ;
> if ( eqtb [27230 ].cint <= 0 )
> {
> r = mem [memtop ].hh .v.RH ;
> while ( r != memtop ) {
>
> if ( mem [r + 2 ].hh .v.LH != -268435455L )
> {
> n = mem [r ].hh.u.B1 ;
> zensurevbox((eightbits) (n)) ;
> if ( eqtb [25333 + n ].hh .v.RH == -268435455L )
> eqtb [25333 + n ].hh .v.RH = newnullbox () ;
> p = eqtb [25333 + n ].hh .v.RH + 5 ;
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH ;
> mem [r + 2 ].hh .v.RH = p ;
> }
> r = mem [r ].hh .v.RH ;
> }
> }
> q = memtop - 4 ;
> mem [q ].hh .v.RH = -268435455L ;
> prevp = memtop - 2 ;
> p = mem [prevp ].hh .v.RH ;
> while ( p != bestpagebreak ) {
>
> if ( mem [p ].hh.u.B0 == 3 )
> {
> if ( eqtb [27230 ].cint <= 0 )
> {
> r = mem [memtop ].hh .v.RH ;
> while ( mem [r ].hh.u.B1 != mem [p ].hh.u.B1 ) r = mem [r ].hh .v.RH
> ;
> if ( mem [r + 2 ].hh .v.LH == -268435455L )
> wait = 1 ;
> else {
>
> wait = 0 ;
> s = mem [r + 2 ].hh .v.RH ;
> mem [s ].hh .v.RH = mem [p + 4 ].hh .v.LH ;
> if ( mem [r + 2 ].hh .v.LH == p )
> {
> if ( mem [r ].hh.u.B0 == 1 ) {
>
> if ( ( mem [r + 1 ].hh .v.LH == p ) && ( mem [r + 1 ].hh
> .v.RH != -268435455L ) )
> {
> while ( mem [s ].hh .v.RH != mem [r + 1 ].hh .v.RH ) s =
> mem [s ].hh .v.RH ;
> mem [s ].hh .v.RH = -268435455L ;
> eqtb [24538 ].hh .v.RH = mem [p + 4 ].hh .v.RH ;
> mem [p + 4 ].hh .v.LH = zprunepagetop((halfword) (mem [r + 1 ].hh .v.RH), (boolean) (0))
> ;
> if ( mem [p + 4 ].hh .v.LH != -268435455L )
> {
> tempptr = zvpackage((halfword) (mem [p + 4 ].hh .v.LH), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L))
> ;
> mem [p + 3 ].cint = mem [tempptr + 3 ].cint + mem [
> tempptr + 2 ].cint ;
> zfreenode((halfword) (tempptr), (halfword) (9)) ;
> wait = 1 ;
> }
> }
> }
> mem [r + 2 ].hh .v.LH = -268435455L ;
> n = mem [r ].hh.u.B1 ;
> tempptr = mem [eqtb [25333 + n ].hh .v.RH + 5 ].hh .v.RH ;
> zfreenode((halfword) (eqtb [25333 + n ].hh .v.RH), (halfword) (9)) ;
> eqtb [25333 + n ].hh .v.RH = zvpackage((halfword) (tempptr), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L))
> ;
> }
> else {
>
> while ( mem [s ].hh .v.RH != -268435455L ) s = mem [s ].hh
> .v.RH ;
> mem [r + 2 ].hh .v.RH = s ;
> }
> }
> mem [prevp ].hh .v.RH = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> if ( wait )
> {
> mem [q ].hh .v.RH = p ;
> q = p ;
> ++(insertpenalties) ;
> }
> else {
>
> zdeleteglueref((halfword) (mem [p + 4 ].hh .v.RH)) ;
> zfreenode((halfword) (p), (halfword) (5)) ;
> }
> p = prevp ;
> }
> }
> else if ( mem [p ].hh.u.B0 == 4 ) {
>
> if ( mem [p + 1 ].hh .v.LH != 0 )
> {
> zfindsaelement((smallnumber) (6), (halfword) (mem [p + 1 ].hh .v.LH), (boolean) (1)) ;
> if ( mem [curptr + 1 ].hh .v.RH == -268435455L )
> {
> mem [curptr + 1 ].hh .v.RH = mem [p + 1 ].hh .v.RH ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> }
> if ( mem [curptr + 2 ].hh .v.LH != -268435455L )
> zdeletetokenref((halfword) (mem [curptr + 2 ].hh .v.LH)) ;
> mem [curptr + 2 ].hh .v.LH = mem [p + 1 ].hh .v.RH ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> }
> else {
>
> if ( curmark [1 ]== -268435455L )
> {
> curmark [1 ]= mem [p + 1 ].hh .v.RH ;
> ++(mem [curmark [1 ]].hh .v.LH) ;
> }
> if ( curmark [2 ]!= -268435455L )
> zdeletetokenref((halfword) (curmark [2 ])) ;
> curmark [2 ]= mem [p + 1 ].hh .v.RH ;
> ++(mem [curmark [2 ]].hh .v.LH) ;
> }
> }
> prevp = p ;
> p = mem [prevp ].hh .v.RH ;
> }
> eqtb [24538 ].hh .v.RH = savesplittopskip ;
> if ( p != -268435455L )
> {
> if ( mem [memtop - 1 ].hh .v.RH == -268435455L ) {
>
> if ( nestptr == 0 )
> curlist .tailfield = pagetail ;
> else nest [0 ].tailfield = pagetail ;
> }
> mem [pagetail ].hh .v.RH = mem [memtop - 1 ].hh .v.RH ;
> mem [memtop - 1 ].hh .v.RH = p ;
> mem [prevp ].hh .v.RH = -268435455L ;
> }
> savevbadness = eqtb [27204 ].cint ;
> eqtb [27204 ].cint = 10000 ;
> savevfuzz = eqtb [27801 ].cint ;
> eqtb [27801 ].cint = 1073741823L ;
> eqtb [25588 ].hh .v.RH = zvpackage((halfword) (mem [memtop - 2 ].hh .v.RH), (scaled) (bestsize), (smallnumber) (0), (scaled) (pagemaxdepth))
> ;
> eqtb [27204 ].cint = savevbadness ;
> eqtb [27801 ].cint = savevfuzz ;
> if ( lastglue != 268435455L )
> zdeleteglueref((halfword) (lastglue)) ;
> pagecontents = 0 ;
> pagetail = memtop - 2 ;
> mem [memtop - 2 ].hh .v.RH = -268435455L ;
> lastglue = 268435455L ;
> lastpenalty = 0 ;
> lastkern = 0 ;
> lastnodetype = -1 ;
> pagesofar [7 ]= 0 ;
> pagemaxdepth = 0 ;
> if ( q != memtop - 4 )
> {
> mem [memtop - 2 ].hh .v.RH = mem [memtop - 4 ].hh .v.RH ;
> pagetail = q ;
> }
> r = mem [memtop ].hh .v.RH ;
> while ( r != memtop ) {
>
> q = mem [r ].hh .v.RH ;
> zfreenode((halfword) (r), (halfword) (4)) ;
> r = q ;
> }
> mem [memtop ].hh .v.RH = memtop ;
> if ( saroot [6 ]!= -268435455L ) {
>
> if ( zdomarks((smallnumber) (2), (smallnumber) (0), (halfword) (saroot [6 ])) )
> saroot [6 ]= -268435455L ;
> }
> if ( ( curmark [0 ]!= -268435455L ) && ( curmark [1 ]== -268435455L ) )
> {
> curmark [1 ]= curmark [0 ];
> ++(mem [curmark [0 ]].hh .v.LH) ;
> }
> if ( eqtb [25059 ].hh .v.RH != -268435455L ) {
>
> if ( deadcycles >= eqtb [27217 ].cint )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1407)) ;
> }
> zprintint((longinteger) (deadcycles)) ;
> zprint((integer) (1408)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1409 ;
> helpline [1 ]= 1410 ;
> helpline [0 ]= 1411 ;
> }
> error () ;
> }
> else {
>
> outputactive = 1 ;
> ++(deadcycles) ;
> pushnest () ;
> curlist .modefield = -1 ;
> curlist .auxfield .cint = eqtb [27824 ].cint ;
> curlist .mlfield = - (integer) line ;
> zbegintokenlist((halfword) (eqtb [25059 ].hh .v.RH), (quarterword) (6)) ;
> znewsavelevel((groupcode) (8)) ;
> normalparagraph () ;
> scanleftbrace () ;
> return ;
> }
> }
> {
> if ( mem [memtop - 2 ].hh .v.RH != -268435455L )
> {
> if ( mem [memtop - 1 ].hh .v.RH == -268435455L ) {
>
> if ( nestptr == 0 )
> curlist .tailfield = pagetail ;
> else nest [0 ].tailfield = pagetail ;
> }
> else mem [pagetail ].hh .v.RH = mem [memtop - 1 ].hh .v.RH ;
> mem [memtop - 1 ].hh .v.RH = mem [memtop - 2 ].hh .v.RH ;
> mem [memtop - 2 ].hh .v.RH = -268435455L ;
> pagetail = memtop - 2 ;
> }
> zflushnodelist((halfword) (discptr [2 ])) ;
> discptr [2 ]= -268435455L ;
> zshipout((halfword) (eqtb [25588 ].hh .v.RH)) ;
> eqtb [25588 ].hh .v.RH = -268435455L ;
> }
>}
>void
>buildpage ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> halfword q, r ;
> integer b, c ;
> integer pi ;
> unsigned char n ;
> scaled delta, h, w ;
> if ( ( mem [memtop - 1 ].hh .v.RH == -268435455L ) || outputactive )
> return ;
> do {
> lab22: p = mem [memtop - 1 ].hh .v.RH ;
> if ( lastglue != 268435455L )
> zdeleteglueref((halfword) (lastglue)) ;
> lastpenalty = 0 ;
> lastkern = 0 ;
> lastnodetype = mem [p ].hh.u.B0 + 1 ;
> if ( mem [p ].hh.u.B0 == 10 )
> {
> lastglue = mem [p + 1 ].hh .v.LH ;
> ++(mem [lastglue ].hh .v.RH) ;
> }
> else {
>
> lastglue = 268435455L ;
> if ( mem [p ].hh.u.B0 == 12 )
> lastpenalty = mem [p + 1 ].cint ;
> else if ( mem [p ].hh.u.B0 == 11 )
> lastkern = mem [p + 1 ].cint ;
> }
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> if ( pagecontents < 2 )
> {
> if ( pagecontents == 0 )
> zfreezepagespecs((smallnumber) (2)) ;
> else pagecontents = 2 ;
> q = znewskipparam((smallnumber) (9)) ;
> if ( mem [tempptr + 1 ].cint > mem [p + 3 ].cint )
> mem [tempptr + 1 ].cint = mem [tempptr + 1 ].cint - mem [p + 3 ]
> .cint ;
> else mem [tempptr + 1 ].cint = 0 ;
> mem [q ].hh .v.RH = p ;
> mem [memtop - 1 ].hh .v.RH = q ;
> goto lab22 ;
> }
> else {
>
> pagesofar [1 ]= pagesofar [1 ]+ pagesofar [7 ]+ mem [p + 3 ]
> .cint ;
> pagesofar [7 ]= mem [p + 2 ].cint ;
> goto lab80 ;
> }
> break ;
> case 8 :
> if ( ( pagecontents < 2 ) && ( ( mem [p ].hh.u.B1 == 34 ) || ( mem [p ]
> .hh.u.B1 == 35 ) ) )
> {
> zprint((integer) (1360)) ;
> goto lab31 ;
> }
> else {
>
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> {
> pagesofar [1 ]= pagesofar [1 ]+ pagesofar [7 ]+ mem [p + 2 ]
> .cint ;
> pagesofar [7 ]= mem [p + 3 ].cint ;
> }
> goto lab80 ;
> }
> break ;
> case 10 :
> if ( pagecontents < 2 )
> goto lab31 ;
> else if ( ( mem [pagetail ].hh.u.B0 < 9 ) )
> pi = 0 ;
> else goto lab90 ;
> break ;
> case 11 :
> if ( pagecontents < 2 )
> goto lab31 ;
> else if ( mem [p ].hh .v.RH == -268435455L )
> return ;
> else if ( mem [mem [p ].hh .v.RH ].hh.u.B0 == 10 )
> pi = 0 ;
> else goto lab90 ;
> break ;
> case 12 :
> if ( pagecontents < 2 )
> goto lab31 ;
> else pi = mem [p + 1 ].cint ;
> break ;
> case 4 :
> goto lab80 ;
> break ;
> case 3 :
> {
> if ( pagecontents == 0 )
> zfreezepagespecs((smallnumber) (1)) ;
> n = mem [p ].hh.u.B1 ;
> r = memtop ;
> while ( n >= mem [mem [r ].hh .v.RH ].hh.u.B1 ) r = mem [r ].hh
> .v.RH ;
> n = n ;
> if ( mem [r ].hh.u.B1 != n )
> {
> q = zgetnode((integer) (4)) ;
> mem [q ].hh .v.RH = mem [r ].hh .v.RH ;
> mem [r ].hh .v.RH = q ;
> r = q ;
> mem [r ].hh.u.B1 = n ;
> mem [r ].hh.u.B0 = 0 ;
> zensurevbox((eightbits) (n)) ;
> if ( eqtb [25333 + n ].hh .v.RH == -268435455L )
> mem [r + 3 ].cint = 0 ;
> else mem [r + 3 ].cint = mem [eqtb [25333 + n ].hh .v.RH + 3 ]
> .cint + mem [eqtb [25333 + n ].hh .v.RH + 2 ].cint ;
> mem [r + 2 ].hh .v.LH = -268435455L ;
> q = eqtb [24546 + n ].hh .v.RH ;
> if ( eqtb [27280 + n ].cint == 1000 )
> h = mem [r + 3 ].cint ;
> else h = zxovern((scaled) (mem [r + 3 ].cint), (integer) (1000)) * eqtb [27280 + n ]
> .cint ;
> pagesofar [0 ]= pagesofar [0 ]- h - mem [q + 1 ].cint ;
> pagesofar [2 + mem [q ].hh.u.B0 ]= pagesofar [2 + mem [q ]
> .hh.u.B0 ]+ mem [q + 2 ].cint ;
> pagesofar [6 ]= pagesofar [6 ]+ mem [q + 3 ].cint ;
> if ( ( mem [q ].hh.u.B1 != 0 ) && ( mem [q + 3 ].cint != 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1400)) ;
> }
> zprintesc((strnumber) (412)) ;
> zprintint((longinteger) (n)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1401 ;
> helpline [1 ]= 1402 ;
> helpline [0 ]= 1319 ;
> }
> error () ;
> }
> }
> if ( mem [r ].hh.u.B0 == 1 )
> insertpenalties = insertpenalties + mem [p + 1 ].cint ;
> else {
>
> mem [r + 2 ].hh .v.RH = p ;
> delta = pagesofar [0 ]- pagesofar [1 ]- pagesofar [7 ]+
> pagesofar [6 ];
> if ( eqtb [27280 + n ].cint == 1000 )
> h = mem [p + 3 ].cint ;
> else h = zxovern((scaled) (mem [p + 3 ].cint), (integer) (1000)) * eqtb [27280 + n ]
> .cint ;
> if ( ( ( h <= 0 ) || ( h <= delta ) ) && ( mem [p + 3 ].cint + mem
> [r + 3 ].cint <= eqtb [27826 + n ].cint ) )
> {
> pagesofar [0 ]= pagesofar [0 ]- h ;
> mem [r + 3 ].cint = mem [r + 3 ].cint + mem [p + 3 ].cint ;
> }
> else {
>
> if ( eqtb [27280 + n ].cint <= 0 )
> w = 1073741823L ;
> else {
>
> w = pagesofar [0 ]- pagesofar [1 ]- pagesofar [7 ];
> if ( eqtb [27280 + n ].cint != 1000 )
> w = zxovern((scaled) (w), (integer) (eqtb [27280 + n ].cint)) * 1000 ;
> }
> if ( w > eqtb [27826 + n ].cint - mem [r + 3 ].cint )
> w = eqtb [27826 + n ].cint - mem [r + 3 ].cint ;
> q = zvertbreak((halfword) (mem [p + 4 ].hh .v.LH), (scaled) (w), (scaled) (mem [p + 2 ].cint))
> ;
> mem [r + 3 ].cint = mem [r + 3 ].cint + bestheightplusdepth ;
> ;
>
> if ( eqtb [27210 ].cint > 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (1403)) ;
> zprintint((longinteger) (n)) ;
> zprint((integer) (1404)) ;
> zprintscaled((scaled) (w)) ;
> zprintchar((ASCIIcode) (44)) ;
> zprintscaled((scaled) (bestheightplusdepth)) ;
> zprint((integer) (1332)) ;
> if ( q == -268435455L )
> zprintint((longinteger) (-10000)) ;
> else if ( mem [q ].hh.u.B0 == 12 )
> zprintint((longinteger) (mem [q + 1 ].cint)) ;
> else zprintchar((ASCIIcode) (48)) ;
> zenddiagnostic((boolean) (0)) ;
> }
>
> if ( eqtb [27280 + n ].cint != 1000 )
> bestheightplusdepth = zxovern((scaled) (bestheightplusdepth), (integer) (1000)) * eqtb
> [27280 + n ].cint ;
> pagesofar [0 ]= pagesofar [0 ]- bestheightplusdepth ;
> mem [r ].hh.u.B0 = 1 ;
> mem [r + 1 ].hh .v.RH = q ;
> mem [r + 1 ].hh .v.LH = p ;
> if ( q == -268435455L )
> insertpenalties = insertpenalties - 10000 ;
> else if ( mem [q ].hh.u.B0 == 12 )
> insertpenalties = insertpenalties + mem [q + 1 ].cint ;
> }
> }
> goto lab80 ;
> }
> break ;
> default:
> zconfusion((strnumber) (888)) ;
> break ;
> }
> if ( pi < 10000 )
> {
> if ( pagesofar [1 ]< pagesofar [0 ]) {
>
> if ( ( pagesofar [3 ]!= 0 ) || ( pagesofar [4 ]!= 0 ) || (
> pagesofar [5 ]!= 0 ) )
> b = 0 ;
> else b = zbadness((scaled) (pagesofar [0 ]- pagesofar [1 ]), (scaled) (pagesofar [2 ]))
> ;
> }
> else if ( pagesofar [1 ]- pagesofar [0 ]> pagesofar [6 ])
> b = 1073741823L ;
> else b = zbadness((scaled) (pagesofar [1 ]- pagesofar [0 ]), (scaled) (pagesofar [6 ]))
> ;
> if ( b < 1073741823L ) {
>
> if ( pi <= -10000 )
> c = pi ;
> else if ( b < 10000 )
> c = b + pi + insertpenalties ;
> else c = 100000L ;
> }
> else c = b ;
> if ( insertpenalties >= 10000 )
> c = 1073741823L ;
> ;
>
> if ( eqtb [27210 ].cint > 0 )
> {
> begindiagnostic () ;
> zprintnl((strnumber) (37)) ;
> zprint((integer) (1328)) ;
> printtotals () ;
> zprint((integer) (1398)) ;
> zprintscaled((scaled) (pagesofar [0 ])) ;
> zprint((integer) (1331)) ;
> if ( b == 1073741823L )
> zprintchar((ASCIIcode) (42)) ;
> else zprintint((longinteger) (b)) ;
> zprint((integer) (1332)) ;
> zprintint((longinteger) (pi)) ;
> zprint((integer) (1399)) ;
> if ( c == 1073741823L )
> zprintchar((ASCIIcode) (42)) ;
> else zprintint((longinteger) (c)) ;
> if ( c <= leastpagecost )
> zprintchar((ASCIIcode) (35)) ;
> zenddiagnostic((boolean) (0)) ;
> }
>
> if ( c <= leastpagecost )
> {
> bestpagebreak = p ;
> bestsize = pagesofar [0 ];
> leastpagecost = c ;
> r = mem [memtop ].hh .v.RH ;
> while ( r != memtop ) {
>
> mem [r + 2 ].hh .v.LH = mem [r + 2 ].hh .v.RH ;
> r = mem [r ].hh .v.RH ;
> }
> }
> if ( ( c == 1073741823L ) || ( pi <= -10000 ) )
> {
> zfireup((halfword) (p)) ;
> if ( outputactive )
> return ;
> goto lab30 ;
> }
> }
> if ( ( mem [p ].hh.u.B0 < 10 ) || ( mem [p ].hh.u.B0 > 11 ) )
> goto lab80 ;
> lab90: if ( mem [p ].hh.u.B0 == 11 )
> q = p ;
> else {
>
> q = mem [p + 1 ].hh .v.LH ;
> pagesofar [2 + mem [q ].hh.u.B0 ]= pagesofar [2 + mem [q ].hh.u.B0 ]
> + mem [q + 2 ].cint ;
> pagesofar [6 ]= pagesofar [6 ]+ mem [q + 3 ].cint ;
> if ( ( mem [q ].hh.u.B1 != 0 ) && ( mem [q + 3 ].cint != 0 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1396)) ;
> }
> {
> helpptr = 4 ;
> helpline [3 ]= 1397 ;
> helpline [2 ]= 1366 ;
> helpline [1 ]= 1367 ;
> helpline [0 ]= 1319 ;
> }
> error () ;
> r = znewspec((halfword) (q)) ;
> mem [r ].hh.u.B1 = 0 ;
> zdeleteglueref((halfword) (q)) ;
> mem [p + 1 ].hh .v.LH = r ;
> q = r ;
> }
> }
> pagesofar [1 ]= pagesofar [1 ]+ pagesofar [7 ]+ mem [q + 1 ].cint
> ;
> pagesofar [7 ]= 0 ;
> lab80: if ( pagesofar [7 ]> pagemaxdepth )
> {
> pagesofar [1 ]= pagesofar [1 ]+ pagesofar [7 ]- pagemaxdepth ;
> pagesofar [7 ]= pagemaxdepth ;
> }
> mem [pagetail ].hh .v.RH = p ;
> pagetail = p ;
> mem [memtop - 1 ].hh .v.RH = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> goto lab30 ;
> lab31: mem [memtop - 1 ].hh .v.RH = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> if ( eqtb [27276 ].cint > 0 )
> {
> if ( discptr [2 ]== -268435455L )
> discptr [2 ]= p ;
> else mem [discptr [1 ]].hh .v.RH = p ;
> discptr [1 ]= p ;
> }
> else zflushnodelist((halfword) (p)) ;
> lab30: ;
> } while ( ! ( mem [memtop - 1 ].hh .v.RH == -268435455L ) ) ;
> if ( nestptr == 0 )
> curlist .tailfield = memtop - 1 ;
> else nest [0 ].tailfield = memtop - 1 ;
>}
>void
>appspace ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword q ;
> if ( ( curlist .auxfield .hh .v.LH >= 2000 ) && ( eqtb [24541 ].hh .v.RH
> != membot ) )
> q = znewparamglue((smallnumber) (13)) ;
> else {
>
> if ( eqtb [24540 ].hh .v.RH != membot )
> mainp = eqtb [24540 ].hh .v.RH ;
> else {
>
> mainp = fontglue [eqtb [25589 ].hh .v.RH ];
> if ( mainp == -268435455L )
> {
> mainp = znewspec((halfword) (membot)) ;
> maink = parambase [eqtb [25589 ].hh .v.RH ]+ 2 ;
> mem [mainp + 1 ].cint = fontinfo [maink ].cint ;
> mem [mainp + 2 ].cint = fontinfo [maink + 1 ].cint ;
> mem [mainp + 3 ].cint = fontinfo [maink + 2 ].cint ;
> fontglue [eqtb [25589 ].hh .v.RH ]= mainp ;
> }
> }
> mainp = znewspec((halfword) (mainp)) ;
> if ( curlist .auxfield .hh .v.LH >= 2000 )
> mem [mainp + 1 ].cint = mem [mainp + 1 ].cint + fontinfo [7 +
> parambase [eqtb [25589 ].hh .v.RH ]].cint ;
> mem [mainp + 2 ].cint = zxnoverd((scaled) (mem [mainp + 2 ].cint), (integer) (curlist .auxfield .hh .v.LH), (integer) (1000))
> ;
> mem [mainp + 3 ].cint = zxnoverd((scaled) (mem [mainp + 3 ].cint), (integer) (1000), (integer) (curlist .auxfield .hh .v.LH))
> ;
> q = znewglue((halfword) (mainp)) ;
> mem [mainp ].hh .v.RH = -268435455L ;
> }
> mem [curlist .tailfield ].hh .v.RH = q ;
> curlist .tailfield = q ;
>}
>void
>insertdollarsign ( void )
>{
> 
> backinput () ;
> curtok = 804 ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1419)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1420 ;
> helpline [0 ]= 1421 ;
> }
> inserror () ;
>}
>void
>youcant ( void )
>{
> 
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (786)) ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> zprintinmode((integer) (curlist .modefield)) ;
>}
>void
>reportillegalcase ( void )
>{
> 
> youcant () ;
> {
> helpptr = 4 ;
> helpline [3 ]= 1422 ;
> helpline [2 ]= 1423 ;
> helpline [1 ]= 1424 ;
> helpline [0 ]= 1425 ;
> }
> error () ;
>}
>boolean
>privileged ( void )
>{
> register boolean Result;
> if ( curlist .modefield > 0 )
> Result = 1 ;
> else {
>
> reportillegalcase () ;
> Result = 0 ;
> }
> return Result ;
>}
>boolean
>itsallover ( void )
>{
> register boolean Result; register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( privileged () )
> {
> if ( ( memtop - 2 == pagetail ) && ( curlist .headfield == curlist
> .tailfield ) && ( deadcycles == 0 ) )
> {
> Result = 1 ;
> return Result ;
> }
> backinput () ;
> {
> mem [curlist .tailfield ].hh .v.RH = newnullbox () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield + 1 ].cint = eqtb [27795 ].cint ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewglue((halfword) (membot + 8)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (-1073741824L)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> buildpage () ;
> }
> Result = 0 ;
> return Result ;
>}
>void
>appendglue ( void )
>{
> register memoryword *mem=zmem;
> smallnumber s ;
> s = curchr ;
> switch ( s )
> {case 0 :
> curval = membot + 4 ;
> break ;
> case 1 :
> curval = membot + 8 ;
> break ;
> case 2 :
> curval = membot + 12 ;
> break ;
> case 3 :
> curval = membot + 16 ;
> break ;
> case 4 :
> zscanglue((smallnumber) (2)) ;
> break ;
> case 5 :
> zscanglue((smallnumber) (3)) ;
> break ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewglue((halfword) (curval)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( s >= 4 )
> {
> --(mem [curval ].hh .v.RH) ;
> if ( s > 4 )
> mem [curlist .tailfield ].hh.u.B1 = 99 ;
> }
>}
>void
>appendkern ( void )
>{
> register memoryword *mem=zmem;
> quarterword s ;
> s = curchr ;
> zscandimen((boolean) (s == 99), (boolean) (0), (boolean) (0)) ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewkern((scaled) (curval)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B1 = s ;
>}
>void
>offsave ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> if ( curgroup == 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1443 ;
> }
> error () ;
> }
> else {
>
> backinput () ;
> p = getavail () ;
> mem [memtop - 3 ].hh .v.RH = p ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (712)) ;
> }
> switch ( curgroup )
> {case 14 :
> {
> mem [p ].hh .v.LH = 19611 ;
> zprintesc((strnumber) (590)) ;
> }
> break ;
> case 15 :
> {
> mem [p ].hh .v.LH = 804 ;
> zprintchar((ASCIIcode) (36)) ;
> }
> break ;
> case 16 :
> {
> mem [p ].hh .v.LH = 19612 ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = 3118 ;
> zprintesc((strnumber) (1442)) ;
> }
> break ;
> default:
> {
> mem [p ].hh .v.LH = 637 ;
> zprintchar((ASCIIcode) (125)) ;
> }
> break ;
> }
> zprint((integer) (713)) ;
> zbegintokenlist((halfword) (mem [memtop - 3 ].hh .v.RH), (quarterword) (4)) ;
> {
> helpptr = 5 ;
> helpline [4 ]= 1437 ;
> helpline [3 ]= 1438 ;
> helpline [2 ]= 1439 ;
> helpline [1 ]= 1440 ;
> helpline [0 ]= 1441 ;
> }
> error () ;
> }
>}
>void
>extrarightbrace ( void )
>{
> 
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1448)) ;
> }
> switch ( curgroup )
> {case 14 :
> zprintesc((strnumber) (590)) ;
> break ;
> case 15 :
> zprintchar((ASCIIcode) (36)) ;
> break ;
> case 16 :
> zprintesc((strnumber) (1273)) ;
> break ;
> }
> {
> helpptr = 5 ;
> helpline [4 ]= 1449 ;
> helpline [3 ]= 1450 ;
> helpline [2 ]= 1451 ;
> helpline [1 ]= 1452 ;
> helpline [0 ]= 1453 ;
> }
> error () ;
> ++(alignstate) ;
>}
>void
>normalparagraph ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( eqtb [27196 ].cint != 0 )
> zeqworddefine((halfword) (27196), (integer) (0)) ;
> if ( eqtb [27809 ].cint != 0 )
> zeqworddefine((halfword) (27809), (integer) (0)) ;
> if ( eqtb [27218 ].cint != 1 )
> zeqworddefine((halfword) (27218), (integer) (1)) ;
> if ( eqtb [25058 ].hh .v.RH != -268435455L )
> zeqdefine((halfword) (25058), (quarterword) (120), (halfword) (-268435455L)) ;
> if ( eqtb [25329 ].hh .v.RH != -268435455L )
> zeqdefine((halfword) (25329), (quarterword) (120), (halfword) (-268435455L)) ;
>}
>void
>zboxend ( integer boxcontext )
>{
> register memoryword *mem=zmem;
> halfword p ;
> smallnumber a ;
> if ( boxcontext < 1073741824L )
> {
> if ( curbox != -268435455L )
> {
> mem [curbox + 4 ].cint = boxcontext ;
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 )
> {
> if ( preadjusttail != -268435455L )
> {
> if ( memtop - 14 != preadjusttail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 14 ].hh
> .v.RH ;
> curlist .tailfield = preadjusttail ;
> }
> preadjusttail = -268435455L ;
> }
> zappendtovlist((halfword) (curbox)) ;
> if ( adjusttail != -268435455L )
> {
> if ( memtop - 5 != adjusttail )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 5 ].hh
> .v.RH ;
> curlist .tailfield = adjusttail ;
> }
> adjusttail = -268435455L ;
> }
> if ( curlist .modefield > 0 )
> buildpage () ;
> }
> else {
>
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 104 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else {
>
> p = newnoad () ;
> mem [p + 1 ].hh .v.RH = 2 ;
> mem [p + 1 ].hh .v.LH = curbox ;
> curbox = p ;
> }
> mem [curlist .tailfield ].hh .v.RH = curbox ;
> curlist .tailfield = curbox ;
> }
> }
> }
> else if ( boxcontext < 1073807360L )
> {
> if ( boxcontext < 1073774592L )
> {
> curval = boxcontext - 1073741824L ;
> a = 0 ;
> }
> else {
>
> curval = boxcontext - 1073774592L ;
> a = 4 ;
> }
> if ( curval < 256 ) {
>
> if ( ( a >= 4 ) )
> zgeqdefine((halfword) (25333 + curval), (quarterword) (121), (halfword) (curbox)) ;
> else zeqdefine((halfword) (25333 + curval), (quarterword) (121), (halfword) (curbox)) ;
> }
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (1)) ;
> if ( ( a >= 4 ) )
> zgsadef((halfword) (curptr), (halfword) (curbox)) ;
> else zsadef((halfword) (curptr), (halfword) (curbox)) ;
> }
> }
> else if ( curbox != -268435455L ) {
>
> if ( boxcontext > 1073807360L )
> {
> do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> if ( ( ( curcmd == 26 ) && ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) != 1 ) ) || ( (
> curcmd == 27 ) && ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 ) ) )
> {
> appendglue () ;
> mem [curlist .tailfield ].hh.u.B1 = boxcontext - ( 1073807261L ) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = curbox ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1466)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1467 ;
> helpline [1 ]= 1468 ;
> helpline [0 ]= 1469 ;
> }
> backerror () ;
> zflushnodelist((halfword) (curbox)) ;
> }
> }
> else zshipout((halfword) (curbox)) ;
> }
>}
>void
>zbeginbox ( integer boxcontext )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, q ;
> halfword r ;
> boolean fm ;
> halfword tx ;
> quarterword m ;
> halfword k ;
> halfword n ;
> switch ( curchr )
> {case 0 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> curbox = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> curbox = -268435455L ;
> else curbox = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( curval < 256 )
> eqtb [25333 + curval ].hh .v.RH = -268435455L ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr != -268435455L )
> {
> mem [curptr + 1 ].hh .v.RH = -268435455L ;
> ++(mem [curptr + 1 ].hh .v.LH) ;
> zdeletesaref((halfword) (curptr)) ;
> }
> }
> }
> break ;
> case 1 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> q = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> q = -268435455L ;
> else q = mem [curptr + 1 ].hh .v.RH ;
> }
> curbox = zcopynodelist((halfword) (q)) ;
> }
> break ;
> case 2 :
> {
> curbox = -268435455L ;
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 207 )
> {
> youcant () ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1471 ;
> }
> error () ;
> }
> else if ( ( curlist .modefield == 1 ) && ( curlist .headfield == curlist
> .tailfield ) )
> {
> youcant () ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1472 ;
> helpline [0 ]= 1473 ;
> }
> error () ;
> }
> else {
>
> tx = curlist .tailfield ;
> if ( ! ( tx >= himemmin ) ) {
>
> if ( ( mem [tx ].hh.u.B0 == 9 ) && ( mem [tx ].hh.u.B1 == 3 ) )
> {
> r = curlist .headfield ;
> do {
> q = r ;
> r = mem [q ].hh .v.RH ;
> } while ( ! ( r == tx ) ) ;
> tx = q ;
> }
> }
> if ( ! ( tx >= himemmin ) ) {
>
> if ( ( mem [tx ].hh.u.B0 == 0 ) || ( mem [tx ].hh.u.B0 == 1 ) )
> {
> q = curlist .headfield ;
> p = -268435455L ;
> do {
> r = p ;
> p = q ;
> fm = 0 ;
> if ( ! ( q >= himemmin ) ) {
>
> if ( mem [q ].hh.u.B0 == 7 )
> {
> {register integer for_end; m = 1 ;for_end = mem [q ]
> .hh.u.B1 ; if ( m <= for_end) do
> p = mem [p ].hh .v.RH ;
> while ( m++ < for_end ) ;}
> if ( p == tx )
> goto lab30 ;
> }
> else if ( ( mem [q ].hh.u.B0 == 9 ) && ( mem [q ].hh.u.B1 == 2
> ) )
> fm = 1 ;
> }
> q = mem [p ].hh .v.RH ;
> } while ( ! ( q == tx ) ) ;
> q = mem [tx ].hh .v.RH ;
> mem [p ].hh .v.RH = q ;
> mem [tx ].hh .v.RH = -268435455L ;
> if ( q == -268435455L ) {
>
> if ( fm )
> zconfusion((strnumber) (1470)) ;
> else curlist .tailfield = p ;
> }
> else if ( fm )
> {
> curlist .tailfield = r ;
> mem [r ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (p)) ;
> }
> curbox = tx ;
> mem [curbox + 4 ].cint = 0 ;
> }
> }
> lab30: ;
> }
> }
> break ;
> case 3 :
> {
> scanregisternum () ;
> n = curval ;
> if ( ! zscankeyword((strnumber) (1232)) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1474)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1475 ;
> helpline [0 ]= 1476 ;
> }
> error () ;
> }
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> curbox = zvsplit((halfword) (n), (scaled) (curval)) ;
> }
> break ;
> default:
> {
> k = curchr - 4 ;
> savestack [saveptr + 0 ].cint = boxcontext ;
> if ( k == 104 ) {
>
> if ( ( boxcontext < 1073741824L ) && ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1
> ) )
> zscanspec((groupcode) (3), (boolean) (1)) ;
> else zscanspec((groupcode) (2), (boolean) (1)) ;
> }
> else {
>
> if ( k == 1 )
> zscanspec((groupcode) (4), (boolean) (1)) ;
> else {
>
> zscanspec((groupcode) (5), (boolean) (1)) ;
> k = 1 ;
> }
> normalparagraph () ;
> }
> pushnest () ;
> curlist .modefield = - (integer) k ;
> if ( k == 1 )
> {
> curlist .auxfield .cint = eqtb [27824 ].cint ;
> if ( eqtb [25064 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25064 ].hh .v.RH), (quarterword) (11)) ;
> }
> else {
>
> curlist .auxfield .hh .v.LH = 1000 ;
> if ( eqtb [25063 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25063 ].hh .v.RH), (quarterword) (10)) ;
> }
> return ;
> }
> break ;
> }
> zboxend((integer) (boxcontext)) ;
>}
>void
>zscanbox ( integer boxcontext )
>{
> 
> do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> if ( curcmd == 20 )
> zbeginbox((integer) (boxcontext)) ;
> else if ( ( boxcontext >= 1073807361L ) && ( ( curcmd == 36 ) || ( curcmd ==
> 35 ) ) )
> {
> curbox = scanrulespec () ;
> zboxend((integer) (boxcontext)) ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1477)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1478 ;
> helpline [1 ]= 1479 ;
> helpline [0 ]= 1480 ;
> }
> backerror () ;
> }
>}
>void
>zpackage ( smallnumber c )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled h ;
> halfword p ;
> scaled d ;
> d = eqtb [27799 ].cint ;
> unsave () ;
> saveptr = saveptr - 3 ;
> if ( curlist .modefield == -104 )
> curbox = zhpack((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (savestack [saveptr + 2 ].cint), (smallnumber) (savestack [saveptr + 1 ].cint))
> ;
> else {
>
> curbox = zvpackage((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (savestack [ saveptr + 2 ].cint), (smallnumber) (savestack [saveptr + 1 ].cint), (scaled) (d))
> ;
> if ( c == 4 )
> {
> h = 0 ;
> p = mem [curbox + 5 ].hh .v.RH ;
> if ( p != -268435455L ) {
>
> if ( mem [p ].hh.u.B0 <= 2 )
> h = mem [p + 3 ].cint ;
> }
> mem [curbox + 2 ].cint = mem [curbox + 2 ].cint - h + mem [curbox +
> 3 ].cint ;
> mem [curbox + 3 ].cint = h ;
> }
> }
> popnest () ;
> zboxend((integer) (savestack [saveptr + 0 ].cint)) ;
>}
>smallnumber
>znormmin ( integer h )
>{
> register smallnumber Result;
> if ( h <= 0 )
> Result = 1 ;
> else if ( h >= 63 )
> Result = 63 ;
> else Result = h ;
> return Result ;
>}
>void
>znewgraf ( boolean indented )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> curlist .pgfield = 0 ;
> if ( ( curlist .modefield == 1 ) || ( curlist .headfield != curlist
> .tailfield ) )
> {
> mem [curlist .tailfield ].hh .v.RH = znewparamglue((smallnumber) (2)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> pushnest () ;
> curlist .modefield = 104 ;
> curlist .auxfield .hh .v.LH = 1000 ;
> if ( eqtb [27227 ].cint <= 0 )
> curlang = 0 ;
> else if ( eqtb [27227 ].cint > 255 )
> curlang = 0 ;
> else curlang = eqtb [27227 ].cint ;
> curlist .auxfield .hh .v.RH = curlang ;
> curlist .pgfield = ( znormmin((integer) (eqtb [27228 ].cint)) * 64 + znormmin((integer) (eqtb [27229 ].cint))
> ) * 65536L + curlang ;
> if ( indented )
> {
> curlist .tailfield = newnullbox () ;
> mem [curlist .headfield ].hh .v.RH = curlist .tailfield ;
> mem [curlist .tailfield + 1 ].cint = eqtb [27792 ].cint ;
> if ( ( insertsrcspecialeverypar ) )
> insertsrcspecial () ;
> }
> if ( eqtb [25060 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25060 ].hh .v.RH), (quarterword) (7)) ;
> if ( nestptr == 1 )
> buildpage () ;
>}
>void
>indentinhmode ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, q ;
> if ( curchr > 0 )
> {
> p = newnullbox () ;
> mem [p + 1 ].cint = eqtb [27792 ].cint ;
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 104 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else {
>
> q = newnoad () ;
> mem [q + 1 ].hh .v.RH = 2 ;
> mem [q + 1 ].hh .v.LH = p ;
> p = q ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
>}
>void
>headforvmode ( void )
>{
> 
> if ( curlist .modefield < 0 ) {
>
> if ( curcmd != 36 )
> offsave () ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (786)) ;
> }
> zprintesc((strnumber) (597)) ;
> zprint((integer) (1484)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1485 ;
> helpline [0 ]= 1486 ;
> }
> error () ;
> }
> }
> else {
>
> backinput () ;
> curtok = partoken ;
> backinput () ;
> curinput .indexfield = 4 ;
> }
>}
>void
>endgraf ( void )
>{
> 
> if ( curlist .modefield == 104 )
> {
> if ( curlist .headfield == curlist .tailfield )
> popnest () ;
> else zlinebreak((boolean) (0)) ;
> if ( curlist .eTeXauxfield != -268435455L )
> {
> zflushlist((halfword) (curlist .eTeXauxfield)) ;
> curlist .eTeXauxfield = -268435455L ;
> }
> normalparagraph () ;
> errorcount = 0 ;
> }
>}
>void
>begininsertoradjust ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( curcmd == 38 )
> curval = 255 ;
> else {
>
> scaneightbitint () ;
> if ( curval == 255 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1487)) ;
> }
> zprintesc((strnumber) (337)) ;
> zprintint((longinteger) (255)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1488 ;
> }
> error () ;
> curval = 0 ;
> }
> }
> savestack [saveptr + 0 ].cint = curval ;
> if ( ( curcmd == 38 ) && zscankeyword((strnumber) (1489)) )
> savestack [saveptr + 1 ].cint = 1 ;
> else savestack [saveptr + 1 ].cint = 0 ;
> saveptr = saveptr + 2 ;
> znewsavelevel((groupcode) (11)) ;
> scanleftbrace () ;
> normalparagraph () ;
> pushnest () ;
> curlist .modefield = -1 ;
> curlist .auxfield .cint = eqtb [27824 ].cint ;
>}
>void
>makemark ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> halfword c ;
> if ( curchr == 0 )
> c = 0 ;
> else {
>
> scanregisternum () ;
> c = curval ;
> }
> p = zscantoks((boolean) (0), (boolean) (1)) ;
> p = zgetnode((integer) (2)) ;
> mem [p + 1 ].hh .v.LH = c ;
> mem [p ].hh.u.B0 = 4 ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p + 1 ].hh .v.RH = defref ;
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
>}
>void
>appendpenalty ( void )
>{
> register memoryword *mem=zmem;
> scanint () ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (curval)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( curlist .modefield == 1 )
> buildpage () ;
>}
>void
>deletelast ( void )
>{
> register memoryword *mem=zmem;
> halfword p, q ;
> halfword r ;
> boolean fm ;
> halfword tx ;
> quarterword m ;
> if ( ( curlist .modefield == 1 ) && ( curlist .tailfield == curlist
> .headfield ) )
> {
> if ( ( curchr != 10 ) || ( lastglue != 268435455L ) )
> {
> youcant () ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1472 ;
> helpline [0 ]= 1490 ;
> }
> if ( curchr == 11 )
> helpline [0 ]= ( 1491 ) ;
> else if ( curchr != 10 )
> helpline [0 ]= ( 1492 ) ;
> error () ;
> }
> }
> else {
>
> tx = curlist .tailfield ;
> if ( ! ( tx >= himemmin ) ) {
>
> if ( ( mem [tx ].hh.u.B0 == 9 ) && ( mem [tx ].hh.u.B1 == 3 ) )
> {
> r = curlist .headfield ;
> do {
> q = r ;
> r = mem [q ].hh .v.RH ;
> } while ( ! ( r == tx ) ) ;
> tx = q ;
> }
> }
> if ( ! ( tx >= himemmin ) ) {
>
> if ( mem [tx ].hh.u.B0 == curchr )
> {
> q = curlist .headfield ;
> p = -268435455L ;
> do {
> r = p ;
> p = q ;
> fm = 0 ;
> if ( ! ( q >= himemmin ) ) {
>
> if ( mem [q ].hh.u.B0 == 7 )
> {
> {register integer for_end; m = 1 ;for_end = mem [q ].hh.u.B1
> ; if ( m <= for_end) do
> p = mem [p ].hh .v.RH ;
> while ( m++ < for_end ) ;}
> if ( p == tx )
> return ;
> }
> else if ( ( mem [q ].hh.u.B0 == 9 ) && ( mem [q ].hh.u.B1 == 2 ) )
> fm = 1 ;
> }
> q = mem [p ].hh .v.RH ;
> } while ( ! ( q == tx ) ) ;
> q = mem [tx ].hh .v.RH ;
> mem [p ].hh .v.RH = q ;
> mem [tx ].hh .v.RH = -268435455L ;
> if ( q == -268435455L ) {
>
> if ( fm )
> zconfusion((strnumber) (1470)) ;
> else curlist .tailfield = p ;
> }
> else if ( fm )
> {
> curlist .tailfield = r ;
> mem [r ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (p)) ;
> }
> zflushnodelist((halfword) (tx)) ;
> }
> }
> }
>}
>void
>unpackage ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> halfword r ;
> unsigned char c ;
> if ( curchr > 1 )
> {
> mem [curlist .tailfield ].hh .v.RH = discptr [curchr ];
> discptr [curchr ]= -268435455L ;
> goto lab30 ;
> }
> c = curchr ;
> scanregisternum () ;
> if ( curval < 256 )
> p = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> p = -268435455L ;
> else p = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( p == -268435455L )
> return ;
> if ( ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 207 ) || ( ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield))
> == 1 ) && ( mem [p ].hh.u.B0 != 1 ) ) || ( ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) ==
> 104 ) && ( mem [p ].hh.u.B0 != 0 ) ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1500)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1501 ;
> helpline [1 ]= 1502 ;
> helpline [0 ]= 1503 ;
> }
> error () ;
> return ;
> }
> if ( c == 1 )
> mem [curlist .tailfield ].hh .v.RH = zcopynodelist((halfword) (mem [p + 5 ].hh .v.RH))
> ;
> else {
>
> mem [curlist .tailfield ].hh .v.RH = mem [p + 5 ].hh .v.RH ;
> if ( curval < 256 )
> eqtb [25333 + curval ].hh .v.RH = -268435455L ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr != -268435455L )
> {
> mem [curptr + 1 ].hh .v.RH = -268435455L ;
> ++(mem [curptr + 1 ].hh .v.LH) ;
> zdeletesaref((halfword) (curptr)) ;
> }
> }
> zfreenode((halfword) (p), (halfword) (9)) ;
> }
> lab30: while ( mem [curlist .tailfield ].hh .v.RH != -268435455L ) {
>
> r = mem [curlist .tailfield ].hh .v.RH ;
> if ( ! ( r >= himemmin ) && ( mem [r ].hh.u.B0 == 40 ) )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [r ].hh .v.RH ;
> {
> mem [mem [r + 2 ].hh .v.LH ].hh .v.RH = avail ;
> avail = mem [r + 2 ].hh .v.LH ;
> ;
>
> --(dynused) ;
>
> }
> zfreenode((halfword) (r), (halfword) (3)) ;
> }
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
>}
>void
>appenditaliccorrection ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> internalfontnumber f ;
> if ( curlist .tailfield != curlist .headfield )
> {
> if ( ( curlist .tailfield >= himemmin ) )
> p = curlist .tailfield ;
> else if ( mem [curlist .tailfield ].hh.u.B0 == 6 )
> p = curlist .tailfield + 1 ;
> else return ;
> f = mem [p ].hh.u.B0 ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewkern((scaled) (fontinfo [italicbase [ f ]+ ( fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [p ] .hh.u.B1)) ].qqqq .u.B2 ) / 4 ].cint))
>
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B1 = 1 ;
> }
>}
>void
>appenddiscretionary ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer c ;
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( curchr == 1 )
> {
> c = hyphenchar [eqtb [25589 ].hh .v.RH ];
> if ( c >= 0 ) {
>
> if ( c < 256 )
> mem [curlist .tailfield + 1 ].hh .v.LH = znewcharacter((internalfontnumber) (eqtb [25589 ] .hh .v.RH), (eightbits) (c))
> ;
> }
> }
> else {
>
> ++(saveptr) ;
> savestack [saveptr - 1 ].cint = 0 ;
> znewsavelevel((groupcode) (10)) ;
> scanleftbrace () ;
> pushnest () ;
> curlist .modefield = -104 ;
> curlist .auxfield .hh .v.LH = 1000 ;
> }
>}
>void
>builddiscretionary ( void )
>{
> register memoryword *mem=zmem;
> halfword p, q ;
> integer n ;
> unsave () ;
> q = curlist .headfield ;
> p = mem [q ].hh .v.RH ;
> n = 0 ;
> while ( p != -268435455L ) {
>
> if ( ! ( p >= himemmin ) ) {
>
> if ( mem [p ].hh.u.B0 > 2 ) {
>
> if ( mem [p ].hh.u.B0 != 11 ) {
>
> if ( mem [p ].hh.u.B0 != 6 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1510)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 1511 ;
> }
> error () ;
> begindiagnostic () ;
> zprintnl((strnumber) (1512)) ;
> zshowbox((halfword) (p)) ;
> zenddiagnostic((boolean) (1)) ;
> zflushnodelist((halfword) (p)) ;
> mem [q ].hh .v.RH = -268435455L ;
> goto lab30 ;
> }
> }
> }
> }
> q = p ;
> p = mem [q ].hh .v.RH ;
> ++(n) ;
> }
> lab30: ;
> p = mem [curlist .headfield ].hh .v.RH ;
> popnest () ;
> switch ( savestack [saveptr - 1 ].cint )
> {case 0 :
> mem [curlist .tailfield + 1 ].hh .v.LH = p ;
> break ;
> case 1 :
> mem [curlist .tailfield + 1 ].hh .v.RH = p ;
> break ;
> case 2 :
> {
> if ( ( n > 0 ) && ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 207 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1504)) ;
> }
> zprintesc((strnumber) (357)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1505 ;
> helpline [0 ]= 1506 ;
> }
> zflushnodelist((halfword) (p)) ;
> n = 0 ;
> error () ;
> }
> else mem [curlist .tailfield ].hh .v.RH = p ;
> if ( n <= 255 )
> mem [curlist .tailfield ].hh.u.B1 = n ;
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1507)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1508 ;
> helpline [0 ]= 1509 ;
> }
> error () ;
> }
> if ( n > 0 )
> curlist .tailfield = q ;
> --(saveptr) ;
> return ;
> }
> break ;
> }
> ++(savestack [saveptr - 1 ].cint) ;
> znewsavelevel((groupcode) (10)) ;
> scanleftbrace () ;
> pushnest () ;
> curlist .modefield = -104 ;
> curlist .auxfield .hh .v.LH = 1000 ;
>}
>void
>makeaccent ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> real s, t ;
> halfword p, q, r ;
> internalfontnumber f ;
> scaled a, h, x, w, delta ;
> fourquarters i ;
> scancharnum () ;
> f = eqtb [25589 ].hh .v.RH ;
> p = znewcharacter((internalfontnumber) (f), (eightbits) (curval)) ;
> if ( p != -268435455L )
> {
> x = fontinfo [5 + parambase [f ]].cint ;
> s = fontinfo [1 + parambase [f ]].cint / ((double) 65536.0 ) ;
> a = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [p ].hh.u.B1))
> ].qqqq .u.B0 ].cint ;
> doassignments () ;
> q = -268435455L ;
> f = eqtb [25589 ].hh .v.RH ;
> if ( ( curcmd == 11 ) || ( curcmd == 12 ) || ( curcmd == 68 ) )
> q = znewcharacter((internalfontnumber) (f), (eightbits) (curchr)) ;
> else if ( curcmd == 16 )
> {
> scancharnum () ;
> q = znewcharacter((internalfontnumber) (f), (eightbits) (curval)) ;
> }
> else backinput () ;
> if ( q != -268435455L )
> {
> t = fontinfo [1 + parambase [f ]].cint / ((double) 65536.0 ) ;
> i = fontinfo [charbase [f ]+ zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [q ] .hh.u.B1))
> ].qqqq ;
> w = fontinfo [widthbase [f ]+ i .u.B0 ].cint ;
> h = fontinfo [heightbase [f ]+ ( i .u.B1 ) / 16 ].cint ;
> if ( h != x )
> {
> p = zhpack((halfword) (p), (scaled) (0), (smallnumber) (1)) ;
> mem [p + 4 ].cint = x - h ;
> }
> delta = zround ((double) (( w - a ) / ((double) 2.0 ) + h * t - x * s)) ;
> r = znewkern((scaled) (delta)) ;
> mem [r ].hh.u.B1 = 2 ;
> mem [curlist .tailfield ].hh .v.RH = r ;
> mem [r ].hh .v.RH = p ;
> curlist .tailfield = znewkern((scaled) (- (integer) a - delta)) ;
> mem [curlist .tailfield ].hh.u.B1 = 2 ;
> mem [p ].hh .v.RH = curlist .tailfield ;
> p = q ;
> }
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
> curlist .auxfield .hh .v.LH = 1000 ;
> }
>}
>void
>alignerror ( void )
>{
> 
> if ( ((integer)(alignstate) >= 0 ? (integer)(alignstate) : (integer)-(alignstate)) > 2 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1517)) ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> if ( curtok == 1062 )
> {
> {
> helpptr = 6 ;
> helpline [5 ]= 1518 ;
> helpline [4 ]= 1519 ;
> helpline [3 ]= 1520 ;
> helpline [2 ]= 1521 ;
> helpline [1 ]= 1522 ;
> helpline [0 ]= 1523 ;
> }
> }
> else {
>
> {
> helpptr = 5 ;
> helpline [4 ]= 1518 ;
> helpline [3 ]= 1524 ;
> helpline [2 ]= 1521 ;
> helpline [1 ]= 1522 ;
> helpline [0 ]= 1523 ;
> }
> }
> error () ;
> }
> else {
>
> backinput () ;
> if ( alignstate < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (744)) ;
> }
> ++(alignstate) ;
> curtok = 379 ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1513)) ;
> }
> --(alignstate) ;
> curtok = 637 ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1514 ;
> helpline [1 ]= 1515 ;
> helpline [0 ]= 1516 ;
> }
> inserror () ;
> }
>}
>void
>noalignerror ( void )
>{
> 
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1517)) ;
> }
> zprintesc((strnumber) (603)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1525 ;
> helpline [0 ]= 1526 ;
> }
> error () ;
>}
>void
>omiterror ( void )
>{
> 
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1517)) ;
> }
> zprintesc((strnumber) (606)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1527 ;
> helpline [0 ]= 1526 ;
> }
> error () ;
>}
>void
>doendv ( void )
>{
> 
> baseptr = inputptr ;
> inputstack [baseptr ]= curinput ;
> while ( ( inputstack [baseptr ].indexfield != 2 ) && ( inputstack [
> baseptr ].locfield == -268435455L ) && ( inputstack [baseptr ].statefield
> == 0 ) ) --(baseptr) ;
> if ( ( inputstack [baseptr ].indexfield != 2 ) || ( inputstack [baseptr ]
> .locfield != -268435455L ) || ( inputstack [baseptr ].statefield != 0 ) )
> zfatalerror((strnumber) (676)) ;
> if ( curgroup == 6 )
> {
> endgraf () ;
> if ( fincol () )
> finrow () ;
> }
> else offsave () ;
>}
>void
>cserror ( void )
>{
> 
> if ( curchr == 10 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> zprintesc((strnumber) (589)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1529 ;
> }
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> zprintesc((strnumber) (578)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1530 ;
> }
> }
> error () ;
>}
>void
>zpushmath ( groupcode c )
>{
> 
> pushnest () ;
> curlist .modefield = -207 ;
> curlist .auxfield .cint = -268435455L ;
> znewsavelevel((groupcode) (c)) ;
>}
>void
>zjustcopy ( halfword p , halfword h , halfword t )
>{
> register memoryword *mem=zmem;
> halfword r ;
> unsigned char words ;
> while ( p != -268435455L ) {
>
> words = 1 ;
> if ( ( p >= himemmin ) )
> r = getavail () ;
> else switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> {
> r = zgetnode((integer) (9)) ;
> mem [r + 7 ].cint = mem [p + 7 ].cint ;
> mem [r + 8 ].cint = mem [p + 8 ].cint ;
> mem [r + 6 ]= mem [p + 6 ];
> mem [r + 5 ]= mem [p + 5 ];
> words = 5 ;
> mem [r + 5 ].hh .v.RH = -268435455L ;
> }
> break ;
> case 2 :
> {
> r = zgetnode((integer) (6)) ;
> words = 6 ;
> }
> break ;
> case 6 :
> {
> r = getavail () ;
> mem [r ]= mem [p + 1 ];
> goto lab40 ;
> }
> break ;
> case 11 :
> case 9 :
> {
> words = 4 ;
> r = zgetnode((integer) (words)) ;
> }
> break ;
> case 10 :
> {
> r = zgetnode((integer) (4)) ;
> ++(mem [mem [p + 1 ].hh .v.LH ].hh .v.RH) ;
> mem [r + 2 ].cint = mem [p + 2 ].cint ;
> mem [r + 3 ].cint = mem [p + 3 ].cint ;
> mem [r + 1 ].hh .v.LH = mem [p + 1 ].hh .v.LH ;
> mem [r + 1 ].hh .v.RH = -268435455L ;
> }
> break ;
> case 8 :
> switch ( mem [p ].hh.u.B1 )
> {case 0 :
> {
> r = zgetnode((integer) (3)) ;
> words = 3 ;
> }
> break ;
> case 1 :
> case 3 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 2 :
> case 4 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 6 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 37 :
> {
> if ( mem [p + 1 ].hh .v.LH <= 1 )
> {
> r = zgetnode((integer) (3)) ;
> ++(mem [mem [p + 2 ].hh .v.RH ].hh .v.LH) ;
> words = 3 ;
> }
> else {
>
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> }
> break ;
> case 38 :
> {
> r = zgetnode((integer) (2)) ;
> ++(mem [mem [p + 1 ].hh .v.RH ].hh .v.LH) ;
> words = 2 ;
> }
> break ;
> case 39 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 40 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 8 :
> {
> r = zgetnode((integer) (2)) ;
> words = 2 ;
> }
> break ;
> case 10 :
> {
> r = zgetnode((integer) (5)) ;
> words = 5 ;
> }
> break ;
> case 12 :
> {
> r = zgetnode((integer) (5)) ;
> words = 5 ;
> }
> break ;
> case 13 :
> {
> r = zgetnode((integer) (7)) ;
> ++(mem [mem [p + 5 ].hh .v.LH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 14 :
> {
> r = zgetnode((integer) (7)) ;
> mem [r + 2 ].cint = mem [p + 2 ].cint ;
> mem [r + 3 ].cint = mem [p + 3 ].cint ;
> mem [r + 1 ].cint = mem [p + 1 ].cint ;
> mem [r + 5 ].hh .v.LH = mem [p + 5 ].hh .v.LH ;
> if ( mem [r + 5 ].hh .v.LH != -268435455L )
> ++(mem [mem [r + 5 ].hh .v.LH ].hh .v.LH) ;
> mem [r + 5 ].hh .v.RH = mem [p + 5 ].hh .v.RH ;
> ++(mem [mem [r + 5 ].hh .v.RH + 2 ].hh .v.RH) ;
> mem [r + 6 ].cint = mem [p + 6 ].cint ;
> }
> break ;
> case 15 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 17 :
> {
> r = zgetnode((integer) (7)) ;
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 18 :
> case 19 :
> {
> r = zgetnode((integer) (7)) ;
> if ( mem [p + 5 ].hh.u.B1 > 0 )
> ++(mem [mem [p + 5 ].hh .v.RH ].hh .v.LH) ;
> if ( mem [p + 6 ].hh .v.LH != -268435455L )
> ++(mem [mem [p + 6 ].hh .v.LH ].hh .v.LH) ;
> words = 7 ;
> }
> break ;
> case 20 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 21 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 33 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 34 :
> {
> ++(mem [mem [p + 1 ].hh .v.LH ].hh .v.RH) ;
> r = zgetnode((integer) (3)) ;
> words = 3 ;
> }
> break ;
> case 35 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 42 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 43 :
> r = zgetnode((integer) (2)) ;
> break ;
> case 44 :
> r = zgetnode((integer) (2)) ;
> break ;
> default:
> zconfusion((strnumber) (1893)) ;
> break ;
> }
> break ;
> default:
> goto lab45 ;
> break ;
> }
> while ( words > 0 ) {
>
> --(words) ;
> mem [r + words ]= mem [p + words ];
> }
> lab40: mem [h ].hh .v.RH = r ;
> h = r ;
> lab45: p = mem [p ].hh .v.RH ;
> }
> mem [h ].hh .v.RH = t ;
>}
>void
>zjustreverse ( halfword p )
>{
> register memoryword *mem=zmem;
> halfword l ;
> halfword t ;
> halfword q ;
> halfword m, n ;
> m = -268435455L ;
> n = -268435455L ;
> if ( mem [memtop - 3 ].hh .v.RH == -268435455L )
> {
> zjustcopy((halfword) (mem [p ].hh .v.RH), (halfword) (memtop - 3), (halfword) (-268435455L)) ;
> q = mem [memtop - 3 ].hh .v.RH ;
> }
> else {
>
> q = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = -268435455L ;
> zflushnodelist((halfword) (mem [memtop - 3 ].hh .v.RH)) ;
> }
> t = znewedge((smallnumber) (curdir), (scaled) (0)) ;
> l = t ;
> curdir = 1 - curdir ;
> while ( q != -268435455L ) if ( ( q >= himemmin ) )
> do {
> p = q ;
> q = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = l ;
> l = p ;
> } while ( ! ( ! ( q >= himemmin ) ) ) ;
> else {
>
> p = q ;
> q = mem [p ].hh .v.RH ;
> if ( mem [p ].hh.u.B0 == 9 ) {
>
> if ( ((mem [p ].hh.u.B1) & 1) ) {
>
> if ( mem [LRptr ].hh .v.LH != ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3 ) )
> {
> mem [p ].hh.u.B0 = 11 ;
> ++(LRproblems) ;
> }
> else {
>
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> if ( n > -268435455L )
> {
> --(n) ;
> --(mem [p ].hh.u.B1) ;
> }
> else {
>
> if ( m > -268435455L )
> --(m) ;
> else {
>
> mem [t + 1 ].cint = mem [p + 1 ].cint ;
> mem [t ].hh .v.RH = q ;
> zfreenode((halfword) (p), (halfword) (4)) ;
> goto lab30 ;
> }
> mem [p ].hh.u.B0 = 11 ;
> }
> }
> }
> else {
>
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) + 3 ) ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( n > -268435455L ) || ( ( mem [p ].hh.u.B1 / 8 ) != curdir ) )
> {
> ++(n) ;
> ++(mem [p ].hh.u.B1) ;
> }
> else {
>
> mem [p ].hh.u.B0 = 11 ;
> ++(m) ;
> }
> }
> }
> mem [p ].hh .v.RH = l ;
> l = p ;
> }
> goto lab30 ;
> mem [t + 1 ].cint = mem [p + 1 ].cint ;
> mem [t ].hh .v.RH = q ;
> zfreenode((halfword) (p), (halfword) (2)) ;
> lab30: mem [memtop - 3 ].hh .v.RH = l ;
>}
>void
>initmath ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled w ;
> halfword j ;
> integer x ;
> scaled l ;
> scaled s ;
> halfword p ;
> halfword q ;
> internalfontnumber f ;
> integer n ;
> scaled v ;
> scaled d ;
> gettoken () ;
> if ( ( curcmd == 3 ) && ( curlist .modefield > 0 ) )
> {
> j = -268435455L ;
> w = -1073741823L ;
> if ( curlist .headfield == curlist .tailfield )
> {
> popnest () ;
> if ( curlist .eTeXauxfield == -268435455L )
> x = 0 ;
> else if ( mem [curlist .eTeXauxfield ].hh .v.LH >= 8 )
> x = -1 ;
> else x = 1 ;
> }
> else {
>
> zlinebreak((boolean) (1)) ;
> if ( ( eTeXmode == 1 ) )
> {
> if ( eqtb [24536 ].hh .v.RH == membot )
> j = znewkern((scaled) (0)) ;
> else j = znewparamglue((smallnumber) (8)) ;
> if ( eqtb [24535 ].hh .v.RH == membot )
> p = znewkern((scaled) (0)) ;
> else p = znewparamglue((smallnumber) (7)) ;
> mem [p ].hh .v.RH = j ;
> j = newnullbox () ;
> mem [j + 1 ].cint = mem [justbox + 1 ].cint ;
> mem [j + 4 ].cint = mem [justbox + 4 ].cint ;
> mem [j + 5 ].hh .v.RH = p ;
> mem [j + 5 ].hh.u.B1 = mem [justbox + 5 ].hh.u.B1 ;
> mem [j + 5 ].hh.u.B0 = mem [justbox + 5 ].hh.u.B0 ;
> mem [j + 6 ].gr = mem [justbox + 6 ].gr ;
> }
> v = mem [justbox + 4 ].cint ;
> if ( curlist .eTeXauxfield == -268435455L )
> x = 0 ;
> else if ( mem [curlist .eTeXauxfield ].hh .v.LH >= 8 )
> x = -1 ;
> else x = 1 ;
> if ( x >= 0 )
> {
> p = mem [justbox + 5 ].hh .v.RH ;
> mem [memtop - 3 ].hh .v.RH = -268435455L ;
> }
> else {
>
> v = - (integer) v - mem [justbox + 1 ].cint ;
> p = znewmath((scaled) (0), (smallnumber) (6)) ;
> mem [memtop - 3 ].hh .v.RH = p ;
> zjustcopy((halfword) (mem [justbox + 5 ].hh .v.RH), (halfword) (p), (halfword) (znewmath((scaled) (0), (smallnumber) (7)))) ;
> curdir = 1 ;
> }
> v = v + 2 * fontinfo [6 + parambase [eqtb [25589 ].hh .v.RH ]]
> .cint ;
> if ( ( eqtb [27278 ].cint > 0 ) )
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = 0 ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> while ( p != -268435455L ) {
>
> lab21: if ( ( p >= himemmin ) )
> {
> f = mem [p ].hh.u.B0 ;
> d = fontinfo [widthbase [f ]+ fontinfo [charbase [f ]+
> zeffectivechar((boolean) (1), (internalfontnumber) (f), (quarterword) (mem [p ].hh.u.B1)) ].qqqq .u.B0 ].cint ;
> goto lab40 ;
> }
> switch ( mem [p ].hh.u.B0 )
> {case 0 :
> case 1 :
> case 2 :
> {
> d = mem [p + 1 ].cint ;
> goto lab40 ;
> }
> break ;
> case 6 :
> {
> mem [memtop - 12 ]= mem [p + 1 ];
> mem [memtop - 12 ].hh .v.RH = mem [p ].hh .v.RH ;
> p = memtop - 12 ;
> goto lab21 ;
> }
> break ;
> case 40 :
> d = mem [p + 1 ].cint ;
> break ;
> case 11 :
> d = mem [p + 1 ].cint ;
> break ;
> case 9 :
> {
> d = mem [p + 1 ].cint ;
> if ( ( eqtb [27278 ].cint > 0 ) ) {
>
> if ( ((mem [p ].hh.u.B1) & 1) )
> {
> if ( mem [LRptr ].hh .v.LH == ( 4 * ( mem [p ].hh.u.B1 / 4 )
> + 3 ) )
> {
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> else if ( mem [p ].hh.u.B1 > 4 )
> {
> w = 1073741823L ;
> goto lab30 ;
> }
> }
> else {
>
> {
> tempptr = getavail () ;
> mem [tempptr ].hh .v.LH = ( 4 * ( mem [p ].hh.u.B1 / 4 ) +
> 3 ) ;
> mem [tempptr ].hh .v.RH = LRptr ;
> LRptr = tempptr ;
> }
> if ( ( mem [p ].hh.u.B1 / 8 ) != curdir )
> {
> zjustreverse((halfword) (p)) ;
> p = memtop - 3 ;
> }
> }
> }
> else if ( mem [p ].hh.u.B1 >= 4 )
> {
> w = 1073741823L ;
> goto lab30 ;
> }
> }
> break ;
> case 14 :
> {
> d = mem [p + 1 ].cint ;
> curdir = mem [p ].hh.u.B1 ;
> }
> break ;
> case 10 :
> {
> q = mem [p + 1 ].hh .v.LH ;
> d = mem [q + 1 ].cint ;
> if ( mem [justbox + 5 ].hh.u.B0 == 1 )
> {
> if ( ( mem [justbox + 5 ].hh.u.B1 == mem [q ].hh.u.B0 ) && ( mem
> [q + 2 ].cint != 0 ) )
> v = 1073741823L ;
> }
> else if ( mem [justbox + 5 ].hh.u.B0 == 2 )
> {
> if ( ( mem [justbox + 5 ].hh.u.B1 == mem [q ].hh.u.B1 ) && ( mem
> [q + 3 ].cint != 0 ) )
> v = 1073741823L ;
> }
> if ( mem [p ].hh.u.B1 >= 100 )
> goto lab40 ;
> }
> break ;
> case 8 :
> if ( ( mem [p ].hh.u.B1 == 10 ) || ( mem [p ].hh.u.B1 == 12 ) )
> d = mem [p + 1 ].cint ;
> else d = 0 ;
> break ;
> default:
> d = 0 ;
> break ;
> }
> if ( v < 1073741823L )
> v = v + d ;
> goto lab45 ;
> lab40: if ( v < 1073741823L )
> {
> v = v + d ;
> w = v ;
> }
> else {
>
> w = 1073741823L ;
> goto lab30 ;
> }
> lab45: p = mem [p ].hh .v.RH ;
> }
> lab30: if ( ( eqtb [27278 ].cint > 0 ) )
> {
> while ( LRptr != -268435455L ) {
>
> tempptr = LRptr ;
> LRptr = mem [tempptr ].hh .v.RH ;
> {
> mem [tempptr ].hh .v.RH = avail ;
> avail = tempptr ;
> ;
>
> --(dynused) ;
>
> }
> }
> if ( LRproblems != 0 )
> {
> w = 1073741823L ;
> LRproblems = 0 ;
> }
> }
> curdir = 0 ;
> zflushnodelist((halfword) (mem [memtop - 3 ].hh .v.RH)) ;
> }
> if ( eqtb [25058 ].hh .v.RH == -268435455L ) {
>
> if ( ( eqtb [27809 ].cint != 0 ) && ( ( ( eqtb [27218 ].cint >= 0 )
> && ( curlist .pgfield + 2 > eqtb [27218 ].cint ) ) || ( curlist
> .pgfield + 1 < - (integer) eqtb [27218 ].cint ) ) )
> {
> l = eqtb [27795 ].cint - ((integer)(eqtb [27809 ].cint) >= 0 ? (integer)(eqtb [27809 ].cint) : (integer)-(eqtb [27809 ].cint)) ;
> if ( eqtb [27809 ].cint > 0 )
> s = eqtb [27809 ].cint ;
> else s = 0 ;
> }
> else {
>
> l = eqtb [27795 ].cint ;
> s = 0 ;
> }
> }
> else {
>
> n = mem [eqtb [25058 ].hh .v.RH ].hh .v.LH ;
> if ( curlist .pgfield + 2 >= n )
> p = eqtb [25058 ].hh .v.RH + 2 * n ;
> else p = eqtb [25058 ].hh .v.RH + 2 * ( curlist .pgfield + 2 ) ;
> s = mem [p - 1 ].cint ;
> l = mem [p ].cint ;
> }
> zpushmath((groupcode) (15)) ;
> curlist .modefield = 207 ;
> zeqworddefine((halfword) (27221), (integer) (-1)) ;
> zeqworddefine((halfword) (27805), (integer) (w)) ;
> curlist .eTeXauxfield = j ;
> if ( ( eTeXmode == 1 ) )
> zeqworddefine((halfword) (27274), (integer) (x)) ;
> zeqworddefine((halfword) (27806), (integer) (l)) ;
> zeqworddefine((halfword) (27807), (integer) (s)) ;
> if ( eqtb [25062 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25062 ].hh .v.RH), (quarterword) (9)) ;
> if ( nestptr == 1 )
> buildpage () ;
> }
> else {
>
> backinput () ;
> {
> zpushmath((groupcode) (15)) ;
> zeqworddefine((halfword) (27221), (integer) (-1)) ;
> if ( ( insertsrcspecialeverymath ) )
> insertsrcspecial () ;
> if ( eqtb [25061 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25061 ].hh .v.RH), (quarterword) (8)) ;
> }
> }
>}
>void
>starteqno ( void )
>{
> register memoryword *eqtb=zeqtb;
> savestack [saveptr + 0 ].cint = curchr ;
> ++(saveptr) ;
> {
> zpushmath((groupcode) (15)) ;
> zeqworddefine((halfword) (27221), (integer) (-1)) ;
> if ( ( insertsrcspecialeverymath ) )
> insertsrcspecial () ;
> if ( eqtb [25061 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25061 ].hh .v.RH), (quarterword) (8)) ;
> }
>}
>void
>zscanmath ( halfword p )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer c ;
> lab20: do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> lab21: switch ( curcmd )
> {case 11 :
> case 12 :
> case 68 :
> {
> c = eqtb [26665 + curchr ].hh .v.RH ;
> if ( c == 32768L )
> {
> {
> curcs = curchr + 1 ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> xtoken () ;
> backinput () ;
> }
> goto lab20 ;
> }
> }
> break ;
> case 16 :
> {
> scancharnum () ;
> curchr = curval ;
> curcmd = 68 ;
> goto lab21 ;
> }
> break ;
> case 17 :
> {
> scanfifteenbitint () ;
> c = curval ;
> }
> break ;
> case 69 :
> c = curchr ;
> break ;
> case 15 :
> {
> scantwentysevenbitint () ;
> c = curval / 4096 ;
> }
> break ;
> default:
> {
> backinput () ;
> scanleftbrace () ;
> savestack [saveptr + 0 ].cint = p ;
> ++(saveptr) ;
> zpushmath((groupcode) (9)) ;
> return ;
> }
> break ;
> }
> mem [p ].hh .v.RH = 1 ;
> mem [p ].hh.u.B1 = c % 256 ;
> if ( ( c >= 28672 ) && ( ( eqtb [27221 ].cint >= 0 ) && ( eqtb [27221 ]
> .cint < 16 ) ) )
> mem [p ].hh.u.B0 = eqtb [27221 ].cint ;
> else mem [p ].hh.u.B0 = ( c / 256 ) % 16 ;
>}
>void
>zsetmathchar ( integer c )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> if ( c >= 32768L )
> {
> curcs = curchr + 1 ;
> curcmd = eqtb [curcs ].hh.u.B0 ;
> curchr = eqtb [curcs ].hh .v.RH ;
> xtoken () ;
> backinput () ;
> }
> else {
>
> p = newnoad () ;
> mem [p + 1 ].hh .v.RH = 1 ;
> mem [p + 1 ].hh.u.B1 = c % 256 ;
> mem [p + 1 ].hh.u.B0 = ( c / 256 ) % 16 ;
> if ( c >= 28672 )
> {
> if ( ( ( eqtb [27221 ].cint >= 0 ) && ( eqtb [27221 ].cint < 16 ) )
> )
> mem [p + 1 ].hh.u.B0 = eqtb [27221 ].cint ;
> mem [p ].hh.u.B0 = 16 ;
> }
> else mem [p ].hh.u.B0 = 16 + ( c / 4096 ) ;
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
> }
>}
>void
>mathlimitswitch ( void )
>{
> register memoryword *mem=zmem;
> if ( curlist .headfield != curlist .tailfield ) {
>
> if ( mem [curlist .tailfield ].hh.u.B0 == 17 )
> {
> mem [curlist .tailfield ].hh.u.B1 = curchr ;
> return ;
> }
> }
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1534)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 1535 ;
> }
> error () ;
>}
>void
>zscandelimiter ( halfword p , boolean r )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( r )
> scantwentysevenbitint () ;
> else {
>
> do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> switch ( curcmd )
> {case 11 :
> case 12 :
> curval = eqtb [27536 + curchr ].cint ;
> break ;
> case 15 :
> scantwentysevenbitint () ;
> break ;
> default:
> curval = -1 ;
> break ;
> }
> }
> if ( curval < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1536)) ;
> }
> {
> helpptr = 6 ;
> helpline [5 ]= 1537 ;
> helpline [4 ]= 1538 ;
> helpline [3 ]= 1539 ;
> helpline [2 ]= 1540 ;
> helpline [1 ]= 1541 ;
> helpline [0 ]= 1542 ;
> }
> backerror () ;
> curval = 0 ;
> }
> mem [p ].qqqq .u.B0 = ( curval / 1048576L ) % 16 ;
> mem [p ].qqqq .u.B1 = ( curval / 4096 ) % 256 ;
> mem [p ].qqqq .u.B2 = ( curval / 256 ) % 16 ;
> mem [p ].qqqq .u.B3 = curval % 256 ;
>}
>void
>mathradical ( void )
>{
> register memoryword *mem=zmem;
> {
> mem [curlist .tailfield ].hh .v.RH = zgetnode((integer) (5)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 24 ;
> mem [curlist .tailfield ].hh.u.B1 = 0 ;
> mem [curlist .tailfield + 1 ].hh = emptyfield ;
> mem [curlist .tailfield + 3 ].hh = emptyfield ;
> mem [curlist .tailfield + 2 ].hh = emptyfield ;
> zscandelimiter((halfword) (curlist .tailfield + 4), (boolean) (1)) ;
> zscanmath((halfword) (curlist .tailfield + 1)) ;
>}
>void
>mathac ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> if ( curcmd == 45 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1543)) ;
> }
> zprintesc((strnumber) (599)) ;
> zprint((integer) (1544)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1545 ;
> helpline [0 ]= 1546 ;
> }
> error () ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = zgetnode((integer) (5)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 28 ;
> mem [curlist .tailfield ].hh.u.B1 = 0 ;
> mem [curlist .tailfield + 1 ].hh = emptyfield ;
> mem [curlist .tailfield + 3 ].hh = emptyfield ;
> mem [curlist .tailfield + 2 ].hh = emptyfield ;
> mem [curlist .tailfield + 4 ].hh .v.RH = 1 ;
> scanfifteenbitint () ;
> mem [curlist .tailfield + 4 ].hh.u.B1 = curval % 256 ;
> if ( ( curval >= 28672 ) && ( ( eqtb [27221 ].cint >= 0 ) && ( eqtb [
> 27221 ].cint < 16 ) ) )
> mem [curlist .tailfield + 4 ].hh.u.B0 = eqtb [27221 ].cint ;
> else mem [curlist .tailfield + 4 ].hh.u.B0 = ( curval / 256 ) % 16 ;
> zscanmath((halfword) (curlist .tailfield + 1)) ;
>}
>void
>appendchoices ( void )
>{
> register memoryword *mem=zmem;
> {
> mem [curlist .tailfield ].hh .v.RH = newchoice () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> ++(saveptr) ;
> savestack [saveptr - 1 ].cint = 0 ;
> zpushmath((groupcode) (13)) ;
> scanleftbrace () ;
>}
>halfword
>zfinmlist ( halfword p )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword q ;
> if ( curlist .auxfield .cint != -268435455L )
> {
> mem [curlist .auxfield .cint + 3 ].hh .v.RH = 3 ;
> mem [curlist .auxfield .cint + 3 ].hh .v.LH = mem [curlist .headfield ]
> .hh .v.RH ;
> if ( p == -268435455L )
> q = curlist .auxfield .cint ;
> else {
>
> q = mem [curlist .auxfield .cint + 2 ].hh .v.LH ;
> if ( ( mem [q ].hh.u.B0 != 30 ) || ( curlist .eTeXauxfield ==
> -268435455L ) )
> zconfusion((strnumber) (1273)) ;
> mem [curlist .auxfield .cint + 2 ].hh .v.LH = mem [curlist
> .eTeXauxfield ].hh .v.RH ;
> mem [curlist .eTeXauxfield ].hh .v.RH = curlist .auxfield .cint ;
> mem [curlist .auxfield .cint ].hh .v.RH = p ;
> }
> }
> else {
>
> mem [curlist .tailfield ].hh .v.RH = p ;
> q = mem [curlist .headfield ].hh .v.RH ;
> }
> popnest () ;
> Result = q ;
> return Result ;
>}
>void
>buildchoices ( void )
>{
> register memoryword *mem=zmem;
> halfword p ;
> unsave () ;
> p = zfinmlist((halfword) (-268435455L)) ;
> switch ( savestack [saveptr - 1 ].cint )
> {case 0 :
> mem [curlist .tailfield + 1 ].hh .v.LH = p ;
> break ;
> case 1 :
> mem [curlist .tailfield + 1 ].hh .v.RH = p ;
> break ;
> case 2 :
> mem [curlist .tailfield + 2 ].hh .v.LH = p ;
> break ;
> case 3 :
> {
> mem [curlist .tailfield + 2 ].hh .v.RH = p ;
> --(saveptr) ;
> return ;
> }
> break ;
> }
> ++(savestack [saveptr - 1 ].cint) ;
> zpushmath((groupcode) (13)) ;
> scanleftbrace () ;
>}
>void
>subsup ( void )
>{
> register memoryword *mem=zmem;
> smallnumber t ;
> halfword p ;
> t = 0 ;
> p = -268435455L ;
> if ( curlist .tailfield != curlist .headfield ) {
>
> if ( ( mem [curlist .tailfield ].hh.u.B0 >= 16 ) && ( mem [curlist
> .tailfield ].hh.u.B0 < 30 ) )
> {
> p = curlist .tailfield + 2 + curcmd - 7 ;
> t = mem [p ].hh .v.RH ;
> }
> }
> if ( ( p == -268435455L ) || ( t != 0 ) )
> {
> {
> mem [curlist .tailfield ].hh .v.RH = newnoad () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> p = curlist .tailfield + 2 + curcmd - 7 ;
> if ( t != 0 )
> {
> if ( curcmd == 7 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1547)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 1548 ;
> }
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1549)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 1550 ;
> }
> }
> error () ;
> }
> }
> zscanmath((halfword) (p)) ;
>}
>void
>mathfraction ( void )
>{
> register memoryword *mem=zmem;
> smallnumber c ;
> c = curchr ;
> if ( curlist .auxfield .cint != -268435455L )
> {
> if ( c >= 3 )
> {
> zscandelimiter((halfword) (memtop - 12), (boolean) (0)) ;
> zscandelimiter((halfword) (memtop - 12), (boolean) (0)) ;
> }
> if ( c % 3 == 0 )
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1557)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1558 ;
> helpline [1 ]= 1559 ;
> helpline [0 ]= 1560 ;
> }
> error () ;
> }
> else {
>
> curlist .auxfield .cint = zgetnode((integer) (6)) ;
> mem [curlist .auxfield .cint ].hh.u.B0 = 25 ;
> mem [curlist .auxfield .cint ].hh.u.B1 = 0 ;
> mem [curlist .auxfield .cint + 2 ].hh .v.RH = 3 ;
> mem [curlist .auxfield .cint + 2 ].hh .v.LH = mem [curlist .headfield ]
> .hh .v.RH ;
> mem [curlist .auxfield .cint + 3 ].hh = emptyfield ;
> mem [curlist .auxfield .cint + 4 ].qqqq = nulldelimiter ;
> mem [curlist .auxfield .cint + 5 ].qqqq = nulldelimiter ;
> mem [curlist .headfield ].hh .v.RH = -268435455L ;
> curlist .tailfield = curlist .headfield ;
> if ( c >= 3 )
> {
> zscandelimiter((halfword) (curlist .auxfield .cint + 4), (boolean) (0)) ;
> zscandelimiter((halfword) (curlist .auxfield .cint + 5), (boolean) (0)) ;
> }
> switch ( c % 3 )
> {case 0 :
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [curlist .auxfield .cint + 1 ].cint = curval ;
> }
> break ;
> case 1 :
> mem [curlist .auxfield .cint + 1 ].cint = 1073741824L ;
> break ;
> case 2 :
> mem [curlist .auxfield .cint + 1 ].cint = 0 ;
> break ;
> }
> }
>}
>void
>mathleftright ( void )
>{
> register memoryword *mem=zmem;
> smallnumber t ;
> halfword p ;
> halfword q ;
> t = curchr ;
> if ( ( t != 30 ) && ( curgroup != 16 ) )
> {
> if ( curgroup == 15 )
> {
> zscandelimiter((halfword) (memtop - 12), (boolean) (0)) ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (931)) ;
> }
> if ( t == 1 )
> {
> zprintesc((strnumber) (1274)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1561 ;
> }
> }
> else {
>
> zprintesc((strnumber) (1273)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1562 ;
> }
> }
> error () ;
> }
> else offsave () ;
> }
> else {
>
> p = newnoad () ;
> mem [p ].hh.u.B0 = t ;
> zscandelimiter((halfword) (p + 1), (boolean) (0)) ;
> if ( t == 1 )
> {
> mem [p ].hh.u.B0 = 31 ;
> mem [p ].hh.u.B1 = 1 ;
> }
> if ( t == 30 )
> q = p ;
> else {
>
> q = zfinmlist((halfword) (p)) ;
> unsave () ;
> }
> if ( t != 31 )
> {
> zpushmath((groupcode) (16)) ;
> mem [curlist .headfield ].hh .v.RH = q ;
> curlist .tailfield = p ;
> curlist .eTeXauxfield = p ;
> }
> else {
>
> {
> mem [curlist .tailfield ].hh .v.RH = newnoad () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 23 ;
> mem [curlist .tailfield + 1 ].hh .v.RH = 3 ;
> mem [curlist .tailfield + 1 ].hh .v.LH = q ;
> }
> }
>}
>void
>zappdisplay ( halfword j , halfword b , scaled d )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> scaled z ;
> scaled s ;
> scaled e ;
> integer x ;
> halfword p, q, r, t, u ;
> s = eqtb [27807 ].cint ;
> x = eqtb [27274 ].cint ;
> if ( x == 0 )
> mem [b + 4 ].cint = s + d ;
> else {
>
> z = eqtb [27806 ].cint ;
> p = b ;
> if ( x > 0 )
> e = z - d - mem [p + 1 ].cint ;
> else {
>
> e = d ;
> d = z - e - mem [p + 1 ].cint ;
> }
> if ( j != -268435455L )
> {
> b = zcopynodelist((halfword) (j)) ;
> mem [b + 3 ].cint = mem [p + 3 ].cint ;
> mem [b + 2 ].cint = mem [p + 2 ].cint ;
> s = s - mem [b + 4 ].cint ;
> d = d + s ;
> e = e + mem [b + 1 ].cint - z - s ;
> }
> if ( ( mem [p ].hh.u.B1 ) == 2 )
> q = p ;
> else {
>
> r = mem [p + 5 ].hh .v.RH ;
> zfreenode((halfword) (p), (halfword) (9)) ;
> if ( r == -268435455L )
> zconfusion((strnumber) (2017)) ;
> if ( x > 0 )
> {
> p = r ;
> do {
> q = r ;
> r = mem [r ].hh .v.RH ;
> } while ( ! ( r == -268435455L ) ) ;
> }
> else {
>
> p = -268435455L ;
> q = r ;
> do {
> t = mem [r ].hh .v.RH ;
> mem [r ].hh .v.RH = p ;
> p = r ;
> r = t ;
> } while ( ! ( r == -268435455L ) ) ;
> }
> }
> if ( j == -268435455L )
> {
> r = znewkern((scaled) (0)) ;
> t = znewkern((scaled) (0)) ;
> }
> else {
>
> r = mem [b + 5 ].hh .v.RH ;
> t = mem [r ].hh .v.RH ;
> }
> u = znewmath((scaled) (0), (smallnumber) (3)) ;
> if ( mem [t ].hh.u.B0 == 10 )
> {
> j = znewskipparam((smallnumber) (8)) ;
> mem [q ].hh .v.RH = j ;
> mem [j ].hh .v.RH = u ;
> j = mem [t + 1 ].hh .v.LH ;
> mem [tempptr ].hh.u.B0 = mem [j ].hh.u.B0 ;
> mem [tempptr ].hh.u.B1 = mem [j ].hh.u.B1 ;
> mem [tempptr + 1 ].cint = e - mem [j + 1 ].cint ;
> mem [tempptr + 2 ].cint = - (integer) mem [j + 2 ].cint ;
> mem [tempptr + 3 ].cint = - (integer) mem [j + 3 ].cint ;
> mem [u ].hh .v.RH = t ;
> }
> else {
>
> mem [t + 1 ].cint = e ;
> mem [t ].hh .v.RH = u ;
> mem [q ].hh .v.RH = t ;
> }
> u = znewmath((scaled) (0), (smallnumber) (2)) ;
> if ( mem [r ].hh.u.B0 == 10 )
> {
> j = znewskipparam((smallnumber) (7)) ;
> mem [u ].hh .v.RH = j ;
> mem [j ].hh .v.RH = p ;
> j = mem [r + 1 ].hh .v.LH ;
> mem [tempptr ].hh.u.B0 = mem [j ].hh.u.B0 ;
> mem [tempptr ].hh.u.B1 = mem [j ].hh.u.B1 ;
> mem [tempptr + 1 ].cint = d - mem [j + 1 ].cint ;
> mem [tempptr + 2 ].cint = - (integer) mem [j + 2 ].cint ;
> mem [tempptr + 3 ].cint = - (integer) mem [j + 3 ].cint ;
> mem [r ].hh .v.RH = u ;
> }
> else {
>
> mem [r + 1 ].cint = d ;
> mem [r ].hh .v.RH = p ;
> mem [u ].hh .v.RH = r ;
> if ( j == -268435455L )
> {
> b = zhpack((halfword) (u), (scaled) (0), (smallnumber) (1)) ;
> mem [b + 4 ].cint = s ;
> }
> else mem [b + 5 ].hh .v.RH = u ;
> }
> }
> zappendtovlist((halfword) (b)) ;
>}
>void
>aftermath ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> boolean l ;
> boolean danger ;
> integer m ;
> halfword p ;
> halfword a ;
> halfword b ;
> scaled w ;
> scaled z ;
> scaled e ;
> scaled q ;
> scaled d ;
> scaled s ;
> smallnumber g1, g2 ;
> halfword r ;
> halfword t ;
> halfword pret ;
> halfword j ;
> danger = 0 ;
> if ( curlist .modefield == 207 )
> j = curlist .eTeXauxfield ;
> if ( ( fontparams [eqtb [25595 ].hh .v.RH ]< 22 ) || ( fontparams [eqtb
> [25611 ].hh .v.RH ]< 22 ) || ( fontparams [eqtb [25627 ].hh .v.RH ]<
> 22 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1563)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1564 ;
> helpline [1 ]= 1565 ;
> helpline [0 ]= 1566 ;
> }
> error () ;
> flushmath () ;
> danger = 1 ;
> }
> else if ( ( fontparams [eqtb [25596 ].hh .v.RH ]< 13 ) || ( fontparams [
> eqtb [25612 ].hh .v.RH ]< 13 ) || ( fontparams [eqtb [25628 ].hh .v.RH
> ]< 13 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1567)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1568 ;
> helpline [1 ]= 1569 ;
> helpline [0 ]= 1570 ;
> }
> error () ;
> flushmath () ;
> danger = 1 ;
> }
> m = curlist .modefield ;
> l = 0 ;
> p = zfinmlist((halfword) (-268435455L)) ;
> if ( curlist .modefield == - (integer) m )
> {
> {
> getxtoken () ;
> if ( curcmd != 3 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1571)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1572 ;
> helpline [0 ]= 1573 ;
> }
> backerror () ;
> }
> }
> curmlist = p ;
> curstyle = 2 ;
> mlistpenalties = 0 ;
> mlisttohlist () ;
> a = zhpack((halfword) (mem [memtop - 3 ].hh .v.RH), (scaled) (0), (smallnumber) (1)) ;
> mem [a ].hh.u.B1 = 2 ;
> unsave () ;
> --(saveptr) ;
> if ( savestack [saveptr + 0 ].cint == 1 )
> l = 1 ;
> danger = 0 ;
> if ( curlist .modefield == 207 )
> j = curlist .eTeXauxfield ;
> if ( ( fontparams [eqtb [25595 ].hh .v.RH ]< 22 ) || ( fontparams [
> eqtb [25611 ].hh .v.RH ]< 22 ) || ( fontparams [eqtb [25627 ].hh
> .v.RH ]< 22 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1563)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1564 ;
> helpline [1 ]= 1565 ;
> helpline [0 ]= 1566 ;
> }
> error () ;
> flushmath () ;
> danger = 1 ;
> }
> else if ( ( fontparams [eqtb [25596 ].hh .v.RH ]< 13 ) || ( fontparams
> [eqtb [25612 ].hh .v.RH ]< 13 ) || ( fontparams [eqtb [25628 ].hh
> .v.RH ]< 13 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1567)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1568 ;
> helpline [1 ]= 1569 ;
> helpline [0 ]= 1570 ;
> }
> error () ;
> flushmath () ;
> danger = 1 ;
> }
> m = curlist .modefield ;
> p = zfinmlist((halfword) (-268435455L)) ;
> }
> else a = -268435455L ;
> if ( m < 0 )
> {
> {
> mem [curlist .tailfield ].hh .v.RH = znewmath((scaled) (eqtb [27793 ].cint), (smallnumber) (0))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> curmlist = p ;
> curstyle = 2 ;
> mlistpenalties = ( curlist .modefield > 0 ) ;
> mlisttohlist () ;
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 3 ].hh .v.RH ;
> while ( mem [curlist .tailfield ].hh .v.RH != -268435455L ) curlist
> .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewmath((scaled) (eqtb [27793 ].cint), (smallnumber) (1))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> curlist .auxfield .hh .v.LH = 1000 ;
> unsave () ;
> }
> else {
>
> if ( a == -268435455L )
> {
> getxtoken () ;
> if ( curcmd != 3 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1571)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1572 ;
> helpline [0 ]= 1573 ;
> }
> backerror () ;
> }
> }
> curmlist = p ;
> curstyle = 0 ;
> mlistpenalties = 0 ;
> mlisttohlist () ;
> p = mem [memtop - 3 ].hh .v.RH ;
> adjusttail = memtop - 5 ;
> preadjusttail = memtop - 14 ;
> b = zhpack((halfword) (p), (scaled) (0), (smallnumber) (1)) ;
> p = mem [b + 5 ].hh .v.RH ;
> t = adjusttail ;
> adjusttail = -268435455L ;
> pret = preadjusttail ;
> preadjusttail = -268435455L ;
> w = mem [b + 1 ].cint ;
> z = eqtb [27806 ].cint ;
> s = eqtb [27807 ].cint ;
> if ( eqtb [27274 ].cint < 0 )
> s = - (integer) s - z ;
> if ( ( a == -268435455L ) || danger )
> {
> e = 0 ;
> q = 0 ;
> }
> else {
>
> e = mem [a + 1 ].cint ;
> q = e + fontinfo [6 + parambase [eqtb [25595 ].hh .v.RH ]].cint ;
> }
> if ( w + q > z )
> {
> if ( ( e != 0 ) && ( ( w - totalshrink [0 ]+ q <= z ) || ( totalshrink
> [1 ]!= 0 ) || ( totalshrink [2 ]!= 0 ) || ( totalshrink [3 ]!= 0 )
> ) )
> {
> zfreenode((halfword) (b), (halfword) (9)) ;
> b = zhpack((halfword) (p), (scaled) (z - q), (smallnumber) (0)) ;
> }
> else {
>
> e = 0 ;
> if ( w > z )
> {
> zfreenode((halfword) (b), (halfword) (9)) ;
> b = zhpack((halfword) (p), (scaled) (z), (smallnumber) (0)) ;
> }
> }
> w = mem [b + 1 ].cint ;
> }
> mem [b ].hh.u.B1 = 2 ;
> d = zhalf((integer) (z - w)) ;
> if ( ( e > 0 ) && ( d < 2 * e ) )
> {
> d = zhalf((integer) (z - w - e)) ;
> if ( p != -268435455L ) {
>
> if ( ! ( p >= himemmin ) ) {
>
> if ( mem [p ].hh.u.B0 == 10 )
> d = 0 ;
> }
> }
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (eqtb [27188 ].cint))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( ( d + s <= eqtb [27805 ].cint ) || l )
> {
> g1 = 3 ;
> g2 = 4 ;
> }
> else {
>
> g1 = 5 ;
> g2 = 6 ;
> }
> if ( l && ( e == 0 ) )
> {
> zappdisplay((halfword) (j), (halfword) (a), (scaled) (0)) ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (10000)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> else {
>
> mem [curlist .tailfield ].hh .v.RH = znewparamglue((smallnumber) (g1)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( e != 0 )
> {
> r = znewkern((scaled) (z - w - e - d)) ;
> if ( l )
> {
> mem [a ].hh .v.RH = r ;
> mem [r ].hh .v.RH = b ;
> b = a ;
> d = 0 ;
> }
> else {
>
> mem [b ].hh .v.RH = r ;
> mem [r ].hh .v.RH = a ;
> }
> b = zhpack((halfword) (b), (scaled) (0), (smallnumber) (1)) ;
> }
> zappdisplay((halfword) (j), (halfword) (b), (scaled) (d)) ;
> if ( ( a != -268435455L ) && ( e == 0 ) && ! l )
> {
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (10000)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> zappdisplay((halfword) (j), (halfword) (a), (scaled) (z - mem [a + 1 ].cint)) ;
> g2 = 0 ;
> }
> if ( t != memtop - 5 )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 5 ].hh .v.RH ;
> curlist .tailfield = t ;
> }
> if ( pret != memtop - 14 )
> {
> mem [curlist .tailfield ].hh .v.RH = mem [memtop - 14 ].hh .v.RH ;
> curlist .tailfield = pret ;
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewpenalty((integer) (eqtb [27189 ].cint))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( g2 > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = znewparamglue((smallnumber) (g2)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> zflushnodelist((halfword) (j)) ;
> resumeafterdisplay () ;
> }
>}
>void
>resumeafterdisplay ( void )
>{
> register memoryword *eqtb=zeqtb;
> if ( curgroup != 15 )
> zconfusion((strnumber) (1574)) ;
> unsave () ;
> curlist .pgfield = curlist .pgfield + 3 ;
> pushnest () ;
> curlist .modefield = 104 ;
> curlist .auxfield .hh .v.LH = 1000 ;
> if ( eqtb [27227 ].cint <= 0 )
> curlang = 0 ;
> else if ( eqtb [27227 ].cint > 255 )
> curlang = 0 ;
> else curlang = eqtb [27227 ].cint ;
> curlist .auxfield .hh .v.RH = curlang ;
> curlist .pgfield = ( znormmin((integer) (eqtb [27228 ].cint)) * 64 + znormmin((integer) (eqtb [27229 ].cint))
> ) * 65536L + curlang ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> if ( nestptr == 1 )
> buildpage () ;
>}
>void
>getrtoken ( void )
>{
> 
> lab20: do {
> gettoken () ;
> } while ( ! ( curtok != 2592 ) ) ;
> if ( ( curcs == 0 ) || ( curcs > eqtbtop ) || ( ( curcs > 15514 ) && ( curcs
> <= 28081 ) ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1592)) ;
> }
> {
> helpptr = 5 ;
> helpline [4 ]= 1593 ;
> helpline [3 ]= 1594 ;
> helpline [2 ]= 1595 ;
> helpline [1 ]= 1596 ;
> helpline [0 ]= 1597 ;
> }
> if ( curcs == 0 )
> backinput () ;
> curtok = 19609 ;
> inserror () ;
> goto lab20 ;
> }
>}
>void
>trapzeroglue ( void )
>{
> register memoryword *mem=zmem;
> if ( ( mem [curval + 1 ].cint == 0 ) && ( mem [curval + 2 ].cint == 0 )
> && ( mem [curval + 3 ].cint == 0 ) )
> {
> ++(mem [membot ].hh .v.RH) ;
> zdeleteglueref((halfword) (curval)) ;
> curval = membot ;
> }
>}
>void
>zdoregistercommand ( smallnumber a )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword l, q, r, s ;
> unsigned char p ;
> boolean e ;
> integer w ;
> q = curcmd ;
> e = 0 ;
> {
> if ( q != 89 )
> {
> getxtoken () ;
> if ( ( curcmd >= 73 ) && ( curcmd <= 76 ) )
> {
> l = curchr ;
> p = curcmd - 73 ;
> goto lab40 ;
> }
> if ( curcmd != 89 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (786)) ;
> }
> zprintcmdchr((quarterword) (curcmd), (halfword) (curchr)) ;
> zprint((integer) (787)) ;
> zprintcmdchr((quarterword) (q), (halfword) (0)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1631 ;
> }
> error () ;
> return ;
> }
> }
> if ( ( curchr < membot ) || ( curchr > membot + 19 ) )
> {
> l = curchr ;
> p = ( mem [l ].hh.u.B0 / 16 ) ;
> e = 1 ;
> }
> else {
>
> p = curchr - membot ;
> scanregisternum () ;
> if ( curval > 255 )
> {
> zfindsaelement((smallnumber) (p), (halfword) (curval), (boolean) (1)) ;
> l = curptr ;
> e = 1 ;
> }
> else switch ( p )
> {case 0 :
> l = curval + 27280 ;
> break ;
> case 1 :
> l = curval + 27826 ;
> break ;
> case 2 :
> l = curval + 24546 ;
> break ;
> case 3 :
> l = curval + 24802 ;
> break ;
> }
> }
> }
> lab40: if ( p < 2 ) {
>
> if ( e )
> w = mem [l + 2 ].cint ;
> else w = eqtb [l ].cint ;
> }
> else if ( e )
> s = mem [l + 1 ].hh .v.RH ;
> else s = eqtb [l ].hh .v.RH ;
> if ( q == 89 )
> scanoptionalequals () ;
> else if ( zscankeyword((strnumber) (1627)) )
> ;
> aritherror = 0 ;
> if ( q < 91 ) {
>
> if ( p < 2 )
> {
> if ( p == 0 )
> scanint () ;
> else zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> if ( q == 90 )
> curval = curval + w ;
> }
> else {
>
> zscanglue((smallnumber) (p)) ;
> if ( q == 90 )
> {
> q = znewspec((halfword) (curval)) ;
> r = s ;
> zdeleteglueref((halfword) (curval)) ;
> mem [q + 1 ].cint = mem [q + 1 ].cint + mem [r + 1 ].cint ;
> if ( mem [q + 2 ].cint == 0 )
> mem [q ].hh.u.B0 = 0 ;
> if ( mem [q ].hh.u.B0 == mem [r ].hh.u.B0 )
> mem [q + 2 ].cint = mem [q + 2 ].cint + mem [r + 2 ].cint ;
> else if ( ( mem [q ].hh.u.B0 < mem [r ].hh.u.B0 ) && ( mem [r + 2 ]
> .cint != 0 ) )
> {
> mem [q + 2 ].cint = mem [r + 2 ].cint ;
> mem [q ].hh.u.B0 = mem [r ].hh.u.B0 ;
> }
> if ( mem [q + 3 ].cint == 0 )
> mem [q ].hh.u.B1 = 0 ;
> if ( mem [q ].hh.u.B1 == mem [r ].hh.u.B1 )
> mem [q + 3 ].cint = mem [q + 3 ].cint + mem [r + 3 ].cint ;
> else if ( ( mem [q ].hh.u.B1 < mem [r ].hh.u.B1 ) && ( mem [r + 3 ]
> .cint != 0 ) )
> {
> mem [q + 3 ].cint = mem [r + 3 ].cint ;
> mem [q ].hh.u.B1 = mem [r ].hh.u.B1 ;
> }
> curval = q ;
> }
> }
> }
> else {
>
> scanint () ;
> if ( p < 2 ) {
>
> if ( q == 91 ) {
>
> if ( p == 0 )
> curval = zmultandadd((integer) (w), (scaled) (curval), (scaled) (0), (scaled) (2147483647L)) ;
> else curval = zmultandadd((integer) (w), (scaled) (curval), (scaled) (0), (scaled) (1073741823L)) ;
> }
> else curval = zxovern((scaled) (w), (integer) (curval)) ;
> }
> else {
>
> r = znewspec((halfword) (s)) ;
> if ( q == 91 )
> {
> mem [r + 1 ].cint = zmultandadd((integer) (mem [s + 1 ].cint), (scaled) (curval), (scaled) (0), (scaled) (1073741823L))
> ;
> mem [r + 2 ].cint = zmultandadd((integer) (mem [s + 2 ].cint), (scaled) (curval), (scaled) (0), (scaled) (1073741823L))
> ;
> mem [r + 3 ].cint = zmultandadd((integer) (mem [s + 3 ].cint), (scaled) (curval), (scaled) (0), (scaled) (1073741823L))
> ;
> }
> else {
>
> mem [r + 1 ].cint = zxovern((scaled) (mem [s + 1 ].cint), (integer) (curval)) ;
> mem [r + 2 ].cint = zxovern((scaled) (mem [s + 2 ].cint), (integer) (curval)) ;
> mem [r + 3 ].cint = zxovern((scaled) (mem [s + 3 ].cint), (integer) (curval)) ;
> }
> curval = r ;
> }
> }
> if ( aritherror )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1628)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1629 ;
> helpline [0 ]= 1630 ;
> }
> if ( p >= 2 )
> zdeleteglueref((halfword) (curval)) ;
> error () ;
> return ;
> }
> if ( p < 2 ) {
>
> if ( e ) {
>
> if ( ( a >= 4 ) )
> zgsawdef((halfword) (l), (integer) (curval)) ;
> else zsawdef((halfword) (l), (integer) (curval)) ;
> }
> else if ( ( a >= 4 ) )
> zgeqworddefine((halfword) (l), (integer) (curval)) ;
> else zeqworddefine((halfword) (l), (integer) (curval)) ;
> }
> else {
>
> trapzeroglue () ;
> if ( e ) {
>
> if ( ( a >= 4 ) )
> zgsadef((halfword) (l), (halfword) (curval)) ;
> else zsadef((halfword) (l), (halfword) (curval)) ;
> }
> else if ( ( a >= 4 ) )
> zgeqdefine((halfword) (l), (quarterword) (119), (halfword) (curval)) ;
> else zeqdefine((halfword) (l), (quarterword) (119), (halfword) (curval)) ;
> }
>}
>void
>alteraux ( void )
>{
> 
> halfword c ;
> if ( curchr != ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) )
> reportillegalcase () ;
> else {
>
> c = curchr ;
> scanoptionalequals () ;
> if ( c == 1 )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> curlist .auxfield .cint = curval ;
> }
> else {
>
> scanint () ;
> if ( ( curval <= 0 ) || ( curval > 32767 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1634)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 1635 ;
> }
> zinterror((integer) (curval)) ;
> }
> else curlist .auxfield .hh .v.LH = curval ;
> }
> }
>}
>void
>alterprevgraf ( void )
>{
> 
> integer p ;
> nest [nestptr ]= curlist ;
> p = nestptr ;
> while ( ((integer)(nest [p ].modefield) >= 0 ? (integer)(nest [p ].modefield) : (integer)-(nest [p ].modefield)) != 1 ) --(p) ;
> scanoptionalequals () ;
> scanint () ;
> if ( curval < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1356)) ;
> }
> zprintesc((strnumber) (609)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1636 ;
> }
> zinterror((integer) (curval)) ;
> }
> else {
>
> nest [p ].pgfield = curval ;
> curlist = nest [nestptr ];
> }
>}
>void
>alterpagesofar ( void )
>{
> 
> unsigned char c ;
> c = curchr ;
> scanoptionalequals () ;
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> pagesofar [c ]= curval ;
>}
>void
>alterinteger ( void )
>{
> 
> smallnumber c ;
> c = curchr ;
> scanoptionalequals () ;
> scanint () ;
> if ( c == 0 )
> deadcycles = curval ;
> else if ( c == 2 )
> {
> if ( ( curval < 0 ) || ( curval > 3 ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (2002)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 2003 ;
> helpline [0 ]= 2004 ;
> }
> zinterror((integer) (curval)) ;
> }
> else {
>
> curchr = curval ;
> newinteraction () ;
> }
> }
> else insertpenalties = curval ;
>}
>void
>alterboxdimen ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> smallnumber c ;
> halfword b ;
> c = curchr ;
> scanregisternum () ;
> if ( curval < 256 )
> b = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> b = -268435455L ;
> else b = mem [curptr + 1 ].hh .v.RH ;
> }
> scanoptionalequals () ;
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> if ( b != -268435455L )
> mem [b + c ].cint = curval ;
>}
>void
>znewfont ( smallnumber a )
>{
> register memoryword *eqtb=zeqtb;
> halfword u ;
> scaled s ;
> internalfontnumber f ;
> strnumber t ;
> unsigned char oldsetting ;
> if ( jobname == 0 )
> openlogfile () ;
> getrtoken () ;
> u = curcs ;
> if ( u >= 514 )
> t = hash [u ].v.RH ;
> else if ( u >= 257 ) {
>
> if ( u == 513 )
> t = 1088 ;
> else t = u - 257 ;
> }
> else {
>
> oldsetting = selector ;
> selector = 21 ;
> zprint((integer) (1088)) ;
> zprint((integer) (u - 1)) ;
> selector = oldsetting ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> t = makestring () ;
> }
> if ( ( a >= 4 ) )
> zgeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> else zeqdefine((halfword) (u), (quarterword) (87), (halfword) (0)) ;
> scanoptionalequals () ;
> scanfilename () ;
> nameinprogress = 1 ;
> if ( zscankeyword((strnumber) (1650)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> s = curval ;
> if ( ( s <= 0 ) || ( s >= 134217728L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1652)) ;
> }
> zprintscaled((scaled) (s)) ;
> zprint((integer) (1653)) ;
> {
> helpptr = 2 ;
> helpline [1 ]= 1654 ;
> helpline [0 ]= 1655 ;
> }
> error () ;
> s = 10 * 65536L ;
> }
> }
> else if ( zscankeyword((strnumber) (1651)) )
> {
> scanint () ;
> s = - (integer) curval ;
> if ( ( curval <= 0 ) || ( curval > 32768L ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (633)) ;
> }
> {
> helpptr = 1 ;
> helpline [0 ]= 634 ;
> }
> zinterror((integer) (curval)) ;
> s = -1000 ;
> }
> }
> else s = -1000 ;
> nameinprogress = 0 ;
> {register integer for_end; f = 1 ;for_end = fontptr ; if ( f <= for_end)
> do
> if ( zstreqstr((strnumber) (fontname [f ]), (strnumber) (curname)) && zstreqstr((strnumber) (fontarea [f ]), (strnumber) (curarea))
> )
> {
> if ( pdffontstep [f ]== 0 )
> {
> if ( s > 0 )
> {
> if ( s == fontsize [f ])
> goto lab50 ;
> }
> else if ( fontsize [f ]== zxnoverd((scaled) (fontdsize [f ]), (integer) (- (integer) s), (integer) (1000))
> )
> goto lab50 ;
> }
> }
> while ( f++ < for_end ) ;}
> f = zreadfontinfo((halfword) (u), (strnumber) (curname), (strnumber) (curarea), (scaled) (s)) ;
> lab50: if ( ( a >= 4 ) )
> zgeqdefine((halfword) (u), (quarterword) (87), (halfword) (f)) ;
> else zeqdefine((halfword) (u), (quarterword) (87), (halfword) (f)) ;
> eqtb [15526 + f ]= eqtb [u ];
> hash [15526 + f ].v.RH = t ;
>}
>void
>newinteraction ( void )
>{
> 
> println () ;
> interaction = curchr ;
> if ( interaction == 0 )
> kpse_def_inst.make_tex_discard_errors = 1 ;
> else kpse_def_inst.make_tex_discard_errors = 0 ;
> if ( interaction == 0 )
> selector = 16 ;
> else selector = 17 ;
> if ( logopened )
> selector = selector + 2 ;
>}
>void
>doassignments ( void )
>{
> 
> while ( 1 ) {
>
> do {
> getxtoken () ;
> } while ( ! ( ( curcmd != 10 ) && ( curcmd != 0 ) ) ) ;
> if ( curcmd <= 70 )
> return ;
> setboxallowed = 0 ;
> prefixedcommand () ;
> setboxallowed = 1 ;
> }
>}
>void
>openorclosein ( void )
>{
> 
> unsigned char c ;
> unsigned char n ;
> c = curchr ;
> scanfourbitint () ;
> n = curval ;
> if ( readopen [n ]!= 2 )
> {
> close_file_or_pipe(readfile [n ]) ;
> readopen [n ]= 2 ;
> }
> if ( c != 0 )
> {
> scanoptionalequals () ;
> scanfilename () ;
> zpackfilename((strnumber) (curname), (strnumber) (curarea), (strnumber) (curext)) ;
> texinputtype = 0 ;
> if ( kpse_in_name_ok ( ((string) (nameoffile + 1)) ) && open_in_or_pipe(&(readfile [n ]),kpse_tex_format,"rb")
> )
> readopen [n ]= 1 ;
> }
>}
>void
>issuemessage ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> unsigned char oldsetting ;
> unsigned char c ;
> strnumber s ;
> c = curchr ;
> mem [memtop - 12 ].hh .v.RH = zscantoks((boolean) (0), (boolean) (1)) ;
> oldsetting = selector ;
> selector = 21 ;
> messageprinting = 1 ;
> activenoconvert = 1 ;
> ztokenshow((halfword) (defref)) ;
> messageprinting = 0 ;
> activenoconvert = 0 ;
> selector = oldsetting ;
> zflushlist((halfword) (defref)) ;
> {
> if ( poolptr + 1 > poolsize )
> zoverflow((strnumber) (259), (integer) (poolsize - initpoolptr)) ;
> }
> s = makestring () ;
> if ( c == 0 )
> {
> if ( termoffset + ( strstart [s + 1 ]- strstart [s ]) > maxprintline -
> 2 )
> println () ;
> else if ( ( termoffset > 0 ) || ( fileoffset > 0 ) )
> zprintchar((ASCIIcode) (32)) ;
> zprint((integer) (s)) ;
> fflush ( stdout ) ;
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (345)) ;
> }
> zprint((integer) (s)) ;
> if ( eqtb [25067 ].hh .v.RH != -268435455L )
> useerrhelp = 1 ;
> else if ( longhelpseen )
> {
> helpptr = 1 ;
> helpline [0 ]= 1662 ;
> }
> else {
>
> if ( interaction < 3 )
> longhelpseen = 1 ;
> {
> helpptr = 4 ;
> helpline [3 ]= 1663 ;
> helpline [2 ]= 1664 ;
> helpline [1 ]= 1665 ;
> helpline [0 ]= 1666 ;
> }
> }
> error () ;
> useerrhelp = 0 ;
> }
> {
> --(strptr) ;
> poolptr = strstart [strptr ];
> }
>}
>void
>shiftcase ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword b ;
> halfword p ;
> halfword t ;
> eightbits c ;
> b = curchr ;
> p = zscantoks((boolean) (0), (boolean) (0)) ;
> p = mem [defref ].hh .v.RH ;
> while ( p != -268435455L ) {
>
> t = mem [p ].hh .v.LH ;
> if ( t < 4352 )
> {
> c = t % 256 ;
> if ( eqtb [b + c ].hh .v.RH != 0 )
> mem [p ].hh .v.LH = t - c + eqtb [b + c ].hh .v.RH ;
> }
> p = mem [p ].hh .v.RH ;
> }
> zbegintokenlist((halfword) (mem [defref ].hh .v.RH), (quarterword) (3)) ;
> {
> mem [defref ].hh .v.RH = avail ;
> avail = defref ;
> ;
>
> --(dynused) ;
>
> }
>}
>void
>showwhatever ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p ;
> smallnumber t ;
> unsigned char m ;
> integer l ;
> integer n ;
> switch ( curchr )
> {case 3 :
> {
> begindiagnostic () ;
> showactivities () ;
> }
> break ;
> case 1 :
> {
> scanregisternum () ;
> if ( curval < 256 )
> p = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> p = -268435455L ;
> else p = mem [curptr + 1 ].hh .v.RH ;
> }
> begindiagnostic () ;
> zprintnl((strnumber) (1682)) ;
> zprintint((longinteger) (curval)) ;
> zprintchar((ASCIIcode) (61)) ;
> if ( p == -268435455L )
> zprint((integer) (430)) ;
> else zshowbox((halfword) (p)) ;
> }
> break ;
> case 0 :
> {
> gettoken () ;
> if ( interaction == 3 )
> ;
> zprintnl((strnumber) (1678)) ;
> if ( curcs != 0 )
> {
> zsprintcs((halfword) (curcs)) ;
> zprintchar((ASCIIcode) (61)) ;
> }
> printmeaning () ;
> goto lab50 ;
> }
> break ;
> case 4 :
> {
> begindiagnostic () ;
> showsavegroups () ;
> }
> break ;
> case 6 :
> {
> begindiagnostic () ;
> zprintnl((strnumber) (345)) ;
> println () ;
> if ( condptr == -268435455L )
> {
> zprintnl((strnumber) (379)) ;
> zprint((integer) (1999)) ;
> }
> else {
>
> p = condptr ;
> n = 0 ;
> do {
> ++(n) ;
> p = mem [p ].hh .v.RH ;
> } while ( ! ( p == -268435455L ) ) ;
> p = condptr ;
> t = curif ;
> l = ifline ;
> m = iflimit ;
> do {
> zprintnl((strnumber) (2000)) ;
> zprintint((longinteger) (n)) ;
> zprint((integer) (648)) ;
> zprintcmdchr((quarterword) (107), (halfword) (t)) ;
> if ( m == 2 )
> zprintesc((strnumber) (930)) ;
> if ( l != 0 )
> {
> zprint((integer) (1998)) ;
> zprintint((longinteger) (l)) ;
> }
> --(n) ;
> t = mem [p ].hh.u.B1 ;
> l = mem [p + 1 ].cint ;
> m = mem [p ].hh.u.B0 ;
> p = mem [p ].hh .v.RH ;
> } while ( ! ( p == -268435455L ) ) ;
> }
> }
> break ;
> default:
> {
> p = thetoks () ;
> if ( interaction == 3 )
> ;
> zprintnl((strnumber) (1678)) ;
> ztokenshow((halfword) (memtop - 3)) ;
> zflushlist((halfword) (mem [memtop - 3 ].hh .v.RH)) ;
> goto lab50 ;
> }
> break ;
> }
> zenddiagnostic((boolean) (1)) ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1683)) ;
> }
> if ( selector == 19 ) {
>
> if ( eqtb [27206 ].cint <= 0 )
> {
> selector = 17 ;
> zprint((integer) (1684)) ;
> selector = 19 ;
> }
> }
> lab50: if ( interaction < 3 )
> {
> helpptr = 0 ;
> --(errorcount) ;
> }
> else if ( eqtb [27206 ].cint > 0 )
> {
> {
> helpptr = 3 ;
> helpline [2 ]= 1673 ;
> helpline [1 ]= 1674 ;
> helpline [0 ]= 1675 ;
> }
> }
> else {
>
> {
> helpptr = 5 ;
> helpline [4 ]= 1673 ;
> helpline [3 ]= 1674 ;
> helpline [2 ]= 1675 ;
> helpline [1 ]= 1676 ;
> helpline [0 ]= 1677 ;
> }
> }
> error () ;
>}
>void
>znewwhatsit ( smallnumber s , smallnumber w )
>{
> register memoryword *mem=zmem;
> halfword p ;
> p = zgetnode((integer) (w)) ;
> mem [p ].hh.u.B0 = 8 ;
> mem [p ].hh.u.B1 = s ;
> mem [curlist .tailfield ].hh .v.RH = p ;
> curlist .tailfield = p ;
>}
>void
>znewwritewhatsit ( smallnumber w )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> znewwhatsit((smallnumber) (curchr), (smallnumber) (w)) ;
> if ( w != 2 )
> scanfourbitint () ;
> else {
>
> scanint () ;
> if ( curval < 0 )
> curval = 17 ;
> else if ( ( curval > 15 ) && ( curval != 18 ) )
> curval = 16 ;
> }
> mem [curlist .tailfield + 1 ].hh.u.B0 = curval ;
> if ( eqtb [27236 ].cint + 64 < 0 )
> mem [curlist .tailfield + 1 ].hh.u.B1 = 0 ;
> else if ( eqtb [27236 ].cint + 64 >= 2 * 64 )
> mem [curlist .tailfield + 1 ].hh.u.B1 = 2 * 64 - 1 ;
> else mem [curlist .tailfield + 1 ].hh.u.B1 = eqtb [27236 ].cint + 64 ;
>}
>void
>zcheckpdfoutput ( strnumber s , boolean iserror )
>{
> register memoryword *eqtb=zeqtb;
> if ( eqtb [27239 ].cint <= 0 )
> {
> if ( iserror )
> zpdferror((strnumber) (s), (strnumber) (1764)) ;
> else zpdfwarning((strnumber) (s), (strnumber) (1765), (boolean) (1), (boolean) (1)) ;
> }
>}
>void
>scanpdfexttoks ( void )
>{
> 
> {
> if ( zscantoks((boolean) (0), (boolean) (1)) != 0 )
> ;
> }
>}
>void
>comparestrings ( void )
>{
> 
> strnumber s1, s2 ;
> poolpointer i1, i2, j1, j2 ;
> {
> if ( zscantoks((boolean) (0), (boolean) (1)) != 0 )
> ;
> }
> s1 = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> {
> if ( zscantoks((boolean) (0), (boolean) (1)) != 0 )
> ;
> }
> s2 = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> i1 = strstart [s1 ];
> j1 = strstart [s1 + 1 ];
> i2 = strstart [s2 ];
> j2 = strstart [s2 + 1 ];
> while ( ( i1 < j1 ) && ( i2 < j2 ) ) {
>
> if ( strpool [i1 ]< strpool [i2 ])
> {
> curval = -1 ;
> goto lab30 ;
> }
> if ( strpool [i1 ]> strpool [i2 ])
> {
> curval = 1 ;
> goto lab30 ;
> }
> ++(i1) ;
> ++(i2) ;
> }
> if ( ( i1 == j1 ) && ( i2 == j2 ) )
> curval = 0 ;
> else if ( i1 < j1 )
> curval = 1 ;
> else curval = -1 ;
> lab30: zflushstr((strnumber) (s2)) ;
> zflushstr((strnumber) (s1)) ;
> curvallevel = 0 ;
>}
>void
>zscaleimage ( integer n )
>{
> register memoryword *eqtb=zeqtb;
> integer x, y, xr, yr ;
> scaled w, h ;
> integer defaultres ;
> integer image ;
> image = pdfmem [objtab [n ].int4 + 4 ];
> if ( ( imagerotate ( image ) == 90 ) || ( imagerotate ( image ) == 270 ) )
> {
> y = imagewidth ( image ) ;
> x = imageheight ( image ) ;
> yr = imagexres ( image ) ;
> xr = imageyres ( image ) ;
> }
> else {
>
> x = imagewidth ( image ) ;
> y = imageheight ( image ) ;
> xr = imagexres ( image ) ;
> yr = imageyres ( image ) ;
> }
> if ( ( xr > 65535L ) || ( yr > 65535L ) )
> {
> xr = 0 ;
> yr = 0 ;
> zpdfwarning((strnumber) (1763), (strnumber) (1795), (boolean) (1), (boolean) (1)) ;
> }
> if ( ( x <= 0 ) || ( y <= 0 ) || ( xr < 0 ) || ( yr < 0 ) )
> zpdferror((strnumber) (1763), (strnumber) (1796)) ;
> if ( ispdfimage ( image ) )
> {
> w = x ;
> h = y ;
> }
> else {
>
> defaultres = zfixint((integer) (eqtb [27243 ].cint), (integer) (0), (integer) (65535L)) ;
> if ( ( defaultres > 0 ) && ( ( xr == 0 ) || ( yr == 0 ) ) )
> {
> xr = defaultres ;
> yr = defaultres ;
> }
> if ( ( pdfmem [objtab [n ].int4 + 0 ]== -1073741824L ) && ( pdfmem [
> objtab [n ].int4 + 1 ]== -1073741824L ) )
> {
> if ( ( xr > 0 ) && ( yr > 0 ) )
> {
> w = extxnoverd ( onehundredinch , x , 100 * xr ) ;
> h = extxnoverd ( onehundredinch , y , 100 * yr ) ;
> }
> else {
>
> w = extxnoverd ( onehundredinch , x , 7200 ) ;
> h = extxnoverd ( onehundredinch , y , 7200 ) ;
> }
> }
> }
> if ( ( pdfmem [objtab [n ].int4 + 0 ]== -1073741824L ) && ( pdfmem [
> objtab [n ].int4 + 1 ]== -1073741824L ) && ( pdfmem [objtab [n ].int4
> + 2 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 0 ]= w ;
> pdfmem [objtab [n ].int4 + 1 ]= h ;
> pdfmem [objtab [n ].int4 + 2 ]= 0 ;
> }
> else if ( ( pdfmem [objtab [n ].int4 + 0 ]== -1073741824L ) )
> {
> if ( ( pdfmem [objtab [n ].int4 + 1 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 0 ]= extxnoverd ( h , x , y ) ;
> pdfmem [objtab [n ].int4 + 1 ]= h - pdfmem [objtab [n ].int4 + 2
> ];
> }
> else if ( ( pdfmem [objtab [n ].int4 + 2 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 0 ]= extxnoverd ( pdfmem [objtab [n ]
> .int4 + 1 ], x , y ) ;
> pdfmem [objtab [n ].int4 + 2 ]= 0 ;
> }
> else {
>
> pdfmem [objtab [n ].int4 + 0 ]= extxnoverd ( pdfmem [objtab [n ]
> .int4 + 1 ]+ pdfmem [objtab [n ].int4 + 2 ], x , y ) ;
> }
> }
> else {
>
> if ( ( pdfmem [objtab [n ].int4 + 1 ]== -1073741824L ) && ( pdfmem [
> objtab [n ].int4 + 2 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 1 ]= extxnoverd ( pdfmem [objtab [n ]
> .int4 + 0 ], y , x ) ;
> pdfmem [objtab [n ].int4 + 2 ]= 0 ;
> }
> else if ( ( pdfmem [objtab [n ].int4 + 1 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 1 ]= extxnoverd ( pdfmem [objtab [n ]
> .int4 + 0 ], y , x ) - pdfmem [objtab [n ].int4 + 2 ];
> }
> else if ( ( pdfmem [objtab [n ].int4 + 2 ]== -1073741824L ) )
> {
> pdfmem [objtab [n ].int4 + 2 ]= 0 ;
> }
> else ;
> }
>}
>integer
>scanpdfboxspec ( void )
>{
> register integer Result;
> Result = 0 ;
> if ( zscankeyword((strnumber) (1797)) )
> Result = pdfboxspecmedia ;
> else if ( zscankeyword((strnumber) (1798)) )
> Result = pdfboxspeccrop ;
> else if ( zscankeyword((strnumber) (1799)) )
> Result = pdfboxspecbleed ;
> else if ( zscankeyword((strnumber) (1800)) )
> Result = pdfboxspectrim ;
> else if ( zscankeyword((strnumber) (1801)) )
> Result = pdfboxspecart ;
> return Result ;
>}
>void
>scanaltrule ( void )
>{
> register memoryword *mem=zmem;
> if ( altrule == -268435455L )
> altrule = newrule () ;
> mem [altrule + 1 ].cint = -1073741824L ;
> mem [altrule + 3 ].cint = -1073741824L ;
> mem [altrule + 2 ].cint = -1073741824L ;
> lab21: if ( zscankeyword((strnumber) (836)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [altrule + 1 ].cint = curval ;
> goto lab21 ;
> }
> if ( zscankeyword((strnumber) (837)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [altrule + 3 ].cint = curval ;
> goto lab21 ;
> }
> if ( zscankeyword((strnumber) (838)) )
> {
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> mem [altrule + 2 ].cint = curval ;
> goto lab21 ;
> }
>}
>void
>scanimage ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer k ;
> strnumber named ;
> strnumber s ;
> integer page, pagebox, colorspace ;
> ++(pdfximagecount) ;
> zpdfcreateobj((integer) (8), (integer) (pdfximagecount)) ;
> k = objptr ;
> objtab [k ].int4 = zpdfgetmem((integer) (5)) ;
> scanaltrule () ;
> pdfmem [objtab [k ].int4 + 0 ]= mem [altrule + 1 ].cint ;
> pdfmem [objtab [k ].int4 + 1 ]= mem [altrule + 3 ].cint ;
> pdfmem [objtab [k ].int4 + 2 ]= mem [altrule + 2 ].cint ;
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> pdfmem [objtab [k ].int4 + 3 ]= defref ;
> }
> else pdfmem [objtab [k ].int4 + 3 ]= -268435455L ;
> named = 0 ;
> if ( zscankeyword((strnumber) (1802)) )
> {
> scanpdfexttoks () ;
> named = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> }
> else if ( zscankeyword((strnumber) (888)) )
> {
> scanint () ;
> page = curval ;
> }
> else page = 1 ;
> if ( zscankeyword((strnumber) (1803)) )
> {
> scanint () ;
> colorspace = curval ;
> }
> else colorspace = 0 ;
> pagebox = scanpdfboxspec () ;
> if ( pagebox == 0 )
> pagebox = eqtb [27250 ].cint ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> if ( eqtb [27246 ].cint != 0 )
> {
> zpdfwarning((strnumber) (1804), (strnumber) (1805), (boolean) (1), (boolean) (1)) ;
> eqtb [27249 ].cint = eqtb [27246 ].cint ;
> eqtb [27246 ].cint = 0 ;
> warnpdfpagebox = 0 ;
> }
> if ( eqtb [27247 ].cint != 0 )
> {
> zpdfwarning((strnumber) (1804), (strnumber) (1806), (boolean) (1), (boolean) (1)) ;
> eqtb [27251 ].cint = eqtb [27247 ].cint ;
> eqtb [27247 ].cint = 0 ;
> }
> if ( eqtb [27249 ].cint > 0 )
> {
> if ( warnpdfpagebox )
> {
> zpdfwarning((strnumber) (1804), (strnumber) (1807), (boolean) (1), (boolean) (1)) ;
> warnpdfpagebox = 0 ;
> }
> pagebox = eqtb [27249 ].cint ;
> }
> if ( pagebox == 0 )
> pagebox = pdfboxspeccrop ;
> pdfmem [objtab [k ].int4 + 4 ]= readimage ( s , page , named ,
> colorspace , pagebox , eqtb [27248 ].cint , eqtb [27251 ].cint ) ;
> if ( named != 0 )
> zflushstr((strnumber) (named)) ;
> zflushstr((strnumber) (s)) ;
> zscaleimage((integer) (k)) ;
> pdflastximage = k ;
> pdflastximagepages = imagepages ( pdfmem [objtab [k ].int4 + 4 ]) ;
> pdflastximagecolordepth = imagecolordepth ( pdfmem [objtab [k ].int4 + 4
> ]) ;
>}
>halfword
>scanaction ( void )
>{
> register halfword Result; register memoryword *mem=zmem;
> integer p ;
> p = zgetnode((integer) (3)) ;
> Result = p ;
> mem [p + 1 ].hh .v.LH = -268435455L ;
> mem [p + 2 ].hh .v.RH = -268435455L ;
> if ( zscankeyword((strnumber) (1810)) )
> mem [p ].hh.u.B0 = 3 ;
> else if ( zscankeyword((strnumber) (1811)) )
> mem [p ].hh.u.B0 = 1 ;
> else if ( zscankeyword((strnumber) (1812)) )
> mem [p ].hh.u.B0 = 2 ;
> else zpdferror((strnumber) (1763), (strnumber) (1813)) ;
> if ( mem [p ].hh.u.B0 == 3 )
> {
> scanpdfexttoks () ;
> mem [p + 2 ].hh .v.LH = defref ;
> return Result ;
> }
> if ( zscankeyword((strnumber) (877)) )
> {
> scanpdfexttoks () ;
> mem [p + 1 ].hh .v.LH = defref ;
> }
> if ( zscankeyword((strnumber) (888)) )
> {
> if ( mem [p ].hh.u.B0 != 1 )
> zpdferror((strnumber) (1763), (strnumber) (1814)) ;
> mem [p ].hh.u.B0 = 0 ;
> scanint () ;
> if ( curval <= 0 )
> zpdferror((strnumber) (1763), (strnumber) (1815)) ;
> mem [p ].hh .v.RH = curval ;
> mem [p ].hh.u.B1 = 0 ;
> scanpdfexttoks () ;
> mem [p + 2 ].hh .v.LH = defref ;
> }
> else if ( zscankeyword((strnumber) (1816)) )
> {
> scanpdfexttoks () ;
> mem [p ].hh.u.B1 = 1 ;
> mem [p ].hh .v.RH = defref ;
> }
> else if ( zscankeyword((strnumber) (1185)) )
> {
> if ( ( mem [p ].hh.u.B0 == 1 ) && ( mem [p + 1 ].hh .v.LH != -268435455L
> ) )
> zpdferror((strnumber) (1763), (strnumber) (1817)) ;
> scanint () ;
> if ( curval <= 0 )
> zpdferror((strnumber) (1763), (strnumber) (1818)) ;
> mem [p ].hh.u.B1 = 0 ;
> mem [p ].hh .v.RH = curval ;
> }
> else zpdferror((strnumber) (1763), (strnumber) (1819)) ;
> if ( zscankeyword((strnumber) (1820)) )
> {
> mem [p + 1 ].hh .v.RH = 1 ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> else if ( zscankeyword((strnumber) (1821)) )
> {
> mem [p + 1 ].hh .v.RH = 2 ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> else mem [p + 1 ].hh .v.RH = 0 ;
> if ( ( mem [p + 1 ].hh .v.RH > 0 ) && ( ( ( mem [p ].hh.u.B0 != 1 ) && (
> mem [p ].hh.u.B0 != 0 ) ) || ( mem [p + 1 ].hh .v.LH == -268435455L ) ) )
> zpdferror((strnumber) (1763), (strnumber) (1822)) ;
> return Result ;
>}
>void
>znewannotwhatsit ( smallnumber w , smallnumber s )
>{
> register memoryword *mem=zmem;
> znewwhatsit((smallnumber) (w), (smallnumber) (s)) ;
> scanaltrule () ;
> mem [curlist .tailfield + 1 ].cint = mem [altrule + 1 ].cint ;
> mem [curlist .tailfield + 2 ].cint = mem [altrule + 3 ].cint ;
> mem [curlist .tailfield + 3 ].cint = mem [altrule + 2 ].cint ;
> if ( ( w == 14 ) )
> {
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> mem [curlist .tailfield + 5 ].hh .v.LH = defref ;
> }
> else mem [curlist .tailfield + 5 ].hh .v.LH = -268435455L ;
> }
> if ( ( w == 18 ) || ( w == 19 ) )
> {
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> mem [curlist .tailfield + 6 ].hh .v.LH = defref ;
> }
> else mem [curlist .tailfield + 6 ].hh .v.LH = -268435455L ;
> }
>}
>integer
>zoutlinelistcount ( halfword p )
>{
> register integer Result;
> integer k ;
> k = 1 ;
> while ( pdfmem [objtab [p ].int4 + 2 ]!= 0 ) {
>
> ++(k) ;
> p = pdfmem [objtab [p ].int4 + 2 ];
> }
> Result = k ;
> return Result ;
>}
>void
>scanthreadid ( void )
>{
> register memoryword *mem=zmem;
> if ( zscankeyword((strnumber) (1185)) )
> {
> scanint () ;
> if ( curval <= 0 )
> zpdferror((strnumber) (1763), (strnumber) (1818)) ;
> if ( curval > 268435455L )
> zpdferror((strnumber) (1763), (strnumber) (1026)) ;
> mem [curlist .tailfield + 5 ].hh .v.RH = curval ;
> mem [curlist .tailfield + 5 ].hh.u.B1 = 0 ;
> }
> else if ( zscankeyword((strnumber) (1816)) )
> {
> scanpdfexttoks () ;
> mem [curlist .tailfield + 5 ].hh .v.RH = defref ;
> mem [curlist .tailfield + 5 ].hh.u.B1 = 1 ;
> }
> else zpdferror((strnumber) (1763), (strnumber) (1819)) ;
>}
>halfword
>znewsnapnode ( smallnumber s )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> zscanglue((smallnumber) (2)) ;
> if ( mem [curval + 1 ].cint < 0 )
> zpdferror((strnumber) (1763), (strnumber) (1849)) ;
> p = zgetnode((integer) (3)) ;
> mem [p ].hh.u.B0 = 8 ;
> mem [p ].hh.u.B1 = s ;
> mem [p ].hh .v.RH = -268435455L ;
> mem [p + 1 ].hh .v.LH = curval ;
> mem [p + 2 ].cint = 0 ;
> Result = p ;
> return Result ;
>}
>halfword
>zconcattokens ( halfword q , halfword r )
>{
> register halfword Result; register memoryword *mem=zmem;
> halfword p ;
> if ( q == -268435455L )
> {
> Result = r ;
> return Result ;
> }
> p = q ;
> while ( mem [p ].hh .v.RH != -268435455L ) p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.RH = mem [r ].hh .v.RH ;
> {
> mem [r ].hh .v.RH = avail ;
> avail = r ;
> ;
>
> --(dynused) ;
>
> }
> Result = q ;
> return Result ;
>}
>void
>pdfincludechars ( void )
>{
> 
> strnumber s ;
> poolpointer k ;
> internalfontnumber f ;
> scanfontident () ;
> f = curval ;
> if ( f == 0 )
> zpdferror((strnumber) (592), (strnumber) (872)) ;
> pdfcheckvfcurval () ;
> if ( ! fontused [f ])
> zpdfinitfont((internalfontnumber) (f)) ;
> scanpdfexttoks () ;
> s = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> k = strstart [s ];
> while ( k < strstart [s + 1 ]) {
>
> pdfcharused[f][strpool [k ]/8] |= (1<<(strpool [k ]%8)) ;
> ++(k) ;
> }
> zflushstr((strnumber) (s)) ;
>}
>void
>glyphtounicode ( void )
>{
> 
> strnumber s1, s2 ;
> scanpdfexttoks () ;
> s1 = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> scanpdfexttoks () ;
> s2 = ztokenstostring((halfword) (defref)) ;
> zdeletetokenref((halfword) (defref)) ;
> deftounicode ( s1 , s2 ) ;
> zflushstr((strnumber) (s2)) ;
> zflushstr((strnumber) (s1)) ;
>}
>void
>zthreadtitle ( integer thread )
>{
> 
> zpdfprint((strnumber) (1865)) ;
> if ( objtab [thread ].int0 < 0 )
> zpdfprint((strnumber) (- (integer) objtab [thread ].int0)) ;
> else zpdfprintint((longinteger) (objtab [thread ].int0)) ;
> {
> zpdfprint((strnumber) (41)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
>}
>void
>zpdffixthread ( integer thread )
>{
> register memoryword *eqtb=zeqtb;
> halfword a ;
> zpdfwarning((strnumber) (1812), (strnumber) (1866), (boolean) (0), (boolean) (0)) ;
> if ( objtab [thread ].int0 < 0 )
> {
> zprint((integer) (1184)) ;
> zprint((integer) (- (integer) objtab [thread ].int0)) ;
> zprint((integer) (125)) ;
> }
> else {
>
> zprint((integer) (1185)) ;
> zprintint((longinteger) (objtab [thread ].int0)) ;
> }
> zprint((integer) (1186)) ;
> println () ;
> println () ;
> zpdfnewdict((integer) (0), (integer) (0), (integer) (0)) ;
> a = objptr ;
> zpdfindirectln((strnumber) (84), (integer) (thread)) ;
> zpdfindirectln((strnumber) (86), (integer) (a)) ;
> zpdfindirectln((strnumber) (78), (integer) (a)) ;
> zpdfindirectln((strnumber) (80), (integer) (headtab [1 ])) ;
> zpdfprint((strnumber) (1867)) ;
> zpdfprintbp((scaled) (eqtb [27815 ].cint)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintbp((scaled) (eqtb [27816 ].cint)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfenddict () ;
> zpdfbegindict((integer) (thread), (integer) (1)) ;
> {
> zpdfprint((strnumber) (1868)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zthreadtitle((integer) (thread)) ;
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (70), (integer) (a)) ;
> pdfenddict () ;
>}
>void
>zoutthread ( integer thread )
>{
> 
> halfword a, b ;
> integer lastattr ;
> if ( objtab [thread ].int4 == 0 )
> {
> zpdffixthread((integer) (thread)) ;
> return ;
> }
> zpdfbegindict((integer) (thread), (integer) (1)) ;
> a = objtab [thread ].int4 ;
> b = a ;
> lastattr = 0 ;
> do {
> if ( pdfmem [objtab [a ].int4 + 4 ]!= 0 )
> lastattr = pdfmem [objtab [a ].int4 + 4 ];
> a = pdfmem [objtab [a ].int4 + 2 ];
> } while ( ! ( a == b ) ) ;
> if ( lastattr != 0 )
> {
> zpdfprint((strnumber) (lastattr)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> else {
>
> {
> zpdfprint((strnumber) (1868)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zthreadtitle((integer) (thread)) ;
> {
> zpdfprint((strnumber) (1016)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> zpdfindirectln((strnumber) (70), (integer) (a)) ;
> pdfenddict () ;
> do {
> zpdfbegindict((integer) (a), (integer) (1)) ;
> if ( a == b )
> zpdfindirectln((strnumber) (84), (integer) (thread)) ;
> zpdfindirectln((strnumber) (86), (integer) (pdfmem [objtab [a ].int4 + 3 ])) ;
> zpdfindirectln((strnumber) (78), (integer) (pdfmem [objtab [a ].int4 + 2 ])) ;
> zpdfindirectln((strnumber) (80), (integer) (pdfmem [objtab [a ].int4 + 1 ])) ;
> zpdfindirectln((strnumber) (82), (integer) (pdfmem [objtab [a ].int4 ])) ;
> pdfenddict () ;
> a = pdfmem [objtab [a ].int4 + 2 ];
> } while ( ! ( a == b ) ) ;
>}
>void
>doextension ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer i, j, k ;
> halfword p, q, r ;
> switch ( curchr )
> {case 0 :
> {
> znewwritewhatsit((smallnumber) (3)) ;
> scanoptionalequals () ;
> scanfilename () ;
> mem [curlist .tailfield + 1 ].hh .v.RH = curname ;
> mem [curlist .tailfield + 2 ].hh .v.LH = curarea ;
> mem [curlist .tailfield + 2 ].hh .v.RH = curext ;
> }
> break ;
> case 1 :
> {
> k = curcs ;
> znewwritewhatsit((smallnumber) (2)) ;
> curcs = k ;
> p = zscantoks((boolean) (0), (boolean) (0)) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = defref ;
> }
> break ;
> case 2 :
> {
> znewwritewhatsit((smallnumber) (2)) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = -268435455L ;
> }
> break ;
> case 3 :
> {
> znewwhatsit((smallnumber) (3), (smallnumber) (2)) ;
> if ( eqtb [27238 ].cint + 64 < 0 )
> mem [curlist .tailfield + 1 ].hh.u.B0 = 0 ;
> else if ( eqtb [27238 ].cint + 64 >= 2 * 64 )
> mem [curlist .tailfield + 1 ].hh.u.B0 = 2 * 64 - 1 ;
> else mem [curlist .tailfield + 1 ].hh.u.B0 = eqtb [27238 ].cint + 64 ;
> if ( eqtb [27236 ].cint + 64 < 0 )
> mem [curlist .tailfield + 1 ].hh.u.B1 = 0 ;
> else if ( eqtb [27236 ].cint + 64 >= 2 * 64 )
> mem [curlist .tailfield + 1 ].hh.u.B1 = 2 * 64 - 1 ;
> else mem [curlist .tailfield + 1 ].hh.u.B1 = eqtb [27236 ].cint + 64 ;
> if ( ( eqtb [27238 ].cint == 2 ) || ( eqtb [27238 ].cint == 3 ) ) {
>
> if ( ( eqtb [27236 ].cint > 2 ) || ( eqtb [27236 ].cint == -1 ) ||
> ( eqtb [27236 ].cint == -2 ) )
> writenoexpanding = 1 ;
> }
> p = zscantoks((boolean) (0), (boolean) (1)) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = defref ;
> writenoexpanding = 0 ;
> }
> break ;
> case 4 :
> {
> getxtoken () ;
> if ( curcmd == 59 )
> {
> if ( curchr <= 2 )
> {
> p = curlist .tailfield ;
> doextension () ;
> zoutwhat((halfword) (curlist .tailfield)) ;
> zflushnodelist((halfword) (curlist .tailfield)) ;
> curlist .tailfield = p ;
> mem [p ].hh .v.RH = -268435455L ;
> }
> else switch ( curchr )
> {case 7 :
> {
> doextension () ;
> if ( objtab [pdflastobj ].int4 == 0 )
> zpdferror((strnumber) (1763), (strnumber) (1910)) ;
> zpdfwriteobj((integer) (pdflastobj)) ;
> }
> break ;
> case 9 :
> {
> doextension () ;
> pdfcurform = pdflastxform ;
> zpdfshipout((halfword) (pdfmem [objtab [pdflastxform ].int4 + 3 ]), (boolean) (0))
> ;
> }
> break ;
> case 11 :
> {
> doextension () ;
> zpdfwriteimage((integer) (pdflastximage)) ;
> }
> break ;
> default:
> backinput () ;
> break ;
> }
> }
> else backinput () ;
> }
> break ;
> case 5 :
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) != 104 )
> reportillegalcase () ;
> else {
>
> znewwhatsit((smallnumber) (4), (smallnumber) (2)) ;
> scanint () ;
> if ( curval <= 0 )
> curlist .auxfield .hh .v.RH = 0 ;
> else if ( curval > 255 )
> curlist .auxfield .hh .v.RH = 0 ;
> else curlist .auxfield .hh .v.RH = curval ;
> mem [curlist .tailfield + 1 ].hh .v.RH = curlist .auxfield .hh .v.RH ;
> mem [curlist .tailfield + 1 ].hh.u.B0 = znormmin((integer) (eqtb [27228 ].cint))
> ;
> mem [curlist .tailfield + 1 ].hh.u.B1 = znormmin((integer) (eqtb [27229 ].cint))
> ;
> }
> break ;
> case 13 :
> {
> zcheckpdfoutput((strnumber) (1823), (boolean) (1)) ;
> if ( zscankeyword((strnumber) (1785)) )
> {
> pdflastannot = pdfnewobjnum () ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> }
> else {
>
> if ( zscankeyword((strnumber) (1786)) )
> {
> scanint () ;
> k = curval ;
> if ( ( k <= 0 ) || ( k > objptr ) || ( objtab [k ].int4 != 0 ) )
> zpdferror((strnumber) (1763), (strnumber) (1824)) ;
> }
> else k = pdfnewobjnum () ;
> znewannotwhatsit((smallnumber) (13), (smallnumber) (7)) ;
> mem [curlist .tailfield + 6 ].cint = k ;
> scanpdfexttoks () ;
> mem [curlist .tailfield + 5 ].hh .v.LH = defref ;
> pdflastannot = k ;
> }
> }
> break ;
> case 23 :
> {
> zcheckpdfoutput((strnumber) (1853), (boolean) (0)) ;
> scanpdfexttoks () ;
> if ( eqtb [27239 ].cint > 0 )
> pdfcatalogtoks = zconcattokens((halfword) (pdfcatalogtoks), (halfword) (defref)) ;
> if ( zscankeyword((strnumber) (1854)) )
> {
> if ( pdfcatalogopenaction != 0 )
> zpdferror((strnumber) (1763), (strnumber) (1855)) ;
> else {
>
> p = scanaction () ;
> zpdfnewobj((integer) (0), (integer) (0), (integer) (1)) ;
> if ( eqtb [27239 ].cint > 0 )
> pdfcatalogopenaction = objptr ;
> zwriteaction((halfword) (p)) ;
> pdfendobj () ;
> {
> if ( mem [p + 2 ].hh .v.RH == -268435455L )
> {
> if ( mem [p ].hh.u.B0 == 3 )
> zdeletetokenref((halfword) (mem [p + 2 ].hh .v.LH)) ;
> else {
>
> if ( mem [p + 1 ].hh .v.LH != -268435455L )
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.LH)) ;
> if ( mem [p ].hh.u.B0 == 0 )
> zdeletetokenref((halfword) (mem [p + 2 ].hh .v.LH)) ;
> else if ( mem [p ].hh.u.B1 > 0 )
> zdeletetokenref((halfword) (mem [p ].hh .v.RH)) ;
> }
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
> else --(mem [p + 2 ].hh .v.RH) ;
> }
> }
> }
> }
> break ;
> case 17 :
> {
> zcheckpdfoutput((strnumber) (1832), (boolean) (1)) ;
> q = curlist .tailfield ;
> znewwhatsit((smallnumber) (17), (smallnumber) (7)) ;
> if ( zscankeyword((strnumber) (1185)) )
> {
> scanint () ;
> if ( curval <= 0 )
> zpdferror((strnumber) (1763), (strnumber) (1818)) ;
> if ( curval > 268435455L )
> zpdferror((strnumber) (1763), (strnumber) (1026)) ;
> mem [curlist .tailfield + 5 ].hh .v.RH = curval ;
> mem [curlist .tailfield + 5 ].hh.u.B1 = 0 ;
> }
> else if ( zscankeyword((strnumber) (1816)) )
> {
> scanpdfexttoks () ;
> mem [curlist .tailfield + 5 ].hh .v.RH = defref ;
> mem [curlist .tailfield + 5 ].hh.u.B1 = 1 ;
> }
> else zpdferror((strnumber) (1763), (strnumber) (1819)) ;
> if ( zscankeyword((strnumber) (1833)) )
> {
> mem [curlist .tailfield + 5 ].hh.u.B0 = 0 ;
> if ( zscankeyword((strnumber) (1834)) )
> {
> scanint () ;
> if ( curval > 268435455L )
> zpdferror((strnumber) (1763), (strnumber) (1026)) ;
> mem [curlist .tailfield + 6 ].hh .v.LH = curval ;
> }
> else mem [curlist .tailfield + 6 ].hh .v.LH = -268435455L ;
> }
> else if ( zscankeyword((strnumber) (1835)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 5 ;
> else if ( zscankeyword((strnumber) (1836)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 6 ;
> else if ( zscankeyword((strnumber) (1837)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 4 ;
> else if ( zscankeyword((strnumber) (1838)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 2 ;
> else if ( zscankeyword((strnumber) (1839)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 3 ;
> else if ( zscankeyword((strnumber) (1840)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 7 ;
> else if ( zscankeyword((strnumber) (1841)) )
> mem [curlist .tailfield + 5 ].hh.u.B0 = 1 ;
> else zpdferror((strnumber) (1763), (strnumber) (1842)) ;
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> if ( mem [curlist .tailfield + 5 ].hh.u.B0 == 7 )
> {
> scanaltrule () ;
> mem [curlist .tailfield + 1 ].cint = mem [altrule + 1 ].cint ;
> mem [curlist .tailfield + 2 ].cint = mem [altrule + 3 ].cint ;
> mem [curlist .tailfield + 3 ].cint = mem [altrule + 2 ].cint ;
> }
> if ( mem [curlist .tailfield + 5 ].hh.u.B1 != 0 )
> {
> i = ztokenstostring((halfword) (mem [curlist .tailfield + 5 ].hh .v.RH)) ;
> k = zfindobj((integer) (5), (integer) (i), (boolean) (1)) ;
> zflushstr((strnumber) (i)) ;
> }
> else k = zfindobj((integer) (5), (integer) (mem [curlist .tailfield + 5 ].hh .v.RH), (boolean) (0))
> ;
> if ( ( k != 0 ) && ( objtab [k ].int4 != -268435455L ) )
> {
> zwarndestdup((integer) (mem [curlist .tailfield + 5 ].hh .v.RH), (smallnumber) (mem [curlist .tailfield + 5 ].hh.u.B1), (strnumber) (1843), (strnumber) (1844))
> ;
> zflushnodelist((halfword) (curlist .tailfield)) ;
> curlist .tailfield = q ;
> mem [q ].hh .v.RH = -268435455L ;
> }
> }
> break ;
> case 15 :
> {
> zcheckpdfoutput((strnumber) (1827), (boolean) (1)) ;
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 )
> zpdferror((strnumber) (1763), (strnumber) (1828)) ;
> znewwhatsit((smallnumber) (15), (smallnumber) (2)) ;
> }
> break ;
> case 20 :
> {
> zcheckpdfoutput((strnumber) (1847), (boolean) (1)) ;
> znewwhatsit((smallnumber) (20), (smallnumber) (2)) ;
> }
> break ;
> case 25 :
> {
> zcheckpdfoutput((strnumber) (1190), (boolean) (1)) ;
> scanfontident () ;
> k = curval ;
> if ( k == 0 )
> zpdferror((strnumber) (592), (strnumber) (872)) ;
> scanpdfexttoks () ;
> pdffontattr [k ]= ztokenstostring((halfword) (defref)) ;
> }
> break ;
> case 31 :
> readexpandfont () ;
> break ;
> case 26 :
> {
> zcheckpdfoutput((strnumber) (1858), (boolean) (1)) ;
> pdfincludechars () ;
> }
> break ;
> case 22 :
> {
> zcheckpdfoutput((strnumber) (1852), (boolean) (0)) ;
> scanpdfexttoks () ;
> if ( eqtb [27239 ].cint > 0 )
> pdfinfotoks = zconcattokens((halfword) (pdfinfotoks), (halfword) (defref)) ;
> }
> break ;
> case 6 :
> {
> zcheckpdfoutput((strnumber) (1766), (boolean) (1)) ;
> znewwhatsit((smallnumber) (6), (smallnumber) (2)) ;
> if ( zscankeyword((strnumber) (889)) )
> mem [curlist .tailfield + 1 ].hh .v.LH = 2 ;
> else if ( zscankeyword((strnumber) (888)) )
> mem [curlist .tailfield + 1 ].hh .v.LH = 1 ;
> else mem [curlist .tailfield + 1 ].hh .v.LH = 0 ;
> scanpdfexttoks () ;
> mem [curlist .tailfield + 1 ].hh .v.RH = defref ;
> }
> break ;
> case 37 :
> {
> zcheckpdfoutput((strnumber) (1767), (boolean) (1)) ;
> scanint () ;
> if ( curval >= colorstackused () )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1768)) ;
> }
> zprintint((longinteger) (curval)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1769 ;
> helpline [1 ]= 1770 ;
> helpline [0 ]= 1771 ;
> }
> error () ;
> curval = 0 ;
> }
> if ( curval < 0 )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1772)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1770 ;
> helpline [0 ]= 1773 ;
> }
> error () ;
> curval = 0 ;
> }
> if ( zscankeyword((strnumber) (1774)) )
> {
> i = 0 ;
> j = 3 ;
> }
> else if ( zscankeyword((strnumber) (1775)) )
> {
> i = 1 ;
> j = 3 ;
> }
> else if ( zscankeyword((strnumber) (1776)) )
> {
> i = 2 ;
> j = 2 ;
> }
> else if ( zscankeyword((strnumber) (1777)) )
> {
> i = 3 ;
> j = 2 ;
> }
> else {
>
> i = -1 ;
> }
> if ( i >= 0 )
> {
> znewwhatsit((smallnumber) (37), (smallnumber) (j)) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = curval ;
> mem [curlist .tailfield + 1 ].hh .v.LH = i ;
> if ( i <= 1 )
> {
> scanpdfexttoks () ;
> mem [curlist .tailfield + 2 ].hh .v.RH = defref ;
> }
> }
> else {
>
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1778)) ;
> }
> {
> helpptr = 3 ;
> helpline [2 ]= 1779 ;
> helpline [1 ]= 1780 ;
> helpline [0 ]= 1781 ;
> }
> error () ;
> }
> }
> break ;
> case 38 :
> {
> zcheckpdfoutput((strnumber) (1125), (boolean) (1)) ;
> znewwhatsit((smallnumber) (38), (smallnumber) (2)) ;
> scanpdfexttoks () ;
> mem [curlist .tailfield + 1 ].hh .v.RH = defref ;
> }
> break ;
> case 39 :
> {
> zcheckpdfoutput((strnumber) (1782), (boolean) (1)) ;
> znewwhatsit((smallnumber) (39), (smallnumber) (2)) ;
> }
> break ;
> case 40 :
> {
> zcheckpdfoutput((strnumber) (1783), (boolean) (1)) ;
> znewwhatsit((smallnumber) (40), (smallnumber) (2)) ;
> }
> break ;
> case 27 :
> {
> zcheckpdfoutput((strnumber) (1859), (boolean) (1)) ;
> scanpdfexttoks () ;
> pdfmapfile ( defref ) ;
> zdeletetokenref((halfword) (defref)) ;
> }
> break ;
> case 28 :
> {
> zcheckpdfoutput((strnumber) (1860), (boolean) (1)) ;
> scanpdfexttoks () ;
> pdfmapline ( defref ) ;
> zdeletetokenref((halfword) (defref)) ;
> }
> break ;
> case 24 :
> {
> zcheckpdfoutput((strnumber) (1856), (boolean) (1)) ;
> scanpdfexttoks () ;
> pdfnamestoks = zconcattokens((halfword) (pdfnamestoks), (halfword) (defref)) ;
> }
> break ;
> case 7 :
> {
> zcheckpdfoutput((strnumber) (1784), (boolean) (1)) ;
> if ( zscankeyword((strnumber) (1785)) )
> {
> {
> getxtoken () ;
> if ( curcmd != 10 )
> backinput () ;
> }
> ++(pdfobjcount) ;
> zpdfcreateobj((integer) (6), (integer) (pdfobjcount)) ;
> pdflastobj = objptr ;
> }
> else {
>
> k = -1 ;
> if ( zscankeyword((strnumber) (1786)) )
> {
> scanint () ;
> k = curval ;
> if ( ( k <= 0 ) || ( k > objptr ) || ( objtab [k ].int4 != 0 ) )
> {
> zpdfwarning((strnumber) (1784), (strnumber) (1787), (boolean) (1), (boolean) (1)) ;
> pdfretval = -1 ;
> k = -1 ;
> }
> }
> if ( k < 0 )
> {
> ++(pdfobjcount) ;
> zpdfcreateobj((integer) (6), (integer) (pdfobjcount)) ;
> k = objptr ;
> }
> objtab [k ].int4 = zpdfgetmem((integer) (4)) ;
> if ( zscankeyword((strnumber) (1017)) )
> {
> pdfmem [objtab [k ].int4 + 1 ]= 1 ;
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> pdfmem [objtab [k ].int4 + 2 ]= defref ;
> }
> else pdfmem [objtab [k ].int4 + 2 ]= -268435455L ;
> }
> else pdfmem [objtab [k ].int4 + 1 ]= 0 ;
> if ( zscankeyword((strnumber) (877)) )
> pdfmem [objtab [k ].int4 + 3 ]= 1 ;
> else pdfmem [objtab [k ].int4 + 3 ]= 0 ;
> scanpdfexttoks () ;
> pdfmem [objtab [k ].int4 + 0 ]= defref ;
> pdflastobj = k ;
> }
> }
> break ;
> case 16 :
> {
> zcheckpdfoutput((strnumber) (1829), (boolean) (1)) ;
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> r = defref ;
> }
> else r = 0 ;
> p = scanaction () ;
> if ( zscankeyword((strnumber) (534)) )
> {
> scanint () ;
> i = curval ;
> }
> else i = 0 ;
> scanpdfexttoks () ;
> q = defref ;
> zpdfnewobj((integer) (0), (integer) (0), (integer) (1)) ;
> j = objptr ;
> zwriteaction((halfword) (p)) ;
> pdfendobj () ;
> {
> if ( mem [p + 2 ].hh .v.RH == -268435455L )
> {
> if ( mem [p ].hh.u.B0 == 3 )
> zdeletetokenref((halfword) (mem [p + 2 ].hh .v.LH)) ;
> else {
>
> if ( mem [p + 1 ].hh .v.LH != -268435455L )
> zdeletetokenref((halfword) (mem [p + 1 ].hh .v.LH)) ;
> if ( mem [p ].hh.u.B0 == 0 )
> zdeletetokenref((halfword) (mem [p + 2 ].hh .v.LH)) ;
> else if ( mem [p ].hh.u.B1 > 0 )
> zdeletetokenref((halfword) (mem [p ].hh .v.RH)) ;
> }
> zfreenode((halfword) (p), (halfword) (3)) ;
> }
> else --(mem [p + 2 ].hh .v.RH) ;
> }
> zpdfcreateobj((integer) (4), (integer) (0)) ;
> k = objptr ;
> objtab [k ].int4 = zpdfgetmem((integer) (8)) ;
> pdfmem [objtab [k ].int4 + 6 ]= j ;
> objtab [k ].int0 = i ;
> zpdfnewobj((integer) (0), (integer) (0), (integer) (1)) ;
> zpdfprintstrln((strnumber) (ztokenstostring((halfword) (q)))) ;
> zflushstr((strnumber) (lasttokensstring)) ;
> zdeletetokenref((halfword) (q)) ;
> pdfendobj () ;
> pdfmem [objtab [k ].int4 ]= objptr ;
> pdfmem [objtab [k ].int4 + 2 ]= 0 ;
> pdfmem [objtab [k ].int4 + 3 ]= 0 ;
> pdfmem [objtab [k ].int4 + 4 ]= 0 ;
> pdfmem [objtab [k ].int4 + 5 ]= 0 ;
> pdfmem [objtab [k ].int4 + 1 ]= pdfparentoutline ;
> pdfmem [objtab [k ].int4 + 7 ]= r ;
> if ( pdffirstoutline == 0 )
> pdffirstoutline = k ;
> if ( pdflastoutline == 0 )
> {
> if ( pdfparentoutline != 0 )
> pdfmem [objtab [pdfparentoutline ].int4 + 4 ]= k ;
> }
> else {
>
> pdfmem [objtab [pdflastoutline ].int4 + 3 ]= k ;
> pdfmem [objtab [k ].int4 + 2 ]= pdflastoutline ;
> }
> pdflastoutline = k ;
> if ( objtab [k ].int0 != 0 )
> {
> pdfparentoutline = k ;
> pdflastoutline = 0 ;
> }
> else if ( ( pdfparentoutline != 0 ) && ( zoutlinelistcount((halfword) (k)) == ((integer)(objtab [pdfparentoutline ].int0) >= 0 ? (integer)(objtab [pdfparentoutline ].int0) : (integer)-(objtab [pdfparentoutline ].int0))
> ) )
> {
> j = pdflastoutline ;
> do {
> pdfmem [objtab [pdfparentoutline ].int4 + 5 ]= j ;
> j = pdfparentoutline ;
> pdfparentoutline = pdfmem [objtab [pdfparentoutline ].int4 + 1 ]
> ;
> } while ( ! ( ( pdfparentoutline == 0 ) || ( zoutlinelistcount((halfword) (j)) <
> ((integer)(objtab [pdfparentoutline ].int0) >= 0 ? (integer)(objtab [pdfparentoutline ].int0) : (integer)-(objtab [pdfparentoutline ].int0)) ) ) ) ;
> if ( pdfparentoutline == 0 )
> pdflastoutline = pdffirstoutline ;
> else pdflastoutline = pdfmem [objtab [pdfparentoutline ].int4 + 4 ]
> ;
> while ( pdfmem [objtab [pdflastoutline ].int4 + 3 ]!= 0 )
> pdflastoutline = pdfmem [objtab [pdflastoutline ].int4 + 3 ];
> }
> }
> break ;
> case 8 :
> {
> zcheckpdfoutput((strnumber) (1790), (boolean) (1)) ;
> scanint () ;
> zpdfcheckobj((integer) (6), (integer) (curval)) ;
> znewwhatsit((smallnumber) (8), (smallnumber) (2)) ;
> mem [curlist .tailfield + 1 ].hh .v.LH = curval ;
> }
> break ;
> case 10 :
> {
> zcheckpdfoutput((strnumber) (1794), (boolean) (1)) ;
> scanint () ;
> zpdfcheckobj((integer) (7), (integer) (curval)) ;
> znewwhatsit((smallnumber) (10), (smallnumber) (5)) ;
> mem [curlist .tailfield + 4 ].hh .v.LH = curval ;
> mem [curlist .tailfield + 1 ].cint = pdfmem [objtab [curval ].int4
> + 0 ];
> mem [curlist .tailfield + 2 ].cint = pdfmem [objtab [curval ].int4
> + 1 ];
> mem [curlist .tailfield + 3 ].cint = pdfmem [objtab [curval ].int4
> + 2 ];
> }
> break ;
> case 12 :
> {
> zcheckpdfoutput((strnumber) (1809), (boolean) (1)) ;
> scanint () ;
> zpdfcheckobj((integer) (8), (integer) (curval)) ;
> znewwhatsit((smallnumber) (12), (smallnumber) (5)) ;
> mem [curlist .tailfield + 4 ].hh .v.LH = curval ;
> mem [curlist .tailfield + 1 ].cint = pdfmem [objtab [curval ].int4
> + 0 ];
> mem [curlist .tailfield + 2 ].cint = pdfmem [objtab [curval ].int4
> + 1 ];
> mem [curlist .tailfield + 3 ].cint = pdfmem [objtab [curval ].int4
> + 2 ];
> }
> break ;
> case 21 :
> {
> znewwhatsit((smallnumber) (21), (smallnumber) (2)) ;
> }
> break ;
> case 33 :
> {
> zcheckpdfoutput((strnumber) (1848), (boolean) (1)) ;
> znewwhatsit((smallnumber) (33), (smallnumber) (2)) ;
> }
> break ;
> case 35 :
> {
> zcheckpdfoutput((strnumber) (1851), (boolean) (1)) ;
> znewwhatsit((smallnumber) (35), (smallnumber) (2)) ;
> scanint () ;
> mem [curlist .tailfield + 1 ].cint = zfixint((integer) (curval), (integer) (0), (integer) (1000)) ;
> }
> break ;
> case 34 :
> {
> zcheckpdfoutput((strnumber) (1850), (boolean) (1)) ;
> {
> mem [curlist .tailfield ].hh .v.RH = znewsnapnode((smallnumber) (34)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> break ;
> case 14 :
> {
> zcheckpdfoutput((strnumber) (1825), (boolean) (1)) ;
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 )
> zpdferror((strnumber) (1763), (strnumber) (1826)) ;
> k = pdfnewobjnum () ;
> znewannotwhatsit((smallnumber) (14), (smallnumber) (7)) ;
> mem [curlist .tailfield + 5 ].hh .v.RH = scanaction () ;
> mem [curlist .tailfield + 6 ].cint = k ;
> pdflastlink = k ;
> }
> break ;
> case 19 :
> {
> zcheckpdfoutput((strnumber) (1846), (boolean) (1)) ;
> znewannotwhatsit((smallnumber) (19), (smallnumber) (7)) ;
> scanthreadid () ;
> }
> break ;
> case 18 :
> {
> zcheckpdfoutput((strnumber) (1845), (boolean) (1)) ;
> znewannotwhatsit((smallnumber) (18), (smallnumber) (7)) ;
> scanthreadid () ;
> }
> break ;
> case 29 :
> {
> zcheckpdfoutput((strnumber) (1857), (boolean) (0)) ;
> scanpdfexttoks () ;
> if ( eqtb [27239 ].cint > 0 )
> pdftrailertoks = zconcattokens((halfword) (pdftrailertoks), (halfword) (defref)) ;
> }
> break ;
> case 9 :
> {
> zcheckpdfoutput((strnumber) (1791), (boolean) (1)) ;
> ++(pdfxformcount) ;
> zpdfcreateobj((integer) (7), (integer) (pdfxformcount)) ;
> k = objptr ;
> objtab [k ].int4 = zpdfgetmem((integer) (6)) ;
> if ( zscankeyword((strnumber) (1788)) )
> {
> scanpdfexttoks () ;
> pdfmem [objtab [k ].int4 + 4 ]= defref ;
> }
> else pdfmem [objtab [k ].int4 + 4 ]= -268435455L ;
> if ( zscankeyword((strnumber) (1792)) )
> {
> scanpdfexttoks () ;
> pdfmem [objtab [k ].int4 + 5 ]= defref ;
> }
> else pdfmem [objtab [k ].int4 + 5 ]= -268435455L ;
> scanregisternum () ;
> if ( curval < 256 )
> p = eqtb [25333 + curval ].hh .v.RH ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr == -268435455L )
> p = -268435455L ;
> else p = mem [curptr + 1 ].hh .v.RH ;
> }
> if ( p == -268435455L )
> zpdferror((strnumber) (1763), (strnumber) (1793)) ;
> pdfmem [objtab [k ].int4 + 0 ]= mem [p + 1 ].cint ;
> pdfmem [objtab [k ].int4 + 1 ]= mem [p + 3 ].cint ;
> pdfmem [objtab [k ].int4 + 2 ]= mem [p + 2 ].cint ;
> pdfmem [objtab [k ].int4 + 3 ]= p ;
> if ( curval < 256 )
> eqtb [25333 + curval ].hh .v.RH = -268435455L ;
> else {
>
> zfindsaelement((smallnumber) (4), (halfword) (curval), (boolean) (0)) ;
> if ( curptr != -268435455L )
> {
> mem [curptr + 1 ].hh .v.RH = -268435455L ;
> ++(mem [curptr + 1 ].hh .v.LH) ;
> zdeletesaref((halfword) (curptr)) ;
> }
> }
> pdflastxform = k ;
> }
> break ;
> case 11 :
> {
> zcheckpdfoutput((strnumber) (1808), (boolean) (1)) ;
> checkpdfminorversion () ;
> scanimage () ;
> }
> break ;
> case 30 :
> {
> get_seconds_and_micros (&(epochseconds), &(microseconds)) ;
> }
> break ;
> case 32 :
> {
> scanint () ;
> if ( curval < 0 )
> curval = - (integer) curval ;
> randomseed = curval ;
> zinitrandoms((integer) (randomseed)) ;
> }
> break ;
> case 36 :
> {
> glyphtounicode () ;
> }
> break ;
> case 41 :
> {
> zcheckpdfoutput((strnumber) (1861), (boolean) (1)) ;
> scanfontident () ;
> k = curval ;
> if ( k == 0 )
> zpdferror((strnumber) (592), (strnumber) (872)) ;
> pdffontnobuiltintounicode [k ]= 1 ;
> }
> break ;
> case 42 :
> {
> zcheckpdfoutput((strnumber) (1862), (boolean) (1)) ;
> znewwhatsit((smallnumber) (42), (smallnumber) (2)) ;
> }
> break ;
> case 43 :
> {
> zcheckpdfoutput((strnumber) (1863), (boolean) (1)) ;
> znewwhatsit((smallnumber) (43), (smallnumber) (2)) ;
> }
> break ;
> case 44 :
> {
> zcheckpdfoutput((strnumber) (1864), (boolean) (1)) ;
> znewwhatsit((smallnumber) (44), (smallnumber) (2)) ;
> }
> break ;
> default:
> zconfusion((strnumber) (1763)) ;
> break ;
> }
>}
>void
>fixlanguage ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> ASCIIcode l ;
> if ( eqtb [27227 ].cint <= 0 )
> l = 0 ;
> else if ( eqtb [27227 ].cint > 255 )
> l = 0 ;
> else l = eqtb [27227 ].cint ;
> if ( l != curlist .auxfield .hh .v.RH )
> {
> znewwhatsit((smallnumber) (4), (smallnumber) (2)) ;
> mem [curlist .tailfield + 1 ].hh .v.RH = l ;
> curlist .auxfield .hh .v.RH = l ;
> mem [curlist .tailfield + 1 ].hh.u.B0 = znormmin((integer) (eqtb [27228 ].cint)) ;
> mem [curlist .tailfield + 1 ].hh.u.B1 = znormmin((integer) (eqtb [27229 ].cint)) ;
> }
>}
>void
>insertsrcspecial ( void )
>{
> register memoryword *mem=zmem;
> halfword toklist, p, q ;
> if ( ( sourcefilenamestack [inopen ]> 0 && isnewsource (
> sourcefilenamestack [inopen ], line ) ) )
> {
> toklist = getavail () ;
> p = toklist ;
> mem [p ].hh .v.LH = 19619 ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = 379 ;
> q = zstrtoks((poolpointer) (makesrcspecial ( sourcefilenamestack [inopen ], line ))) ;
> mem [p ].hh .v.RH = mem [memtop - 3 ].hh .v.RH ;
> p = q ;
> mem [p ].hh .v.RH = getavail () ;
> p = mem [p ].hh .v.RH ;
> mem [p ].hh .v.LH = 637 ;
> zbegintokenlist((halfword) (toklist), (quarterword) (4)) ;
> remembersourceinfo ( sourcefilenamestack [inopen ], line ) ;
> }
>}
>void
>appendsrcspecial ( void )
>{
> register memoryword *mem=zmem;
> halfword q ;
> if ( ( sourcefilenamestack [inopen ]> 0 && isnewsource (
> sourcefilenamestack [inopen ], line ) ) )
> {
> znewwhatsit((smallnumber) (3), (smallnumber) (2)) ;
> mem [curlist .tailfield + 1 ].hh.u.B0 = 0 ;
> defref = getavail () ;
> mem [defref ].hh .v.LH = -268435455L ;
> q = zstrtoks((poolpointer) (makesrcspecial ( sourcefilenamestack [inopen ], line ))) ;
> mem [defref ].hh .v.RH = mem [memtop - 3 ].hh .v.RH ;
> mem [curlist .tailfield + 1 ].hh .v.RH = defref ;
> remembersourceinfo ( sourcefilenamestack [inopen ], line ) ;
> }
>}
>void
>handlerightbrace ( void )
>{
> register memoryword *mem=zmem, *eqtb=zeqtb;
> halfword p, q ;
> scaled d ;
> integer f ;
> switch ( curgroup )
> {case 1 :
> unsave () ;
> break ;
> case 0 :
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1444)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1445 ;
> helpline [0 ]= 1446 ;
> }
> error () ;
> }
> break ;
> case 14 :
> case 15 :
> case 16 :
> extrarightbrace () ;
> break ;
> case 2 :
> zpackage((smallnumber) (0)) ;
> break ;
> case 3 :
> {
> adjusttail = memtop - 5 ;
> preadjusttail = memtop - 14 ;
> zpackage((smallnumber) (0)) ;
> }
> break ;
> case 4 :
> {
> endgraf () ;
> zpackage((smallnumber) (0)) ;
> }
> break ;
> case 5 :
> {
> endgraf () ;
> zpackage((smallnumber) (4)) ;
> }
> break ;
> case 11 :
> {
> endgraf () ;
> q = eqtb [24538 ].hh .v.RH ;
> ++(mem [q ].hh .v.RH) ;
> d = eqtb [27798 ].cint ;
> f = eqtb [27219 ].cint ;
> unsave () ;
> saveptr = saveptr - 2 ;
> p = zvpackage((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (0), (smallnumber) (1), (scaled) (1073741823L))
> ;
> popnest () ;
> if ( savestack [saveptr + 0 ].cint < 255 )
> {
> {
> mem [curlist .tailfield ].hh .v.RH = zgetnode((integer) (5)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 3 ;
> mem [curlist .tailfield ].hh.u.B1 = savestack [saveptr + 0 ].cint ;
> mem [curlist .tailfield + 3 ].cint = mem [p + 3 ].cint + mem [p +
> 2 ].cint ;
> mem [curlist .tailfield + 4 ].hh .v.LH = mem [p + 5 ].hh .v.RH ;
> mem [curlist .tailfield + 4 ].hh .v.RH = q ;
> mem [curlist .tailfield + 2 ].cint = d ;
> mem [curlist .tailfield + 1 ].cint = f ;
> }
> else {
>
> {
> mem [curlist .tailfield ].hh .v.RH = zgetnode((integer) (2)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 5 ;
> mem [curlist .tailfield ].hh.u.B1 = savestack [saveptr + 1 ].cint ;
> mem [curlist .tailfield + 1 ].cint = mem [p + 5 ].hh .v.RH ;
> zdeleteglueref((halfword) (q)) ;
> }
> zfreenode((halfword) (p), (halfword) (9)) ;
> if ( nestptr == 0 )
> buildpage () ;
> }
> break ;
> case 8 :
> {
> if ( ( curinput .locfield != -268435455L ) || ( ( curinput .indexfield
> != 6 ) && ( curinput .indexfield != 3 ) ) )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1412)) ;
> }
> {
> helpptr = 2 ;
> helpline [1 ]= 1413 ;
> helpline [0 ]= 1414 ;
> }
> error () ;
> do {
> gettoken () ;
> } while ( ! ( curinput .locfield == -268435455L ) ) ;
> }
> endtokenlist () ;
> endgraf () ;
> unsave () ;
> outputactive = 0 ;
> insertpenalties = 0 ;
> if ( eqtb [25588 ].hh .v.RH != -268435455L )
> {
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1415)) ;
> }
> zprintesc((strnumber) (429)) ;
> zprintint((longinteger) (255)) ;
> {
> helpptr = 3 ;
> helpline [2 ]= 1416 ;
> helpline [1 ]= 1417 ;
> helpline [0 ]= 1418 ;
> }
> zboxerror((eightbits) (255)) ;
> }
> if ( curlist .tailfield != curlist .headfield )
> {
> mem [pagetail ].hh .v.RH = mem [curlist .headfield ].hh .v.RH ;
> pagetail = curlist .tailfield ;
> }
> if ( mem [memtop - 2 ].hh .v.RH != -268435455L )
> {
> if ( mem [memtop - 1 ].hh .v.RH == -268435455L )
> nest [0 ].tailfield = pagetail ;
> mem [pagetail ].hh .v.RH = mem [memtop - 1 ].hh .v.RH ;
> mem [memtop - 1 ].hh .v.RH = mem [memtop - 2 ].hh .v.RH ;
> mem [memtop - 2 ].hh .v.RH = -268435455L ;
> pagetail = memtop - 2 ;
> }
> zflushnodelist((halfword) (discptr [2 ])) ;
> discptr [2 ]= -268435455L ;
> popnest () ;
> buildpage () ;
> }
> break ;
> case 10 :
> builddiscretionary () ;
> break ;
> case 6 :
> {
> backinput () ;
> curtok = 19610 ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (712)) ;
> }
> zprintesc((strnumber) (1296)) ;
> zprint((integer) (713)) ;
> {
> helpptr = 1 ;
> helpline [0 ]= 1528 ;
> }
> inserror () ;
> }
> break ;
> case 7 :
> {
> endgraf () ;
> unsave () ;
> alignpeek () ;
> }
> break ;
> case 12 :
> {
> endgraf () ;
> unsave () ;
> saveptr = saveptr - 2 ;
> p = zvpackage((halfword) (mem [curlist .headfield ].hh .v.RH), (scaled) (savestack [ saveptr + 1 ].cint), (smallnumber) (savestack [saveptr + 0 ].cint), (scaled) (1073741823L))
> ;
> popnest () ;
> {
> mem [curlist .tailfield ].hh .v.RH = newnoad () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = 29 ;
> mem [curlist .tailfield + 1 ].hh .v.RH = 2 ;
> mem [curlist .tailfield + 1 ].hh .v.LH = p ;
> }
> break ;
> case 13 :
> buildchoices () ;
> break ;
> case 9 :
> {
> unsave () ;
> --(saveptr) ;
> mem [savestack [saveptr + 0 ].cint ].hh .v.RH = 3 ;
> p = zfinmlist((halfword) (-268435455L)) ;
> mem [savestack [saveptr + 0 ].cint ].hh .v.LH = p ;
> if ( p != -268435455L ) {
>
> if ( mem [p ].hh .v.RH == -268435455L ) {
>
> if ( mem [p ].hh.u.B0 == 16 )
> {
> if ( mem [p + 3 ].hh .v.RH == 0 ) {
>
> if ( mem [p + 2 ].hh .v.RH == 0 )
> {
> mem [savestack [saveptr + 0 ].cint ].hh = mem [p + 1 ]
> .hh ;
> zfreenode((halfword) (p), (halfword) (4)) ;
> }
> }
> }
> else if ( mem [p ].hh.u.B0 == 28 ) {
>
> if ( savestack [saveptr + 0 ].cint == curlist .tailfield + 1 ) {
>
> if ( mem [curlist .tailfield ].hh.u.B0 == 16 )
> {
> q = curlist .headfield ;
> while ( mem [q ].hh .v.RH != curlist .tailfield ) q = mem [
> q ].hh .v.RH ;
> mem [q ].hh .v.RH = p ;
> zfreenode((halfword) (curlist .tailfield), (halfword) (4)) ;
> curlist .tailfield = p ;
> }
> }
> }
> }
> }
> }
> break ;
> default:
> zconfusion((strnumber) (1447)) ;
> break ;
> }
>}
>void
>maincontrol ( void )
>{
>
> register memoryword *mem=zmem, *eqtb=zeqtb;
> integer t ;
> halfword tmpk1, tmpk2 ;
> if ( eqtb [25065 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25065 ].hh .v.RH), (quarterword) (12)) ;
> lab60: getxtoken () ;
> lab21: if ( interrupt != 0 ) {
>
> if ( OKtointerrupt )
> {
> backinput () ;
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
> goto lab60 ;
> }
> }
> ;
>
>
>
>
> if ( eqtb [27213 ].cint > 0 )
> showcurcmdchr () ;
> switch ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) + curcmd )
> {case 115 :
> case 116 :
> case 172 :
> goto lab70 ;
> break ;
> case 120 :
> {
> scancharnum () ;
> curchr = curval ;
> goto lab70 ;
> }
> break ;
> case 169 :
> {
> getxtoken () ;
> if ( ( curcmd == 11 ) || ( curcmd == 12 ) || ( curcmd == 68 ) || (
> curcmd == 16 ) )
> cancelboundary = 1 ;
> goto lab21 ;
> }
> break ;
> case 114 :
> if ( ( curlist .auxfield .hh .v.LH == 1000 ) || ( eqtb [27260 ].cint > 0
> ) )
> goto lab120 ;
> else appspace () ;
> break ;
> case 168 :
> case 271 :
> goto lab120 ;
> break ;
> case 1 :
> case 104 :
> case 207 :
> case 11 :
> case 217 :
> case 272 :
> ;
> break ;
> case 40 :
> case 143 :
> case 246 :
> {
> if ( curchr == 0 )
> {
> do {
> getxtoken () ;
> } while ( ! ( curcmd != 10 ) ) ;
> goto lab21 ;
> }
> else {
>
> t = scannerstatus ;
> scannerstatus = 0 ;
> getnext () ;
> scannerstatus = t ;
> if ( curcs < 514 )
> curcs = zprimlookup((strnumber) (curcs - 257)) ;
> else curcs = zprimlookup((strnumber) (hash [curcs ].v.RH)) ;
> if ( curcs != 0 )
> {
> curcmd = primeqtb [curcs ].hh.u.B0 ;
> curchr = primeqtb [curcs ].hh .v.RH ;
> goto lab21 ;
> }
> }
> }
> break ;
> case 15 :
> if ( itsallover () )
> return ;
> break ;
> case 23 :
> case 125 :
> case 228 :
> case 71 :
> case 174 :
> case 277 :
> case 39 :
> case 45 :
> case 49 :
> case 152 :
> case 7 :
> case 110 :
> case 213 :
> reportillegalcase () ;
> break ;
> case 8 :
> case 111 :
> case 9 :
> case 112 :
> case 18 :
> case 121 :
> case 70 :
> case 173 :
> case 51 :
> case 154 :
> case 16 :
> case 119 :
> case 50 :
> case 153 :
> case 53 :
> case 156 :
> case 67 :
> case 170 :
> case 54 :
> case 157 :
> case 55 :
> case 158 :
> case 57 :
> case 160 :
> case 56 :
> case 159 :
> case 31 :
> case 134 :
> case 52 :
> case 155 :
> case 29 :
> case 132 :
> case 47 :
> case 150 :
> case 216 :
> case 220 :
> case 221 :
> case 234 :
> case 231 :
> case 240 :
> case 243 :
> insertdollarsign () ;
> break ;
> case 37 :
> case 139 :
> case 242 :
> {
> {
> mem [curlist .tailfield ].hh .v.RH = scanrulespec () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 1 )
> curlist .auxfield .cint = eqtb [27824 ].cint ;
> else if ( ((integer)(curlist .modefield) >= 0 ? (integer)(curlist .modefield) : (integer)-(curlist .modefield)) == 104 )
> curlist .auxfield .hh .v.LH = 1000 ;
> }
> break ;
> case 28 :
> case 130 :
> case 233 :
> case 235 :
> appendglue () ;
> break ;
> case 30 :
> case 133 :
> case 236 :
> case 237 :
> appendkern () ;
> break ;
> case 2 :
> case 105 :
> znewsavelevel((groupcode) (1)) ;
> break ;
> case 62 :
> case 165 :
> case 268 :
> znewsavelevel((groupcode) (14)) ;
> break ;
> case 63 :
> case 166 :
> case 269 :
> if ( curgroup == 14 )
> unsave () ;
> else offsave () ;
> break ;
> case 3 :
> case 106 :
> case 209 :
> handlerightbrace () ;
> break ;
> case 22 :
> case 126 :
> case 229 :
> {
> t = curchr ;
> zscandimen((boolean) (0), (boolean) (0), (boolean) (0)) ;
> if ( t == 0 )
> zscanbox((integer) (curval)) ;
> else zscanbox((integer) (- (integer) curval)) ;
> }
> break ;
> case 32 :
> case 135 :
> case 238 :
> zscanbox((integer) (1073807261L + curchr)) ;
> break ;
> case 21 :
> case 124 :
> case 227 :
> zbeginbox((integer) (0)) ;
> break ;
> case 44 :
> znewgraf((boolean) (curchr > 0)) ;
> break ;
> case 12 :
> case 13 :
> case 17 :
> case 69 :
> case 4 :
> case 24 :
> case 36 :
> case 46 :
> case 48 :
> case 27 :
> case 34 :
> case 65 :
> case 66 :
> {
> backinput () ;
> znewgraf((boolean) (1)) ;
> }
> break ;
> case 147 :
> case 250 :
> if ( curchr != 2 )
> indentinhmode () ;
> break ;
> case 14 :
> {
> normalparagraph () ;
> if ( curlist .modefield > 0 )
> buildpage () ;
> }
> break ;
> case 117 :
> {
> if ( alignstate < 0 )
> offsave () ;
> endgraf () ;
> if ( curlist .modefield == 1 )
> buildpage () ;
> }
> break ;
> case 118 :
> case 131 :
> case 140 :
> case 128 :
> case 136 :
> headforvmode () ;
> break ;
> case 38 :
> case 141 :
> case 244 :
> case 142 :
> case 245 :
> begininsertoradjust () ;
> break ;
> case 19 :
> case 122 :
> case 225 :
> makemark () ;
> break ;
> case 43 :
> case 146 :
> case 249 :
> appendpenalty () ;
> break ;
> case 26 :
> case 129 :
> case 232 :
> deletelast () ;
> break ;
> case 25 :
> case 127 :
> case 230 :
> unpackage () ;
> break ;
> case 148 :
> appenditaliccorrection () ;
> break ;
> case 251 :
> {
> mem [curlist .tailfield ].hh .v.RH = znewkern((scaled) (0)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> break ;
> case 151 :
> case 254 :
> appenddiscretionary () ;
> break ;
> case 149 :
> makeaccent () ;
> break ;
> case 6 :
> case 109 :
> case 212 :
> case 5 :
> case 108 :
> case 211 :
> alignerror () ;
> break ;
> case 35 :
> case 138 :
> case 241 :
> noalignerror () ;
> break ;
> case 64 :
> case 167 :
> case 270 :
> omiterror () ;
> break ;
> case 33 :
> initalign () ;
> break ;
> case 137 :
> if ( curchr > 0 )
> {
> if ( zeTeXenabled((boolean) (( eqtb [27278 ].cint > 0 )), (quarterword) (curcmd), (halfword) (curchr)) )
> {
> mem [curlist .tailfield ].hh .v.RH = znewmath((scaled) (0), (smallnumber) (curchr)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> else initalign () ;
> break ;
> case 239 :
> if ( privileged () ) {
>
> if ( curgroup == 15 )
> initalign () ;
> else offsave () ;
> }
> break ;
> case 10 :
> case 113 :
> doendv () ;
> break ;
> case 68 :
> case 171 :
> case 274 :
> cserror () ;
> break ;
> case 107 :
> initmath () ;
> break ;
> case 255 :
> if ( privileged () ) {
>
> if ( curgroup == 15 )
> starteqno () ;
> else offsave () ;
> }
> break ;
> case 208 :
> {
> {
> mem [curlist .tailfield ].hh .v.RH = newnoad () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> backinput () ;
> zscanmath((halfword) (curlist .tailfield + 1)) ;
> }
> break ;
> case 218 :
> case 219 :
> case 275 :
> zsetmathchar((integer) (eqtb [26665 + curchr ].hh .v.RH)) ;
> break ;
> case 223 :
> {
> scancharnum () ;
> curchr = curval ;
> zsetmathchar((integer) (eqtb [26665 + curchr ].hh .v.RH)) ;
> }
> break ;
> case 224 :
> {
> scanfifteenbitint () ;
> zsetmathchar((integer) (curval)) ;
> }
> break ;
> case 276 :
> zsetmathchar((integer) (curchr)) ;
> break ;
> case 222 :
> {
> scantwentysevenbitint () ;
> zsetmathchar((integer) (curval / 4096)) ;
> }
> break ;
> case 257 :
> {
> {
> mem [curlist .tailfield ].hh .v.RH = newnoad () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B0 = curchr ;
> zscanmath((halfword) (curlist .tailfield + 1)) ;
> }
> break ;
> case 258 :
> mathlimitswitch () ;
> break ;
> case 273 :
> mathradical () ;
> break ;
> case 252 :
> case 253 :
> mathac () ;
> break ;
> case 263 :
> {
> zscanspec((groupcode) (12), (boolean) (0)) ;
> normalparagraph () ;
> pushnest () ;
> curlist .modefield = -1 ;
> curlist .auxfield .cint = eqtb [27824 ].cint ;
> if ( ( insertsrcspecialeveryvbox ) )
> insertsrcspecial () ;
> if ( eqtb [25064 ].hh .v.RH != -268435455L )
> zbegintokenlist((halfword) (eqtb [25064 ].hh .v.RH), (quarterword) (11)) ;
> }
> break ;
> case 260 :
> {
> mem [curlist .tailfield ].hh .v.RH = znewstyle((smallnumber) (curchr)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> break ;
> case 262 :
> {
> {
> mem [curlist .tailfield ].hh .v.RH = znewglue((halfword) (membot)) ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> mem [curlist .tailfield ].hh.u.B1 = 98 ;
> }
> break ;
> case 261 :
> appendchoices () ;
> break ;
> case 215 :
> case 214 :
> subsup () ;
> break ;
> case 259 :
> mathfraction () ;
> break ;
> case 256 :
> mathleftright () ;
> break ;
> case 210 :
> if ( curgroup == 15 )
> aftermath () ;
> else offsave () ;
> break ;
> case 72 :
> case 175 :
> case 278 :
> case 73 :
> case 176 :
> case 279 :
> case 74 :
> case 177 :
> case 280 :
> case 75 :
> case 178 :
> case 281 :
> case 76 :
> case 179 :
> case 282 :
> case 77 :
> case 180 :
> case 283 :
> case 78 :
> case 181 :
> case 284 :
> case 79 :
> case 182 :
> case 285 :
> case 80 :
> case 183 :
> case 286 :
> case 81 :
> case 184 :
> case 287 :
> case 82 :
> case 185 :
> case 288 :
> case 83 :
> case 186 :
> case 289 :
> case 84 :
> case 187 :
> case 290 :
> case 85 :
> case 188 :
> case 291 :
> case 86 :
> case 189 :
> case 292 :
> case 87 :
> case 190 :
> case 293 :
> case 88 :
> case 191 :
> case 294 :
> case 89 :
> case 192 :
> case 295 :
> case 102 :
> case 205 :
> case 308 :
> case 103 :
> case 206 :
> case 309 :
> case 90 :
> case 193 :
> case 296 :
> case 91 :
> case 194 :
> case 297 :
> case 92 :
> case 195 :
> case 298 :
> case 93 :
> case 196 :
> case 299 :
> case 94 :
> case 197 :
> case 300 :
> case 95 :
> case 198 :
> case 301 :
> case 96 :
> case 199 :
> case 302 :
> case 97 :
> case 200 :
> case 303 :
> case 98 :
> case 201 :
> case 304 :
> case 99 :
> case 202 :
> case 305 :
> case 100 :
> case 203 :
> case 306 :
> case 101 :
> case 204 :
> case 307 :
> prefixedcommand () ;
> break ;
> case 41 :
> case 144 :
> case 247 :
> {
> gettoken () ;
> aftertoken = curtok ;
> }
> break ;
> case 42 :
> case 145 :
> case 248 :
> {
> gettoken () ;
> zsaveforafter((halfword) (curtok)) ;
> }
> break ;
> case 61 :
> case 164 :
> case 267 :
> openorclosein () ;
> break ;
> case 59 :
> case 162 :
> case 265 :
> issuemessage () ;
> break ;
> case 58 :
> case 161 :
> case 264 :
> shiftcase () ;
> break ;
> case 20 :
> case 123 :
> case 226 :
> showwhatever () ;
> break ;
> case 60 :
> case 163 :
> case 266 :
> doextension () ;
> break ;
> }
> goto lab60 ;
> lab70: if ( ( ( curlist .headfield == curlist .tailfield ) && ( curlist
> .modefield > 0 ) ) )
> {
> if ( ( insertsrcspecialauto ) )
> appendsrcspecial () ;
> }
> mains = eqtb [26409 + curchr ].hh .v.RH ;
> if ( mains == 1000 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else if ( mains < 1000 )
> {
> if ( mains > 0 )
> curlist .auxfield .hh .v.LH = mains ;
> }
> else if ( curlist .auxfield .hh .v.LH < 1000 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else curlist .auxfield .hh .v.LH = mains ;
> savetail = -268435455L ;
> mainf = eqtb [25589 ].hh .v.RH ;
> bchar = fontbchar [mainf ];
> falsebchar = fontfalsebchar [mainf ];
> if ( curlist .modefield > 0 ) {
>
> if ( eqtb [27227 ].cint != curlist .auxfield .hh .v.RH )
> fixlanguage () ;
> }
> {
> ligstack = avail ;
> if ( ligstack == -268435455L )
> ligstack = getavail () ;
> else {
>
> avail = mem [ligstack ].hh .v.RH ;
> mem [ligstack ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [ligstack ].hh.u.B0 = mainf ;
> curl = curchr ;
> mem [ligstack ].hh.u.B1 = curl ;
> curq = curlist .tailfield ;
> tmpk1 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> if ( tmpk1 != -268435455L )
> {
> if ( curl < 256 )
> {
> if ( mem [curq ].hh .v.RH > -268435455L ) {
>
> if ( mem [curlist .tailfield ].hh.u.B1 == hyphenchar [mainf ])
> insdisc = 1 ;
> }
> if ( ligaturepresent )
> {
> mainp = znewligature((internalfontnumber) (mainf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [mainp ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( rthit ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [mainp ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> if ( eqtb [27261 ].cint > 0 )
> tmpk2 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> else tmpk2 = -268435455L ;
> if ( tmpk2 == -268435455L )
> {
> mem [curq ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> else {
>
> mem [curq ].hh .v.RH = tmpk2 ;
> mem [tmpk2 ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> }
> if ( insdisc )
> {
> insdisc = 0 ;
> if ( curlist .modefield > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> }
> savetail = curlist .tailfield ;
> {
> mem [curlist .tailfield ].hh .v.RH = tmpk1 ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> goto lab90 ;
> }
> if ( cancelboundary )
> {
> cancelboundary = 0 ;
> maink = 0 ;
> }
> else maink = bcharlabel [mainf ];
> if ( maink == 0 )
> goto lab92 ;
> curr = curl ;
> curl = 256 ;
> goto lab111 ;
> lab80: if ( curl < 256 )
> {
> if ( mem [curq ].hh .v.RH > -268435455L ) {
>
> if ( mem [curlist .tailfield ].hh.u.B1 == hyphenchar [mainf ])
> insdisc = 1 ;
> }
> if ( ligaturepresent )
> {
> mainp = znewligature((internalfontnumber) (mainf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [mainp ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( rthit ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [mainp ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> if ( eqtb [27261 ].cint > 0 )
> tmpk2 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> else tmpk2 = -268435455L ;
> if ( tmpk2 == -268435455L )
> {
> mem [curq ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> else {
>
> mem [curq ].hh .v.RH = tmpk2 ;
> mem [tmpk2 ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> }
> if ( insdisc )
> {
> insdisc = 0 ;
> if ( curlist .modefield > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> }
> lab90: if ( ligstack == -268435455L )
> goto lab21 ;
> curq = curlist .tailfield ;
> curl = mem [ligstack ].hh.u.B1 ;
> lab91: if ( ! ( ligstack >= himemmin ) )
> goto lab95 ;
> lab92: if ( ( zeffectivechar((boolean) (0), (internalfontnumber) (mainf), (quarterword) (curchr)) > fontec [mainf ])
> || ( zeffectivechar((boolean) (0), (internalfontnumber) (mainf), (quarterword) (curchr)) < fontbc [mainf ]) )
> {
> zcharwarning((internalfontnumber) (mainf), (eightbits) (curchr)) ;
> {
> mem [ligstack ].hh .v.RH = avail ;
> avail = ligstack ;
> ;
>
> --(dynused) ;
>
> }
> goto lab60 ;
> }
> maini = zeffectivecharinfo((internalfontnumber) (mainf), (quarterword) (curl)) ;
> if ( ! ( maini .u.B0 > 0 ) )
> {
> zcharwarning((internalfontnumber) (mainf), (eightbits) (curchr)) ;
> {
> mem [ligstack ].hh .v.RH = avail ;
> avail = ligstack ;
> ;
>
> --(dynused) ;
>
> }
> goto lab60 ;
> }
> mem [curlist .tailfield ].hh .v.RH = ligstack ;
> curlist .tailfield = ligstack ;
> lab100: getnext () ;
> if ( curcmd == 11 )
> goto lab101 ;
> if ( curcmd == 12 )
> goto lab101 ;
> if ( curcmd == 68 )
> goto lab101 ;
> xtoken () ;
> if ( curcmd == 11 )
> goto lab101 ;
> if ( curcmd == 12 )
> goto lab101 ;
> if ( curcmd == 68 )
> goto lab101 ;
> if ( curcmd == 16 )
> {
> scancharnum () ;
> curchr = curval ;
> goto lab101 ;
> }
> if ( curcmd == 65 )
> bchar = 256 ;
> curr = bchar ;
> ligstack = -268435455L ;
> goto lab110 ;
> lab101: mains = eqtb [26409 + curchr ].hh .v.RH ;
> if ( mains == 1000 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else if ( mains < 1000 )
> {
> if ( mains > 0 )
> curlist .auxfield .hh .v.LH = mains ;
> }
> else if ( curlist .auxfield .hh .v.LH < 1000 )
> curlist .auxfield .hh .v.LH = 1000 ;
> else curlist .auxfield .hh .v.LH = mains ;
> {
> ligstack = avail ;
> if ( ligstack == -268435455L )
> ligstack = getavail () ;
> else {
>
> avail = mem [ligstack ].hh .v.RH ;
> mem [ligstack ].hh .v.RH = -268435455L ;
> ;
>
> ++(dynused) ;
>
> }
> }
> mem [ligstack ].hh.u.B0 = mainf ;
> curr = curchr ;
> mem [ligstack ].hh.u.B1 = curr ;
> if ( curr == falsebchar )
> curr = 256 ;
> lab110: tmpk1 = zgetautokern((internalfontnumber) (mainf), (halfword) (curl), (halfword) (curr)) ;
> if ( tmpk1 != -268435455L )
> {
> if ( curl < 256 )
> {
> if ( mem [curq ].hh .v.RH > -268435455L ) {
>
> if ( mem [curlist .tailfield ].hh.u.B1 == hyphenchar [mainf ])
> insdisc = 1 ;
> }
> if ( ligaturepresent )
> {
> mainp = znewligature((internalfontnumber) (mainf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [mainp ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( rthit ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [mainp ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> if ( eqtb [27261 ].cint > 0 )
> tmpk2 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> else tmpk2 = -268435455L ;
> if ( tmpk2 == -268435455L )
> {
> mem [curq ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> else {
>
> mem [curq ].hh .v.RH = tmpk2 ;
> mem [tmpk2 ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> }
> if ( insdisc )
> {
> insdisc = 0 ;
> if ( curlist .modefield > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> }
> savetail = curlist .tailfield ;
> {
> mem [curlist .tailfield ].hh .v.RH = tmpk1 ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> goto lab90 ;
> }
> if ( ( ( maini .u.B2 ) % 4 ) != 1 )
> goto lab80 ;
> if ( curr == 256 )
> goto lab80 ;
> maink = ligkernbase [mainf ]+ maini .u.B3 ;
> mainj = fontinfo [maink ].qqqq ;
> if ( mainj .u.B0 <= 128 )
> goto lab112 ;
> maink = ligkernbase [mainf ]+ 256 * mainj .u.B2 + mainj .u.B3 + 32768L - 256 *
> ( 128 ) ;
> lab111: mainj = fontinfo [maink ].qqqq ;
> lab112: if ( mainj .u.B1 == curr ) {
>
> if ( mainj .u.B0 <= 128 )
> {
> if ( mainj .u.B2 >= 128 )
> {
> if ( curl < 256 )
> {
> if ( mem [curq ].hh .v.RH > -268435455L ) {
>
> if ( mem [curlist .tailfield ].hh.u.B1 == hyphenchar [mainf ])
> insdisc = 1 ;
> }
> if ( ligaturepresent )
> {
> mainp = znewligature((internalfontnumber) (mainf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [mainp ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( rthit ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [mainp ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> if ( eqtb [27261 ].cint > 0 )
> tmpk2 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> else tmpk2 = -268435455L ;
> if ( tmpk2 == -268435455L )
> {
> mem [curq ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> else {
>
> mem [curq ].hh .v.RH = tmpk2 ;
> mem [tmpk2 ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> }
> if ( insdisc )
> {
> insdisc = 0 ;
> if ( curlist .modefield > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> }
> {
> mem [curlist .tailfield ].hh .v.RH = znewkern((scaled) (fontinfo [kernbase [mainf ]+ 256 * mainj .u.B2 + mainj .u.B3 ].cint))
> ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> goto lab90 ;
> }
> if ( curl == 256 )
> lfthit = 1 ;
> else if ( ligstack == -268435455L )
> rthit = 1 ;
> {
> if ( interrupt != 0 )
> pauseforinstructions () ;
> }
> switch ( mainj .u.B2 )
> {case 1 :
> case 5 :
> {
> curl = mainj .u.B3 ;
> maini = fontinfo [charbase [mainf ]+ zeffectivechar((boolean) (1), (internalfontnumber) (mainf), (quarterword) (curl))
> ].qqqq ;
> ligaturepresent = 1 ;
> }
> break ;
> case 2 :
> case 6 :
> {
> curr = mainj .u.B3 ;
> if ( ligstack == -268435455L )
> {
> ligstack = znewligitem((quarterword) (curr)) ;
> bchar = 256 ;
> }
> else if ( ( ligstack >= himemmin ) )
> {
> mainp = ligstack ;
> ligstack = znewligitem((quarterword) (curr)) ;
> mem [ligstack + 1 ].hh .v.RH = mainp ;
> }
> else mem [ligstack ].hh.u.B1 = curr ;
> }
> break ;
> case 3 :
> {
> curr = mainj .u.B3 ;
> mainp = ligstack ;
> ligstack = znewligitem((quarterword) (curr)) ;
> mem [ligstack ].hh .v.RH = mainp ;
> }
> break ;
> case 7 :
> case 11 :
> {
> if ( curl < 256 )
> {
> if ( mem [curq ].hh .v.RH > -268435455L ) {
>
> if ( mem [curlist .tailfield ].hh.u.B1 == hyphenchar [mainf ])
> insdisc = 1 ;
> }
> if ( ligaturepresent )
> {
> mainp = znewligature((internalfontnumber) (mainf), (quarterword) (curl), (halfword) (mem [curq ].hh .v.RH)) ;
> if ( lfthit )
> {
> mem [mainp ].hh.u.B1 = 2 ;
> lfthit = 0 ;
> }
> if ( 0 ) {
>
> if ( ligstack == -268435455L )
> {
> ++(mem [mainp ].hh.u.B1) ;
> rthit = 0 ;
> }
> }
> if ( eqtb [27261 ].cint > 0 )
> tmpk2 = zgetautokern((internalfontnumber) (mainf), (halfword) (256), (halfword) (curl)) ;
> else tmpk2 = -268435455L ;
> if ( tmpk2 == -268435455L )
> {
> mem [curq ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> else {
>
> mem [curq ].hh .v.RH = tmpk2 ;
> mem [tmpk2 ].hh .v.RH = mainp ;
> curlist .tailfield = mainp ;
> ligaturepresent = 0 ;
> }
> }
> if ( insdisc )
> {
> insdisc = 0 ;
> if ( curlist .modefield > 0 )
> {
> mem [curlist .tailfield ].hh .v.RH = newdisc () ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> }
> }
> curq = curlist .tailfield ;
> curl = mainj .u.B3 ;
> maini = fontinfo [charbase [mainf ]+ zeffectivechar((boolean) (1), (internalfontnumber) (mainf), (quarterword) (curl))
> ].qqqq ;
> ligaturepresent = 1 ;
> }
> break ;
> default:
> {
> curl = mainj .u.B3 ;
> ligaturepresent = 1 ;
> if ( ligstack == -268435455L )
> goto lab80 ;
> else goto lab91 ;
> }
> break ;
> }
> if ( mainj .u.B2 > 4 ) {
>
> if ( mainj .u.B2 != 7 )
> goto lab80 ;
> }
> if ( curl < 256 )
> goto lab110 ;
> maink = bcharlabel [mainf ];
> goto lab111 ;
> }
> }
> if ( mainj .u.B0 == 0 )
> ++(maink) ;
> else {
>
> if ( mainj .u.B0 >= 128 )
> goto lab80 ;
> maink = maink + mainj .u.B0 + 1 ;
> }
> goto lab111 ;
> lab95: mainp = mem [ligstack + 1 ].hh .v.RH ;
> if ( mainp > -268435455L )
> {
> mem [curlist .tailfield ].hh .v.RH = mainp ;
> curlist .tailfield = mem [curlist .tailfield ].hh .v.RH ;
> }
> tempptr = ligstack ;
> ligstack = mem [tempptr ].hh .v.RH ;
> zfreenode((halfword) (tempptr), (halfword) (2)) ;
> maini = fontinfo [charbase [mainf ]+ zeffectivechar((boolean) (1), (internalfontnumber) (mainf), (quarterword) (curl))
> ].qqqq ;
> ligaturepresent = 1 ;
> if ( ligstack == -268435455L ) {
>
> if ( mainp > -268435455L )
> goto lab100 ;
> else curr = bchar ;
> }
> else curr = mem [ligstack ].hh.u.B1 ;
> goto lab110 ;
> lab120: if ( eqtb [24540 ].hh .v.RH == membot )
> {
> {
> mainp = fontglue [eqtb [25589 ].hh .v.RH ];
> if ( mainp == -268435455L )
> {
> mainp = znewspec((halfword) (membot)) ;
> maink = parambase [eqtb [25589 ].hh .v.RH ]+ 2 ;
> mem [mainp + 1 ].cint = fontinfo [maink ].cint ;
> mem [mainp + 2 ].cint = fontinfo [maink + 1 ].cint ;
> mem [mainp + 3 ].cint = fontinfo [maink + 2 ].cint ;
> fontglue [eqtb [25589 ].hh .v.RH ]= mainp ;
> }
> }
> tempptr = znewglue((halfword) (mainp)) ;
> }
> else tempptr = znewparamglue((smallnumber) (12)) ;
> if ( eqtb [27260 ].cint > 0 )
> zadjustinterwordglue((halfword) (curlist .tailfield), (halfword) (tempptr)) ;
> mem [curlist .tailfield ].hh .v.RH = tempptr ;
> curlist .tailfield = tempptr ;
> goto lab60 ;
>}
>void
>giveerrhelp ( void )
>{
> register memoryword *eqtb=zeqtb;
> ztokenshow((halfword) (eqtb [25067 ].hh .v.RH)) ;
>}
>boolean
>openfmtfile ( void )
>{
> register boolean Result;
> integer j ;
> j = curinput .locfield ;
> if ( buffer [curinput .locfield ]== 38 )
> {
> ++(curinput .locfield) ;
> j = curinput .locfield ;
> buffer [last ]= 32 ;
> while ( buffer [j ]!= 32 ) ++(j) ;
> zpackbufferedname((smallnumber) (0), (integer) (curinput .locfield), (integer) (j - 1)) ;
> if ( open_input (&(fmtfile), kpse_fmt_format, "rb") )
> goto lab40 ;
> (void) fputs ("Sorry, I can't find the format `", stdout) ;
> fputs ( ((string) (nameoffile + 1)) , stdout ) ;
> (void) fputs ("'; will try `", stdout) ;
> fputs ( TEXformatdefault + 1 , stdout ) ;
> fprintf ( stdout , "%s\n", "'." ) ;
> fflush ( stdout ) ;
> }
> zpackbufferedname((smallnumber) (formatdefaultlength - 4), (integer) (1), (integer) (0)) ;
> if ( ! open_input (&(fmtfile), kpse_fmt_format, "rb") )
> {
> ;
> (void) fputs ("I can't find the format file `", stdout) ;
> fputs ( TEXformatdefault + 1 , stdout ) ;
> fprintf ( stdout , "%s\n", "'!" ) ;
> Result = 0 ;
> return Result ;
> }
> lab40: curinput .locfield = j ;
> Result = 1 ;
> return Result ;
>}
>void
>closefilesandterminate ( void )
>{
> register memoryword *eqtb=zeqtb;
> integer a, b, c, i, j, k, l ;
> boolean isroot ;
> boolean isnames ;
> integer root, outlines, threads, namestree, dests ;
> integer xrefoffsetwidth, nameshead, namestail ;
> {register integer for_end; k = 0 ;for_end = 15 ; if ( k <= for_end) do
> if ( writeopen [k ])
> close_file_or_pipe(writefile [k ]) ;
> while ( k++ < for_end ) ;}
> ;
>
> if ( eqtb [27208 ].cint > 0 ) {
>
> if ( logopened )
> {
> { _IO_putc (' ', logfile); _IO_putc ('\n', logfile); }
> fprintf ( logfile , "%s%s\n", "Here is how much of TeX's memory" , " you used:" )
> ;
> fprintf ( logfile , "%c%ld%s", ' ' , (long)strptr - initstrptr , " string" ) ;
> if ( strptr != initstrptr + 1 )
> _IO_putc ('s', logfile);
> fprintf ( logfile , "%s%ld\n", " out of " , (long)maxstrings - initstrptr ) ;
> fprintf ( logfile , "%c%ld%s%ld\n", ' ' , (long)poolptr - initpoolptr , " string characters out of " , (long)poolsize - initpoolptr ) ;
> fprintf ( logfile , "%c%ld%s%ld\n", ' ' , (long)lomemmax - memmin + memend - himemmin + 2 , " words of memory out of " , (long)memend + 1 - memmin ) ;
> fprintf ( logfile , "%c%ld%s%ld%c%ld\n", ' ' , (long)cscount , " multiletter control sequences out of " , (long)15000 , '+' , (long)hashextra ) ;
> fprintf ( logfile , "%c%ld%s%ld%s", ' ' , (long)fmemptr , " words of font info for " , (long)fontptr - 0 , " font" ) ;
> if ( fontptr != 1 )
> _IO_putc ('s', logfile);
> fprintf ( logfile , "%s%ld%s%ld\n", ", out of " , (long)fontmemsize , " for " , (long)fontmax - 0 )
> ;
> fprintf ( logfile , "%c%ld%s", ' ' , (long)hyphcount , " hyphenation exception" ) ;
> if ( hyphcount != 1 )
> _IO_putc ('s', logfile);
> fprintf ( logfile , "%s%ld\n", " out of " , (long)hyphsize ) ;
> fprintf ( logfile , "%c%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%s%ld%c\n", ' ' , (long)maxinstack , "i," , (long)maxneststack , "n," , (long)maxparamstack , "p," , (long)maxbufstack + 1 , "b," , (long)maxsavestack + 6 , "s stack positions out of " , (long)stacksize , "i," , (long)nestsize , "n," , (long)paramsize , "p," , (long)bufsize , "b," , (long)savesize , 's' ) ;
> }
> }
>
> if ( ! fixedpdfoutputset )
> fixpdfoutput () ;
> if ( fixedpdfoutput > 0 )
> {
> if ( history == 3 )
> {
> removepdffile () ;
> synctexabort ( logopened ) ;
> {
> if ( interaction == 3 )
> ;
> if ( filelineerrorstylep )
> printfileline () ;
> else zprintnl((strnumber) (264)) ;
> zprint((integer) (1708)) ;
> }
> }
> else {
>
> if ( totalpages == 0 )
> {
> zprintnl((strnumber) (994)) ;
> if ( pdfgone > 0 )
> garbagewarning () ;
> }
> else {
>
> if ( fixedpdfdraftmode == 0 )
> {
> pdfflush () ;
> if ( totalpages % 6 != 0 )
> objtab [pdflastpages ].int0 = totalpages % 6 ;
> flushjbig2page0objects () ;
> k = headtab [1 ];
> while ( objtab [k ].int4 == 0 ) {
>
> zpdfwarning((strnumber) (1183), (strnumber) (1188), (boolean) (0), (boolean) (0)) ;
> zprintint((longinteger) (objtab [k ].int0)) ;
> zprint((integer) (1189)) ;
> println () ;
> println () ;
> k = objtab [k ].int1 ;
> }
> headtab [1 ]= k ;
> k = headtab [1 ];
> l = 0 ;
> do {
> i = objtab [k ].int1 ;
> objtab [k ].int1 = l ;
> l = k ;
> k = i ;
> } while ( ! ( k == 0 ) ) ;
> headtab [1 ]= l ;
> k = headtab [2 ];
> pagestail = k ;
> l = 0 ;
> do {
> i = objtab [k ].int1 ;
> objtab [k ].int1 = l ;
> l = k ;
> k = i ;
> } while ( ! ( k == 0 ) ) ;
> headtab [2 ]= l ;
> k = headtab [5 ];
> while ( k != 0 ) {
>
> zpdffixdest((integer) (k)) ;
> k = objtab [k ].int1 ;
> }
> {register integer for_end; k = 1 ;for_end = fontptr ; if ( k <=
> for_end) do
> if ( fontused [k ]&& hasfmentry ( k ) && ( pdffontnum [k ]< 0
> ) )
> {
> i = - (integer) pdffontnum [k ];
> ((pdffontnum [i ]> 0) ? (void) (0) : __assert_fail ("pdffontnum [i ]> 0", "pdftex0.c", 39608, __PRETTY_FUNCTION__)) ;
> {register integer for_end; j = 0 ;for_end = 255 ; if ( j <=
> for_end) do
> if ( (boolean)(pdfcharused[k][j/8] & (1<<(j%8))) )
> pdfcharused[i][j/8] |= (1<<(j%8)) ;
> while ( j++ < for_end ) ;}
> if ( ( ( strstart [pdffontattr [i ]+ 1 ]- strstart [
> pdffontattr [i ]]) == 0 ) && ( ( strstart [pdffontattr [k ]
> + 1 ]- strstart [pdffontattr [k ]]) != 0 ) )
> pdffontattr [i ]= pdffontattr [k ];
> else if ( ( ( strstart [pdffontattr [k ]+ 1 ]- strstart [
> pdffontattr [k ]]) == 0 ) && ( ( strstart [pdffontattr [i ]
> + 1 ]- strstart [pdffontattr [i ]]) != 0 ) )
> pdffontattr [k ]= pdffontattr [i ];
> else if ( ( ( strstart [pdffontattr [i ]+ 1 ]- strstart [
> pdffontattr [i ]]) != 0 ) && ( ( strstart [pdffontattr [k ]
> + 1 ]- strstart [pdffontattr [k ]]) != 0 ) && ! zstreqstr((strnumber) (pdffontattr [i ]), (strnumber) (pdffontattr [k ]))
> )
> {
> zpdfwarning((strnumber) (1190), (strnumber) (1191), (boolean) (0), (boolean) (0)) ;
> zprintfontidentifier((internalfontnumber) (i)) ;
> zprint((integer) (1192)) ;
> zprintfontidentifier((internalfontnumber) (k)) ;
> zprint((integer) (1193)) ;
> zprintfontidentifier((internalfontnumber) (i)) ;
> println () ;
> println () ;
> }
> }
> while ( k++ < for_end ) ;}
> fixedgentounicode = eqtb [27263 ].cint ;
> k = headtab [3 ];
> while ( k != 0 ) {
>
> f = objtab [k ].int0 ;
> ((pdffontnum [f ]> 0) ? (void) (0) : __assert_fail ("pdffontnum [f ]> 0", "pdftex0.c", 39643, __PRETTY_FUNCTION__)) ;
> dopdffont ( k , f ) ;
> k = objtab [k ].int1 ;
> }
> writefontstuff () ;
> a = sysobjptr + 1 ;
> l = headtab [2 ];
> k = headtab [1 ];
> b = 0 ;
> do {
> i = 0 ;
> c = 0 ;
> if ( objtab [l ].int1 == 0 )
> isroot = 1 ;
> else isroot = 0 ;
> do {
> if ( ! isroot )
> {
> if ( i % 6 == 0 )
> {
> pdflastpages = pdfnewobjnum () ;
> if ( c == 0 )
> c = pdflastpages ;
> objtab [pagestail ].int1 = pdflastpages ;
> pagestail = pdflastpages ;
> objtab [pdflastpages ].int1 = 0 ;
> objtab [pdflastpages ].int0 = objtab [l ].int0 ;
> }
> else objtab [pdflastpages ].int0 = objtab [pdflastpages ]
> .int0 + objtab [l ].int0 ;
> }
> zpdfbegindict((integer) (l), (integer) (1)) ;
> {
> zpdfprint((strnumber) (1194)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfintentryln((strnumber) (1178), (integer) (objtab [l ].int0)) ;
> if ( ! isroot )
> zpdfindirectln((strnumber) (1153), (integer) (pdflastpages)) ;
> zpdfprint((strnumber) (1195)) ;
> j = 0 ;
> do {
> zpdfprintint((longinteger) (k)) ;
> zpdfprint((strnumber) (1139)) ;
> k = objtab [k ].int1 ;
> ++(j) ;
> } while ( ! ( ( ( l < a ) && ( j == objtab [l ].int0 ) ) || (
> k == 0 ) || ( ( k == b ) && ( b != 0 ) ) || ( j == 6 ) ) ) ;
> removelastspace () ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( k == 0 )
> {
> k = headtab [2 ];
> headtab [2 ]= 0 ;
> }
> if ( isroot && ( eqtb [25068 ].hh .v.RH != -268435455L ) )
> zpdfprinttoksln((halfword) (eqtb [25068 ].hh .v.RH)) ;
> pdfenddict () ;
> ++(i) ;
> l = objtab [l ].int1 ;
> } while ( ! ( ( l == c ) ) ) ;
> b = c ;
> if ( l == 0 )
> goto lab30 ;
> } while ( ! ( 0 ) ) ;
> lab30: ;
> if ( pdffirstoutline != 0 )
> {
> zpdfnewdict((integer) (0), (integer) (0), (integer) (1)) ;
> outlines = objptr ;
> l = pdffirstoutline ;
> k = 0 ;
> do {
> ++(k) ;
> a = zopensubentries((halfword) (l)) ;
> if ( objtab [l ].int0 > 0 )
> k = k + a ;
> pdfmem [objtab [l ].int4 + 1 ]= objptr ;
> l = pdfmem [objtab [l ].int4 + 3 ];
> } while ( ! ( l == 0 ) ) ;
> {
> zpdfprint((strnumber) (1175)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (1176), (integer) (pdffirstoutline)) ;
> zpdfindirectln((strnumber) (1177), (integer) (pdflastoutline)) ;
> zpdfintentryln((strnumber) (1178), (integer) (k)) ;
> pdfenddict () ;
> k = headtab [4 ];
> while ( k != 0 ) {
>
> if ( pdfmem [objtab [k ].int4 + 1 ]== pdfparentoutline )
> {
> if ( pdfmem [objtab [k ].int4 + 2 ]== 0 )
> pdffirstoutline = k ;
> if ( pdfmem [objtab [k ].int4 + 3 ]== 0 )
> pdflastoutline = k ;
> }
> zpdfbegindict((integer) (k), (integer) (1)) ;
> zpdfindirectln((strnumber) (1179), (integer) (pdfmem [objtab [k ].int4 ])) ;
> zpdfindirectln((strnumber) (65), (integer) (pdfmem [objtab [k ].int4 + 6 ])) ;
> if ( pdfmem [objtab [k ].int4 + 1 ]!= 0 )
> zpdfindirectln((strnumber) (1153), (integer) (pdfmem [objtab [k ].int4 + 1 ])) ;
> if ( pdfmem [objtab [k ].int4 + 2 ]!= 0 )
> zpdfindirectln((strnumber) (1180), (integer) (pdfmem [objtab [k ].int4 + 2 ])) ;
> if ( pdfmem [objtab [k ].int4 + 3 ]!= 0 )
> zpdfindirectln((strnumber) (1181), (integer) (pdfmem [objtab [k ].int4 + 3 ])) ;
> if ( pdfmem [objtab [k ].int4 + 4 ]!= 0 )
> zpdfindirectln((strnumber) (1176), (integer) (pdfmem [objtab [k ].int4 + 4 ])) ;
> if ( pdfmem [objtab [k ].int4 + 5 ]!= 0 )
> zpdfindirectln((strnumber) (1177), (integer) (pdfmem [objtab [k ].int4 + 5 ])) ;
> if ( objtab [k ].int0 != 0 )
> zpdfintentryln((strnumber) (1178), (integer) (objtab [k ].int0)) ;
> if ( pdfmem [objtab [k ].int4 + 7 ]!= 0 )
> {
> zpdfprinttoksln((halfword) (pdfmem [objtab [k ].int4 + 7 ])) ;
> {
> zdeletetokenref((halfword) (pdfmem [objtab [k ].int4 + 7 ])) ;
> pdfmem [objtab [k ].int4 + 7 ]= -268435455L ;
> }
> }
> pdfenddict () ;
> k = objtab [k ].int1 ;
> }
> }
> else outlines = 0 ;
> if ( pdfdestnamesptr == 0 )
> {
> dests = 0 ;
> goto lab31 ;
> }
> zsortdestnames((integer) (0), (integer) (pdfdestnamesptr - 1)) ;
> nameshead = 0 ;
> namestail = 0 ;
> k = 0 ;
> isnames = 1 ;
> b = 0 ;
> do {
> do { zpdfcreateobj((integer) (0), (integer) (0)) ;
> l = objptr ;
> if ( b == 0 )
> b = l ;
> if ( nameshead == 0 )
> {
> nameshead = l ;
> namestail = l ;
> }
> else {
>
> objtab [namestail ].int1 = l ;
> namestail = l ;
> }
> objtab [namestail ].int1 = 0 ;
> zpdfbegindict((integer) (l), (integer) (1)) ;
> j = 0 ;
> if ( isnames )
> {
> objtab [l ].int0 = destnames [k ].objname ;
> zpdfprint((strnumber) (1197)) ;
> do {
> zpdfprintstr((strnumber) (destnames [k ].objname)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintint((longinteger) (destnames [k ].objnum)) ;
> zpdfprint((strnumber) (1139)) ;
> ++(j) ;
> ++(k) ;
> } while ( ! ( ( j == 6 ) || ( k == pdfdestnamesptr ) ) ) ;
> removelastspace () ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> objtab [l ].int4 = destnames [k - 1 ].objname ;
> if ( k == pdfdestnamesptr )
> {
> isnames = 0 ;
> k = nameshead ;
> b = 0 ;
> }
> }
> else {
>
> objtab [l ].int0 = objtab [k ].int0 ;
> zpdfprint((strnumber) (1195)) ;
> do {
> zpdfprintint((longinteger) (k)) ;
> zpdfprint((strnumber) (1139)) ;
> ++(j) ;
> objtab [l ].int4 = objtab [k ].int4 ;
> k = objtab [k ].int1 ;
> } while ( ! ( ( j == 6 ) || ( k == b ) || ( objtab [k ].int1
> == 0 ) ) ) ;
> removelastspace () ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( k == b )
> b = 0 ;
> }
> zpdfprint((strnumber) (1198)) ;
> zpdfprintstr((strnumber) (objtab [l ].int0)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 32 ;
> ++(pdfptr) ;
> }
> }
> zpdfprintstr((strnumber) (objtab [l ].int4)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfenddict () ;
> } while ( ! ( b == 0 ) ) ;
> if ( k == l )
> {
> dests = l ;
> goto lab31 ;
> }
> } while ( ! ( 0 ) ) ;
> lab31: if ( ( dests != 0 ) || ( pdfnamestoks != -268435455L ) )
> {
> zpdfnewdict((integer) (0), (integer) (0), (integer) (1)) ;
> if ( ( dests != 0 ) )
> zpdfindirectln((strnumber) (1196), (integer) (dests)) ;
> if ( pdfnamestoks != -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfnamestoks)) ;
> {
> zdeletetokenref((halfword) (pdfnamestoks)) ;
> pdfnamestoks = -268435455L ;
> }
> }
> pdfenddict () ;
> namestree = objptr ;
> }
> else namestree = 0 ;
> if ( headtab [9 ]!= 0 )
> {
> zpdfnewobj((integer) (0), (integer) (0), (integer) (1)) ;
> threads = objptr ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 91 ;
> ++(pdfptr) ;
> }
> }
> k = headtab [9 ];
> while ( k != 0 ) {
>
> zpdfprintint((longinteger) (k)) ;
> zpdfprint((strnumber) (1139)) ;
> k = objtab [k ].int1 ;
> }
> removelastspace () ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfendobj () ;
> k = headtab [9 ];
> while ( k != 0 ) {
>
> zoutthread((integer) (k)) ;
> k = objtab [k ].int1 ;
> }
> }
> else threads = 0 ;
> zpdfnewdict((integer) (0), (integer) (0), (integer) (1)) ;
> root = objptr ;
> {
> zpdfprint((strnumber) (1199)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (1200), (integer) (pdflastpages)) ;
> if ( threads != 0 )
> zpdfindirectln((strnumber) (1201), (integer) (threads)) ;
> if ( outlines != 0 )
> zpdfindirectln((strnumber) (1202), (integer) (outlines)) ;
> if ( namestree != 0 )
> zpdfindirectln((strnumber) (1203), (integer) (namestree)) ;
> if ( pdfcatalogtoks != -268435455L )
> {
> zpdfprinttoksln((halfword) (pdfcatalogtoks)) ;
> {
> zdeletetokenref((halfword) (pdfcatalogtoks)) ;
> pdfcatalogtoks = -268435455L ;
> }
> }
> if ( pdfcatalogopenaction != 0 )
> zpdfindirectln((strnumber) (1204), (integer) (pdfcatalogopenaction)) ;
> pdfenddict () ;
> pdfprintinfo () ;
> if ( pdfosenable )
> {
> zpdfosswitch((boolean) (1)) ;
> pdfoswriteobjstream () ;
> pdfflush () ;
> zpdfosswitch((boolean) (0)) ;
> zpdfnewdict((integer) (0), (integer) (0), (integer) (0)) ;
> if ( ( ( objtab [sysobjptr ].int2 / ((double) 256 ) ) >
> 16777215L ) )
> xrefoffsetwidth = 5 ;
> else if ( objtab [sysobjptr ].int2 > 16777215L )
> xrefoffsetwidth = 4 ;
> else if ( objtab [sysobjptr ].int2 > 65535L )
> xrefoffsetwidth = 3 ;
> else xrefoffsetwidth = 2 ;
> l = 0 ;
> objtab [l ].int2 = -2 ;
> {register integer for_end; k = 1 ;for_end = sysobjptr ; if ( k
> <= for_end) do
> if ( ! ( objtab [k ].int2 > -1 ) )
> {
> objtab [l ].int1 = k ;
> l = k ;
> }
> while ( k++ < for_end ) ;}
> objtab [l ].int1 = 0 ;
> {
> zpdfprint((strnumber) (1220)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1221)) ;
> zpdfprintint((longinteger) (objptr + 1)) ;
> {
> zpdfprint((strnumber) (93)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfintentryln((strnumber) (1222), (integer) (objptr + 1)) ;
> zpdfprint((strnumber) (1223)) ;
> zpdfprintint((longinteger) (xrefoffsetwidth)) ;
> {
> zpdfprint((strnumber) (1224)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfindirectln((strnumber) (1225), (integer) (root)) ;
> zpdfindirectln((strnumber) (1226), (integer) (objptr - 1)) ;
> if ( pdftrailertoks != -268435455L )
> {
> zpdfprinttoksln((halfword) (pdftrailertoks)) ;
> {
> zdeletetokenref((halfword) (pdftrailertoks)) ;
> pdftrailertoks = -268435455L ;
> }
> }
> printID ( outputfilename ) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> pdfbeginstream () ;
> {register integer for_end; k = 0 ;for_end = sysobjptr ; if ( k
> <= for_end) do
> {
> if ( ! ( objtab [k ].int2 > -1 ) )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 0 ;
> ++(pdfptr) ;
> }
> }
> zpdfoutbytes((longinteger) (objtab [k ].int1), (integer) (xrefoffsetwidth)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 255 ;
> ++(pdfptr) ;
> }
> }
> }
> else {
>
> if ( objtab [k ].int3 == -1 )
> {
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 1 ;
> ++(pdfptr) ;
> }
> }
> zpdfoutbytes((longinteger) (objtab [k ].int2), (integer) (xrefoffsetwidth)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 0 ;
> ++(pdfptr) ;
> }
> }
> }
> else {
>
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 2 ;
> ++(pdfptr) ;
> }
> }
> zpdfoutbytes((longinteger) (objtab [k ].int2), (integer) (xrefoffsetwidth)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= objtab [k ].int3 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> }
> while ( k++ < for_end ) ;}
> pdfendstream () ;
> pdfflush () ;
> }
> else {
>
> l = 0 ;
> objtab [l ].int2 = -2 ;
> {register integer for_end; k = 1 ;for_end = sysobjptr ; if ( k
> <= for_end) do
> if ( ! ( objtab [k ].int2 > -1 ) )
> {
> objtab [l ].int1 = k ;
> l = k ;
> }
> while ( k++ < for_end ) ;}
> objtab [l ].int1 = 0 ;
> pdfsaveoffset = ( pdfgone + pdfptr ) ;
> {
> zpdfprint((strnumber) (1215)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1216)) ;
> {
> zpdfprintint((longinteger) (objptr + 1)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprintfwint((longinteger) (objtab [0 ].int1), (integer) (10)) ;
> {
> zpdfprint((strnumber) (1217)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {register integer for_end; k = 1 ;for_end = objptr ; if ( k <=
> for_end) do
> {
> if ( ! ( objtab [k ].int2 > -1 ) )
> {
> zpdfprintfwint((longinteger) (objtab [k ].int1), (integer) (10)) ;
> {
> zpdfprint((strnumber) (1218)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> else {
>
> zpdfprintfwint((longinteger) (objtab [k ].int2), (integer) (10)) ;
> {
> zpdfprint((strnumber) (1219)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> }
> while ( k++ < for_end ) ;}
> }
> if ( ! pdfosenable )
> {
> {
> zpdfprint((strnumber) (1227)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> zpdfprint((strnumber) (1228)) ;
> zpdfintentryln((strnumber) (1222), (integer) (sysobjptr + 1)) ;
> zpdfindirectln((strnumber) (1225), (integer) (root)) ;
> zpdfindirectln((strnumber) (1226), (integer) (sysobjptr)) ;
> if ( pdftrailertoks != -268435455L )
> {
> zpdfprinttoksln((halfword) (pdftrailertoks)) ;
> {
> zdeletetokenref((halfword) (pdftrailertoks)) ;
> pdftrailertoks = -268435455L ;
> }
> }
> printID ( outputfilename ) ;
> {
> zpdfprint((strnumber) (1229)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> }
> {
> zpdfprint((strnumber) (1230)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> if ( pdfosenable )
> {
> zpdfprintint((longinteger) (objtab [sysobjptr ].int2)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> else {
>
> zpdfprintint((longinteger) (pdfsaveoffset)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> {
> zpdfprint((strnumber) (1231)) ;
> {
> {
> if ( pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> zpdfosgetosbuf((integer) (1)) ;
> else if ( ! pdfosmode && ( 1 > pdfbufsize ) )
> zoverflow((strnumber) (1002), (integer) (( 16384 ))) ;
> else if ( ! pdfosmode && ( 1 + pdfptr > pdfbufsize ) )
> pdfflush () ;
> }
> {
> pdfbuf [pdfptr ]= 10 ;
> ++(pdfptr) ;
> }
> }
> }
> pdfflush () ;
> zprintnl((strnumber) (995)) ;
> zprintfilename((integer) (0), (integer) (outputfilename), (integer) (0)) ;
> zprint((integer) (286)) ;
> zprintint((longinteger) (totalpages)) ;
> zprint((integer) (997)) ;
> if ( totalpages != 1 )
> zprintchar((ASCIIcode) (115)) ;
> zprint((integer) (998)) ;
> zprintint((longinteger) (( pdfgone + pdfptr ))) ;
> zprint((integer) (999)) ;
> }
> libpdffinish () ;
> if ( fixedpdfdraftmode == 0 )
> close_file_or_pipe(pdffile) ;
> else zpdfwarning((strnumber) (0), (strnumber) (1182), (boolean) (1), (boolean) (1)) ;
> }
> if ( logopened )
> {
> _IO_putc ('\n', logfile);
> fprintf ( logfile , "%s\n", "PDF statistics:" ) ;
> fprintf ( logfile , "%c%ld%s%ld%s%ld%c\n", ' ' , (long)objptr , " PDF objects out of " , (long)objtabsize , " (max. " , (long)( 8388607L ) , ')' ) ;
> if ( pdfoscntr > 0 )
> {
> fprintf ( logfile , "%c%ld%s%ld%s", ' ' , (long)( ( pdfoscntr - 1 ) * ( 100 ) + pdfosobjidx + 1 ) , " compressed objects within " , (long)pdfoscntr , " object stream" ) ;
> if ( pdfoscntr > 1 )
> _IO_putc ('s', logfile);
> _IO_putc ('\n', logfile);
> }
> fprintf ( logfile , "%c%ld%s%ld%s%ld%c\n", ' ' , (long)pdfdestnamesptr , " named destinations out of " , (long)destnamessize , " (max. " , (long)( 500000L ) , ')' ) ;
> fprintf ( logfile , "%c%ld%s%ld%s%ld%c\n", ' ' , (long)pdfmemptr , " words of extra memory for PDF output out of " , (long)pdfmemsize , " (max. " , (long)( 10000000L ) , ')' ) ;
> }
> }
> }
> else {
>
> while ( curs > -1 ) {
>
> if ( curs > 0 )
> {
> dvibuf [dviptr ]= 142 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> else {
>
> {
> dvibuf [dviptr ]= 140 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> ++(totalpages) ;
> }
> --(curs) ;
> }
> if ( totalpages == 0 )
> zprintnl((strnumber) (994)) ;
> else if ( curs != -2 )
> {
> {
> dvibuf [dviptr ]= 248 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (lastbop)) ;
> lastbop = dvioffset + dviptr - 5 ;
> zdvifour((integer) (25400000L)) ;
> zdvifour((integer) (473628672L)) ;
> preparemag () ;
> zdvifour((integer) (eqtb [27194 ].cint)) ;
> zdvifour((integer) (maxv)) ;
> zdvifour((integer) (maxh)) ;
> {
> dvibuf [dviptr ]= maxpush / 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= maxpush % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= ( totalpages / 256 ) % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> {
> dvibuf [dviptr ]= totalpages % 256 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> while ( fontptr > 0 ) {
>
> if ( fontused [fontptr ])
> zdvifontdef((internalfontnumber) (fontptr)) ;
> --(fontptr) ;
> }
> {
> dvibuf [dviptr ]= 249 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> zdvifour((integer) (lastbop)) ;
> {
> dvibuf [dviptr ]= 2 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> ;
>
> k = 7 - ( ( 3 + dvioffset + dviptr ) % 4 ) ;
>
> ;
>
>
>
> while ( k > 0 ) {
>
> {
> dvibuf [dviptr ]= 223 ;
> ++(dviptr) ;
> if ( dviptr == dvilimit )
> dviswap () ;
> }
> --(k) ;
> }
> if ( dvilimit == halfbuf )
> if ((size_t) fwrite ((char *) &dvibuf[halfbuf], sizeof (dvibuf[halfbuf]), (size_t) ((size_t)(dvibufsize - 1) - (size_t)(halfbuf) + 1), dvifile) != (size_t) ((size_t) (dvibufsize - 1) - (size_t) (halfbuf) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> if ( dviptr > ( 2147483647L - dvioffset ) )
> {
> curs = -2 ;
> zfatalerror((strnumber) (983)) ;
> }
> if ( dviptr > 0 )
> if ((size_t) fwrite ((char *) &dvibuf[0], sizeof (dvibuf[0]), (size_t) ((size_t)(dviptr - 1) - (size_t)(0) + 1), dvifile) != (size_t) ((size_t) (dviptr - 1) - (size_t) (0) + 1)) do { fprintf (stderr, "%s: ", kpse_def->invocation_name); perror ("fwrite"); exit (1); } while (0); ;
> zprintnl((strnumber) (995)) ;
> zprintfilename((integer) (0), (integer) (outputfilename), (integer) (0)) ;
> zprint((integer) (286)) ;
> zprintint((longinteger) (totalpages)) ;
> if ( totalpages != 1 )
> zprint((integer) (996)) ;
> else zprint((integer) (997)) ;
> zprint((integer) (998)) ;
> zprintint((longinteger) (dvioffset + dviptr)) ;
> zprint((integer) (999)) ;
> close_file_or_pipe(dvifile) ;
> }
> }
> synctexterminate ( logopened ) ;
> if ( logopened )
> {
> _IO_putc ('\n', logfile);
> close_file_or_pipe(logfile) ;
> selector = selector - 2 ;
> if ( selector == 17 )
> {
> zprintnl((strnumber) (1709)) ;
> zprintfilename((integer) (0), (integer) (texmflogname), (integer) (0)) ;
> zprintchar((ASCIIcode) (46)) ;
> }
> }
> println () ;
> if ( ( editnamestart != 0 ) && ( interaction > 0 ) )
> calledit ( strpool , editnamestart , editnamelength , editline ) ;
>}
># 40797 "pdftex0.c"
>strnumber
>getnullstr ( void )
>{
> register strnumber Result;
> Result = 345 ;
> return Result ;
>}
>
>int main(int argc, char **argv)
>{
> macrocall();
> return 0;
>}

Actions: View

Attachments on bug 1117799: 916753 | 916754 | 920715