diff --git a/src/docs.cpp b/src/docs.cpp
new file mode 100644
index 000000000..a8347b392
--- /dev/null
+++ b/src/docs.cpp
@@ -0,0 +1,72 @@
+// Generates Documentation
+
+gbString expr_to_string(AstNode *expression);
+
+void print_declaration(Parser *parser, AstNode *decl) {
+	switch (decl->kind) {
+	case_ast_node(pd, ProcDecl, decl);
+		GB_ASSERT(pd->name->kind == AstNode_Ident);
+		String name = pd->name->Ident.string;
+		if (name.len == 0) {
+			break;
+		}
+		if (name[0] == '_') {
+			break;
+		}
+
+		for_array(i, pd->docs.list) {
+			String comment = pd->docs.list[i].string;
+			if (comment[1] == '/') {
+				comment.text += 2;
+				comment.len  -= 2;
+			} else if (comment[1] == '*') {
+				comment.text += 2;
+				comment.len  -= 4;
+			}
+			comment = string_trim_whitespace(comment);
+
+			gb_printf("%.*s\n", LIT(comment));
+		}
+
+		ast_node(proc_type, ProcType, pd->type);
+
+		gbString params = expr_to_string(proc_type->params);
+		defer (gb_string_free(params));
+		gb_printf("proc %.*s(%s)", LIT(name), params);
+		if (proc_type->results != NULL)  {
+			ast_node(fl, FieldList, proc_type->results);
+			isize count = fl->list.count;
+			if (count > 0) {
+				gbString results = expr_to_string(proc_type->results);
+				defer (gb_string_free(results));
+				gb_printf(" -> ");
+				if (count != 1) {
+					gb_printf("(");
+				}
+				gb_printf("%s", results);
+				if (count != 1) {
+					gb_printf(")");
+				}
+			}
+		}
+		gb_printf("\n\n");
+	case_end;
+
+	case_ast_node(gd, GenDecl, decl);
+	case_end;
+	}
+}
+
+void generate_documentation(Parser *parser) {
+	for_array(file_index, parser->files) {
+		AstFile *file = &parser->files[file_index];
+		Tokenizer *tokenizer = &file->tokenizer;
+		String fullpath = tokenizer->fullpath;
+		gb_printf("%.*s\n", LIT(fullpath));
+
+		for_array(decl_index, file->decls) {
+			AstNode *decl = file->decls[decl_index];
+			print_declaration(parser, decl);
+		}
+	}
+}