diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/.cvsignore | 1 | ||||
| -rw-r--r-- | scripts/xface2xbm.in | 63 |
2 files changed, 0 insertions, 64 deletions
diff --git a/scripts/.cvsignore b/scripts/.cvsignore index bbc6509..443fc0c 100644 --- a/scripts/.cvsignore +++ b/scripts/.cvsignore @@ -5,5 +5,4 @@ w3mhelp-funcdesc.en.pl w3mhelp-funcdesc.ja.pl w3mhelp-funcname.pl w3mhelp-funcdesc-stamp -xface2xbm xface2xpm diff --git a/scripts/xface2xbm.in b/scripts/xface2xbm.in index 7d6bede..e69de29 100644 --- a/scripts/xface2xbm.in +++ b/scripts/xface2xbm.in @@ -1,63 +0,0 @@ -#!@PERL@ - -# compface/uncompface -# ftp://metalab.unc.edu/pub/Linux/apps/graphics/convert/ -$UNCOMPFACE = "uncompface"; - -$XF = @ARGV ? shift @ARGV : '-'; -$XBM = @ARGV ? shift @ARGV : '-'; - -open(XF, "<$XF"); -$xf = ""; -while(<XF>) { -# s/^X-Face://i if ($xf eq ""); - $xf .= $_; -} -close(XF); - -pipe(R, W2); -pipe(R2, W); -if (! fork()) { - close(R); - close(W); - open(STDIN, "<&R2"); - open(STDOUT, ">&W2"); - exec $UNCOMPFACE; - exit 1; -} -close(R2); -close(W2); -print W $xf; -close(W); -while(<R>) { - while(s/0x(..)(..)//) { - push(@bm, hex($1), hex($2)); - } -} -close(R); -@bm || exit 1; - -$W = 48; -$H = @bm * 8 / $W; # must be 48 -open(XBM, ">$XBM"); -print XBM <<EOF; -#define xf_width $W -#define xf_height $H -static char xf_bits[] = { -EOF -while (@bm) { - for (1..6) { - $x = shift @bm; - $y = 0; - for $i (1 .. 8) { - $y |= ($x & 1) << (8 - $i); - $x >>= 1; - } - printf XBM " 0x%02X,", $y; - } - print XBM "\n"; -} -print XBM <<EOF; -}; -EOF -close(XBM); |