Turn nat-flixel-playground PlayState into an ArchiveUI

projects/nat-flixel-playground/source/PlayState.hx

@@ -1,4 +1,15 @@
 package;
 
+import kiss.Prelude;
+import kiss.List;
+import sys.FileSystem;
+import nat.Entry;
+import nat.BoolExpInterp;
+import nat.Archive;
+import nat.ArchiveUI;
+import nat.ArchiveController;
+
+using StringTools;
+
 @:build(kiss.Kiss.build())
-class PlayState extends FlxState {}
+class PlayState extends FlxState implements ArchiveUI {}

projects/nat-flixel-playground/source/PlayState.kiss

@@ -1,5 +1,55 @@
+(loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
+
 (method &override :Void create []
-    (super.create))
+    (super.create)
+    // TODO find a way to pass the archiveDir to a HaxeFlixel game
+    /*(let [[archiveDir] (Sys.args)]
+        (new ArchiveController
+            (new Archive archiveDir)
+            this))*/)
 
 (method &override :Void update [:Float elapsed]
     (super.update elapsed))
+
+(prop &mut :ArchiveController controller)
+
+(method :Void setController [controller] (set this.controller controller))
+
+(method :Void enterText [prompt resolve maxLength]
+    (resolve ""))
+    
+(method :Void enterNumber [prompt resolve min max &opt inStepsOf]
+    (resolve 0))
+
+(method :Void chooseEntry [prompt :Archive archive resolve]
+    (resolve null))
+
+(method :Void chooseEntries [prompt archive resolve min max]
+    (_chooseEntries prompt archive resolve min max []))
+
+(method :Void _chooseEntries [prompt archive resolve min max :Array<Entry> collectedEntries]
+    (let [&mut :Void->Void chooseNextEntry
+                null
+            _chooseNextEntry
+                ->:Void {(chooseEntry
+                                prompt
+                                archive
+                                ->:Void e {(collectedEntries.push e)
+                                                // If the maximum is reached, return it
+                                                (if (= max collectedEntries.length)
+                                                        (resolve collectedEntries)
+                                                    // Otherwise, recurse
+                                                    (chooseNextEntry))})}]
+        (set chooseNextEntry _chooseNextEntry)
+        (_chooseNextEntry)))
+
+        
+(method handleChanges [:Archive archive :ChangeSet changeSet]
+    (doFor e changeSet
+        (print (archive.fullString e))))
+
+(method :Void displayMessage [message]
+    (print message))
+
+(method :Void reportError [error] 
+    (print error))