Add output and fix two bugs.

04/ast.hpp

@@ -7,6 +7,7 @@
 struct ast {
     virtual ~ast() = default;
 
+    virtual void print(int indent, std::ostream& to) const = 0;
     virtual type_ptr typecheck(type_mgr& mgr, const type_env& env) const = 0;
 };
 
@@ -15,6 +16,7 @@ using ast_ptr = std::unique_ptr<ast>;
 struct pattern {
     virtual ~pattern() = default;
 
+    virtual void print(std::ostream& to) const = 0;
     virtual void match(type_ptr t, type_mgr& mgr, type_env& env) const = 0;
 };
 
@@ -62,6 +64,7 @@ struct ast_int : public ast {
     explicit ast_int(int v)
         : value(v) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -71,6 +74,7 @@ struct ast_lid : public ast {
     explicit ast_lid(std::string i)
         : id(std::move(i)) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -80,6 +84,7 @@ struct ast_uid : public ast {
     explicit ast_uid(std::string i)
         : id(std::move(i)) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -91,6 +96,7 @@ struct ast_binop : public ast {
     ast_binop(binop o, ast_ptr l, ast_ptr r)
         : op(o), left(std::move(l)), right(std::move(r)) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -101,6 +107,7 @@ struct ast_app : public ast {
     ast_app(ast_ptr l, ast_ptr r)
         : left(std::move(l)), right(std::move(r)) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -111,6 +118,7 @@ struct ast_case : public ast {
     ast_case(ast_ptr o, std::vector<branch_ptr> b)
         : of(std::move(o)), branches(std::move(b)) {}
 
+    void print(int indent, std::ostream& to) const;
     type_ptr typecheck(type_mgr& mgr, const type_env& env) const;
 };
 
@@ -120,6 +128,7 @@ struct pattern_var : public pattern {
     pattern_var(std::string v)
         : var(std::move(v)) {}
 
+    void print(std::ostream &to) const;
     void match(type_ptr t, type_mgr& mgr, type_env& env) const;
 };
 
@@ -130,6 +139,7 @@ struct pattern_constr : public pattern {
     pattern_constr(std::string c, std::vector<std::string> p)
         : constr(std::move(c)), params(std::move(p)) {}
 
+    void print(std::ostream &to) const;
     void match(type_ptr t, type_mgr&, type_env& env) const;
 };