|
|
/* $Id: translateCedarFile.c 3304 2011-01-17 15:25:59Z brideout $ */
|
|
|
|
|
|
/*
|
|
|
modification history
|
|
|
--------------------
|
|
|
01a,27Mar00 Original
|
|
|
*/
|
|
|
|
|
|
/*
|
|
|
* Usage: translateCedarFile inputFile outputFile outputFileFormat
|
|
|
*
|
|
|
* This program copies a Cedar file to another file containing the same
|
|
|
* Cedar records. There are five supported formats:
|
|
|
* 0 - Madrigal
|
|
|
* 1 - Blocked Binary
|
|
|
* 2 - Cbf
|
|
|
* 3 - Unblocked Binary
|
|
|
* 4 - Ascii
|
|
|
* The format of the input file is detected automatically. The format
|
|
|
* of the output file is an input parameter. For example:
|
|
|
* translateCedarFile mil980120g.002 mil980120g.cbf 2
|
|
|
* translates mil980120g.002 into a Cray Blocked Format (cbf) file. The
|
|
|
* output file format may be the same as the input file format, which may
|
|
|
* be useful for cleaning up a file. For example, carriage returns are
|
|
|
* ignored when reading a Cedar Ascii file, but line breaks in an output
|
|
|
* Ascii file conform to the standard.
|
|
|
*
|
|
|
*/
|
|
|
|
|
|
#include <stdlib.h>
|
|
|
#include <string.h>
|
|
|
#include <stdio.h>
|
|
|
#include <madrec.h>
|
|
|
#include <cedar.h>
|
|
|
|
|
|
int
|
|
|
main (argc, argv)
|
|
|
int argc;
|
|
|
char *argv[];
|
|
|
{
|
|
|
Madrec *madrecrp, /* Input file - any type */
|
|
|
*madrecwp; /* Output File - type 0-4 */
|
|
|
char *infile, *outfile;
|
|
|
int iotype, i, stat;
|
|
|
static char *err2="Usage: translateCedarFile inputFile outputFile outputFileFormat";
|
|
|
static char *err3="Error: Output file format must be in range 0-4";
|
|
|
|
|
|
/* Get the input parameters */
|
|
|
if (argc == 4) {
|
|
|
infile = argv[1];
|
|
|
outfile = argv[2];
|
|
|
iotype = atoi(argv[3]);
|
|
|
if (iotype < 0 || iotype > 4) {
|
|
|
fprintf(stderr, "%s\n", err3);
|
|
|
return(1);
|
|
|
} else {
|
|
|
iotype = 20 + iotype;
|
|
|
}
|
|
|
} else {
|
|
|
fprintf(stderr, "%s\n", err2);
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
|
|
|
/* Create a madrec object for the input file */
|
|
|
if ((madrecrp = madrecCreate()) == (Madrec *) NULL) {
|
|
|
fprintf(stderr, "create madrecr: %s\n", madrecGetError(madrecrp));
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
/* Connect the input madrec object to a madrigal file */
|
|
|
/* Chose opcode 1 to autodetect the file type */
|
|
|
if (madrecOpen(madrecrp, 1, infile) != 0) {
|
|
|
fprintf(stderr, "open madrecr: %s\n", madrecGetError(madrecrp));
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
/* Create a madrec object for the output file */
|
|
|
if ((madrecwp = madrecCreate()) == (Madrec *) NULL) {
|
|
|
fprintf(stderr, "create madrecw: %s\n", madrecGetError(madrecwp));
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
/* Connect the output madrec object to a madrigal file */
|
|
|
if (madrecOpen(madrecwp, iotype, outfile) != 0) {
|
|
|
fprintf(stderr, "open madrecw: %s\n", madrecGetError(madrecwp));
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
i = 0;
|
|
|
while ((stat=madrecGetNextRec(madrecrp)) == 0) {
|
|
|
if (madrecCopy(madrecrp, madrecwp) != 0) {
|
|
|
fprintf(stderr, "copy madrecr: %s\n", madrecGetError(madrecrp));
|
|
|
fprintf(stderr, "copy madrecw: %s\n", madrecGetError(madrecwp));
|
|
|
return(1);
|
|
|
}
|
|
|
if ( madrecPutNextRec(madrecwp) != 0) {
|
|
|
fprintf(stderr, "putNextRec madrecw: %s\n", madrecGetError(madrecwp));
|
|
|
return(1);
|
|
|
}
|
|
|
i++;
|
|
|
}
|
|
|
|
|
|
if (stat != 0 && stat != -1) {
|
|
|
printf("madrecGetNextRec error %d\n", stat);
|
|
|
return(1);
|
|
|
}
|
|
|
|
|
|
printf("%d records copied from %s to %s\n", i, infile, outfile);
|
|
|
|
|
|
if (madrecClose(madrecrp) != 0) {
|
|
|
fprintf(stderr, "close madrecr: %s\n", madrecGetError(madrecrp));
|
|
|
return(1);
|
|
|
}
|
|
|
madrecDestroy(madrecrp);
|
|
|
if (madrecClose(madrecwp) != 0) {
|
|
|
fprintf(stderr, "close madrecw: %s\n", madrecGetError(madrecwp));
|
|
|
return(1);
|
|
|
}
|
|
|
madrecDestroy(madrecwp);
|
|
|
|
|
|
return(0);
|
|
|
}
|
|
|
|
