interface for sokoban

diff --git a/code/Sokoban.dcl b/code/Sokoban.dcl
new file mode 100644 (file)
index 0000000..30e9465
--- /dev/null
+++ b/code/Sokoban.dcl
@@ -0,0 +1,9 @@
+definition module Sokoban
+
+:: SokobanPuzzle = {
+       width :: Int,
+       height :: Int,
+       data :: [[SokobanTile]]}
+:: SokobanTile = Wall | Free | Box | Target
+
+parse :: String *World -> (SokobanPuzzle, *World)