void
eval_two_bytes(unsigned *pos) {
if (ofm[ofm_ptr]>127)
fatal_error_0("One of the subfile sizes (2) is negative");
*pos = ofm[ofm_ptr]*0x100 + ofm[ofm_ptr+1];
ofm_ptr += 2;
}
void
eval_four_bytes(unsigned *pos) {
if (ofm[ofm_ptr]>127)
fatal_error_0("One of the subfile sizes (4) is negative");
*pos = ofm[ofm_ptr]*0x1000000 + ofm[ofm_ptr+1]*0x10000 +
ofm[ofm_ptr+2]*0x100 + ofm[ofm_ptr+3];
ofm_ptr += 4;
}
void
set_c_penglue_command(unsigned new_class, unsigned pen_index, unsigned glue_index)
{
fatal_error_0("CPENGLUE not currently supported");
}
void
set_c_penalty_command(unsigned new_class, unsigned pen_index)
{
fatal_error_0("CPEN not currently supported");
}
void
set_c_kerning_command(unsigned new_class, fix fval)
{
fatal_error_0("CKRN not currently supported");
}
void
set_c_label_command(unsigned new_class)
{
fatal_error_0("CLABEL not currently supported");
}
void
ofm_organize(void)
{
unsigned char_ptr,copies,i,j;
ofm_on = false; ofm_level = OFM_NOLEVEL; lf = 0; lh = 0;
nco = 0; ncw = 0; npc = 0;
bc = 0; ec = 0; nw = 0; nh = 0; nd = 0; ni = 0;
nl = 0; nk = 0; ne = 0; np = 0;
nki = 0; nwi = 0; nkf = 0; nwf = 0;
nkm = 0; nwm = 0;
nkr = 0; nwr = 0; nkg = 0; nwg = 0;
nkp = 0; nwp = 0; font_dir = 0;
if (length_ofm < 8)
fatal_error_0("File too short");
lf = ofm[0]*256 + ofm[1];
if (lf==0) { /* This is not a TFM file, it is an OFM-file */
ofm_on = TRUE;
ofm_level = ofm[2]*0x100 + ofm[3] + 1;
if (ofm[4]>127)
fatal_error_0("File length is negative");
lf = ofm[4]*0x1000000 + ofm[5]*0x10000 + ofm[6]*0x100 + ofm[7];
} else {
ofm_on = FALSE;
ofm_level = OFM_TFM;
}
if ((lf*4)!=length_ofm)
fatal_error_2("Stated (%d) and actual (%d) file length do not match",
lf*4, length_ofm);
switch(ofm_level) {
case OFM_TFM: { start_pos = 2; check_sum_pos = 24; break; }
case OFM_LEVEL0: { start_pos = 8; check_sum_pos = 56; break; }
case OFM_LEVEL1: { start_pos = 8; check_sum_pos = 116; break; }
default: { fatal_error_1("OFMLEVEL %d not supported", ofm_level-1);
break; }
}
design_size_pos = check_sum_pos+4;
scheme_pos = design_size_pos+4;
family_pos = scheme_pos+40;
random_word_pos = family_pos+20;
ofm_ptr = start_pos;
if (ofm_on==FALSE) {
eval_two_bytes(&lh);
eval_two_bytes(&bc);
eval_two_bytes(&ec);
eval_two_bytes(&nw);
eval_two_bytes(&nh);
eval_two_bytes(&nd);
eval_two_bytes(&ni);
eval_two_bytes(&nl);
eval_two_bytes(&nk);
eval_two_bytes(&ne);
eval_two_bytes(&np);
ncw = (ec-bc+1);
ncl = nl;
nce = ne;
header_length = 6;
top_char = 255;
top_width = 255;
top_height = 15;
top_depth = 15;
top_italic = 63;
} else {
eval_four_bytes(&lh);
eval_four_bytes(&bc);
eval_four_bytes(&ec);
eval_four_bytes(&nw);
eval_four_bytes(&nh);
eval_four_bytes(&nd);
eval_four_bytes(&ni);
eval_four_bytes(&nl);
eval_four_bytes(&nk);
eval_four_bytes(&ne);
eval_four_bytes(&np);
eval_four_bytes(&font_dir);
top_char = 65535;
top_width = 65535;
top_height = 255;
top_depth = 255;
top_italic = 255;
ncl = nl*2;
nce = ne*2;
if (ofm_level==OFM_LEVEL0) {
header_length = 14;
ncw = 2*(ec-bc+1);
} else {
header_length = 29;
eval_four_bytes(&nco);
eval_four_bytes(&ncw);
eval_four_bytes(&npc);
eval_four_bytes(&nki); /* Kinds of font ivalues */
eval_four_bytes(&nwi); /* Words of font ivalues */
eval_four_bytes(&nkf); /* Kinds of font fvalues */
eval_four_bytes(&nwf); /* Words of font fvalues */
eval_four_bytes(&nkm); /* Kinds of font mvalues */
eval_four_bytes(&nwm); /* Words of font mvalues */
eval_four_bytes(&nkr); /* Kinds of font rules */
eval_four_bytes(&nwr); /* Words of font rules */
eval_four_bytes(&nkg); /* Kinds of font glues */
eval_four_bytes(&nwg); /* Words of font glues */
eval_four_bytes(&nkp); /* Kinds of font penalties */
eval_four_bytes(&nwp); /* Words of font penalties */
}
}
if (lf != (header_length+lh+ncw+nw+nh+nd+ni+ncl+nk+nce+np+
nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp))
fatal_error_0("Subfile sizes do not add up to the stated total");
if (lh < 2)
fatal_error_1("The header length is only %d", lh);
if ((bc > (ec+1)) || (ec > top_char))
fatal_error_2("The character code range %d .. %d is illegal", bc, ec);
if ((nw==0) || (nh==0) || (nd==0) || (ni==0))
fatal_error_0("Incomplete subfiles for character dimensions");
ivalues_start = header_length+lh;
fvalues_start = ivalues_start+nki;
mvalues_start = fvalues_start+nkf;
rules_start = mvalues_start+nkm;
glues_start = rules_start+nkr;
penalties_start = glues_start+nkg;
ivalues_base = penalties_start+nkp;
fvalues_base = ivalues_base+nwi;
mvalues_base = fvalues_base+nwf;
rules_base = mvalues_base+nwm;
glues_base = rules_base+nwr;
penalties_base = glues_base+nwg;
char_base = penalties_base+nwp;
bytes_per_entry = (12 + 2*npc) / 4 * 4;
init_planes();
no_labels = 0;
switch (ofm_level) {
case OFM_TFM: {
for(i=bc; i<=ec; i++) {
init_character(i,NULL);
char_start = 4*char_base+4*(i-bc);
current_character->index_indices[C_WD] =
ofm[char_start] & 0xff;
current_character->index_indices[C_HT] =
(ofm[char_start+1] & 0xf0) >> 4;
current_character->index_indices[C_DP] =
ofm[char_start+1] & 0xf;
current_character->index_indices[C_IC] =
(ofm[char_start+2] & 0xfc) >> 2;
current_character->tag =
ofm[char_start+2] & 0x3;
if (current_character->tag == TAG_LIG) no_labels++;
current_character->remainder =
ofm[char_start+3] & 0xff;
}
break;
}
case OFM_LEVEL0: {
for(i=bc; i<=ec; i++) {
init_character(i,NULL);
char_start = 4*char_base+8*(i-bc);
current_character->index_indices[C_WD] =
((ofm[char_start] & 0xff) << 8) |
(ofm[char_start+1] & 0xff);
current_character->index_indices[C_HT] =
ofm[char_start+2] & 0xff;
current_character->index_indices[C_DP] =
ofm[char_start+3] & 0xff;
current_character->index_indices[C_IC] =
ofm[char_start+4] & 0xff;
current_character->tag =
ofm[char_start+5] & 0x3;
if (current_character->tag == TAG_LIG) no_labels++;
current_character->remainder =
((ofm[char_start+6] & 0xff) << 8) |
(ofm[char_start+7] & 0xff);
}
break;
}
case OFM_LEVEL1: {
char_ptr = 4*char_base;
i = bc;
while (i<=ec) {
init_character(i,NULL);
copies = 1+256*ofm[char_ptr+8]+ofm[char_ptr+9];
for (j=1; j<=copies; j++) {
char_start = char_ptr;
i++;
}
char_ptr = char_ptr + bytes_per_entry;
}
if (char_ptr != (4*(char_base+ncw)))
fatal_error_0("Length of char info table does not "
"correspond to specification");
break;
}
default: {
fatal_error_1("Inappropriate font level (%d)", ofm_level-1);
}
}
width_base = char_base+ncw;
height_base = width_base+nw;
depth_base = height_base+nh;
italic_base = depth_base+nd;
lig_kern_base = italic_base+ni;
if (ofm_level==OFM_TFM) {
kern_base = lig_kern_base+nl;
} else {
kern_base = lig_kern_base+2*nl;
}
exten_base = kern_base+nk;
if (ofm_level==OFM_TFM) {
param_base = exten_base+ne-1;
} else {
param_base = exten_base+2*ne-1;
}
}