Fleshed out [source:]

src/interpret.c

@@ -1,4 +1,3 @@
-#include "interpret.h"
 #include "lex.h"
 #include <unistd.h> /* chdir (POSIX) */
 #include <sys/types.h> /* mode_t (POSIX) */
@@ -24,11 +23,45 @@ static int int_cmp(const int *const a, const int *const b)
 static int void_int_cmp(const void *const a, const void *const b)
 	{ return int_cmp(a, b); }
 
+#define ARRAY_NAME char
+#define ARRAY_TYPE char
+#include "array.h"
+/** Append a text file, `fn`, to `c`, and add a '\0'.
+ @return Success. A partial read is failure. @throws[fopen, fread, malloc]
+ @throws[EISEQ] The text file has embedded nulls.
+ @throws[ERANGE] If the standard library does not follow POSIX. */
+static int append_file(struct char_array *c, const char *const fn) {
+	FILE *fp = 0;
+	const size_t granularity = 1024;
+	size_t nread;
+	char *cursor;
+	int success = 0;
+	assert(c && fn);
+	if(!(fp = fopen(fn, "r"))) goto catch;
+	/* Read entire file in chunks. */
+	do if(!(cursor = char_array_buffer(c, granularity))
+		|| (nread = fread(cursor, 1, granularity, fp), ferror(fp))
+		|| !char_array_append(c, nread)) goto catch;
+	while(nread == granularity);
+	/* File to `C` string. */
+	if(!(cursor = char_array_new(c))) goto catch;
+	*cursor = '\0';
+	/* Binary files with embedded '\0' are not allowed. */
+	if(strchr(c->data, '\0') != cursor) { errno = EILSEQ; goto catch; }
+	{ success = 1; goto finally; }
+catch:
+	if(!errno) errno = EILSEQ; /* Will never be true on POSIX. */
+finally:
+	if(fp && fclose(fp)) success = 0;
+	return success;
+}
+
 int main(int argc, char **argv) {
 	int success = EXIT_FAILURE;
 	DIR *dir = 0;
 	struct dirent *de;
 	struct int_array years = ARRAY_IDLE, months = ARRAY_IDLE, days = ARRAY_IDLE;
+	struct char_array entry = ARRAY_IDLE;
 	int *y, *y_end;
 
 	/* Get the years list as directories matching a year in order. */
@@ -39,7 +72,7 @@ int main(int argc, char **argv) {
 	while((de = readdir(dir))) {
 		struct stat st;
 		int year, *p;
-		if(!looks_like_year(de->d_name, &year)) continue;
+		if(!lex_looks_like_year(de->d_name, &year)) continue;
 		if(stat(de->d_name, &st)) goto catch;
 		if(!S_ISDIR(st.st_mode)) continue;
 		if(!(p = int_array_new(&years))) goto catch;
@@ -60,7 +93,7 @@ int main(int argc, char **argv) {
 		while((de = readdir(dir))) {
 			struct stat st;
 			int month, *p;
-			if(!(month = looks_like_month(de->d_name))) continue;
+			if(!(month = lex_looks_like_month(de->d_name))) continue;
 			if(stat(de->d_name, &st)) goto catch;
 			if(!S_ISDIR(st.st_mode)) continue;
 			if(!(p = int_array_new(&months))) goto catch;
@@ -81,7 +114,7 @@ int main(int argc, char **argv) {
 				struct stat st;
 				int day, *p;
 				/* fixme: Have yyyy-mm-dd to figure out how many days. */
-				if(!(day = looks_like_day(de->d_name))) continue;
+				if(!(day = lex_looks_like_day(de->d_name))) continue;
 				if(stat(de->d_name, &st)) goto catch;
 				if(S_ISDIR(st.st_mode)) continue;
 				if(!(p = int_array_new(&days))) goto catch;
@@ -92,21 +125,41 @@ int main(int argc, char **argv) {
 			fprintf(stderr, "%s: %s.\n", temp, int_array_to_string(&days));
 
 			for(d = days.data, d_end = d + days.size; d < d_end; d++) {
+				struct lex lex;
 				printf("%d-%.2d-%.2d\n", *y, *m, *d);
+				sprintf(temp, "%.2d.txt", *d);
+				if(!append_file(&entry, temp)) goto catch;
+				printf("%s", entry.data);
+				printf("Lexing:\n");
+				lex_reset(entry.data);
+				while(lex_next(&lex)) {
+					printf("%lu: %s",
+						(unsigned long)lex.line, lex_symbols[lex.symbol]);
+					if(lex.symbol == TEXT) {
+						if(lex.s0 + INT_MAX < lex.s1)
+							{ errno = EILSEQ; goto catch; }
+						printf(" %.*s", (int)(lex.s1 - lex.s0), lex.s0);
+					}
+					printf(".\n");
+				}
+				char_array_clear(&entry);
+				break; /* fixme */
 			}
 
 			int_array_clear(&days);
 			if(chdir("..") == -1) goto catch;
+			break; /* fixme */
 		}
 
 		int_array_clear(&months);
 		if(chdir("..") == -1) goto catch;
+		break; /* fixme */
 	}
 	{ success = EXIT_SUCCESS; goto finally; }
 catch:
 	perror("interpret");
 finally:
-	if(dir) closedir(dir);
+	if(dir && closedir(dir)) success = EXIT_FAILURE, perror("dir");
 	int_array_(&years);
 	int_array_(&months);
 	return EXIT_FAILURE;