proctrans.php

application/octet-stream

Download

#!/usr/bin/php -q
<?php

$lines = file("/home/kaigai/repo/sepgsql/src/include/catalog/pg_proc.h");

foreach ($lines as $v) {
  if (ereg("^DATA\(", $v)) {
	$v = ereg_replace("[ ]+(f|t)[ ]+(f|t)[ ]+(f|t)[ ]+(f|t)[ ]+(i|s|v)[ ]+",
					  " \\1 \\2 t \\3 \\4 \\5 ", $v);
  }
  echo $v;
}
?>