barad@brand.UUCP (Herb Barad) (03/26/86)
After getting many requests for unpit, I had Alan Weber repost his
program. While getting these requests, many people also requested
unxbin. I don't know who the original author was, but since the
sources are not too large (~6.5K), I am reposting it here.
Herb Barad
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# README
# 8to6.c
# crc.c
# gethead.c
# unrun.c
# unxbin
# This archive created: Wed Mar 26 09:27:20 1986
export PATH; PATH=/bin:$PATH
echo shar: extracting "'README'" '(1181 characters)'
if test -f 'README'
then
echo shar: will not over-write existing file "'README'"
else
sed 's/^ X//' << \SHAR_EOF > 'README'
XThese programs are a quick hack to convert *.{info,data,rsrc} files from
Xmacget back to something that xbin will accept. The only reason I wrote
Xthese was so that I could post version 4.5 of Switcher.
X
XThese files are in no way optimum, elegant, or pretty. In fact, they might
Xnot even be correct. If you need to do this sort of thing very often, you
Xshould obtain whatever it is everybody else uses ( and post it to the net so
Xthat I can get it! ).
X
XEnough blithering. Here is what is here:
X
X README This file
X
X gethead filter to turn *.info into
X a valid header
X
X crc writes crc of stdin on stdout
X
X unrun filter to change 0x90 into 0x90 0x00.
X needed because I don't do run length
X encoding, because this is all a kludge.
X
X 8to6 filter to convert 8 bit data stream into
X 6 bit data stream that xbin wants. Uses
X worst algorithm I could think of, so don't
X look at it, please!
X
X unxbin shell script to use the above stuff
X
XTo install:
X
X #!/bin/sh
X for i in gethead crc unrun 8to6
X do
X cc $i.c -o /where/you/want/it/in/your/path/$i
X done
X cp unxbin /some/where/in/your/path
X
XTo use:
X
X unxbin file # convert file.{info,data,rsrs} to file.hqx
SHAR_EOF
if test 1181 -ne "`wc -c < 'README'`"
then
echo shar: error transmitting "'README'" '(should have been 1181 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'8to6.c'" '(942 characters)'
if test -f '8to6.c'
then
echo shar: will not over-write existing file "'8to6.c'"
else
sed 's/^ X//' << \SHAR_EOF > '8to6.c'
X/*
X * Convert 8 bit data stream into 6 bit data stream.
X * The approach is very dumb, but I was in a hurry.
X */
X
X#include <stdio.h>
X
Xchar tr[]="!\"#$%&'()*+,-012345689@ABCDEFGHIJKLMNPQRSTUVXYZ[`abcdefhijklmpqr";
X
Xgetbit()
X{
X static int c, mask = 0x00;
X static int count;
X
X if ( mask == 0 ) {
X mask = 0x80; c = getchar();
X if ( c == EOF )
X if ( count % 3 == 0 )
X return -1;
X else
X c = 0; /* make everything come out even */
X count++;
X }
X if ( c & mask )
X {
X mask >>= 1; return 1;
X } else {
X mask >>= 1; return 0;
X }
X}
X
Xmain()
X{
X int bits = 0; int c;
X int count; int val;
X
X printf( "(This file must be converted with something)\n:" );
X count = 1;
X while ( ( val = getbit() ) != -1 )
X {
X c = c + c + val; bits++;
X if ( bits == 6 ) {
X bits = 0; putchar( tr[ c ] ); c = 0;
X if ( count++ > 62 ) {
X count = 0; putchar( '\n' );
X }
X }
X }
X if ( bits != 0 )
X write( 2, "no bits\n", 8 );
X putchar( ':' ); putchar( '\n' );
X}
SHAR_EOF
if test 942 -ne "`wc -c < '8to6.c'`"
then
echo shar: error transmitting "'8to6.c'" '(should have been 942 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'crc.c'" '(446 characters)'
if test -f 'crc.c'
then
echo shar: will not over-write existing file "'crc.c'"
else
sed 's/^ X//' << \SHAR_EOF > 'crc.c'
X/*
X * compute the crc used in .hqx files
X */
X#include <stdio.h>
X
Xint crc, temp;
X
Xmain()
X{
X int c;
X
X crc = 0;
X while ( ( c = getchar() ) != EOF )
X docrc( c );
X docrc(0); docrc(0);
X putchar( (crc>>8) & 0xff ); putchar( crc & 0xff );
X}
X
Xdocrc( c )
X int c;
X{
X register int i;
X temp = crc;
X for ( i = 0; i < 8; i++ )
X {
X c <<= 1;
X if ( (temp <<= 1) & 0x10000 )
X temp = (temp & 0xffff) ^ 0x1021;
X temp ^= (c >> 8);
X c &= 0xff;
X }
X crc = temp;
X}
SHAR_EOF
if test 446 -ne "`wc -c < 'crc.c'`"
then
echo shar: error transmitting "'crc.c'" '(should have been 446 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'gethead.c'" '(385 characters)'
if test -f 'gethead.c'
then
echo shar: will not over-write existing file "'gethead.c'"
else
sed 's/^ X//' << \SHAR_EOF > 'gethead.c'
X/*
X * filter to change a foo.info file into a proper header for a .hqx file
X */
X
Xchar head[ 128 ];
X
Xmain()
X{
X int n;
X
X read( 0, head, 128 );
X
X put( 1, 1 );
X
X for ( n = 0; n < head[1]; n++ )
X put( 1, n+2 );
X head[0] = 0; put( 1, 0 );
X put( 4, 65 ); put( 4, 69 );
X put( 2, 63 ); put( 4, 83 );
X put( 4, 87 );
X}
X
Xput( cnt, offset )
X{
X while ( cnt-- > 0 )
X putchar( head[ offset++ ] );
X}
SHAR_EOF
if test 385 -ne "`wc -c < 'gethead.c'`"
then
echo shar: error transmitting "'gethead.c'" '(should have been 385 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'unrun.c'" '(169 characters)'
if test -f 'unrun.c'
then
echo shar: will not over-write existing file "'unrun.c'"
else
sed 's/^ X//' << \SHAR_EOF > 'unrun.c'
X/*
X * remove run length problems
X */
X
X#include <stdio.h>
X
Xmain()
X{
X int c;
X while ( (c = getchar()) != EOF )
X {
X putchar( c );
X if ( c == 0x90 )
X putchar( 0 );
X }
X}
SHAR_EOF
if test 169 -ne "`wc -c < 'unrun.c'`"
then
echo shar: error transmitting "'unrun.c'" '(should have been 169 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'unxbin'" '(403 characters)'
if test -f 'unxbin'
then
echo shar: will not over-write existing file "'unxbin'"
else
sed 's/^ X//' << \SHAR_EOF > 'unxbin'
X:
X# convert foo.info, foo.data, foo.rsrc files to a single file suitable
X# for xbin
X
Xtrap "rm $TMP;echo aborted;exit" 1 2 3 15
XBASENAME=$1 # argument is name of file
XTMP=/tmp/unxbin$$
Xgethead < $BASENAME.info > /tmp/unxbin$$
Xcrc < $TMP >> $TMP
Xcat $BASENAME.data >> $TMP
Xcrc < $BASENAME.data >> $TMP
Xcat $BASENAME.rsrc >> $TMP
Xcrc < $BASENAME.rsrc >> $TMP
Xunrun < $TMP | 8to6 > $BASENAME.hqx
Xrm $TMP
SHAR_EOF
if test 403 -ne "`wc -c < 'unxbin'`"
then
echo shar: error transmitting "'unxbin'" '(should have been 403 characters)'
fi
chmod +x 'unxbin'
fi # end of overwriting check
# End of shell archive
exit 0
--
Herb Barad [USC - Signal and Image Processing Institute]
USENET:
...!sdcrdcf!usc-oberon!brand!barad or
...!{lbl-csam|trwrb|trwspp}!trwspf!herb or
...!{lbl-csam|trwrb|trwspp}!trwspf!brand!barad
ARPANET: barad%brand@usc-ecl.ARPA