support .keys for a map

polystat · Aug 19, 2022 · 73dd553 · 73dd553
1 parent f6802ef
commit 73dd553
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/transpiler/src/main/eo/preface/xmyMap.eo b/transpiler/src/main/eo/preface/xmyMap.eo
@@ -7,6 +7,7 @@
 +alias sprintf org.eolang.txt.sprintf
 +alias mkCopy preface.mkCopy
 +alias pair preface.pair
++alias xmyArray preface.xmyArray
 
 [] > xmyMap
   pyint 16 > x__id__
@@ -89,6 +90,22 @@
                 self.value.write (*)
                 stackUp.forward (return 0)
                 123
+        [] > xkeys
+          [self] > apply
+            [stackUp] > @
+              (goto ((xmyArray.apply (*)).@)).result > accum
+              memory 0 > i
+              seq > @
+                (i.lt (value.length)).while
+                  [unused]
+                    (self.value.get i).fst > x
+                    seq > @
+                      (goto ((accum.xappend.apply accum x).@)).result
+                      i.write (i.plus 1)
+                      0
+                stdout (sprintf "keys len = %d\n" (accum.value.length))
+                stackUp.forward (return accum)
+                0
         [x] > eq
           memory TRUE > acc
           memory 0 > pos