forked from len0rd/rockbox
		
	git-svn-id: svn://svn.rockbox.org/rockbox/trunk@20831 a1c6a512-1295-4272-9138-f99709370657
		
			
				
	
	
		
			1623 lines
		
	
	
	
		
			47 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
			
		
		
	
	
			1623 lines
		
	
	
	
		
			47 KiB
		
	
	
	
		
			C
		
	
	
	
	
	
| /*
 | |
|  * Convert BDF files to C source and/or Rockbox .fnt file format
 | |
|  *
 | |
|  * Copyright (c) 2002 by Greg Haerr <greg@censoft.com>
 | |
|  *
 | |
|  * What fun it is converting font data...
 | |
|  *
 | |
|  * 09/17/02    Version 1.0
 | |
|  */
 | |
| #include <stdio.h>
 | |
| #include <stdlib.h>
 | |
| #include <string.h>
 | |
| #include <stdarg.h>
 | |
| #include <time.h>
 | |
| 
 | |
| #define ROTATE /* define this for the new, rotated format */
 | |
| 
 | |
| /* BEGIN font.h*/
 | |
| /* loadable font magic and version #*/
 | |
| #ifdef ROTATE
 | |
| #define VERSION     "RB12" /* newer version */
 | |
| #else
 | |
| #define VERSION     "RB11"
 | |
| #endif
 | |
| 
 | |
| /*
 | |
|  * bitmap_t helper macros
 | |
|  */
 | |
| typedef unsigned short bitmap_t; /* bitmap image unit size*/
 | |
| 
 | |
| /* Number of words to hold a pixel line of width x pixels */
 | |
| #define BITMAP_BITSPERIMAGE     (sizeof(bitmap_t) * 8)
 | |
| #define BITMAP_WORDS(x)         (((x)+BITMAP_BITSPERIMAGE-1)/BITMAP_BITSPERIMAGE)
 | |
| #define BITMAP_BYTES(x)         (BITMAP_WORDS(x)*sizeof(bitmap_t))
 | |
| #define BITMAP_BITVALUE(n)      ((bitmap_t) (((bitmap_t) 1) << (n)))
 | |
| #define BITMAP_FIRSTBIT         (BITMAP_BITVALUE(BITMAP_BITSPERIMAGE - 1))
 | |
| #define BITMAP_TESTBIT(m)       ((m) & BITMAP_FIRSTBIT)
 | |
| #define BITMAP_SHIFTBIT(m)      ((bitmap_t) ((m) << 1))
 | |
| 
 | |
| 
 | |
| /* builtin C-based proportional/fixed font structure */
 | |
| /* based on The Microwindows Project http://microwindows.org */
 | |
| struct font {
 | |
|     int     maxwidth;   /* max width in pixels */
 | |
|     int     height;     /* height in pixels */
 | |
|     int     ascent;     /* ascent (baseline) height */
 | |
|     int     firstchar;  /* first character in bitmap */
 | |
|     int     size;       /* font size in glyphs ('holes' included) */
 | |
|     bitmap_t*   bits;       /* 16-bit right-padded bitmap data */
 | |
|     int*    offset;     /* offsets into bitmap data */
 | |
|     unsigned char* width;   /* character widths or NULL if fixed */
 | |
|     int     defaultchar;    /* default char (not glyph index) */
 | |
|     int     bits_size;  /* # words of bitmap_t bits */
 | |
|     
 | |
|     /* unused by runtime system, read in by convbdf */
 | |
|     int     nchars;     /* number of different glyphs */
 | |
|     int     nchars_declared; /* number of glyphs as declared in the header */
 | |
|     int     ascent_declared; /* ascent as declared in the header */
 | |
|     int     descent_declared; /* descent as declared in the header */
 | |
|     int     max_char_ascent;  /* max. char ascent (before adjusting) */
 | |
|     int     max_char_descent; /* max. char descent (before adjusting) */
 | |
|     unsigned int* offrot;   /* offsets into rotated bitmap data */
 | |
|     char*   name;       /* font name */
 | |
|     char*   facename;   /* facename of font */
 | |
|     char*   copyright;  /* copyright info for loadable fonts */
 | |
|     int     pixel_size;
 | |
|     int     descent;
 | |
|     int     fbbw, fbbh, fbbx, fbby;
 | |
| 
 | |
|     /* Max 'overflow' of a char's ascent (descent) over the font's one */
 | |
|     int max_over_ascent, max_over_descent;
 | |
|     
 | |
|     /* The number of clipped ascents/descents/total */
 | |
|     int num_clipped_ascent, num_clipped_descent, num_clipped;
 | |
| 
 | |
|     /* default width in pixels (can be overwritten at char level) */
 | |
|     int default_width;
 | |
| };
 | |
| /* END font.h*/
 | |
| 
 | |
| /* Description of how the ascent/descent is allowed to grow */
 | |
| struct stretch {
 | |
|     int value;    /* The delta value (in pixels or percents) */
 | |
|     int percent;  /* Is the value in percents (true) or pixels (false)? */
 | |
|     int force;    /* MUST the value be set (true) or is it just a max (false) */
 | |
| };
 | |
| 
 | |
| #define isprefix(buf,str)   (!strncmp(buf, str, strlen(str)))
 | |
| #define strequal(s1,s2)     (!strcmp(s1, s2))
 | |
| 
 | |
| #define MAX(a,b)            ((a) > (b) ? (a) : (b))
 | |
| #define MIN(a,b)            ((a) < (b) ? (a) : (b))
 | |
| 
 | |
| #ifdef ROTATE
 | |
| #define ROTATION_BUF_SIZE 2048
 | |
| #endif
 | |
| 
 | |
| /* Depending on the verbosity level some warnings are printed or not */
 | |
| int verbosity_level = 0;
 | |
| int trace = 0;
 | |
| 
 | |
| /* Prints a warning of the specified verbosity level. It will only be
 | |
|    really printed if the level is >= the level set in the settings */
 | |
| void print_warning(int level, const char *fmt, ...);
 | |
| void print_error(const char *fmt, ...);
 | |
| void print_info(const char *fmt, ...);
 | |
| void print_trace(const char *fmt, ...);
 | |
| #define VL_CLIP_FONT  1  /* Verbosity level for clip related warnings at font level */
 | |
| #define VL_CLIP_CHAR  2  /* Verbosity level for clip related warnings at char level */
 | |
| #define VL_MISC  1  /* Verbosity level for other warnings */
 | |
| 
 | |
| int gen_c = 0;
 | |
| int gen_h = 0;
 | |
| int gen_fnt = 0;
 | |
| int gen_map = 1;
 | |
| int start_char = 0;
 | |
| int limit_char = 65535;
 | |
| int oflag = 0;
 | |
| char outfile[256];
 | |
| 
 | |
| struct stretch stretch_ascent  = { 0, 0, 1 }; /* Don't allow ascent to grow by default */
 | |
| struct stretch stretch_descent = { 0, 0, 1 }; /* Don't allow descent to grow by default */
 | |
| 
 | |
| 
 | |
| void usage(void);
 | |
| void getopts(int *pac, char ***pav);
 | |
| int convbdf(char *path);
 | |
| 
 | |
| void free_font(struct font* pf);
 | |
| struct font* bdf_read_font(char *path);
 | |
| int bdf_read_header(FILE *fp, struct font* pf);
 | |
| int bdf_read_bitmaps(FILE *fp, struct font* pf);
 | |
| 
 | |
| /*
 | |
|    Counts the glyphs and determines the max dimensions of glyphs
 | |
|    (fills the fields nchars, maxwidth, max_over_ascent, max_over_descent).
 | |
|    Returns 0 on failure or not-0 on success.
 | |
| */
 | |
| int bdf_analyze_font(FILE *fp, struct font* pf);
 | |
| void bdf_correct_bbx(int *width, int *bbx); /* Corrects bbx and width if bbx<0 */
 | |
| 
 | |
| /* Corrects the ascent and returns the new value (value to use) */
 | |
| int adjust_ascent(int ascent, int overflow, struct stretch *stretch);
 | |
| 
 | |
| char * bdf_getline(FILE *fp, char *buf, int len);
 | |
| bitmap_t bdf_hexval(unsigned char *buf, int ndx1, int ndx2);
 | |
| 
 | |
| int gen_c_source(struct font* pf, char *path);
 | |
| int gen_h_header(struct font* pf, char *path);
 | |
| int gen_fnt_file(struct font* pf, char *path);
 | |
| 
 | |
| void
 | |
| usage(void)
 | |
