#define TFTOPL
#include "cpascal.h"
/* 9999 */
#define tfmsize ( 40000L )
#define ligsize ( 8000 )
#define hashsize ( 8009 )
#define charcodeascii ( 0 )
#define charcodeoctal ( 1 )
#define charcodedefault ( 2 )
typedef unsigned char byte ;
typedef integer indextype ;
typedef integer charcodeformattype ;
text /* of unsigned char */ tfmfile ;
short lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np ;
text plfile ;
#define tfm (tfmfilearray + 1001)
pointertobyte tfmfilearray ;
integer charbase, widthbase, heightbase, depthbase, italicbase, ligkernbase,
kernbase, extenbase, parambase ;
char fonttype ;
cstring ASCII04, ASCII10, ASCII14 ;
char ASCIIall[257] ;
cstring MBLstring, RIstring, RCEstring ;
char dig[12] ;
char level ;
char charsonline ;
boolean perfect ;
short i ;
short c ;
char d ;
indextype k ;
unsigned short r ;
char count ;
struct {
short cc ;
integer rr ;
} labeltable[259] ;
short labelptr ;
short sortptr ;
short boundarychar ;
short bcharlabel ;
char activity[ligsize + 1] ;
integer ai, acti ;
integer hash[hashsize + 1] ;
char classvar[hashsize + 1] ;
short ligz[hashsize + 1] ;
integer hashptr ;
integer hashlist[hashsize + 1] ;
integer h, hh ;
short xligcycle, yligcycle ;
cinttype verbose ;
charcodeformattype charcodeformat ;
cstring tfmname, plname ;
#include "tftopl.h"
void
#ifdef HAVE_PROTOTYPES
parsearguments ( void )
#else
parsearguments ( )
#endif
{
#define noptions ( 4 )
getoptstruct longoptions[noptions + 1] ;
integer getoptreturnval ;
cinttype optionindex ;
integer currentoption ;
verbose = false ;
charcodeformat = charcodedefault ;
currentoption = 0 ;
longoptions [currentoption ].name = "help" ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "version" ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "verbose" ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = addressof ( verbose ) ;
longoptions [currentoption ].val = 1 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = "charcode-format" ;
longoptions [currentoption ].hasarg = 1 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
currentoption = currentoption + 1 ;
longoptions [currentoption ].name = 0 ;
longoptions [currentoption ].hasarg = 0 ;
longoptions [currentoption ].flag = 0 ;
longoptions [currentoption ].val = 0 ;
do {
getoptreturnval = getoptlongonly ( argc , argv , "" , longoptions ,
addressof ( optionindex ) ) ;
if ( getoptreturnval == -1 )
{
;
}
else if ( getoptreturnval == 63 )
{
usage ( 1 , "tftopl" ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) )
{
usage ( 0 , TFTOPLHELP ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0
) )
{
printversionandexit ( "This is TFtoPL, Version 3.1" , nil , "D.E. Knuth"
) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "charcode-format"
) == 0 ) )
{
if ( strcmp ( optarg , "ascii" ) == 0 )
charcodeformat = charcodeascii ;
else if ( strcmp ( optarg , "octal" ) == 0 )
charcodeformat = charcodeoctal ;
else
fprintf( stderr , "%s%ld%c\n", "Bad character code format" , (long)optarg , '.' ) ;
}
} while ( ! ( getoptreturnval == -1 ) ) ;
if ( ( optind + 1 != argc ) && ( optind + 2 != argc ) )
{
fprintf( stderr , "%s\n", "tftopl: Need one or two file arguments." ) ;
usage ( 1 , "tftopl" ) ;
}
tfmname = cmdline ( optind ) ;
}
void
#ifdef HAVE_PROTOTYPES
initialize ( void )
#else
initialize ( )
#endif
{
kpsesetprogname ( argv [0 ]) ;
kpseinitprog ( "TFTOPL" , 0 , nil , nil ) ;
tfmfilearray = casttobytepointer ( xmalloc ( 1003 ) ) ;
parsearguments () ;
tfmfile = kpseopenfile ( tfmname , kpsetfmformat ) ;
if ( verbose )
{
Fputs(stdout, "This is TFtoPL, Version 3.1" ) ;
fprintf(stdout, "%s\n", versionstring ) ;
}
if ( optind + 1 == argc )
{
plfile = stdout ;
}
else {
plname = extendfilename ( cmdline ( optind + 1 ) , "pl" ) ;
rewrite ( plfile , plname ) ;
}
ASCII04 = " !\"#$%&'()*+,-./0123456789:;<=>?" ;
ASCII10 = " @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_" ;
ASCII14 = " `abcdefghijklmnopqrstuvwxyz{|}~ " ;
strcpy ( ASCIIall , ASCII04 ) ;
strcat ( ASCIIall , "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_" ) ;
strcat ( ASCIIall , "`abcdefghijklmnopqrstuvwxyz{|}~" ) ;
MBLstring = " MBL" ;
RIstring = " RI " ;
RCEstring = " RCE" ;
level = 0 ;
charsonline = 0 ;
perfect = true ;
boundarychar = 256 ;
bcharlabel = 32767 ;
labelptr = 0 ;
labeltable [0 ].rr = 0 ;
}
void
#ifdef HAVE_PROTOTYPES
zoutdigs ( integer j )
#else
zoutdigs ( j )
integer j ;
#endif
{
do {
j = j - 1 ;
fprintf( plfile , "%ld", (long)dig [j ]) ;
} while ( ! ( j == 0 ) ) ;
}
void
#ifdef HAVE_PROTOTYPES
zprintdigs ( integer j )
#else
zprintdigs ( j )
integer j ;
#endif
{
do {
j = j - 1 ;
fprintf(stdout, "%ld", (long)dig [j ]) ;
} while ( ! ( j == 0 ) ) ;
}
void
#ifdef HAVE_PROTOTYPES
zprintoctal ( byte c )
#else
zprintoctal ( c )
byte c ;
#endif
{
char j ;
putc ('\'' , stdout);
{register integer for_end; j = 0 ;for_end = 2 ; if ( j <= for_end) do
{
dig [j ]= c % 8 ;
c = c / 8 ;
}
while ( j++ < for_end ) ;}
printdigs ( 3 ) ;
}
void
#ifdef HAVE_PROTOTYPES
outln ( void )
#else
outln ( )
#endif
{
char l ;
putc ('\n', plfile );
{register integer for_end; l = 1 ;for_end = level ; if ( l <= for_end) do
Fputs( plfile , " " ) ;
while ( l++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
left ( void )
#else
left ( )
#endif
{
level = level + 1 ;
putc ( '(' , plfile );
}
void
#ifdef HAVE_PROTOTYPES
right ( void )
#else
right ( )
#endif
{
level = level - 1 ;
putc ( ')' , plfile );
outln () ;
}
void
#ifdef HAVE_PROTOTYPES
zoutBCPL ( indextype k )
#else
zoutBCPL ( k )
indextype k ;
#endif
{
char l ;
putc ( ' ' , plfile );
l = tfm [k ];
while ( l > 0 ) {
k = k + 1 ;
l = l - 1 ;
switch ( tfm [k ]/ 32 )
{case 1 :
putc ( ASCII04 [1 + ( tfm [k ]% 32 ) ], plfile );
break ;
case 2 :
putc ( ASCII10 [1 + ( tfm [k ]% 32 ) ], plfile );
break ;
case 3 :
putc ( ASCII14 [1 + ( tfm [k ]% 32 ) ], plfile );
break ;
}
}
}
void
#ifdef HAVE_PROTOTYPES
zoutoctal ( indextype k , indextype l )
#else
zoutoctal ( k , l )
indextype k ;
indextype l ;
#endif
{
short a ;
char b ;
char j ;
Fputs( plfile , " O " ) ;
a = 0 ;
b = 0 ;
j = 0 ;
while ( l > 0 ) {
l = l - 1 ;
if ( tfm [k + l ]!= 0 )
{
while ( b > 2 ) {
dig [j ]= a % 8 ;
a = a / 8 ;
b = b - 3 ;
j = j + 1 ;
}
switch ( b )
{case 0 :
a = tfm [k + l ];
break ;
case 1 :
a = a + 2 * tfm [k + l ];
break ;
case 2 :
a = a + 4 * tfm [k + l ];
break ;
}
}
b = b + 8 ;
}
while ( ( a > 0 ) || ( j == 0 ) ) {
dig [j ]= a % 8 ;
a = a / 8 ;
j = j + 1 ;
}
outdigs ( j ) ;
}
void
#ifdef HAVE_PROTOTYPES
zoutchar ( byte c )
#else
zoutchar ( c )
byte c ;
#endif
{
if ( ( fonttype > 0 ) || ( charcodeformat == charcodeoctal ) )
{
tfm [0 ]= c ;
outoctal ( 0 , 1 ) ;
}
else if ( ( charcodeformat == charcodeascii ) && ( c > 32 ) && ( c <= 126 )
&& ( c != 40 ) && ( c != 41 ) )
fprintf( plfile , "%s%c", " C " , ASCIIall [c - 31 ]) ;
else if ( ( c >= 48 ) && ( c <= 57 ) )
fprintf( plfile , "%s%ld", " C " , (long)c - 48 ) ;
else if ( ( c >= 65 ) && ( c <= 90 ) )
fprintf( plfile , "%s%c", " C " , ASCII10 [c - 63 ]) ;
else if ( ( c >= 97 ) && ( c <= 122 ) )
fprintf( plfile , "%s%c", " C " , ASCII14 [c - 95 ]) ;
else {
tfm [0 ]= c ;
outoctal ( 0 , 1 ) ;
}
}
void
#ifdef HAVE_PROTOTYPES
zoutface ( indextype k )
#else
zoutface ( k )
indextype k ;
#endif
{
char s ;
char b ;
if ( tfm [k ]>= 18 )
outoctal ( k , 1 ) ;
else {
Fputs( plfile , " F " ) ;
s = tfm [k ]% 2 ;
b = tfm [k ]/ 2 ;
putbyte ( MBLstring [1 + ( b % 3 ) ], plfile ) ;
putbyte ( RIstring [1 + s ], plfile ) ;
putbyte ( RCEstring [1 + ( b / 3 ) ], plfile ) ;
}
}
void
#ifdef HAVE_PROTOTYPES
zoutfix ( indextype k )
#else
zoutfix ( k )
indextype k ;
#endif
{
short a ;
integer f ;
char j ;
integer delta ;
Fputs( plfile , " R " ) ;
a = ( tfm [k ]* 16 ) + ( tfm [k + 1 ]/ 16 ) ;
f = ( ( tfm [k + 1 ]% 16 ) * toint ( 256 ) + tfm [k + 2 ]) * 256 + tfm [
k + 3 ];
if ( a > 2047 )
{
putc ( '-' , plfile );
a = 4096 - a ;
if ( f > 0 )
{
f = 1048576L - f ;
a = a - 1 ;
}
}
{
j = 0 ;
do {
dig [j ]= a % 10 ;
a = a / 10 ;
j = j + 1 ;
} while ( ! ( a == 0 ) ) ;
outdigs ( j ) ;
}
{
putc ( '.' , plfile );
f = 10 * f + 5 ;
delta = 10 ;
do {
if ( delta > 1048576L )
f = f + 524288L - ( delta / 2 ) ;
fprintf( plfile , "%ld", (long)f / 1048576L ) ;
f = 10 * ( f % 1048576L ) ;
delta = delta * 10 ;
} while ( ! ( f <= delta ) ) ;
}
}
void
#ifdef HAVE_PROTOTYPES
zcheckBCPL ( indextype k , indextype l )
#else
zcheckBCPL ( k , l )
indextype k ;
indextype l ;
#endif
{
indextype j ;
byte c ;
if ( tfm [k ]>= l )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "String is too long; I've shortened it drastically." ) ;
}
tfm [k ]= 1 ;
}
{register integer for_end; j = k + 1 ;for_end = k + tfm [k ]; if ( j <=
for_end) do
{
c = tfm [j ];
if ( ( c == 40 ) || ( c == 41 ) )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Parenthesis in string has been changed to slash." ) ;
}
tfm [j ]= 47 ;
}
else if ( ( c < 32 ) || ( c > 126 ) )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Nonstandard ASCII code has been blotted out." ) ;
}
tfm [j ]= 63 ;
}
else if ( ( c >= 97 ) && ( c <= 122 ) )
tfm [j ]= c - 32 ;
}
while ( j++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
hashinput ( void )
#else
hashinput ( )
#endif
{
/* 30 */ char cc ;
unsigned char zz ;
unsigned char y ;
integer key ;
integer t ;
if ( hashptr == hashsize )
goto lab30 ;
k = 4 * ( ligkernbase + ( i ) ) ;
y = tfm [k + 1 ];
t = tfm [k + 2 ];
cc = 0 ;
zz = tfm [k + 3 ];
if ( t >= 128 )
zz = y ;
else {
switch ( t )
{case 0 :
case 6 :
;
break ;
case 5 :
case 11 :
zz = y ;
break ;
case 1 :
case 7 :
cc = 1 ;
break ;
case 2 :
cc = 2 ;
break ;
case 3 :
cc = 3 ;
break ;
}
}
key = 256 * c + y + 1 ;
h = ( 1009 * key ) % hashsize ;
while ( hash [h ]> 0 ) {
if ( hash [h ]<= key )
{
if ( hash [h ]== key )
goto lab30 ;
t = hash [h ];
hash [h ]= key ;
key = t ;
t = classvar [h ];
classvar [h ]= cc ;
cc = t ;
t = ligz [h ];
ligz [h ]= zz ;
zz = t ;
}
if ( h > 0 )
h = h - 1 ;
else h = hashsize ;
}
hash [h ]= key ;
classvar [h ]= cc ;
ligz [h ]= zz ;
hashptr = hashptr + 1 ;
hashlist [hashptr ]= h ;
lab30: ;
}
#ifdef notdef
indextype
#ifdef HAVE_PROTOTYPES
zffn ( indextype h , indextype x , indextype y )
#else
zffn ( h , x , y )
indextype h ;
indextype x ;
indextype y ;
#endif
{
register indextype Result; ;
return Result ;
}
#endif /* notdef */
indextype
#ifdef HAVE_PROTOTYPES
zeval ( indextype x , indextype y )
#else
zeval ( x , y )
indextype x ;
indextype y ;
#endif
{
register indextype Result; integer key ;
key = 256 * x + y + 1 ;
h = ( 1009 * key ) % hashsize ;
while ( hash [h ]> key ) if ( h > 0 )
h = h - 1 ;
else h = hashsize ;
if ( hash [h ]< key )
Result = y ;
else Result = ffn ( h , x , y ) ;
return Result ;
}
indextype
#ifdef HAVE_PROTOTYPES
zffn ( indextype h , indextype x , indextype y )
#else
zffn ( h , x , y )
indextype h ;
indextype x ;
indextype y ;
#endif
{
register indextype Result; switch ( classvar [h ])
{case 0 :
;
break ;
case 1 :
{
classvar [h ]= 4 ;
ligz [h ]= eval ( ligz [h ], y ) ;
classvar [h ]= 0 ;
}
break ;
case 2 :
{
classvar [h ]= 4 ;
ligz [h ]= eval ( x , ligz [h ]) ;
classvar [h ]= 0 ;
}
break ;
case 3 :
{
classvar [h ]= 4 ;
ligz [h ]= eval ( eval ( x , ligz [h ]) , y ) ;
classvar [h ]= 0 ;
}
break ;
case 4 :
{
xligcycle = x ;
yligcycle = y ;
ligz [h ]= 257 ;
classvar [h ]= 0 ;
}
break ;
}
Result = ligz [h ];
return Result ;
}
boolean
#ifdef HAVE_PROTOTYPES
organize ( void )
#else
organize ( )
#endif
{
/* 9999 30 */ register boolean Result; indextype tfmptr ;
read ( tfmfile , tfm [0 ]) ;
if ( tfm [0 ]> 127 )
{
fprintf( stderr , "%s\n", "The first byte of the input file exceeds 127!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( eof ( tfmfile ) )
{
fprintf( stderr , "%s\n", "The input file is only one byte long!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
read ( tfmfile , tfm [1 ]) ;
lf = tfm [0 ]* 256 + tfm [1 ];
if ( lf == 0 )
{
fprintf( stderr , "%s\n", "The file claims to have length zero, but that's impossible!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
tfmfilearray = casttobytepointer ( xrealloc ( tfmfilearray , 4 * lf + 1001 )
) ;
{register integer for_end; tfmptr = 2 ;for_end = 4 * lf - 1 ; if ( tfmptr
<= for_end) do
{
if ( eof ( tfmfile ) )
{
fprintf( stderr , "%s\n", "The file has fewer bytes than it claims!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
read ( tfmfile , tfm [tfmptr ]) ;
}
while ( tfmptr++ < for_end ) ;}
if ( ! eof ( tfmfile ) )
{
fprintf(stdout, "%s\n", "There's some extra junk at the end of the TFM file," ) ;
fprintf(stdout, "%s\n", "but I'll proceed as if it weren't there." ) ;
}
{
tfmptr = 2 ;
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
lh = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
bc = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
ec = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
nw = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
nh = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
nd = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
ni = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
nl = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
nk = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
ne = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf( stderr , "%s\n", "One of the subfile sizes is negative!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
np = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
if ( lh < 2 )
{
fprintf( stderr , "%s%ld%c\n", "The header length is only " , (long)lh , '!' ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( nl > 4 * ligsize )
{
fprintf( stderr , "%s\n", "The lig/kern program is longer than I can handle!" )
;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( ( bc > ec + 1 ) || ( ec > 255 ) )
{
fprintf( stderr , "%s%ld%s%ld%s\n", "The character code range " , (long)bc , ".." , (long)ec , "is illegal!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( ( nw == 0 ) || ( nh == 0 ) || ( nd == 0 ) || ( ni == 0 ) )
{
fprintf( stderr , "%s\n", "Incomplete subfiles for character dimensions!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( ne > 256 )
{
fprintf( stderr , "%s%ld%s\n", "There are " , (long)ne , " extensible recipes!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
if ( lf != 6 + lh + ( ec - bc + 1 ) + nw + nh + nd + ni + nl + nk + ne +
np )
{
fprintf( stderr , "%s\n", "Subfile sizes don't add up to the stated total!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
goto lab9999 ;
}
}
{
charbase = 6 + lh - bc ;
widthbase = charbase + ec + 1 ;
heightbase = widthbase + nw ;
depthbase = heightbase + nh ;
italicbase = depthbase + nd ;
ligkernbase = italicbase + ni ;
kernbase = ligkernbase + nl ;
extenbase = kernbase + nk ;
parambase = extenbase + ne - 1 ;
}
Result = true ;
goto lab30 ;
lab9999: Result = false ;
lab30: ;
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
dosimplethings ( void )
#else
dosimplethings ( )
#endif
{
short i ;
{
fonttype = 0 ;
if ( lh >= 12 )
{
{
checkBCPL ( 32 , 40 ) ;
if ( ( tfm [32 ]>= 11 ) && ( tfm [33 ]== 84 ) && ( tfm [34 ]==
69 ) && ( tfm [35 ]== 88 ) && ( tfm [36 ]== 32 ) && ( tfm [37 ]
== 77 ) && ( tfm [38 ]== 65 ) && ( tfm [39 ]== 84 ) && ( tfm [40
]== 72 ) && ( tfm [41 ]== 32 ) )
{
if ( ( tfm [42 ]== 83 ) && ( tfm [43 ]== 89 ) )
fonttype = 1 ;
else if ( ( tfm [42 ]== 69 ) && ( tfm [43 ]== 88 ) )
fonttype = 2 ;
}
}
if ( lh >= 17 )
{
left () ;
Fputs( plfile , "FAMILY" ) ;
checkBCPL ( 72 , 20 ) ;
outBCPL ( 72 ) ;
right () ;
if ( lh >= 18 )
{
left () ;
Fputs( plfile , "FACE" ) ;
outface ( 95 ) ;
right () ;
{register integer for_end; i = 18 ;for_end = lh - 1 ; if ( i <=
for_end) do
{
left () ;
fprintf( plfile , "%s%ld", "HEADER D " , (long)i ) ;
outoctal ( 24 + 4 * i , 4 ) ;
right () ;
}
while ( i++ < for_end ) ;}
}
}
left () ;
Fputs( plfile , "CODINGSCHEME" ) ;
outBCPL ( 32 ) ;
right () ;
}
left () ;
Fputs( plfile , "DESIGNSIZE" ) ;
if ( tfm [28 ]> 127 )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s%c\n", "Bad TFM file: " , "Design size " , "negative" , '!' ) ;
}
fprintf(stdout, "%s\n", "I've set it to 10 points." ) ;
Fputs( plfile , " D 10" ) ;
}
else if ( ( tfm [28 ]== 0 ) && ( tfm [29 ]< 16 ) )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s%c\n", "Bad TFM file: " , "Design size " , "too small" , '!' ) ;
}
fprintf(stdout, "%s\n", "I've set it to 10 points." ) ;
Fputs( plfile , " D 10" ) ;
}
else outfix ( 28 ) ;
right () ;
Fputs( plfile , "(COMMENT DESIGNSIZE IS IN POINTS)" ) ;
outln () ;
Fputs( plfile , "(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)" ) ;
outln () ;
left () ;
Fputs( plfile , "CHECKSUM" ) ;
outoctal ( 24 , 4 ) ;
right () ;
if ( ( lh > 17 ) && ( tfm [92 ]> 127 ) )
{
left () ;
Fputs( plfile , "SEVENBITSAFEFLAG TRUE" ) ;
right () ;
}
}
if ( np > 0 )
{
left () ;
Fputs( plfile , "FONTDIMEN" ) ;
outln () ;
{register integer for_end; i = 1 ;for_end = np ; if ( i <= for_end) do
{
left () ;
if ( i == 1 )
Fputs( plfile , "SLANT" ) ;
else {
if ( ( tfm [4 * ( parambase + i ) ]> 0 ) && ( tfm [4 * (
parambase + i ) ]< 255 ) )
{
tfm [4 * ( parambase + i ) ]= 0 ;
tfm [( 4 * ( parambase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( parambase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( parambase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Parameter" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
if ( i <= 7 )
switch ( i )
{case 2 :
Fputs( plfile , "SPACE" ) ;
break ;
case 3 :
Fputs( plfile , "STRETCH" ) ;
break ;
case 4 :
Fputs( plfile , "SHRINK" ) ;
break ;
case 5 :
Fputs( plfile , "XHEIGHT" ) ;
break ;
case 6 :
Fputs( plfile , "QUAD" ) ;
break ;
case 7 :
Fputs( plfile , "EXTRASPACE" ) ;
break ;
}
else if ( ( i <= 22 ) && ( fonttype == 1 ) )
switch ( i )
{case 8 :
Fputs( plfile , "NUM1" ) ;
break ;
case 9 :
Fputs( plfile , "NUM2" ) ;
break ;
case 10 :
Fputs( plfile , "NUM3" ) ;
break ;
case 11 :
Fputs( plfile , "DENOM1" ) ;
break ;
case 12 :
Fputs( plfile , "DENOM2" ) ;
break ;
case 13 :
Fputs( plfile , "SUP1" ) ;
break ;
case 14 :
Fputs( plfile , "SUP2" ) ;
break ;
case 15 :
Fputs( plfile , "SUP3" ) ;
break ;
case 16 :
Fputs( plfile , "SUB1" ) ;
break ;
case 17 :
Fputs( plfile , "SUB2" ) ;
break ;
case 18 :
Fputs( plfile , "SUPDROP" ) ;
break ;
case 19 :
Fputs( plfile , "SUBDROP" ) ;
break ;
case 20 :
Fputs( plfile , "DELIM1" ) ;
break ;
case 21 :
Fputs( plfile , "DELIM2" ) ;
break ;
case 22 :
Fputs( plfile , "AXISHEIGHT" ) ;
break ;
}
else if ( ( i <= 13 ) && ( fonttype == 2 ) )
if ( i == 8 )
Fputs( plfile , "DEFAULTRULETHICKNESS" ) ;
else
fprintf( plfile , "%s%ld", "BIGOPSPACING" , (long)i - 8 ) ;
else
fprintf( plfile , "%s%ld", "PARAMETER D " , (long)i ) ;
}
outfix ( 4 * ( parambase + i ) ) ;
right () ;
}
while ( i++ < for_end ) ;}
right () ;
}
if ( ( fonttype == 1 ) && ( np != 22 ) )
fprintf(stdout, "%s%ld%s\n", "Unusual number of fontdimen parameters for a math symbols font (" , (long)np , " not 22)." ) ;
else if ( ( fonttype == 2 ) && ( np != 13 ) )
fprintf(stdout, "%s%ld%s\n", "Unusual number of fontdimen parameters for an extension font (" , (long)np , " not 13)." ) ;
if ( ( tfm [4 * widthbase ]> 0 ) || ( tfm [4 * widthbase + 1 ]> 0 ) || (
tfm [4 * widthbase + 2 ]> 0 ) || ( tfm [4 * widthbase + 3 ]> 0 ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "width[0] should be zero." ) ;
}
if ( ( tfm [4 * heightbase ]> 0 ) || ( tfm [4 * heightbase + 1 ]> 0 ) ||
( tfm [4 * heightbase + 2 ]> 0 ) || ( tfm [4 * heightbase + 3 ]> 0 ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "height[0] should be zero." ) ;
}
if ( ( tfm [4 * depthbase ]> 0 ) || ( tfm [4 * depthbase + 1 ]> 0 ) || (
tfm [4 * depthbase + 2 ]> 0 ) || ( tfm [4 * depthbase + 3 ]> 0 ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "depth[0] should be zero." ) ;
}
if ( ( tfm [4 * italicbase ]> 0 ) || ( tfm [4 * italicbase + 1 ]> 0 ) ||
( tfm [4 * italicbase + 2 ]> 0 ) || ( tfm [4 * italicbase + 3 ]> 0 ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "italic[0] should be zero." ) ;
}
{register integer for_end; i = 0 ;for_end = nw - 1 ; if ( i <= for_end) do
if ( ( tfm [4 * ( widthbase + i ) ]> 0 ) && ( tfm [4 * ( widthbase + i
) ]< 255 ) )
{
tfm [4 * ( widthbase + i ) ]= 0 ;
tfm [( 4 * ( widthbase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( widthbase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( widthbase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Width" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
while ( i++ < for_end ) ;}
{register integer for_end; i = 0 ;for_end = nh - 1 ; if ( i <= for_end) do
if ( ( tfm [4 * ( heightbase + i ) ]> 0 ) && ( tfm [4 * ( heightbase +
i ) ]< 255 ) )
{
tfm [4 * ( heightbase + i ) ]= 0 ;
tfm [( 4 * ( heightbase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( heightbase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( heightbase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Height" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
while ( i++ < for_end ) ;}
{register integer for_end; i = 0 ;for_end = nd - 1 ; if ( i <= for_end) do
if ( ( tfm [4 * ( depthbase + i ) ]> 0 ) && ( tfm [4 * ( depthbase + i
) ]< 255 ) )
{
tfm [4 * ( depthbase + i ) ]= 0 ;
tfm [( 4 * ( depthbase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( depthbase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( depthbase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Depth" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
while ( i++ < for_end ) ;}
{register integer for_end; i = 0 ;for_end = ni - 1 ; if ( i <= for_end) do
if ( ( tfm [4 * ( italicbase + i ) ]> 0 ) && ( tfm [4 * ( italicbase +
i ) ]< 255 ) )
{
tfm [4 * ( italicbase + i ) ]= 0 ;
tfm [( 4 * ( italicbase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( italicbase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( italicbase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Italic correction" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
while ( i++ < for_end ) ;}
if ( nk > 0 )
{register integer for_end; i = 0 ;for_end = nk - 1 ; if ( i <= for_end) do
if ( ( tfm [4 * ( kernbase + i ) ]> 0 ) && ( tfm [4 * ( kernbase + i )
]< 255 ) )
{
tfm [4 * ( kernbase + i ) ]= 0 ;
tfm [( 4 * ( kernbase + i ) ) + 1 ]= 0 ;
tfm [( 4 * ( kernbase + i ) ) + 2 ]= 0 ;
tfm [( 4 * ( kernbase + i ) ) + 3 ]= 0 ;
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%c%ld%s\n", "Bad TFM file: " , "Kern" , ' ' , (long)i , " is too big;" ) ;
}
fprintf(stdout, "%s\n", "I have set it to zero." ) ;
}
while ( i++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
docharacters ( void )
#else
docharacters ( )
#endif
{
byte c ;
indextype k ;
integer ai ;
sortptr = 0 ;
{register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do
if ( tfm [4 * ( charbase + c ) ]> 0 )
{
if ( charsonline == 8 )
{
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 1 ;
}
else {
if ( charsonline > 0 )
putc (' ' , stdout);
if ( verbose )
charsonline = charsonline + 1 ;
}
if ( verbose )
printoctal ( c ) ;
left () ;
Fputs( plfile , "CHARACTER" ) ;
outchar ( c ) ;
outln () ;
{
left () ;
Fputs( plfile , "CHARWD" ) ;
if ( tfm [4 * ( charbase + c ) ]>= nw )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
fprintf(stdout, "%s%s", "Width" , " index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I reset it to zero." ) ;
}
else outfix ( 4 * ( widthbase + tfm [4 * ( charbase + c ) ]) ) ;
right () ;
}
if ( ( tfm [4 * ( charbase + c ) + 1 ]/ 16 ) > 0 )
if ( ( tfm [4 * ( charbase + c ) + 1 ]/ 16 ) >= nh )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
fprintf(stdout, "%s%s", "Height" , " index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I reset it to zero." ) ;
}
else {
left () ;
Fputs( plfile , "CHARHT" ) ;
outfix ( 4 * ( heightbase + ( tfm [4 * ( charbase + c ) + 1 ]/ 16 )
) ) ;
right () ;
}
if ( ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) > 0 )
if ( ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) >= nd )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
fprintf(stdout, "%s%s", "Depth" , " index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I reset it to zero." ) ;
}
else {
left () ;
Fputs( plfile , "CHARDP" ) ;
outfix ( 4 * ( depthbase + ( tfm [4 * ( charbase + c ) + 1 ]% 16 ) )
) ;
right () ;
}
if ( ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) > 0 )
if ( ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) >= ni )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
fprintf(stdout, "%s%s", "Italic correction" , " index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I reset it to zero." ) ;
}
else {
left () ;
Fputs( plfile , "CHARIC" ) ;
outfix ( 4 * ( italicbase + ( tfm [4 * ( charbase + c ) + 2 ]/ 4 ) )
) ;
right () ;
}
switch ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) )
{case 0 :
;
break ;
case 1 :
{
left () ;
Fputs( plfile , "COMMENT" ) ;
outln () ;
i = tfm [4 * ( charbase + c ) + 3 ];
r = 4 * ( ligkernbase + ( i ) ) ;
if ( tfm [r ]> 128 )
i = 256 * tfm [r + 2 ]+ tfm [r + 3 ];
do {
{
k = 4 * ( ligkernbase + ( i ) ) ;
if ( tfm [k ]> 128 )
{
if ( 256 * tfm [k + 2 ]+ tfm [k + 3 ]>= nl )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Ligature unconditional stop command address is too big." )
;
}
}
else if ( tfm [k + 2 ]>= 128 )
{
if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || (
tfm [4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) )
if ( tfm [k + 1 ]!= boundarychar )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Kern step for" , " nonexistent character " ) ;
printoctal ( tfm [k + 1 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 1 ]= bc ;
}
left () ;
Fputs( plfile , "KRN" ) ;
outchar ( tfm [k + 1 ]) ;
r = 256 * ( tfm [k + 2 ]- 128 ) + tfm [k + 3 ];
if ( r >= nk )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Kern index too large." ) ;
}
Fputs( plfile , " R 0.0" ) ;
}
else outfix ( 4 * ( kernbase + r ) ) ;
right () ;
}
else {
if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || (
tfm [4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) )
if ( tfm [k + 1 ]!= boundarychar )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Ligature step for" , " nonexistent character " ) ;
printoctal ( tfm [k + 1 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 1 ]= bc ;
}
if ( ( ( tfm [k + 3 ]< bc ) || ( tfm [k + 3 ]> ec ) || (
tfm [4 * ( charbase + tfm [k + 3 ]) ]== 0 ) ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Ligature step produces the" , " nonexistent character " ) ;
printoctal ( tfm [k + 3 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 3 ]= bc ;
}
left () ;
r = tfm [k + 2 ];
if ( ( r == 4 ) || ( ( r > 7 ) && ( r != 11 ) ) )
{
fprintf(stdout, "%s\n", "Ligature step with nonstandard code changed to LIG" ) ;
r = 0 ;
tfm [k + 2 ]= 0 ;
}
if ( r % 4 > 1 )
putc ( '/' , plfile );
Fputs( plfile , "LIG" ) ;
if ( odd ( r ) )
putc ( '/' , plfile );
while ( r > 3 ) {
putc ( '>' , plfile );
r = r - 4 ;
}
outchar ( tfm [k + 1 ]) ;
outchar ( tfm [k + 3 ]) ;
right () ;
}
if ( tfm [k ]> 0 )
if ( level == 1 )
{
if ( tfm [k ]>= 128 )
Fputs( plfile , "(STOP)" ) ;
else {
count = 0 ;
{register integer for_end; ai = i + 1 ;for_end = i + tfm [
k ]; if ( ai <= for_end) do
if ( activity [ai ]== 2 )
count = count + 1 ;
while ( ai++ < for_end ) ;}
fprintf( plfile , "%s%ld%c", "(SKIP D " , (long)count , ')' ) ;
}
outln () ;
}
}
if ( tfm [k ]>= 128 )
i = nl ;
else i = i + 1 + tfm [k ];
} while ( ! ( i >= nl ) ) ;
right () ;
}
break ;
case 2 :
{
r = tfm [4 * ( charbase + c ) + 3 ];
if ( ( ( r < bc ) || ( r > ec ) || ( tfm [4 * ( charbase + r ) ]==
0 ) ) )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Character list link to" , " nonexistent character " ) ;
printoctal ( r ) ;
fprintf(stdout, "%c\n", '.' ) ;
}
tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c
) + 2 ]/ 4 ) + 0 ;
}
else {
while ( ( r < c ) && ( ( tfm [4 * ( charbase + r ) + 2 ]% 4 ) ==
2 ) ) r = tfm [4 * ( charbase + r ) + 3 ];
if ( r == c )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Cycle in a character list!" ) ;
}
Fputs(stdout, "Character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " now ends the list." ) ;
tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase +
c ) + 2 ]/ 4 ) + 0 ;
}
else {
left () ;
Fputs( plfile , "NEXTLARGER" ) ;
outchar ( tfm [4 * ( charbase + c ) + 3 ]) ;
right () ;
}
}
}
break ;
case 3 :
if ( tfm [4 * ( charbase + c ) + 3 ]>= ne )
{
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
fprintf(stdout, "%s%s", "Extensible" , " index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I reset it to zero." ) ;
}
tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c )
+ 2 ]/ 4 ) + 0 ;
}
else {
left () ;
Fputs( plfile , "VARCHAR" ) ;
outln () ;
{register integer for_end; k = 0 ;for_end = 3 ; if ( k <= for_end)
do
if ( ( k == 3 ) || ( tfm [4 * ( extenbase + tfm [4 * ( charbase
+ c ) + 3 ]) + k ]> 0 ) )
{
left () ;
switch ( k )
{case 0 :
Fputs( plfile , "TOP" ) ;
break ;
case 1 :
Fputs( plfile , "MID" ) ;
break ;
case 2 :
Fputs( plfile , "BOT" ) ;
break ;
case 3 :
Fputs( plfile , "REP" ) ;
break ;
}
if ( ( ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3
]) + k ]< bc ) || ( tfm [4 * ( extenbase + tfm [4 * (
charbase + c ) + 3 ]) + k ]> ec ) || ( tfm [4 * ( charbase +
tfm [4 * ( extenbase + tfm [4 * ( charbase + c ) + 3 ]) + k ]
) ]== 0 ) ) )
outchar ( c ) ;
else outchar ( tfm [4 * ( extenbase + tfm [4 * ( charbase + c
) + 3 ]) + k ]) ;
right () ;
}
while ( k++ < for_end ) ;}
right () ;
}
break ;
}
right () ;
}
while ( c++ < for_end ) ;}
}
void mainbody() {
initialize () ;
if ( ! organize () )
goto lab9999 ;
dosimplethings () ;
if ( nl > 0 )
{
{register integer for_end; ai = 0 ;for_end = nl - 1 ; if ( ai <=
for_end) do
activity [ai ]= 0 ;
while ( ai++ < for_end ) ;}
if ( tfm [4 * ( ligkernbase + ( 0 ) ) ]== 255 )
{
left () ;
Fputs( plfile , "BOUNDARYCHAR" ) ;
boundarychar = tfm [4 * ( ligkernbase + ( 0 ) ) + 1 ];
outchar ( boundarychar ) ;
right () ;
activity [0 ]= 1 ;
}
if ( tfm [4 * ( ligkernbase + ( nl - 1 ) ) ]== 255 )
{
r = 256 * tfm [4 * ( ligkernbase + ( nl - 1 ) ) + 2 ]+ tfm [4 * (
ligkernbase + ( nl - 1 ) ) + 3 ];
if ( r >= nl )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
Fputs(stdout, "Ligature/kern starting index for boundarychar is too large;" ) ;
fprintf(stdout, "%s\n", "so I removed it." ) ;
}
else {
labelptr = 1 ;
labeltable [1 ].cc = 256 ;
labeltable [1 ].rr = r ;
bcharlabel = r ;
activity [r ]= 2 ;
}
activity [nl - 1 ]= 1 ;
}
}
{register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do
if ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) == 1 )
{
r = tfm [4 * ( charbase + c ) + 3 ];
if ( r < nl )
{
if ( tfm [4 * ( ligkernbase + ( r ) ) ]> 128 )
{
r = 256 * tfm [4 * ( ligkernbase + ( r ) ) + 2 ]+ tfm [4 * (
ligkernbase + ( r ) ) + 3 ];
if ( r < nl )
if ( activity [tfm [4 * ( charbase + c ) + 3 ]]== 0 )
activity [tfm [4 * ( charbase + c ) + 3 ]]= 1 ;
}
}
if ( r >= nl )
{
perfect = false ;
fprintf(stdout, "%c\n", ' ' ) ;
Fputs(stdout, "Ligature/kern starting index for character " ) ;
printoctal ( c ) ;
fprintf(stdout, "%s\n", " is too large;" ) ;
fprintf(stdout, "%s\n", "so I removed it." ) ;
tfm [4 * ( charbase + c ) + 2 ]= 4 * ( tfm [4 * ( charbase + c ) +
2 ]/ 4 ) + 0 ;
}
else {
sortptr = labelptr ;
while ( labeltable [sortptr ].rr > r ) {
labeltable [sortptr + 1 ]= labeltable [sortptr ];
sortptr = sortptr - 1 ;
}
labeltable [sortptr + 1 ].cc = c ;
labeltable [sortptr + 1 ].rr = r ;
labelptr = labelptr + 1 ;
activity [r ]= 2 ;
}
}
while ( c++ < for_end ) ;}
labeltable [labelptr + 1 ].rr = ligsize ;
if ( nl > 0 )
{
left () ;
Fputs( plfile , "LIGTABLE" ) ;
outln () ;
{register integer for_end; ai = 0 ;for_end = nl - 1 ; if ( ai <=
for_end) do
if ( activity [ai ]== 2 )
{
r = tfm [4 * ( ligkernbase + ( ai ) ) ];
if ( r < 128 )
{
r = r + ai + 1 ;
if ( r >= nl )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%ld%s\n", "Bad TFM file: " , "Ligature/kern step " , (long)ai , " skips too far;" ) ;
}
fprintf(stdout, "%s\n", "I made it stop." ) ;
tfm [4 * ( ligkernbase + ( ai ) ) ]= 128 ;
}
else activity [r ]= 2 ;
}
}
while ( ai++ < for_end ) ;}
sortptr = 1 ;
{register integer for_end; acti = 0 ;for_end = nl - 1 ; if ( acti <=
for_end) do
if ( activity [acti ]!= 1 )
{
i = acti ;
if ( activity [i ]== 0 )
{
if ( level == 1 )
{
left () ;
Fputs( plfile , "COMMENT THIS PART OF THE PROGRAM IS NEVER USED!" ) ;
outln () ;
}
}
else if ( level == 2 )
right () ;
while ( i == labeltable [sortptr ].rr ) {
left () ;
Fputs( plfile , "LABEL" ) ;
if ( labeltable [sortptr ].cc == 256 )
Fputs( plfile , " BOUNDARYCHAR" ) ;
else outchar ( labeltable [sortptr ].cc ) ;
right () ;
sortptr = sortptr + 1 ;
}
{
k = 4 * ( ligkernbase + ( i ) ) ;
if ( tfm [k ]> 128 )
{
if ( 256 * tfm [k + 2 ]+ tfm [k + 3 ]>= nl )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Ligature unconditional stop command address is too big." ) ;
}
}
else if ( tfm [k + 2 ]>= 128 )
{
if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [
4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) )
if ( tfm [k + 1 ]!= boundarychar )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Kern step for" , " nonexistent character " ) ;
printoctal ( tfm [k + 1 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 1 ]= bc ;
}
left () ;
Fputs( plfile , "KRN" ) ;
outchar ( tfm [k + 1 ]) ;
r = 256 * ( tfm [k + 2 ]- 128 ) + tfm [k + 3 ];
if ( r >= nk )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad TFM file: " , "Kern index too large." ) ;
}
Fputs( plfile , " R 0.0" ) ;
}
else outfix ( 4 * ( kernbase + r ) ) ;
right () ;
}
else {
if ( ( ( tfm [k + 1 ]< bc ) || ( tfm [k + 1 ]> ec ) || ( tfm [
4 * ( charbase + tfm [k + 1 ]) ]== 0 ) ) )
if ( tfm [k + 1 ]!= boundarychar )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Ligature step for" , " nonexistent character " ) ;
printoctal ( tfm [k + 1 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 1 ]= bc ;
}
if ( ( ( tfm [k + 3 ]< bc ) || ( tfm [k + 3 ]> ec ) || ( tfm [
4 * ( charbase + tfm [k + 3 ]) ]== 0 ) ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Ligature step produces the" , " nonexistent character " ) ;
printoctal ( tfm [k + 3 ]) ;
fprintf(stdout, "%c\n", '.' ) ;
tfm [k + 3 ]= bc ;
}
left () ;
r = tfm [k + 2 ];
if ( ( r == 4 ) || ( ( r > 7 ) && ( r != 11 ) ) )
{
fprintf(stdout, "%s\n", "Ligature step with nonstandard code changed to LIG" )
;
r = 0 ;
tfm [k + 2 ]= 0 ;
}
if ( r % 4 > 1 )
putc ( '/' , plfile );
Fputs( plfile , "LIG" ) ;
if ( odd ( r ) )
putc ( '/' , plfile );
while ( r > 3 ) {
putc ( '>' , plfile );
r = r - 4 ;
}
outchar ( tfm [k + 1 ]) ;
outchar ( tfm [k + 3 ]) ;
right () ;
}
if ( tfm [k ]> 0 )
if ( level == 1 )
{
if ( tfm [k ]>= 128 )
Fputs( plfile , "(STOP)" ) ;
else {
count = 0 ;
{register integer for_end; ai = i + 1 ;for_end = i + tfm [k ]
; if ( ai <= for_end) do
if ( activity [ai ]== 2 )
count = count + 1 ;
while ( ai++ < for_end ) ;}
fprintf( plfile , "%s%ld%c", "(SKIP D " , (long)count , ')' ) ;
}
outln () ;
}
}
}
while ( acti++ < for_end ) ;}
if ( level == 2 )
right () ;
right () ;
hashptr = 0 ;
yligcycle = 256 ;
{register integer for_end; hh = 0 ;for_end = hashsize ; if ( hh <=
for_end) do
hash [hh ]= 0 ;
while ( hh++ < for_end ) ;}
{register integer for_end; c = bc ;for_end = ec ; if ( c <= for_end) do
if ( ( tfm [4 * ( charbase + c ) + 2 ]% 4 ) == 1 )
{
i = tfm [4 * ( charbase + c ) + 3 ];
if ( tfm [4 * ( ligkernbase + ( i ) ) ]> 128 )
i = 256 * tfm [4 * ( ligkernbase + ( i ) ) + 2 ]+ tfm [4 * (
ligkernbase + ( i ) ) + 3 ];
do {
hashinput () ;
k = tfm [4 * ( ligkernbase + ( i ) ) ];
if ( k >= 128 )
i = nl ;
else i = i + 1 + k ;
} while ( ! ( i >= nl ) ) ;
}
while ( c++ < for_end ) ;}
if ( bcharlabel < nl )
{
c = 256 ;
i = bcharlabel ;
do {
hashinput () ;
k = tfm [4 * ( ligkernbase + ( i ) ) ];
if ( k >= 128 )
i = nl ;
else i = i + 1 + k ;
} while ( ! ( i >= nl ) ) ;
}
if ( hashptr == hashsize )
{
fprintf(stdout, "%s\n", "Sorry, I haven't room for so many ligature/kern pairs!" ) ;
goto lab9999 ;
}
{register integer for_end; hh = 1 ;for_end = hashptr ; if ( hh <=
for_end) do
{
r = hashlist [hh ];
if ( classvar [r ]> 0 )
r = ffn ( r , ( hash [r ]- 1 ) / 256 , ( hash [r ]- 1 ) % 256 ) ;
}
while ( hh++ < for_end ) ;}
if ( yligcycle < 256 )
{
Fputs(stdout, "Infinite ligature loop starting with " ) ;
if ( xligcycle == 256 )
Fputs(stdout, "boundary" ) ;
else printoctal ( xligcycle ) ;
Fputs(stdout, " and " ) ;
printoctal ( yligcycle ) ;
fprintf(stdout, "%c\n", '!' ) ;
Fputs( plfile , "(INFINITE LIGATURE LOOP MUST BE BROKEN!)" ) ;
goto lab9999 ;
}
}
if ( ne > 0 )
{register integer for_end; c = 0 ;for_end = ne - 1 ; if ( c <= for_end) do
{register integer for_end; d = 0 ;for_end = 3 ; if ( d <= for_end) do
{
k = 4 * ( extenbase + c ) + d ;
if ( ( tfm [k ]> 0 ) || ( d == 3 ) )
{
if ( ( ( tfm [k ]< bc ) || ( tfm [k ]> ec ) || ( tfm [4 * (
charbase + tfm [k ]) ]== 0 ) ) )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%s", "Bad TFM file: " , "Extensible recipe involves the" , " nonexistent character " ) ;
printoctal ( tfm [k ]) ;
fprintf(stdout, "%c\n", '.' ) ;
}
if ( d < 3 )
tfm [k ]= 0 ;
}
}
}
while ( d++ < for_end ) ;}
while ( c++ < for_end ) ;}
docharacters () ;
if ( verbose )
fprintf(stdout, "%c\n", '.' ) ;
if ( level != 0 )
fprintf(stdout, "%s\n", "This program isn't working!" ) ;
if ( ! perfect )
Fputs( plfile , "(COMMENT THE TFM FILE WAS BAD, SO THE DATA HAS BEEN CHANGED!)" ) ;
lab9999: ;
}
|
