mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-31 13:52:29 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
438
src/imagefile.c
Executable file → Normal file
438
src/imagefile.c
Executable file → Normal file
@@ -1,8 +1,7 @@
|
||||
/* $Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ (C) Copyright Venue, All Rights
|
||||
* Reserved */
|
||||
static char *id = "$Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
@@ -17,359 +16,304 @@ static char *id = "$Id: imagefile.c,v 1.2 1999/01/03 02:07:07 sybalsky Exp $ Cop
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <pixrect/pixrect_hs.h>
|
||||
|
||||
#define NOT_IMAGEFILE 0
|
||||
#define TYPE_SUNRASTER 1
|
||||
#define TYPE_PBM 2
|
||||
#define TYPE_PPM 3
|
||||
#define NOT_IMAGEFILE 0
|
||||
#define TYPE_SUNRASTER 1
|
||||
#define TYPE_PBM 2
|
||||
#define TYPE_PPM 3
|
||||
|
||||
struct image_info {
|
||||
int depth;
|
||||
int width;
|
||||
int height;
|
||||
int depth;
|
||||
int width;
|
||||
int height;
|
||||
};
|
||||
|
||||
struct rgb {
|
||||
unsigned char r;
|
||||
unsigned char g;
|
||||
unsigned char b;
|
||||
unsigned char r;
|
||||
unsigned char g;
|
||||
unsigned char b;
|
||||
};
|
||||
|
||||
Pixrect *PPM_to_Pixrect()
|
||||
, *PBM_to_Pixrect()
|
||||
, *SunRaster_to_Pixrect();
|
||||
Pixrect *PPM_to_Pixrect(), *PBM_to_Pixrect(), *SunRaster_to_Pixrect();
|
||||
|
||||
#define MAX_BUFF_SIZE 1024
|
||||
static char buff[ MAX_BUFF_SIZE ];
|
||||
#define MAX_BUFF_SIZE 1024
|
||||
static char buff[MAX_BUFF_SIZE];
|
||||
|
||||
int
|
||||
Pixrect_to_File( pix, name )
|
||||
Pixrect *pix;
|
||||
int Pixrect_to_File(pix, name) Pixrect *pix;
|
||||
char *name;
|
||||
{
|
||||
FILE *file;
|
||||
int err = 0;
|
||||
{
|
||||
FILE *file;
|
||||
int err = 0;
|
||||
|
||||
switch( pix->pr_depth ) {
|
||||
case 1:
|
||||
file = fopen( name, "w" );
|
||||
err = Pixrect_to_PBM( file, pix );
|
||||
fclose( file );
|
||||
break;
|
||||
case 32:
|
||||
file = fopen( name, "w" );
|
||||
err = Pixrect_to_PPM( file, pix );
|
||||
fclose( file );
|
||||
break;
|
||||
case 8:
|
||||
break;
|
||||
defaults:
|
||||
break;
|
||||
} /* end switch( pix->depth ) */
|
||||
switch (pix->pr_depth) {
|
||||
case 1:
|
||||
file = fopen(name, "w");
|
||||
err = Pixrect_to_PBM(file, pix);
|
||||
fclose(file);
|
||||
break;
|
||||
case 32:
|
||||
file = fopen(name, "w");
|
||||
err = Pixrect_to_PPM(file, pix);
|
||||
fclose(file);
|
||||
break;
|
||||
case 8:
|
||||
break;
|
||||
defaults:
|
||||
break;
|
||||
} /* end switch( pix->depth ) */
|
||||
|
||||
return( err );
|
||||
return (err);
|
||||
} /* end Pixrect_to_File */
|
||||
|
||||
Pixrect
|
||||
*File_to_Pixrect( name )
|
||||
char *name;
|
||||
Pixrect *File_to_Pixrect(name) char *name;
|
||||
{
|
||||
FILE *file;
|
||||
Pixrect *pix;
|
||||
int type;
|
||||
FILE *file;
|
||||
Pixrect *pix;
|
||||
int type;
|
||||
|
||||
file = fopen( name, "r" );
|
||||
file = fopen(name, "r");
|
||||
|
||||
type = image_file_type( file );
|
||||
type = image_file_type(file);
|
||||
|
||||
switch( type ) {
|
||||
case TYPE_SUNRASTER:
|
||||
pix = SunRaster_to_Pixrect( file );
|
||||
break;
|
||||
case TYPE_PBM:
|
||||
pix = PBM_to_Pixrect( file );
|
||||
break;
|
||||
case TYPE_PPM:
|
||||
pix = PPM_to_Pixrect( file );
|
||||
break;
|
||||
defaults:
|
||||
break;
|
||||
} /* end switch */
|
||||
switch (type) {
|
||||
case TYPE_SUNRASTER: pix = SunRaster_to_Pixrect(file); break;
|
||||
case TYPE_PBM: pix = PBM_to_Pixrect(file); break;
|
||||
case TYPE_PPM:
|
||||
pix = PPM_to_Pixrect(file);
|
||||
break;
|
||||
defaults:
|
||||
break;
|
||||
} /* end switch */
|
||||
|
||||
fclose( file );
|
||||
fclose(file);
|
||||
|
||||
return (pix);
|
||||
|
||||
return( pix );
|
||||
|
||||
} /* end File_to_Pixrect */
|
||||
|
||||
#define magic_number_PBM "P4"
|
||||
#define magic_number_PPM "P6"
|
||||
#define magic_number_PBM "P4"
|
||||
#define magic_number_PPM "P6"
|
||||
|
||||
Pixrect_to_PPM( file, pix )
|
||||
FILE *file;
|
||||
Pixrect_to_PPM(file, pix) FILE *file;
|
||||
Pixrect *pix;
|
||||
{
|
||||
struct image_info info;
|
||||
struct image_info info;
|
||||
|
||||
info.width = pix->pr_width;
|
||||
info.height = pix->pr_height;
|
||||
info.depth = pix->pr_depth;
|
||||
write_PPM_header( file, &info );
|
||||
info.width = pix->pr_width;
|
||||
info.height = pix->pr_height;
|
||||
info.depth = pix->pr_depth;
|
||||
write_PPM_header(file, &info);
|
||||
|
||||
write_raw_PPM( file, mpr_d(pix)->md_image
|
||||
, pix->pr_width, pix->pr_height );
|
||||
write_raw_PPM(file, mpr_d(pix)->md_image, pix->pr_width, pix->pr_height);
|
||||
|
||||
} /* end Pixrect_to_PPM */
|
||||
|
||||
Pixrect
|
||||
*PPM_to_Pixrect( file )
|
||||
FILE *file;
|
||||
Pixrect *PPM_to_Pixrect(file) FILE *file;
|
||||
{
|
||||
Pixrect *pix;
|
||||
struct image_info info;
|
||||
Pixrect *pix;
|
||||
struct image_info info;
|
||||
|
||||
read_PPM_header( file, &info );
|
||||
pix = mem_create( info.width, info.height, 32 );
|
||||
read_raw_PPM( file, mpr_d(pix)->md_image, info.width, info.height );
|
||||
read_PPM_header(file, &info);
|
||||
pix = mem_create(info.width, info.height, 32);
|
||||
read_raw_PPM(file, mpr_d(pix)->md_image, info.width, info.height);
|
||||
|
||||
return( pix );
|
||||
return (pix);
|
||||
} /* PPM_to_Pixrect */
|
||||
|
||||
Pixrect_to_PBM( file, pix )
|
||||
FILE *file;
|
||||
Pixrect_to_PBM(file, pix) FILE *file;
|
||||
Pixrect *pix;
|
||||
{
|
||||
struct image_info info;
|
||||
struct image_info info;
|
||||
|
||||
info.width = pix->pr_width;
|
||||
info.height = pix->pr_height;
|
||||
info.depth = pix->pr_depth;
|
||||
write_PBM_header( file, &info );
|
||||
info.width = pix->pr_width;
|
||||
info.height = pix->pr_height;
|
||||
info.depth = pix->pr_depth;
|
||||
write_PBM_header(file, &info);
|
||||
|
||||
write_raw_PBM( file, mpr_d(pix)->md_image
|
||||
, pix->pr_width, pix->pr_height );
|
||||
write_raw_PBM(file, mpr_d(pix)->md_image, pix->pr_width, pix->pr_height);
|
||||
|
||||
} /* end Pixrect_to_PBM */
|
||||
|
||||
Pixrect
|
||||
*PBM_to_Pixrect( file )
|
||||
FILE *file;
|
||||
Pixrect *PBM_to_Pixrect(file) FILE *file;
|
||||
{
|
||||
Pixrect *pix;
|
||||
struct image_info info;
|
||||
Pixrect *pix;
|
||||
struct image_info info;
|
||||
|
||||
read_PPM_header( file, &info );
|
||||
pix = mem_create( info.width, info.height, 32 );
|
||||
read_raw_PPM( file, mpr_d(pix)->md_image, info.width, info.height );
|
||||
read_PPM_header(file, &info);
|
||||
pix = mem_create(info.width, info.height, 32);
|
||||
read_raw_PPM(file, mpr_d(pix)->md_image, info.width, info.height);
|
||||
|
||||
return (pix);
|
||||
|
||||
return( pix );
|
||||
|
||||
} /* end PBM_to_Pixrect */
|
||||
|
||||
Pixrect
|
||||
*SunRaster_to_Pixrect( file )
|
||||
FILE *file;
|
||||
Pixrect *SunRaster_to_Pixrect(file) FILE *file;
|
||||
{
|
||||
Pixrect *pix;
|
||||
colormap_t cmap;
|
||||
Pixrect *pix;
|
||||
colormap_t cmap;
|
||||
|
||||
cmap.type = RMT_NONE;
|
||||
|
||||
pix = pr_load( file, &cmap );
|
||||
cmap.type = RMT_NONE;
|
||||
|
||||
return( pix );
|
||||
pix = pr_load(file, &cmap);
|
||||
|
||||
return (pix);
|
||||
} /* end SunRaster_to_Pixrect */
|
||||
|
||||
write_raw_PBM( file, data, width, height )
|
||||
FILE *file;
|
||||
write_raw_PBM(file, data, width, height) FILE *file;
|
||||
unsigned char *data;
|
||||
int width
|
||||
, height;
|
||||
int width, height;
|
||||
{
|
||||
int i
|
||||
, n
|
||||
, flg
|
||||
, len;
|
||||
int i, n, flg, len;
|
||||
|
||||
n = ( (width + 15) / 16 ) * 2; /* bytes per line */
|
||||
flg = ( width%16 ) / 8; /* PBM is byts alignment */
|
||||
for( i=0; i<height; i++, data+=n ) {
|
||||
len = fwrite( data, sizeof(data)
|
||||
, ( n - (flg ? 1 : 0) ) , file );
|
||||
} /* end for( i ) */
|
||||
n = ((width + 15) / 16) * 2; /* bytes per line */
|
||||
flg = (width % 16) / 8; /* PBM is byts alignment */
|
||||
for (i = 0; i < height; i++, data += n) {
|
||||
len = fwrite(data, sizeof(data), (n - (flg ? 1 : 0)), file);
|
||||
} /* end for( i ) */
|
||||
} /* end write_PBM_data */
|
||||
|
||||
read_raw_PBM( file, data, width, height )
|
||||
FILE *file;
|
||||
read_raw_PBM(file, data, width, height) FILE *file;
|
||||
char *data;
|
||||
int width
|
||||
, height;
|
||||
int width, height;
|
||||
{
|
||||
int n
|
||||
, i
|
||||
, flg
|
||||
, len;
|
||||
|
||||
n = ( (width + 15) / 16 ) * 2; /* bytes per line */
|
||||
flg = ( width%16 ) / 8; /* PBM is byts alignment */
|
||||
for( i=0; i<height; i++, data+=n ) {
|
||||
len = fread( data, sizeof(data)
|
||||
, ( n - (flg ? 1 : 0) ) , file );
|
||||
} /* end for( i ) */
|
||||
int n, i, flg, len;
|
||||
|
||||
n = ((width + 15) / 16) * 2; /* bytes per line */
|
||||
flg = (width % 16) / 8; /* PBM is byts alignment */
|
||||
for (i = 0; i < height; i++, data += n) {
|
||||
len = fread(data, sizeof(data), (n - (flg ? 1 : 0)), file);
|
||||
} /* end for( i ) */
|
||||
} /* end read_raw_PBM */
|
||||
|
||||
|
||||
write_raw_PPM( file, data, width, height )
|
||||
FILE *file;
|
||||
write_raw_PPM(file, data, width, height) FILE *file;
|
||||
unsigned char *data;
|
||||
int width
|
||||
, height;
|
||||
int width, height;
|
||||
{
|
||||
struct rgb color24;
|
||||
int i
|
||||
, j
|
||||
, len;
|
||||
struct rgb color24;
|
||||
int i, j, len;
|
||||
|
||||
for( i=0; i<height; i++ ) {
|
||||
for( j=0; j<width; j++, ((union fbunit *)data)++ ) {
|
||||
color24.r = ((union fbunit *)data)->channel.R;
|
||||
color24.g = ((union fbunit *)data)->channel.G;
|
||||
color24.b = ((union fbunit *)data)->channel.B;
|
||||
len = fwrite( &color24, sizeof( color24 ), 1, file );
|
||||
} /* end for( j ) */
|
||||
} /* end for( i ) */
|
||||
for (i = 0; i < height; i++) {
|
||||
for (j = 0; j < width; j++, ((union fbunit *)data)++) {
|
||||
color24.r = ((union fbunit *)data)->channel.R;
|
||||
color24.g = ((union fbunit *)data)->channel.G;
|
||||
color24.b = ((union fbunit *)data)->channel.B;
|
||||
len = fwrite(&color24, sizeof(color24), 1, file);
|
||||
} /* end for( j ) */
|
||||
} /* end for( i ) */
|
||||
} /* end write_raw_PPM */
|
||||
|
||||
read_raw_PPM( file, data, width, height )
|
||||
FILE *file;
|
||||
read_raw_PPM(file, data, width, height) FILE *file;
|
||||
unsigned char *data;
|
||||
int width
|
||||
, height;
|
||||
int width, height;
|
||||
{
|
||||
struct rgb color24;
|
||||
int i
|
||||
, j
|
||||
, len;
|
||||
struct rgb color24;
|
||||
int i, j, len;
|
||||
|
||||
for( i=0; i<height; i++ ) {
|
||||
for( j=0; j<width; j++, ((union fbunit *)data)++ ) {
|
||||
len = fread( (char*)(&color24), sizeof( color24 ), 1, file );
|
||||
((union fbunit *)data)->channel.R = color24.r;
|
||||
((union fbunit *)data)->channel.G = color24.g;
|
||||
((union fbunit *)data)->channel.B = color24.b;
|
||||
} /* end for( j ) */
|
||||
} /* end for( i ) */
|
||||
for (i = 0; i < height; i++) {
|
||||
for (j = 0; j < width; j++, ((union fbunit *)data)++) {
|
||||
len = fread((char *)(&color24), sizeof(color24), 1, file);
|
||||
((union fbunit *)data)->channel.R = color24.r;
|
||||
((union fbunit *)data)->channel.G = color24.g;
|
||||
((union fbunit *)data)->channel.B = color24.b;
|
||||
} /* end for( j ) */
|
||||
} /* end for( i ) */
|
||||
} /* endi read_raw_PPM */
|
||||
|
||||
int
|
||||
image_file_type( file )
|
||||
FILE *file;
|
||||
int image_file_type(file) FILE *file;
|
||||
{
|
||||
int c
|
||||
, file_type;
|
||||
int c, file_type;
|
||||
|
||||
if( (c = getc( file )) == -1 ) return( NOT_IMAGEFILE );
|
||||
if ((c = getc(file)) == -1) return (NOT_IMAGEFILE);
|
||||
|
||||
switch( c ) {
|
||||
case 'Y': /* may be Sun Raster format */
|
||||
file_type = TYPE_SUNRASTER;
|
||||
break;
|
||||
case 'P': {
|
||||
if( (c = getc( file )) == -1 ) return( NOT_IMAGEFILE );
|
||||
if( c == '4' ) file_type = TYPE_PBM;
|
||||
else if( c == '6' ) file_type = TYPE_PPM;
|
||||
else file_type = NOT_IMAGEFILE;
|
||||
} /* end case P */
|
||||
break;
|
||||
defaults:
|
||||
file_type = NOT_IMAGEFILE;
|
||||
break;
|
||||
} /* end switch( c ) */
|
||||
switch (c) {
|
||||
case 'Y': /* may be Sun Raster format */ file_type = TYPE_SUNRASTER; break;
|
||||
case 'P': {
|
||||
if ((c = getc(file)) == -1) return (NOT_IMAGEFILE);
|
||||
if (c == '4')
|
||||
file_type = TYPE_PBM;
|
||||
else if (c == '6')
|
||||
file_type = TYPE_PPM;
|
||||
else
|
||||
file_type = NOT_IMAGEFILE;
|
||||
} /* end case P */
|
||||
break;
|
||||
defaults:
|
||||
file_type = NOT_IMAGEFILE;
|
||||
break;
|
||||
} /* end switch( c ) */
|
||||
|
||||
rewind( file );
|
||||
rewind(file);
|
||||
|
||||
return( file_type );
|
||||
return (file_type);
|
||||
} /* end image_file_type */
|
||||
|
||||
read_PBM_header( file, info )
|
||||
FILE *file;
|
||||
read_PBM_header(file, info) FILE *file;
|
||||
struct image_info *info;
|
||||
{
|
||||
int err;
|
||||
int err;
|
||||
|
||||
err = skip_line( file );
|
||||
if( err == 0 ) return( err );
|
||||
err = skip_line(file);
|
||||
if (err == 0) return (err);
|
||||
|
||||
err = read_available_line( file, buff );
|
||||
if( err == 0 ) return( err );
|
||||
err = sscanf( buff, "%d %d", &(info->width), &(info->height) );
|
||||
if( err == 0 ) return( err );
|
||||
err = read_available_line(file, buff);
|
||||
if (err == 0) return (err);
|
||||
err = sscanf(buff, "%d %d", &(info->width), &(info->height));
|
||||
if (err == 0) return (err);
|
||||
|
||||
return (err);
|
||||
|
||||
return( err );
|
||||
|
||||
} /* end read_PBM_header */
|
||||
|
||||
write_PBM_header( file, info )
|
||||
FILE *file;
|
||||
write_PBM_header(file, info) FILE *file;
|
||||
struct image_info *info;
|
||||
{
|
||||
fprintf( file, "P4\n" );
|
||||
fprintf( file, "%d %d\n", info->width, info->height );
|
||||
fprintf(file, "P4\n");
|
||||
fprintf(file, "%d %d\n", info->width, info->height);
|
||||
} /* write_PBM_header */
|
||||
|
||||
read_PPM_header( file, info )
|
||||
FILE *file;
|
||||
read_PPM_header(file, info) FILE *file;
|
||||
struct image_info *info;
|
||||
{
|
||||
int err;
|
||||
int err;
|
||||
|
||||
err = skip_line( file );
|
||||
if( err == 0 ) return( err );
|
||||
err = skip_line(file);
|
||||
if (err == 0) return (err);
|
||||
|
||||
err = read_available_line( file, buff );
|
||||
if( err == 0 ) return( err );
|
||||
err = sscanf( buff, "%d %d", &(info->width), &(info->height) );
|
||||
if( err == 0 ) return( err );
|
||||
err = read_available_line(file, buff);
|
||||
if (err == 0) return (err);
|
||||
err = sscanf(buff, "%d %d", &(info->width), &(info->height));
|
||||
if (err == 0) return (err);
|
||||
|
||||
err = skip_line( file );
|
||||
err = skip_line(file);
|
||||
|
||||
return( err );
|
||||
return (err);
|
||||
|
||||
} /* read_PPM_header */
|
||||
|
||||
write_PPM_header( file, info )
|
||||
FILE *file;
|
||||
write_PPM_header(file, info) FILE *file;
|
||||
struct image_info *info;
|
||||
{
|
||||
fprintf( file, "P6\n" );
|
||||
fprintf( file, "%d %d\n", info->width, info->height );
|
||||
fprintf( file, "255\n" );
|
||||
fprintf(file, "P6\n");
|
||||
fprintf(file, "%d %d\n", info->width, info->height);
|
||||
fprintf(file, "255\n");
|
||||
} /* end write_PPM_header */
|
||||
|
||||
int
|
||||
skip_line( file )
|
||||
FILE *file;
|
||||
int skip_line(file) FILE *file;
|
||||
{
|
||||
char *err;
|
||||
char buff[ MAX_BUFF_SIZE ];
|
||||
char *err;
|
||||
char buff[MAX_BUFF_SIZE];
|
||||
|
||||
err = fgets( buff, (int)MAX_BUFF_SIZE, file );
|
||||
return( (int)err );
|
||||
err = fgets(buff, (int)MAX_BUFF_SIZE, file);
|
||||
return ((int)err);
|
||||
} /* end skip_line */
|
||||
|
||||
int
|
||||
read_available_line( file, buff )
|
||||
FILE *file;
|
||||
int read_available_line(file, buff) FILE *file;
|
||||
char *buff;
|
||||
{
|
||||
char *err;
|
||||
err = fgets( buff, MAX_BUFF_SIZE, file );
|
||||
while( (err != 0) && (buff[0] == '#') ) {
|
||||
err = fgets( buff, MAX_BUFF_SIZE, file );
|
||||
} /* end while */
|
||||
return( (int)err );
|
||||
char *err;
|
||||
err = fgets(buff, MAX_BUFF_SIZE, file);
|
||||
while ((err != 0) && (buff[0] == '#')) { err = fgets(buff, MAX_BUFF_SIZE, file); } /* end while */
|
||||
return ((int)err);
|
||||
} /* end read_available_line */
|
||||
|
||||
Reference in New Issue
Block a user