| {
 | |
|     /* We use string array because some C compilers issue warnings about too long strings */
 | |
|     char *help[] = {
 | |
|     "Usage: convbdf [options] [input-files]\n",
 | |
|     "       convbdf [options] [-o output-file] [single-input-file]\n",
 | |
|     "Options:\n",
 | |
|     "    -c     Convert .bdf to .c source file\n",
 | |
|     "    -h     Convert .bdf to .h header file (to create sysfont.h)\n",
 | |
|     "    -f     Convert .bdf to .fnt font file\n",
 | |
|     "    -s N   Start output at character encodings >= N\n",
 | |
|     "    -l N   Limit output to character encodings <= N\n",
 | |
|     "    -n     Don't generate bitmaps as comments in .c file\n",
 | |
|     "    -a N[%][!] Allow the ascent to grow N pixels/% to avoid glyph clipping\n",
 | |
|     "    -d N[%][!] Allow the descent to grow N pixels/% to avoid glyph clipping\n",
 | |
|     "    -v N   Verbosity level: 0=quite quiet, 1=more verbose, 2=even more, etc.\n",
 | |
|     "    -t     Print internal tracing messages\n",
 | |
|     NULL /* Must be the last element in the array */
 | |
|     };
 | |
| 
 | |
|     char **p = help;
 | |
|     while (*p != NULL)
 | |
|         print_info("%s", *(p++));
 | |
| }
 | |
| 
 | |
| 
 | |
| void parse_ascent_opt(char *val, struct stretch *opt) {
 | |
|     char buf[256];
 | |
|     char *p;
 | |
|     strcpy(buf, val);
 | |
|     
 | |
|     opt->force = 0;
 | |
|     opt->percent = 0;
 | |
|     p = buf + strlen(buf);
 | |
|     while (p > buf) {
 | |
|         p--;
 | |
|         if (*p == '%') {
 | |
|             opt->percent = 1;
 | |
|             *p = '\0';
 | |
|         }
 | |
|         else if (*p == '!') {
 | |
|             opt->force = 1;
 | |
|             *p = '\0';
 | |
|         }
 | |
|         else {
 | |
|             break;
 | |
|         }
 | |
|     }
 | |
|     opt->value = atoi(buf);
 | |
| }
 | |
| 
 | |
| /* parse command line options*/
 | |
| void getopts(int *pac, char ***pav)
 | |
| {
 | |
|     char *p;
 | |
|     char **av;
 | |
|     int ac;
 | |
|     
 | |
|     ac = *pac;
 | |
|     av = *pav;
 | |
|     while (ac > 0 && av[0][0] == '-') {
 | |
|         p = &av[0][1]; 
 | |
|         while( *p)
 | |
|             switch(*p++) {
 | |
|             case ' ':           /* multiple -args on av[] */
 | |
|                 while( *p && *p == ' ')
 | |
|                     p++;
 | |
|                 if( *p++ != '-')    /* next option must have dash */
 | |
|                     p = "";
 | |
|                 break;          /* proceed to next option */
 | |
|             case 'c':           /* generate .c output */
 | |
|                 gen_c = 1;
 | |
|                 break;
 | |
|             case 'h':           /* generate .h output */
 | |
|                 gen_h = 1;
 | |
|                 break;
 | |
|             case 'f':           /* generate .fnt output */
 | |
|                 gen_fnt = 1;
 | |
|                 break;
 | |
|             case 'n':           /* don't gen bitmap comments */
 | |
|                 gen_map = 0;
 | |
|                 break;
 | |
|             case 'o':           /* set output file */
 | |
|                 oflag = 1;
 | |
|                 if (*p) {
 | |
|                     strcpy(outfile, p);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         strcpy(outfile, av[0]);
 | |
|                 }
 | |
|                 break;
 | |
|             case 'l':           /* set encoding limit */
 | |
|                 if (*p) {
 | |
|                     limit_char = atoi(p);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         limit_char = atoi(av[0]);
 | |
|                 }
 | |
|                 break;
 | |
|             case 's':           /* set encoding start */
 | |
|                 if (*p) {
 | |
|                     start_char = atoi(p);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         start_char = atoi(av[0]);
 | |
|                 }
 | |
|                 break;
 | |
|             case 'a':           /* ascent growth */
 | |
|                 if (*p) {
 | |
|                     parse_ascent_opt(p, &stretch_ascent);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         parse_ascent_opt(av[0], &stretch_ascent);
 | |
|                 }
 | |
|                 break;
 | |
|             case 'd':           /* descent growth */
 | |
|                 if (*p) {
 | |
|                     parse_ascent_opt(p, &stretch_descent);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         parse_ascent_opt(av[0], &stretch_descent);
 | |
|                 }
 | |
|                 break;
 | |
|             case 'v':           /* verbosity */
 | |
|                 if (*p) {
 | |
|                     verbosity_level = atoi(p);
 | |
|                     while (*p && *p != ' ')
 | |
|                         p++;
 | |
|                 }
 | |
|                 else {
 | |
|                     av++; ac--;
 | |
|                     if (ac > 0)
 | |
|                         verbosity_level = atoi(av[0]);
 | |
|                 }
 | |
|                 break;
 | |
|             case 't':           /* tracing */
 | |
|                 trace = 1;
 | |
|                 break;
 | |
|             default:
 | |
|                 print_info("Unknown option ignored: %c\n", *(p-1));
 | |
|             }
 | |
|         ++av; --ac;
 | |
|     }
 | |
|     *pac = ac;
 | |
|     *pav = av;
 | |
| }
 | |
| 
 | |
| void print_warning(int level, const char *fmt, ...) {
 | |
|     if (verbosity_level >= level) {
 | |
|         va_list ap;
 | |
|         va_start(ap, fmt);
 | |
|         fprintf(stderr, " WARN: ");
 | |
|         vfprintf(stderr, fmt, ap);
 | |
|         va_end(ap);
 | |
|     }
 | |
| }
 | |
| 
 | |
| void print_trace(const char *fmt, ...) {
 | |
|     if (trace) {
 | |
|         va_list ap;
 | |
|         va_start(ap, fmt);
 | |
|         fprintf(stderr, "TRACE: ");
 | |
|         vfprintf(stderr, fmt, ap);
 | |
|         va_end(ap);
 | |
|     }
 | |
| }
 | |
| 
 | |
| void print_error(const char *fmt, ...) {
 | |
|     va_list ap;
 | |
|     va_start(ap, fmt);
 | |
|     fprintf(stderr, "ERROR: ");
 | |
|     vfprintf(stderr, fmt, ap);
 | |
|     va_end(ap);
 | |
| }
 | |
| 
 | |
| void print_info(const char *fmt, ...) {
 | |
|     va_list ap;
 | |
|     va_start(ap, fmt);
 | |
|     fprintf(stderr, " INFO: ");
 | |
|     vfprintf(stderr, fmt, ap);
 | |
|     va_end(ap);
 | |
| }
 | |
| 
 | |
| /* remove directory prefix and file suffix from full path */
 | |
| char *basename(char *path)
 | |
| {
 | |
|     char *p, *b;
 | |
|     static char base[256];
 | |
| 
 | |
|     /* remove prepended path and extension */
 | |
|     b = path;
 | |
|     for (p=path; *p; ++p) {
 | |
|         if (*p == '/')
 | |
|             b = p + 1;
 | |
|     }
 | |
|     strcpy(base, b);
 | |
|     for (p=base; *p; ++p) {
 | |
|         if (*p == '.') {
 | |
|             *p = 0;
 | |
|             break;
 | |
|         }
 | |
|     }
 | |
|     return base;
 | |
| }
 | |
| 
 | |
| int convbdf(char *path)
 | |
| {
 | |
|     struct font* pf;
 | |
|     int ret = 0;
 | |
| 
 | |
|     pf = bdf_read_font(path);
 | |
|     if (!pf)
 | |
|         exit(1);
 | |
|     
 | |
|     if (gen_c) {
 | |
|         if (!oflag) {
 | |
|             strcpy(outfile, basename(path));
 | |
|             strcat(outfile, ".c");
 | |
|         }
 | |
|         ret |= gen_c_source(pf, outfile);
 | |
|     }
 | |
|     
 | |
|     if (gen_h) {
 | |
|         if (!oflag) {
 | |
|             strcpy(outfile, basename(path));
 | |
|             strcat(outfile, ".h");
 | |
|         }
 | |
|         ret |= gen_h_header(pf, outfile);
 | |
|     }
 | |
| 
 | |
|     if (gen_fnt) {
 | |
|         if (!oflag) {
 | |
|             strcpy(outfile, basename(path));
 | |
|             strcat(outfile, ".fnt");
 | |
|         }
 | |
|         ret |= gen_fnt_file(pf, outfile);
 | |
|     }
 | |
| 
 | |
|     free_font(pf);
 | |
|     return ret;
 | |
| }
 | |
