Create read module

lib/CMakeLists.txt

@@ -7,6 +7,7 @@ add_library(imp
   parse.c
   prim.c
   print.c
+  read.c
   store.c
   token.c
 )

lib/include/read.h

@@ -0,0 +1,9 @@
+#ifndef READ_H
+#define READ_H
+
+#include "am.h"
+#include "stream.h"
+
+void read(am_t *am, stream_t *stream);
+
+#endif

lib/read.c

@@ -0,0 +1,22 @@
+#include "read.h"
+
+#include "parse.h"
+#include "token.h"
+
+#include <assert.h>
+
+void read(am_t *am, stream_t *stream)
+{
+	parse_ctx_t ctx;
+	token_t token;
+
+	parse_init(am, &ctx);
+
+	while (ctx.state != PARSE_STATE_DONE) {
+		const token_status_t token_status = token_read(stream, &token);
+		assert(token_status == TOKEN_OK);
+
+		parse_proc(&ctx, &token);
+		assert(ctx.state != PARSE_STATE_ERROR);
+	}
+}