#undef TRIP
#undef TRAP
#define STAT
#define INI
#define INIMP
#define MP
#ifdef TEXMF_DEBUG
#endif /* TEXMF_DEBUG */
#define MPCOERCE
#include "texmfmp.h"
/* 1 9998 9999 */
#define maxinternal ( 300 )
#define bufsize ( 3000 )
#define emergencylinelength ( 255 )
#define stacksize ( 300 )
#define maxreadfiles ( 30 )
#define stringsvacant ( 1000 )
#define fontmax ( 50 )
#define fontmemsize ( 10000 )
#define poolname ( "mp.pool" )
#define pstabname ( "psfonts.map" )
#define pathsize ( 1000 )
#define bistacksize ( 1500 )
#define headersize ( 100 )
#define ligtablesize ( 15000 )
#define maxkerns ( 2500 )
#define maxfontdimen ( 50 )
#define infmainmemory ( 2999 )
#define supmainmemory ( 8000000L )
#define infmaxstrings ( 2500 )
#define supmaxstrings ( 32767 )
#define infpoolsize ( 32000 )
#define suppoolsize ( 10000000L )
#define infpoolfree ( 1000 )
#define suppoolfree ( suppoolsize )
#define infstringvacancies ( 8000 )
#define supstringvacancies ( suppoolsize - 23000 )
typedef unsigned char ASCIIcode ;
typedef unsigned char eightbits ;
typedef text /* of ASCIIcode */ alphafile ;
typedef text /* of eightbits */ bytefile ;
typedef integer poolpointer ;
typedef integer strnumber ;
typedef unsigned char poolASCIIcode ;
typedef integer scaled ;
typedef char smallnumber ;
typedef integer fraction ;
typedef integer angle ;
typedef unsigned char quarterword ;
typedef integer halfword ;
typedef char twochoices ;
typedef char threechoices ;
#include "texmfmem.h"
typedef text /* of memoryword */ wordfile ;
typedef char commandcode ;
typedef struct {
quarterword indexfield ;
halfword startfield, locfield, limitfield, namefield ;
} instaterecord ;
typedef integer readfindex ;
typedef char writeindex ;
typedef integer fontnumber ;
typedef char strreftype ;
EXTERN integer bad ;
#ifdef INIMP
EXTERN boolean iniversion ;
EXTERN boolean dumpoption ;
EXTERN boolean dumpline ;
#endif /* INIMP */
EXTERN integer bounddefault ;
EXTERN char * boundname ;
EXTERN integer mainmemory ;
EXTERN integer memtop ;
EXTERN integer memmax ;
EXTERN integer errorline ;
EXTERN integer halferrorline ;
EXTERN integer maxprintline ;
EXTERN integer poolsize ;
EXTERN integer stringvacancies ;
EXTERN integer poolfree ;
EXTERN integer maxstrings ;
EXTERN ASCIIcode xord[256] ;
EXTERN ASCIIcode xchr[256] ;
EXTERN ASCIIcode * nameoffile ;
EXTERN integer namelength ;
EXTERN ASCIIcode buffer[bufsize + 1] ;
EXTERN integer first ;
EXTERN integer last ;
EXTERN integer maxbufstack ;
EXTERN poolASCIIcode * strpool ;
EXTERN poolpointer * strstart ;
EXTERN strnumber * nextstr ;
EXTERN poolpointer poolptr ;
EXTERN strnumber strptr ;
EXTERN poolpointer initpoolptr ;
EXTERN strnumber initstruse ;
EXTERN poolpointer maxpoolptr ;
EXTERN strnumber maxstrptr ;
EXTERN integer strsusedup ;
EXTERN integer poolinuse ;
EXTERN integer strsinuse ;
EXTERN integer maxplused ;
EXTERN integer maxstrsused ;
EXTERN strreftype * strref ;
EXTERN strnumber lastfixedstr ;
EXTERN strnumber fixedstruse ;
EXTERN boolean stroverflowed ;
EXTERN integer pactcount ;
EXTERN integer pactchars ;
EXTERN integer pactstrs ;
#ifdef INIMP
EXTERN alphafile poolfile ;
#endif /* INIMP */
EXTERN alphafile logfile ;
EXTERN alphafile psfile ;
EXTERN char selector ;
EXTERN char dig[23] ;
EXTERN integer tally ;
EXTERN integer termoffset ;
EXTERN integer fileoffset ;
EXTERN integer psoffset ;
EXTERN ASCIIcode trickbuf[256] ;
EXTERN integer trickcount ;
EXTERN integer firstcount ;
EXTERN char interaction ;
EXTERN char interactionoption ;
EXTERN boolean deletionsallowed ;
EXTERN char history ;
EXTERN schar errorcount ;
EXTERN strnumber helpline[6] ;
EXTERN char helpptr ;
EXTERN boolean useerrhelp ;
EXTERN strnumber errhelp ;
EXTERN integer interrupt ;
EXTERN boolean OKtointerrupt ;
EXTERN boolean aritherror ;
EXTERN integer twotothe[31] ;
EXTERN integer speclog[29] ;
EXTERN angle specatan[27] ;
EXTERN fraction nsin, ncos ;
EXTERN fraction randoms[55] ;
EXTERN char jrandom ;
EXTERN memoryword * mem ;
EXTERN halfword lomemmax ;
EXTERN halfword himemmin ;
EXTERN integer varused, dynused ;
EXTERN halfword avail ;
EXTERN halfword memend ;
EXTERN halfword rover ;
#ifdef TEXMF_DEBUG
EXTERN boolean freearr[2] ;
EXTERN boolean wasfree[2] ;
EXTERN halfword wasmemend, waslomax, washimin ;
EXTERN boolean panicking ;
#endif /* TEXMF_DEBUG */
EXTERN scaled internal[maxinternal + 1] ;
EXTERN strnumber intname[maxinternal + 1] ;
EXTERN integer intptr ;
EXTERN char oldsetting, nonpssetting ;
EXTERN char charclass[256] ;
EXTERN halfword hashused ;
EXTERN integer stcount ;
EXTERN twohalves hash[9772] ;
EXTERN twohalves eqtb[9772] ;
EXTERN halfword gpointer ;
EXTERN smallnumber
#define bignodesize (zzzaa -12)
zzzaa[3] ;
EXTERN smallnumber
#define sector0 (zzzab -12)
zzzab[3] ;
EXTERN smallnumber
#define sectoroffset (zzzac -5)
zzzac[9] ;
EXTERN halfword saveptr ;
EXTERN halfword pathtail ;
EXTERN scaled deltax[pathsize + 1], deltay[pathsize + 1], delta[pathsize + 1] ;
EXTERN angle psi[pathsize + 1] ;
EXTERN angle theta[pathsize + 1] ;
EXTERN fraction uu[pathsize + 1] ;
EXTERN angle vv[pathsize + 1] ;
EXTERN fraction ww[pathsize + 1] ;
EXTERN fraction st, ct, sf, cf ;
EXTERN scaled bbmin[2], bbmax[2] ;
EXTERN fraction halfcos[8] ;
EXTERN fraction dcos[8] ;
EXTERN scaled curx, cury ;
EXTERN smallnumber grobjectsize[8] ;
EXTERN integer specoffset ;
EXTERN halfword specp1, specp2 ;
EXTERN char tolstep ;
EXTERN integer bisectstack[bistacksize + 1] ;
EXTERN integer bisectptr ;
EXTERN integer curt, curtt ;
EXTERN integer timetogo ;
EXTERN integer maxt ;
EXTERN integer delx, dely ;
EXTERN integer tol ;
EXTERN integer uv, xy ;
EXTERN integer threel ;
EXTERN integer apprt, apprtt ;
EXTERN integer serialno ;
EXTERN boolean fixneeded ;
EXTERN boolean watchcoefs ;
EXTERN halfword depfinal ;
EXTERN eightbits curcmd ;
EXTERN integer curmod ;
EXTERN halfword cursym ;
EXTERN instaterecord inputstack[stacksize + 1] ;
EXTERN integer inputptr ;
EXTERN integer maxinstack ;
EXTERN instaterecord curinput ;
EXTERN char inopen ;
EXTERN char openparens ;
EXTERN alphafile inputfile[16] ;
EXTERN integer linestack[16] ;
EXTERN strnumber inamestack[16] ;
EXTERN strnumber iareastack[16] ;
EXTERN halfword mpxname[16] ;
EXTERN halfword paramstack[151] ;
EXTERN unsigned char paramptr ;
EXTERN integer maxparamstack ;
EXTERN integer fileptr ;
EXTERN char scannerstatus ;
EXTERN integer warninginfo ;
EXTERN boolean forceeof ;
EXTERN short bgloc, egloc ;
EXTERN halfword condptr ;
EXTERN char iflimit ;
EXTERN smallnumber curif ;
EXTERN integer ifline ;
EXTERN halfword loopptr ;
EXTERN strnumber curname ;
EXTERN strnumber curarea ;
EXTERN strnumber curext ;
EXTERN integer areadelimiter ;
EXTERN integer extdelimiter ;
EXTERN integer memdefaultlength ;
EXTERN char * MPmemdefault ;
EXTERN boolean troffmode ;
EXTERN strnumber jobname ;
EXTERN boolean logopened ;
EXTERN strnumber texmflogname ;
EXTERN char * oldfilename ;
EXTERN integer oldnamelength ;
EXTERN alphafile rdfile[maxreadfiles + 1] ;
EXTERN strnumber rdfname[maxreadfiles + 1] ;
EXTERN readfindex readfiles ;
EXTERN alphafile wrfile[5] ;
EXTERN strnumber wrfname[5] ;
EXTERN writeindex writefiles ;
EXTERN smallnumber curtype ;
EXTERN integer curexp ;
EXTERN integer
#define maxc (zzzad -17)
zzzad[2] ;
EXTERN halfword
#define maxptr (zzzae -17)
zzzae[2] ;
EXTERN halfword
#define maxlink (zzzaf -17)
zzzaf[2] ;
EXTERN char varflag ;
EXTERN halfword sepic ;
EXTERN scaled sesf ;
EXTERN strnumber eofline ;
EXTERN scaled txx, txy, tyx, tyy, tx, ty ;
EXTERN quarterword lastaddtype ;
EXTERN halfword startsym ;
EXTERN boolean longhelpseen ;
EXTERN bytefile tfmfile ;
EXTERN strnumber metricfilename ;
EXTERN eightbits bc, ec ;
EXTERN scaled tfmwidth[256] ;
EXTERN scaled tfmheight[256] ;
EXTERN scaled tfmdepth[256] ;
EXTERN scaled tfmitalcorr[256] ;
EXTERN boolean charexists[256] ;
EXTERN char chartag[256] ;
EXTERN integer charremainder[256] ;
EXTERN short headerbyte[headersize + 1] ;
EXTERN fourquarters ligkern[ligtablesize + 1] ;
EXTERN short nl ;
EXTERN scaled kern[maxkerns + 1] ;
EXTERN integer nk ;
EXTERN fourquarters exten[256] ;
EXTERN short ne ;
EXTERN scaled param[maxfontdimen + 1] ;
EXTERN integer np ;
EXTERN short nw, nh, nd, ni ;
EXTERN integer skiptable[256] ;
EXTERN boolean lkstarted ;
EXTERN integer bchar ;
EXTERN integer bchlabel ;
EXTERN integer ll, lll ;
EXTERN integer labelloc[257] ;
EXTERN eightbits labelchar[257] ;
EXTERN short labelptr ;
EXTERN scaled perturbation ;
EXTERN integer excess ;
EXTERN halfword dimenhead[5] ;
EXTERN scaled maxtfmdimen ;
EXTERN integer tfmchanged ;
EXTERN bytefile tfminfile ;
EXTERN memoryword fontinfo[fontmemsize + 1] ;
EXTERN integer nextfmem ;
EXTERN fontnumber lastfnum ;
EXTERN scaled fontdsize[fontmax + 1] ;
EXTERN strnumber fontname[fontmax + 1] ;
EXTERN strnumber fontpsname[fontmax + 1] ;
EXTERN fontnumber lastpsfnum ;
EXTERN eightbits fontbc[fontmax + 1], fontec[fontmax + 1] ;
EXTERN integer charbase[fontmax + 1] ;
EXTERN integer widthbase[fontmax + 1] ;
EXTERN integer heightbase[fontmax + 1] ;
EXTERN integer depthbase[fontmax + 1] ;
EXTERN alphafile pstabfile ;
EXTERN strnumber firstfilename, lastfilename ;
EXTERN integer firstoutputcode, lastoutputcode ;
EXTERN integer totalshipped ;
EXTERN boolean neednewpath ;
EXTERN scaled gsred, gsgreen, gsblue ;
EXTERN quarterword gsljoin, gslcap ;
EXTERN scaled gsmiterlim ;
EXTERN halfword gsdashp ;
EXTERN scaled gsdashsc ;
EXTERN scaled gswidth ;
EXTERN boolean gsadjwx ;
EXTERN halfword fontsizes[fontmax + 1] ;
EXTERN halfword lastpending ;
EXTERN strnumber memident ;
EXTERN wordfile memfile ;
EXTERN integer readyalready ;
EXTERN poolpointer editnamestart ;
EXTERN integer editnamelength, editline ;
#include "mpcoerce.h"
|
