vcrtorle.c File Reference

#include <assert.h>
#include <stdio.h>
#include "rle.h"

Include dependency graph for vcrtorle.c:

Go to the source code of this file.

Functions
static void	FatalError (char *s)
static void	ParseVICARHeader (FILE *fd)
void	addVICARcomment (rle_hdr *the_hdr, char *label, char *value)
void	SetUpRLEFile (rle_hdr *the_hdr, int xsize, int ysize, int zsize)
int	main (int argc, argv)

Variables
static char	rcs_id [] = "$Header:$"
static int	VERBOSE = 0
static char *	RoutineName
static long int	VICARpos
static int	LBLSIZE
static char	FORMAT [80]
static char	TYPE [80]
static int	BUFSIZe
static int	DIM
static int	EOL
static int	RECSIZE
static char	ORG [80]
static int	NL
static int	NS
static int	NB
static int	N1
static int	N2
static int	N3
static int	N4
static int	NBB
static int	NLB
static char	HOST [80]
static char	INTFMT [80]
static char	REALFMT [80]
static char	TASK [80]
static char	USER [80]
static char	DAT_TIM [80]
static char	COMMENT [80]

Function Documentation

void addVICARcomment	(	rle_hdr *	the_hdr,
		char *	label,
		char *	value
	)

Definition at line 257 of file vcrtorle.c.

{
    char *comment;

    if ( *value == 0 )
    return;
    /* 8 = length of "VICAR" + "=" + nul byte. */
    comment = (char *)malloc( 8 + strlen( label ) + strlen( value ) );
    sprintf( comment, "VICAR-%s=%s", label, value );
    rle_putcom( comment, the_hdr );
}

static void FatalError ( char *  s )

static

Definition at line 101 of file vcrtorle.c.

 {
  fprintf(stderr,"%s\n",s); exit(1);
 }

int main	(	int	argc,
		argv
	)

Definition at line 291 of file vcrtorle.c.

{
    char *VICARFileName = NULL;
    FILE *fd;
    unsigned char *VICARImage;
    char *outfname = NULL;
    int oflag = 0;
    int x,y,z;
    long int nread;
    rle_hdr the_hdr;
    rle_pixel **rows;

    the_hdr = *rle_hdr_init( (rle_hdr *)NULL );
    if ( scanargs( argc, argv, "% v%- o%-outfile!s infile%s\n(\
\tConvert VICAR format image to URT.\n\
\t-v\tVerbose -- print out VICAR header information.)",
           &VERBOSE, &oflag, &outfname, &VICARFileName ) == 0 )
    exit( 1 );
    rle_names( &the_hdr, cmd_name( argv ), outfname );
    rle_addhist( argv, NULL, &the_hdr );
  
    fd = rle_open_f(the_hdr.cmd,VICARFileName,"r");

    ParseVICARHeader(fd);

    /* Check for what we know how to handle. */
    if ( NB != 1 )
    {
    fprintf( stderr, "%s: Can't handle NB (%d) != 1 in %s.\n",
         the_hdr.cmd, NB, the_hdr.file_name );
    exit( 1 );
    }
    if ( strcmp( FORMAT, "'BYTE'" ) != 0 )
    {
    fprintf( stderr, "%s: Can't handle FORMAT (%s) != 'BYTE' in %s.\n",
         the_hdr.cmd, FORMAT, the_hdr.file_name );
    exit( 1 );
    }

    /* !!! Will have to be modified when we handle NB>1. !!! */
    VICARImage = (unsigned char *)malloc( NS * NL );
    RLE_CHECK_ALLOC(the_hdr.cmd, VICARImage, "image");

    the_hdr.rle_file = rle_open_f( the_hdr.cmd, outfname, "w" );

    SetUpRLEFile(&the_hdr, NS, NL, NB);
    rle_put_setup( &the_hdr );

    rows = (rle_pixel **)malloc( NB * sizeof(rle_pixel *) );

    /* !!! Will have to be modified when we handle NB>1. !!! */
    nread = fread( VICARImage, 1, NS*NL, fd );
    if ( nread < NS*NL )
    fprintf( stderr, "%s: Short read from %s (%d bytes missing)\n",
         the_hdr.cmd, the_hdr.file_name, NS*NL - nread );
    for(y=(NL-1);y>=0;y--)  /* flip in y */
    {
    /* !!! Loop somehow if NB > 1. !!! */
    rows[0] = VICARImage + NS * y;

    rle_putrow( rows, NS, &the_hdr );
    }
    rle_puteof( &the_hdr );
    exit(0);
}

