H/***********************************************************************@*_Title ADDLAB - Combine VICAR label and PDS label/edr data file*H*_Descr ADDLAB combines the VICAR label and the PDS label/edr data filesK* that were created for CDROM into the original NIMS edr file format I* of 1024 byte records. ADDLAB is used solely to create a file forA* the VICAR/NIMS software systems which reqire a VICAR formatted* file.*H* ADDLAB has two command-line arguments - the first parameter mustE* contain the name of the PDS/EDR labeled file. Specify the completeD* pathname, including the directory specification. The program willC* determine the name of the VICAR label file. The second parameter* is the output file.*A* The commands to compile, link and run this program on a DEC VAX** and a SUN UNIX workstation are below.** VAX:* cc addlab* link addlabF* To run a C program with command-line arguments on a VAX the:* program must be installed as a foreign command::* eg: addf=="$disk:[directory]addlab.exe" * To run:/* eg: addf pdsfile outfile *** SUN UNIX:;* cc -o addlab.exe addlab.c will compile and link* the program.;* addlab pdsfile outfile will run the program.*I*_Hist Nov 18 1992 Tracie Stoewe, PDS Imaging Node, USGS, Flagstaff Az**_EndI************************************************************************/#include #include #include #define IREC_LEN1 1024#define IREC_LEN2 512#define OREC_LEN 1024#define VIC "VIC"#define vic "vic"int vicname();main(argc, argv) int argc; char *argv[];{8 static char vicfile[81]; /* Name of VICAR label file */0 static char pdsfile[81]; /* Name of PDS file */H static char outfile[81]; /* Name of out file(VICAR label + PDS file) */ char ibuf[OREC_LEN]; int ierr; FILE *fpi1; FILE *fpi2; FILE *fpo; if (argc != 3) {G printf("You must specify the PDS image filename in 1st argument\n");@ printf("You must specify output filename in 2nd argument\n"); exit; } K/**************************************************************************<* The VICAR label file is constructed from the PDS filenameL***************************************************************************/ strcpy(pdsfile,argv[1]); strcpy(outfile,argv[2]);! ierr = vicname(vicfile,pdsfile); if (ierr != 0) exit;L/**************************************************************************** Open input filesM****************************************************************************/, if ( (fpi1 = fopen(vicfile,"rb")) == NULL ) {E printf(" *** ERROR *** Can't open VICAR label file %s\n",vicfile); exit; }, if ( (fpi2 = fopen(pdsfile,"rb")) == NULL ) {C printf(" *** ERROR *** Can't open PDS image file %s\n",pdsfile); exit; }K/**************************************************************************D* Open output file ( VICAR label + PDS edr file including PDS labelsL***************************************************************************/# ifdef vax< fpo = fopen(outfile,"wb","rfm=fix","fop=cbt","mrs=1024");# else fpo = fopen(outfile,"wb");# endif if (fpo == NULL) {F printf(" *** ERROR *** Can't open outpuf image file %s\n",outfile); exit; }J/*************************************************************************%* Read VICAR label and write to ouputK**************************************************************************/! fread(ibuf, IREC_LEN1, 1, fpi1); fwrite(ibuf, OREC_LEN, 1, fpo); fclose(fpi1);J/*************************************************************************M* Read PDS labels and image and write to output- input has 512 byte records,* output has 1024 byte recordsK/*************************************************************************/ while (!feof(fpi2)) {" fread(ibuf,IREC_LEN2, 1, fpi2);* fread(ibuf+IREC_LEN2,IREC_LEN2,1,fpi2);3 if (!feof(fpi2)) fwrite(ibuf, OREC_LEN, 1, fpo); } fclose(fpi2); fclose(fpo);}int vicname(vicfile, pdsfile) char *vicfile; char *pdsfile;L/***************************************************************************F* vicname creates the VICAR label filename from the PDS edr filename * which is inputM/***************************************************************************/{ char *i; strcpy(vicfile, pdsfile); i = strstr(vicfile, "EDR");, if (i == NULL) i = strstr(vicfile, "edr"); if (i == NULL) goto err;! if (*i == 'E') strncpy(i,VIC,3);! if (*i == 'e') strncpy(i,vic,3); i = strrchr(vicfile,']');1 if (i == NULL) i = strrchr(vicfile,'/');2 if (i == NULL) i = strrchr(vicfile,'\\');1 if (i == NULL) i = strrchr(vicfile,':'); if (i == NULL) goto err;) if ( (toupper(*(++i))) != 'E') goto err; *i = (*i == 'E')?'V':'v'; return 0;> err: printf("*** ERROR *** Can not build VICAR file name\n");5 printf("from the PDS file name: %s\n",pdsfile);9 printf("You must include the full directory name"); return -1;}