#define VFTOVP
#include "cpascal.h"
/* 9999 */
#define tfmsize ( 30000 )
#define vfsize ( 10000 )
#define maxfonts ( 300 )
#define ligsize ( 5000 )
#define hashsize ( 5003 )
#define maxstack ( 50 )
#define charcodeascii ( 0 )
#define charcodeoctal ( 1 )
#define charcodedefault ( 2 )
typedef unsigned char byte ;
typedef integer indextype ;
typedef integer charcodeformattype ;
text /* of byte */ vffile ;
text /* of byte */ tfmfile ;
short lf, lh, bc, ec, nw, nh, nd, ni, nl, nk, ne, np ;
text vplfile ;
byte
#define tfm (zzzaa +1000)
zzzaa[tfmsize + 1001] ;
integer charbase, widthbase, heightbase, depthbase, italicbase, ligkernbase,
kernbase, extenbase, parambase ;
char fonttype ;
byte vf[vfsize + 1] ;
integer fontnumber[maxfonts + 1] ;
integer fontstart[maxfonts + 1], fontchars[maxfonts + 1] ;
integer fontptr ;
integer packetstart[256], packetend[256] ;
boolean packetfound ;
byte tempbyte ;
integer count ;
real realdsize ;
integer pl ;
integer vfptr ;
integer vfcount ;
integer a ;
integer l ;
char * curname ;
byte b0, b1, b2, b3 ;
short fontlh ;
short fontbc, fontec ;
char defaultdirectory[10] ;
cstring ASCII04, ASCII10, ASCII14 ;
char xchr[256] ;
cstring MBLstring, RIstring, RCEstring ;
char dig[12] ;
char level ;
char charsonline ;
boolean perfect ;
short i ;
short c ;
char d ;
indextype k ;
unsigned short r ;
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 ;
integer top ;
integer wstack[maxstack + 1], xstack[maxstack + 1], ystack[maxstack + 1],
zstack[maxstack + 1] ;
integer vflimit ;
byte o ;
cinttype verbose ;
charcodeformattype charcodeformat ;
cstring vfname, tfmname, vplname ;
#include "vftovp.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 , "vftovp" ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "help" ) == 0 ) )
{
usage ( 0 , VFTOVPHELP ) ;
}
else if ( ( strcmp ( longoptions [optionindex ].name , "version" ) == 0
) )
{
printversionandexit ( "This is VFtoVP, Version 1.2" , 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 ) && ( optind + 3 !=
argc ) )
{
fprintf( stderr , "%s\n", "vftovp: Need one to three file arguments." ) ;
usage ( 1 , "vftovp" ) ;
}
vfname = cmdline ( optind ) ;
if ( optind + 2 <= argc )
{
tfmname = cmdline ( optind + 1 ) ;
}
else {
tfmname = basenamechangesuffix ( vfname , ".vf" , ".tfm" ) ;
}
}
void
#ifdef HAVE_PROTOTYPES
initialize ( void )
#else
initialize ( )
#endif
{
integer k ;
kpsesetprogname ( argv [0 ]) ;
kpseinitprog ( "VFTOVP" , 0 , nil , nil ) ;
parsearguments () ;
vffile = kpseopenfile ( vfname , kpsevfformat ) ;
tfmfile = kpseopenfile ( tfmname , kpsetfmformat ) ;
if ( verbose )
{
Fputs(stdout, "This is VFtoVP, Version 1.2" ) ;
fprintf(stdout, "%s\n", versionstring ) ;
}
if ( optind + 3 > argc )
{
vplfile = stdout ;
}
else {
vplname = extendfilename ( cmdline ( optind + 2 ) , "vpl" ) ;
rewrite ( vplfile , vplname ) ;
}
ASCII04 = " !\"#$%&'()*+,-./0123456789:;<=>?" ;
ASCII10 = " @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_" ;
ASCII14 = " `abcdefghijklmnopqrstuvwxyz{|}~?" ;
{register integer for_end; k = 0 ;for_end = 255 ; if ( k <= for_end) do
xchr [k ]= '?' ;
while ( k++ < for_end ) ;}
{register integer for_end; k = 0 ;for_end = 31 ; if ( k <= for_end) do
{
xchr [k + 32 ]= ASCII04 [k + 1 ];
xchr [k + 64 ]= ASCII10 [k + 1 ];
xchr [k + 96 ]= ASCII14 [k + 1 ];
}
while ( k++ < for_end ) ;}
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
readtfmword ( void )
#else
readtfmword ( )
#endif
{
if ( eof ( tfmfile ) )
b0 = 0 ;
else read ( tfmfile , b0 ) ;
if ( eof ( tfmfile ) )
b1 = 0 ;
else read ( tfmfile , b1 ) ;
if ( eof ( tfmfile ) )
b2 = 0 ;
else read ( tfmfile , b2 ) ;
if ( eof ( tfmfile ) )
b3 = 0 ;
else read ( tfmfile , b3 ) ;
}
integer
#ifdef HAVE_PROTOTYPES
zvfread ( integer k )
#else
zvfread ( k )
integer k ;
#endif
{
register integer Result; byte b ;
integer a ;
vfcount = vfcount + k ;
if ( eof ( vffile ) )
b = 0 ;
else read ( vffile , b ) ;
a = b ;
if ( k == 4 )
if ( b >= 128 )
a = a - 256 ;
while ( k > 1 ) {
if ( eof ( vffile ) )
b = 0 ;
else read ( vffile , b ) ;
a = 256 * a + b ;
k = k - 1 ;
}
Result = a ;
return Result ;
}
integer
#ifdef HAVE_PROTOTYPES
ztfmwidth ( byte c )
#else
ztfmwidth ( c )
byte c ;
#endif
{
register integer Result; integer a ;
indextype k ;
k = 4 * ( widthbase + tfm [4 * ( charbase + c ) ]) ;
a = tfm [k ];
if ( a >= 128 )
a = a - 256 ;
Result = ( ( 256 * a + tfm [k + 1 ]) * 256 + tfm [k + 2 ]) * 256 + tfm [
k + 3 ];
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
zoutdigs ( integer j )
#else
zoutdigs ( j )
integer j ;
#endif
{
do {
j = j - 1 ;
fprintf( vplfile , "%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', vplfile );
{register integer for_end; l = 1 ;for_end = level ; if ( l <= for_end) do
Fputs( vplfile , " " ) ;
while ( l++ < for_end ) ;}
}
void
#ifdef HAVE_PROTOTYPES
left ( void )
#else
left ( )
#endif
{
level = level + 1 ;
putc ( '(' , vplfile );
}
void
#ifdef HAVE_PROTOTYPES
right ( void )
#else
right ( )
#endif
{
level = level - 1 ;
putc ( ')' , vplfile );
outln () ;
}
void
#ifdef HAVE_PROTOTYPES
zoutBCPL ( indextype k )
#else
zoutBCPL ( k )
indextype k ;
#endif
{
char l ;
putc ( ' ' , vplfile );
l = tfm [k ];
while ( l > 0 ) {
k = k + 1 ;
l = l - 1 ;
putc ( xchr [tfm [k ]], vplfile );
}
}
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( vplfile , " 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( vplfile , "%s%c", " C " , xchr [c ]) ;
else if ( ( ( c >= 48 ) && ( c <= 57 ) ) || ( ( c >= 65 ) && ( c <= 90 ) )
|| ( ( c >= 97 ) && ( c <= 122 ) ) )
fprintf( vplfile , "%s%c", " C " , xchr [c ]) ;
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( vplfile , " F " ) ;
s = tfm [k ]% 2 ;
b = tfm [k ]/ 2 ;
putbyte ( MBLstring [1 + ( b % 3 ) ], vplfile ) ;
putbyte ( RIstring [1 + s ], vplfile ) ;
putbyte ( RCEstring [1 + ( b / 3 ) ], vplfile ) ;
}
}
void
#ifdef HAVE_PROTOTYPES
zoutfix ( indextype k )
#else
zoutfix ( k )
indextype k ;
#endif
{
short a ;
integer f ;
char j ;
integer delta ;
Fputs( vplfile , " 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 ( '-' , vplfile );
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 ( '.' , vplfile );
f = 10 * f + 5 ;
delta = 10 ;
do {
if ( delta > 1048576L )
f = f + 524288L - ( delta / 2 ) ;
fprintf( vplfile , "%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
{
/* 10 */ char cc ;
unsigned char zz ;
unsigned char y ;
integer key ;
integer t ;
if ( hashptr == hashsize )
goto lab10 ;
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 lab10 ;
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 ;
lab10: ;
}
#ifdef notdef
indextype
#ifdef HAVE_PROTOTYPES
zligf ( indextype h , indextype x , indextype y )
#else
zligf ( 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 = ligf ( h , x , y ) ;
return Result ;
}
indextype
#ifdef HAVE_PROTOTYPES
zligf ( indextype h , indextype x , indextype y )
#else
zligf ( 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
zstringbalance ( integer k , integer l )
#else
zstringbalance ( k , l )
integer k ;
integer l ;
#endif
{
/* 45 10 */ register boolean Result; integer j, bal ;
if ( l > 0 )
if ( vf [k ]== 32 )
goto lab45 ;
bal = 0 ;
{register integer for_end; j = k ;for_end = k + l - 1 ; if ( j <= for_end)
do
{
if ( ( vf [j ]< 32 ) || ( vf [j ]>= 127 ) )
goto lab45 ;
if ( vf [j ]== 40 )
bal = bal + 1 ;
else if ( vf [j ]== 41 )
if ( bal == 0 )
goto lab45 ;
else bal = bal - 1 ;
}
while ( j++ < for_end ) ;}
if ( bal > 0 )
goto lab45 ;
Result = true ;
goto lab10 ;
lab45: Result = false ;
lab10: ;
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
zoutasfix ( integer x )
#else
zoutasfix ( x )
integer x ;
#endif
{
char k ;
if ( abs ( x ) >= 16777216L )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Oversize dimension has been reset to zero." )
;
}
if ( x >= 0 )
tfm [28 ]= 0 ;
else {
tfm [28 ]= 255 ;
x = x + 16777216L ;
}
{register integer for_end; k = 3 ;for_end = 1 ; if ( k >= for_end) do
{
tfm [28 + k ]= x % 256 ;
x = x / 256 ;
}
while ( k-- > for_end ) ;}
outfix ( 28 ) ;
}
integer
#ifdef HAVE_PROTOTYPES
zgetbytes ( integer k , boolean issigned )
#else
zgetbytes ( k , issigned )
integer k ;
boolean issigned ;
#endif
{
register integer Result; integer a ;
if ( vfptr + k > vflimit )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Packet ended prematurely" ) ;
}
k = vflimit - vfptr ;
}
a = vf [vfptr ];
if ( ( k == 4 ) || issigned )
if ( a >= 128 )
a = a - 256 ;
vfptr = vfptr + 1 ;
while ( k > 1 ) {
a = a * 256 + vf [vfptr ];
vfptr = vfptr + 1 ;
k = k - 1 ;
}
Result = a ;
return Result ;
}
boolean
#ifdef HAVE_PROTOTYPES
vfinput ( void )
#else
vfinput ( )
#endif
{
/* 9999 10 */ register boolean Result; integer vfptr ;
integer k ;
integer c ;
read ( vffile , tempbyte ) ;
if ( tempbyte != 247 )
{
fprintf( stderr , "%s\n", "The first byte isn't `pre'!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
if ( eof ( vffile ) )
{
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 VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , tempbyte ) ;
if ( tempbyte != 202 )
{
fprintf( stderr , "%s\n", "Wrong VF version number in second byte!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The input file is only two bytes long!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , tempbyte ) ;
vfcount = 11 ;
vfptr = 0 ;
if ( vfptr + tempbyte >= vfsize )
{
fprintf( stderr , "%s\n", "The file is bigger than I can handle!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
{register integer for_end; k = vfptr ;for_end = vfptr + tempbyte - 1
; if ( k <= for_end) do
{
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The file ended prematurely!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , vf [k ]) ;
}
while ( k++ < for_end ) ;}
vfcount = vfcount + tempbyte ;
vfptr = vfptr + tempbyte ;
if ( verbose )
{
{register integer for_end; k = 0 ;for_end = vfptr - 1 ; if ( k <=
for_end) do
putc (xchr [vf [k ]], stdout);
while ( k++ < for_end ) ;}
fprintf(stdout, "%c\n", ' ' ) ;
}
count = 0 ;
{register integer for_end; k = 0 ;for_end = 7 ; if ( k <= for_end) do
{
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The file ended prematurely!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , tempbyte ) ;
if ( tempbyte == tfm [24 + k ])
count = count + 1 ;
}
while ( k++ < for_end ) ;}
realdsize = ( ( ( tfm [28 ]* 256 + tfm [29 ]) * 256 + tfm [30 ]) * 256
+ tfm [31 ]) / ((double) 1048576L ) ;
if ( count != 8 )
{
fprintf(stdout, "%s\n", "Check sum and/or design size mismatch." ) ;
fprintf(stdout, "%s\n", "Data from TFM file will be assumed correct." ) ;
}
{register integer for_end; k = 0 ;for_end = 255 ; if ( k <= for_end) do
packetstart [k ]= vfsize ;
while ( k++ < for_end ) ;}
fontptr = 0 ;
packetfound = false ;
fontstart [0 ]= vfptr ;
do {
if ( eof ( vffile ) )
{
fprintf(stdout, "%s\n", "File ended without a postamble!" ) ;
tempbyte = 248 ;
}
else {
read ( vffile , tempbyte ) ;
vfcount = vfcount + 1 ;
if ( tempbyte != 248 )
if ( tempbyte > 242 )
{
if ( packetfound || ( tempbyte >= 247 ) )
{
fprintf( stderr , "%s%ld%s\n", "Illegal byte " , (long)tempbyte , " at beginning of character packet!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
fontnumber [fontptr ]= vfread ( tempbyte - 242 ) ;
if ( fontptr == maxfonts )
{
fprintf( stderr , "%s\n", "I can't handle that many fonts!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
if ( vfptr + 14 >= vfsize )
{
fprintf( stderr , "%s\n", "The file is bigger than I can handle!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
{register integer for_end; k = vfptr ;for_end = vfptr + 13 ; if ( k
<= for_end) do
{
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The file ended prematurely!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , vf [k ]) ;
}
while ( k++ < for_end ) ;}
vfcount = vfcount + 14 ;
vfptr = vfptr + 14 ;
if ( vf [vfptr - 10 ]> 0 )
{
fprintf( stderr , "%s\n", "Mapped font size is too big!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
a = vf [vfptr - 2 ];
l = vf [vfptr - 1 ];
if ( vfptr + a + l >= vfsize )
{
fprintf( stderr , "%s\n", "The file is bigger than I can handle!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
{register integer for_end; k = vfptr ;for_end = vfptr + a + l - 1
; if ( k <= for_end) do
{
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The file ended prematurely!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , vf [k ]) ;
}
while ( k++ < for_end ) ;}
vfcount = vfcount + a + l ;
vfptr = vfptr + a + l ;
if ( verbose )
{
fprintf(stdout, "%s%ld%s", "MAPFONT " , (long)fontptr , ": " ) ;
{register integer for_end; k = fontstart [fontptr ]+ 14 ;for_end
= vfptr - 1 ; if ( k <= for_end) do
putc (xchr [vf [k ]], stdout);
while ( k++ < for_end ) ;}
k = fontstart [fontptr ]+ 5 ;
Fputs(stdout, " at " ) ;
printreal ( ( ( ( vf [k ]* 256 + vf [k + 1 ]) * 256 + vf [k + 2
]) / ((double) 1048576L ) ) * realdsize , 2 , 2 ) ;
fprintf(stdout, "%s\n", "pt" ) ;
}
fontchars [fontptr ]= vfptr ;
r = vfptr - ( fontstart [fontptr ]+ 14 ) ;
curname = xmalloc ( r + 1 ) ;
{register integer for_end; k = ( fontstart [fontptr ]+ 14 ) ;
for_end = vfptr ; if ( k <= for_end) do
{
curname [k - ( fontstart [fontptr ]+ 14 ) ]= xchr [vf [k ]]
;
}
while ( k++ < for_end ) ;}
curname [r ]= 0 ;
tfmname = kpsefindtfm ( curname ) ;
free ( curname ) ;
if ( ! tfmname )
fprintf( stderr , "%s\n", "---not loaded, TFM file can't be opened!" ) ;
else {
resetbin ( tfmfile , tfmname ) ;
free ( tfmname ) ;
fontbc = 0 ;
fontec = 256 ;
readtfmword () ;
if ( b2 < 128 )
{
fontlh = b2 * 256 + b3 ;
readtfmword () ;
if ( ( b0 < 128 ) && ( b2 < 128 ) )
{
fontbc = b0 * 256 + b1 ;
fontec = b2 * 256 + b3 ;
}
}
if ( fontbc <= fontec )
if ( fontec > 255 )
fprintf(stdout, "%s\n", "---not loaded, bad TFM file!" ) ;
else {
{register integer for_end; k = 0 ;for_end = 3 + fontlh ; if ( k
<= for_end) do
{
readtfmword () ;
if ( k == 4 )
if ( b0 + b1 + b2 + b3 > 0 )
if ( ( b0 != vf [fontstart [fontptr ]]) || ( b1 != vf [
fontstart [fontptr ]+ 1 ]) || ( b2 != vf [fontstart [
fontptr ]+ 2 ]) || ( b3 != vf [fontstart [fontptr ]+ 3 ]
) )
{
if ( verbose )
fprintf(stdout, "%s\n", "Check sum in VF file being replaced by TFM check sum" ) ;
vf [fontstart [fontptr ]]= b0 ;
vf [fontstart [fontptr ]+ 1 ]= b1 ;
vf [fontstart [fontptr ]+ 2 ]= b2 ;
vf [fontstart [fontptr ]+ 3 ]= b3 ;
}
if ( k == 5 )
if ( ( b0 != vf [fontstart [fontptr ]+ 8 ]) || ( b1 != vf
[fontstart [fontptr ]+ 9 ]) || ( b2 != vf [fontstart [
fontptr ]+ 10 ]) || ( b3 != vf [fontstart [fontptr ]+ 11
]) )
{
fprintf(stdout, "%s\n", "Design size in VF file being replaced by TFM design size" )
;
vf [fontstart [fontptr ]+ 8 ]= b0 ;
vf [fontstart [fontptr ]+ 9 ]= b1 ;
vf [fontstart [fontptr ]+ 10 ]= b2 ;
vf [fontstart [fontptr ]+ 11 ]= b3 ;
}
}
while ( k++ < for_end ) ;}
{register integer for_end; k = fontbc ;for_end = fontec ; if ( k
<= for_end) do
{
readtfmword () ;
if ( b0 > 0 )
{
vf [vfptr ]= k ;
vfptr = vfptr + 1 ;
if ( vfptr == vfsize )
{
fprintf( stderr , "%s\n", "I'm out of VF memory!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
}
}
while ( k++ < for_end ) ;}
}
if ( eof ( tfmfile ) )
fprintf(stdout, "%s\n", "---trouble is brewing, TFM file ended too soon!" ) ;
}
vfptr = vfptr + 1 ;
fontptr = fontptr + 1 ;
fontstart [fontptr ]= vfptr ;
}
else {
if ( tempbyte == 242 )
{
pl = vfread ( 4 ) ;
c = vfread ( 4 ) ;
count = vfread ( 4 ) ;
}
else {
pl = tempbyte ;
c = vfread ( 1 ) ;
count = vfread ( 3 ) ;
}
if ( ( ( c < bc ) || ( c > ec ) || ( tfm [4 * ( charbase + c ) ]== 0
) ) )
{
fprintf( stderr , "%s%ld%s\n", "Character " , (long)c , " does not exist!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
if ( packetstart [c ]< vfsize )
fprintf(stdout, "%s%ld\n", "Discarding earlier packet for character " , (long)c ) ;
if ( count != tfmwidth ( c ) )
fprintf(stdout, "%s%ld%s\n", "Incorrect TFM width for character " , (long)c , " in VF file" ) ;
if ( pl < 0 )
{
fprintf( stderr , "%s\n", "Negative packet length!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
packetstart [c ]= vfptr ;
if ( vfptr + pl >= vfsize )
{
fprintf( stderr , "%s\n", "The file is bigger than I can handle!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
{register integer for_end; k = vfptr ;for_end = vfptr + pl - 1
; if ( k <= for_end) do
{
if ( eof ( vffile ) )
{
fprintf( stderr , "%s\n", "The file ended prematurely!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a VF?" ) ;
uexit ( 1 ) ;
}
read ( vffile , vf [k ]) ;
}
while ( k++ < for_end ) ;}
vfcount = vfcount + pl ;
vfptr = vfptr + pl ;
packetend [c ]= vfptr - 1 ;
packetfound = true ;
}
}
} while ( ! ( tempbyte == 248 ) ) ;
while ( ( tempbyte == 248 ) && ! eof ( vffile ) ) {
read ( vffile , tempbyte ) ;
vfcount = vfcount + 1 ;
}
if ( ! eof ( vffile ) )
{
fprintf(stdout, "%s\n", "There's some extra junk at the end of the VF file." ) ;
fprintf(stdout, "%s\n", "I'll proceed as if it weren't there." ) ;
}
if ( vfcount % 4 != 0 )
fprintf(stdout, "%s\n", "VF data not a multiple of 4 bytes" ) ;
Result = true ;
goto lab10 ;
lab9999: Result = false ;
lab10: ;
return Result ;
}
boolean
#ifdef HAVE_PROTOTYPES
organize ( void )
#else
organize ( )
#endif
{
/* 9999 10 */ register boolean Result; indextype tfmptr ;
read ( tfmfile , tfm [0 ]) ;
if ( tfm [0 ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( eof ( tfmfile ) )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
read ( tfmfile , tfm [1 ]) ;
lf = tfm [0 ]* 256 + tfm [1 ];
if ( lf == 0 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( 4 * lf - 1 > tfmsize )
{
fprintf(stdout, "%s\n", "The file is bigger than I can handle!" ) ;
fprintf( stderr , "%s\n", "Sorry, but I can't go on; are you sure this is a TFM?" ) ;
uexit ( 1 ) ;
}
{register integer for_end; tfmptr = 2 ;for_end = 4 * lf - 1 ; if ( tfmptr
<= for_end) do
{
if ( eof ( tfmfile ) )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
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(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
lh = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
bc = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
ec = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
nw = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
nh = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
nd = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
ni = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
nl = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
nk = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
ne = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
{
if ( tfm [tfmptr ]> 127 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
np = tfm [tfmptr ]* 256 + tfm [tfmptr + 1 ];
tfmptr = tfmptr + 2 ;
}
if ( lh < 2 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( nl > 4 * ligsize )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( ( bc > ec + 1 ) || ( ec > 255 ) )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( ( nw == 0 ) || ( nh == 0 ) || ( nd == 0 ) || ( ni == 0 ) )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( ne > 256 )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
if ( lf != 6 + lh + ( ec - bc + 1 ) + nw + nh + nd + ni + nl + nk + ne +
np )
{
fprintf(stdout, "%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?" ) ;
uexit ( 1 ) ;
}
}
{
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 = vfinput () ;
goto lab10 ;
lab9999: Result = false ;
lab10: ;
return Result ;
}
void
#ifdef HAVE_PROTOTYPES
dosimplethings ( void )
#else
dosimplethings ( )
#endif
{
short i ;
integer f ;
integer k ;
if ( stringbalance ( 0 , fontstart [0 ]) )
{
left () ;
Fputs( vplfile , "VTITLE " ) ;
{register integer for_end; k = 0 ;for_end = fontstart [0 ]- 1 ; if ( k
<= for_end) do
putc ( xchr [vf [k ]], vplfile );
while ( k++ < for_end ) ;}
right () ;
}
else {
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Title is not a balanced ASCII string" ) ;
}
{
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( vplfile , "FAMILY" ) ;
checkBCPL ( 72 , 20 ) ;
outBCPL ( 72 ) ;
right () ;
if ( lh >= 18 )
{
left () ;
Fputs( vplfile , "FACE" ) ;
outface ( 95 ) ;
right () ;
{register integer for_end; i = 18 ;for_end = lh - 1 ; if ( i <=
for_end) do
{
left () ;
fprintf( vplfile , "%s%ld", "HEADER D " , (long)i ) ;
outoctal ( 24 + 4 * i , 4 ) ;
right () ;
}
while ( i++ < for_end ) ;}
}
}
left () ;
Fputs( vplfile , "CODINGSCHEME" ) ;
outBCPL ( 32 ) ;
right () ;
}
left () ;
Fputs( vplfile , "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( vplfile , " 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( vplfile , " D 10" ) ;
}
else outfix ( 28 ) ;
right () ;
Fputs( vplfile , "(COMMENT DESIGNSIZE IS IN POINTS)" ) ;
outln () ;
Fputs( vplfile , "(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)" ) ;
outln () ;
left () ;
Fputs( vplfile , "CHECKSUM" ) ;
outoctal ( 24 , 4 ) ;
right () ;
if ( ( lh > 17 ) && ( tfm [92 ]> 127 ) )
{
left () ;
Fputs( vplfile , "SEVENBITSAFEFLAG TRUE" ) ;
right () ;
}
}
if ( np > 0 )
{
left () ;
Fputs( vplfile , "FONTDIMEN" ) ;
outln () ;
{register integer for_end; i = 1 ;for_end = np ; if ( i <= for_end) do
{
left () ;
if ( i == 1 )
Fputs( vplfile , "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( vplfile , "SPACE" ) ;
break ;
case 3 :
Fputs( vplfile , "STRETCH" ) ;
break ;
case 4 :
Fputs( vplfile , "SHRINK" ) ;
break ;
case 5 :
Fputs( vplfile , "XHEIGHT" ) ;
break ;
case 6 :
Fputs( vplfile , "QUAD" ) ;
break ;
case 7 :
Fputs( vplfile , "EXTRASPACE" ) ;
break ;
}
else if ( ( i <= 22 ) && ( fonttype == 1 ) )
switch ( i )
{case 8 :
Fputs( vplfile , "NUM1" ) ;
break ;
case 9 :
Fputs( vplfile , "NUM2" ) ;
break ;
case 10 :
Fputs( vplfile , "NUM3" ) ;
break ;
case 11 :
Fputs( vplfile , "DENOM1" ) ;
break ;
case 12 :
Fputs( vplfile , "DENOM2" ) ;
break ;
case 13 :
Fputs( vplfile , "SUP1" ) ;
break ;
case 14 :
Fputs( vplfile , "SUP2" ) ;
break ;
case 15 :
Fputs( vplfile , "SUP3" ) ;
break ;
case 16 :
Fputs( vplfile , "SUB1" ) ;
break ;
case 17 :
Fputs( vplfile , "SUB2" ) ;
break ;
case 18 :
Fputs( vplfile , "SUPDROP" ) ;
break ;
case 19 :
Fputs( vplfile , "SUBDROP" ) ;
break ;
case 20 :
Fputs( vplfile , "DELIM1" ) ;
break ;
case 21 :
Fputs( vplfile , "DELIM2" ) ;
break ;
case 22 :
Fputs( vplfile , "AXISHEIGHT" ) ;
break ;
}
else if ( ( i <= 13 ) && ( fonttype == 2 ) )
if ( i == 8 )
Fputs( vplfile , "DEFAULTRULETHICKNESS" ) ;
else
fprintf( vplfile , "%s%ld", "BIGOPSPACING" , (long)i - 8 ) ;
else
fprintf( vplfile , "%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)." ) ;
{register integer for_end; f = 0 ;for_end = fontptr - 1 ; if ( f <=
for_end) do
{
left () ;
fprintf( vplfile , "%s%ld", "MAPFONT D " , (long)f ) ;
outln () ;
a = vf [fontstart [f ]+ 12 ];
l = vf [fontstart [f ]+ 13 ];
if ( a > 0 )
if ( ! stringbalance ( fontstart [f ]+ 14 , a ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Improper font area will be ignored" ) ;
}
else {
left () ;
Fputs( vplfile , "FONTAREA " ) ;
{register integer for_end; k = fontstart [f ]+ 14 ;for_end =
fontstart [f ]+ a + 13 ; if ( k <= for_end) do
putc ( xchr [vf [k ]], vplfile );
while ( k++ < for_end ) ;}
right () ;
}
if ( ( l == 0 ) || ! stringbalance ( fontstart [f ]+ 14 + a , l ) )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Improper font name will be ignored" ) ;
}
else {
left () ;
Fputs( vplfile , "FONTNAME " ) ;
{register integer for_end; k = fontstart [f ]+ 14 + a ;for_end =
fontstart [f ]+ a + l + 13 ; if ( k <= for_end) do
putc ( xchr [vf [k ]], vplfile );
while ( k++ < for_end ) ;}
right () ;
}
{register integer for_end; k = 0 ;for_end = 11 ; if ( k <= for_end) do
tfm [k ]= vf [fontstart [f ]+ k ];
while ( k++ < for_end ) ;}
if ( tfm [0 ]+ tfm [1 ]+ tfm [2 ]+ tfm [3 ]> 0 )
{
left () ;
Fputs( vplfile , "FONTCHECKSUM" ) ;
outoctal ( 0 , 4 ) ;
right () ;
}
left () ;
Fputs( vplfile , "FONTAT" ) ;
outfix ( 4 ) ;
right () ;
left () ;
Fputs( vplfile , "FONTDSIZE" ) ;
outfix ( 8 ) ;
right () ;
right () ;
}
while ( f++ < for_end ) ;}
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 ) ;}
}
boolean
#ifdef HAVE_PROTOTYPES
zdomap ( byte c )
#else
zdomap ( c )
byte c ;
#endif
{
/* 9999 10 */ register boolean Result; integer k ;
integer f ;
if ( packetstart [c ]== vfsize )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%ld\n", "Bad VF file: " , "Missing packet for character " , (long)c ) ;
}
else {
left () ;
Fputs( vplfile , "MAP" ) ;
outln () ;
top = 0 ;
wstack [0 ]= 0 ;
xstack [0 ]= 0 ;
ystack [0 ]= 0 ;
zstack [0 ]= 0 ;
vfptr = packetstart [c ];
vflimit = packetend [c ]+ 1 ;
f = 0 ;
while ( vfptr < vflimit ) {
o = vf [vfptr ];
vfptr = vfptr + 1 ;
if ( ( ( o <= 127 ) ) || ( ( o >= 128 ) && ( o <= 131 ) ) || ( ( o >=
133 ) && ( o <= 136 ) ) )
{
if ( o >= 128 )
if ( o >= 133 )
c = getbytes ( o - 132 , false ) ;
else c = getbytes ( o - 127 , false ) ;
else c = o ;
if ( f == fontptr )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%ld%s\n", "Bad VF file: " , "Character " , (long)c , " in undeclared font will be ignored" ) ;
}
else {
vf [fontstart [f + 1 ]- 1 ]= c ;
k = fontchars [f ];
while ( vf [k ]!= c ) k = k + 1 ;
if ( k == fontstart [f + 1 ]- 1 )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%ld%s%ld%s\n", "Bad VF file: " , "Character " , (long)c , " in font " , (long)f , " will be ignored" ) ;
}
else {
if ( o >= 133 )
Fputs( vplfile , "(PUSH)" ) ;
left () ;
Fputs( vplfile , "SETCHAR" ) ;
outchar ( c ) ;
if ( o >= 133 )
Fputs( vplfile , ")(POP" ) ;
right () ;
}
}
}
else switch ( o )
{case 138 :
;
break ;
case 141 :
{
if ( top == maxstack )
{
fprintf( stderr , "%s\n", "Stack overflow!" ) ;
uexit ( 1 ) ;
}
top = top + 1 ;
wstack [top ]= wstack [top - 1 ];
xstack [top ]= xstack [top - 1 ];
ystack [top ]= ystack [top - 1 ];
zstack [top ]= zstack [top - 1 ];
Fputs( vplfile , "(PUSH)" ) ;
outln () ;
}
break ;
case 142 :
if ( top == 0 )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "More pops than pushes!" ) ;
}
else {
top = top - 1 ;
Fputs( vplfile , "(POP)" ) ;
outln () ;
}
break ;
case 132 :
case 137 :
{
if ( o == 137 )
Fputs( vplfile , "(PUSH)" ) ;
left () ;
Fputs( vplfile , "SETRULE" ) ;
outasfix ( getbytes ( 4 , true ) ) ;
outasfix ( getbytes ( 4 , true ) ) ;
if ( o == 137 )
Fputs( vplfile , ")(POP" ) ;
right () ;
}
break ;
case 143 :
case 144 :
case 145 :
case 146 :
{
Fputs( vplfile , "(MOVERIGHT" ) ;
outasfix ( getbytes ( o - 142 , true ) ) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 147 :
case 148 :
case 149 :
case 150 :
case 151 :
{
if ( o != 147 )
wstack [top ]= getbytes ( o - 147 , true ) ;
Fputs( vplfile , "(MOVERIGHT" ) ;
outasfix ( wstack [top ]) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 152 :
case 153 :
case 154 :
case 155 :
case 156 :
{
if ( o != 152 )
xstack [top ]= getbytes ( o - 152 , true ) ;
Fputs( vplfile , "(MOVERIGHT" ) ;
outasfix ( xstack [top ]) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 157 :
case 158 :
case 159 :
case 160 :
{
Fputs( vplfile , "(MOVEDOWN" ) ;
outasfix ( getbytes ( o - 156 , true ) ) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 161 :
case 162 :
case 163 :
case 164 :
case 165 :
{
if ( o != 161 )
ystack [top ]= getbytes ( o - 161 , true ) ;
Fputs( vplfile , "(MOVEDOWN" ) ;
outasfix ( ystack [top ]) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 166 :
case 167 :
case 168 :
case 169 :
case 170 :
{
if ( o != 166 )
zstack [top ]= getbytes ( o - 166 , true ) ;
Fputs( vplfile , "(MOVEDOWN" ) ;
outasfix ( zstack [top ]) ;
putc ( ')' , vplfile );
outln () ;
}
break ;
case 171 :
case 172 :
case 173 :
case 174 :
case 175 :
case 176 :
case 177 :
case 178 :
case 179 :
case 180 :
case 181 :
case 182 :
case 183 :
case 184 :
case 185 :
case 186 :
case 187 :
case 188 :
case 189 :
case 190 :
case 191 :
case 192 :
case 193 :
case 194 :
case 195 :
case 196 :
case 197 :
case 198 :
case 199 :
case 200 :
case 201 :
case 202 :
case 203 :
case 204 :
case 205 :
case 206 :
case 207 :
case 208 :
case 209 :
case 210 :
case 211 :
case 212 :
case 213 :
case 214 :
case 215 :
case 216 :
case 217 :
case 218 :
case 219 :
case 220 :
case 221 :
case 222 :
case 223 :
case 224 :
case 225 :
case 226 :
case 227 :
case 228 :
case 229 :
case 230 :
case 231 :
case 232 :
case 233 :
case 234 :
case 235 :
case 236 :
case 237 :
case 238 :
{
f = 0 ;
if ( o >= 235 )
fontnumber [fontptr ]= getbytes ( o - 234 , false ) ;
else fontnumber [fontptr ]= o - 171 ;
while ( fontnumber [f ]!= fontnumber [fontptr ]) f = f + 1 ;
if ( f == fontptr )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Undeclared font selected" ) ;
}
else {
fprintf( vplfile , "%s%ld%c", "(SELECTFONT D " , (long)f , ')' ) ;
outln () ;
}
}
break ;
case 239 :
case 240 :
case 241 :
case 242 :
{
k = getbytes ( o - 238 , false ) ;
if ( k < 0 )
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "String of negative length!" ) ;
}
else {
left () ;
if ( k + vfptr > vflimit )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "Special command truncated to packet length" ) ;
}
k = vflimit - vfptr ;
}
if ( ( k > 64 ) || ! stringbalance ( vfptr , k ) )
{
Fputs( vplfile , "SPECIALHEX " ) ;
while ( k > 0 ) {
if ( k % 32 == 0 )
outln () ;
else if ( k % 4 == 0 )
putc ( ' ' , vplfile );
{
a = vf [vfptr ]/ 16 ;
if ( a < 10 )
fprintf( vplfile , "%ld", (long)a ) ;
else
putc ( xchr [a + 55 ], vplfile );
}
{
a = vf [vfptr ]% 16 ;
if ( a < 10 )
fprintf( vplfile , "%ld", (long)a ) ;
else
putc ( xchr [a + 55 ], vplfile );
}
vfptr = vfptr + 1 ;
k = k - 1 ;
}
}
else {
Fputs( vplfile , "SPECIAL " ) ;
while ( k > 0 ) {
putc ( xchr [vf [vfptr ]], vplfile );
vfptr = vfptr + 1 ;
k = k - 1 ;
}
}
right () ;
}
}
break ;
case 139 :
case 140 :
case 243 :
case 244 :
case 245 :
case 246 :
case 247 :
case 248 :
case 249 :
case 250 :
case 251 :
case 252 :
case 253 :
case 254 :
case 255 :
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s%ld%s\n", "Bad VF file: " , "Illegal DVI code " , (long)o , " will be ignored" ) ;
}
break ;
}
}
if ( top > 0 )
{
{
perfect = false ;
if ( charsonline > 0 )
fprintf(stdout, "%c\n", ' ' ) ;
charsonline = 0 ;
fprintf(stdout, "%s%s\n", "Bad VF file: " , "More pushes than pops!" ) ;
}
do {
Fputs( vplfile , "(POP)" ) ;
top = top - 1 ;
} while ( ! ( top == 0 ) ) ;
}
right () ;
}
Result = true ;
goto lab10 ;
lab9999: Result = false ;
lab10: ;
return Result ;
}
boolean
#ifdef HAVE_PROTOTYPES
docharacters ( void )
#else
docharacters ( )
#endif
{
/* 9999 10 */ register boolean Result; 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( vplfile , "CHARACTER" ) ;
outchar ( c ) ;
outln () ;
{
left () ;
Fputs( vplfile , "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( vplfile , "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( vplfile , "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( vplfile , "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( vplfile , "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( vplfile , "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( vplfile , " 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 ( '/' , vplfile );
Fputs( vplfile , "LIG" ) ;
if ( odd ( r ) )
putc ( '/' , vplfile );
while ( r > 3 ) {
putc ( '>' , vplfile );
r = r - 4 ;
}
outchar ( tfm [k + 1 ]) ;
outchar ( tfm [k + 3 ]) ;
right () ;
}
if ( tfm [k ]> 0 )
if ( level == 1 )
{
if ( tfm [k ]>= 128 )
Fputs( vplfile , "(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( vplfile , "%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( vplfile , "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( vplfile , "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( vplfile , "TOP" ) ;
break ;
case 1 :
Fputs( vplfile , "MID" ) ;
break ;
case 2 :
Fputs( vplfile , "BOT" ) ;
break ;
case 3 :
Fputs( vplfile , "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 ;
}
if ( ! domap ( c ) )
goto lab9999 ;
right () ;
}
while ( c++ < for_end ) ;}
Result = true ;
goto lab10 ;
lab9999: Result = false ;
lab10: ;
return Result ;
}
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( vplfile , "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( vplfile , "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( vplfile , "COMMENT THIS PART OF THE PROGRAM IS NEVER USED!" ) ;
outln () ;
}
}
else if ( level == 2 )
right () ;
while ( i == labeltable [sortptr ].rr ) {
left () ;
Fputs( vplfile , "LABEL" ) ;
if ( labeltable [sortptr ].cc == 256 )
Fputs( vplfile , " 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( vplfile , "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( vplfile , " 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 ( '/' , vplfile );
Fputs( vplfile , "LIG" ) ;
if ( odd ( r ) )
putc ( '/' , vplfile );
while ( r > 3 ) {
putc ( '>' , vplfile );
r = r - 4 ;
}
outchar ( tfm [k + 1 ]) ;
outchar ( tfm [k + 3 ]) ;
right () ;
}
if ( tfm [k ]> 0 )
if ( level == 1 )
{
if ( tfm [k ]>= 128 )
Fputs( vplfile , "(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( vplfile , "%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( stderr , "%s\n", "Sorry, I haven't room for so many ligature/kern pairs!" ) ;
uexit ( 1 ) ;
}
{register integer for_end; hh = 1 ;for_end = hashptr ; if ( hh <=
for_end) do
{
r = hashlist [hh ];
if ( classvar [r ]> 0 )
r = ligf ( 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( vplfile , "(INFINITE LIGATURE LOOP MUST BE BROKEN!)" ) ;
uexit ( 1 ) ;
}
}
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 ) ;}
if ( ! docharacters () )
goto lab9999 ;
if ( verbose )
fprintf(stdout, "%c\n", '.' ) ;
if ( level != 0 )
fprintf(stdout, "%s\n", "This program isn't working!" ) ;
if ( ! perfect )
{
Fputs( vplfile , "(COMMENT THE TFM AND/OR VF FILE WAS BAD, " ) ;
Fputs( vplfile , "SO THE DATA HAS BEEN CHANGED!)" ) ;
}
lab9999: ;
}
|
