allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) (11/27/89)
Posting-number: Volume 9, Issue 18
Submitted-by: jef@helios.ee.lbl.gov (Jef Poskanzer)
Archive-name: pbmplus/part02
#! /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:
# pbm/Makefile
# pbm/Imakefile
# pbm/pbm.h
# pbm/icontopbm.c
# pbm/icontopbm.1
# pbm/macptopbm.c
# pbm/macptopbm.1
# pbm/rasttopbm.c
# pbm/rasttopbm.1
# pbm/xbmtopbm.c
# pbm/xbmtopbm.1
# pbm/xwdtopbm.c
# This archive created: Wed Nov 22 22:55:10 1989
# By: Jef Poskanzer (Paratheo-Anametamystikhood Of Eris Esoteric, Ada Lovelace Cabal)
export PATH; PATH=/bin:$PATH
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/Makefile'" '(4089 characters)'
if test -f 'pbm/Makefile'
then
echo shar: will not over-write existing file "'pbm/Makefile'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/Makefile'
X# Makefile for pbm tools.
X#
X# Copyright (C) 1989 by Jef Poskanzer.
X#
X# Permission to use, copy, modify, and distribute this software and its
X# documentation for any purpose and without fee is hereby granted, provided
X# that the above copyright notice appear in all copies and that both that
X# copyright notice and this permission notice appear in supporting
X# documentation. This software is provided "as is" without express or
X# implied warranty.
X
X# Default values, usually overridden by top-level Makefile.
X# CC = cc
XCC = gcc -fcombine-regs
X# CFLAGS =
X# CFLAGS = -g
XCFLAGS = -O
X# CFLAGS = -g -O
XLDFLAGS = -s
X# LDFLAGS =
XINSTALLBINARIES = /usr/new/pbm
XINSTALLMANUALS1 = /usr/man/mann
XINSTALLMANUALS3 = /usr/man/mann
XINSTALLMANUALS5 = /usr/man/mann
X
XSHELL = /bin/sh
XALLCFLAGS = $(CFLAGS)
XLIBPBM = libpbm.a
X
XBINARIES = brushtopbm cmuwmtopbm g3topbm icontopbm gemtopbm macptopbm \
X mgrtopbm pbmlife pbmmake pbmmask pbmpaste pbmreduce \
X pbmtoascii pbmtobbnbg pbmtocmuwm pbmtog3 pbmtogo pbmtoicon \
X pbmtolj pbmtomacp pbmtomgr pbmtoptx pbmtorast pbmtox10bm \
X pbmtoxbm pbmtoxwd pbmupc pcxtopbm picttopbm rasttopbm xbmtopbm \
X xwdtopbm
X
XMANUALS1 = brushtopbm.1 cmuwmtopbm.1 g3topbm.1 icontopbm.1 \
X gemtopbm.1 macptopbm.1 mgrtopbm.1 \
X pbmlife.1 pbmmake.1 pbmmask.1 pbmpaste.1 \
X pbmreduce.1 pbmtoascii.1 pbmtobbnbg.1 pbmtocmuwm.1 pbmtog3.1 \
X pbmtogo.1 pbmtoicon.1 pbmtolj.1 pbmtomacp.1 pbmtomgr.1 \
X pbmtoptx.1 pbmtorast.1 pbmtox10bm.1 pbmtoxbm.1 \
X pbmtoxwd.1 pbmupc.1 pcxtopbm.1 picttopbm.1 rasttopbm.1 \
X xbmtopbm.1 xwdtopbm.1
XMANUALS3 = libpbm.3
XMANUALS5 = pbm.5
X
Xall: binaries
X
Xinstall: installbinaries installmanuals
X# install: installbinaries
X
Xbinaries: $(BINARIES)
X
Xinstallbinaries: binaries
X cp $(BINARIES) $(INSTALLBINARIES)
X
Xinstallmanuals:
X cp $(MANUALS1) $(INSTALLMANUALS1)
X cp $(MANUALS3) $(INSTALLMANUALS3)
X cp $(MANUALS5) $(INSTALLMANUALS5)
X
X# Rule for plain programs.
X$(BINARIES): pbm.h ../pbmplus.h $(LIBPBM)
X $(CC) $(ALLCFLAGS) $(LDFLAGS) -o $@ $@.c $(LIBPBM)
X
X# And library.
X$(LIBPBM): libpbm1.o libpbm2.o libpbm3.o libpbm4.o libpbm5.o
X -rm $(LIBPBM)
X ar rc $(LIBPBM) libpbm1.o libpbm2.o libpbm3.o libpbm4.o libpbm5.o
X -ranlib $(LIBPBM)
X
Xlibpbm1.o: pbm.h ../pbmplus.h libpbm.h libpbm1.c
X $(CC) $(ALLCFLAGS) -c libpbm1.c
Xlibpbm2.o: pbm.h ../pbmplus.h libpbm.h libpbm2.c
X $(CC) $(ALLCFLAGS) -c libpbm2.c
Xlibpbm3.o: pbm.h ../pbmplus.h libpbm.h libpbm3.c
X $(CC) $(ALLCFLAGS) -c libpbm3.c
Xlibpbm4.o: pbm.h ../pbmplus.h libpbm.h libpbm4.c
X $(CC) $(ALLCFLAGS) -c libpbm4.c
Xlibpbm5.o: pbm.h ../pbmplus.h rast.h libpbm5.c
X $(CC) $(ALLCFLAGS) -c libpbm5.c
X
X# Other dependencies.
Xbrushtopbm: brushtopbm.c
Xcmuwmtopbm: cmuwmtopbm.c cmuwm.h
Xg3topbm: g3topbm.c g3.h
Xicontopbm: icontopbm.c
Xgemtopbm: gemtopbm.c
Xmacptopbm: macptopbm.c macp.h
Xmgrtopbm: mgrtopbm.c mgr.h
Xpbmlife: pbmlife.c
Xpbmmake: pbmmake.c
Xpbmmask: pbmmask.c
Xpbmpaste: pbmpaste.c
Xpbmreduce: pbmreduce.c
Xpbmtoascii: pbmtoascii.c
Xpbmtobbnbg: pbmtobbnbg.c
Xpbmtocmuwm: pbmtocmuwm.c cmuwm.h
Xpbmtog3: pbmtog3.c g3.h
Xpbmtogo: pbmtogo.c
Xpbmtoicon: pbmtoicon.c
Xpbmtolj: pbmtolj.c
Xpbmtomacp: pbmtomacp.c macp.h
Xpbmtomgr: pbmtomgr.c mgr.h
Xpbmtoptx: pbmtoptx.c
Xpbmtorast: pbmtorast.c rast.h
Xpbmtox10bm: pbmtox10bm.c
Xpbmtoxbm: pbmtoxbm.c
Xpbmtoxwd: pbmtoxwd.c x11wd.h
Xpbmupc: pbmupc.c
Xpcxtopbm: pcxtopbm.c
Xpicttopbm: picttopbm.c pict.h
Xrasttopbm: rasttopbm.c rast.h
Xxbmtopbm: xbmtopbm.c
Xxwdtopbm: xwdtopbm.c x11wd.h x10wd.h
X
Xclean:
X -rm -f *.o *.a *.cat core $(BINARIES)
X
X
X# Imakefile stuff. Ignore if you're not an X11 type.
X
X TOP = ../../../../../../usr/src/new/X11
X
X RM = rm -f
X MV = mv
X UTILSRC = $(TOP)/util
X IMAKESRC = $(UTILSRC)/imake
X IRULESRC = $(UTILSRC)/imake.includes
X IMAKE = $(IMAKESRC)/imake
X IMAKE_DEFINES =
X IMAKE_CMD = $(NEWTOP)$(IMAKE) -TImake.tmpl -I$(NEWTOP)$(IRULESRC) \
X -s Makefile $(IMAKE_DEFINES)
XMakefile: Imakefile
X -@if [ -f Makefile ]; then \
X echo "$(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \
X $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \
X else exit 0; fi
X $(IMAKE_CMD) -DTOPDIR=$(TOP)
X
XMakefiles:
SHAR_EOF
if test 4089 -ne "`wc -c < 'pbm/Makefile'`"
then
echo shar: error transmitting "'pbm/Makefile'" '(should have been 4089 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/Imakefile'" '(2096 characters)'
if test -f 'pbm/Imakefile'
then
echo shar: will not over-write existing file "'pbm/Imakefile'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/Imakefile'
X# Imakefile for pbm tools.
X#
X# Copyright (C) 1989 by Jef Poskanzer.
X#
X# Permission to use, copy, modify, and distribute this software and its
X# documentation for any purpose and without fee is hereby granted, provided
X# that the above copyright notice appear in all copies and that both that
X# copyright notice and this permission notice appear in supporting
X# documentation. This software is provided "as is" without express or
X# implied warranty.
X
XALLCFLAGS = $(CFLAGS)
XLIBPBM = libpbm.a
X
XBINARIES = brushtopbm cmuwmtopbm g3topbm icontopbm gemtopbm macptopbm \
X mgrtopbm pbmlife pbmmake pbmmask pbmpaste pbmreduce \
X pbmtoascii pbmtobbnbg pbmtocmuwm pbmtog3 pbmtogo pbmtoicon \
X pbmtolj pbmtomacp pbmtomgr pbmtoptx pbmtorast pbmtox10bm \
X pbmtoxbm pbmtoxwd pbmupc pcxtopbm picttopbm rasttopbm xbmtopbm \
X xwdtopbm
X
XMANUALS1 = brushtopbm.1 cmuwmtopbm.1 g3topbm.1 icontopbm.1 \
X gemtopbm.1 macptopbm.1 mgrtopbm.1 \
X pbmlife.1 pbmmake.1 pbmmask.1 pbmpaste.1 \
X pbmreduce.1 pbmtoascii.1 pbmtobbnbg.1 pbmtocmuwm.1 pbmtog3.1 \
X pbmtogo.1 pbmtoicon.1 pbmtolj.1 pbmtomacp.1 pbmtomgr.1 \
X pbmtoptx.1 pbmtorast.1 pbmtox10bm.1 pbmtoxbm.1 \
X pbmtoxwd.1 pbmupc.1 pcxtopbm.1 picttopbm.1 rasttopbm.1 \
X xbmtopbm.1 xwdtopbm.1
XMANUALS3 = libpbm.3
XMANUALS5 = pbm.5
X
Xall: $(BINARIES)
X
Xinstall:: all
X cp $(BINARIES) $(BINDIR)
X
Xinstall.man::
X cp $(MANUALS1) $(MANUALS3) $(MANUALS5) $(MANDIR)
X
X# Rule for plain programs.
X$(BINARIES): pbm.h ../pbmplus.h $(LIBPBM)
X $(CC) $(ALLCFLAGS) $(LDFLAGS) -o $@ $@.c $(LIBPBM)
X
X# And library.
X$(LIBPBM): libpbm1.o libpbm2.o libpbm3.o libpbm4.o libpbm5.o
X -rm $(LIBPBM)
X ar rc $(LIBPBM) libpbm1.o libpbm2.o libpbm3.o libpbm4.o libpbm5.o
X -ranlib $(LIBPBM)
X
Xlibpbm1.o: pbm.h ../pbmplus.h libpbm.h libpbm1.c
X $(CC) $(ALLCFLAGS) -c libpbm1.c
Xlibpbm2.o: pbm.h ../pbmplus.h libpbm.h libpbm2.c
X $(CC) $(ALLCFLAGS) -c libpbm2.c
Xlibpbm3.o: pbm.h ../pbmplus.h libpbm.h libpbm3.c
X $(CC) $(ALLCFLAGS) -c libpbm3.c
Xlibpbm4.o: pbm.h ../pbmplus.h libpbm.h libpbm4.c
X $(CC) $(ALLCFLAGS) -c libpbm4.c
Xlibpbm5.o: pbm.h ../pbmplus.h rast.h libpbm5.c
X $(CC) $(ALLCFLAGS) -c libpbm5.c
SHAR_EOF
if test 2096 -ne "`wc -c < 'pbm/Imakefile'`"
then
echo shar: error transmitting "'pbm/Imakefile'" '(should have been 2096 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/pbm.h'" '(940 characters)'
if test -f 'pbm/pbm.h'
then
echo shar: will not over-write existing file "'pbm/pbm.h'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/pbm.h'
X/* pbm.h - header file for libpbm portable bitmap library
X*/
X
X#ifndef _PBM_H_
X#define _PBM_H_
X
X#include "../pbmplus.h"
X
Xtypedef unsigned char bit;
X#define PBM_WHITE 0
X#define PBM_BLACK 1
X
X/* Declarations of routines. */
X
X#define pbm_allocarray( cols, rows ) ((bit **) pm_allocarray( cols, rows, sizeof(bit) ))
X#define pbm_allocrow( cols ) ((bit *) pm_allocrow( cols, sizeof(bit) ))
X#define pbm_freearray( bitrow, rows ) pm_freearray( bitrow, rows )
X#define pbm_freerow( bitrow ) pm_freerow( bitrow )
X
Xbit **pbm_readpbm( /* FILE *file, int *colsP, int *rowsP */ );
Xvoid pbm_readpbminit( /* FILE *file, int *colsP, int *rowsP, int *formatP */ );
Xvoid pbm_readpbmrow( /* FILE *file, bit *bitrow, int cols, int format */ );
X
Xvoid pbm_writepbm( /* FILE *file, bit **bits, int cols, int rows */ );
Xvoid pbm_writepbminit( /* FILE *file, int cols, int rows */ );
Xvoid pbm_writepbmrow( /* FILE *file, bit *bitrow, int cols */ );
X
X#endif /*_PBM_H_*/
SHAR_EOF
if test 940 -ne "`wc -c < 'pbm/pbm.h'`"
then
echo shar: error transmitting "'pbm/pbm.h'" '(should have been 940 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/icontopbm.c'" '(3462 characters)'
if test -f 'pbm/icontopbm.c'
then
echo shar: will not over-write existing file "'pbm/icontopbm.c'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/icontopbm.c'
X/* icontopbm.c - read a Sun icon file and produce a portable bitmap
X**
X** Copyright (C) 1988 by Jef Poskanzer.
X**
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted, provided
X** that the above copyright notice appear in all copies and that both that
X** copyright notice and this permission notice appear in supporting
X** documentation. This software is provided "as is" without express or
X** implied warranty.
X*/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include "pbm.h"
X
Xmain( argc, argv )
Xint argc;
Xchar *argv[];
X {
X FILE *ifd;
X register bit *bitrow, *bP;
X int rows, cols, row, col, shortcount, mask;
X short *data;
X
X pm_progname = argv[0];
X
X if ( argc > 2 )
X pm_usage( "[iconfile]" );
X
X if ( argc == 2 )
X ifd = pm_openr( argv[1] );
X else
X ifd = stdin;
X
X ReadIconFile( ifd, &cols, &rows, &data );
X
X pm_close( ifd );
X
X pbm_writepbminit( stdout, cols, rows );
X bitrow = pbm_allocrow( cols );
X
X for ( row = 0; row < rows; row++ )
X {
X shortcount = 0;
X mask = 0x8000;
X for ( col = 0, bP = bitrow; col < cols; col++, bP++ )
X {
X if ( shortcount >= 16 )
X {
X data++;
X shortcount = 0;
X mask = 0x8000;
X }
X *bP = ( *data & mask ) ? PBM_BLACK : PBM_WHITE;
X shortcount++;
X mask = mask >> 1;
X }
X data++;
X pbm_writepbmrow( stdout, bitrow, cols );
X }
X
X exit( 0 );
X }
X
X
X/* size in bytes of a bitmap */
X#define BitmapSize(width, height) (((((width) + 15) >> 3) &~ 1) * (height))
X
XReadIconFile( file, width, height, data )
XFILE *file;
Xint *width, *height;
Xshort **data;
X {
X char variable[81], ch;
X int status, value, i, data_length, gotsome;
X
X gotsome = 0;
X *width = *height = -1;
X for ( ; ; )
X {
X while ( ( ch = getc( file ) ) == ',' || ch == '\n' || ch == '\t' ||
X ch == ' ' )
X ;
X for ( i = 0;
X ch != '=' && ch != ',' && ch != '\n' && ch != '\t' && ch != ' ';
X i++ )
X {
X variable[i] = ch;
X ch = getc( file );
X }
X variable[i] = '\0';
X
X if ( strcmp( variable, "*/" ) == 0 && gotsome )
X break;
X
X if ( fscanf( file, "%d", &value ) != 1 )
X continue;
X
X if ( strcmp( variable, "Width" ) == 0 )
X {
X *width = value;
X gotsome = 1;
X }
X else if ( strcmp( variable, "Height" ) == 0 )
X {
X *height = value;
X gotsome = 1;
X }
X else if ( strcmp( variable, "Depth" ) == 0 )
X {
X if ( value != 1 )
X pm_error( "invalid depth", 0,0,0,0,0 );
X gotsome = 1;
X }
X else if ( strcmp( variable, "Format_version" ) == 0 )
X {
X if ( value != 1 )
X pm_error( "invalid Format_version", 0,0,0,0,0 );
X gotsome = 1;
X }
X else if ( strcmp( variable, "Valid_bits_per_item" ) == 0 )
X {
X if ( value != 16 )
X pm_error( "invalid Valid_bits_per_item", 0,0,0,0,0 );
X gotsome = 1;
X }
X }
X
X if ( *width <= 0 )
X pm_error( "invalid width: %d", *width, 0,0,0,0 );
X if ( *height <= 0 )
X pm_error( "invalid height: %d", *height, 0,0,0,0 );
X
X data_length = BitmapSize( *width, *height );
X *data = (short *) malloc( data_length );
X if ( *data == NULL )
X pm_error( "out of memory", 0,0,0,0,0 );
X data_length /= sizeof( short );
X
X for ( i = 0 ; i < data_length; i++ )
X {
X if ( i == 0 )
X status = fscanf( file, " 0x%4hx", *data );
X else
X status = fscanf( file, ", 0x%4hx", *data + i );
X if ( status != 1 )
X pm_error( "error 4 scanning bits item", 0,0,0,0,0 );
X }
X }
SHAR_EOF
if test 3462 -ne "`wc -c < 'pbm/icontopbm.c'`"
then
echo shar: error transmitting "'pbm/icontopbm.c'" '(should have been 3462 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/icontopbm.1'" '(664 characters)'
if test -f 'pbm/icontopbm.1'
then
echo shar: will not over-write existing file "'pbm/icontopbm.1'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/icontopbm.1'
X.TH icontopbm 1 "31 August 1988"
X.SH NAME
Xicontopbm - convert a Sun icon into a portable bitmap
X.SH SYNOPSIS
Xicontopbm [iconfile]
X.SH DESCRIPTION
XReads a Sun icon as input.
XProduces a portable bitmap as output.
X.SH "SEE ALSO"
Xpbmtoicon(1), pbm(5)
X.SH AUTHOR
XCopyright (C) 1988 by Jef Poskanzer.
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted, provided
Xthat the above copyright notice appear in all copies and that both that
Xcopyright notice and this permission notice appear in supporting
Xdocumentation. This software is provided "as is" without express or
Ximplied warranty.
SHAR_EOF
if test 664 -ne "`wc -c < 'pbm/icontopbm.1'`"
then
echo shar: error transmitting "'pbm/icontopbm.1'" '(should have been 664 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/macptopbm.c'" '(3436 characters)'
if test -f 'pbm/macptopbm.c'
then
echo shar: will not over-write existing file "'pbm/macptopbm.c'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/macptopbm.c'
X/* macptopbm.c - read a MacPaint file and produce a portable bitmap
X**
X** Copyright (C) 1988 by Jef Poskanzer.
X**
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted, provided
X** that the above copyright notice appear in all copies and that both that
X** copyright notice and this permission notice appear in supporting
X** documentation. This software is provided "as is" without express or
X** implied warranty.
X*/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include "pbm.h"
X#include "macp.h"
X#ifdef SYSV
X#include <string.h>
X#else /*SYSV*/
X#include <strings.h>
X#endif /*SYSV*/
X
X#define max(a,b) ((a) > (b) ? (a) : (b))
X
Xmain( argc, argv )
Xint argc;
Xchar *argv[];
X {
X FILE *ifd;
X unsigned char Pic[MAX_LINES][BYTES_WIDE];
X register bit *bitrow;
X int argn, extraskip, scanLine, rows, cols, row, bcol, i;
X char *usage = "[-extraskip <n>] [macpfile]";
X
X pm_progname = argv[0];
X
X argn = 1;
X extraskip = 0;
X
X /* Check for flags. */
X if ( argn < argc && argv[argn][0] == '-' )
X {
X if ( strncmp(argv[argn],"-extraskip",max(strlen(argv[argn]),2)) == 0 )
X {
X argn++;
X if ( argn == argc || sscanf( argv[argn], "%d", &extraskip ) != 1 )
X pm_usage( usage );
X }
X else
X pm_usage( usage );
X argn++;
X }
X
X if ( argn < argc )
X {
X ifd = pm_openr( argv[argn] );
X argn++;
X }
X else
X ifd = stdin;
X
X if ( argn != argc )
X pm_usage( usage );
X
X ReadMacPaintFile( ifd, extraskip, &scanLine, Pic );
X
X pm_close( ifd );
X
X cols = BYTES_WIDE * 8;
X rows = scanLine;
X pbm_writepbminit( stdout, cols, rows );
X bitrow = pbm_allocrow( cols );
X
X for ( row = 0; row < rows; row++ )
X {
X for ( bcol = 0; bcol < BYTES_WIDE; bcol++ )
X for ( i = 0; i < 8; i++ )
X bitrow[bcol * 8 + i] =
X ( (Pic[row][bcol] >> (7 - i)) & 1 ) ? PBM_BLACK : PBM_WHITE;
X pbm_writepbmrow( stdout, bitrow, cols );
X }
X
X exit( 0 );
X }
X
X/*
X** Some of the following routine is:
X**
X** Copyright 1987 by Patrick J. Naughton
X** All Rights Reserved
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted,
X** provided that the above copyright notice appear in all copies and that
X** both that copyright notice and this permission notice appear in
X** supporting documentation.
X*/
X
XReadMacPaintFile( file, extraskip, scanLineP, Pic )
XFILE *file;
Xint extraskip, *scanLineP;
Xunsigned char Pic[MAX_LINES][BYTES_WIDE];
X {
X unsigned int i, j, k;
X unsigned char ch;
X
X /* Skip over the header. */
X for ( i = 0; i < extraskip; i++ )
X getc( file );
X for ( i = 0; i < HEADER_LENGTH; i++ )
X getc( file );
X
X *scanLineP = 0;
X k = 0;
X
X while ( *scanLineP < MAX_LINES )
X {
X ch = (unsigned char) getc( file ); /* Count byte */
X i = (unsigned int) ch;
X if ( ch < 0x80 )
X { /* Unpack next (I+1) chars as is */
X for ( j = 0; j <= i; j++ )
X if ( *scanLineP < MAX_LINES )
X {
X Pic[*scanLineP][k++] = (unsigned char) getc( file );
X if ( ! (k %= BYTES_WIDE) )
X *scanLineP += 1;
X }
X }
X else
X { /* Repeat next char (2's comp I) times */
X ch = getc( file );
X for ( j = 0; j <= 256 - i; j++ )
X if ( *scanLineP < MAX_LINES )
X {
X Pic[*scanLineP][k++] = (unsigned char) ch;
X if ( ! (k %= BYTES_WIDE) )
X *scanLineP += 1;
X }
X }
X }
X }
SHAR_EOF
if test 3436 -ne "`wc -c < 'pbm/macptopbm.c'`"
then
echo shar: error transmitting "'pbm/macptopbm.c'" '(should have been 3436 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/macptopbm.1'" '(1652 characters)'
if test -f 'pbm/macptopbm.1'
then
echo shar: will not over-write existing file "'pbm/macptopbm.1'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/macptopbm.1'
X.TH macptopbm 1 "29 March 1989"
X.SH NAME
Xmacptopbm - convert a MacPaint file into a portable bitmap
X.SH SYNOPSIS
Xmacptopbm [-extraskip <n>] [macpfile]
X.SH DESCRIPTION
XReads a MacPaint file as input.
XProduces a portable bitmap as output.
X.PP
XThe -extraskip flag is to get around a problem with some methods
Xof transfering files from the Mac world to the Unix world.
XMost of these methods leave the Mac files alone, but a few of
Xthem add the "finderinfo" data onto the front of the Unix file.
XThis means an extra 128 bytes to skip over when reading the file.
XThe symptom to watch for is that the resulting PBM file looks shifted
Xto one side.
XIf you get this, try -e 128, and if that still doesn't look right
Xtry another value.
X.PP
XAll flags can be abbreviated to their shortest unique prefix.
X.SH "SEE ALSO"
Xpicttopbm(1), pbmtomacp(1), pbm(5)
X.SH AUTHOR
XCopyright (C) 1988 by Jef Poskanzer.
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted, provided
Xthat the above copyright notice appear in all copies and that both that
Xcopyright notice and this permission notice appear in supporting
Xdocumentation. This software is provided "as is" without express or
Ximplied warranty.
X
XThe MacPaint-reading code is
XCopyright (c) 1987 by Patrick J. Naughton
X(naughton@wind.sun.com)
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted,
Xprovided that the above copyright notice appear in all copies and that
Xboth that copyright notice and this permission notice appear in
Xsupporting documentation.
SHAR_EOF
if test 1652 -ne "`wc -c < 'pbm/macptopbm.1'`"
then
echo shar: error transmitting "'pbm/macptopbm.1'" '(should have been 1652 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/rasttopbm.c'" '(2608 characters)'
if test -f 'pbm/rasttopbm.c'
then
echo shar: will not over-write existing file "'pbm/rasttopbm.c'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/rasttopbm.c'
X/* rasttopbm.c - read a Sun raster file and produce a portable bitmap
X**
X** Copyright (C) 1988 by Jef Poskanzer.
X**
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted, provided
X** that the above copyright notice appear in all copies and that both that
X** copyright notice and this permission notice appear in supporting
X** documentation. This software is provided "as is" without express or
X** implied warranty.
X*/
X
X#include <stdio.h>
X#include "pbm.h"
X#include "rast.h"
X
Xmain( argc, argv )
Xint argc;
Xchar *argv[];
X {
X FILE *ifd;
X struct rasterfile header;
X struct pixrect *pr, *pr_load_image();
X register bit *bitrow, *bP;
X int rows, cols, row, col, mask;
X int linesize;
X unsigned char *data, *byteP;
X
X pm_progname = argv[0];
X
X if ( argc > 2 )
X pm_usage( "[rastfile]" );
X
X if ( argc == 2 )
X ifd = pm_openr( argv[1] );
X else
X ifd = stdin;
X
X /* Read in the raster file. First the header. */
X if ( pr_load_header( ifd, &header ) != 0 )
X pm_error( "unable to read in raster file header", 0,0,0,0,0 );
X
X /* PBM can only handle monochrome bitmaps. */
X if ( header.ras_depth != 1 )
X pm_error(
X "invalid depth %d - PBM can only handle depth 1",
X header.ras_depth, 0,0,0,0 );
X
X cols = header.ras_width;
X rows = header.ras_height;
X if ( cols <= 0 )
X pm_error( "invalid cols: %d", cols, 0,0,0,0 );
X if ( rows <= 0 )
X pm_error( "invalid rows: %d", rows, 0,0,0,0 );
X
X /* If there is a color map (there shouldn't be), skip over it. */
X if ( header.ras_maptype != RMT_NONE || header.ras_maplength != 0 )
X {
X if ( pr_load_colormap( ifd, &header, NULL ) != 0 )
X pm_error( "unable to skip colormap data", 0,0,0,0,0 );
X }
X
X /* Now load the data. The pixrect returned is a memory pixrect. */
X if ( (pr = pr_load_image( ifd, &header, NULL )) == NULL )
X pm_error(
X "unable to read in the image from the raster file", 0,0,0,0,0 );
X
X linesize = ( (struct mpr_data *) pr->pr_data )->md_linebytes;
X data = ( (struct mpr_data *) pr->pr_data )->md_image;
X
X pm_close( ifd );
X
X /* Now write out the PBM. */
X pbm_writepbminit( stdout, cols, rows );
X bitrow = pbm_allocrow( cols );
X
X for ( row = 0; row < rows; row++ )
X {
X byteP = data;
X mask = 0x80;
X for ( col = 0, bP = bitrow; col < cols; col++, bP++ )
X {
X if ( mask == 0 )
X {
X byteP++;
X mask = 0x80;
X }
X *bP = ( *byteP & mask ) ? PBM_BLACK : PBM_WHITE;
X mask = mask >> 1;
X }
X data += linesize;
X pbm_writepbmrow( stdout, bitrow, cols );
X }
X
X exit( 0 );
X }
SHAR_EOF
if test 2608 -ne "`wc -c < 'pbm/rasttopbm.c'`"
then
echo shar: error transmitting "'pbm/rasttopbm.c'" '(should have been 2608 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/rasttopbm.1'" '(1225 characters)'
if test -f 'pbm/rasttopbm.1'
then
echo shar: will not over-write existing file "'pbm/rasttopbm.1'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/rasttopbm.1'
X.TH rasttopbm 1 "31 August 1988"
X.SH NAME
Xrasttopbm - convert a Sun raster file into a portable bitmap
X.SH SYNOPSIS
Xrasttopbm [rastfile]
X.SH DESCRIPTION
XReads a Sun raster file as input.
XProduces a portable bitmap as output.
XNOTE: since it uses Sun-specific include files and libraries, pbmtorast
Xwill compile only on Suns.
X.PP
XUsing this program you can convert anything you can see on a Sun screen
Xinto a pbm bitmap.
XJust display whatever you're interested in, do a screendump, run it through
Xrasttopbm, and then use pnmcut to select the part you want.
X.PP
XThe rasttoppm filter handles color images in addition to providing the same
Xfunctionality as rasttopbm; but rasttopbm is worth keeping, since
Xit is significantly faster.
X.SH "SEE ALSO"
Xpbmtorast(1), pbm(5), rasttoppm(1), ppmtorast(1)
X.SH AUTHOR
XBarry Klawans
X
XCopyright (C) 1988 by Jef Poskanzer.
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted, provided
Xthat the above copyright notice appear in all copies and that both that
Xcopyright notice and this permission notice appear in supporting
Xdocumentation. This software is provided "as is" without express or
Ximplied warranty.
SHAR_EOF
if test 1225 -ne "`wc -c < 'pbm/rasttopbm.1'`"
then
echo shar: error transmitting "'pbm/rasttopbm.1'" '(should have been 1225 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/xbmtopbm.c'" '(5039 characters)'
if test -f 'pbm/xbmtopbm.c'
then
echo shar: will not over-write existing file "'pbm/xbmtopbm.c'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/xbmtopbm.c'
X/* xbmtopbm.c - read an X bitmap file and produce a portable bitmap
X**
X** Copyright (C) 1988 by Jef Poskanzer.
X**
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted, provided
X** that the above copyright notice appear in all copies and that both that
X** copyright notice and this permission notice appear in supporting
X** documentation. This software is provided "as is" without express or
X** implied warranty.
X*/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include "pbm.h"
X
Xmain( argc, argv )
Xint argc;
Xchar *argv[];
X {
X FILE *ifd;
X register bit *bitrow, *bP;
X int rows, cols, row, col, charcount;
X char *data, mask;
X
X pm_progname = argv[0];
X
X if ( argc > 2 )
X pm_usage( "[bitmapfile]" );
X
X if ( argc == 2 )
X ifd = pm_openr( argv[1] );
X else
X ifd = stdin;
X
X ReadBitmapFile( ifd, &cols, &rows, &data );
X
X pm_close( ifd );
X
X pbm_writepbminit( stdout, cols, rows );
X bitrow = pbm_allocrow( cols );
X
X for ( row = 0; row < rows; row++ )
X {
X charcount = 0;
X mask = 1;
X for ( col = 0, bP = bitrow; col < cols; col++, bP++ )
X {
X if ( charcount >= 8 )
X {
X data++;
X charcount = 0;
X mask = 1;
X }
X *bP = ( *data & mask ) ? PBM_BLACK : PBM_WHITE;
X charcount++;
X mask = mask << 1;
X }
X data++;
X pbm_writepbmrow( stdout, bitrow, cols );
X }
X
X exit( 0 );
X }
X
X#ifdef SYSV
X#include <string.h>
X#define rindex strrchr
X#else /*SYSV*/
X#include <strings.h>
X#endif /*SYSV*/
X
X#define MAX_LINE 500
X
XReadBitmapFile( stream, widthP, heightP, dataP )
XFILE *stream;
Xint *widthP, *heightP;
Xchar **dataP;
X {
X char line[MAX_LINE], name_and_type[MAX_LINE];
X char *ptr, *t;
X int version10, raster_length, v;
X register int bytes, bytes_per_line, padding;
X register int c1, c2, value1, value2;
X static int hex_table[256];
X
X *widthP = *heightP = -1;
X
X for ( ; ; )
X {
X if ( fgets( line, MAX_LINE, stream ) == NULL )
X pm_error( "premature EOF", 0,0,0,0,0 );
X if ( strlen( line ) == MAX_LINE - 1 )
X pm_error( "line too long", 0,0,0,0,0 );
X
X if ( sscanf( line, "#define %s %d", name_and_type, &v ) == 2 )
X {
X if ( ! (t = rindex( name_and_type, '_' )) )
X t = name_and_type;
X else
X t++;
X if ( ! strcmp( "width", t ) )
X *widthP = v;
X if ( ! strcmp( "height", t ) )
X *heightP = v;
X continue;
X }
X
X if ( sscanf( line, "static short %s = {", name_and_type ) == 1 )
X {
X version10 = 1;
X break;
X }
X else if ( sscanf( line, "static char %s = {", name_and_type ) == 1 )
X {
X version10 = 0;
X break;
X }
X else
X continue;
X }
X
X if ( *widthP == -1 )
X pm_error( "invalid width", 0,0,0,0,0 );
X if ( *heightP == -1 )
X pm_error( "invalid height", 0,0,0,0,0 );
X
X padding = 0;
X if ( ((*widthP % 16) >= 1) && ((*widthP % 16) <= 8) && version10 )
X padding = 1;
X
X bytes_per_line = (*widthP+7)/8 + padding;
X
X raster_length = bytes_per_line * *heightP;
X *dataP = (char *) malloc( raster_length );
X if ( *dataP == (char *) 0 )
X pm_error( "out of memory", 0,0,0,0,0 );
X
X /* Initialize hex_table. */
X for ( c1 = 0; c1 < 256; c1++ )
X hex_table[c1] = 256;
X hex_table['0'] = 0;
X hex_table['1'] = 1;
X hex_table['2'] = 2;
X hex_table['3'] = 3;
X hex_table['4'] = 4;
X hex_table['5'] = 5;
X hex_table['6'] = 6;
X hex_table['7'] = 7;
X hex_table['8'] = 8;
X hex_table['9'] = 9;
X hex_table['A'] = 10;
X hex_table['B'] = 11;
X hex_table['C'] = 12;
X hex_table['D'] = 13;
X hex_table['E'] = 14;
X hex_table['F'] = 15;
X hex_table['a'] = 10;
X hex_table['b'] = 11;
X hex_table['c'] = 12;
X hex_table['d'] = 13;
X hex_table['e'] = 14;
X hex_table['f'] = 15;
X
X if ( version10 )
X for ( bytes = 0, ptr = *dataP; bytes < raster_length; bytes += 2 )
X {
X while ( ( c1 = getc( stream ) ) != 'x' )
X if ( c1 == EOF )
X pm_error( "premature EOF", 0,0,0,0,0 );
X c1 = getc( stream );
X c2 = getc( stream );
X if ( c1 == EOF || c2 == EOF )
X pm_error( "premature EOF", 0,0,0,0,0 );
X value1 = ( hex_table[c1] << 4 ) + hex_table[c2];
X if ( value1 >= 256 )
X pm_error( "syntax error", 0,0,0,0,0 );
X c1 = getc( stream );
X c2 = getc( stream );
X if ( c1 == EOF || c2 == EOF )
X pm_error( "premature EOF", 0,0,0,0,0 );
X value2 = ( hex_table[c1] << 4 ) + hex_table[c2];
X if ( value2 >= 256 )
X pm_error( "syntax error", 0,0,0,0,0 );
X *ptr++ = value2;
X if ( ( ! padding ) || ( ( bytes + 2 ) % bytes_per_line ) )
X *ptr++ = value1;
X }
X else
X for ( bytes = 0, ptr = *dataP; bytes < raster_length; bytes++ )
X {
X while ( ( c1 = getc( stream ) ) != 'x' )
X if ( c1 == EOF )
X pm_error( "premature EOF", 0,0,0,0,0 );
X c1 = getc( stream );
X c2 = getc( stream );
X if ( c1 == EOF || c2 == EOF )
X pm_error( "premature EOF", 0,0,0,0,0 );
X value1 = ( hex_table[c1] << 4 ) + hex_table[c2];
X if ( value1 >= 256 )
X pm_error( "syntax error", 0,0,0,0,0 );
X *ptr++ = value1;
X }
X }
SHAR_EOF
if test 5039 -ne "`wc -c < 'pbm/xbmtopbm.c'`"
then
echo shar: error transmitting "'pbm/xbmtopbm.c'" '(should have been 5039 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/xbmtopbm.1'" '(697 characters)'
if test -f 'pbm/xbmtopbm.1'
then
echo shar: will not over-write existing file "'pbm/xbmtopbm.1'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/xbmtopbm.1'
X.TH xbmtopbm 1 "31 August 1988"
X.SH NAME
Xxbmtopbm - convert an X11 or X10 bitmap into a portable bitmap
X.SH SYNOPSIS
Xxbmtopbm [bitmapfile]
X.SH DESCRIPTION
XReads an X11 or X10 bitmap as input.
XProduces a portable bitmap as output.
X.SH "SEE ALSO"
Xpbmtoxbm(1), pbmtox10bm(1), pbm(5)
X.SH AUTHOR
XCopyright (C) 1988 by Jef Poskanzer.
X
XPermission to use, copy, modify, and distribute this software and its
Xdocumentation for any purpose and without fee is hereby granted, provided
Xthat the above copyright notice appear in all copies and that both that
Xcopyright notice and this permission notice appear in supporting
Xdocumentation. This software is provided "as is" without express or
Ximplied warranty.
SHAR_EOF
if test 697 -ne "`wc -c < 'pbm/xbmtopbm.1'`"
then
echo shar: error transmitting "'pbm/xbmtopbm.1'" '(should have been 697 characters)'
fi
fi # end of overwriting check
if test ! -d 'pbm'
then
echo shar: creating directory "'pbm'"
mkdir 'pbm'
fi
echo shar: extracting "'pbm/xwdtopbm.c'" '(9170 characters)'
if test -f 'pbm/xwdtopbm.c'
then
echo shar: will not over-write existing file "'pbm/xwdtopbm.c'"
else
sed 's/^X//' << \SHAR_EOF > 'pbm/xwdtopbm.c'
X/* xwdtopbm.c - read an X11 or X10 window dump file and write a portable bitmap
X**
X** Copyright (C) 1988 by Jef Poskanzer.
X**
X** Permission to use, copy, modify, and distribute this software and its
X** documentation for any purpose and without fee is hereby granted, provided
X** that the above copyright notice appear in all copies and that both that
X** copyright notice and this permission notice appear in supporting
X** documentation. This software is provided "as is" without express or
X** implied warranty.
X*/
X
X#include <stdio.h>
X#include "pbm.h"
X#include "x10wd.h"
X#include "x11wd.h"
X
Xmain( argc, argv )
Xint argc;
Xchar *argv[];
X {
X FILE *ifd;
X register bit *bitrow, *bP;
X bit getbit();
X int rows, cols, padright, row, col;
X
X pm_progname = argv[0];
X
X if ( argc > 2 )
X pm_usage( "[xwdfile]" );
X
X if ( argc == 2 )
X ifd = pm_openr( argv[1] );
X else
X ifd = stdin;
X
X getinit( ifd, &cols, &rows, &padright );
X
X pbm_writepbminit( stdout, cols, rows );
X bitrow = pbm_allocrow( cols );
X
X for ( row = 0; row < rows; row++ )
X {
X for ( col = 0, bP = bitrow; col < cols; col++, bP++ )
X *bP = getbit( ifd );
X for ( col = 0; col < padright; col++ )
X (void) getbit( ifd );
X pbm_writepbmrow( stdout, bitrow, cols );
X }
X
X pm_close( ifd );
X
X exit( 0 );
X }
X
X
Xchar buf[4];
Xchar *byteP;
Xshort *shortP;
Xlong *longP;
Xint bits_per_item, bits_used, bit_shift, bits_per_pixel, bit_order, bit_invert, byte_swap;
X
Xshort bs_short();
Xint bs_int();
Xlong bs_long();
X
X
Xgetinit( file, colP, rowP, padrightP )
XFILE *file;
Xint *colP, *rowP, *padrightP;
X {
X /* Assume X11 headers are larger than X10 ones. */
X unsigned char header[sizeof(X11WDFileHeader)];
X X10WDFileHeader *h10P;
X X11WDFileHeader *h11P;
X char junk[10000];
X
X h10P = (X10WDFileHeader *) header;
X h11P = (X11WDFileHeader *) header;
X
X if ( sizeof(*h10P) > sizeof(*h11P) )
X {
X pm_message(
X "ARGH! On this machine, X10 headers are larger than X11 headers!",
X 0,0,0,0,0 );
X pm_error(
X "You will have to re-write xwdtopbm.", 0,0,0,0,0 );
X }
X
X /* Read an X10 header. */
X if ( fread( &header[0], sizeof(*h10P), 1, file ) != 1 )
X pm_error( "couldn't read XWD file header", 0,0,0,0,0 );
X
X if ( h10P->file_version == X10WD_FILE_VERSION ||
X bs_int( h10P->file_version ) == X10WD_FILE_VERSION )
X {
X if ( h10P->file_version != X10WD_FILE_VERSION )
X {
X byte_swap = 1;
X h10P->header_size = bs_int( h10P->header_size );
X h10P->file_version = bs_int( h10P->file_version );
X h10P->display_type = bs_int( h10P->display_type );
X h10P->display_planes = bs_int( h10P->display_planes );
X h10P->pixmap_format = bs_int( h10P->pixmap_format );
X h10P->pixmap_width = bs_int( h10P->pixmap_width );
X h10P->pixmap_height = bs_int( h10P->pixmap_height );
X h10P->window_width = bs_short( h10P->window_width );
X h10P->window_height = bs_short( h10P->window_height );
X h10P->window_x = bs_short( h10P->window_x );
X h10P->window_y = bs_short( h10P->window_y );
X h10P->window_bdrwidth = bs_short( h10P->window_bdrwidth );
X h10P->window_ncolors = bs_short( h10P->window_ncolors );
X }
X if ( fread( junk, 1, h10P->header_size - sizeof(*h10P), file ) != h10P->header_size - sizeof(*h10P) )
X pm_error( "couldn't read rest of X10 XWD file header", 0,0,0,0,0 );
X if ( fread( junk, sizeof(X10Color), h10P->window_ncolors, file ) !=
X h10P->window_ncolors )
X pm_error( "couldn't read X10 XWD colormap", 0,0,0,0,0 );
X
X /* Check whether we can handle this dump. */
X if ( h10P->window_ncolors != 0 )
X pm_error( "can't handle X10 color dump - try xwdtoppm", 0,0,0,0,0 );
X if ( h10P->pixmap_format != XYFormat )
X pm_error(
X "can't handle X10 pixmap_format %d", h10P->pixmap_format,
X 0,0,0,0 );
X
X *colP = h10P->pixmap_width;
X *rowP = h10P->pixmap_height;
X *padrightP =
X ( ( h10P->pixmap_width + 15 ) / 16 ) * 16 - h10P->pixmap_width;
X bits_per_item = 16;
X bits_used = bits_per_item;
X bits_per_pixel = 1;
X bit_order = LSBFirst;
X bit_invert = 1;
X }
X else if ( h11P->file_version == X11WD_FILE_VERSION ||
X bs_long( h11P->file_version ) == X11WD_FILE_VERSION )
X {
X if ( fread( &header[sizeof(*h10P)], sizeof(*h11P) - sizeof(*h10P), 1, file ) != 1 )
X pm_error( "couldn't read X11 XWD file header", 0,0,0,0,0 );
X if ( h11P->file_version != X11WD_FILE_VERSION )
X {
X byte_swap = 1;
X h11P->header_size = bs_long( h11P->header_size );
X h11P->file_version = bs_long( h11P->file_version );
X h11P->pixmap_format = bs_long( h11P->pixmap_format );
X h11P->pixmap_depth = bs_long( h11P->pixmap_depth );
X h11P->pixmap_width = bs_long( h11P->pixmap_width );
X h11P->pixmap_height = bs_long( h11P->pixmap_height );
X h11P->xoffset = bs_long( h11P->xoffset );
X h11P->byte_order = bs_long( h11P->byte_order );
X h11P->bitmap_unit = bs_long( h11P->bitmap_unit );
X h11P->bitmap_bit_order = bs_long( h11P->bitmap_bit_order );
X h11P->bitmap_pad = bs_long( h11P->bitmap_pad );
X h11P->bits_per_pixel = bs_long( h11P->bits_per_pixel );
X h11P->bytes_per_line = bs_long( h11P->bytes_per_line );
X h11P->visual_class = bs_long( h11P->visual_class );
X h11P->red_mask = bs_long( h11P->red_mask );
X h11P->green_mask = bs_long( h11P->green_mask );
X h11P->blue_mask = bs_long( h11P->blue_mask );
X h11P->bits_per_rgb = bs_long( h11P->bits_per_rgb );
X h11P->colormap_entries = bs_long( h11P->colormap_entries );
X h11P->ncolors = bs_long( h11P->ncolors );
X h11P->window_width = bs_long( h11P->window_width );
X h11P->window_height = bs_long( h11P->window_height );
X h11P->window_x = bs_long( h11P->window_x );
X h11P->window_y = bs_long( h11P->window_y );
X h11P->window_bdrwidth = bs_long( h11P->window_bdrwidth );
X }
X if ( fread( junk, 1, h11P->header_size - sizeof(*h11P), file ) != h11P->header_size - sizeof(*h11P) )
X pm_error( "couldn't read rest of X11 XWD file header", 0,0,0,0,0 );
X if ( fread( junk, sizeof(X11XColor), h11P->colormap_entries, file ) !=
X h11P->colormap_entries )
X pm_error( "couldn't read X11 XWD colormap", 0,0,0,0,0 );
X
X /* Check whether we can handle this dump. */
X if ( h11P->pixmap_depth != 1 || h11P->bits_per_rgb != 1 )
X pm_error( "can't handle X11 color dump - try xwdtoppm", 0,0,0,0,0 );
X if ( h11P->pixmap_format != XYBitmap &&
X h11P->pixmap_format != ZPixmap )
X pm_error(
X "can't handle X11 pixmap_format %d", h11P->pixmap_format,
X 0,0,0,0 );
X#ifdef notdef
X if ( h11P->bitmap_unit != h11P->bitmap_pad )
X pm_error(
X "X11 bitmap_unit (%d) != bitmap_pad (%d) - can't handle",
X h11P->bitmap_unit, h11P->bitmap_pad, 0,0,0 );
X#endif /*notdef*/
X if ( h11P->bitmap_unit != 8 && h11P->bitmap_unit != 16 &&
X h11P->bitmap_unit != 32 )
X pm_error(
X "X11 bitmap_unit (%d) is unusual - can't handle",
X h11P->bitmap_unit, 0,0,0,0 );
X if ( h11P->bits_per_pixel != 1 && h11P->bits_per_pixel != 8 )
X {
X pm_error(
X "X11 bits_per_pixel (%d) is unusual - can't handle",
X h11P->bits_per_pixel, 0,0,0,0 );
X exit( 1 );
X }
X
X *colP = h11P->pixmap_width;
X *rowP = h11P->pixmap_height;
X *padrightP =
X h11P->bytes_per_line * 8 / h11P->bits_per_pixel -
X h11P->pixmap_width;
X bits_per_item = h11P->bitmap_unit;
X bits_used = bits_per_item;
X bits_per_pixel = h11P->bits_per_pixel;
X bit_order = h11P->bitmap_bit_order;
X#ifdef hpux
X bit_invert = 1;
X#else /*hpux*/
X bit_invert = 0;
X#endif /*hpux*/
X }
X else
X pm_error( "unknown XWD file version: %d", h11P->file_version, 0,0,0,0 );
X
X byteP = (char *) buf;
X shortP = (short *) buf;
X longP = (long *) buf;
X }
X
Xbit
Xgetbit( file )
XFILE *file;
X {
X bit b;
X
X if ( bits_used == bits_per_item )
X {
X if ( fread( buf, bits_per_item / 8, 1, file ) != 1 )
X pm_error( "couldn't read bits", 0,0,0,0,0 );
X if ( byte_swap )
X switch ( bits_per_item )
X {
X case 8:
X break;
X
X case 16:
X *shortP = bs_short( *shortP );
X break;
X
X case 32:
X *longP = bs_long( *longP );
X break;
X
X default:
X pm_error( "can't happen", 0,0,0,0,0 );
X }
X bits_used = 0;
X
X if ( bit_order == MSBFirst )
X bit_shift = bits_per_item - bits_per_pixel;
X else
X bit_shift = 0;
X }
X
X switch ( bits_per_item )
X {
X case 8:
X b = ( ( *byteP >> bit_shift ) & 1 ) ? PBM_BLACK : PBM_WHITE;
X break;
X
X case 16:
X b = ( ( *shortP >> bit_shift ) & 1 ) ? PBM_BLACK : PBM_WHITE;
X break;
X
X case 32:
X b = ( ( *longP >> bit_shift ) & 1 ) ? PBM_BLACK : PBM_WHITE;
X break;
X
X default:
X pm_error( "can't happen", 0,0,0,0,0 );
X }
X
X if ( bit_invert )
X b = 1 - b;
X
X if ( bit_order == MSBFirst )
X bit_shift -= bits_per_pixel;
X else
X bit_shift += bits_per_pixel;
X bits_used += bits_per_pixel;
X
X return b;
X }
X
Xshort
Xbs_short( s )
Xshort s;
X {
X short ss;
X unsigned char *bp, t;
X
X ss = s;
X bp = (unsigned char *) &ss;
X t = bp[0];
X bp[0] = bp[1];
X bp[1] = t;
X return ss;
X }
X
Xint
Xbs_int( i )
Xint i;
X {
X int ii;
X unsigned char *bp, t;
X
X ii = i;
X bp = (unsigned char *) ⅈ
X t = bp[0];
X bp[0] = bp[3];
X bp[3] = t;
X t = bp[1];
X bp[1] = bp[2];
X bp[2] = t;
X return ii;
X }
X
Xlong bs_long( l )
Xlong l;
X {
X return bs_int( l );
X }
SHAR_EOF
if test 9170 -ne "`wc -c < 'pbm/xwdtopbm.c'`"
then
echo shar: error transmitting "'pbm/xwdtopbm.c'" '(should have been 9170 characters)'
fi
fi # end of overwriting check
# End of shell archive
exit 0