stray() ver.1.0

/**
 * Copyright yukifuruyoru ( http://wonderfl.net/user/yukifuruyoru )
 * MIT License ( http://www.opensource.org/licenses/mit-license.php )
 * Downloaded from: http://wonderfl.net/c/4Y8g
 */

/*
	stray() method by yukkuriyuki
	
	Convert array written as string to real array.
	Only strng between [ and ] will be considered array.
	Any other elements will be strings.
	
	IMPORTANT: if you want a string element,
	use escape sign (backslash) before (").
	
*/
package {
    import flash.display.Sprite;
    public class FlashTest extends Sprite {
        public function FlashTest() {
            inittrace(stage);
			var samplestr:String="[1,[32323,[[2],[2]]],\"PRE]*[URE\",[21]]";

           	trace(samplestr);
           	trace("---solution---");	
         	
           	var myArray:Array= stray(samplestr);
  
			trace("has",myArray.length,"elements:");
           	myArray.forEach(function(elem:*,...args):void{trace("> ",elem,"(",typeof elem,")...LENGTH:",elem.length);});
			trace("---done---");
    			trace("EOF!");

        }
    }
}
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
function stray(str:String):Array{
	str=str.slice(1,str.length-1);
	var sol:Array=[];
	var nex:uint=0;
	var c:String;
	reactor();//modificates sol array.
	sol.forEach(function (elem:*,index:uint,...args):void{
		c=elem.charAt(0)+elem.charAt(elem.length-1);
		if(c=="[]"){sol[index]=stray(elem);}
	});
	return sol;
//stray internal functions
	function reactor():void{
		nex=str.search(new RegExp(",|\"|\\["));
		//trace(str.charAt(nex),"at index",nex);
		switch(str.charAt(nex)){
			case ",":{commaf();reactor();}break;
			case "\"":{wordf();reactor();}break;
			case "[":{openf();reactor();}break;
			default:{if(str){sol.push(str);}}break;
		}
	}
	function commaf():void{
		var end:uint=str.search(new RegExp("(,\\[)|(,\")|$"));
		var element:String=str.slice(0,end);
		sol=sol.concat(element.split(","));
		str=str.slice(end+1);
		//trace("elements",element);
		//trace(str);
	}
	function wordf():void{
		var end:uint=str.search(new RegExp(".\""))+1;
		var element:String=str.slice(1,end);
		sol.push(element);
		str=str.slice(end+2);
		
		//trace("word",element);
		//trace(str);
	}
	function openf():void{
		var end:uint=elemend(str);
		var elementstr:String=str.slice(0,end+1);
		sol.push(elementstr);
		str=str.slice(end+2);
		
		
		function elemend(s:String):uint{
			var op:uint;//number of [
			var ed:uint;//number of ]
			var co:uint;//number if "
			var index:int=0;
			var sample:String;
			do{
				index=s.indexOf("]",index+1);
				if(index<0){break}
				sample=s.slice(0,index+1);
				co=sample.match(new RegExp("\"","g")).length;
				if(co&0x1){continue}
				else{sample=sample.replace(new RegExp("\".+?\"","g"),"@");}
				op=sample.match(new RegExp("\\[","g")).length;
				ed=sample.match(new RegExp("\\]","g")).length;
				//trace(sample,op,ed);
			}while(op!=ed)
			//trace("done",sample);
			return index
		}
	}
//stray internal functions 
}//function stray() END...
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

/////  WONDERFL TRACE /////

import flash.display.Sprite;
import flash.display.Stage;
import flash.text.TextField;
import flash.text.TextFormat;


function inittrace(s:Stage):void
{
    WTrace.initTrace(s);
}

//global trace function
var trace:Function;

//wtreace class
class WTrace
{
        private static var FONT:String = "Fixedsys";
        private static var SIZE:Number = 12;
        private static var TextFields:Array = [];
        private static var trace_stage:Stage;
        
        public static function initTrace(stg:Stage):void
        {
            trace_stage = stg;
            trace = wtrace;
        }
        
        private static function scrollup():void
        {
            // maximum number of lines: 100
            if (TextFields.length > 100) 
            {
                var removeme:TextField = TextFields.shift();
                trace_stage.removeChild(removeme);
                removeme = null;
            }
            for(var x:Number=0;x<TextFields.length;x++)
            {
                (TextFields[x] as TextField).y -= SIZE*1.2;
            }
        }
    
        public static function wtrace(... args):void
        {
        
            var s:String="";
            var tracefield:TextField;
            
            for (var i:int;i < args.length;i++)
            {
                // imitating flash:
                // putting a space between the parameters
                if (i != 0) s+=" ";
                s+=args[i].toString();
            }
            

            tracefield= new TextField();
            tracefield.autoSize = "left";
            tracefield.text = s;
            tracefield.y = trace_stage.stageHeight - 20;

            var tf:TextFormat = new TextFormat(FONT, SIZE);
            tracefield.setTextFormat(tf);
            trace_stage.addChild(tracefield);
            scrollup();                      
            TextFields.push(tracefield);
            
        }
}