Commit: 20336696236c39edb64fe313fd5139d453830234 - star (git)

Commit MetaInfo

• Revisión: 20336696236c39edb64fe313fd5139d453830234 (tree)
• Tiempo: 2018-11-08 23:19:44
• Autor: dhrname <dhrname@user...>
• Commiter: dhrname

Log Message

Modify the ST_parse function

Cambiar Resumen

• modified: source_code/shadowstar.c
• modified: source_code/shadowstar.o

Diferencia incremental

--- a/source_code/shadowstar.c
+++ b/source_code/shadowstar.c
@@ -468,11 +468,12 @@ ST_Node ST_parse(ST_Token_Mode *array, size_t length, ST_Ordered_Pair *list)
     ST_Stack_List bound_vstacklist = &null;
 
     /*現在のノードリストの項目
-     * ノード値は一番目の枝が束縛変数、二番目の枝が最後の変数であるような関数抽象ノード*/
-    ST_Node seq = ST_EMPTY_NODE;
+     * ノード値については、
+     * 一番目の枝が束縛変数、二番目の枝が最後の変数であるような関数抽象ノード*/
+    ST_Node seq = ST_createNode(ST_EMPTY);
     
-    /*入れ子になったときに、親を格納するノードスタックリスト*/
-    ST_Stack_List cache_nstacklist = &null;
+    /*seqをルートノードの末子ノードとして初期化*/
+    seq = ST_insertBefore(seq, ST_createNode(ST_EMPTY), ST_EMPTY_NODE);
 
     for (int_fast32_t i=length-1; i>=0; i--)
     {
@@ -487,16 +488,16 @@ ST_Node ST_parse(ST_Token_Mode *array, size_t length, ST_Ordered_Pair *list)
                 }
                 else
                 {
-                    seq = ST_createNode(v); //, ST_EMPTY), seq);
+                    ST_Node cache =seq;
+                    seq = ST_createNode(v);
+                    ST_insertBefore(ST_getParentNode(cache), seq, cache); 
                 }
                 /*後述する関数抽象の終わりのために、変数をキャッシュしておく*/
                 cache_v = v;
                 v = ST_second(v);
                 break;
             case ST_KAGIKAKKO_END_TOKEN:
-                ST_pushTree(seq, cache_nstacklist);
-                /*一度、現在のリストをリセットする*/
-                seq = ST_EMPTY;
+                seq = ST_insertBefore(seq, ST_createNode(ST_EMPTY), ST_EMPTY_NODE);
                 break;
             case ST_KAGIKAKKO_BEGIN_TOKEN:
                 /*あらかじめキャッシュしておいた変数cache_vは、「の後で、一番目に出てくる変数*/
@@ -507,7 +508,6 @@ ST_Node ST_parse(ST_Token_Mode *array, size_t length, ST_Ordered_Pair *list)
         }
     }
     free_stacklist(bound_vstacklist);
-    free_stacklist(cache_nstacklist);
     
     /*rseqはseqを逆向きにしたもの
      * ST_reverseNode関数が新規ノードを返すためにこのような形になっている*/
@@ -970,7 +970,7 @@ ST_Node ST_createNode(ST_Ordered_Pair* value)
  * 副作用がある関数なので、扱いには注意を要する
  * 一番目の引数parentが親ノード。三番目の引数ノードprevの前隣りに、二番目の引数ノードnodeを挿入
  * 三番目の引数が空ノードであれば、親ノードに末子ノードとして登録される
- * 返り値は、挿入に成功したときnode、失敗したときは空ノードを返す*/
+ * 返り値は、挿入に成功したとき引数node、失敗したときは空ノードを返す*/
 ST_Node ST_insertBefore(ST_Node parent, ST_Node node, ST_Node prev)
 {
     errno_before_eprint = INSERT_BEFORE_ERROR;

Binary files a/source_code/shadowstar.o and b/source_code/shadowstar.o differ