// $Id$
//-----------------------------------------------------------------------
//       The GSI Online Offline Object Oriented (Go4) Project
//         Experiment Data Processing at EE department, GSI
//-----------------------------------------------------------------------
// Copyright (C) 2000- GSI Helmholtzzentrum fuer Schwerionenforschung GmbH
//                     Planckstr. 1, 64291 Darmstadt, Germany
// Contact:            http://go4.gsi.de
//-----------------------------------------------------------------------
// This software can be used under the license agreements as stated
// in Go4License.txt file which is part of the distribution.
//-----------------------------------------------------------------------

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <errno.h>
#include <fcntl.h>
#include <sys/types.h>
#include "f_radware.h"
#include "typedefs.h"

#ifdef GSI__WINNT
#include <io.h>
#else
#include <unistd.h>
#endif

#define HIS__BASPERM   0774
//*************************************************************
int f_radware_out1d(char *pc_file, char *pc_name, float *pr_data, int l_chan, int l_over)
{
  int  i32_fd, i32_bytes, i32_hislen;
  int  l_status,l_head[6];
  char c_str[128];

  if(l_over) // delete old file
{
  strcpy(c_str,"rm ");
  strncat(c_str, pc_file, sizeof(c_str)-1);
  l_status=system(c_str);
  /* JAM 7-5-2024: supress unused  result warnings */
  if(l_status == -1)  printf("Error calling rm old file \n");
}
i32_fd = open(pc_file, O_WRONLY | O_CREAT | O_EXCL, HIS__BASPERM);
if (i32_fd < 0)
{
    printf("Error %d opening file %s, already exists?\n",errno, pc_file);
    return(1);
}
//write file
strncpy(c_str,pc_name, sizeof(c_str)-1);
strncat(c_str,"        ", sizeof(c_str)-1);
l_head[0]=24;
l_head[1]=1;
l_head[2]=1;
l_head[3]=1;
l_head[4]=24;
l_head[5]=l_chan*4; /* record size */

i32_bytes   = write(i32_fd, (char *) l_head, 4);
i32_bytes  += write(i32_fd, c_str, 8);
l_head[0]   = l_chan;
i32_bytes  += write(i32_fd, (char *) l_head, 24); /* includes record size */

i32_bytes  += write(i32_fd, (char *) pr_data, l_chan*4);
l_head[0]   = l_chan*4;
i32_bytes  += write(i32_fd, (char *) l_head, 4);

i32_hislen = l_chan*4 + 40;
if (i32_bytes == i32_hislen)
{
  //  printf("Histogram %32s: %d bytes (data %d) written to %s\n",
  //     pc_name,i32_bytes,l_chan*4,pc_file);
}
else
{
  printf("Error %d. Dumping histogram:%s, %d bytes written to %s\n",
          errno,pc_name,i32_bytes,pc_file);
}
l_status = close(i32_fd);
if (l_status != 0)
{
    printf("Error %d. Close %s failed!\n",errno,pc_file);
    return(1);
}
return(0);
}
//*************************************************************
int f_radware_out2d(char *pc_file, char *pc_name, int *pl_data, int l_chan, int l_over)
{
  int   i32_fd, i32_bytes;
  int   l_status;
  char  c_str[128];

if(l_over)
{
  strcpy(c_str,"rm ");
  strncat(c_str,pc_file, sizeof(c_str)-1);
  l_status=system(c_str);
  /* JAM 7-5-2024: supress unused  result warnings */
  if(l_status == -1)  printf("Error calling rm old file \n");

}
i32_fd = open(pc_file, O_WRONLY | O_CREAT | O_EXCL, HIS__BASPERM);
if (i32_fd < 0)
{
    printf("Error %d opening file %s, already exists?\n",errno, pc_file);
    return(1);
}
i32_bytes  = write(i32_fd, (char *) pl_data, l_chan*4);
if (i32_bytes == l_chan*4)
{
  //  printf("Histogram %32s: %d bytes written to %s\n",
  //     pc_name,i32_bytes,pc_file);
}
else
{
  printf("Error %d. Dumping histogram:%s, only %d bytes written to %s\n",
          errno,pc_name,i32_bytes,pc_file);
}
l_status = close(i32_fd);
if (l_status != 0)
{
    printf("Error %d. Close %s failed!\n",errno,pc_file);
    return(1);
}
return(0);
}