チェンジセット 4581

コミット日時:

2011/08/02 01:18:23 (2 年前)

コミッタ:

Mr.Grotesque

ログメッセージ:

--

ファイル:

• air/clayg/jp/clayg/lisp/ConsFunc.as (更新) (1 diff)
• air/clayg/jp/clayg/lisp/DefmacroFunc.as (追加)
• air/clayg/jp/clayg/lisp/DefunFunc.as (追加)
• air/clayg/jp/clayg/lisp/EvalFunc.as (更新) (1 diff)
• air/clayg/jp/clayg/lisp/Lisp.as (更新) (11 diffs)
• air/clayg/jp/clayg/lisp/ListpFunc.as (追加)
• air/clayg/jp/clayg/lisp/SetfFunc.as (追加)

air/clayg/jp/clayg/lisp/ConsFunc.as

@@ -11 +11 @@
-                public function execute(lisp:Lisp):Lisp
-                {
-                        if ( lisp.length() != 2 ) throw new Error("引数は2つである必要があります！");
-                        var args:Array = lisp.toLispArray();
+                        if ( args.length != 2 ) throw new Error("引数は2つである必要があります！");
+
-                        return args[1].cons(args[0]);
-                }

air/clayg/jp/clayg/lisp/EvalFunc.as

@@ -12 +12 @@
-                {
-                        var result:Lisp;
-xecute
+val
-                        return result;
-                }

air/clayg/jp/clayg/lisp/Lisp.as

