/** @file  StartStop.c
*   @brief Stand-alone executable <br> Returns real Start-Stop for VI in DDBase <br>
*          Is used in DD Server WebServices <br>
*    @details StartStop(string *, string *)  <br>
*        @arg \c argv[1] Full name of DDBase reference file  <br>
*        @arg \c argv[2] Virtual Instrument ID (DD notation) <br>
*     Output: YYYYDDdayHHMMSSMLS-YYYYDDdayHHMMSSMLS       
*                 
*   @date 10.10.2007
*   @version $Id: StartStop.c,v 1.3 2011/09/05 11:27:34 budnik Exp $
*/


#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <math.h>
#include <netcdf.h>
#include <DD.h>


int DataID, RecID, VarID, StartID, StopID;
size_t RecNum;
char StartT[TIMELENGTH], StopT[TIMELENGTH], Var[128];
size_t count[2] = {1L,TIMELENGTH};
size_t start[2] = {0L,0L};
size_t countVar[2] = {1L,128L};

/*---------------- NC ERROR --------------------------------------*/
void nc_handle_error(int status)
{
  fprintf(stderr, "%s\n", nc_strerror(status));
  exit(1);
}

/* ----------------------- MAIN ------------------------------------*/
  int main(int argc, char *argv[])
{
    
    int status, len;
 
    char Project[50],Instrument[50],Mode[50], RInstrName[200];


    if (argc < 3)
    {
       fprintf(stderr,"Usage: StartStop reference_file_name DD_VI_ID\n");
       exit(0);
    }

     
    if ((status = nc_open(argv[1], NC_NOWRITE, &DataID)) != NC_NOERR)
                                            nc_handle_error(status);
    
     sscanf(argv[2], "%[^:]%*c%[^:]%*c%[^:]%*c",Project,
                                                  Instrument,
                                                   Mode);
     memset(RInstrName, 0, 200*sizeof(char));
     sprintf(RInstrName,"%s_%s_%s",Project,Instrument,Mode);

      if ((status = nc_inq_varid(DataID,RInstrName,&VarID)) != NC_NOERR)
                                            nc_handle_error(status);
    
      start[0] = 1;
      if((status = nc_get_vara_text(DataID, VarID, start, countVar, Var)) != NC_NOERR)
                                          nc_handle_error(status);
       
       len = strcspn(Var," "); Var[len] = '\0';

       if ((status = nc_close(DataID)) != NC_NOERR) nc_handle_error(status);

// Open VI_times.nc
      
       if ((status = nc_open(Var, NC_NOWRITE, &DataID)) != NC_NOERR)
                                                nc_handle_error(status);

       if ((status = nc_inq_dimid(DataID, "record", &RecID)) != NC_NOERR)
                                          nc_handle_error(status);
     
//   Get Number of Records
   
      if ((status = nc_inq_dimlen(DataID, RecID, &RecNum)) != NC_NOERR)
                                          nc_handle_error(status);

      if ((status = nc_inq_varid(DataID, "StartTime", &StartID)) != NC_NOERR)
                                          nc_handle_error(status);
      if ((status = nc_inq_varid(DataID, "StopTime", &StopID)) != NC_NOERR)
                                          nc_handle_error(status);

// Get The First Start and The Last Stop Times      
      start[0] = 0;     

     if((status = nc_get_vara_text(DataID, StartID, start, count, StartT)) != NC_NOERR)
                                          nc_handle_error(status);

      start[0] = RecNum-1; 
      if((status = nc_get_vara_text(DataID, StopID, start, count, StopT)) != NC_NOERR)
                                          nc_handle_error(status);
 
      printf("%s-%s\n",  StartT, StopT);
      if ((status = nc_close(DataID)) != NC_NOERR) nc_handle_error(status);
    
}