- Some deflexing of the low-level narya stuff. More to come, as we're

going to want the minimum client to be flex-free.


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@4507 542714f4-19e9-0310-aa3c-eee0fc999fb1

src/as/com/threerings/util/ArrayIterator.as

@@ -1,5 +1,7 @@
 package com.threerings.util {
 
+import flash.errors.IllegalOperationError;
+
 /**
  * Provides a generic iterator for an Array.
  * No co-modification checking is done.
@@ -25,13 +27,29 @@ public class ArrayIterator
     // documentation inherited from interface Iterator
     public function next () :Object
     {
+        _lastIndex = _index;
         return _arr[_index++];
     }
 
+    // documentation inherited from interface Iterator
+    public function remove () :void
+    {
+        if (_lastIndex == -1) {
+            throw new IllegalOperationError();
+
+        } else {
+            _arr.splice(_lastIndex, 1);
+            _lastIndex = -1;
+        }
+    }
+
     /** The array we're iterating over. */
     protected var _arr :Array;
 
     /** The current index. */
     protected var _index :int;
+
+    /** The last-removed index. */
+    protected var _lastIndex :int = -1;
 }
 }

src/as/com/threerings/util/ArrayUtil.as

@@ -20,6 +20,22 @@ public class ArrayUtil
         });
     }
 
+    /**
+     * Randomly shuffle the elements in the specified array.
+     */
+    public static function shuffle (arr :Array) :void
+    {
+        // starting from the end of the list, repeatedly swap the element in
+        // question with a random element previous to it up to and including
+        // itself
+        for (var ii :int = arr.length - 1; ii > 0; ii--) {
+            var idx :int = int(Math.random() * (ii + 1));
+            var tmp :Object = arr[idx];
+            arr[idx] = arr[ii];
+            arr[ii] = tmp;
+        }
+    }
+
     public static function indexOf (arr :Array, element :Object) :int
     {
         if (arr != null) {

src/as/com/threerings/util/Collections.as

@@ -1,25 +0,0 @@
-package com.threerings.util {
-
-import mx.collections.ListCollectionView;
-
-/**
- * Various collections-related utility methods.
- */
-public class Collections
-{
-    /**
-     * Randomly shuffle the elements in the specified list.
-     */
-    public static function shuffle (collection :ListCollectionView) :void
-    {
-        // starting from the end of the list, repeatedly swap the element
-        // in question with a random element previous to it up
-        // to and including itself
-        for (var ii :int  = collection.length - 1; ii > 0; ii--) {
-            var idx :int = int(Math.random() * (ii + 1))
-            var item :Object = collection.getItemAt(idx);
-            collection.setItemAt(collection.setItemAt(item, ii), idx);
-        }
-    }
-}
-}

src/as/com/threerings/util/Iterator.as

@@ -18,6 +18,9 @@ public interface Iterator
      */
     function next () :Object;
 
-    // TODO: remove() ?
+    /**
+     * Remove the last returned element.
+     */
+    function remove () :void;
 }
 }

src/as/com/threerings/util/StreamableArrayList.as

