バイナリートークンエンコードされた PostScript を元に戻す PostScript

ソース中に filter で変換されたコードやデータがある場合に未対応

#!/bin/sh
exec gs -q -dNODISPLAY -dBATCH -d#!='{2{currentfile 256 string readline{pop}if}repeat}' -- $0 "$@"
ARGUMENTS length 0 eq{
    (%stdin)
}{
    ARGUMENTS 0 get
}ifelse
(r)file /infile exch def

{infile token not {exit}if ==only( )print}loop

前にも書いた(id:yshl:20070515:1179199949)のを忘れてた