flipper_cyrillic_example/font/bdfconv/bdf_parser.c
2023-05-02 21:01:20 +03:00

479 lines
9.5 KiB
C

#include <assert.h>
#include <stdlib.h>
#include <string.h>
#include "bdf_font.h"
static int bf_curr(bf_t * bf)
{
if ( bf->line_pos >= BDF_LINE_LEN )
return '\0';
return bf->line_buf[bf->line_pos];
}
static void bf_next(bf_t *bf)
{
if ( bf_curr(bf) == '\0' )
return;
if ( bf->line_pos >= BDF_LINE_LEN )
return;
bf->line_pos++;
}
static void bf_skipspace(bf_t *bf)
{
int c;
for(;;)
{
c = bf_curr(bf);
if ( c == '\0' )
return;
if ( c > ' ' )
return;
bf_next(bf);
}
}
static const char *bf_get_identifier(bf_t *bf)
{
static char buf[BDF_LINE_LEN];
int c;
int i = 0;
buf[0] = '\0';
for(;;)
{
c = bf_curr(bf);
if ( c <= ' ' )
break;
if ( i >= BDF_LINE_LEN-2 )
break;
buf[i++] = c;
buf[i] = '\0';
bf_next(bf);
}
bf_skipspace(bf);
return buf;
}
static const char *bf_get_string(bf_t *bf)
{
static char buf[BDF_LINE_LEN];
int i = 0;
int c;
buf[0] = '\0';
if ( bf_curr(bf) != '\"' )
return bf_get_identifier(bf);
bf_next(bf);
for(;;)
{
c = bf_curr(bf);
if ( c == '\0' )
break;
if ( c == '\"' )
break;
if ( i >= BDF_LINE_LEN-2 )
break;
if ( c != '\r' && c != '\n' ) /* skip \r and \n, see https://github.com/olikraus/u8g2/pull/1361, https://github.com/olikraus/u8g2/issues/1379 */
{
buf[i++] = c;
buf[i] = '\0';
}
bf_next(bf);
}
if ( bf_curr(bf) == '\"' )
bf_next(bf);
bf_skipspace(bf);
return buf;
}
static const char *bf_get_eol_string(bf_t *bf)
{
static char buf[BDF_LINE_LEN];
int i = 0;
int c;
buf[0] = '\0';
if ( bf_curr(bf) == '\"' )
return bf_get_string(bf);
//bf_next(bf);
for(;;)
{
c = bf_curr(bf);
if ( c == '\0' )
break;
if ( c == '\n' || c == '\r' )
break;
if ( i >= BDF_LINE_LEN-2 )
break;
buf[i++] = c;
buf[i] = '\0';
bf_next(bf);
}
bf_skipspace(bf);
return buf;
}
static long bf_get_long(bf_t *bf)
{
int c;
long v = 0;
long sign = 1;
if ( bf_curr(bf) == '-' )
{
sign = -1;
bf_next(bf);
bf_skipspace(bf);
}
for(;;)
{
c = bf_curr(bf);
if ( c < '0' )
break;
if ( c > '9' )
break;
v *= 10L;
v += (long)(c-'0');
bf_next(bf);
}
bf_skipspace(bf);
return v*sign;
}
/*
static long bf_get_mul(bf_t *bf)
{
long v;
v = bf_get_long(bf);
if ( bf_curr(bf) == '*' )
{
bf_next(bf);
bf_skipspace(bf);
v *= bf_get_long(bf);
}
return v;
}
static long bf_get_add(bf_t *bf)
{
long v;
v = bf_get_mul(bf);
if ( bf_curr(bf) == '+' )
{
bf_next(bf);
bf_skipspace(bf);
v += bf_get_mul(bf);
}
return v;
}
*/
static int bf_add_glyph_to_list(bf_t *bf)
{
bg_t *bg;
bf->glyph_pos = bf_AddGlyph(bf);
if ( bf->glyph_pos < 0 )
{
bf_Error(bf, "Can not add glyph (memory error?)");
return 0;
}
bg = bf->glyph_list[bf->glyph_pos];
/* copy the values from the parser to the glyph record */
bg->encoding = bf->encoding;
bg->dwidth_x = bf->dwidth_x;
bg->dwidth_y = bf->dwidth_y;
bg->bbx.w = bf->bbx_w;
bg->bbx.h = bf->bbx_h;
bg->bbx.x = bf->bbx_x;
bg->bbx.y = bf->bbx_y;
if ( bg_SetBitmapSize(bg, bf->bbx_w, bf->bbx_h) == 0 )
{
bf_Error(bf, "Can not create bitmap (memory error?)");
return 0;
}
bg->bitmap_width = bf->bbx_w;
bg->bitmap_height = bf->bbx_h;
// bg->actual_bitmap_width = bf->bbx_w;
// bg->actual_bitmap_height = bf->bbx_h;
//bf_Log(bf, "BDF File: Create glyph glyph_pos=%d bbx_w=%d bbx_h=%d bbx_x=%d bbx_y=%d", bf->glyph_pos, bf->bbx_w, bf->bbx_h, bf->bbx_x, bf->bbx_y);
return 1;
}
static void bf_set_pixel_by_halfbyte(bf_t *bf, int halfbyte)
{
int i;
bg_t *bg;
assert( bf->glyph_list != NULL );
bg = bf->glyph_list[bf->glyph_pos];
for ( i = 0; i < 4; i++ )
{
if ( (halfbyte & 8) != 0 )
{
bg_SetBitmapPixel(bg, bf->bitmap_x, bf->bitmap_y, 1);
}
halfbyte<<=1;
bf->bitmap_x++;
}
}
static void bf_set_pixel_by_hex_char(bf_t *bf, int hex)
{
if ( hex >= '0' && hex <= '9' )
return bf_set_pixel_by_halfbyte(bf, hex-'0');
if ( hex >= 'a' && hex <= 'f' )
return bf_set_pixel_by_halfbyte(bf, hex-'a'+10);
if ( hex >= 'A' && hex <= 'F' )
return bf_set_pixel_by_halfbyte(bf, hex-'A'+10);
return bf_set_pixel_by_halfbyte(bf, 0);
}
static int bf_parse_line(bf_t *bf)
{
static char cmd[BDF_LINE_LEN];
bf->line_pos = 0;
bf_skipspace(bf);
if ( bf->is_bitmap_parsing == 0 )
{
/* regular command */
bf->bitmap_y = 0;
strcpy(cmd, bf_get_string(bf));
if ( strcmp(cmd, "" ) == 0 )
{
return 1;
}
else if ( strcmp(cmd, "STARTFONT" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "FONT" ) == 0 ) /* args: s */
{
if ( bf->str_font != NULL )
free(bf->str_font);
bf->str_font = strdup(bf_get_eol_string(bf));
}
else if ( strcmp(cmd, "SIZE" ) == 0 ) /* args: lll */
{
}
else if ( strcmp(cmd, "FONTBOUNDINGBOX" ) == 0 ) /* args: llll */
{
}
else if ( strcmp(cmd, "STARTPROPERTIES" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "FONTNAME_REGISTRY" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "FOUNDRY" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "FAMILY_NAME" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "WEIGHT_NAME" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "SLANT" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "SETWIDTH_NAME" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "ADD_STYLE_NAME" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "PIXEL_SIZE" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "POINT_SIZE" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "RESOLUTION_X" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "RESOLUTION_Y" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "SPACING" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "AVERAGE_WIDTH" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "CHARSET_REGISTRY" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "CHARSET_ENCODING" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "DESTINATION" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "COPYRIGHT" ) == 0 ) /* args: s */
{
if ( bf->str_copyright != NULL )
free(bf->str_copyright);
bf->str_copyright = strdup(bf_get_eol_string(bf));
}
else if ( strcmp(cmd, "_XMBDFED_INFO" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "CAP_HEIGHT" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "X_HEIGHT" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "WEIGHT" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "QUAD_WIDTH" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "DEFAULT_CHAR" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "FONT_DESCENT" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "FONT_ASCENT" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "ENDPROPERTIES" ) == 0 ) /* args: - */
{
}
else if ( strcmp(cmd, "CHARS" ) == 0 ) /* args: l */
{
}
else if ( strcmp(cmd, "STARTCHAR" ) == 0 ) /* args: s */
{
}
else if ( strcmp(cmd, "ENCODING" ) == 0 ) /* args: l */
{
bf->encoding = bf_get_long(bf);
//bf_Log(bf, "BDF File: ENCODING %d", bf->encoding);
}
else if ( strcmp(cmd, "SWIDTH" ) == 0 ) /* args: ll */
{
}
else if ( strcmp(cmd, "DWIDTH" ) == 0 ) /* args: ll */
{
bf->dwidth_x = bf_get_long(bf);
bf->dwidth_y = bf_get_long(bf);
}
else if ( strcmp(cmd, "BBX" ) == 0 ) /* args: llll */
{
bf->bbx_w = bf_get_long(bf);
bf->bbx_h = bf_get_long(bf);
bf->bbx_x = bf_get_long(bf);
bf->bbx_y = bf_get_long(bf);
}
else if ( strcmp(cmd, "BITMAP" ) == 0 ) /* args: - */
{
if ( bf_add_glyph_to_list(bf) == 0 )
return 0;
bf->is_bitmap_parsing = 1;
}
else if ( strcmp(cmd, "ENDCHAR" ) == 0 ) /* args: - */
{
bf_Error(bf, "Unexpected ENDCHAR found");
return 0;
}
}
else
{
/* a line of the glyph bitmap */
int c;
strcpy(cmd, bf_get_string(bf));
if ( cmd[0] != '\0' )
{
if ( strcmp(cmd, "ENDCHAR" ) == 0 ) /* args: - */
{
bf->is_bitmap_parsing = 0;
/* bg_ShowBitmap(bf->glyph_list[bf->glyph_pos]); */
}
else
{
bf->line_pos = 0;
bf_skipspace(bf);
bf->bitmap_x = 0;
for(;;)
{
c = bf_curr(bf);
if ( c < '0' )
break;
bf_set_pixel_by_hex_char(bf, c);
bf_next(bf);
}
bf->bitmap_y++;
}
}
}
return 1;
}
static int bf_parse_file(bf_t *bf)
{
long line_cnt = 0;
bf->is_bitmap_parsing = 0;
for(;;)
{
line_cnt++;
if ( fgets(bf->line_buf, BDF_LINE_LEN, bf->fp) == NULL )
break;
if ( bf_parse_line(bf) == 0 )
{
bf_Error(bf, "perse error in line %ld", line_cnt);
return 0;
}
}
return 1;
}
int bf_ParseFile(bf_t *bf, const char *name)
{
int r;
bf->fp = fopen(name, "r");
if ( bf->fp == NULL )
{
bf_Error(bf, "Can not open bdf file '%s'", name);
return 0;
}
r = bf_parse_file(bf);
fclose(bf->fp);
bf_Log(bf, "Parse File %s: %d glyph(s) found", name, bf->glyph_cnt);
return r;
}