From 49ce64ee1e086df3b84ebd60507f3b3547a5bf0e Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 16 Dec 2025 18:48:36 +1300
Subject: Can now output the basic structural DAG of a World in DOT format

---
 src/kompsos.adb | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'src/kompsos.adb')

diff --git a/src/kompsos.adb b/src/kompsos.adb
index e525f23..1fedb86 100644
--- a/src/kompsos.adb
+++ b/src/kompsos.adb
@@ -9,7 +9,9 @@
 with
 
     Ada.Unchecked_Deallocation,
-    Kompsos.Collector;
+    Kompsos.Collector,
+    System.Address_To_Access_Conversions,
+    System.Storage_Elements;
 
 
 package body Kompsos is
@@ -191,6 +193,20 @@ package body Kompsos is
 
     --  Worlds  --
 
+    package World_Convert is new System.Address_To_Access_Conversions (World_Component);
+
+    function "<"
+           (Left, Right : in World_Component_Access)
+        return Boolean
+    is
+        use System.Storage_Elements;
+    begin
+        return
+            To_Integer (World_Convert.To_Address (World_Convert.Object_Pointer (Left))) <
+            To_Integer (World_Convert.To_Address (World_Convert.Object_Pointer (Right)));
+    end "<";
+
+
     function Static
            (Item : in State)
         return World'Class
-- 
cgit