🚀 go-pugleaf

In article <HOSOYA.92Aug31194008@daoo.kokusai-kogyo.CO.JP>
	hosoya@daoo.kokusai-kogyo.CO.JP (hosoya-ICE-) writes:

   $(OPENWINHOME)/bin/xview$B$K(Bconvertfont$B$H$$$&%3%^%s%I$,$"$k$s$G$9$,!"(B
   $B$3$N%3%^%s(B$B%I$O4A;z%U%)%s%H$N%3%s%P!<%H$O$&$^$/$$$+$J$$$h$&$G$9!#(B

$B4A;z%U%)%s%H(B$B$=$N$b$N$O%3%s%P!<%H$G$-$^$9$,!"(BENCODING $B$,4V0c$C(B
$B$?CM$K$J$C$F$7$^$$$^$9(B($B=PMh>e$,$C$?%U%)%s%H$r(B xfd $B$G8+$k$H$o(B
$B$+$k(B)$B!#(Bconvertfont $B$G$G$-$?(B bdf $B$r!"<!(B$B$N(B perl script $B$K$+$1(B
$B$k$H!";H$($k$h$&$K$J$j$^$9!#(B

$B$?$@$7!"$3$&$7$F$G$-$?(B$B%U%)%s%H$r!"(BX $BC<Kv$H$+$G;H$&$H%i%$%;%s(B
$B%90cH?$K$J$k$+$bCN$l$^$;$s!#(B

				$B$_$s$_$s(B@$B%"%9%F%C%/(B

#!/usr/local/bin/perl

$row = 0x21;
$column = 0x22;

while (<>) {
    if (/^ENCODING\s+\S+$/) {
	printf "ENCODING %d\n", ($row << 8) + $column;
	if (++$column > 0x7e) {
	    $column = 0x21;
	    ++$row;
	}
    }
    else {
	print;
    }
}