From fee49aab5ffd3b785d805a089fdec630092d58a9 Mon Sep 17 00:00:00 2001
From: Ted Reed <ted.reed@gmail.com>
Date: Mon, 13 Jul 2009 18:27:39 -0700
Subject: [PATCH] Implement the * operator for Array.

---
 src/classes/Array.pir | 47 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/src/classes/Array.pir b/src/classes/Array.pir
index 7a29b24..fa1bc52 100644
--- a/src/classes/Array.pir
+++ b/src/classes/Array.pir
@@ -1100,6 +1100,53 @@ Build a CardinalArray from its arguments.
     .return (list)
 .end
 
+=item C<infix:*(...)>
+
+Operator form for either repetition (when argument is an Integer), or as a shortform for join (when argument is a String.)
+
+=cut
+
+.sub 'infix:*' :multi('CardinalArray','CardinalInteger')
+    .param pmc this
+    .param pmc count
+    .local pmc array
+    .local int i
+
+    say "Entered *i"
+    i = count
+    if i > 0 goto sane
+
+    $P0 = undef()
+    .return ($P0)
+
+  sane:
+    say "Verified sanity"
+    array = new 'CardinalArray'
+
+  loop:
+    say "Beginning loop."
+    array.'concat'(this)
+
+    say "Appended array."
+    dec i
+    say "dec i"
+    say i
+
+    if i > 0 goto loop
+
+    say "about to return"
+    .return (array)
+.end
+
+.sub 'infix:*' :multi('CardinalArray','CardinalString')
+    .param pmc this
+    .param pmc s
+    
+    $S0 = s
+    $S0 = join $S0, this
+
+    .return ($S0)
+.end
 
 =item C<infix:,(...)>