/**
* Copyright tepe ( http://wonderfl.net/user/tepe )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/miv7
*/
package {
import flash.display.*;
import flash.text.*;
import flash.events.*;
public class FlashTest extends Sprite {
public function FlashTest() {
// write as3 code here..
}
}
}
import org.libspark.thread.Thread;
import org.libspark.thread.threads.display.LoaderThread;
class MainThread extends Thread {
private var func:Function;
public function MainThread(func1:Function=null) {//
func = func1;
}
//Thread.start()で実行される
private var cnt:int=0;
override protected function run():void {
if(func==null)return;
next(mainloop);
//next(run);//次に実行するスレッドを指定指定しなければスレッド終了
}
private function mainloop():void{
func();
if(_stop!=true)next(mainloop);//次に実行するスレッドを指定指定しなければスレッド終了
}
private var _stop:Boolean=false;
public function stop():void{
_stop=true;
}
public function setFunction(func1:Function=null):void{
if(func1==null)return;
func = func1;
}
//スレッド終了時に実行される
override protected function finalize():void {
}
}
//////////////////////////////////////////////////////////////////////////
//
//////////////////////////////////////////////////////////////////////////
import flash.display.*;
import flash.events.*;
import org.libspark.thread.Thread;
import org.libspark.thread.EnterFrameThreadExecutor;
//テキストからトークンを抽出する
class token extends Sprite{
public var list:Object;//トークン列
private var source:String;
public var listLength:int = 0;
private var thread:MainThread;
public function token(){
list = new Object();
if (!Thread.isReady) Thread.initialize(new EnterFrameThreadExecutor());//スレッドライブラリ初期化
}
public function getToken2(str:String):void{
if(str==source)return;
source=str;
list=null;
list=new Object;
listLength = 0;
index01=0;
thread = new MainThread(func05);//スレッド作成
thread.start();
thread.join();
this.dispatchEvent(new Event(Event.CHANGE));
}
private function func05():void{//
this.dispatchEvent(new Event(Event.CHANGE));
var currentIndex:int=0;
var cnt:int = 0;
while(currentIndex<source.length){
currentIndex = func01();
cnt++;
if(200<cnt)break;
}
currentIndex = func01();
if(currentIndex==source.length){//
setBlock();
setKeywordAS3();
this.dispatchEvent(new Event(Event.COMPLETE));
thread.stop();
}
}
//指定インデクスからmax個までトークン抽出
//抽出したトークンはlistに追加
//抽出したところまでのインデクスを返す
public function getToken(str:String,index:int=0,max:int=1000):int{
if(str!=source){
source=str;
list=null;
list=new Object;
listLength = 0;
index01=0;
}
var currentIndex:int = index;
var cnt:int = 0;
while(currentIndex<source.length){
currentIndex = func01();
cnt++;
if(max<cnt)break;
}
return currentIndex;
}
//ActionScript3
public function setKeywordAS3():void{//
//宣言系
const statement:Array = new Array("function", "var", "class", "const", "package","import","namespace");
//処理系
const operation:Array = new Array("for","while","if","else","do","switch","each","case","with",
"break","return","continue","default","in","is","as","to",
"try","catch","finally","throw","typeof","super","this","label");
//データ型
const DataType:Array = new Array("null","void","int","uint",
"Boolean","Number","String","Object","Array",
"Date","RegExp","Error","Function","XML","XMLList");
//アクセス制御系
const access:Array = new Array("private","protected","internal","public",
"static","internal","dynamic","final","native","override");
getStringToken();
var i:int;
//変数、定数、関数、クラス、
for(i=0;i<statement.length;i++){
setType(statement[i],"statement");
}
//制御
for(i=0;i<operation.length;i++){
setType(operation[i],"operation");
}
//標準データ型
for(i=0;i<DataType.length;i++){
setType(DataType[i],"datatype");
}
//アクセス修飾子
for(i=0;i<access.length;i++){
setType(access[i],"access");
}
}
//token.type="string"からタイプを書き換える
private var strToken:Array;
private function setType(str:String,type:String):void{
for(var i:int=0;i<strToken.length;i++){
if(list[strToken[i]].text==str){
list[strToken[i]].type=type;
}
}
regetStringToken();
}
private function regetStringToken(str:String="string"):void{
var ary:Array=strToken;
var ary2:Array = new Array();
for(var i:int=0;i<ary.length;i++){
if(list[ary[i]].type==str){
ary2.push(ary[i]);
}
}
strToken = null;
strToken = ary2;
}
//type == string のトークンid列を取得
private function getStringToken(str:String="string"):void{//
strToken = new Array();
for(var i:int=0;i<listLength;i++){
if(list[i].type==str){
strToken.push(i);
}
}
}
//func2から得たArrayで指定
public function getBlockTokenList(entry:int=-1):Array{
var i:int;
var lastToken:int;
var tokenIdList:Array = new Array();
if(entry == -1){//トークン全体全体
lastToken = listLength;
for(i=0;i<lastToken;i++){
tokenIdList.push(i);
}
return tokenIdList;
}
else{
lastToken = list[entry].pair;
for(i=entry+1;i<lastToken;i++){
tokenIdList.push(i);
}
return tokenIdList;
}
}
//指定したスコープ内のテキスト取得
public function getBlockText(entry:int=-1):String{
var i:int;
var lastToken:int;
var str:String = new String();
if(entry == -1){//トークン全体全体
lastToken = listLength;
for(i=0;i<lastToken;i++){
str += list[i].text;
}
return str;
}
else{
lastToken = list[entry].pair;
for(i=entry+1;i<lastToken;i++){
str += list[i].text;
}
return str;
}
}
//スコープ別にテキストを取り出す
public function func3(tokenID:int):String{
var n:int=tokenID;
var str:String = new String();
if(list[n].type!='{'){
n=list[n].group;
}
for(var i:int = n;i<list[n].pair+1;i++){
str+=list[i].text;
if(list[i].type=='{')i=list[i].pair-1;//スコープ内を省略
}
return str;
}
//トークンにブロックを割り当てる { } ( ) [ ]
private var scopeEntry:Array;
public function setBlock():void{
const err1:String = "scopeError1\n";//スコープの終了がない
const err2:String = "scopeError2\n";//ペアの種類が異なる
const err3:String = "scopeError3\n";//スコープの開始がない
var stac:Array = new Array();
scopeEntry = null;
scopeEntry = new Array();//スコープの開始位置のトークンID列
scopeEntry.push(-1);//最上位登録
for(var i:int=0;i<listLength;i++){
if(list[i].type != "mark")continue;//記号以外はスルー
// { }
if(list[i].text=='{'){
stac.push(i);
continue;
}
else if(list[i].text=='}'){
if(stac.length==0){
list[i].tag += err3;//エラー
continue;
}
if(list[stac[stac.length-1]].text != '{'){
list[i].tag += err2;//エラー
continue;
}
//ペア登録
list[i].pair = stac.pop();
list[list[i].pair].pair = i;
scopeEntry.push(list[i].pair);
list[i].type="block";
list[list[i].pair].type ="block";
continue;
}
// ( )
else if(list[i].text=='('){
stac.push(i);
continue;
}
else if(list[i].text==')'){
if(stac.length==0){
list[i].tag += err3;//エラー
continue;
}
if(list[stac[stac.length-1]].text != '('){
list[i].tag += err2;//エラー
continue;
}
//ペア登録
list[i].pair = stac.pop();
list[list[i].pair].pair = i;
scopeEntry.push(list[i].pair);
list[i].type="block";
list[list[i].pair].type ="block";
continue;
}
// [ ]
else if(list[i].text=='['){
stac.push(i);
continue;
}
else if(list[i].text==']'){
if(stac.length==0){//スコープ開始位置が存在しない
list[i].tag += err3;//エラー
continue;
}
if(list[stac[stac.length-1]].text != '['){//種類が異なる
list[i].tag += err2;//エラー
continue;
}
//ペア登録
list[i].pair = stac.pop();
list[list[i].pair].pair = i;
scopeEntry.push(list[i].pair);
list[i].type="block";
list[list[i].pair].type ="block";
continue;
}
}//for
if(stac.length!=0){//スコープが閉じられる前に最期まで到達した時
for(var j:int=0;j<stac.length;j++){
list[stac[j]].tag += err1;
}
}
return;
}
//-------------------------------------------------------------
//開始インデクスを受け取りトークンのタイプを返す
private var index01:int=0;
private function func01():int{//
if(index01>=source.length)return source.length;
var index:int = index01;
var token:Object = new Object();
var reg:RegExp = new RegExp();
var result:Object;
list[listLength] = token;
listLength++;
token.tag = "";
//トークンタイプ：空白か？
if( source.charAt(index)== " " ||
source.charAt(index)=="\t" ||
source.charAt(index)=="\n" ||
source.charAt(index)=="\r" ){
token.type = "space";
reg = /[^\s]/mg;
reg.lastIndex = index;
result = reg.exec(source);
//トークン作成
if(result == null){//
token.text = source.substring(index,source.length);
index01 = source.length;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index);
index01 = result.index;
return index01;
}
}
//トークンタイプ:文字列定数１
if(source.charAt(index)== "'"){
token.type = "text";
var indexA:int = index;
reg = /['\n\r]/mg;//改行か次の[']が現れる位置
do{//エスケープ処理
reg.lastIndex = indexA+1;
result = reg.exec(source);
if(result==null)break;
else indexA = result.index;
}while(source.charAt(indexA-1)=="\\");//["]が現れてもその前がエスケープなら再検索
//トークン作成
if(result == null){//エラー
token.text = "'";
token.type = "other";
index01 = index+1;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index+1);
index01 = result.index+1;//次の開始位置
return index01;
}
}
//トークンタイプ:文字列定数2
if(source.charAt(index)== '"'){
token.type = "text";
var indexB:int = index;
reg = /["\n\r]/mg;//改行か次の["]が現れる位置
do{//エスケープ処理
reg.lastIndex = indexB+1;
result = reg.exec(source);
if(result==null)break;
else indexB = result.index;
}while(source.charAt(indexB-1)=="\\");//["]が現れてもその前がエスケープなら再検索
//トークン作成
if(result == null){//エラー
token.text = '"';
token.type = "other";
index01 = index+1;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index+1);
index01 = result.index+1;//次の開始位置
return index01;
}
}
if(source.charAt(index)== "/"){
//一行コメント
if(source.charAt(index+1)== "/"){//
reg = /[\n\r]/mg;
reg.lastIndex = index+2;
result = reg.exec(source);
//トークン作成
token.type = "comment";
if(result == null){
token.text = source.substring(index,source.length);
index01 = source.length;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index);
index01 = result.index;//次の開始位置
return index01;
}
}
//複数行コメント
if(source.charAt(index+1)== "*"){
reg = /\*\//mg;
reg.lastIndex = index+2;
result = reg.exec(source);
//トークン作成
token.type = "comment";
if(result == null){//エラー
token.type = "other";
token.text = '/*';
index01 = index+2;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index+2);
index01 = result.index+2;//次の開始位置
return index01;
}
}
}
//英数字
if((source.charCodeAt(index) > 64 && source.charCodeAt(index) < 91) ||// A-Z
(source.charCodeAt(index) > 96 && source.charCodeAt(index) < 123)||// a-z
source.charCodeAt(index) == 95 ){// _
reg = /[^a-zA-Z0-9_]/mg;//英数字以外が現れる位置
reg.lastIndex = index+1;
result = reg.exec(source);
token.type = "string";//半角英数字
if(result == null){//
token.text = source.substring(index,source.length);
index01 = source.length;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index);
index01 = result.index;//次の開始位置
return index01;
}
}
//数値
if(source.charCodeAt(index) > 47 && source.charCodeAt(index) < 58){
reg = /[^a-zA-Z0-9_.]/mg;
reg.lastIndex = index+1;
result = reg.exec(source);
token.type = "number";//半角英数字
if(result == null){
token.text = source.substring(index,source.length);
index01 = source.length;//次の開始位置
//return index01;
}
else{//
token.text = source.substring(index,result.index);
index01 = result.index;//次の開始位置
//return index01;
}
num();//種類判別
return index01;
}
//半角記号
if(source.charCodeAt(index)<127 && source.charCodeAt(index)>32){
token.type = "mark";
token.text = source.charAt(index);
index01 = index+1;
return index01;
}
//その他文字列 マルチバイト文字等はここに入る
token.type = "other";
reg = /[\x01-\x7f]/mg;
reg.lastIndex = index+1;
result = reg.exec(source);
if(result == null){
token.text = source.substring(index,source.length);
index01 = source.length;//次の開始位置
return index01;
}
else{//
token.text = source.substring(index,result.index);
index01 = result.index;//次の開始位置
return index01;
}
}
//数値の処理
//-------------------------------------------------------------------
private function num():void{
var token:Object= list[listLength-1];
var index:int = token.index;
//0～9だけなら整数値。小数点が１つだけあるなら実数値。どちらにも該当しなければ数値ではない。
if(token.text.search(/[^0-9]/mg)== -1){//数字のみ →整数値or８進数
if(token.text.charAt(0)=="0" && 1<token.text.length){//０から始まれば8進数かも(ただし0以降に数字があれば）
if(token.text.search(/[^0-7]/mg)!= -1){//０から始まったけど８進数ではなかった
token.type = "other";
token.tag += "oct:1\n";
}
//８進数確定
token.tag += "oct\n";
token.value = uint(parseInt(token.text,8));
}
//整数
token.tag += "int\n";
token.value = uint(parseInt(token.text));
}
else{
var a:Array = token.text.match(/[.]/mg);//小数点が１つだけなら実数。それ以外はよくわからない何か。
if(a.length == 1){//実数値
if(token.text.search(/[^0-9.]/mg) != -1 || //数字と小数点以外の文字が入ってたらNG
token.text.search(/[.]/mg) == token.text.length-1){//小数点で終わってたらNG
token.type = "other";
token.tag += "real:NG1\n";
}
token.tag += "real\n";
token.value = Number(token.text);
}
else{//整数、実数以外
if(token.text.charAt(0)=="0"){//
//2進
if(token.text.charAt(1)=="b" || token.text.charAt(1)=="B"){
a = token.text.match(/[^01]/mg);
if(a.length != 1 || token.text.length<3)token.type = "other";
else{
token.tag += "bin\n";
var bin:String = token.text.substring(2,token.text.length);
token.value = uint(parseInt(bin,2));
}
}
//16進
else if(token.text.charAt(1)=="x" || token.text.charAt(1)=="X"){//
a = token.text.match(/[^0-9a-fA-F]/mg);
if(a.length != 1 || token.text.length<3)token.type = "other";
else{
token.tag += "hex\n";
token.value = uint(parseInt(token.text,16));
}
}
//8進
else if(token.text.charAt(1)=="o" || token.text.charAt(1)=="O"){
a = token.text.match(/[^0-7]/mg);
if(a.length != 1 || token.text.length<3)token.type = "other";
else{
token.tag += "oct\n";
var oct:String = token.text.substring(2,token.text.length);
token.value = uint(parseInt(oct,8));
}
}
else{
//8進
a = token.text.match(/[^0-7]/mg);
if(a.length != 0 || token.text.length<2)token.type = "other";
else{//
token.tag += "oct\n";
token.value = uint(parseInt(token.text,8));
}
}
}
else{//
token.type = "other";
}
}
}
}//function
//-------------------------------
}//class