| 
 | |
| int main(int ac, char **av)
 | |
| {
 | |
|     int ret = 0;
 | |
| 
 | |
|     ++av; --ac;     /* skip av[0] */
 | |
|     getopts(&ac, &av);  /* read command line options */
 | |
| 
 | |
|     if (ac < 1 || (!gen_c && !gen_h && !gen_fnt)) {
 | |
|         usage();
 | |
|         exit(1);
 | |
|     }
 | |
|     if (oflag) {
 | |
|         if (ac > 1 || (gen_c && gen_fnt) || (gen_c && gen_h) || (gen_h && gen_fnt)) {
 | |
|             usage();
 | |
|             exit(1);
 | |
|         }
 | |
|     }
 | |
|     
 | |
|     while (ac > 0) {
 | |
|         ret |= convbdf(av[0]);
 | |
|         ++av; --ac;
 | |
|     }
 | |
|     
 | |
|     exit(ret);
 | |
| }
 | |
| 
 | |
| /* free font structure */
 | |
| void free_font(struct font* pf)
 | |
| {
 | |
|     if (!pf)
 | |
|         return;
 | |
|     if (pf->name)
 | |
|         free(pf->name);
 | |
|     if (pf->facename)
 | |
|         free(pf->facename);
 | |
|     if (pf->bits)
 | |
|         free(pf->bits);
 | |
|     if (pf->offset)
 | |
|         free(pf->offset);
 | |
|     if (pf->offrot)
 | |
|         free(pf->offrot);
 | |
|     if (pf->width)
 | |
|         free(pf->width);
 | |
|     free(pf);
 | |
| }
 | |
| 
 | |
| /* build incore structure from .bdf file */
 | |
| struct font* bdf_read_font(char *path)
 | |
| {
 | |
|     FILE *fp;
 | |
|     struct font* pf;
 | |
| 
 | |
|     fp = fopen(path, "rb");
 | |
|     if (!fp) {
 | |
|         print_error("Error opening file: %s\n", path);
 | |
|         return NULL;
 | |
|     }
 | |
|     
 | |
|     pf = (struct font*)calloc(1, sizeof(struct font));
 | |
|     if (!pf)
 | |
|         goto errout;
 | |
|     memset(pf, 0, sizeof(struct font));
 | |
|     
 | |
|     pf->name = strdup(basename(path));
 | |
| 
 | |
|     if (!bdf_read_header(fp, pf)) {
 | |
|         print_error("Error reading font header\n");
 | |
|         goto errout;
 | |
|     }
 | |
|     print_trace("Read font header, nchars_decl=%d\n", pf->nchars_declared);
 | |
| 
 | |
|     if (!bdf_analyze_font(fp, pf)) {
 | |
|         print_error("Error analyzing the font\n");
 | |
|         goto errout;
 | |
|     }
 | |
|     print_trace("Analyzed font, nchars=%d, maxwidth=%d, asc_over=%d, desc_over=%d\n",
 | |
|             pf->nchars, pf->maxwidth, pf->max_over_ascent, pf->max_over_descent);
 | |
|     
 | |
|     if (pf->nchars != pf->nchars_declared) {
 | |
|         print_warning(VL_MISC, "The declared number of chars (%d) "
 | |
|                 "does not match the real number (%d)\n",
 | |
|                 pf->nchars_declared, pf->nchars);
 | |
|     }
 | |
|     
 | |
|     /* Correct ascent/descent if necessary */
 | |
|     pf->ascent = adjust_ascent(pf->ascent_declared, pf->max_over_ascent, &stretch_ascent);
 | |
|     if (pf->ascent != pf->ascent_declared) {
 | |
|         print_info("Font ascent has been changed from %d to %d\n",
 | |
|                 pf->ascent_declared, pf->ascent);
 | |
|     }
 | |
|     pf->descent = adjust_ascent(pf->descent, pf->max_over_descent, &stretch_descent);
 | |
|     if (pf->descent != pf->descent_declared) {
 | |
|         print_info("Font descent has been changed from %d to %d\n",
 | |
|                 pf->descent_declared, pf->descent);
 | |
|     }
 | |
|     pf->height = pf->ascent + pf->descent;
 | |
|     if (pf->height != pf->ascent_declared + pf->descent_declared) {
 | |
|         print_warning(VL_CLIP_FONT, "Generated font's height: %d\n", pf->height);
 | |
|     }
 | |
|     
 | |
|     if (pf->ascent > pf->max_char_ascent) {
 | |
|         print_trace("Font's ascent could be reduced by %d to %d without clipping\n",
 | |
|                 (pf->ascent - pf->max_char_ascent), pf->max_char_ascent);
 | |
|     }
 | |
|     if (pf->descent > pf->max_char_descent) {
 | |
|         print_trace("Font's descent could be reduced by %d to %d without clipping\n",
 | |
|                 (pf->descent - pf->max_char_descent), pf->max_char_descent);
 | |
|     }
 | |
|     
 | |
|     
 | |
|     /* Alocate memory */
 | |
|     pf->bits_size = pf->size * BITMAP_WORDS(pf->maxwidth) * pf->height;
 | |
|     pf->bits = (bitmap_t *)malloc(pf->bits_size * sizeof(bitmap_t));
 | |
|     pf->offset = (int *)malloc(pf->size * sizeof(int));
 | |
|     pf->offrot = (unsigned int *)malloc(pf->size * sizeof(unsigned int));
 | |
|     pf->width = (unsigned char *)malloc(pf->size * sizeof(unsigned char));
 | |
|     
 | |
|     if (!pf->bits || !pf->offset || !pf->offrot || !pf->width) {
 | |
|         print_error("no memory for font load\n");
 | |
|         goto errout;
 | |
|     }
 | |
| 
 | |
|     pf->num_clipped_ascent = pf->num_clipped_descent = pf->num_clipped = 0;
 | |
|     pf->max_over_ascent = pf->max_over_descent = 0;
 | |
| 
 | |
|     if (!bdf_read_bitmaps(fp, pf)) {
 | |
|         print_error("Error reading font bitmaps\n");
 | |
|         goto errout;
 | |
|     }
 | |
|     print_trace("Read bitmaps\n");
 | |
|     
 | |
|     if (pf->num_clipped > 0) {
 | |
|         print_warning(VL_CLIP_FONT, "%d character(s) out of %d were clipped "
 | |
|                 "(%d at ascent, %d at descent)\n",
 | |
|                 pf->num_clipped, pf->nchars,
 | |
|                 pf->num_clipped_ascent, pf->num_clipped_descent);
 | |
|         print_warning(VL_CLIP_FONT, "max overflows: %d pixel(s) at ascent, %d pixel(s) at descent\n",
 | |
|                 pf->max_over_ascent, pf->max_over_descent);
 | |
|     }
 | |
| 
 | |
|     fclose(fp);
 | |
|     return pf;
 | |
| 
 | |
|  errout:
 | |
|     fclose(fp);
 | |
|     free_font(pf);
 | |
|     return NULL;
 | |
| }
 | |
| 
 | |
| /* read bdf font header information, return 0 on error */
 | |
| int bdf_read_header(FILE *fp, struct font* pf)
 | |
