136 lines
2.7 KiB
C
136 lines
2.7 KiB
C
/*
|
|
* 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;
|
|
|
|
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)
|
|
{
|
|
// 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);
|
|
|
|
}
|
|
|