taichino.com

#!/usr/bin/perl
use strict;
use warnings;
use Perl6::Say;
use Text::Trim;
 
my $indentUnit = "  ";
my $currentIndent = 0;
while(<>) {
    my $line   = trim($_);
    my $delta  = countIndent($line);
    my $result = convertLine($line);
    if ($delta >= 0) {
        say $indentUnit x $currentIndent . $result if $result;
        $currentIndent += $delta;
    }
    else {
        $currentIndent += $delta;
        say $indentUnit x $currentIndent . $result if $result;
    }
}
 
sub countIndent {
    my $line = shift;
    my $indent = 0;
 
    # 1文字ずつ走査して{}でindentを増減させる
    my $inSQ = 0;    # in Single Quatation
    my $inDQ = 0;    # in Double Quatation
    for my $c (split(//, $line)) {
        if (!$inSQ and !$inDQ) {
            $indent++ if $c eq '{';
            $indent-- if $c eq '}';
        }
        $inSQ = !$inSQ if $c eq "'";
        $inDQ = !$inDQ if $c eq '"';
    }
 
    return $indent;
}
 
sub convertLine {
    my $line = shift;
 
    $line =~ s/^< \?php$//g;     # phpブロック開始削除
    $line =~ s/^\?>$//g;        # phpブロック終了削除
    $line =~ s/\s*;$//g;        # 行末のセミコロン削除
 
    # ブロックの処理
    $line =~ s/function (\w+)\(([^)]*)\)\s*{/def $1($2):/; # メソッド
    $line =~ s/if\s*\(([^)]+)\)\s*{/if $1:/;               # if
    $line =~ s/while\s*\(([^)]+)\)\s*{/while $1:/;         # while
    $line =~ s/^}$//g;                                     # 閉じブロック
 
    # 正規表現で変換しにくい部分を処理
    my $inSQ = 0;    # in Single Quatation
    my $inDQ = 0;    # in Double Quatation
    my $result = "";
    for my $c (split(//, $line)) {
        if (!$inSQ and !$inDQ) {
            # コーテーションの外側
            $result .= ($c eq '$') ? "" : $c;
        }
        else {
            # コーテーションの内側
            $result .= $c;
        }
    }
 
    return $result;
}

< ?php
# 以下のヒアドキュメント中のphpコードから
$code = <<< PHP
<?php if (\$if) /* if $if is true */ print "\$if"; ?>
PHP;
 
$tokens = token_get_all($code);
foreach ($tokens as $token) {
  if (is_array($token))
    print token_name($token[0]) . "\n";
}
/* 以下のような出力を得られる (T_WHITESPACEは消去)
    T_OPEN_TAG
    T_IF
    T_VARIABLE
    T_COMMENT
    T_PRINT
    T_CONSTANT_ENCAPSED_STRING
    T_CLOSE_TAG
 */
?>

class ProcessContext {
 
  # メンバ変数省略
  function __construct($file) {
 
  	# dispatcherに各ノードに対応したプロセッサを準備しておく
    $this->dispatcher = array(
          'AST:PHP_script'            => new NodeProcessor(),
          'AST:Statement_list'        => new StatementListProcessor(),
          'AST:Catch'                 => new CatchProcessor(),
		  # 途中省略
          'AST:Throw'                 => new ThrowProcessor(),
    );
    $dom = new DomDocument();
    $dom->preserveWhiteSpace = false;
    $dom->load($file);
    $this->dom = $dom;
  }
 
  public function start_process() {
    $this->process_node($this->dom->firstChild);
  }
 
  # このメソッドがメインメソッド
  function process_node($cur, $contextData=null) {
    if (!$cur->nodeName) { return; }
    $this->process_down($cur, $contextData);
    $this->process_node($cur->nextSibling, $contextData);
  }
  function process_down($cur, $contextData=null) {
    $processor = $this->dispatcher[$cur->nodeName];
    if (!$processor) { $processor = $this->defaultProcessor; }
    $processor->comment_process($cur, $this, $contextData);
    $done = $processor->pre_process($cur, $this, $contextData);
    if (!$done) {
      $this->process_node($cur->firstChild, $contextData);
    }
    $processor->post_process($cur, $this, $contextData);
  }
 
  # 残りのメンバメソッド省略
}

#!/usr/bin/php
< ?php
/**
 * 変換を意識したFizzBuzzです。
 * ただし変換後そのままでは動作しません
 */
class FizzBuzz {
 
  // メインルーチン
  function fizzbuzz() {
	while ($i++ < 100) {
	  $out = "";
	  if ($i % 3 == 0) $out  = 'Fizz';
	  if ($i % 5 == 0) {
		$out .= 'Buzz';
	  }
	  if ($out) {
		echo "$out" . "\n";
	  }
	  else {
		print "$i\n";
	  }
	}
  }
}
 
$fb = new FizzBuzz();
$fb->fizzbuzz();
?>

#!/usr/bin/python
#-*- coding: utf-8 -*-
"""*
 * 変換を意識したFizzBuzzです。
 * ただし変換後そのままでは動作しません
 """
 
class FizzBuzz:
  # メインルーチン
  def fizzbuzz():
    while i+=1<100:
      out = ""
      if i%3==0:
        out = "Fizz"
      if i%5==0:
        out+="Buzz"
      if out:
        print(""+out+""+"\n")
      else:
        print(""+i+"\n")
 
fb = FizzBuzz()
fb.fizzbuzz()