save grid to custom format

fcore/common-update.sml

@@ -1,8 +1,22 @@
 structure CommonUpdate =
 struct
-  (* unimplemented *)
+  open AppType
-  fun getSaveSquaresMsg model = (model, [])
 
+  open DrawMessage
+  open FileMessage
+  open InputMessage
+  open UpdateMessage
+
+  fun getSaveSquaresMsg (model: app_type) =
+    let
+      val {canvasWidth, canvasHeight, squares, ...} = model
+      val str = CollisionTree.toString (squares, canvasWidth, canvasHeight)
+      val msg = SAVE_SQUARES str
+    in
+      (model, [FILE msg])
+    end
+
+  (* unimplemented *)
   fun getLoadSquaresMsg model = (model, [])
 
   fun getExportSquaresMsg model = (model, [])

fcore/quad-tree.sml

@@ -526,13 +526,19 @@ struct
       item :: acc
     end
 
-  fun toString (squares, size) =
+  fun toString (squares, canvasWidth, canvasHeight) =
     let
+      val size = Int.max (canvasWidth, canvasHeight)
       val qtree = buildTree (0, 0, size, squares)
       val bintree = merge (qtree, squares)
 
-      val vec = BinTree.foldr (toStringFolder, bintree, [])
+      val initial = ["}"]
+      val acc = BinTree.foldr (toStringFolder, bintree, initial)
+      val acc =
+        String.concat
+          [Int.toString canvasWidth, " ", Int.toString canvasHeight, " { "]
+        :: acc
     in
-      Vector.concat vec
+      String.concat acc
     end
 end

imperative-shell/file-thread.sml

@@ -51,7 +51,13 @@ struct
 
   fun loadSquares (path, inputMailbox) = ()
 
-  fun saveSquares squares = ()
+  fun saveSquares squaresString =
+    let
+      val io = TextIO.openOut filename
+      val () = TextIO.output (io, squaresString)
+    in
+      TextIO.closeOut io
+    end
 
   fun getDirList (dir, acc, rootPath) =
     case OS.FileSys.readDir dir of
@@ -87,7 +93,7 @@ struct
     let
       val _ =
         case Mailbox.recv fileMailbox of
-          SAVE_SQUARES triangles => saveSquares triangles
+          SAVE_SQUARES str => saveSquares str
         | LOAD_SQUARES => loadSquares (filename, inputMailbox)
         | EXPORT_SQUARES triangles => exportSquares triangles
         | LOAD_FILES path => loadFiles (path, inputMailbox)

message-types/file-msg.sml

@@ -1,7 +1,7 @@
 structure FileMessage =
 struct
   datatype t =
-    SAVE_SQUARES of int vector vector
+    SAVE_SQUARES of string
   | LOAD_SQUARES
   | EXPORT_SQUARES of int vector vector
   | LOAD_FILES of string