/*
 * mftext
 * 
 * Convert a MIDI file to verbose text.
 */

#include <stdio.h>
#include <ctype.h>
#include "midifile.h"

static FILE *F;
int SECONDS;			/* global that tells whether to display seconds or ticks */
int division;			/* from the file header */
long tempo = 500000;		/* the default tempo is 120 beats/minute */

/* filegetc : returns <int> with input variables:
 * void:
 */
int filegetc (void)
{
  return (getc (F));
}

/* ------------------------------------------------------------------------ */

/* for crack */
extern int arg_index;

/* main : returns <int> with input variables:
 * argc:
 * argv:
 */
int main (
  int argc,
  char **argv)
{
  FILE *efopen ();
  char ch;

  SECONDS = 0;

  while ((ch = crack (argc, argv, "s", 0)) != NULL) {

	switch (ch) {

		case 's':
		  SECONDS = 1;
		  break;
		}
	}

  if (argc < 2 && !SECONDS || argc < 3 && SECONDS)
F = stdin;
  else
F = efopen (argv[arg_index], "r");

  initfuncs ();
  Mf_getc = filegetc;
  midifile ();
  fclose (F);
  exit (0);
}

/* ------------------------------------------------------------------------ */

/* * efopen : returns <FILE> with input variables:
 * name:
 * mode:
 */
FILE * efopen (
  char *name,
  char *mode)
{
  FILE *f;
  extern int errno;


  char *errmess;

  if ((f = fopen (name, mode)) == NULL) {

	(void) fprintf (stderr, "*** ERROR *** Cannot open '%s'!\n", name);
	exit (1);
	}
  return (f);
}

/* ------------------------------------------------------------------------ */

/* error : returns <int> with input variables:
 * s:
 */
int error (char *s)
{
  fprintf (stderr, "Error: %s\n", s);
}

/* ------------------------------------------------------------------------ */

/* txt_header : returns <int> with input variables:
 * format:
 * ntrks:
 * ldivision:
 */
int txt_header (
  int format,
  int ntrks,
  int ldivision)
{
  division = ldivision;
  printf ("Header format=%d ntrks=%d division=%d\n", format, ntrks, division);
}

/* ------------------------------------------------------------------------ */

/* txt_trackstart : returns <int> with input variables:
 * void:
 */
int txt_trackstart (void)
{
  printf ("Track start\n");
}

/* ------------------------------------------------------------------------ */

/* txt_trackend : returns <int> with input variables:
 * void:
 */
int txt_trackend (void)
{
  printf ("Track end\n");
}

/* ------------------------------------------------------------------------ */

/* txt_noteon : returns <int> with input variables:
 * chan:
 * pitch:
 * vol:
 */
int txt_noteon (
  int chan,
  int pitch,
  int vol)
{
  prtime ();
  printf ("Note on, chan=%d pitch=%d vol=%d\n", chan + 1, pitch, vol);
}

/* ------------------------------------------------------------------------ */

/* txt_noteoff : returns <int> with input variables:
 * chan:
 * pitch:
 * vol:
 */
int txt_noteoff (
  int chan,
  int pitch,
  int vol)
{
  prtime ();
  printf ("Note off, chan=%d pitch=%d vol=%d\n", chan + 1, pitch, vol);
}

/* ------------------------------------------------------------------------ */

/* txt_pressure : returns <int> with input variables:
 * chan:
 * pitch:
 * press:
 */
int txt_pressure (
  int chan,
  int pitch,
  int press)
{
  prtime ();
  printf ("Pressure, chan=%d pitch=%d press=%d\n", chan + 1, pitch, press);
}

/* ------------------------------------------------------------------------ */

/* txt_parameter : returns <int> with input variables:
 * chan:
 * control:
 * value:
 */
int txt_parameter (
  int chan,
  int control,
  int value)
{
  prtime ();
  printf ("Parameter, chan=%d c1=%d c2=%d\n", chan + 1, control, value);
}

/* ------------------------------------------------------------------------ */

/* txt_pitchbend : returns <int> with input variables:
 * chan:
 * msb:
 * lsb:
 */
int txt_pitchbend (
  int chan,
  int msb,
  int lsb)
{
  prtime ();
  printf ("Pitchbend, chan=%d msb=%d lsb=%d\n", chan + 1, msb, lsb);
}

/* ------------------------------------------------------------------------ */

/* txt_program : returns <int> with input variables:
 * chan:
 * program:
 */
int txt_program (
  int chan,
  int program)
{
  prtime ();
  printf ("Program, chan=%d program=%d\n", chan + 1, program);
}

/* ------------------------------------------------------------------------ */

/* txt_chanpressure : returns <int> with input variables:
 * chan:
 * press:
 */
int txt_chanpressure (
  int chan,
  int press)
{
  prtime ();
  printf ("Channel pressure, chan=%d pressure=%d\n", chan + 1, press);
}

/* ------------------------------------------------------------------------ */

/* txt_sysex : returns <int> with input variables:
 * leng:
 * mess:
 */
int txt_sysex (
  int leng,
  char *mess)
{
  prtime ();
  printf ("Sysex, leng=%d\n", leng);
}

/* ------------------------------------------------------------------------ */

/* txt_metamisc : returns <int> with input variables:
 * type:
 * leng:
 * mess:
 */
