/* file: wfdbwhich.c	G. Moody	20 June 1990
			Last revised:	 5 May 1999

-------------------------------------------------------------------------------
wfdbwhich: Find a WFDB file and print its pathname
Copyright (C) 1999 George B. Moody

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later
version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE.  See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with
this program; if not, see <http://www.gnu.org/licenses/>.

You may contact the author by e-mail (wfdb@physionet.org) or postal mail
(MIT Room E25-505A, Cambridge, MA 02139 USA).  For updates to this software,
please visit PhysioNet (http://www.physionet.org/).
_______________________________________________________________________________

*/

#include <stdio.h>
#ifndef __STDC__
extern void exit();
#endif

#include <wfdb/wfdb.h>

main(argc, argv)
int argc;
char *argv[];
{
    char *filename, *pname, *prog_name();
    int status = 0;

    pname = prog_name(argv[0]);
    if (argc == 2 && strcmp(argv[1], "-h") == 0)
	argc = 0;	/* give usage instructions and quit */
    switch (argc) {
      case 2:
	if (filename = wfdbfile(argv[1], (char *)NULL))
	    (void)printf("%s\n", filename);
	else {
	    (void)fprintf(stderr, "`%s' not found\n", argv[1]);
	    (void)fprintf(stderr, "(WFDB path = %s)\n", getwfdb());
	    status = 2;
	}
	break;
      case 3:
	wfdbquiet();
	(void)isigopen(argv[2], NULL, 0);
	if (filename = wfdbfile(argv[1], argv[2]))
	    (void)printf("%s\n", filename);
	else {
	    (void)fprintf(stderr,
			  "No file of type `%s' found for record `%s'\n",
			  argv[1], argv[2]);
	    (void)fprintf(stderr, "(WFDB path = %s)\n", getwfdb());
	    status = 2;
	}
	break;
      default:
	if (argc != 4 || strcmp(argv[1], "-r") != 0) {
	    (void)fprintf(stderr, "usage: %s [-r RECORD ] FILENAME\n", pname);
	    (void)fprintf(stderr, " -or-  %s FILE-TYPE RECORD\n", pname);
	    status = 1;
	}
	else {
	    (void)isigopen(argv[2], NULL, 0);
	    if (filename = wfdbfile(argv[3], (char *)NULL))
		(void)printf("%s\n", filename);
	    else {
		(void)fprintf(stderr, "`%s' not found\n", argv[3]);
		(void)fprintf(stderr, "(WFDB path = %s)\n", getwfdb());
		status = 2;
	    }
	}
	break;
    }
    exit(status);
    /*NOTREACHED*/
}

char *prog_name(s)
char *s;
{
    char *p = s + strlen(s);

#ifdef MSDOS
    while (p >= s && *p != '\\' && *p != ':') {
	if (*p == '.')
	    *p = '\0';		/* strip off extension */
	if ('A' <= *p && *p <= 'Z')
	    *p += 'a' - 'A';	/* convert to lower case */
	p--;
    }
#else
    while (p >= s && *p != '/')
	p--;
#endif
    return (p+1);
}