apple2ix/src/genfont.c

136 lines
2.7 KiB
C
Raw Normal View History

/*
* Apple // emulator for Linux: Font compiler
*
* Copyright 1994 Alexander Jean-Claude Bottema
* Copyright 1995 Stephen Lee
* Copyright 1997, 1998 Aaron Culliney
* Copyright 1998, 1999, 2000 Michael Deutschmann
*
* This software package is subject to the GNU General Public License
* version 2 or later (your choice) as published by the Free Software
* Foundation.
*
* THERE ARE NO WARRANTIES WHATSOEVER.
*
*/
#define _GNU_SOURCE
/* I'm not sure if this is the correct way to detect libc 5/4. I long
* since removed it from my system.
*/
#ifdef __GLIBC__
#if __GLIBC__ == 1
/* Older Linux C libraries had getline removed (to humor programs that
* used that name for their own functions), but kept getdelim */
#define getline(l,s,f) getdelim(l,s,'\n',f)
#endif /* __GLIBC__ == 1 */
#endif /* __GLIBC__ */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
int main(void)
{
unsigned char byte;
char *line = 0;
size_t line_size = 0;
2013-06-19 07:07:41 +00:00
int i,mx=0;
printf("/* Apple II text font data\n"
" *\n"
" * THIS FILE IS AUTOMATICALLY GENERATED --- DO NOT EDIT\n"
" */\n");
i = 0x100;
while (getline(&line,&line_size,stdin) != -1)
{
if (line[0] == ';')
{
continue;
}
if (line[0] == '=')
{
char *name,*size;
name = line + 1;
while (isspace(*name))
{
name++;
}
size = strchr(name,',');
*size++ = 0;
mx = i = strtol(size,0,0);
printf("\nconst unsigned char %s[%d] =\n{\n ",name,i*8);
continue;
}
i--;
if (line[0] == ':')
{
int j = 8;
while (j--)
{
int k;
if (getline(&line,&line_size,stdin) == -1)
{
2013-06-19 07:07:41 +00:00
// ERROR ...
}
k = 8;
byte = 0;
while (k--)
{
byte <<= 1;
byte += (line[k] == '#');
}
if (j)
{
printf("0x%02x, ",byte);
}
else if (i)
{
printf("0x%02x,\n ",byte); /* last byte in glyph */
}
else
{
printf("0x%02x\n};\n",byte); /* last item in array */
}
}
}
else
{
break;
}
}
if (i)
{
fprintf(stderr,
"Trouble with font file at character 0x%02x\n",
mx-i-1);
exit(EXIT_FAILURE);
}
exit(EXIT_SUCCESS);
}