int txt_metamisc (
  int type,
  int leng,
  char *mess)
{
  prtime ();
  printf ("Meta event, unrecognized, type=0x%02x leng=%d\n", type, leng);
}

/* ------------------------------------------------------------------------ */

/* txt_metaspecial : returns <int> with input variables:
 * type:
 * leng:
 * mess:
 */
int txt_metaspecial (
  int type,
  int leng,
  char *mess)
{
  prtime ();
  printf ("Meta event, sequencer-specific, type=0x%02x leng=%d\n", type, leng);
}

/* ------------------------------------------------------------------------ */

/* txt_metatext : returns <int> with input variables:
 * type:
 * leng:
 * mess:
 */
int txt_metatext (
  int type,
  int leng,
  char *mess)
{
  static char *ttype[] =
  {
	NULL,
	"Text Event",		/* type=0x01 */
	"Copyright Notice",		/* type=0x02 */
	"Sequence/Track Name",
	"Instrument Name",		/* ...       */
	"Lyric",
	"Marker",
	"Cue Point",		/* type=0x07 */
	"Unrecognized"
	  }
;
  int unrecognized = (sizeof (ttype) / sizeof (char *)) - 1;
  register int n, c;
  register char *p = mess;

  if (type < 1 || type > unrecognized)
type = unrecognized;
  prtime ();
  printf ("Meta Text, type=0x%02x (%s)  leng=%d\n", type, ttype[type], leng);
  printf ("     Text = <");
  for (n = 0; n < leng; n++) {

	c = *p++;
	printf ((isprint (c) || isspace (c)) ? "%c" : "\\0x%02x", c);
	}
  printf (">\n");
}

/* ------------------------------------------------------------------------ */

/* txt_metaseq : returns <int> with input variables:
 * num:
 */
int txt_metaseq (int num)
{
  prtime ();
  printf ("Meta event, sequence number = %d\n", num);
}

/* ------------------------------------------------------------------------ */

/* txt_metaeot : returns <int> with input variables:
 * void:
 */
int txt_metaeot (void)
{
  prtime ();
  printf ("Meta event, end of track\n");
}

/* ------------------------------------------------------------------------ */

/* txt_keysig : returns <int> with input variables:
 * sf:
 * mi:
 */
int txt_keysig (
  int sf,
  int mi)
{
  prtime ();
  printf ("Key signature, sharp/flats=%d  minor=%d\n", sf, mi);
}

/* ------------------------------------------------------------------------ */

/* txt_tempo : returns <int> with input variables:
 * ltempo:
 */
int txt_tempo (long ltempo)
{
  tempo = ltempo;
  prtime ();
  printf ("Tempo, microseconds-per-MIDI-quarter-note=%d\n", tempo);
}

/* ------------------------------------------------------------------------ */

/* txt_timesig : returns <int> with input variables:
 * nn:
 * dd:
 * cc:
 * bb:
 */
int txt_timesig (
  int nn,
  int dd,
  int cc,
  int bb)
{
  int denom = 1;
  while (dd-- > 0)
denom *= 2;
  prtime ();
  printf ("Time signature=%d/%d  MIDI-clocks/click=%d  32nd-notes/24-MIDI-clocks=%d\n",
  nn, denom, cc, bb);
}

/* ------------------------------------------------------------------------ */

/* txt_smpte : returns <int> with input variables:
 * hr:
 * mn:
 * se:
 * fr:
 * ff:
 */
int txt_smpte (
  int hr,
  int mn,
  int se,
  int fr,
  int ff)
{
  prtime ();
  printf ("SMPTE, hour=%d minute=%d second=%d frame=%d fract-frame=%d\n",
  hr, mn, se, fr, ff);
}

/* ------------------------------------------------------------------------ */

/* txt_arbitrary : returns <int> with input variables:
 * leng:
 * mess:
 */
int txt_arbitrary (
  int leng,
  char *mess)
{
  prtime ();
  printf ("Arbitrary bytes, leng=%d\n", leng);
}

/* ------------------------------------------------------------------------ */

/* prtime : returns <int> with input variables:
 * void:
 */
int prtime (void)
{
  if (SECONDS)
printf ("Time=%f   ", mf_ticks2sec (Mf_currtime, division, tempo));
  else
printf ("Time=%ld  ", Mf_currtime);
}

/* ------------------------------------------------------------------------ */

/* initfuncs : returns <int> with input variables:
 * void:
 */
int initfuncs (void)
{
  Mf_error = error;
  Mf_header = txt_header;
  Mf_trackstart = txt_trackstart;
  Mf_trackend = txt_trackend;
  Mf_noteon = txt_noteon;
  Mf_noteoff = txt_noteoff;
  Mf_pressure = txt_pressure;
  Mf_parameter = txt_parameter;
  Mf_pitchbend = txt_pitchbend;
  Mf_program = txt_program;
  Mf_chanpressure = txt_chanpressure;
  Mf_sysex = txt_sysex;
  Mf_metamisc = txt_metamisc;
  Mf_seqnum = txt_metaseq;
  Mf_eot = txt_metaeot;
  Mf_timesig = txt_timesig;
  Mf_smpte = txt_smpte;
  Mf_tempo = txt_tempo;
  Mf_keysig = txt_keysig;
  Mf_seqspecific = txt_metaspecial;
  Mf_text = txt_metatext;
  Mf_arbitrary = txt_arbitrary;
}

/* ------------------------------------------------------------------------ */