1 files changed, 23 insertions, 0 deletions
diff --git a/src/pathfinding.ads b/src/pathfinding.ads
new file mode 100644
index 0000000..624c5d6
--- /dev/null
+++ b/src/pathfinding.ads
@@ -0,0 +1,23 @@
+
+
+with
+
+    Grids,
+    Moves;
+
+
+package Pathfinding is
+
+
+    --  Result path will get as close to the finish coordinates
+    --  as possible without pushing anything or going out of bounds.
+    function A_Star
+           (My_Grid : in Grids.Grid;
+            SX, SY  : in Integer;
+            FX, FY  : in Integer)
+        return Moves.Path
+        with Pre => My_Grid.In_Bounds (SX, SY);
+
+
+end Pathfinding;
+