| {
 | |
|     int encoding;
 | |
|     int firstchar = 65535;
 | |
|     int lastchar = -1;
 | |
|     char buf[256];
 | |
|     char facename[256];
 | |
|     char copyright[256];
 | |
|     int is_header = 1;
 | |
| 
 | |
|     /* set certain values to errors for later error checking */
 | |
|     pf->defaultchar = -1;
 | |
|     pf->ascent = -1;
 | |
|     pf->descent = -1;
 | |
|     pf->default_width = -1;
 | |
| 
 | |
|     for (;;) {
 | |
|         if (!bdf_getline(fp, buf, sizeof(buf))) {
 | |
|             print_error("EOF on file\n");
 | |
|             return 0;
 | |
|         }
 | |
|         if (isprefix(buf, "FONT ")) {       /* not required */
 | |
|             if (sscanf(buf, "FONT %[^\n]", facename) != 1) {
 | |
|                 print_error("bad 'FONT'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             pf->facename = strdup(facename);
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "COPYRIGHT ")) {  /* not required */
 | |
|             if (sscanf(buf, "COPYRIGHT \"%[^\"]", copyright) != 1) {
 | |
|                 print_error("bad 'COPYRIGHT'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             pf->copyright = strdup(copyright);
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "DEFAULT_CHAR ")) {   /* not required */
 | |
|             if (sscanf(buf, "DEFAULT_CHAR %d", &pf->defaultchar) != 1) {
 | |
|                 print_error("bad 'DEFAULT_CHAR'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|         }
 | |
|         if (isprefix(buf, "FONT_DESCENT ")) {
 | |
|             if (sscanf(buf, "FONT_DESCENT %d", &pf->descent_declared) != 1) {
 | |
|                 print_error("bad 'FONT_DESCENT'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             pf->descent = pf->descent_declared; /* For now */
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "FONT_ASCENT ")) {
 | |
|             if (sscanf(buf, "FONT_ASCENT %d", &pf->ascent_declared) != 1) {
 | |
|                 print_error("bad 'FONT_ASCENT'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             pf->ascent = pf->ascent_declared; /* For now */
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "FONTBOUNDINGBOX ")) {
 | |
|             if (sscanf(buf, "FONTBOUNDINGBOX %d %d %d %d",
 | |
|                        &pf->fbbw, &pf->fbbh, &pf->fbbx, &pf->fbby) != 4) {
 | |
|                 print_error("bad 'FONTBOUNDINGBOX'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "CHARS ")) {
 | |
|             if (sscanf(buf, "CHARS %d", &pf->nchars_declared) != 1) {
 | |
|                 print_error("bad 'CHARS'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "STARTCHAR")) {
 | |
|             is_header = 0;
 | |
|             continue;
 | |
|         }
 | |
| 
 | |
|         /* for BDF version 2.2 */
 | |
|         if (is_header && isprefix(buf, "DWIDTH ")) {
 | |
|             if (sscanf(buf, "DWIDTH %d", &pf->default_width) != 1) {
 | |
|                 print_error("bad 'DWIDTH' at font level\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             continue;
 | |
|         }
 | |
| 
 | |
|         /*
 | |
|          * Reading ENCODING is necessary to get firstchar/lastchar
 | |
|          * which is needed to pre-calculate our offset and widths
 | |
|          * array sizes.
 | |
|          */
 | |
|         if (isprefix(buf, "ENCODING ")) {
 | |
|             if (sscanf(buf, "ENCODING %d", &encoding) != 1) {
 | |
|                 print_error("bad 'ENCODING'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             if (encoding >= 0 &&
 | |
|                 encoding <= limit_char && 
 | |
|                 encoding >= start_char) {
 | |
| 
 | |
|                 if (firstchar > encoding)
 | |
|                     firstchar = encoding;
 | |
|                 if (lastchar < encoding)
 | |
|                     lastchar = encoding;
 | |
|             }
 | |
|             continue;
 | |
|         }
 | |
|         if (strequal(buf, "ENDFONT"))
 | |
|             break;
 | |
|     }
 | |
| 
 | |
|     /* calc font height*/
 | |
|     if (pf->ascent < 0 || pf->descent < 0 || firstchar < 0) {
 | |
|         print_error("Invalid BDF file, requires FONT_ASCENT/FONT_DESCENT/ENCODING\n");
 | |
|         return 0;
 | |
|     }
 | |
|     pf->height = pf->ascent + pf->descent;
 | |
| 
 | |
|     /* calc default char */
 | |
|     if (pf->defaultchar < 0 || 
 | |
|         pf->defaultchar < firstchar || 
 | |
|         pf->defaultchar > limit_char ||
 | |
|         pf->defaultchar > lastchar)
 | |
|         pf->defaultchar = firstchar;
 | |
| 
 | |
|     /* calc font size (offset/width entries) */
 | |
|     pf->firstchar = firstchar;
 | |
|     pf->size = lastchar - firstchar + 1;
 | |
| 
 | |
|     return 1;
 | |
| }
 | |
| 
 | |
| /*
 | |
|  * TODO: rework the code to avoid logics duplication in
 | |
|  *       bdf_read_bitmaps and bdf_analyze_font
 | |
|  */
 | |
| 
 | |
| 
 | |
| /* read bdf font bitmaps, return 0 on error */
 | |
| int bdf_read_bitmaps(FILE *fp, struct font* pf)
 | |
| {
 | |
|     int ofs = 0;
 | |
|     int ofr = 0;
 | |
|     int i, k, encoding, width;
 | |
|     int bbw, bbh, bbx, bby;
 | |
|     int proportional = 0;
 | |
|     int encodetable = 0;
 | |
|     int l;
 | |
|     char buf[256];
 | |
|     bitmap_t *ch_bitmap;
 | |
|     int ch_words;
 | |
| 
 | |
|     /* reset file pointer */
 | |
|     fseek(fp, 0L, SEEK_SET);
 | |
| 
 | |
|     /* initially mark offsets as not used */
 | |
|     for (i=0; i<pf->size; ++i)
 | |
|         pf->offset[i] = -1;
 | |
| 
 | |
|     for (;;) {
 | |
|         if (!bdf_getline(fp, buf, sizeof(buf))) {
 | |
|             print_error("EOF on file\n");
 | |
|             return 0;
 | |
|         }
 | |
|         if (isprefix(buf, "STARTCHAR")) {
 | |
|             encoding = width = -1;
 | |
|             bbw = pf->fbbw;
 | |
|             bbh = pf->fbbh;
 | |
|             bbx = pf->fbbx;
 | |
|             bby = pf->fbby;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "ENCODING ")) {
 | |
|             if (sscanf(buf, "ENCODING %d", &encoding) != 1) {
 | |
|                 print_error("bad 'ENCODING'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             if (encoding < start_char || encoding > limit_char)
 | |
|                 encoding = -1;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "DWIDTH ")) {
 | |
|             if (sscanf(buf, "DWIDTH %d", &width) != 1) {
 | |
|                 print_error("bad 'DWIDTH'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             /* use font boundingbox width if DWIDTH <= 0 */
 | |
|             if (width <= 0)
 | |
|                 width = pf->fbbw - pf->fbbx;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "BBX ")) {
 | |
|             if (sscanf(buf, "BBX %d %d %d %d", &bbw, &bbh, &bbx, &bby) != 4) {
 | |
|                 print_error("bad 'BBX'\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             continue;
 | |
|         }
 | |
|         if (strequal(buf, "BITMAP") || strequal(buf, "BITMAP ")) {
 | |
|             int overflow_asc, overflow_desc;
 | |
|             int bbh_orig, bby_orig, y;
 | |
| 
 | |
|             if (encoding < 0)
 | |
|                 continue;
 | |
| 
 | |
|             if (width < 0 && pf->default_width > 0)
 | |
|                 width = pf->default_width;
 | |
| 
 | |
|             /* set bits offset in encode map*/
 | |
|             if (pf->offset[encoding-pf->firstchar] != -1) {
 | |
|                 print_error("duplicate encoding for character %d (0x%02x), ignoring duplicate\n",
 | |
|                         encoding, encoding);
 | |
|                 continue;
 | |
|             }
 | |
|             pf->offset[encoding-pf->firstchar] = ofs;
 | |
|             pf->offrot[encoding-pf->firstchar] = ofr;
 | |
| 
 | |
|             /* calc char width */
 | |
|             bdf_correct_bbx(&width, &bbx);
 | |
|             pf->width[encoding-pf->firstchar] = width;
 | |
| 
 | |
|             ch_bitmap = pf->bits + ofs;
 | |
|             ch_words = BITMAP_WORDS(width);
 | |
|             memset(ch_bitmap, 0, BITMAP_BYTES(width) * pf->height); /* clear bitmap */
 | |
| 
 | |
| #define BM(row,col) (*(ch_bitmap + ((row)*ch_words) + (col)))
 | |
| #define BITMAP_NIBBLES  (BITMAP_BITSPERIMAGE/4)
 | |
| 
 | |
|             bbh_orig = bbh;
 | |
|             bby_orig = bby;
 | |
| 
 | |
|             overflow_asc = bby + bbh - pf->ascent;
 | |
|             if (overflow_asc > 0) {
 | |
|                 pf->num_clipped_ascent++;
 | |
|                 if (overflow_asc > pf->max_over_ascent) {
 | |
|                     pf->max_over_ascent = overflow_asc;
 | |
|                 }
 | |
|                 bbh = MAX(bbh - overflow_asc, 0); /* Clipped -> decrease the height */
 | |
|                 print_warning(VL_CLIP_CHAR, "character %d goes %d pixel(s)"
 | |
|                         " beyond the font's ascent, it will be clipped\n",
 | |
|                         encoding, overflow_asc);
 | |
|             }
 | |
|             overflow_desc = -bby - pf->descent;
 | |
|             if (overflow_desc > 0) {
 | |
|                 pf->num_clipped_descent++;
 | |
|                 if (overflow_desc > pf->max_over_descent) {
 | |
|                     pf->max_over_descent = overflow_desc;
 | |
|                 }
 | |
|                 bby += overflow_desc;
 | |
|                 bbh = MAX(bbh - overflow_desc, 0); /* Clipped -> decrease the height */
 | |
|                 print_warning(VL_CLIP_CHAR, "character %d goes %d pixel(s)"
 | |
|                         " beyond the font's descent, it will be clipped\n",
 | |
|                         encoding, overflow_desc);
 | |
|             }
 | |
|             if (overflow_asc > 0 || overflow_desc > 0) {
 | |
|                 pf->num_clipped++;
 | |
|             }
 | |
| 
 | |
|             y = bby_orig + bbh_orig; /* 0-based y within the char */
 | |
|             
 | |
|             /* read bitmaps */
 | |
|             for (i=0; ; ++i) {
 | |
|                 int hexnibbles;
 | |
| 
 | |
|                 if (!bdf_getline(fp, buf, sizeof(buf))) {
 | |
|                     print_error("EOF reading BITMAP data for character %d\n",
 | |
|                             encoding);
 | |
|                     return 0;
 | |
|                 }
 | |
|                 if (isprefix(buf, "ENDCHAR"))
 | |
|                     break;
 | |
|                 
 | |
|                 y--;
 | |
|                 if ((y >= pf->ascent) || (y < -pf->descent)) {
 | |
|                     /* We're beyond the area that Rockbox can render -> clip */
 | |
|                     --i; /* This line doesn't count */
 | |
|                     continue;
 | |
|                 }
 | |
| 
 | |
|                 hexnibbles = strlen(buf);
 | |
|                 for (k=0; k<ch_words; ++k) {
 | |
|                     int ndx = k * BITMAP_NIBBLES;
 | |
|                     int padnibbles = hexnibbles - ndx;
 | |
|                     bitmap_t value;
 | |
|                     
 | |
|                     if (padnibbles <= 0)
 | |
|                         break;
 | |
|                     if (padnibbles >= (int)BITMAP_NIBBLES)
 | |
|                         padnibbles = 0;
 | |
| 
 | |
|                     value = bdf_hexval((unsigned char *)buf,
 | |
|                                        ndx, ndx+BITMAP_NIBBLES-1-padnibbles);
 | |
|                     value <<= padnibbles * BITMAP_NIBBLES;
 | |
| 
 | |
|                     BM(pf->height - pf->descent - bby - bbh + i, k) |=
 | |
|                         value >> bbx;
 | |
|                     /* handle overflow into next image word */
 | |
|                     if (bbx) {
 | |
|                         BM(pf->height - pf->descent - bby - bbh + i, k+1) =
 | |
|                             value << (BITMAP_BITSPERIMAGE - bbx);
 | |
|                     }
 | |
|                 }
 | |
|             }
 | |
| 
 | |
|             ofs += BITMAP_WORDS(width) * pf->height;
 | |
|             ofr += pf->width[encoding-pf->firstchar] * ((pf->height+7)/8);
 | |
| 
 | |
|             continue;
 | |
|         }
 | |
|         if (strequal(buf, "ENDFONT"))
 | |
|             break;
 | |
|     }
 | |
| 
 | |
|     /* change unused width values to default char values */
 | |
|     for (i=0; i<pf->size; ++i) {
 | |
|         int defchar = pf->defaultchar - pf->firstchar;
 | |
| 
 | |
|         if (pf->offset[i] == -1)
 | |
|             pf->width[i] = pf->width[defchar];
 | |
|     }
 | |
| 
 | |
|     /* determine whether font doesn't require encode table */
 | |
| #ifdef ROTATE
 | |
|     l = 0;
 | |
|     for (i=0; i<pf->size; ++i) {
 | |
|         if ((int)pf->offrot[i] != l) {
 | |
|             encodetable = 1;
 | |
|             break;
 | |
|         }
 | |
|         l += pf->maxwidth * ((pf->height + 7) / 8);
 | |
|     }
 | |
| #else
 | |
|     l = 0;
 | |
|     for (i=0; i<pf->size; ++i) {
 | |
|         if (pf->offset[i] != l) {
 | |
|             encodetable = 1;
 | |
|             break;
 | |
|         }
 | |
|         l += BITMAP_WORDS(pf->width[i]) * pf->height;
 | |
|     }
 | |
| #endif
 | |
|     if (!encodetable) {
 | |
|         free(pf->offset);
 | |
|         pf->offset = NULL;
 | |
|     }
 | |
| 
 | |
|     /* determine whether font is fixed-width */
 | |
|     for (i=0; i<pf->size; ++i) {
 | |
|         if (pf->width[i] != pf->maxwidth) {
 | |
|             proportional = 1;
 | |
|             break;
 | |
|         }
 | |
|     }
 | |
|     if (!proportional) {
 | |
|         free(pf->width);
 | |
|         pf->width = NULL;
 | |
|     }
 | |
| 
 | |
|     /* reallocate bits array to actual bits used */
 | |
|     if (ofs < pf->bits_size) {
 | |
|         pf->bits = realloc(pf->bits, ofs * sizeof(bitmap_t));
 | |
|         pf->bits_size = ofs;
 | |
|     }
 | |
| 
 | |
| #ifdef ROTATE
 | |
|     pf->bits_size = ofr; /* always update, rotated is smaller */
 | |
| #endif
 | |
| 
 | |
|     return 1;
 | |
| }
 | |
| 
 | |
| /* read the next non-comment line, returns buf or NULL if EOF */
 | |
| char *bdf_getline(FILE *fp, char *buf, int len)
 | |
| {
 | |
|     int c;
 | |
|     char *b;
 | |
| 
 | |
|     for (;;) {
 | |
|         b = buf;
 | |
|         while ((c = getc(fp)) != EOF) {
 | |
|             if (c == '\r')
 | |
|                 continue;
 | |
|             if (c == '\n')
 | |
|                 break;
 | |
|             if (b - buf >= (len - 1))
 | |
|                 break;
 | |
|             *b++ = c;
 | |
|         }
 | |
|         *b = '\0';
 | |
|         if (c == EOF && b == buf)
 | |
|             return NULL;
 | |
|         if (b != buf && !isprefix(buf, "COMMENT"))
 | |
|             break;
 | |
|     }
 | |
|     return buf;
 | |
| }
 | |
| 
 | |
| void bdf_correct_bbx(int *width, int *bbx) {
 | |
|     if (*bbx < 0) {
 | |
|         /* Rockbox can't render overlapping glyphs */
 | |
|         *width -= *bbx;
 | |
|         *bbx = 0;
 | |
|     }
 | |
| }
 | |
| 
 | |
| int bdf_analyze_font(FILE *fp, struct font* pf) {
 | |
|     char buf[256];
 | |
|     int encoding;
 | |
|     int width, bbw, bbh, bbx, bby, ascent, overflow;
 | |
|     int read_enc = 0, read_width = 0, read_bbx = 0, read_endchar = 1;
 | |
|     int ignore_char = 0;
 | |
| 
 | |
|     /* reset file pointer */
 | |
|     fseek(fp, 0L, SEEK_SET);
 | |
|     
 | |
|     pf->maxwidth = 0;
 | |
|     pf->nchars = 0;
 | |
|     pf->max_char_ascent = pf->max_char_descent = 0;
 | |
|     pf->max_over_ascent = pf->max_over_descent = 0;
 | |
| 
 | |
|     for (;;) {
 | |
|         
 | |
|         if (!bdf_getline(fp, buf, sizeof(buf))) {
 | |
|             print_error("EOF on file\n");
 | |
|             return 0;
 | |
|         }
 | |
|         if (isprefix(buf, "ENDFONT")) {
 | |
|             if (!read_endchar) {
 | |
|                 print_error("No terminating ENDCHAR for character %d\n", encoding);
 | |
|                 return 0;
 | |
|             }
 | |
|             break;
 | |
|         }
 | |
|         if (isprefix(buf, "STARTCHAR")) {
 | |
|             print_trace("Read STARTCHAR, nchars=%d, read_endchar=%d\n", pf->nchars, read_endchar);
 | |
|             if (!read_endchar) {
 | |
|                 print_error("No terminating ENDCHAR for character %d\n", encoding);
 | |
|                 return 0;
 | |
|             }
 | |
|             read_enc = read_width = read_bbx = read_endchar = 0;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "ENDCHAR")) {
 | |
|             if (!read_enc) {
 | |
|                 print_error("ENCODING is not specified\n");
 | |
|                 return 0;
 | |
|             }
 | |
|             ignore_char = (encoding < start_char || encoding > limit_char);
 | |
|             if (!ignore_char) {
 | |
|                 if (!read_width && pf->default_width > 0)
 | |
|                 {
 | |
|                     width = pf->default_width;
 | |
|                     read_width = 1;
 | |
|                 }
 | |
|                 if (!read_width || !read_bbx) {
 | |
|                     print_error("WIDTH or BBX is not specified for character %d\n",
 | |
|                             encoding);
 | |
|                 }
 | |
|                 bdf_correct_bbx(&width, &bbx);
 | |
|                 if (width > pf->maxwidth) {
 | |
|                     pf->maxwidth = width;
 | |
|                 }
 | |
| 
 | |
|                 ascent = bby + bbh;
 | |
|                 pf->max_char_ascent = MAX(pf->max_char_ascent, ascent);
 | |
|                 overflow = ascent - pf->ascent;
 | |
|                 pf->max_over_ascent = MAX(pf->max_over_ascent, overflow);
 | |
| 
 | |
|                 ascent = -bby;
 | |
|                 pf->max_char_descent = MAX(pf->max_char_descent, ascent);
 | |
|                 overflow = ascent - pf->descent;
 | |
|                 pf->max_over_descent = MAX(pf->max_over_descent, overflow);
 | |
|             }
 | |
|             pf->nchars++;
 | |
|             read_endchar = 1;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "ENCODING ")) {
 | |
|             if (sscanf(buf, "ENCODING %d", &encoding) != 1) {
 | |
|                 print_error("bad 'ENCODING': '%s'\n", buf);
 | |
|                 return 0;
 | |
|             }
 | |
|             read_enc = 1;
 | |
|             continue;
 | |
|         }
 | |
|         if (isprefix(buf, "DWIDTH ")) {
 | |
|             if (sscanf(buf, "DWIDTH %d", &width) != 1) {
 | |
|                 print_error("bad 'DWIDTH': '%s'\n", buf);
 | |
|                 return 0;
 | |
|             }
 | |
|             /* use font boundingbox width if DWIDTH <= 0 */
 | |
|             if (width < 0) {
 | |
|                 print_error("Negative char width: %d\n", width);
 | |
|                 return 0;
 | |
|             }
 | |
|             read_width = 1;
 | |
|         }
 | |
|         if (isprefix(buf, "BBX ")) {
 | |
|             if (sscanf(buf, "BBX %d %d %d %d", &bbw, &bbh, &bbx, &bby) != 4) {
 | |
|                 print_error("bad 'BBX': '%s'\n", buf);
 | |
|                 return 0;
 | |
|             }
 | |
|             read_bbx = 1;
 | |
|             continue;
 | |
|         }
 | |
|     }
 | |
|     return 1;
 | |
| }
 | |
| 
 | |
| int adjust_ascent(int ascent, int overflow, struct stretch *stretch) {
 | |
|     int result;
 | |
|     int px = stretch->value;
 | |
|     if (stretch->percent) {
 | |
|         px = ascent * px / 100;
 | |
|     }
 | |
|     
 | |
|     if (stretch->force) {
 | |
|         result = ascent + px;
 | |
|     }
 | |
|     else {
 | |
|         result = ascent + MIN(overflow, px);
 | |
|     }
 | |
|     result = MAX(result, 0);
 | |
|     return result;
 | |
| }
 | |
| 
 | |
| 
 | |
| /* return hex value of portion of buffer*/
 | |
| bitmap_t bdf_hexval(unsigned char *buf, int ndx1, int ndx2)
 | |
| {
 | |
|     bitmap_t val = 0;
 | |
|     int i, c;
 | |
| 
 | |
|     for (i=ndx1; i<=ndx2; ++i) {
 | |
|         c = buf[i];
 | |
|         if (c >= '0' && c <= '9')
 | |
|             c -= '0';
 | |
|         else 
 | |
|             if (c >= 'A' && c <= 'F')
 | |
|                 c = c - 'A' + 10;
 | |
|             else 
 | |
|                 if (c >= 'a' && c <= 'f')
 | |
|                     c = c - 'a' + 10;
 | |
|                 else 
 | |
|                     c = 0;
 | |
|         val = (val << 4) | c;
 | |
|     }
 | |
|     return val;
 | |
| }
 | |
| 
 | |
| 
 | |
| #ifdef ROTATE
 | |
| 
 | |
| /*
 | |
|  * Take an bitmap_t bitmap and convert to Rockbox format.
 | |
|  * Used for converting font glyphs for the time being.
 | |
|  * Can use for standard X11 and Win32 images as well.
 | |
|  * See format description in lcd-recorder.c
 | |
|  *
 | |
|  * Doing it this way keeps fonts in standard formats,
 | |
|  * as well as keeping Rockbox hw bitmap format.
 | |
|  *
 | |
|  * Returns the size of the rotated glyph (in bytes) or a
 | |
|  * negative value if the glyph could not be rotated.
 | |
|  */
 | |
| int rotleft(unsigned char *dst, /* output buffer */
 | |
|             size_t dstlen,      /* buffer size */
 | |
|             bitmap_t *src, unsigned int width, unsigned int height,
 | |
|             int char_code)
 | |
| {
 | |
|     unsigned int i,j;
 | |
|     unsigned int src_words;     /* # words of input image */
 | |
|     unsigned int dst_mask;      /* bit mask for destination */
 | |
|     bitmap_t src_mask;          /* bit mask for source */
 | |
|     
 | |
|     /* How large the buffer should be to hold the rotated bitmap
 | |
|        of a glyph of size (width x height) */
 | |
|     unsigned int needed_size = ((height + 7) / 8) * width;
 | |
| 
 | |
|     if (needed_size > dstlen) {
 | |
|         print_error("Character %d: Glyph of size %d x %d can't be rotated "
 | |
|                 "(buffer size is %lu, needs %u)\n",
 | |
|                 char_code, width, height, (unsigned long)dstlen, needed_size);
 | |
|         return -1;
 | |
|     }
 | |
| 
 | |
|     /* calc words of input image*/
 | |
|     src_words = BITMAP_WORDS(width) * height;
 | |
|     
 | |
|     /* clear background*/
 | |
|     memset(dst, 0, needed_size);
 | |
| 
 | |
|     dst_mask = 1;
 | |
| 
 | |
|     for (i=0; i < src_words; i++) {
 | |
| 
 | |
|         /* calc src input bit*/
 | |
|         src_mask = 1 << (sizeof (bitmap_t) * 8 - 1);
 | |
|         
 | |
|         /* for each input column...*/
 | |
|         for(j=0; j < width; j++) {
 | |
| 
 | |
|             if (src_mask == 0) /* input word done? */
 | |
|             {
 | |
|                 src_mask = 1 << (sizeof (bitmap_t) * 8 - 1);
 | |
|                 i++;    /* next input word */
 | |
|             }
 | |
| 
 | |
|             /* if set in input, set in rotated output */
 | |
|             if (src[i] & src_mask)
 | |
|                 dst[j] |= dst_mask;
 | |
| 
 | |
|             src_mask >>= 1;    /* next input bit */
 | |
|         }
 | |
| 
 | |
|         dst_mask <<= 1;          /* next output bit (row) */
 | |
|         if (dst_mask > (1 << 7)) /* output bit > 7? */
 | |
|         {
 | |
|             dst_mask = 1;
 | |
|             dst += width;        /* next output byte row */
 | |
|         }
 | |
|     }
 | |
|     return needed_size; /* return result size in bytes */
 | |
| }
 | |
| 
 | |
| #endif /* ROTATE */
 | |
| 
 | |
| 
 | |
| /* generate C source from in-core font*/
 | |
| int gen_c_source(struct font* pf, char *path)
 | |
| {
 | |
|     FILE *ofp;
 | |
|     int i;
 | |
|     time_t t = time(0);
 | |
| #ifdef ROTATE
 | |
|     int ofr = 0;
 | |
| #else
 | |
|     int did_syncmsg = 0;
 | |
|     bitmap_t *ofs = pf->bits;
 | |
| #endif
 | |
|     char buf[256];
 | |
|     char obuf[256];
 | |
|     char hdr1[] = {
 | |
|         "/* Generated by convbdf on %s. */\n"
 | |
|         "#include \"font.h\"\n"
 | |
|         "#ifdef HAVE_LCD_BITMAP\n"
 | |
|         "\n"
 | |
|         "/* Font information:\n"
 | |
|         "   name: %s\n"
 | |
|         "   facename: %s\n"
 | |
|         "   w x h: %dx%d\n"
 | |
|         "   size: %d\n"
 | |
|         "   ascent: %d\n"
 | |
|         "   descent: %d\n"
 | |
|         "   first char: %d (0x%02x)\n"
 | |
|         "   last char: %d (0x%02x)\n"
 | |
|         "   default char: %d (0x%02x)\n"
 | |
|         "   proportional: %s\n"
 | |
|         "   %s\n"
 | |
|         "*/\n"
 | |
|         "\n"
 | |
|         "/* Font character bitmap data. */\n"
 | |
|         "static const unsigned char _font_bits[] = {\n"
 | |
|     };
 | |
| 
 | |
|     ofp = fopen(path, "w");
 | |
|     if (!ofp) {
 | |
|         print_error("Can't create %s\n", path);
 | |
|         return 1;
 | |
|     }
 | |
| 
 | |
|     strcpy(buf, ctime(&t));
 | |
|     buf[strlen(buf)-1] = 0;
 | |
| 
 | |
|     fprintf(ofp, hdr1, buf, 
 | |
|             pf->name,
 | |
|             pf->facename? pf->facename: "",
 | |
|             pf->maxwidth, pf->height,
 | |
|             pf->size,
 | |
|             pf->ascent, pf->descent,
 | |
|             pf->firstchar, pf->firstchar,
 | |
|             pf->firstchar+pf->size-1, pf->firstchar+pf->size-1,
 | |
|             pf->defaultchar, pf->defaultchar,
 | |
|             pf->width? "yes": "no",
 | |
|             pf->copyright? pf->copyright: "");
 | |
| 
 | |
|     /* generate bitmaps*/
 | |
|     for (i=0; i<pf->size; ++i) {
 | |
|         int x;
 | |
|         int bitcount = 0;
 | |
|         int width = pf->width ? pf->width[i] : pf->maxwidth;
 | |
|         int height = pf->height;
 | |
|         int char_code = pf->firstchar + i;
 | |
|         bitmap_t *bits;
 | |
|         bitmap_t bitvalue=0;
 | |
| 
 | |
|         /* Skip missing glyphs */
 | |
|         if (pf->offset && (pf->offset[i] == -1))
 | |
|             continue;
 | |
| 
 | |
|         bits = pf->bits + (pf->offset? (int)pf->offset[i]: (pf->height * i));
 | |
| 
 | |
|         fprintf(ofp, "\n/* Character %d (0x%02x):\n   width %d",
 | |
|                 char_code, char_code, width);
 | |
| 
 | |
|         if (gen_map) {
 | |
|             fprintf(ofp, "\n   +");
 | |
|             for (x=0; x<width; ++x) fprintf(ofp, "-");
 | |
|             fprintf(ofp, "+\n");
 | |
| 
 | |
|             x = 0;
 | |
|             while (height > 0) {
 | |
|                 if (x == 0) fprintf(ofp, "   |");
 | |
| 
 | |
|                 if (bitcount <= 0) {
 | |
|                     bitcount = BITMAP_BITSPERIMAGE;
 | |
|                     bitvalue = *bits++;
 | |
|                 }
 | |
| 
 | |
|                 fprintf(ofp, BITMAP_TESTBIT(bitvalue)? "*": " ");
 | |
| 
 | |
|                 bitvalue = BITMAP_SHIFTBIT(bitvalue);
 | |
|                 --bitcount;
 | |
|                 if (++x == width) {
 | |
|                     fprintf(ofp, "|\n");
 | |
|                     --height;
 | |
|                     x = 0;
 | |
|                     bitcount = 0;
 | |
|                 }
 | |
|             }
 | |
|             fprintf(ofp, "   +");
 | |
|             for (x=0; x<width; ++x)
 | |
|                 fprintf(ofp, "-");
 | |
|             fprintf(ofp, "+ */\n");
 | |
|         }
 | |
|         else
 | |
|             fprintf(ofp, " */\n");
 | |
| 
 | |
|         bits = pf->bits + (pf->offset? (int)pf->offset[i]: (pf->height * i));
 | |
| #ifdef ROTATE /* pre-rotated into Rockbox bitmap format */
 | |
|         {
 | |
|           unsigned char bytemap[ROTATION_BUF_SIZE];
 | |
|           int y8, ix=0;
 | |
|           
 | |
|           int size = rotleft(bytemap, sizeof(bytemap), bits, width,
 | |
|                              pf->height, char_code);
 | |
|           if (size < 0) {
 | |
|               return -1;
 | |
|           }
 | |
|           
 | |
|           for (y8=0; y8<pf->height; y8+=8) /* column rows */
 | |
|           {
 | |
|             for (x=0; x<width; x++) {
 | |
|                 fprintf(ofp, "0x%02x, ", bytemap[ix]);
 | |
|                 ix++;
 | |
|             }
 | |
|             fprintf(ofp, "\n");
 | |
|           }
 | |
| 
 | |
|         /* update offrot since bits are now in sorted order */
 | |
|         pf->offrot[i] = ofr;
 | |
|         ofr += size;
 | |
| 
 | |
|         }
 | |
| #else
 | |
|         for (x=BITMAP_WORDS(width)*pf->height; x>0; --x) {
 | |
|             fprintf(ofp, "0x%04x,\n", *bits);
 | |
|             if (!did_syncmsg && *bits++ != *ofs++) {
 | |
|                 print_warning(VL_MISC, "found encoding values in non-sorted order (not an error).\n");
 | |
|                 did_syncmsg = 1;
 | |
|             }
 | |
|         }
 | |
| #endif
 | |
|     }
 | |
|     fprintf(ofp, "};\n\n");
 | |
| 
 | |
|     if (pf->offset) {
 | |
|         /* output offset table*/
 | |
|         fprintf(ofp, "/* Character->glyph mapping. */\n"
 | |
|                 "static const unsigned short _sysfont_offset[] = {\n");
 | |
| 
 | |
|         for (i=0; i<pf->size; ++i) {
 | |
|             if (pf->offset[i] == -1) {
 | |
|                 pf->offset[i] = pf->offset[pf->defaultchar - pf->firstchar];
 | |
|                 pf->offrot[i] = pf->offrot[pf->defaultchar - pf->firstchar];
 | |
|             }
 | |
|             fprintf(ofp, "  %d,\t/* (0x%02x) */\n", 
 | |
| #ifdef ROTATE
 | |
|                     pf->offrot[i], i+pf->firstchar);
 | |
| #else
 | |
|                     pf->offset[i], i+pf->firstchar);
 | |
| #endif
 | |
|         }
 | |
|         fprintf(ofp, "};\n\n");
 | |
|     }
 | |
| 
 | |
|     /* output width table for proportional fonts*/
 | |
|     if (pf->width) {
 | |
|         fprintf(ofp, "/* Character width data. */\n"
 | |
|                 "static const unsigned char _sysfont_width[] = {\n");
 | |
| 
 | |
|         for (i=0; i<pf->size; ++i)
 | |
|             fprintf(ofp, "  %d,\t/* (0x%02x) */\n", 
 | |
|                     pf->width[i], i+pf->firstchar);
 | |
|         fprintf(ofp, "};\n\n");
 | |
|     }
 | |
| 
 | |
|     /* output struct font struct*/
 | |
|     if (pf->offset)
 | |
|         sprintf(obuf, "_sysfont_offset,");
 | |
|     else
 | |
|         sprintf(obuf, "0,  /* no encode table */");
 | |
| 
 | |
|     if (pf->width)
 | |
|         sprintf(buf, "_sysfont_width,  /* width */");
 | |
|     else
 | |
|         sprintf(buf, "0,  /* fixed width */");
 | |
| 
 | |
|     fprintf(ofp,    "/* Exported structure definition. */\n"
 | |
|             "const struct font sysfont = {\n"
 | |
|             "  %d,  /* maxwidth */\n"
 | |
|             "  %d,  /* height */\n"
 | |
|             "  %d,  /* ascent */\n"
 | |
|             "  %d,  /* firstchar */\n"
 | |
|             "  %d,  /* size */\n"
 | |
|             "  _font_bits, /* bits */\n"
 | |
|             "  %s  /* offset */\n"
 | |
|             "  %s\n"
 | |
|             "  %d,  /* defaultchar */\n"
 | |
|             "  %d   /* bits_size */\n"
 | |
|             "};\n"
 | |
|             "#endif /* HAVE_LCD_BITMAP */\n",
 | |
|             pf->maxwidth, pf->height,
 | |
|             pf->ascent,
 | |
|             pf->firstchar,
 | |
|             pf->size,
 | |
|             obuf,
 | |
|             buf,
 | |
|             pf->defaultchar,
 | |
|             pf->bits_size);
 | |
| 
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| /* generate C header from in-core font*/
 | |
| int gen_h_header(struct font* pf, char *path)
 | |
| {
 | |
|     FILE *ofp;
 | |
|     time_t t = time(0);
 | |
|     char buf[256];
 | |
|     char *hdr1 =
 | |
|         "/* Generated by convbdf on %s. */\n"
 | |
|         "#ifdef HAVE_LCD_BITMAP\n"
 | |
|         "\n"
 | |
|         "/* Font information*/\n"
 | |
|         "#define SYSFONT_NAME           %s\n"
 | |
|         "#define SYSFONT_FACENAME       %s\n"
 | |
|         "#define SYSFONT_WIDTH          %d\n"
 | |
|         "#define SYSFONT_HEIGHT         %d\n"
 | |
|         "#define SYSFONT_SIZE           %d\n"
 | |
|         "#define SYSFONT_ASCENT         %d\n";
 | |
|     char *hdr2 =
 | |
|         "#define SYSFONT_DESCENT        %d\n"
 | |
|         "#define SYSFONT_FIRST_CHAR     %d\n"
 | |
|         "#define SYSFONT_LAST_CHAR      %d\n"
 | |
|         "#define SYSFONT_DEFAULT_CHAR   %d\n"
 | |
|         "#define SYSFONT_PROPORTIONAL   %d\n"
 | |
|         "#define SYSFONT_COPYRIGHT      %s\n"
 | |
|         "#define SYSFONT_BITS_SIZE      %d\n"
 | |
|         "\n"
 | |
|         "#endif\n";
 | |
| 
 | |
|     ofp = fopen(path, "w");
 | |
|     if (!ofp) {
 | |
|         print_error("Can't create %s\n", path);
 | |
|         return 1;
 | |
|     }
 | |
| 
 | |
|     strcpy(buf, ctime(&t));
 | |
|     buf[strlen(buf)-1] = 0;
 | |
| 
 | |
|     fprintf(ofp, hdr1, buf,
 | |
|             pf->name,
 | |
|             pf->facename? pf->facename: "",
 | |
|             pf->maxwidth,
 | |
|             pf->height,
 | |
|             pf->size,
 | |
|             pf->ascent);
 | |
| 
 | |
|     fprintf(ofp, hdr2, 
 | |
|             pf->descent,
 | |
|             pf->firstchar,
 | |
|             pf->firstchar+pf->size-1,
 | |
|             pf->defaultchar,
 | |
|             pf->width? 1: 0,
 | |
|             pf->copyright? pf->copyright: "",
 | |
|             pf->bits_size);
 | |
| 
 | |
|     return 0;
 | |
| }
 | |
| 
 | |
| static int writebyte(FILE *fp, unsigned char c)
 | |
| {
 | |
|     return putc(c, fp) != EOF;
 | |
| }
 | |
| 
 | |
| static int writeshort(FILE *fp, unsigned short s)
 | |
| {
 | |
|     putc(s, fp);
 | |
|     return putc(s>>8, fp) != EOF;
 | |
| }
 | |
| 
 | |
| static int writeint(FILE *fp, unsigned int l)
 | |
| {
 | |
|     putc(l, fp);
 | |
|     putc(l>>8, fp);
 | |
|     putc(l>>16, fp);
 | |
|     return putc(l>>24, fp) != EOF;
 | |
| }
 | |
| 
 | |
| static int writestr(FILE *fp, char *str, int count)
 | |
| {
 | |
|     return (int)fwrite(str, 1, count, fp) == count;
 | |
| }
 | |
| 
 | |
| #ifndef ROTATE
 | |
| static int writestrpad(FILE *fp, char *str, int totlen)
 | |
| {
 | |
|     int ret = EOF;
 | |
| 
 | |
|     while (str && *str && totlen > 0) {
 | |
|         if (*str) {
 | |
|             ret = putc(*str++, fp);
 | |
|             --totlen;
 | |
|         }
 | |
|     }
 | |
|     while (--totlen >= 0)
 | |
|         ret = putc(' ', fp);
 | |
|     return ret;
 | |
| }
 | |
| #endif
 | |
| 
 | |
| /* generate .fnt format file from in-core font*/
 | |
| int gen_fnt_file(struct font* pf, char *path)
 | |
| {
 | |
|     FILE *ofp;
 | |
|     int i;
 | |
| #ifdef ROTATE
 | |
|     int ofr = 0;
 | |
| #endif
 | |
| 
 | |
|     ofp = fopen(path, "wb");
 | |
|     if (!ofp) {
 | |
|         print_error("Can't create %s\n", path);
 | |
|         return 1;
 | |
|     }
 | |
| 
 | |
|     /* write magic and version #*/
 | |
|     writestr(ofp, VERSION, 4);
 | |
| #ifndef ROTATE
 | |
|     /* internal font name*/
 | |
|     writestrpad(ofp, pf->name, 64);
 | |
| 
 | |
|     /* copyright*/
 | |
|     writestrpad(ofp, pf->copyright, 256);
 | |
| #endif
 | |
|     /* font info*/
 | |
|     writeshort(ofp, pf->maxwidth);
 | |
|     writeshort(ofp, pf->height);
 | |
|     writeshort(ofp, pf->ascent);
 | |
|     writeshort(ofp, 0);
 | |
|     writeint(ofp, pf->firstchar);
 | |
|     writeint(ofp, pf->defaultchar);
 | |
|     writeint(ofp, pf->size);
 | |
| 
 | |
|     /* variable font data sizes*/
 | |
|     writeint(ofp, pf->bits_size);         /* # words of bitmap_t*/
 | |
|     writeint(ofp, pf->offset? pf->size: 0);  /* # ints of offset*/
 | |
|     writeint(ofp, pf->width? pf->size: 0);    /* # bytes of width*/
 | |
|     /* variable font data*/
 | |
| #ifdef ROTATE
 | |
|     for (i=0; i<pf->size; ++i)
 | |
|     {
 | |
|         bitmap_t* bits;
 | |
|         int width = pf->width ? pf->width[i] : pf->maxwidth;
 | |
|         int size;
 | |
|         int char_code = pf->firstchar + i;
 | |
|         unsigned char bytemap[ROTATION_BUF_SIZE];
 | |
| 
 | |
|         /* Skip missing glyphs */
 | |
|         if (pf->offset && (pf->offset[i] == -1))
 | |
|             continue;
 | |
| 
 | |
|         bits = pf->bits + (pf->offset? (int)pf->offset[i]: (pf->height * i));
 | |
| 
 | |
|         size = rotleft(bytemap, sizeof(bytemap), bits, width, pf->height, char_code);
 | |
|         if (size < 0) {
 | |
|             return -1;
 | |
|         }
 | |
|         writestr(ofp, (char *)bytemap, size);
 | |
| 
 | |
|         /* update offrot since bits are now in sorted order */
 | |
|         pf->offrot[i] = ofr;
 | |
|         ofr += size;
 | |
|     }
 | |
| 
 | |
|     if ( pf->bits_size < 0xFFDB )
 | |
|     {
 | |
|         /* bitmap offset is small enough, use unsigned short for offset */
 | |
|         if (ftell(ofp) & 1)
 | |
|             writebyte(ofp, 0);          /* pad to 16-bit boundary*/
 | |
|     }
 | |
|     else
 | |
|     {
 | |
|         /* bitmap offset is large then 64K, use unsigned int for offset */
 | |
|         while (ftell(ofp) & 3)
 | |
|             writebyte(ofp, 0);          /* pad to 32-bit boundary*/
 | |
|     }
 | |
| 
 | |
|     if (pf->offset)
 | |
|     {
 | |
|         for (i=0; i<pf->size; ++i)
 | |
|         {
 | |
|             if (pf->offset[i] == -1) {
 | |
|                 pf->offrot[i] = pf->offrot[pf->defaultchar - pf->firstchar];
 | |
|             }
 | |
|             if ( pf->bits_size < 0xFFDB )
 | |
|                 writeshort(ofp, pf->offrot[i]);
 | |
|             else
 | |
|                 writeint(ofp, pf->offrot[i]);
 | |
|         }
 | |
|     }
 | |
| 
 | |
|     if (pf->width)
 | |
|         for (i=0; i<pf->size; ++i)
 | |
|             writebyte(ofp, pf->width[i]);
 | |
| #else
 | |
|     for (i=0; i<pf->bits_size; ++i)
 | |
|         writeshort(ofp, pf->bits[i]);
 | |
|     if (ftell(ofp) & 2)
 | |
|         writeshort(ofp, 0);     /* pad to 32-bit boundary*/
 | |
| 
 | |
|     if (pf->offset)
 | |
|         for (i=0; i<pf->size; ++i) {
 | |
|             if (pf->offset[i] == -1) {
 | |
|                 pf->offset[i] = pf->offset[pf->defaultchar - pf->firstchar];
 | |
|             }
 | |
|             writeint(ofp, pf->offset[i]);
 | |
|         }
 | |
| 
 | |
|     if (pf->width)
 | |
|         for (i=0; i<pf->size; ++i)
 | |
|             writebyte(ofp, pf->width[i]);
 | |
| #endif
 | |
|     fclose(ofp);
 | |
|     return 0;
 | |
| }
 |