/*--------------------------------------------------------------------*/
int mb_fileio_open(int verbose, void *mbio_ptr, int *error)
{
char *function_name = "mb_fileio_open";
int status = MB_SUCCESS;
struct mb_io_struct *mb_io_ptr;
int fileiobuffer;
size_t fileiobufferbytes;
int buffer_status = MB_SUCCESS;
int buffer_error = MB_ERROR_NO_ERROR;
/* print input debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 MBIO function <%s> called\n",function_name);
fprintf(stderr,"dbg2 Input arguments:\n");
fprintf(stderr,"dbg2 verbose: %d\n",verbose);
fprintf(stderr,"dbg2 mbio_ptr: %lu\n",(size_t)mbio_ptr);
}
/* get mbio descriptor */
mb_io_ptr = (struct mb_io_struct *) mbio_ptr;
/* open the file for reading */
if (mb_io_ptr->filemode == MB_FILEMODE_READ)
{
if ((mb_io_ptr->mbfp = fopen(mb_io_ptr->file, "r")) == NULL)
{
*error = MB_ERROR_OPEN_FAIL;
status = MB_FAILURE;
}
}
else if (mb_io_ptr->filemode == MB_FILEMODE_WRITE)
{
if ((mb_io_ptr->mbfp = fopen(mb_io_ptr->file, "wb")) == NULL)
{
*error = MB_ERROR_OPEN_FAIL;
status = MB_FAILURE;
}
}
/* set buffering if desired
fileiomode: mode of single normal file i/o:
0 use fread() and fwrite() with standard buffering
>0 use fread() and fwrite() with user defined buffer
<0 use mmap for file i/o */
if (status == MB_SUCCESS)
{
mb_fileiobuffer(verbose, &fileiobuffer);
if (fileiobuffer > 0)
{
/* the buffer size must be a multiple of 512, plus 8 to be efficient */
fileiobufferbytes = (fileiobuffer * 1024) + 8;
/* allocate the buffer */
buffer_error = MB_ERROR_NO_ERROR;
buffer_status = mb_mallocd(verbose,__FILE__, __LINE__, fileiobufferbytes,
(void **) &mb_io_ptr->file_iobuffer, &buffer_error);
/* apply the buffer */
if (buffer_status == MB_SUCCESS)
{
buffer_status = setvbuf(mb_io_ptr->mbfp, mb_io_ptr->file_iobuffer, _IOFBF, fileiobufferbytes);
/* printf(stderr,"Called setvbuf size:%d status:%d\n",fileiobufferbytes,buffer_status); */
}
}
}
/* print output debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 MBIO function <%s> completed\n",function_name);
fprintf(stderr,"dbg2 Return values:\n");
fprintf(stderr,"dbg2 error: %d\n",*error);
fprintf(stderr,"dbg2 Return status:\n");
fprintf(stderr,"dbg2 status: %d\n",status);
}
/* return status */
return(status);
}
int main (int argc, char **argv)
{
char program_name[] = "MBDEFAULTS";
char help_message[] = "MBDEFAULTS sets and retrieves the /default MBIO control \nparameters stored in the file ~/.mbio_defaults. \nOnly the parameters specified by command line \narguments will be changed; if no ~/.mbio_defaults \nfile exists one will be created.";
char usage_message[] = "mbdefaults [-Bfileiobuffer -Dpsdisplay -Ffbtversion -Iimagedisplay -Llonflip\n\t-Ttimegap -Wproject -V -H]";
extern char *optarg;
int errflg = 0;
int c;
int status;
int error = MB_ERROR_NO_ERROR;
int verbose = 0;
int help = 0;
int flag = 0;
FILE *fp;
char file[MB_PATH_MAXLINE];
char psdisplay[MB_PATH_MAXLINE];
char imgdisplay[MB_PATH_MAXLINE];
char mbproject[MB_PATH_MAXLINE];
char argstring[MB_PATH_MAXLINE];
int fbtversion = 3;
int uselockfiles = 1;
int fileiobuffer = 0;
char *HOME = "HOME";
char *getenv();
/* MBIO control parameters */
int format;
int pings;
int lonflip;
double bounds[4];
int btime_i[7];
int etime_i[7];
double speedmin;
double timegap;
/* get current default mbio values */
status = mb_defaults(verbose,&format,&pings,&lonflip,bounds,
btime_i,etime_i,&speedmin,&timegap);
/* now get current mb environment values */
status = mb_env(verbose,psdisplay,imgdisplay,mbproject);
/* now get current fbtversion value */
status = mb_fbtversion(verbose,&fbtversion);
/* now get current uselockfiles value */
status = mb_uselockfiles(verbose,&uselockfiles);
/* now get current fileio buffering values */
status = mb_fileiobuffer(verbose,&fileiobuffer);
/* process argument list */
while ((c = getopt(argc, argv, "B:b:D:d:F:f:HhI:i:L:l:T:t:U:u:VvW:w:")) != -1)
switch (c)
{
case 'B':
case 'b':
sscanf (optarg,"%d",&fileiobuffer);
flag++;
break;
case 'D':
case 'd':
sscanf (optarg,"%s",psdisplay);
flag++;
break;
case 'F':
case 'f':
sscanf (optarg,"%s",argstring);
if (strncmp(argstring,"new",3) == 0 || strncmp(argstring,"NEW",3) == 0)
fbtversion = 3;
else if (strncmp(argstring,"old",2) == 0 || strncmp(argstring,"OLD",2) == 0)
fbtversion = 2;
else if (strncmp(argstring,"2",1) == 0)
fbtversion = 2;
else if (strncmp(argstring,"3",1) == 0)
fbtversion = 3;
flag++;
break;
case 'I':
case 'i':
sscanf (optarg,"%s", imgdisplay);
flag++;
break;
case 'H':
case 'h':
help++;
break;
case 'L':
case 'l':
sscanf (optarg,"%d", &lonflip);
flag++;
break;
case 'T':
case 't':
sscanf (optarg,"%lf", &timegap);
flag++;
break;
case 'U':
case 'u':
sscanf (optarg,"%s",argstring);
if (strncmp(argstring,"yes",3) == 0 || strncmp(argstring,"YES",3) == 0)
uselockfiles = 1;
else if (strncmp(argstring,"no",2) == 0 || strncmp(argstring,"NO",2) == 0)
uselockfiles = 0;
else if (strncmp(argstring,"1",1) == 0)
uselockfiles = 1;
else if (strncmp(argstring,"0",1) == 0)
uselockfiles = 0;
flag++;
break;
case 'V':
case 'v':
verbose++;
break;
case 'W':
case 'w':
sscanf (optarg,"%s", mbproject);
flag++;
break;
case '?':
errflg++;
}
/* if error flagged then print it and exit */
if (errflg)
{
fprintf(stderr,"usage: %s\n", usage_message);
error = MB_ERROR_BAD_USAGE;
exit(error);
}
/* print starting message */
if (verbose == 1 || help)
{
fprintf(stderr,"\nProgram %s\n",program_name);
fprintf(stderr,"Version %s\n",rcs_id);
fprintf(stderr,"MB-system Version %s\n",MB_VERSION);
}
/* print starting debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 Program <%s>\n",program_name);
fprintf(stderr,"dbg2 Version %s\n",rcs_id);
fprintf(stderr,"dbg2 MB-system Version %s\n",MB_VERSION);
fprintf(stderr,"dbg2 Control Parameters:\n");
fprintf(stderr,"dbg2 verbose: %d\n",verbose);
fprintf(stderr,"dbg2 help: %d\n",help);
fprintf(stderr,"dbg2 format: %d\n",format);
fprintf(stderr,"dbg2 pings: %d\n",pings);
fprintf(stderr,"dbg2 lonflip: %d\n",lonflip);
fprintf(stderr,"dbg2 bounds[0]: %f\n",bounds[0]);
fprintf(stderr,"dbg2 bounds[1]: %f\n",bounds[1]);
fprintf(stderr,"dbg2 bounds[2]: %f\n",bounds[2]);
fprintf(stderr,"dbg2 bounds[3]: %f\n",bounds[3]);
fprintf(stderr,"dbg2 btime_i[0]: %d\n",btime_i[0]);
fprintf(stderr,"dbg2 btime_i[1]: %d\n",btime_i[1]);
fprintf(stderr,"dbg2 btime_i[2]: %d\n",btime_i[2]);
fprintf(stderr,"dbg2 btime_i[3]: %d\n",btime_i[3]);
fprintf(stderr,"dbg2 btime_i[4]: %d\n",btime_i[4]);
fprintf(stderr,"dbg2 btime_i[5]: %d\n",btime_i[5]);
fprintf(stderr,"dbg2 btime_i[6]: %d\n",btime_i[6]);
fprintf(stderr,"dbg2 etime_i[0]: %d\n",etime_i[0]);
fprintf(stderr,"dbg2 etime_i[1]: %d\n",etime_i[1]);
fprintf(stderr,"dbg2 etime_i[2]: %d\n",etime_i[2]);
fprintf(stderr,"dbg2 etime_i[3]: %d\n",etime_i[3]);
fprintf(stderr,"dbg2 etime_i[4]: %d\n",etime_i[4]);
fprintf(stderr,"dbg2 etime_i[5]: %d\n",etime_i[5]);
fprintf(stderr,"dbg2 etime_i[6]: %d\n",etime_i[6]);
fprintf(stderr,"dbg2 speedmin: %f\n",speedmin);
fprintf(stderr,"dbg2 timegap: %f\n",timegap);
fprintf(stderr,"dbg2 psdisplay: %s\n",psdisplay);
fprintf(stderr,"dbg2 imgdisplay: %s\n",imgdisplay);
fprintf(stderr,"dbg2 mbproject: %s\n",mbproject);
fprintf(stderr,"dbg2 fbtversion: %d\n",fbtversion);
fprintf(stderr,"dbg2 uselockfiles: %d\n",uselockfiles);
fprintf(stderr,"dbg2 fileiobuffer: %d\n",fileiobuffer);
}
/* if help desired then print it and exit */
if (help)
{
fprintf(stderr,"\n%s\n",help_message);
fprintf(stderr,"\nusage: %s\n", usage_message);
exit(error);
}
/* write out new ~/.mbio_defaults file if needed */
if (flag)
{
strcpy(file,getenv(HOME));
strcat(file,"/.mbio_defaults");
if ((fp = fopen(file, "w")) == NULL)
{
fprintf (stderr, "Could not open file %s\n", file);
error = MB_ERROR_OPEN_FAIL;
exit(error);
}
fprintf(fp,"MBIO Default Control Parameters\n");
fprintf(fp,"lonflip: %d\n",lonflip);
fprintf(fp,"timegap: %f\n",timegap);
fprintf(fp,"ps viewer: %s\n",psdisplay);
fprintf(fp,"img viewer: %s\n",imgdisplay);
fprintf(fp,"project: %s\n",mbproject);
fprintf(fp,"fbtversion: %d\n",fbtversion);
fprintf(fp,"uselockfiles:%d\n",uselockfiles);
fprintf(fp,"fileiobuffer:%d\n",fileiobuffer);
fclose(fp);
printf("\nNew MBIO Default Control Parameters:\n");
printf("lonflip: %d\n",lonflip);
printf("timegap: %f\n",timegap);
printf("ps viewer: %s\n",psdisplay);
printf("img viewer: %s\n",imgdisplay);
printf("project: %s\n",mbproject);
if (fbtversion == 2)
printf("fbtversion: 2 (old)\n");
else if (fbtversion == 3)
printf("fbtversion: 3 (new)\n");
else
printf("fbtversion: %d\n",fbtversion);
printf("uselockfiles: %d\n",uselockfiles);
if (fileiobuffer == 0)
printf("fileiobuffer: %d (use standard fread() & fwrite() buffering)\n",fileiobuffer);
else if (fileiobuffer > 0)
printf("fileiobuffer: %d (use %d kB buffer for fread() & fwrite())\n",fileiobuffer,fileiobuffer);
else
printf("fileiobuffer: %d (use mmap for file i/o)\n",fileiobuffer);
}
/* else just list the current defaults */
else
{
printf("\nCurrent MBIO Default Control Parameters:\n");
printf("lonflip: %d\n",lonflip);
printf("timegap: %f\n",timegap);
printf("ps viewer: %s\n",psdisplay);
printf("img viewer: %s\n",imgdisplay);
printf("project: %s\n",mbproject);
if (fbtversion == 2)
printf("fbtversion: 2 (old)\n");
else if (fbtversion == 3)
printf("fbtversion: 3 (new)\n");
else
printf("fbtversion: %d\n",fbtversion);
printf("uselockfiles: %d\n",uselockfiles);
if (fileiobuffer == 0)
printf("fileiobuffer: %d (use standard fread() & fwrite() buffering)\n",fileiobuffer);
else if (fileiobuffer > 0)
printf("fileiobuffer: %d (use %d kB buffer for fread() & fwrite())\n",fileiobuffer,fileiobuffer);
else
printf("fileiobuffer: %d (use mmap for file i/o)\n",fileiobuffer);
}
/* print output debug statements */
if (verbose >= 2)
{
fprintf(stderr,"\ndbg2 Program <%s> completed\n",program_name);
fprintf(stderr,"dbg2 Ending status:\n");
fprintf(stderr,"dbg2 status: %d\n",status);
}
/* end it all */
exit(error);
}
