Converter for AppleWorks word processor files

awp.c

@@ -0,0 +1,129 @@
+#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);
+}