开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 图片显示 > 查看源码
IFontBDF.c
资源名称：ilib　[点击查看]
上传用户：changbiao
上传日期：2007-01-13
资源大小：141k
文件大小：12k
源码类别：

图片显示

开发平台：

C/C++

IFontBDF.c：源码内容
  1. /*
  2. ** Routines for reading in a BDF (font) file.
  3. ** BDF files can be obtained as part of the X Windows System
  4. ** at ftp://ftp.x.org/
  5. **
  6. ** Copyright 1999 Craig Knudsen
  7. **
  8. ** 12-Apr-1999 Craig Knudsen cknudsen@radix.net
  9. ** Added support for high ascii characters.
  10. ** (This has disabled usage of the escape sequences like
  11. ** "33agrave".)
  12. ** 17-May-1996 Craig Knudsen   cknudsen@radix.net
  13. ** Created
  14. */
  18. #include <stdio.h>
  19. #include <stdlib.h>
  20. #include <string.h>
  21. #include <ctype.h>
  22. #include <fcntl.h>
  23. #include <sys/types.h>
  24. #include <sys/stat.h>
  27. #include "Ilib.h"
  28. #include "IlibP.h"
  29. #include "IFontBDF.h"
  31. #ifndef FALSE
  32. #define FALSE 0
  33. #endif
  34. #ifndef TRUE
  35. #define TRUE 1
  36. #endif
  39. /*
  40. ** Define the BDF translations into standard ASCII.
  41. ** Note we will still handle non-ASCII characters.
  42. ** Use "33agrave;" to get the agrave symbol.
  43. */
  44. typedef struct {
  45.   char *name;
  46.   unsigned char value;
  47. } char_translation;
  49. char_translation translation[] = {
  50.   { "space", ' ' },
  51.   { "exclam", '!' },
  52.   { "quotedbl", '"' },
  53.   { "numbersign", '#' },
  54.   { "dollar", '$' },
  55.   { "percent", '%' },
  56.   { "ampersand", '&' },
  57.   { "quoteright", ''' },
  58.   { "parenleft", '(' },
  59.   { "parenright", ')' },
  60.   { "asterisk", '*' },
  61.   { "plus", '+' },
  62.   { "comma", ',' },
  63.   { "minus", '-' },
  64.   { "period", '.' },
  65.   { "slash", '/' },
  66.   { "zero", '0' },
  67.   { "one", '1' },
  68.   { "two", '2' },
  69.   { "three", '3' },
  70.   { "four", '4' },
  71.   { "five", '5' },
  72.   { "six", '6' },
  73.   { "seven", '7' },
  74.   { "eight", '8' },
  75.   { "nine", '9' },
  76.   { "colon", ':' },
  77.   { "semicolon", ';' },
  78.   { "less", '<' },
  79.   { "equal", '=' },
  80.   { "greater", '>' },
  81.   { "question", '?' },
  82.   { "at", '@' },
  83.   { "bracketleft", '[' },
  84.   { "backslash", '\' },
  85.   { "bracketright", ']' },
  86.   { "asciicircum", '^' },
  87.   { "underscore", '_' },
  88.   { "quoteleft", '`' },
  89.   { "braceleft", '{' },
  90.   { "bar", '|' },
  91.   { "braceright", '}' },
  92.   { "asciitilde", '~' },
  93.   { NULL, '' },
  94. };
  96. static char *trans_table[256];
  98. typedef struct {
  99.   char *name; /* translated name ("A", "B", "33agrave;") */
  100.   unsigned int *data; /* character definition */
  101.   unsigned int width; /* character width */
  102.   unsigned int height; /* height (size of lines array) */
  103.   unsigned int actual_width; /* width with padding on left and right */
  104.   int xoffset; /* pixels to move to the right before drawing */
  105.   int yoffset; /* pixels to move to up before drawing */
  106. } Char;
  108. typedef struct {
  109.   char *name; /* font name */
  110.   char *family; /* font family ("Times") */
  111.   char *face_name; /* face name ("Times Roman") */
  112.   char *width_name; /* face name ("Normal") */
  113.   char *weight; /* font weight ("R") */
  114.   int proportional; /* yes or no? (fixed/proportional font) */
  115.   int pixel_size;
  116.   int font_ascent;
  117.   int font_descent;
  118.   Char *chars[256]; /* list of chars */
  119.   Char **other_chars; /* non ASCII chars */
  120.   unsigned int num_other_chars; /* size of above array */
  121. } Font;
  124. static Font **fonts = NULL;
  125. static int num_fonts = 0;
  127. IError IFontBDFReadFile ( name, path )
  128. char *name;
  129. char *path;
  130. {
  131.   struct stat buf;
  132.   FILE *fp;
  133.   char text[256];
  134.   IError ret;
  135.   char **lines;
  136.   int num_lines = 0, loop;
  138.   if ( stat ( path, &buf ) == 0 ) {
  139.     fp = fopen ( path, "r" );
  140.     if ( !fp )
  141.       return ( INoSuchFile );
  142.     lines = malloc ( 1 );
  143.     while ( fgets ( text, 256, fp ) ) {
  144.       lines = realloc ( lines, ( num_lines + 1 ) * sizeof ( char * ) );
  145.       if ( text[strlen(text)-1] == '12' )
  146.         text[strlen(text)-1] = '';
  147.       if ( text[strlen(text)-1] == '15' )
  148.         text[strlen(text)-1] = '';
  149.       lines[num_lines] = (char *) malloc ( strlen ( text ) + 1 );
  150.       strcpy ( lines[num_lines++], text );
  151.     }
  152.     fclose ( fp );
  153.     lines = realloc ( lines, ( num_lines + 1 ) * sizeof ( char * ) );
  154.     lines[num_lines++] = NULL;
  155.     ret = IFontBDFReadData ( name, lines );
  156.     for ( loop = 0; lines[loop]; loop++ )
  157.       free ( lines[loop] );
  158.     free ( lines );
  159.     return ( ret );
  160.   }
  161.   else {
  162.    fprintf ( stderr, "Cannot find font file: %sn", path );
  163.    return ( INoSuchFile );
  164.   }
  165. }
  168. IError IFontBDFReadData ( name, lines )
  169. char *name;
  170. char **lines;
  171. {
  172.   char ch[256], *text;
  173.   int temp;
  174.   int in_bitmap = 0, hexval;
  175.   int loop, which_char, which_bit;
  176.   int num_ret;
  177.   char c;
  178.   Font *font;
  179.   Char *character;
  180.   int xpos, ypos;
  181.   static int first = 1;
  182.   int line_no = 0;
  184.   /* Initialize a few things the first time this is called */
  185.   if ( first ) {
  186.     first = 0;
  187.     memset ( trans_table, '', sizeof ( trans_table ) );
  188.     for ( loop = 0; translation[loop].name; loop++ ) {
  189.       trans_table[translation[loop].value] = translation[loop].name;
  190.     }
  191.   }
  193.   font = (Font *) malloc ( sizeof ( Font ) );
  194.   memset ( font, '', sizeof ( Font ) );
  195.   font->name = (char *) malloc ( strlen ( name ) + 1 );
  196.   strcpy ( font->name, name );
  197.   memset ( font->chars, '', sizeof ( font->chars ) );
  198.   font->other_chars = malloc ( 4 );
  200.   while ( lines[line_no] ) {
  201.     text = lines[line_no];
  202.     if ( strncmp ( text, "STARTCHAR", 9 ) == 0 ) {
  203.       strcpy ( ch, text + 10 );
  204.       for ( loop = 0; translation[loop].name; loop++ ) {
  205.         if ( strcmp ( translation[loop].name, ch ) == 0 ) {
  206.           ch[0] = translation[loop].value;
  207.           ch[1] = '';
  208.           break;
  209.         }
  210.       }
  211.       in_bitmap = 0;
  212.       character = (Char *) malloc ( sizeof ( Char ) );
  213.       memset ( character, '', sizeof ( Char ) );
  214.       num_ret = 1;
  215.       character->name = (char *) malloc ( strlen ( ch ) + 1 );
  216.       strcpy ( character->name, ch );
  217.     }
  218.     else if ( strncmp ( text, "ENCODING", 8 ) == 0 ) {
  219.       temp = atoi ( text + 9 );
  220.       if ( temp > 0 && temp < 256 && character != NULL ) {
  221.         sprintf ( ch, "%c", temp );
  222.         strcpy ( character->name, ch );
  223.       }
  224.     }
  225.     else if ( strncmp ( text, "PIXEL_SIZE", 10 ) == 0 ) {
  226.       font->pixel_size = atoi ( text + 11 );
  227.     }
  228.     else if ( strncmp ( text, "FONT_ASCENT", 11 ) == 0 ) {
  229.       font->font_ascent = atoi ( text + 12 );
  230.     }
  231.     else if ( strncmp ( text, "FONT_DESCENT", 12 ) == 0 ) {
  232.       font->font_descent = atoi ( text + 13 );
  233.     }
  234.     else if ( strncmp ( text, "SPACING", 7 ) == 0 ) {
  235.       if ( strncmp ( text + 8, ""P"", 3 ) == 0 )
  236.         font->proportional = TRUE;
  237.       else
  238.         font->proportional = FALSE;
  239.     }
  240.     else if ( strncmp ( text, "FACE_NAME", 9 ) == 0 ) {
  241.       font->face_name = (char *) malloc ( strlen ( text + 10 ) + 1 );
  242.       strcpy ( font->face_name, text + 10 );
  243.     }
  244.     else if ( strncmp ( text, "SETWIDTH_NAME", 13 ) == 0 ) {
  245.       font->width_name = (char *) malloc ( strlen ( text + 14 ) + 1 );
  246.       strcpy ( font->width_name, text + 14 );
  247.     }
  248.     else if ( strncmp ( text, "BBX", 3 ) == 0 ) {
  249.       sscanf ( text, "BBX %d %d %d %d", &character->width, &character->height,
  250.         &character->xoffset, &character->yoffset );
  251.       /* use the width and height to allocate space for the data */
  252.       character->data = (unsigned int *) calloc ( character->height * character->width,
  253.         sizeof ( int ) );
  254.     }
  255.     else if ( strncmp ( text, "DWIDTH", 6 ) == 0 ) {
  256.       sscanf ( text, "DWIDTH %d %d", &character->actual_width, &temp );
  257.     }
  258.     else if ( strcmp ( text, "BITMAP" ) == 0 ) {
  259. /*
  260.       if ( character->width <= 0 || character->height <= 0 ) {
  261.         fprintf ( stderr, "BBX line not found. (line %d)n", line_no + 1 );
  262.         return ( IFontError );
  263.       }
  264. */
  265.       in_bitmap = 1;
  266.       xpos = ypos = 0;
  267.     } else if ( strcmp ( text, "ENDCHAR" ) == 0 ) {
  268.       if ( in_bitmap ) {
  269.         in_bitmap = 0;
  270.         if ( ! character ) {
  271.           return ( IFontError );
  272.         }
  273.         if ( strlen ( character->name ) == 1 )
  274.           font->chars[(unsigned char)character->name[0]] = character;
  275.         else {
  276.           font->other_chars = (Char **) realloc ( font->other_chars,
  277.             ( font->num_other_chars + 1 ) * sizeof ( Char * ) );
  278.           font->other_chars[font->num_other_chars++] = character;
  279.         }
  280.       }
  281. /*
  282.       for ( loop = 0; loop < character->width * character->height; loop++ ) {
  283.         if ( character->data[loop] )
  284.           printf ( "+" );
  285.         else
  286.           printf ( "-" );
  287.       }
  288.       printf ( "n-------------------n" );
  289. */
  290.     } else if ( in_bitmap ) {
  291.       xpos = 0;
  292.       for ( loop = 0; loop < character->width; loop++ ) {
  293.         which_char = loop / 4;
  294.         c = text[which_char];
  295.         if ( isdigit ( c ) )
  296.           hexval = (int) ( c - '0' );
  297.         else
  298.           hexval = (int) ( c - 'A' ) + 10;
  299.         which_bit = 3 - ( loop % 4 );
  300.         if ( hexval & ( 1 << which_bit ) ) {
  301.           character->data[ypos * character->width + xpos] = 1;
  302.           /*printf ( "X" );*/
  303.         }
  304.         else {
  305.           character->data[ypos * character->width + xpos] = 0;
  306.           /*printf ( " " );*/
  307.         }
  308.         xpos++;
  309.       }
  310.       ypos++;
  311.       /*printf ( "n" );*/
  312.     }
  313.     line_no++;
  314.   }
  316.   /* Now add this font to the tree of loaded fonts */
  317.   if ( ! fonts )
  318.      fonts = (Font **) malloc ( sizeof ( Font * ) );
  319.   else
  320.     fonts = (Font **) realloc ( fonts, 
  321.     ( num_fonts + 1 ) * sizeof ( Font * ) );
  322.   fonts[num_fonts++] = font;
  324.   /* return success */
  325.   return ( INoError );
  326. }
  328. Font *_IGetFont ( name )
  329. char *name;
  330. {
  331.   int loop;
  333.   if ( num_fonts ) {
  334.     for ( loop = 0; loop < num_fonts; loop++ ) {
  335.       if ( fonts[loop] ) {
  336.         if ( strcmp ( fonts[loop]->name, name ) == 0 )
  337.           return ( (Font *)fonts[loop] );
  338.       }
  339.     }
  340.   }
  342.   return ( NULL );
  343. }
  346. static void free_character ( ch )
  347. Char *ch;
  348. {
  349.   free ( ch->name );
  350.   free ( ch->data );
  351.   free ( ch );
  352. }
  355. IError IFontBDFFree ( name )
  356. char *name;
  357. {
  358.   Font *font;
  359.   unsigned int loop;
  361.   font = _IGetFont ( name );
  362.   if ( ! font )
  363.     return ( INoSuchFont );
  365.   for ( loop = 0; loop < 256; loop++ ) {
  366.     if ( font->chars[loop] )
  367.       free_character ( font->chars[loop] );
  368.   }
  369.   for ( loop = 0; loop < font->num_other_chars; loop++ ) {
  370.     free_character ( font->other_chars[loop] );
  371.   }
  372.   free ( font->other_chars );
  374.   if ( font->name )
  375.     free ( font->name );
  376.   if ( font->family )
  377.     free ( font->family );
  378.   if ( font->face_name )
  379.     free ( font->face_name );
  380.   if ( font->width_name )
  381.     free ( font->width_name );
  382.   if ( font->weight )
  383.     free ( font->weight );
  384.   free ( font );
  386.   return ( INoError );
  387. }
  389. IError _IFontBDFGetSize ( name, height_return )
  390. char *name;
  391. unsigned int *height_return;
  392. {
  393.   Font *font;
  395.   font = _IGetFont ( name );
  396.   if ( ! font )
  397.     return ( INoSuchFont );
  399.   *height_return = font->pixel_size;
  401.   return ( INoError );
  402. }
  406. IError IFontBDFGetChar ( name, ch, bitdata, width, height,
  407.   actual_width, size, xoffset, yoffset )
  408. char *name;
  409. char *ch;
  410. unsigned int **bitdata;
  411. unsigned int *height;
  412. unsigned int *width;
  413. unsigned int *actual_width;
  414. unsigned int *size;
  415. int *xoffset;
  416. int *yoffset;
  417. {
  418.   Font *font;
  419.   Char *character = NULL;
  420.   unsigned int loop;
  421.   static char *last_name = NULL;
  422.   static Font *last_font = NULL;
  424.   if ( ! ch || ! strlen ( ch ) )
  425.     return ( IInvalidArgument );
  427.   if ( last_name == name ) {
  428.     font = last_font;
  429.   }
  430.   else {
  431.     font = _IGetFont ( name );
  432.     if ( ! font )
  433.       return ( INoSuchFont );
  434.     last_name = name;
  435.     last_font = font;
  436.   }
  438.   /* we got the font.  now get the character */
  439.   if ( strlen ( ch ) == 1 ) {
  440.     character = font->chars[(unsigned char)ch[0]];
  441.   }
  442.   /* if more than a single char, must not be in the ascii list */
  443.   else {
  444.     for ( loop = 0, character = NULL; loop < font->num_other_chars; loop++ ) {
  445.       if ( strcmp ( ch, font->other_chars[loop]->name ) == 0 ) {
  446.         character = font->other_chars[loop];
  447.         break;
  448.       }
  449.     }
  450.     if ( ! character )
  451.       character = font->chars[' '];
  452.   }
  453.   /* if still not there, use space */
  454.   if ( ! character ) {
  455.     /* This should not happen if font is defined correctly */
  456.     return ( IFontError );
  457.   }
  458.   
  459.   *height = character->height;
  460.   *width = character->width;
  461.   *actual_width = character->actual_width;
  462.   *size = font->pixel_size;
  463.   *xoffset = character->xoffset;
  464.   *yoffset = character->yoffset;
  465.   *bitdata = character->data;
  467.   return ( INoError );
  468. }