From c603cd6cef43100aa83a62e15f96fd54c9fb987e Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 13 Nov 2015 10:08:57 -0800
Subject: 2430 - make room for more transforms

---
 072array.mu | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 072array.mu

(limited to '072array.mu')

diff --git a/072array.mu b/072array.mu
new file mode 100644
index 00000000..03348c3a
--- /dev/null
+++ b/072array.mu
@@ -0,0 +1,40 @@
+scenario array-from-args [
+  run [
+    1:address:array:character <- new-array 0, 1, 2
+    2:array:character <- copy *1:address:array:character
+  ]
+  memory-should-contain [
+    2 <- 3  # array length
+    3 <- 0
+    4 <- 1
+    5 <- 2
+  ]
+]
+
+# create an array out of a list of scalar args
+recipe new-array [
+  local-scope
+  capacity:number <- copy 0
+  {
+    # while read curr-value
+    curr-value:character, exists?:boolean <- next-ingredient
+    break-unless exists?
+    capacity <- add capacity, 1
+    loop
+  }
+  result:address:array:character <- new character:type, capacity
+  rewind-ingredients
+  i:number <- copy 0
+  {
+    # while read curr-value
+    done?:boolean <- greater-or-equal i, capacity
+    break-if done?
+    curr-value:character, exists?:boolean <- next-ingredient
+    assert exists?, [error in rewinding ingredients to new-array]
+    tmp:address:character <- index-address *result, i
+    *tmp <- copy curr-value
+    i <- add i, 1
+    loop
+  }
+  reply result
+]
-- 
cgit 1.4.1-2-gfad0