@@ -1,66 +1,157 @@
 package com.threerings.util {
 
-import mx.collections.ArrayCollection;
-
 import com.threerings.io.ObjectInputStream;
 import com.threerings.io.ObjectOutputStream;
 import com.threerings.io.Streamable;
 
-public class StreamableArrayList extends ArrayCollection
+public class StreamableArrayList
     implements Streamable
 {
-    /**
-     * Returns the index of the specified object in this collection, using
-     * Equalable.equals() if possible.
-     */
-    public function indexOf (object :Object) :int
+    public function StreamableArrayList (values :Array = null)
     {
-        return ArrayUtil.indexOf(source, object);
+        _array = (values == null) ? new Array() : values;
+    }
+
+    public function add (item :Object, index :int = -1) :Boolean
+    {
+        _array.splice(index, 0, item);
+        return true;
     }
 
     /**
-     * Removes the first instance of the supplied object from this array, using
-     * Equalable.equals() to determine equality. Returns the removed object if
-     * a match was found, null otherwise.
+     * Add all the elements in the other list.
+     *
+     * @param otherList may be another StreamableArrayList or an Array
      */
-    public function remove (object :Object) :Object
+    public function addAll (otherList :*, index :int = -1) :Boolean
     {
-        return ArrayUtil.removeFirst(source, object);
-    }
+        var other :Array = getArray(otherList);
 
-    /**
-     * Adds all of the elements of the supplied collection to the end of this
-     * list.
-     */
-    public function addAll (list :ArrayCollection) :void
-    {
-        for (var ii :int = 0; ii < list.length; ii++) {
-            addItem(list.getItemAt(ii));
+        // splice each element in at the index
+        for (var ii :int = other.length - 1; ii >= 0; ii--) {
+            _array.splice(index, 0, other[ii]);
         }
+        return (other.length > 0);
+    }
+
+    public function clear () :void
+    {
+        _array.length = 0;
+    }
+
+    public function contains (item :Object) :Boolean
+    {
+        return ArrayUtil.contains(_array, item);
+    }
+
+    public function get (index :int) :*
+    {
+        return _array[index];
+    }
+
+    public function indexOf (item :Object) :int
+    {
+        return ArrayUtil.indexOf(_array, item);
+    }
+
+    public function isEmpty () :Boolean
+    {
+        return (_array.length == 0);
+    }
+
+    public function iterator () :Iterator
+    {
+        return new ArrayIterator(_array);
+    }
+
+    public  function remove (item :Object) :Boolean
+    {
+        return ArrayUtil.removeFirst(_array, item);
+    }
+
+    public function removeAll (otherList :*) :Boolean
+    {
+        var other :Array = getArray(otherList);
+
+        var removed :Boolean = false;
+        for (var ii :int = other.length - 1; ii >= 0; ii--) {
+            if (remove(other[ii])) {
+                removed = true;
+            }
+        }
+        return removed;
+    }
+
+    public function removeAt (index :int) :Object
+    {
+        return _array.splice(index, 1)[0];
+    }
+
+    public function set (index :int, item :Object) :Object
+    {
+        var ret :Object = _array[index];
+        _array[index] = item;
+        return ret;
+    }
+
+    public function size () :int
+    {
+        return _array.length;
+    }
+
+    /**
+     * Return the actual array storage.
+     */
+    public function asArray () :Array
+    {
+        return _array;
+    }
+
+    /**
+     * Return a copy of the internal storage array.
+     */
+    public function toArray () :Array
+    {
+        return _array.concat();
     }
 
     // documentation inherited from interface Streamable
     public function writeObject (out :ObjectOutputStream) :void
     {
-        out.writeInt(source.length);
-        for (var ii :int = 0; ii < source.length; ii++) {
-            out.writeObject(source[ii]);
+        var len :int = _array.length;
+        out.writeInt(len);
+        for (var ii :int = 0; ii < len; ii++) {
+            out.writeObject(_array[ii]);
         }
     }
 
     // documentation inherited from interface Streamable
     public function readObject (ins :ObjectInputStream) :void
     {
-        var ecount :int = ins.readInt();
-        disableAutoUpdate();
-        removeAll();
-        try {
-            for (var ii :int = 0; ii < ecount; ii++) {
-                addItem(ins.readObject());
-            }
-        } finally {
-            enableAutoUpdate();
+        var len :int = ins.readInt();
+        _array.length = len; // truncate (or grow once)
+        for (var ii :int = 0; ii < len; ii++) {
+            _array[ii] = ins.readObject();
         }
     }
+
+    /**
+     * Return an array representing the argument.
+     */
+    protected function getArray (otherList :*) :Array
+    {
+        if (otherList is StreamableArrayList) {
+            return (otherList as StreamableArrayList).asArray();
+
+        } else if (otherList is Array) {
+            return (otherList as Array);
+
+        } else {
+            throw new ArgumentError();
+        }
+    }
+
+    /** Storage. */
+    protected var _array :Array;
 }
 }

src/as/com/threerings/util/Util.as

@@ -6,6 +6,26 @@ import com.threerings.util.StringBuilder;
 
 public class Util
 {
+    /**
+     * Is the specified object 'simple': one of the basic built-in flash types.
+     */
+    public static function isSimple (obj :Object) :Boolean
+    {
+        var type :String = typeof(obj);
+        switch (type) {
+        case "number":
+        case "string":
+        case "boolean":
+            return true;
+
+        case "object":
+            return (obj is Date) || (obj is Array);
+
+        default:
+            return false;
+        }
+    }
+
     /**
      * A nice utility method for testing equality in a better way.
      * If the objects are Equalable, then that will be tested. Arrays