// This concatenates MIDI files.
#include <stdio.h>
#include <stdlib.h>
#include "h.h"
#include <sys/stat.h>

typedef struct {BP bp; int last; note * mus;} sec;
int main(int argc, char * args[]){
  int j; sec s[argc-1]; // s[0] is unused.
  BP bp = {-1, 0, 1}; 
  {struct stat xx; if(!stat(args[argc-1], &xx))
     {printf("This program will not overwrite old files!\n"); exit(0);}}
  for(j=1; j<argc-1; ++j){
    s[j].last = 0;
    s[j].mus = Read(args[j], &s[j].bp);
    if(!~bp.type) bp.type = s[j].bp.type;
    else if(bp.type != s[j].bp.type) ex(1);
    bp.trks = bp.trks<s[j].bp.trks?s[j].bp.trks:bp.trks;
    bp.den = lcm(s[j].bp.den, bp.den);
    // Find time of last note
    {void fed(note n){if(n.dur < maxdur)
      {int end = n.start+n.dur; if(s[j].last < end) s[j].last = end;}}  
      scan(fed, s[j].mus, 0);}}
if (1){int j; for(j=1; j<argc-1; ++j) {
    printf("%s: %d tracks, %d quarter notes, den=%d\n",
      args[j], s[j].bp.trks, s[j].last/s[j].bp.den, s[j].bp.den);}
    printf("lcm = %d\n", bp.den);}
    
    {note * tt = 0; int j; int toff = 0;
    for(j=1; j<argc-1; ++j){int dn = bp.den/s[j].bp.den;
      void see(note n){n.start += toff;
      n.dur *= dn; aug(n, &tt);}
      scan(see, s[j].mus, 1); s[j].mus = 0;
      toff += s[j].last + s[j].bp.den*4;}
    Write (args[argc-1], tt, &bp);}
return 0;}