Subversion Repositories forth-cpu

/**@brief Turn a text file into a Forth block file */
 
#include <stdio.h>
#include <string.h>
 
int main(void)
{
	size_t i;
	char line[80] = { 0 };
 
	memset(line, ' ', 64);
	for(i = 0;fgets(line, 66, stdin); memset(line, ' ', 64), i++) {
		if(strlen(line) > 65) {
			fprintf(stderr, "line %u too long:\n\t%s\n", (unsigned)i, line);
			return -1;
		}
		line[strlen(line)-1] = ' ';
		line[strlen(line)+0] = ' ';
		line[strlen(line)+1] = ' ';
		fprintf(stdout, "%.64s", line);
	}
 
	return 0;
}