This is encoding.c in view mode; [Download] [Up]
/* MODULE encoding (encoding.c)
* interface: typedef char *encoding[256];
* void getenc(
* char *fontname, *encname,
* ( foundry name of font and name of this encoding )
* encoding ev, output encoding
* int width[256]); output widths
*
* depends on: MODULEs binary_table, strings
* <ctype.h>
* <stdio.h>
* <stdlib.h>
* <string.h>
*
* globals: void fatal();
*
* Author: Piet Tutelaers
* Version 1.3 (August 1992)
* Version 1.4 (December 1993)
*/
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
char *string(char *);
void remove_string();
void addcc(char *name, int charcode);
int getcc(char *name);
void initcc();
extern void fatal(char *fmt, ...);
extern char *encfile, *afmfile;
/* return a pointer to first non space character after occurence of string t,
* the scan starts at pointer s
*/
static char *value_after(char *s, char *t)
{ int l;
l = strlen(t);
for (;;) {
while (*s != *t && *s != '\n') s++;
if (*s == '\n') return NULL;
if (strncmp(s, t, l) == 0) break;
s++;
}
s += l;
while (isspace(*s)) s++;
return s;
}
int decimal(char *s)
{ int sign = 1, d = 0;
while (isspace(*s)) s++;
if (*s == '-') { sign = -1; s++; }
while (isdigit(*s)) { d = d * 10 + (*s - '0'); s++; }
return sign*d;
}
/* Nextsymbol() reads lines from enc until a '[', '/' or a ']' is
* encountered. In that case pline points to the character following
* this symbol otherwise a fatal error is generated.
*/
FILE *enc;
#define LINEBUF 91
char line[LINEBUF], *pline = NULL;
char nextsymbol()
{
for (;;) {
if (pline == NULL) {
if (fgets(line, LINEBUF-1, enc) == NULL)
fatal("unexpected EOF while reading %s\n", encfile);
pline = line;
}
if (*pline == '[' || *pline == ']' || *pline == '/') break;
if (*pline == '%' || *pline == '\n' || *pline == '\0')
{ pline = NULL;
continue;
}
pline++;
}
pline++; return *(pline-1);
}
typedef char *encoding[256];
void getenc(char *fontname, char *encname, encoding ev, int width[256])
{ int i, SCMseen, Ccnt, wx, cc;
FILE *afm;
char *name, ns;
for (i=0; i < 256; i++) { ev[i] = NULL; width[i] = -1000; }
if (encfile) {
enc = fopen(encfile, "r");
if (enc == NULL) fatal("Can't open %s\n", encfile);
if (nextsymbol() != '/') fatal("missing '/encoding' in %s\n", encfile);
cc = 0;
name = encname; /* Save start of string */
while ( isalpha( *(pline + cc) ) ) {
*encname++ = *(pline + cc) ; cc++; /* cc can safely be used here */
}
*encname = '\0';
encname = name; /* So that it shows presence of string */
if (nextsymbol() != '[') fatal("missing '[' in %s\n", encfile);
i = 0;
while (i < 256 && (ns = nextsymbol()) == '/') {
name = string(pline);
if (strcmp(name, ".notdef") == 0) {
i++; remove_string();
continue;
}
addcc(name, i++);
}
if (i != 256) fatal("missing %d symbols in %s\n", 256-i, encfile);
if (nextsymbol() != ']') fatal("missing ']' in %s\n", encfile);
fclose(enc);
}
afm = fopen(afmfile, "r");
if (afm == NULL) fatal("Can't open %s\n", afmfile);
while (fgets(line, LINEBUF-1, afm))
if (strncmp(line, "FontName", 8) == 0) {
pline = value_after(line, "FontName");
*(strrchr(pline,'\n')) = '\0';
strcpy(fontname, pline); break;
}
if ( *encname == '\0' ) {
while (fgets(line, LINEBUF-1, afm))
if (strncmp(line, "EncodingScheme", 8) == 0) {
pline = value_after(line, "EncodingScheme");
*(strrchr(pline,'\n')) = '\0';
strcpy(encname, pline); break;
}
}
SCMseen = 0; Ccnt = 0;
while (fgets(line, LINEBUF-1, afm))
if (strncmp(line, "StartCharMetrics", 16) == 0)
{ SCMseen = 1; break; }
if (SCMseen == 0) fatal("%s: no metrics info\n", afmfile);
while (fgets(line, LINEBUF-1, afm)) {
if (strncmp(line, "EndCharMetrics", 14) == 0) break;
if (strncmp(line, "C ", 2) != 0)
fatal("%s: unexpected line\n", afmfile);
/* Gracefully terminate when the AFM file is not valid. Every line */
/* in the AFM file should specify a "C"haracter, a "WX"idth, and */
/* a "N"ame. (ndw)
*/
pline = value_after(line, "C");
if (pline == NULL)
fatal("\nBad char metric in %s (no char):\n\t %s\n", afmfile, line);
cc = decimal(pline);
pline = value_after(pline, "WX");
if (pline == NULL)
fatal("\nBad char metric in %s (no width):\n\t %s\n", afmfile, line);
wx = decimal(pline);
pline = value_after(pline, "N");
if (pline == NULL)
fatal("\nBad char metric in %s (no name):\n\t %s\n", afmfile, line);
name = string(pline);
if (encfile) {
if ((i = getcc(name)) == -1) {
remove_string();
continue;
}
do { /* allow more occurences per name */
ev[i] = name; width[i] = wx;
i = getcc(name);
}
while (i >= 0);
}
else if (cc >= 0 && cc <= 255) { /* ndw: 10/13/92 */
ev[cc] = name; width[cc] = wx;
}
else if (cc > 255)
printf("Char code %d ignored (out of range).\n", cc);
Ccnt++;
}
if (Ccnt == 0) fatal("%s: no characters selected\n", afmfile);
}
/* END MODULE encoding */
/* MODULE binary_table
* depends on: MODULE string
* <stdlib.h>
* <string.h>
*/
/*
* TUG has accepted an extended font layout (EC.enc) where the hyphen
* occupies two positions ('055 and '177) to handle exeptional hyphenation
* situations (see TUGboat#11 1990 (no. 4) pp. 514).
* To handle this special case we allow two charcodes per symbol.
*/
/*
* Two functions for a binary search table. One to add a name and one
* to lookup a name. This table is used to store all encoding names and
* its corresponding charcode.
*/
struct Node
{ char *name; /* pointer to a PostScript string */
short cc[2]; /* its charcode's (maximum of two) */
short left, right;
} node[256];
static int freenode = 0;
static short root = -1;
void addcc(char *name, int charcode)
{ short r, p, q;
q = root;
while (q != -1) {
p = q; r = strcmp(name, node[p].name);
if (r == 0) {
if (node[p].cc[1] == -1) {
node[p].cc[1] = charcode;
return;
}
else
fatal("%s: more than two codes for %s (%d,%d,%d)\n",
encfile, name, node[p].cc[0], node[p].cc[1], charcode);
}
else if (r < 0) q=node[p].left;
else q=node[p].right;
}
if (freenode == 256)
fatal("%s: too many PostScript names\n", encfile);
/* not found hence insert */
node[freenode].name = name;
node[freenode].cc[0] = charcode;
node[freenode].cc[1] = -1;
node[freenode].left = node[freenode].right = -1;
if (root == -1)
root = freenode;
else {
if (r < 0) node[p].left=freenode;
else node[p].right=freenode;
}
freenode++;
}
int getcc(char *name)
{ short r, p, q, cc;
q = root;
while (q != -1) {
p = q; r = strcmp(name, node[p].name);
if (r == 0) {
cc = node[p].cc[0];
node[p].cc[0] = node[p].cc[1];
node[p].cc[1] = -1;
return cc;
}
else if (r < 0) q = node[p].left;
else q = node[p].right;
}
return -1;
}
/* END MODULE binary_table */
/* MODULE string:
* depends on: <ctype.h>
* <string.h>
*/
/* String() reads a string starting at a given character pointer.
* After removing leading whitespace the resulting string (with possible
* `.' and '_' characters) is stored in a stringpool after which a pointer
* to it is returned.
*/
#define POOLSIZE 10000
static char stringpool[POOLSIZE];
static int poolsize, /* occupied space annex free index */
lastpoolsize; /* previous poolsize */
char *string(char *s)
{ int length; char *str;
while (isspace(*s)) s++;
str = s; length = 0;
while (isalnum(*s) || *s == '.' || *s == '_') { length++; s++; }
if (length == 0) return NULL;
else {
if (length + 1 > POOLSIZE - poolsize)
fatal("Out of memory %s\n", s);
strncpy(stringpool+poolsize, str, length);
str = stringpool + poolsize;
s = stringpool + poolsize + length;
*s = '\0';
lastpoolsize = poolsize;
poolsize += length+1;
return str;
}
}
/* remove last string from stringpool */
void remove_string()
{
poolsize = lastpoolsize;
}
/* END MODULE string */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.