raven/jedioutcast
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
jedioutcast/utils/roq2/libim/imicon.c
James Monroe b2f9cf6f08 Jedi Outcast v056
2013-04-04 13:07:40 -05:00

1104 lines
17 KiB
C
Raw Blame History

/**
** $Header: /roq/libim/imicon.c 1 11/02/99 4:38p Zaphod $
** Copyright (c) 1989-1995 San Diego Supercomputer Center (SDSC)
** a division of General Atomics, San Diego, California, USA
**
** Users and possessors of this source code are hereby granted a
** nonexclusive, royalty-free copyright and design patent license to
** use this code in individual software. License is not granted for
** commercial resale, in whole or in part, without prior written
** permission from SDSC. This source is provided "AS IS" without express
** or implied warranty of any kind.
**
** For further information contact:
** E-Mail: info@sds.sdsc.edu
**
** Surface Mail: Information Center
** San Diego Supercomputer Center
** P.O. Box 85608
** San Diego, CA 92138-5608
** (619) 534-5000
**/
#define HEADER " $Header: /roq/libim/imicon.c 1 11/02/99 4:38p Zaphod $"
/**
** FILE
** imicon.c - Sun icon/cursor format I/O
**
** PROJECT
** libim - SDSC image manipulation library
**
** DESCRIPTION
** imicon.c contains routines to read and write Sun Icon files for
** the image manipulation library. Raster data read in is stored
** in a VFB and optional CLT in a tag list. Raster data written
** out is taken from a tag list.
**
** PUBLIC CONTENTS
** d =defined constant
** f =function
** m =defined macro
** t =typedef/struct/union
** v =variable
** ? =other
**
** none
**
** PRIVATE CONTENTS
** imIconRead f read a Sun Icon file
** imIconWrite f write a Sun Icon file
**
** HISTORY
** $Log: /roq/libim/imicon.c $
*
* 1 11/02/99 4:38p Zaphod
** Revision 1.10 1995/06/29 00:28:04 bduggan
** updated copyright year
**
** Revision 1.9 1995/06/15 20:27:45 bduggan
** removed unused var.s
**
** Revision 1.8 1995/04/03 21:26:45 bduggan
** took out #ifdef NEWMAGIC
**
** Revision 1.7 1995/01/10 23:31:08 bduggan
** uncapitlized i's in local functions
** made read/write routines static
**
** Revision 1.6 94/10/03 11:30:15 nadeau
** Updated to ANSI C and C++ compatibility.
** Removed all use of register keyword.
** Minimized use of custom SDSC types (e.g., uchar vs. unsigned char)
** Changed all float arguments to double.
** Added forward declarations.
** Added misc. casts to passify SGI and DEC compilers.
** Changed all macros and defined constants to have names
** starting with IM.
** Rearranged magic number structures for format handlers.
** Made format handler routines static (i.e., local to file).
** Updated comments, adding format descriptions and references.
** Updated indenting on some code.
** Updated copyright message.
**
** Revision 1.5 92/11/23 18:42:34 nadeau
** Removed use of IMINFOMSG.
**
** Revision 1.4 92/11/04 12:01:29 groening
** put ImFIleFormat info and magic number info
** from imfmt.c into this file.
**
** Revision 1.3 92/09/29 17:58:16 vle
** Added ImInfo messages.
**
** Revision 1.2 92/09/01 20:15:51 vle
** Updated copyright notice.
**
** Revision 1.1 91/10/03 09:05:46 nadeau
** Initial revision
**
**/
#include <ctype.h>
#include "iminternal.h"
/**
** FORMAT
** icon - Sun Icon/Cursor/Image
**
** AKA
** icon, cursor, pr
**
** FORMAT REFERENCES
** - iconedit(1) from the Sun OpenWindows man page set.
** - Pixrect Reference Manual, Sun Microsystems.
**
** CODE CREDITS
** Custom development, Dave Nadeau, San Diego Supercomputer Center, 1992.
**
** DESCRIPTION
** Sun icon files are used to describe icons, cursors, widgets, and
** full black-and-white images on Sun workstations. Originally used
** for the Sunview window system, the Sun icon format is now used by
** OpenWindows and XView.
**
** Sun icon files are simple C code including a comment header, and
** a string of comma-separated hex values.
**
** The comment header has the format:
**
**
** Format_version=1, Width=XX, Height=YY, Depth=1, Valid_bits_per_item=16
**
**
** The Format_version is always 1.
**
** The Width and Height fields give the width (XX) and height (YY) of
** the icon in pixels. The width **MUST** be a multiple of 16! When
** writing images appropriate black padding is added to the right side.
** ( Note: The PBM suite chose to pad by putting equal padding on the
** left and right side. We choose to pad by adding only on the right.
** This seems more intuitive and easier to compensate for during use. )
**
** The Depth is always 1.
**
** The Valid_bits_per_item is always 16.
**
** The comment header may be preceded by blank lines and other comments,
** and may be followed by additional comments and white space. Most of
** the standard icons found in /usr/include/images on Sun systems
** have headers of the form:
**
**
** Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
** Description: Tombstone with letters R.I.P
** Background: White
**
** Following the file header is a list of hex values for the icon.
** Any number of values may occur per line, with any amount of white
** space, and any number of lines. Each hex value is of the form:
** "0x0000" (without the quotes). Hex values are separated by a comma.
**
** The number of hex values may be computed from the width and height:
**
** nvalues = Width ** Height / Valid_bits_per_item
**
** 0 bits are black. 1 bits are white. Bits are ordered with
** the left-most pixel bit the left-most (highest) in each 16-bit value.
**/
/*
* ICON - Sun Icon and Cursor bitmap
* For information on these structures, how to use them, etc. please
* see imfmt.c.
*/
#ifdef __STDC__
static int imIconRead( int ioType, int fd, FILE *fp, TagTable *flagsTable, TagTable *tagTable );
static int imIconWrite( ImFileFormatWriteMap *pMap, int ioType, int fd, FILE *fp, TagTable *flagsTable, TagTable *tagTable );
#else
static int imIconRead( );
static int imIconWrite();
#endif
static char *imIconNames[ ] = { "icon", "cursor", "pr", NULL };
static ImFileFormatReadMap imIconReadMap[ ] =
{
/* in out */
/* type,ch,dep, attr. VFB type attr. */
{ IN,1,1, 0, IMVFBMONO, 0 },
{ -1, 0, -1, 0 },
};
static ImFileFormatWriteMap imIconWriteMap[ ] =
{
/* in out */
/* VFB type, attr., type,ch,dep, attr., func */
{ IMVFBMONO, 0, IN,1,1, 0, imIconWrite },
{ -1, 0, -1, 0, NULL },
};
static ImFileMagic imFileIconMagic []=
{
{ 0, 0, NULL},
};
ImFileFormat ImFileIconFormat =
{
imIconNames, "Sun Icon and Cursor file",
"Sun Microsystems, Inc.",
"1-bit ASCII bitmap files.",
"1-bit ASCII bitmap files.",
imFileIconMagic,
IMNOMULTI, IMPIPE,
IMNOMULTI, IMPIPE,
imIconRead, imIconReadMap, imIconWriteMap
};
/*
* FUNCTION
* imIconRead - read an Sun Icon file
*
* DESCRIPTION
* The file is read and it's mono image written to a new mono VFB.
*/
static int /* Returns # tags read in */
#ifdef __STDC__
imIconRead( int ioType, int fd, FILE *fp, TagTable *flagsTable, TagTable *tagTable )
#else
imIconRead( ioType, fd, fp, flagsTable, tagTable )
int ioType; /* I/O flags */
int fd; /* Input file descriptor */
FILE *fp; /* Input file pointer */
TagTable *flagsTable; /* Flags */
TagTable *tagTable; /* Tag table to add to */
#endif
{
int xdim; /* # columns */
int ydim; /* # rows */
ImVfb *vfb; /* Read in image */
ImVfbPtr pPixel; /* Pixel pointer */
ImVfbPtr pLast; /* Last pixel pointer */
int pixel; /* 16-bits of pixels */
int i, j, k; /* Counters */
int c; /* Character holder */
char token[1024]; /* Input token */
char *t; /* Token pointer */
int value; /* Token value */
int found; /* Header information found? */
char message[100]; /* ImInfo message */
if ( (ioType & IMFILEIOFD) && (fp = fdopen( fd, "rb" )) == NULL )
{
ImErrNo = IMESYS;
return ( -1 );
}
for ( xdim = ydim = -1, found = FALSE; !found; )
{
/* Skip to the start of a C comment. */
while ( (c = getc( fp )) != '/' && c != EOF )
;
if ( c == EOF )
ImErrorFatal( "Premature EOF in icon file header", -1, IMESYNTAX );
if ( (c = getc( fp )) != '*' )
continue;
c = getc( fp );
for ( ; ; )
{
/* Skip whitespace. */
for ( ; isspace( c ) || c == ','; c = getc( fp ) )
;
if ( c == EOF )
ImErrorFatal( "Premature EOF in icon file header", -1, IMESYNTAX );
if ( c == '*' )
{
if ( (c = getc( fp )) == '/' )
break; /* Done with comment */
continue;
}
/* Get the next token. */
t = token;
for ( *t++ = c; (c = getc( fp )) != EOF &&
c != ',' && c != '=' && c != '*' && !isspace(c);
*t++ = c )
;
if ( c == EOF )
ImErrorFatal( "Premature EOF in icon file header", -1, IMESYNTAX );
*t = '\0';
if ( c == '*' )
{
if ( (c = getc( fp )) == '/' )
break; /* Done with comment */
continue;
}
if ( c != '=' )
{
/* Not a token we want. Skip to whitespace*/
for ( ; !isspace( c ); c = getc( fp ) )
;
continue;
}
/* Get the value following the '='. */
if ( fscanf( fp, "%d", &value ) != 1 )
{
/* No value. Not a token we want. */
for ( c = getc( fp ); !isspace( c ); c = getc( fp ) )
;
continue;
}
c = getc( fp );
/* Check which token it is. */
if ( strcmp( token, "Format_version" ) == 0 )
{
if ( value != 1 )
ImErrorFatal( "Only format version 1 Sun icon files are supported", -1, IMESYNTAX );
found = TRUE;
ImInfo( "Version", "1" );
continue;
}
if ( strcmp( token, "Width" ) == 0 )
{
if ( value <= 0 )
ImErrorFatal( "Sun icon width must be positive", -1, IMESYNTAX );
if ( (value & 0xF) != 0 )
ImErrorFatal( "Sun icon width must be multiple of 16 pixels", -1, IMESYNTAX );
xdim = value;
found = TRUE;
continue;
}
if ( strcmp( token, "Height" ) == 0 )
{
if ( value <= 0 )
ImErrorFatal( "Sun icon height must be positive", -1, IMESYNTAX );
ydim = value;
found = TRUE;
continue;
}
if ( strcmp( token, "Depth" ) == 0 )
{
if ( value != 1 )
ImErrorFatal( "Only Depth=1 Sun icon files are supported", -1, IMESYNTAX );
found = TRUE;
continue;
}
if ( strcmp( token, "Valid_bits_per_item" ) == 0 )
{
if ( value != 16 )
ImErrorFatal( "Only Valid_bits_per_item=16 Sun icon files are supported", -1, IMESYNTAX );
found = TRUE;
continue;
}
/* Unknown token. Skip to whitespace. */
for ( ; !isspace( c ); c = getc( fp ) )
;
}
}
if ( xdim == -1 )
ImErrorFatal( "Missing width for Sun icon", -1, IMESYNTAX );
if ( ydim == -1 )
ImErrorFatal( "Missing height for Sun icon", -1, IMESYNTAX );
sprintf( message, "%d x %d", xdim, ydim );
ImInfo( "Resolution", message );
ImInfo( "Type", "1-bit Monochrome" );
/*
* Allocate a VFB of the required size.
*/
if ( (vfb = ImVfbAlloc( xdim, ydim, IMVFBMONO )) == IMVFBNULL )
ImErrorFatal( ImQError( ), -1, ImErrNo );
/*
* Scan the file, reading in each hex character value holding
* 16 bits. Unpack the bits into mono values (0 = black,
* 1 = white).
*/
pPixel = ImVfbQFirst( vfb );
for ( i = 0; i < ydim; i++ )
{
/*
* Handle a scanline, modulo 16.
*/
for ( j = 0; j < xdim; j += 16 )
{
/*
* Skip to the next hex number, read it in, and
* break it down into mono single-bit pixels.
*/
for ( c = getc( fp ); c != 'x' && c != EOF ; )
c = getc( fp );
if ( c == EOF )
break;
if ( fscanf( fp, "%x", &pixel ) != 1 )
break;
for ( k = 15; k >= 0; k-- )
{
ImVfbSMono( vfb, pPixel, ((pixel>>k)&1) );
ImVfbSInc( vfb, pPixel );
}
}
if ( c == EOF )
break;
}
for ( pLast=ImVfbQLast( vfb ); pPixel <= pLast; ImVfbSInc( vfb, pPixel))
ImVfbSMono( vfb, pPixel, 0 );
/*
* Add the VFB to the tagTable.
*/
TagTableAppend( tagTable, TagEntryAlloc( "image vfb", POINTER, &vfb ) );
return ( 1 );
}
/*
* FUNCTION
* imIconWrite - write a Sun Icon file
*
* DESCRIPTION
* The Sun Icon header and image content are written out.
*/
static int /* Returns # of entries used */
#ifdef __STDC__
imIconWrite( ImFileFormatWriteMap *pMap, int ioType, int fd, FILE *fp, TagTable *flagsTable, TagTable *tagTable )
#else
imIconWrite( pMap, ioType, fd, fp, flagsTable, tagTable )
ImFileFormatWriteMap *pMap; /* Write map entry to adhear to */
int ioType; /* Type of I/O to perform */
int fd; /* Output file descriptor */
FILE *fp; /* Output file pointer */
TagTable *flagsTable; /* Flags */
TagTable *tagTable; /* Table of info to write */
#endif
{
int xdim; /* # columns */
int xdim2; /* # columns (nearest 8bit bndry)*/
int xdimExtra; /* # columns mod 8 */
int ydim; /* # rows */
ImVfb *srcVfb; /* VFB to convert */
ImVfbPtr pPixel; /* pixel pointer */
char buf[1024]; /* Output buffer */
int pixel; /* pixel value */
int j, k; /* Counters */
int nchars; /* Number of characters output */
char message[100]; /* ImInfo message */
/*
* Write out the header.
*/
TagEntryQValue( TagTableQDirect( tagTable, "image vfb", 0 ), &srcVfb );
xdim = ImVfbQWidth( srcVfb );
ydim = ImVfbQHeight( srcVfb );
xdimExtra = xdim & 0xF; /* Bits in last 2 bytes */
xdim2 = xdim - xdimExtra; /* Bits before last 2 bytes */
j = ((xdim + 15) / 16) * 16; /* Bits rounded up to next 16*/
sprintf( buf, "/* Format_version=1, Width=%d, Height=%d, Depth=1, Valid_bits_per_item=16\n */\n", j, ydim );
if ( ioType & IMFILEIOFD )
write( fd, buf, strlen( buf ) );
else
fprintf( fp, buf );
/*
* Output -verbose message
*/
ImInfo( "Version", "1" );
sprintf( message, "%d x %d", j, ydim );
ImInfo( "Resolution", message );
ImInfo( "Type", "1-bit Monochrome" );
/*
* Write out the image.
*/
pPixel = ImVfbQFirst( srcVfb );
for ( nchars = 0; ydim--; )
{
for ( j = 0; j < xdim2; j += 16 )
{
pixel = 0;
for ( k = 15; k >= 0; k-- )
{
if ( ImVfbQMono( srcVfb, pPixel ) > 0 )
pixel |= (1<<k);
ImVfbSInc( srcVfb, pPixel );
}
sprintf( buf, "0x%04x,", pixel );
if ( (nchars += 7) > 72 )
{
strcat( buf, "\n" );
nchars = 0;
}
if ( ioType & IMFILEIOFD )
write( fd, buf, strlen( buf ) );
else
fprintf( fp, buf );
}
if ( xdimExtra == 0 )
continue;
pixel = 0;
for ( k = xdimExtra - 1; k >= 0; k-- )
{
if ( ImVfbQMono( srcVfb, pPixel ) > 0 )
pixel |= (1<<k);
ImVfbSInc( srcVfb, pPixel );
}
sprintf( buf, "0x%04x,", pixel );
if ( (nchars += 7) > 72 )
{
strcat( buf, "\n" );
nchars = 0;
}
if ( ioType & IMFILEIOFD )
write( fd, buf, strlen( buf ) );
else
fprintf( fp, buf );
}
if ( ioType & IMFILEIOFD )
write( fd, "\n", 2 );
else
fprintf( fp, "\n" );
return ( 1 ); /* Used 1 tagTable entry: VFB */
}
Reference in a new issue View git blame Copy permalink