/* Last Change 3.11.1994 */
/* copyright B. Mielke   */
#include <stdlib.h>
#include <stdio.h>
#ifdef __MSDOS__
#include <dos.h>
#include <conio.h>
#else
#include <unistd.h>
#include <ncurses.h>
#endif
#include <ctype.h>

#include <string.h>
#include "lidarsub.h"
#include "fldport.h"
#include <math.h>
double eingabed(char*);

double eingabed(char string[80])
{
  double t1;
  printf(" %s",string);
  scanf("%lf",&t1);
  return(t1);
}
void main (int argc, char *argv[])
{
  FILE *input;
  char buffer[80];
  int nStatus,i;
  uVal uShots;
  int nMaxShots,nRetVal,nActive,nAttent;
  long int ldelaytime;
  Channel *ch1;
  MeasureInfo *measinfo;
#ifndef __MSDOS__
  WINDOW *dw;
#endif
  nMaxShots=4094;
  get_config_filename(buffer,argv[0],"standard.cfg");
  if(argc>1)
  {
   i=1;
   while(i<argc)
   {
    if( strstr("-f",argv[i])!=NULL)
    {
     strcpy(buffer,argv[i+1]);
     i=i+2;
    }
    else
    {
     if( strstr("-s",argv[i])!=NULL)
     {
      nRetVal=sscanf(argv[i+1],"%d",&nMaxShots);
      if((nRetVal==EOF) || (nRetVal==0))
      {
       printf( "Input argument not valid\n");
       exit(0);
      }
      if(nMaxShots<0 ||nMaxShots>4094)
      {
       nMaxShots=4094;
      }
      i=i+2;
     }
     else
     {
      printf( "Input argument not valid\n");
      exit(0);
     }
    }
   }
  }
  if((input=fopen(buffer,"rt"))==NULL)
  {
     printf("\nCannot open input file %s\n",buffer);
     exit(0);
  }
  read_configuration(input,&ch1,&measinfo);
  fclose(input);
  uShots=0;
  nStatus=InitBoard(ch1[0].nNIBoard);
  if(nStatus!=0)
  {
   ERRMess(nStatus,"InitBoard in shot.c");
   exit(0);
  }
  nActive=0;
  i=0;
  while(i<measinfo->nChannelNumber &&nActive==0)
  {
        nStatus=CheckExternalCard(ch1[i].nNIBoard,ch1[i].nCard);
        if(nStatus==0)
        {
         nActive=1;
        }
        else
        {
         InitBoard(ch1[i].nNIBoard);
         i++;
        }
  }
  if(nActive==0)
  {
   ERRMess(-2,"no valid board specified");
   exit(0);
  }
  nAttent=nMaxShots-3-ch1[i].dRepRate;
#ifdef __MSDOS__
  while((uShots<nMaxShots)&& !kbhit())
#else
  dw=initscr();
  nodelay(dw,TRUE);
  while(uShots<nMaxShots && getch()==ERR)
#endif
  {
        if(uShots>nAttent)
        {
           ldelaytime=1000/ch1[i].dRepRate;
        }
        else
        {
           ldelaytime=500;
        }
#ifdef __MSDOS__
        delay(ldelaytime);
#else
        usleep(ldelaytime*1000);
#endif
        nStatus=ShotNumber(&ch1[i],&uShots);
        if(nStatus!=0)
        {

#ifndef __MSDOS__
          endwin();
#endif
          ERRMess(nStatus,"Shotnumber in shot.c");
          exit(0);
        }
        printf("\n ShotNumber %u ",uShots);
        if(uShots==0)
        {
                printf("\nNo trigger received");
        }
   }
#ifdef __MSDOS__
 if(kbhit())
        getch();
#else
  endwin();
#endif
 printf("\a\a\a");
}