/* file: md2a.c		G. Moody	19 July 1983
			Last revised: 27 September 1993
Convert MIT format signal file(s) to AHA DB distribution tape format

Copyright (C) Massachusetts Institute of Technology 1993. All rights reserved.

This program converts the signal file(s) of a two-signal DB record into AHA DB
distribution tape format (format 16, multiplexed signals, with a special `end
of data' marker after the last sample).  It can also convert DB records with
other numbers of signals into the same format, but AHA DB distribution tape
format is defined only for two-signal records.

This program is provided as a convenience for those who may have software that
requires files in AHA tape format as input.  It does *not* generate files in
the format currently used for distribution of the AHA database on floppy disk;
program `ad2m.c' can perform the reverse conversion, however.
*/

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

#include <ecg/db.h>

#define EODF	0100000	/* AHA data file end-of-data marker */
#define NSAMP	525000L	/* default number of samples per signal */

char *pname;

main(argc, argv)
int argc;
char *argv[];
{
    char *nrec = NULL, *ofname, *record = NULL, *prog_name();
    int i, nsig, x[DB_MAXSIG];
    static struct DB_siginfo s[DB_MAXSIG];
    void help();

    pname = prog_name(argv[0]);
    for (i = 1; i < argc; i++) {
	if (*argv[i] == '-') switch (*(argv[i]+1)) {
	  case 'h':	/* help requested */
	    help();
	    exit(1);
	    break;
	  case 'n':	/* new record name follows */
	    if (++i >= argc) {
		(void)fprintf(stderr,
			      "%s: new record name must follow -n\n", pname);
		exit(1);
	    }
	    nrec = argv[i];
	    break;
	  case 'o':	/* output file name follows */
	    if (++i >= argc) {
		(void)fprintf(stderr,
		      "%s: name of AHA-format output file must follow -o\n",
			      pname);
		exit(1);
	    }
	    ofname = argv[i];
	    break;
	  case 'r':
	    if (++i >= argc) {
		(void)fprintf(stderr,
			      "%s: record name must follow -r\n", pname);
		exit(1);
	    }
	    record = argv[i];
	    break;
	  default:
	    (void)fprintf(stderr, "%s: unrecognized option %s\n", pname,
			  argv[i]);
	    exit(1);
	}
	else {
	    (void)fprintf(stderr, "%s: unrecognized argument %s\n", pname,
			  argv[i]);
	    exit(1);
	}
    }
    if (ofname == NULL || record == NULL) {
	help();
	exit(1);
    }

    /* Give up unless at least one input signal is readable. */
    if ((nsig = isigopen(argv[1], s, DB_MAXSIG)) < 1)
	exit(2);  

    /* Check that the new record name is legal before proceeding.  Note that
       this step creates a header file in the current directory which is
       overwritten below, after the processing is completed. */
    if (nrec != NULL && newheader(nrec) < 0) exit(3);

    /* Set the output signal specifications. */
    for (i = 0; i < nsig; i++) {
	s[i].fname = ofname;
	s[i].desc = "";
	s[i].group = 0;
	s[i].fmt = 16;
    }
    
    /* Give up if the output cannot be written. */
    if (osigfopen(s, (unsigned)nsig) < nsig) exit(4);

    /* Copy the input to the output.  Reformatting is handled by putvec(). */
    while (getvec(x) == nsig && putvec(x) == nsig)
	;

    /* Write the new header file if requested. */
    if (nrec) (void)newheader(argv[3]);

    /* Write the end-of-data marker. */
    for (i = 0; i < nsig; i++)
	x[i] = EODF;
    (void)putvec(x);

    /* Clean up. */
    dbquit();
    exit(0);	/*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);
}

static char *help_strings[] = {
    "usage: %s -o AHAFILE -r RECORD [ OPTIONS ... ]\n",
    "where AHAFILE is the name of the AHA-format output signal file,",
    "RECORD is the record name, and OPTIONS may include:",
    " -h         print this usage summary",
    " -n NEWREC  create a header file for the output signal file, so it",
    "             may be read as record NEWREC",
    NULL
};

void help()
{
    int i;

    (void)fprintf(stderr, help_strings[0], pname);
    for (i = 1; help_strings[i] != NULL; i++)
	(void)fprintf(stderr, "%s\n", help_strings[i]);
}