diff options
author | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-11-18 17:32:16 +0000 |
---|---|---|
committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2002-11-18 17:32:16 +0000 |
commit | a6e5e26ddd13c4b374c11b9f4cb33b85692c1ea2 (patch) | |
tree | 90a049f91dfa1e3c22fcb024c9ffc6e6746851a2 /scripts/xface2xbm.in | |
parent | [w3m-dev 03447] Re: Open download list panel on new tab (diff) | |
download | w3m-a6e5e26ddd13c4b374c11b9f4cb33b85692c1ea2.tar.gz w3m-a6e5e26ddd13c4b374c11b9f4cb33b85692c1ea2.zip |
[w3m-dev 03448] Some fixes
* url.c (KeyAbort): SIGNAL_RETURN
* .cvsginore: delete w3mimgsize
* scripts/.cvsignore: delete xface2xbm
* scripts/xface2xbm.in: deleted
From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
Diffstat (limited to 'scripts/xface2xbm.in')
-rw-r--r-- | scripts/xface2xbm.in | 63 |
1 files changed, 0 insertions, 63 deletions
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); |