static void ParseVICARHeader ( FILE *  fd )

static

Definition at line 134 of file vcrtorle.c.

{
    char Name[81],Value[1024];
    int n;

    for ( n = 0; ; n++ )
    {
    Value[n] = fgetc( fd );
    if ( Value[n] == ' ' )
        break;
    }
    Value[n++] = 0;

    sscanf(Value,"%80[^=]=%d",Name,&LBLSIZE);
    if (VERBOSE) fprintf(stderr,"[%s = %d]\n",Name,LBLSIZE);
    if (0 != strcmp("LBLSIZE",Name)) FatalError("This is not a VICAR file");

    /* There must be a better way to read the header.  This is gross. */
    while(n < LBLSIZE)
    {
    register char *cp;
    register char c = ' ';
    int done;

    /* Skip spaces. */
    while ( c == ' ' && n < LBLSIZE )
    {
        c = fgetc( fd );
        n++;
    }

    /* Get Name. */
    cp = &Name[0];
    while ( c != '=' && c != '\0' && n < LBLSIZE )
    {
        *cp++ = c;
        c = fgetc( fd );
        n++;
    }
    *cp = 0;

    if ( n >= LBLSIZE )
        break;

    if ('\0' == Name[0] || c == '\0')
        break;

    /* At this point, c is '='.  Get the next character. */
    Value[0] = fgetc( fd );
    n++;

    cp = &Value[1];
    if ('\'' == Value[0]) 
        for(;n < LBLSIZE;cp++)
        {
        *cp = fgetc( fd );
        n++;
        if ('\'' == *cp)
        {
            *++cp = '\0';
            break;
        }
        }
    else 
        for(;n < LBLSIZE;cp++)
        {
        *cp = fgetc(fd);
        n++;
        if (' ' == *cp)
        {
            *cp = '\0';
            done =  0;
            break;
        }
        if ('\0' == *cp)
        {
            done = -1;
            break;
        }
        }

    if (VERBOSE) fprintf(stderr,"[%s = %s]\n",Name,Value);
    Value[80] = '\0';   /* for our own protection... */

    if (0 == strcmp("FORMAT" ,Name)) {strcpy(FORMAT ,Value); continue;} 
    if (0 == strcmp("TYPE"   ,Name)) {strcpy(TYPE   ,Value); continue;} 
    if (0 == strcmp("BUFSIZ" ,Name)) {BUFSIZe = atoi(Value); continue;}
    if (0 == strcmp("DIM"    ,Name)) {DIM     = atoi(Value); continue;}
    if (0 == strcmp("EOL"    ,Name)) {EOL     = atoi(Value); continue;}
    if (0 == strcmp("RECSIZE",Name)) {RECSIZE = atoi(Value); continue;}
    if (0 == strcmp("ORG"    ,Name)) {strcpy(ORG    ,Value); continue;} 
    if (0 == strcmp("NL"     ,Name)) {NL      = atoi(Value); continue;}
    if (0 == strcmp("NS"     ,Name)) {NS      = atoi(Value); continue;}
    if (0 == strcmp("NB"     ,Name)) {NB      = atoi(Value); continue;}
    if (0 == strcmp("N1"     ,Name)) {N1      = atoi(Value); continue;}
    if (0 == strcmp("N2"     ,Name)) {N2      = atoi(Value); continue;}
    if (0 == strcmp("N3"     ,Name)) {N3      = atoi(Value); continue;}
    if (0 == strcmp("N4"     ,Name)) {N4      = atoi(Value); continue;}
    if (0 == strcmp("NBB"    ,Name)) {NBB     = atoi(Value); continue;}
    if (0 == strcmp("NLB"    ,Name)) {NLB     = atoi(Value); continue;}
    if (0 == strcmp("HOST"   ,Name)) {strcpy(HOST   ,Value); continue;} 
    if (0 == strcmp("INTFMT" ,Name)) {strcpy(INTFMT ,Value); continue;} 
    if (0 == strcmp("REALFMT",Name)) {strcpy(REALFMT,Value); continue;} 
    if (0 == strcmp("TASK"   ,Name)) {strcpy(TASK   ,Value); continue;} 
    if (0 == strcmp("USER"   ,Name)) {strcpy(USER   ,Value); continue;} 
    if (0 == strcmp("DAT_TIM",Name)) {strcpy(DAT_TIM,Value); continue;} 
    if (0 == strcmp("COMMENT",Name)) {strcpy(COMMENT,Value); continue;} 
    if (done) break;
    }  

    /* Skip the rest of the label. */
    while ( n < LBLSIZE )
    {
    (void)fgetc( fd );
    n++;
    }
    
    VICARpos = n;
}