@@ -7 +7 @@
-        public class Lisp 
-        {
+                public static const t:String = "t";
+                public static const nil:String = "nil";
+                
-                private static var funcs:Object = {};
-                private static var specials:Object = {};
-                private static var abbrevs:Object = {};
+                private static var vars:Array = [ {} ];
-                
-                addSpecial( "quote", new QuoteFunc() );
-//
-//
-//
+
+
+
-                addSpecial( "progn", new EvalFunc() );
-                addSpecial( "eval", new EvalFunc() );
@@ -25 +29 @@
-                addFunction( "cdr", new CdrFunc() );
-                addFunction( "cons", new ConsFunc() );
-//
-
+
+
-                addAbbrev( "'", "quote" );
-                addAbbrev( "#'", "function" );
-                
-
+
+
+
+
+
+
-                {
-                        trace("評価:" + lisp.toString());
@@ -36 +45 @@
-                        if ( !lisp.listp() )
-                        {
-
+
+
+
+
+
+
+
+
+
+
-                        }
-                        else
@@ -43 +61 @@
-                                var oper:String = ary.shift();
-                                var args:Lisp = new Lisp(ary);
+                                
+                                // nilを返す
+                                if ( ary.length == 0 ) return new Lisp(nil);
-                                
-                                // 特殊関数を実行
@@ -48 +69 @@
-                                
-                                // 引数を評価
-xecute
+val
-                                
-                                // 関数を実行
@@ -57 +78 @@
-                
-                /**
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                        // 括弧の数が正しいかチェック
-                        var openNum:int = code.match(/\(/g).length;
-                        var clseNum:int = code.match(/\)/g).length;
-                        if ( openNum != clseNum ) throw new Error("括弧の数が不正なため、コードを正規化できませんでした！");
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-                        return code;
-                }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-                        var ary:Array = [];
-
-
-
-
-
-
-
+
+
+
+
+
+
-                                {
-                                case "(":
-
+
+
+
+
+
+
+
+
+
+
+
-                                        break;
-                                case "\"":
-
+
+
-                                        break;
-                                case " ":
-
-
-
-
-
+
+
-                                }
-                        }
-                        
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-                        
-                        return ary;
-                }
+                
+                /**
+                 * 配列からコードを作成します.
+                 * @param       ary
+                 * @return
+                 */
+                public static function aryToCode( ary:Array ):String
+                {
+                        return "(" + ary.join(" ") + ")";
+                }
+
+                /**
+                 * 関数を登録します.
+                 * @param       name    関数名
+                 * @param       func    関数
+                 */
+                public static function addFunction( name:String, func:ILispFunc ):void
+                {
+                        funcs[name] = func;
+                }
+                
+                /**
+                 * 関数を削除します.
+                 * @param       name    関数名
+                 */
+                public static function removeFunction( name:String ):void
+                {
+                        delete funcs[name];
+                }
+                
+                /**
+                 * 新しい特殊関数を登録します
+                 * @param       name    特殊関数名
+                 * @param       func    関数
+                 */
+                public static function addSpecial( name:String, func:ILispFunc ):void
+                {
+                        specials[ name ] = func;
+                }
+                
+                /**
+                 * 特殊関数を削除します.
+                 * @param       name    関数名
+                 */
+                public static function removeSpecial( name:String ):void
+                {
+                        delete specials[name];
+                }
+
+                /**
+                 * 省略形を追加します.
+                 * @param       abbrev          省略形の文字
+                 * @param       funcName        展開したときの関数名
+                 */
+                public static function addAbbrev( abbrev:String, funcName:String ):void
+                {
+                        abbrevs[abbrev] = funcName;
+                }
+
+                /**
+                 * 省略形を削除します.
+                 * @param       abbrev  省略形文字
+                 */
+                public static function removeAbbrev( abbrev:String ):void
+                {
+                        delete abbrevs[abbrev];
+                }
+
+                private var code:String;
+                
+                /**
+                 * 新しいインスタンスを作成します.
+                 * @param       data
+                 */
+                public function Lisp( data:* = "nil" ) 
+                {
+                        trace("作成1:" + data);
+                        code = convert( data );
+                                                
+                        trace("作成2:" + code);
+                }
+                
+                /**
+                 * データをコードに変換します.
+                 * @param       data
+                 * @return
+                 */
+                private function convert( data:* ):String
+                {
+                        var str:String;
+                        if ( data is String ) str = String(data);
+                        else if ( data is Lisp ) str = data.toString();
+                        else if ( data is int ) str = String(data);
+                        else if ( data is Number ) str = String(data);
+                        else if ( data is Boolean ) str = data ? t : nil;
+                        else if ( data is Array ) str = data.length ? "(" + data.map( function(e:*, i:int, a:Array ){ return convert( e ); } ).join(" ") + ")" : nil;
+                        else throw new Error(data + "はLispに変換できない形式です！");
+                        
+                        return str;
+                }
+                
+                /**
+                 * 文字列を挿入
+                 * @param       code    対象文字列
+                 * @param       ins             挿入する文字列
+                 * @param       begin   挿入する位置
+                 * @param       cutLen  挿入位置から削除する文字数
+                 * @return
+                 */
+                private static function insert( code:String, ins:String, begin:uint, cutLen:uint = 0 ):String
+                {
+                        code = code.slice(0, begin) + ins + code.slice(begin+cutLen);
+                        return code;
+                }
+                
+                /**
+                 * コードを文字列に変換します.
+                 * @return
+                 */
+                public function toString():String
+                {
+                        return code;
+                }
+                
+                /**
+                 * コードを数値に変換します.
+                 * @return
+                 */
+                public function toNumber():Number
+                {
+                        if( !numberp() ) throw new Error(code+"は数値ではありません！");
+                        return parseFloat(toString());
+                }
+                
+                /**
+                 * コードを文字列の配列に変換します.
+                 * @return
+                 */
+                public function toStringArray():Array
+                {
+                        return codeToAry(code);
+                }
-
-                /**
@@ -282 +383 @@
-                public function listp():Boolean
-                {
-
+
+
-                        return false;
-                }
@@ -291 +393 @@
-                public function numberp():Boolean
-                {
-toString()
+code
-                        return false;
-                }
@@ -301 +403 @@
-                public function car():Lisp
-                {
-toLispArray().shift(
+new Lisp(toStringArray().shift()
-                }
-                
@@ -310 +412 @@
-                public function cdr():Lisp
-                {
-                        trace( toString() );
-                        var ary:Array = toStringArray();
-                        ary.shift();
-                        trace( ary.join(" "));
-                        return new Lisp( ary );
-                }
@@ -325 +425 @@
-                {
-                        var ary:Array = toStringArray();
-.toString() )
+ );
-                        return new Lisp( ary );
-                }