#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include <unistd.h>

#include"mygraph.h"
#include "ReadData.h"

void directory_listing(char **names, int *number,const char *pattern)
{
  char command[1000];
  FILE *dirfile;
  int i=0;

  sprintf(command,"ls -1 %s > _dirres_",pattern);
  system(command);
  dirfile=fopen("_dirres_","r");
  while ((i<*number)&&(NULL != fgets(names[i],256,dirfile))) i++;
  fclose(dirfile);
  remove("_dirres_");
  *number=i;
 
  for (i=0;i<*number;i++) {
    names[i][strlen(names[i])-1]='\0';
    printf("%s\n",names[i]);
  }

}


int main(int argc, char *argv[])
{
  int number=200,i,*Xsize,*Ysize,*request,done=0;
  char **names;
  double **datap;

  if (argc>1) { /* filenames are given as parameters to the program */
    names = &(argv[1]);
    number= argc-1;
  }
  else {
    names = (char **) malloc(number * sizeof(char*));
    for (i=0;i<number;i++) names[i]= (char *) malloc(256*sizeof(char));
    
    directory_listing((char **) names,&number,"*.savc");
  }
  datap = (double **) malloc(number * sizeof(double*));
  Xsize = (int *) malloc(number*sizeof(int));
  Ysize = (int *) malloc(number*sizeof(int));
  request = (int *) malloc(number*sizeof(int));

  for (i=0;i<number;i++){
    ReadData(names[i],&(datap[i]),&(Xsize[i]),&(Ysize[i]));
  }


  for (i=0;i<number;i++)
    DefineGraphNxN_R(names[i],&datap[i][0],&Ysize[i],&Xsize[i],
		     &request[i]);

  StartMenu("Contour analysis",1);
  DefineGraph(contour2d_,"Contour");
  DefineBool("Quit",&done);
  EndMenu();
  while ( done==0 )
    {
      Events(0);
      sleep(1);
      /*      providedata(); newdata=0;*/
      DrawGraphs();
    }
  CloseGraphics();
  return 0;
}