Changeset 14415 for dan

Timestamp:

06/22/08 17:05:21 (5 months ago)

Author:

yappo

Message:

組み込み関数の print を実行フェーズ中なのに動的に挙動を変えちゃう

Location:

dan/perl/PL_check/trunk

Files:

• hack.xs (modified) (5 diffs)
• test.pl (modified) (2 diffs)

dan/perl/PL_check/trunk/hack.xs

@@ -6 +6 @@
 
 #include "ppport.h"
+
+OP * next_hack(pTHX) {
+    PerlIO_printf(PerlIO_stderr(), "-- next_hack\n");
+    return PL_ppaddr[PL_op->op_type](aTHXR);// 今現在のオペコードのデフォルト実行関数を使うよ
+}
+
+OP * print_hack_ppaddr(pTHX) {
+    OP *next_op = PL_op;
+    PerlIO_printf(PerlIO_stderr(), "print_hack_ppaddr\n");
+
+    while ((next_op = next_op->op_next) != NULL) {
+        if (next_op->op_type == OP_PRINT) {
+            // 次のOP_PRINTの実行フェーズでhook仕掛ける
+            next_op->op_ppaddr = next_hack;
+            break;
+        }
+    }
+
+    return PL_ppaddr[OP_PRINT](aTHXR);
+}
 
 OP * next_hack_ppaddr(pTHX) {
@@ -21 +41 @@
 static OP *(*hack_old_method)(pTHX_ OP *op) = NULL;
 static OP *(*hack_old_method_named)(pTHX_ OP *op) = NULL;
+static OP *(*hack_old_print)(pTHX_ OP *op) = NULL;
 
 OP * hack_enterloop(pTHX_ OP *o) {
@@ -39 +60 @@
 OP * hack_next(pTHX_ OP *o) {
    PerlIO_printf(PerlIO_stderr(), "hack_next\n");
-   o->op_ppaddr = next_hack_ppaddr;
+   o->op_ppaddr = next_hack_ppaddr;// next 組み込み関数の挙動を変える
    return CALL_FPTR(hack_old_next)(aTHX_ o);
 }
@@ -61 +82 @@
    PerlIO_printf(PerlIO_stderr(), "hack_method_named\n");
    return CALL_FPTR(hack_old_method_named)(aTHX_ o);
+}
+
+OP * hack_print(pTHX_ OP *o) {
+   PerlIO_printf(PerlIO_stderr(), "hack_print\n");
+   o->op_ppaddr = print_hack_ppaddr;// print 組み込み関数の挙動を変える
+   return CALL_FPTR(hack_old_print)(aTHX_ o);
 }
 
@@ -105 +132 @@
           PL_check[OP_METHOD_NAMED] = hack_method_named;
 
+          hack_old_print     = PL_check[OP_PRINT];
+          PL_check[OP_PRINT] = hack_print;
+
           /*    
           hack_old_     = PL_check[OP_];

dan/perl/PL_check/trunk/test.pl

@@ -18 +18 @@
 
 #exit;
-warn "running";
+warn "---------------------\nRUNNING";
 
 so;
@@ -38 +38 @@
 for (1..2) {
 }
+
+warn "go to print hack";
+print "PRINT: 1\n";
+print "PRINT: 2\n";