From 9636c7ae2417a32831123c4f4ae3900c0a0bea16 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 28 Apr 2015 14:29:19 -0700
Subject: 1214

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

(limited to 'cpp/062array.mu')

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