forth-cpu

1
/**@brief Turn a text file into a Forth block file */
2

3
#include <stdio.h>
4
#include <string.h>
5

6
int main(void)
7
{
8
	size_t i;
9
	char line[80] = { 0 };
10

11
	memset(line, ' ', 64);
12
	for(i = 0;fgets(line, 66, stdin); memset(line, ' ', 64), i++) {
13
		if(strlen(line) > 65) {
14
			fprintf(stderr, "line %u too long:\n\t%s\n", (unsigned)i, line);
15
			return -1;
16
		}
17
		line[strlen(line)-1] = ' ';
18
		line[strlen(line)+0] = ' ';
19
		line[strlen(line)+1] = ' ';
20
		fprintf(stdout, "%.64s", line);
21
	}
22

23
	return 0;
24
}
25