X-Git-Url: http://git.asbjorn.biz/?p=swftools.git;a=blobdiff_plain;f=pdf2swf%2Fttf2pt1%2Fbdf.c;fp=pdf2swf%2Fttf2pt1%2Fbdf.c;h=0000000000000000000000000000000000000000;hp=cc580ecbacb611bd00b033878336b45b537b2162;hb=5a005ef586b9000810156a961b9622c903dce988;hpb=c26ca847941ca0acfc9f3b4bdc519d904ba09a39

diff --git a/pdf2swf/ttf2pt1/bdf.c b/pdf2swf/ttf2pt1/bdf.c
deleted file mode 100644
index cc580ec..0000000
--- a/pdf2swf/ttf2pt1/bdf.c
+++ /dev/null
@@ -1,660 +0,0 @@
-/*
- * The font parser for the BDF files
- *
- * Copyright (c) 2001 by the TTF2PT1 project
- * Copyright (c) 2001 by Sergey Babkin
- *
- * see COPYRIGHT for the full copyright notice
- */
-
-#include <stdio.h>
-#include <string.h>
-#include <stdlib.h>
-#include <ctype.h>
-#include "pt1.h"
-#include "global.h"
-
-/* prototypes of call entries */
-static void openfont(char *fname, char *arg);
-static void closefont( void);
-static int getnglyphs ( void);
-static int glnames( GLYPH *glyph_list);
-static void readglyphs( GLYPH *glyph_list);
-static int glenc( GLYPH *glyph_list, int *encoding, int *unimap);
-static void fnmetrics( struct font_metrics *fm);
-static void glpath( int glyphno, GLYPH *glyph_list);
-static void kerning( GLYPH *glyph_list);
-
-/* globals */
-
-/* front-end descriptor */
-struct frontsw bdf_sw = {
-	/*name*/       "bdf",
-	/*descr*/      "BDF bitmapped fonts",
-	/*suffix*/     { "bdf" },
-	/*open*/       openfont,
-	/*close*/      closefont,
-	/*nglyphs*/    getnglyphs,
-	/*glnames*/    glnames,
-	/*glmetrics*/  readglyphs,
-	/*glenc*/      glenc,
-	/*fnmetrics*/  fnmetrics,
-	/*glpath*/     glpath,
-	/*kerning*/    kerning,
-};
-
-/* statics */
-
-#define MAXLINE	10240 /* maximal line length in the input file */
-
-static int lineno; /* line number */
-
-#define GETLEN(s)	s, (sizeof(s)-1)
-#define LENCMP(str, txt)	strncmp(str, txt, sizeof(txt)-1)
-
-static FILE *bdf_file;
-static int nglyphs;
-static struct font_metrics fmet;
-
-/* many BDF fonts are of small pixel size, so we better try
- * to scale them by an integer to keep the dimensions in
- * whole pixels. However if the size is too big and a non-
- * integer scaling is needed, we use the standard ttf2pt1's
- * scaling abilities.
- */
-static int pixel_size;
-static int scale;
-static int scale_external;
-
-static char *slant;
-static char xlfdname[201];
-static char *spacing;
-static char *charset_reg;
-static char *charset_enc;
-static char *fnwidth;
-static int is_unicode = 0;
-
-/* tempoary storage for returning data to ttf2pt1 later on request */
-static int maxenc = 0;
-static int *fontenc;
-static GENTRY **glpaths;
-
-static int got_glyphs = 0;
-static GLYPH *glyphs;
-static int curgl;
-
-static int readfile(FILE *f, int (*strfunc)(int len, char *str));
-
-/*
- * Read the file and parse each string with strfunc(),
- * until strfunc() returns !=0 or the end of file happens.
- * Returns -1 on EOF or strfunc() returning <0, else 0
- */
-
-static int
-readfile(
-	FILE *f,
-	int (*strfunc)(int len, char *str)
-)
-{
-	static char str[MAXLINE]; /* input line, maybe should be dynamic ? */
-	char *s;
-	int len, c, res;
-
-	len=0;
-	while(( c=getc(f) )!=EOF) {
-		if(c=='\n') {
-			str[len]=0;
-
-			res = strfunc(len, str);
-			lineno++;
-			if(res<0)
-				return -1;
-			else if(res!=0)
-				return 0;
-
-			len=0;
-		} else if(len<MAXLINE-1) {
-			if(c!='\r')
-				str[len++]=c;
-		} else {
-			fprintf(stderr, "**** bdf: line %d is too long (>%d)\n", lineno, MAXLINE-1);
-			exit(1);
-		}
-	}
-	return -1; /* EOF */
-}
-
-/*
- * Parse the header of the font file. 
- * Stop after the line CHARS is encountered. Ignore the unknown lines.
- */
-
-struct line {
-	char *name; /* property name with trailing space */
-	int namelen; /* length of the name string */
-	enum {
-		ALLOW_REPEAT = 0x01, /* this property may be repeated in multiple lines */
-		IS_SEEN = 0x02, /* this property has been seen already */
-		MUST_SEE = 0x04, /* this property must be seen */
-		IS_LAST = 0x08 /* this is the last property to be read */
-	} flags;
-	char *fmt; /* format string for the arguments, NULL means a string arg */
-	int nvals; /* number of values to be read by sscanf */
-	void *vp[4]; /* pointers to values to be read */
-};
-		
-static struct line header[] = {
-	{ GETLEN("FONT "), 0, " %200s", 1, {&xlfdname} },
-	{ GETLEN("SIZE "), MUST_SEE, " %d", 1, {&pixel_size} },
-	{ GETLEN("FONTBOUNDINGBOX "), MUST_SEE, " %hd %hd %hd %hd", 4, 
-		{&fmet.bbox[2], &fmet.bbox[3], &fmet.bbox[0], &fmet.bbox[1]} },
-	{ GETLEN("FAMILY_NAME "), MUST_SEE, NULL, 1, {&fmet.name_family} },
-	{ GETLEN("WEIGHT_NAME "), MUST_SEE, NULL, 1, {&fmet.name_style} },
-	{ GETLEN("COPYRIGHT "), 0, NULL, 1, {&fmet.name_copyright} },
-	{ GETLEN("SLANT "), MUST_SEE, NULL, 1, {&slant} },
-	{ GETLEN("SPACING "), 0, NULL, 1, {&spacing} },
-	{ GETLEN("SETWIDTH_NAME "), 0, NULL, 1, {&fnwidth} },
-	{ GETLEN("CHARSET_REGISTRY "), 0, NULL, 1, {&charset_reg} },
-	{ GETLEN("CHARSET_ENCODING "), 0, NULL, 1, {&charset_enc} },
-	{ GETLEN("FONT_ASCENT "), 0, " %hd", 1, {&fmet.ascender} },
-	{ GETLEN("FONT_DESCENT "), 0, " %hd", 1, {&fmet.descender} },
-
-	/* these 2 must go in this order for post-processing */
-	{ GETLEN("UNDERLINE_THICKNESS "), 0, " %hd", 1, {&fmet.underline_thickness} },
-	{ GETLEN("UNDERLINE_POSITION "), 0, " %hd", 1, {&fmet.underline_position} },
-
-	{ GETLEN("CHARS "), MUST_SEE|IS_LAST, " %d", 1, {&nglyphs} },
-	{ NULL, 0, 0 } /* end mark: name==NULL */
-};
-
-static int
-handle_header(
-	int len,
-	char *str
-)
-{
-	struct line *cl;
-	char *s, *p;
-	int c;
-
-#if 0
-	fprintf(stderr, "line: %s\n", str);
-#endif
-	for(cl = header; cl->name != 0; cl++) {
-		if(strncmp(str, cl->name, cl->namelen))
-			continue;
-#if 0
-		fprintf(stderr, "match: %s\n", cl->name);
-#endif
-		if(cl->flags & IS_SEEN) {
-			if(cl->flags & ALLOW_REPEAT)
-				continue;
-			
-			fprintf(stderr, "**** input line %d redefines the property %s\n", lineno, cl->name);
-			exit(1);
-		}
-		cl->flags |= IS_SEEN;
-		if(cl->fmt == 0) {
-			s = malloc(len - cl->namelen + 1);
-			if(s == 0) {
-				fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-				exit(255);
-			}
-			*((char **)(cl->vp[0])) = s;
-
-			/* skip until a quote */
-			for(p = str+cl->namelen; (c = *p)!=0; p++) {
-				if(c == '"') {
-					p++;
-					break;
-				}
-			}
-			for(; (c = *p)!=0; p++) {
-				if(c == '"') {
-					c = *++p;
-					if(c == '"')
-						*s++ = c;
-					else
-						break;
-				} else
-					*s++ = c;
-			}
-			*s = 0; /* end of line */
-		} else {
-			c = sscanf(str+cl->namelen, cl->fmt, cl->vp[0], cl->vp[1], cl->vp[2], cl->vp[3]);
-			if(c != cl->nvals) {
-				fprintf(stderr, "**** property %s at input line %d must have %d arguments\n", 
-					cl->name, lineno, cl->nvals);
-				exit(1);
-			}
-		}
-		if(cl->flags & IS_LAST)
-			return 1;
-		else
-			return 0;
-	}
-	return 0;
-}
-
-/*
- * Parse the description of the glyphs
- */
-
-static int
-handle_glyphs(
-	int len,
-	char *str
-)
-{
-	static int inbmap=0;
-	static char *bmap;
-	static int xsz, ysz, xoff, yoff;
-	static int curln;
-	int i, c;
-	char *p, *plim, *psz;
-
-	if(!LENCMP(str, "ENDFONT")) {
-		if(curgl < nglyphs) {
-			fprintf(stderr, "**** unexpected end of font file after %d glyphs\n", curgl);
-			exit(1);
-		} else
-			return 1;
-	}
-	if(curgl >= nglyphs) {
-		fprintf(stderr, "**** file contains more glyphs than advertised (%d)\n", nglyphs);
-		exit(1);
-	}
-	if(!LENCMP(str, "STARTCHAR")) {
-		/* sizeof will count \0 instead of ' ' */
-		for(i=sizeof("STARTCHAR"); str[i] == ' '; i++) 
-			{}
-
-		glyphs[curgl].name = strdup(str + i);
-		if(glyphs[curgl].name == 0) {
-			fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-			exit(255);
-		}
-	} else if(!LENCMP(str, "ENCODING")) {
-		if(sscanf(str, "ENCODING %d", &fontenc[curgl])!=1) {
-			fprintf(stderr,"**** weird ENCODING statement at line %d\n", lineno);
-			exit(1);
-		}
-		if(fontenc[curgl] == -1)  /* compatibility format */
-			sscanf(str, "ENCODING -1 %d", &fontenc[curgl]);
-		if(fontenc[curgl] > maxenc)
-			maxenc = fontenc[curgl];
-	} else if(!LENCMP(str, "DWIDTH")) {
-		if(sscanf(str, "DWIDTH %d %d", &xsz, &ysz)!=2) {
-			fprintf(stderr,"**** weird DWIDTH statement at line %d\n", lineno);
-			exit(1);
-		}
-		glyphs[curgl].width = xsz*scale;
-	} else if(!LENCMP(str, "BBX")) {
-		if(sscanf(str, "BBX %d %d %d %d", &xsz, &ysz, &xoff, &yoff)!=4) {
-			fprintf(stderr,"**** weird BBX statement at line %d\n", lineno);
-			exit(1);
-		}
-		bmap=malloc(xsz*ysz);
-		if(bmap==0) {
-			fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-			exit(255);
-		}
-		glyphs[curgl].lsb = -xoff*scale;
-		glyphs[curgl].xMin = -xoff*scale;
-		glyphs[curgl].xMax = (xsz-xoff)*scale;
-		glyphs[curgl].yMin = -yoff*scale;
-		glyphs[curgl].yMax = (ysz-xoff)*scale;
-	} else if(!LENCMP(str, "BITMAP")) {
-		inbmap=1; 
-		curln=ysz-1; /* the lowest line has index 0 */
-	} else if(!LENCMP(str, "ENDCHAR")) {
-		inbmap=0;
-		if(bmap) {
-			glyphs[curgl].lastentry = 0;
-			glyphs[curgl].path = 0;
-			glyphs[curgl].entries = 0;
-			bmp_outline(&glyphs[curgl], scale, bmap, xsz, ysz, xoff, yoff);
-			free(bmap);
-			/* remember in a static table or it will be erased */
-			glpaths[curgl] = glyphs[curgl].entries;
-			glyphs[curgl].entries = 0;
-
-			if(glpaths[curgl])
-				glyphs[curgl].ttf_pathlen = 1;
-			else
-				glyphs[curgl].ttf_pathlen = 0;
-		}
-		curgl++;
-	} else if(inbmap) {
-		if(curln<0) {
-			fprintf(stderr,"**** bitmap is longer than %d lines at line %d\n", ysz, lineno);
-			exit(1);
-		}
-
-		i=0;
-		p=&bmap[curln*xsz]; psz=p+xsz;
-		while(i<len) {
-			c=str[i++];
-			if(!isxdigit(c)) {
-				fprintf(stderr,"**** non-hex digit in bitmap at line %d\n", lineno);
-				exit(1);
-			}
-			if(c<='9')
-				c-='0';
-			else 
-				c= tolower(c)-'a'+10;
-
-			for(plim=p+4; p<psz && p<plim; c<<=1) 
-				*p++ = (( c & 0x08 )!=0);
-		}
-		if(p<psz) {
-			fprintf(stderr,"**** bitmap line is too short at line %d\n", lineno);
-			exit(1);
-		}
-		curln--;
-	}
-	return 0;
-}
-
-/*
- * Read all the possible information about the glyphs
- */
-
-static void
-readglyphs(
-	GLYPH *glyph_list
-)
-{
-	int i;
-	GLYPH *g;
-
-	if(got_glyphs)
-		return;
-
-	/* pass them to handle_glyphs() through statics */
-	glyphs = glyph_list;
-	curgl = 2; /* skip the empty glyph and .notdef */
-
-	/* initialize the empty glyph and .notdef */
-
-	for(i=0; i<2; i++) {
-		g = &glyphs[i];
-		g->lsb = 0;
-		g->width = fmet.bbox[2];
-		g->xMin = 0;
-		g->yMin = 0;
-	}
-	g = &glyphs[0];
-	g->name = ".notdef";
-	g->xMax = fmet.bbox[2]*4/5;
-	g->yMax = fmet.bbox[3]*4/5;
-	g->entries = g->path = g->lastentry = 0;
-	/* make it look as a black square */
-	fg_rmoveto(g, 0.0, 0.0);
-	fg_rlineto(g, 0.0, (double)g->yMax);
-	fg_rlineto(g, (double)g->xMax, (double)g->yMax);
-	fg_rlineto(g, (double)g->xMax, 0.0);
-	fg_rlineto(g, 0.0, 0.0);
-	g_closepath(g);
-	glpaths[0] = g->entries;
-	g->entries = 0;
-	g->ttf_pathlen = 4;
-
-	g = &glyphs[1];
-	g->name = ".null";
-	g->xMax = g->yMax = 0;
-	g->ttf_pathlen = 0;
-
-	if(readfile(bdf_file, handle_glyphs) < 0) {
-		fprintf(stderr, "**** file does not contain the ENDFONT line\n");
-		exit(1);
-	}
-	got_glyphs = 1;
-}
-
-/*
- * Open font and prepare to return information to the main driver.
- * May print error and warning messages.
- * Exit on error.
- */
-
-static void
-openfont(
-	char *fname,
-	char *arg /* unused now */
-)
-{
-	struct line *cl;
-	int i, l;
-
-	if ((bdf_file = fopen(fname, "rb")) == NULL) {
-		fprintf(stderr, "**** Cannot open file '%s'\n", fname);
-		exit(1);
-	} else {
-		WARNING_2 fprintf(stderr, "Processing file %s\n", fname);
-	}
-
-	lineno = 1;
-
-	for(cl = header; cl->name != 0; cl++)
-		cl->flags &= ~IS_SEEN;
-	if(readfile(bdf_file, handle_header) < 0) {
-		fprintf(stderr, "**** file does not contain the CHARS definition\n");
-		exit(1);
-	}
-	for(cl = header; cl->name != 0; cl++) {
-		if( (cl->flags & MUST_SEE) && !(cl->flags & IS_SEEN) ) {
-			fprintf(stderr, "**** mandatory property %sis not found in the input line\n", 
-				cl->name); /* cl->name has a space at the end */
-			exit(1);
-		}
-
-		/* set a few defaults */
-		if( !(cl->flags & IS_SEEN) ) {
-			if(cl->vp[0] == &fmet.underline_thickness) {
-				fmet.underline_thickness = 1;
-			} else if(cl->vp[0] == &fmet.underline_position) {
-				fmet.underline_position = fmet.bbox[1] + fmet.underline_thickness
-					- (pixel_size - fmet.bbox[3]);
-			} else if(cl->vp[0] == &fmet.ascender) {
-				fmet.ascender = fmet.bbox[2] + fmet.bbox[0];
-			} else if(cl->vp[0] == &fmet.descender) {
-				fmet.descender = fmet.bbox[0];
-			}
-		}
-	}
-
-	nglyphs += 2; /* add empty glyph and .notdef */
-
-	/* postprocessing to compensate for the differences in the metric formats */
-	fmet.bbox[2] += fmet.bbox[0];
-	fmet.bbox[3] += fmet.bbox[1];
-
-	scale = 1000/pixel_size; /* XXX ? */
-	if(scale*pixel_size < 950) {
-		scale = 1;
-		scale_external = 1;
-		fmet.units_per_em = pixel_size;
-	} else {
-		scale_external = 0;
-		fmet.units_per_em = scale*pixel_size;
-
-		fmet.underline_position *= scale;
-		fmet.underline_thickness *= scale;
-		fmet.ascender *= scale;
-		fmet.descender *= scale;
-		for(i=0; i<4; i++)
-			fmet.bbox[i] *= scale;
-	}
-
-	fmet.italic_angle = 0.0;
-	if(spacing == 0 /* possibly an old font */ 
-	|| toupper(spacing[0]) != 'P') /* or anything non-proportional */
-		fmet.is_fixed_pitch = 1;
-	else
-		fmet.is_fixed_pitch = 0;
-
-	if(fmet.name_copyright==NULL)
-		fmet.name_copyright = "";
-	
-	/* create the full name */
-	l = strlen(fmet.name_family) 
-		+ (fmet.name_style? strlen(fmet.name_style) : 0)
-		+ (fnwidth? strlen(fnwidth) : 0)
-		+ strlen("Oblique") + 1;
-
-	if(( fmet.name_full = malloc(l) )==NULL) {
-		fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-		exit(255);
-	}
-	strcpy(fmet.name_full, fmet.name_family);
-	if(fnwidth && strcmp(fnwidth, "Normal")) {
-		strcat(fmet.name_full, fnwidth);
-	}
-	if(fmet.name_style && strcmp(fmet.name_style, "Medium")) {
-		strcat(fmet.name_full, fmet.name_style);
-	}
-	switch(toupper(slant[0])) {
-	case 'O':
-		strcat(fmet.name_full, "Oblique");
-		break;
-	case 'I':
-		strcat(fmet.name_full, "Italic");
-		break;
-	}
-
-	fmet.name_ps = fmet.name_full;
-	fmet.name_version = "1.0";
-
-	if(charset_reg && charset_enc
-	&& !strcmp(charset_reg, "iso10646") && !strcmp(charset_enc, "1"))
-		is_unicode = 1;
-
-	if(( fontenc = calloc(nglyphs, sizeof *fontenc) )==NULL) {
-		fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-		exit(255);
-	}
-	for(i=0; i<nglyphs; i++)
-		fontenc[i] = -1;
-	if(( glpaths = calloc(nglyphs, sizeof *glpaths) )==NULL) {
-		fprintf (stderr, "****malloc failed %s line %d\n", __FILE__, __LINE__);
-		exit(255);
-	}
-}
-
-/*
- * Close font.
- * Exit on error.
- */
-
-static void
-closefont(
-	void
-)
-{
-	if(fclose(bdf_file) < 0) {
-		WARNING_1 fprintf(stderr, "Errors when closing the font file, ignored\n");
-	}
-}
-
-/*
- * Get the number of glyphs in font.
- */
-
-static int
-getnglyphs (
-	void
-)
-{
-	return nglyphs;
-}
-
-/*
- * Get the names of the glyphs.
- * Returns 0 if the names were assigned, non-zero if the font
- * provides no glyph names.
- */
-
-static int
-glnames(
-	GLYPH *glyph_list
-)
-{
-	readglyphs(glyph_list);
-	return 0;
-}
-
-/*
- * Get the original encoding of the font. 
- * Returns 1 for if the original encoding is Unicode, 2 if the
- * original encoding is other 16-bit, 0 if 8-bit.
- */
-
-static int
-glenc(
-	GLYPH *glyph_list,
-	int *encoding,
-	int *unimap
-)
-{
-	int i, douni, e;
-
-	if(is_unicode || forcemap)
-		douni = 1;
-	else
-		douni = 0;
-
-	for(i=0; i<nglyphs; i++) {
-		e = fontenc[i];
-		if(douni)
-			e = unicode_rev_lookup(e);
-		if(e>=0 && e<ENCTABSZ && encoding[e] == -1)
-			encoding[e] = i;
-	}
-
-	if(is_unicode)
-		return 1;
-	else if(maxenc > 255)
-		return 2;
-	else
-		return 0;
-}
-	
-/*
- * Get the font metrics
- */
-static void 
-fnmetrics(
-	struct font_metrics *fm
-)
-{
-	*fm = fmet;
-}
-
-/*
- * Get the path of contrours for a glyph.
- */
-
-static void
-glpath(
-	int glyphno,
-	GLYPH *glyf_list
-)
-{
-	readglyphs(glyf_list);
-	glyf_list[glyphno].entries = glpaths[glyphno];
-	glpaths[glyphno] = 0;
-}
-
-/*
- * Get the kerning data.
- */
-
-static void
-kerning(
-	GLYPH *glyph_list
-)
-{
-	return; /* no kerning in BDF */
-}