void SetUpRLEFile	(	rle_hdr *	the_hdr,
		int	xsize,
		int	ysize,
		int	zsize
	)

Definition at line 271 of file vcrtorle.c.

{

    the_hdr->xmin = 0;
    the_hdr->xmax = xsize - 1;
    the_hdr->ymin = 0;
    the_hdr->ymax = ysize - 1;

    /* 1=B&W, 3=RGB? */
    the_hdr->ncolors = zsize;

    /* Carry over info from VICAR file as comments. */
    addVICARcomment( the_hdr, "USER", USER );
    addVICARcomment( the_hdr, "DAT_TIM", DAT_TIM );
    addVICARcomment( the_hdr, "TASK", TASK );
    addVICARcomment( the_hdr, "COMMENT", COMMENT );
}  

Variable Documentation

int BUFSIZe

static

Definition at line 112 of file vcrtorle.c.

char COMMENT[80]

static

Definition at line 132 of file vcrtorle.c.

char DAT_TIM[80]

static

Definition at line 131 of file vcrtorle.c.

int DIM

static

Definition at line 113 of file vcrtorle.c.

int EOL

static

Definition at line 114 of file vcrtorle.c.

char FORMAT[80]

static

Definition at line 110 of file vcrtorle.c.

char HOST[80]

static

Definition at line 126 of file vcrtorle.c.

char INTFMT[80]

static

Definition at line 127 of file vcrtorle.c.

int LBLSIZE

static

Definition at line 109 of file vcrtorle.c.

int N1

static

Definition at line 120 of file vcrtorle.c.

int N2

static

Definition at line 121 of file vcrtorle.c.

int N3

static

Definition at line 122 of file vcrtorle.c.

int N4

static

Definition at line 123 of file vcrtorle.c.

int NB

static

Definition at line 119 of file vcrtorle.c.

int NBB

static

Definition at line 124 of file vcrtorle.c.

int NL

static

Definition at line 117 of file vcrtorle.c.

int NLB

static

Definition at line 125 of file vcrtorle.c.

int NS

static

Definition at line 118 of file vcrtorle.c.

char ORG[80]

static

Definition at line 116 of file vcrtorle.c.

char rcs_id[] = "$Header:$"

static

Definition at line 85 of file vcrtorle.c.

char REALFMT[80]

static

Definition at line 128 of file vcrtorle.c.

int RECSIZE

static

Definition at line 115 of file vcrtorle.c.

char* RoutineName

static

Definition at line 97 of file vcrtorle.c.

char TASK[80]

static

Definition at line 129 of file vcrtorle.c.

char TYPE[80]

static

Definition at line 111 of file vcrtorle.c.

char USER[80]

static

Definition at line 130 of file vcrtorle.c.

int VERBOSE = 0

static

Definition at line 96 of file vcrtorle.c.

long int VICARpos

static

Definition at line 99 of file vcrtorle.c.