WIP archive controllers

2021-06-23 09:40:44 -06:00
parent 6348a6a6a6
commit 3f25b56d42
7 changed files with 101 additions and 0 deletions
--- a/projects/nat-archive-tool/src/nat/CLI.kiss
+++ b/projects/nat-archive-tool/src/nat/CLI.kiss
@@ -0,0 +1,21 @@
+(defun :Void main []
+    (let [[archiveDir] (Sys.args)
+            controller
+                (new ArchiveController
+                    (new Archive archiveDir)
+                    (new CLI))]
+        ))
+
+(defmethod enterText [&opt minLength maxLength]
+    "")
+
+(defmethod enterNumber [&opt min max inStepsOf]
+    0)
+
+(defmethod chooseEntry [archive]
+    null)
+
+(defmethod chooseEntries [archive &opt min max]
+    [])
+
+(defmethod :Void handleChanges [changeSet] 0)