From 967be9e750221ab2ab783f95df79bb26d290a45e Mon Sep 17 00:00:00 2001
From: Martial Simon <msimon_fr@hotmail.com>
Date: Mon, 15 Sep 2025 01:07:58 +0200
Subject: add: added projects

---
 tiger-compiler/src/escapes/tasks.cc | 38 +++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 tiger-compiler/src/escapes/tasks.cc

(limited to 'tiger-compiler/src/escapes/tasks.cc')

diff --git a/tiger-compiler/src/escapes/tasks.cc b/tiger-compiler/src/escapes/tasks.cc
new file mode 100644
index 0000000..42e6919
--- /dev/null
+++ b/tiger-compiler/src/escapes/tasks.cc
@@ -0,0 +1,38 @@
+/**
+ ** \file escapes/tasks.cc
+ ** \brief Escapes module related tasks' implementation.
+ */
+
+#include <ostream>
+
+#include <ast/libast.hh>
+#include <ast/tasks.hh>
+#include <escapes/libescapes.hh>
+#define DEFINE_TASKS 1
+#include <escapes/tasks.hh>
+#undef DEFINE_TASKS
+#include <misc/xalloc.hh>
+
+namespace escapes::tasks
+{
+
+  /*--------------------.
+    | Static Link tasks.  |
+    `--------------------*/
+
+  void escapes_compute() { escapes::escapes_compute(*ast::tasks::the_program); }
+
+  /* WARNING.  It is very tempting to use BOOLEAN_TASK_DECLARE with
+     these stream flags, since it factors out the need for the
+     following routines.  Unfortunately when the Tasks are created,
+     not all the misc::xalloc are instantiated, so the registered
+     address of these flags is likely to change if there are other
+     xalloc in between.  It is the index that is constant, not the
+     address of the pword.
+
+     Of course we could have Tasks dedicated to misc::xalloc, but
+     that's not nice.  */
+
+  void escapes_display() { ast::escapes_display(std::cout) = true; }
+
+} // namespace escapes::tasks
-- 
cgit v1.2.3