mirror of
https://github.com/e-n-f/apple2-converters.git
synced 2024-05-28 17:41:31 +00:00
130 lines
2.4 KiB
C
130 lines
2.4 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <errno.h>
|
|
|
|
char **av;
|
|
|
|
void
|
|
usage (char *s)
|
|
{
|
|
fprintf (stderr, "Usage: %s [file]\n");
|
|
}
|
|
|
|
void
|
|
process (FILE *f, char *name)
|
|
{
|
|
unsigned char header[300];
|
|
unsigned char rec[2];
|
|
|
|
int bold = 0, under = 0, sub = 0, super = 0;
|
|
|
|
if (fread (header, sizeof (unsigned char), 300, f) != 300) {
|
|
fprintf (stderr,
|
|
"%s: %s: could not read word processor header\n",
|
|
av[0], name);
|
|
return;
|
|
}
|
|
|
|
if (header[4] != 79) {
|
|
fprintf (stderr,
|
|
"%s: %s: is not an AppleWorks word processor file\n",
|
|
av[0], name);
|
|
return;
|
|
}
|
|
|
|
while (fread (rec, sizeof (unsigned char), 2, f) == 2) {
|
|
if (rec[1] == 0) {
|
|
unsigned char *line;
|
|
int i;
|
|
|
|
line = malloc (sizeof (unsigned char) * rec[0]);
|
|
if (!line) {
|
|
fprintf (stderr, "%s: %s: out of memory\n",
|
|
av[0], name);
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
if (fread (line, sizeof (unsigned char),
|
|
rec[0], f) != rec[0]) {
|
|
fprintf (stderr, "%s: %s: read error\n",
|
|
av[0], name);
|
|
return;
|
|
}
|
|
|
|
for (i = 0; i < (line[0] & 0x7f); i++)
|
|
printf (" ");
|
|
|
|
for (i = 2; i < (line[1] & 0x7f) + 2; i++) {
|
|
if (line[i] == 1)
|
|
bold = 1;
|
|
else if (line[i] == 2)
|
|
bold = 0;
|
|
else if (line[i] == 3)
|
|
super = 1;
|
|
else if (line[i] == 4)
|
|
super = 0;
|
|
else if (line[i] == 5)
|
|
sub = 1;
|
|
else if (line[i] == 6)
|
|
sub = 0;
|
|
else if (line[i] == 7)
|
|
under = 1;
|
|
else if (line[i] == 8)
|
|
under = 0;
|
|
else if (line[i] == 11)
|
|
printf (" "); /* sticky space */
|
|
else if (line[i] == 0x16)
|
|
printf (" "); /* tab */
|
|
else if (line[i] == 0x17)
|
|
printf (" "); /* tab spacer */
|
|
else if (line[i] >= 32) {
|
|
if (bold)
|
|
printf ("%c\b", line[i]);
|
|
if (under)
|
|
printf ("_\b");
|
|
|
|
printf ("%c", line[i]);
|
|
}
|
|
}
|
|
|
|
free (line);
|
|
printf ("\n");
|
|
} else if (rec[1] = 0xd0) {
|
|
int i;
|
|
|
|
for (i = 0; i < rec[0]; i++)
|
|
printf (" ");
|
|
|
|
printf ("\n");
|
|
|
|
bold = under = super = sub = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
av = argv;
|
|
|
|
if (argc < 2) {
|
|
process (stdin, "standard input");
|
|
} else if (argc == 2) {
|
|
FILE *f = fopen (argv[1], "r");
|
|
|
|
if (f) {
|
|
process (f, argv[1]);
|
|
fclose (f);
|
|
} else {
|
|
fprintf (stderr, "%s: %s: %s\n", argv[0], argv[1],
|
|
strerror (errno));
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
} else {
|
|
usage (argv[0]);
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
return (EXIT_SUCCESS);
|
|
}
|