Position arg type in NAT

projects/nat-archive-tool/src/nat/ArchiveController.hx

@@ -3,6 +3,7 @@ package nat;
 import kiss.Prelude;
 import kiss.List;
 import kiss.Stream;
+import nat.components.Position;
 import haxe.Constraints;
 import haxe.DynamicAccess;
 import uuid.Uuid;
@@ -27,6 +28,8 @@ enum CommandArgType {
 
     // TODO playground name -- choose from archive.playgrounds
 
+    Position;
+    
     // Then again the more of these I add the more convoluted CollectAndValidateArgs gets,
     // and the more stream reader methods I need to write
 }

projects/nat-archive-tool/src/nat/ArchiveController.kiss

@@ -106,7 +106,9 @@
                     (continuation entries)))
                 min
                 max))
-        (null)))
+        (Position
+            (ui.choosePosition "${arg.name}:" continuation))
+        (never null)))
 
 // TODO try catch and ui.reportError
 // TODO maaaybe support escape sequences?
@@ -176,7 +178,8 @@
                         ((exprOr (SelectedEntries _ _) (Entries _ _)) `:Array<nat.Entry> ,name)
                         ((Text _) `:String ,name)
                         ((VarText _) `:Array<String> ,name)
-                        ((Number _ _ _) `:Float ,name)))
+                        ((Number _ _ _) `:Float ,name)
+                        (Position `:Position ,name)))
             commandArgs
                 (for [name type] argPairs
                     `(object name ,(symbolName name) type ,type))]

projects/nat-archive-tool/src/nat/ArchiveUI.hx

@@ -65,7 +65,12 @@ interface ArchiveUI {
      * Update UI to show that the set of selected entries has changed
      */
     function onSelectionChanged(selectedEntries:Array<Entry>, lastSelectedEntries:Array<Entry>):Void;
-
+    
+    /**
+     * Prompt the user to choose a position
+     */
+    function choosePosition(prompt:String, resolve:Position->Void):Void;
+    
     /**
      * A way to tell NAT where the cursor is
      */