##// END OF EJS Templates
DATABASES » madrigal
RSS
Update configs
Update configs
jespinoza - - Load All Authors

File last commit:

r0:b84e1135c2c4
r9:2e29893b10f5
Show More
testMadrec.c
128 lines | 3.6 KiB | text/x-c | CLexer
/ source / madc / madrec / testMadrec.c
History | Source | Raw |Copy content |Copy permalink
jespinoza
Initial
 r0 /* $Id: testMadrec.c 3304 2011-01-17 15:25:59Z brideout $ */
/*
modification history
--------------------
00a,22Apr96 original
*/
/*
* USAGE: testMadrec
* This program is a simple example illustrating the use of the madrec
* library. It is hardwired to open and process
* $MADROOT/experiments/1998/mlh/20jan98/mil980120g.002.
*
* Supported formats:
* 0 - Madrigal
* 1 - Blocked Binary
* 2 - Cbf
* 3 - Unblocked Binary
* 4 - Ascii
*/
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <stdio.h>
#include <cedarIO.h>
#include <madrec.h>
#include <cedar.h>
#include <date.h>
int
main (argc, argv)
int argc;
char *argv[];
{
Madrec *madrecp;
double key;
int status;
char madfile[128] = "";
/* Get the name of the madrigal file */
if (argc == 1) {
cedarGetMadroot(madfile);
strcat(madfile, "/experiments/1998/mlh/20jan98/mil980120g.002");
} else if (argc == 2) {
strcpy(madfile, argv[1]);
} else {
return(-1);
}
/* Create a madrec object */
madrecp = madrecCreate();
printf("create: %s\n", madrecGetError(madrecp));
/* Connect the madrec object to a madrigal file */
madrecOpen(madrecp, 30, madfile);
printf("open: %s\n", madrecGetError(madrecp));
if (strcmp(madrecGetError(madrecp), "No errors"))
{
printf("The standard test files need to be installed for this test to run - see www.openmadrigal.org.\n");
return -1;
}
/* specify a record by date and time */
key = getKey(1998, 1, 20, 15, 0, 0);
/* Get the specified record */
status = madrecGetRecByKey(madrecp, key);
printf("getRecordByKey - time 1500: %s\n", madrecGetError(madrecp));
/* Print the record */
cedarPrintRecord(madrecp->recordp);
printf("printRecord: %s\n\n", madrecGetError(madrecp));
/* get a record by recno */
status = madrecGetRecByRecno(madrecp, 27);
printf("getRecByRecno - rec 27 time 1441: %s\n", madrecGetError(madrecp));
/* Print the record */
cedarPrintRecord(madrecp->recordp);
printf("printRecord: %s\n\n", madrecGetError(madrecp));
/* specify a record by new date and time */
key = getKey(1998, 1, 20, 16, 0, 0);
/* Get the specified record */
status = madrecGetRecByKey(madrecp, key);
printf("getRecordByKey - time 1600: %s\n", madrecGetError(madrecp));
/* Print the record */
cedarPrintRecord(madrecp->recordp);
printf("printRecord: %s\n\n", madrecGetError(madrecp));
/* now try sorting */
madrecGetSortedRecnoList(madrecp);
/* print the list
for (i=0; i<madrecp->nrecords; i++)
{
printf("Next record: %i\n", madrecp->sortedRecnoList[i]);
}*/
/* now print records according to sort order */
status = madrecGetRecByRecno(madrecp, madrecp->sortedRecnoList[0]);
printf("madrecGetRecByRecno for sorted rec 0: %s\n", madrecGetError(madrecp));
/* Print the record */
cedarPrintRecord(madrecp->recordp);
printf("printRecord: %s\n\n", madrecGetError(madrecp));
status = madrecGetRecByRecno(madrecp, madrecp->sortedRecnoList[10]);
printf("madrecGetRecByRecno for sorted rec 10 - time 1405: %s\n", madrecGetError(madrecp));
/* Print the record */
cedarPrintRecord(madrecp->recordp);
printf("printRecord: %s\n\n", madrecGetError(madrecp));
/* Disconnect the madrigal file */
madrecClose(madrecp);
printf("close: %s\n", madrecGetError(madrecp));
/* Destroy the madrec object */
madrecDestroy(madrecp);
return(0);
}