てめえならどう書くよ、0.0.2α

ゆの in PostScript を書いていて思いついたのですが、Ghostscript では、% を付けてコメント化したコードを % を付けたまま実行してしまう命令を定義できる。(unread を使っているので、Ghostscript 限定)

/uncomment{
    1 dict begin
        /member?{
            false exch
            {
                2 index eq or
            }forall
            exch pop
        }def

        currentfile
        {
            dup read
            not{
                pop pop exit
            }if
            dup ( \n\r\t%) member? not{
                unread
                exit
            }if
            pop
        }loop
    end
}def

(ここは実行される\n) print
uncomment
 %%%(ここが実行されてしまう\n) print
(ここも当然実行される\n) print
%(ここは実行されない\n)print

ただし、{} の中では無効。

{
    uncomment
    % (ここは実行されない\n) print
}exec % (代わりにここが実行される\n) print