1 files changed, 26 insertions, 0 deletions
diff --git a/tiger-compiler/src/astclone/tasks.cc b/tiger-compiler/src/astclone/tasks.cc
new file mode 100644
index 0000000..ae6d973
--- /dev/null
+++ b/tiger-compiler/src/astclone/tasks.cc
@@ -0,0 +1,26 @@
+/**
+ ** \file astclone/tasks.cc
+ ** \brief Astclone module related tasks' implementation.
+ **/
+
+#include <ast/tasks.hh>
+
+#include <astclone/libastclone.hh>
+#define DEFINE_TASKS 1
+#include <astclone/tasks.hh>
+#undef DEFINE_TASKS
+
+#include <common.hh>
+
+namespace astclone::tasks
+{
+  void clone()
+  {
+    ast::ChunkList* ds = ::astclone::clone(*ast::tasks::the_program);
+    if (!ds)
+      task_error() << misc::error::error_type::failure << "Cloning Failed\n"
+                   << &misc::error::exit;
+    ast::tasks::the_program.reset(ds);
+  }
+
+} // namespace astclone::tasks