Login
[x]
Log in using an account from:
Fedora Account System
Red Hat Associate
Red Hat Customer
Or login using a Red Hat Bugzilla account
Forgot Password
Login:
Hide Forgot
Create an Account
Red Hat Bugzilla – Attachment 916753 Details for
Bug 1117799
tests fail when texlive is compiled with gcc-4.9.0-12.fc21
[?]
New
Simple Search
Advanced Search
My Links
Browse
Requests
Reports
Current State
Search
Tabular reports
Graphical reports
Duplicates
Other Reports
User Changes
Plotly Reports
Bug Status
Bug Severity
Non-Defaults
|
Product Dashboard
Help
Page Help!
Bug Writing Guidelines
What's new
Browser Support Policy
5.0.4.rh83 Release notes
FAQ
Guides index
User guide
Web Services
Contact
Legal
This site requires JavaScript to be enabled to function correctly, please enable it.
pdftex0.i
pdftex0.i (text/plain), 1.17 MB, created by
Michal Toman
on 2014-07-09 12:18:29 UTC
(
hide
)
Description:
pdftex0.i
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)) < u ) ) ; > 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 ]) < i + ( strstart [r + 1 ]- > 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 < i ) ) > { > objtab [objptr ].int1 = p ; > headtab [t ]= objptr ; > } > else { > > while ( p != 0 ) { > > if ( objtab [p ].int0 < i ) > 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 < p ) { > > 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; >}
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 1117799
: 916753 |
916754
|
920715