#include <stdlib.h>
 
#include <stdio.h>
 
#include <stdint.h> 
 
 
 
#include <CAENVMElib.h>
 
#include <CAENVMEoslib.h>
 
#include <CAENVMEtypes.h>
 
 
 
#ifndef _CVI_
 
#define __stdcall
 
#define UCHAR unsigned char
 
#define  _VI_FUNC
 
#endif
 
 
 
#include "CAENV1718.h"
 
 
 
 
 
 
 
int32_t CAEN_udev;
 
 
 
int VMEerrors;
 
 
 
int CAEN_VME_start (char* serial)
 
{
 
 
 
  CVErrorCodes result = CAENVME_Init( cvV1718 , 0 , 0 , &CAEN_udev);
 
  if (result != cvSuccess) {
 
    printf("CAEN1718 Init %s\n", CAENVME_DecodeError
(result
));  
    printf(" Check usb cable, usb udev permissions and restart!  Exiting .....\n");  
    return (-1);
 
  }
 
  if (serial 
== NULL
) serial 
= (char *) malloc(100*sizeof(char));  
  CAENVME_BoardFWRelease(CAEN_udev, serial);
 
  
 
  return result;
 
}
 
 
 
 
 
short CAEN_VME_read(long Handle, unsigned long Address, void *Data, CVAddressModifier AM, CVDataWidth DW)
 
{
 
 
 
 CVErrorCodes result;
 
 int ncount=0;
 
 while (1){
 
   result = CAENVME_ReadCycle(Handle, Address, Data, AM, DW );
 
   if (result !=cvSuccess ) {
 
     VMEerrors++;
 
     printf("%d CAENVME_ReadCycle at 0x%0lX failed! data=0x%0X  AM= 0x%0X DW= 0x%0X  err=%s\n", ncount
,Address
, *((uint32_t *) Data
),AM
,DW
, CAENVME_DecodeError
(result
));  
     ncount++;
 
     if (ncount==10) return (result);
 
   } else break;
 
 }
 
 return result;
 
}
 
 
 
int CAEN_VME_BltRead(long Handle, unsigned long Address, void *Data, int size, CVAddressModifier AM, CVDataWidth DW)
 
{
 
  int count=0;
 
  CVErrorCodes result; 
 
  int ncount=0;
 
 
 
  while (1){
 
    
 
    result = CAENVME_BLTReadCycle(Handle, Address, Data, size, AM, DW , &count);
 
    if (result !=cvSuccess ) {
 
       VMEerrors++;
 
       printf("%d CAENVME_BLTReadCycle at 0x%0lX failed! data=0x%0X  AM= 0x%0X DW= 0x%0X  err=%s count=%d\n", ncount
,Address
, *((uint32_t *) Data
),AM
,DW
, CAENVME_DecodeError
(result
),count
);  
       ncount++;
 
       if (ncount==10) return (result);
 
    } else break;
 
  }   
 
  return count;
 
}
 
 
 
short CAEN_VME_write(long Handle, unsigned long Address, void *Data, CVAddressModifier AM, CVDataWidth DW)
 
{
 
 
 
 CVErrorCodes result;
 
 int ncount=0;
 
 while (1){
 
 
 
 result = CAENVME_WriteCycle(Handle, Address, Data, AM, DW );
 
 if (result !=cvSuccess ) {
 
    VMEerrors++;
 
    printf("CAENVME_WriteCycle at 0x%0lX failed! data=0x%0X  AM= 0x%0X DW= 0x%0X  err=%s\n", Address
, *((uint32_t *) Data
),AM
,DW
, CAENVME_DecodeError
(result
));  
    if (ncount==10)  return (result);
 
 } else break;
 
 }
 
 return result;
 
}
 
 
 
 
 
 
 
 
 
uint32_t *WStackAddrs = NULL; 
 
uint32_t *WStackBuffer;  
 
unsigned short WStackNCycles;
 
unsigned short WStackMaxCycles=100;
 
CVAddressModifier *WStackAMs; 
 
CVDataWidth *WStackDWs; 
 
CVErrorCodes *WStackECs;
 
 
 
 
 
uint32_t *RStackAddrs =NULL; 
 
unsigned short RStackNCycles;
 
unsigned short RStackMaxCycles=1000;
 
CVAddressModifier *RStackAMs; 
 
CVDataWidth *RStackDWs; 
 
CVErrorCodes *RStackECs;
 
 
 
 
 
 
 
short CAEN_VME_appendread(unsigned long Address, void *Data, CVAddressModifier AM, CVDataWidth DW){
 
  if (RStackNCycles<RStackMaxCycles){ 
 
    RStackAddrs[RStackNCycles]  = Address;
 
    RStackAMs[RStackNCycles]    = AM;
 
    RStackDWs[RStackNCycles]    = DW;
 
    //int i=RStackNCycles;
 
    //printf("AppendRead %d ADDR= 0x%0X AM= 0x%0X DW= 0x%0X \n", i,RStackAddrs[i],RStackAMs[i], RStackDWs[i]);
 
    RStackNCycles++;
 
  } else {
 
    printf("Increase DataBuffer RStackMaxCycles =%d\n", RStackMaxCycles
);  
  }
 
  return RStackNCycles;
 
}
 
 
 
short CAEN_VME_appendwrite(unsigned long Address, void *Data, CVAddressModifier AM, CVDataWidth DW){
 
  if (WStackNCycles<WStackMaxCycles){ 
 
    WStackAddrs[WStackNCycles]  = Address;
 
    WStackBuffer[WStackNCycles] = *((uint32_t *) Data);
 
    WStackAMs[WStackNCycles]    = AM;
 
    WStackDWs[WStackNCycles]    = DW;
 
    WStackNCycles++;
 
  } else {
 
    printf("Increase DataBuffer WStackMaxCycles =%d\n", WStackMaxCycles
);  
  }
 
  return 0;
 
}
 
 
 
short CAEN_VME_MultiReadReset(){
 
  RStackNCycles=0;
 
  if (RStackAddrs!=NULL) return 0;
 
  RStackAddrs 
= (uint32_t *) malloc( RStackMaxCycles
*sizeof(uint32_t)); 
  
 
  RStackAMs  
= (CVAddressModifier 
*) malloc(RStackMaxCycles
*sizeof(CVAddressModifier
)); 
  RStackDWs 
= (CVDataWidth 
*) malloc(RStackMaxCycles
*sizeof(CVDataWidth
)); 
  RStackECs 
= (CVErrorCodes 
*) malloc(RStackMaxCycles
*sizeof(CVErrorCodes
)); 
  
 
  return 0;
 
}
 
 
 
short CAEN_VME_MultiWriteReset(){
 
  WStackNCycles=0;
 
  if (WStackAddrs!=NULL) return 0;
 
  WStackBuffer 
= (uint32_t *) malloc( WStackMaxCycles
*sizeof(uint32_t));    
  WStackAddrs 
= (uint32_t *) malloc( WStackMaxCycles
*sizeof(uint32_t));   
  WStackAMs  
= (CVAddressModifier 
*) malloc(WStackMaxCycles
*sizeof(CVAddressModifier
)); 
  WStackDWs 
= (CVDataWidth 
*) malloc(WStackMaxCycles
*sizeof(CVDataWidth
)); 
  WStackECs 
= (CVErrorCodes 
*) malloc(WStackMaxCycles
*sizeof(CVErrorCodes
)); 
 
 
  return 0;
 
}
 
 
 
short CAEN_VME_MultiReadExecute(long Handle, uint32_t *  Data){
 
  //printf("len=%d\n",RStackNCycles);
 
  int i=0;
 
  CVErrorCodes result =CAENVME_MultiRead(Handle, RStackAddrs,  Data,  RStackNCycles, RStackAMs, RStackDWs, RStackECs);
 
 if (result !=cvSuccess ) {
 
   VMEerrors++;
 
   printf("CAENVME_MultiRead at 0x%0X failed!  err=%s RStackNCycles=%d\n", RStackAddrs
[0], CAENVME_DecodeError
(result
), RStackNCycles
);  
   for (i=0;i<RStackNCycles;i++){
 
     if (RStackECs
[i
]!=cvSuccess 
) printf("%d ADDR= 0x%0X AM= 0x%0X DW= 0x%0X  failed!  err=%s\n", i
,RStackAddrs
[i
],RStackAMs
[i
], RStackDWs
[i
], CAENVME_DecodeError
(RStackECs
[i
]) );   
   }
 
 }
 
 return  RStackNCycles;
 
}
 
 
 
short CAEN_VME_MultiWriteExecute(long Handle){
 
 int i=0;
 
 CVErrorCodes result =CAENVME_MultiWrite(Handle, WStackAddrs, WStackBuffer,  WStackNCycles, WStackAMs, WStackDWs, WStackECs);
 
 if (result !=cvSuccess ) {
 
   printf("CAENVME_MultiWrite at 0x%0X failed!  err=%s WStackNCycles=%d\n", WStackAddrs
[0], CAENVME_DecodeError
(result
), WStackNCycles
);  
                
 
   for (i=0;i<WStackNCycles;i++){
 
     if (WStackECs[i]!=cvSuccess ) 
 
     printf("%d ADDR= 0x%0X AM= 0x%0X DW= 0x%0X  data= 0x%0X  failed!  err=%s\n", i
,WStackAddrs
[i
],WStackAMs
[i
], WStackDWs
[i
],  WStackBuffer
[i
], CAENVME_DecodeError
(WStackECs
[i
]) );   
   }
 
}
 
 return  WStackNCycles;
 
}
 
 
 
 
 
short __stdcall CAEN_VME_R( uint16_t AddressModifier, uint16_t DataWidth,  uint32_t VME_Address, uint32_t *Data){
 
         return CAEN_VME_read( CAEN_udev,   VME_Address, (void *)Data,  (CVAddressModifier) AddressModifier, (CVDataWidth) DataWidth);
 
}
 
 
 
short __stdcall CAEN_VME_W( uint16_t AddressModifier, uint16_t DataWidth,  uint32_t VME_Address, uint32_t Data){
 
         return CAEN_VME_write( CAEN_udev,   VME_Address, &Data,  (CVAddressModifier) AddressModifier, (CVDataWidth) DataWidth);
 
}
 
 
 
short __stdcall CAEN_VME_MW( uint16_t AM, uint16_t DW, uint32_t VME_Address, uint32_t Data){
 
 
 
  return CAEN_VME_appendwrite(  VME_Address, &Data ,(CVAddressModifier) AM , (CVDataWidth) DW) ;
 
 
 
}
 
short __stdcall CAEN_VME_MWRST( void ){
 
 
 
  return CAEN_VME_MultiWriteReset();
 
 
 
}
 
short __stdcall CAEN_VME_MWEXEC( void ){
 
 
 
  return CAEN_VME_MultiWriteExecute(CAEN_udev);
 
 
 
}
 
 
 
short __stdcall CAEN_VME_MR( uint16_t AM, uint16_t DW, uint32_t VME_Address, uint32_t *Data){
 
 
 
  return   CAEN_VME_appendread(  VME_Address, Data ,(CVAddressModifier) AM , (CVDataWidth) DW) ;
 
 
 
}
 
short __stdcall CAEN_VME_MRRST( void ){
 
 
 
  return CAEN_VME_MultiReadReset(); 
 
 
 
}
 
short __stdcall CAEN_VME_MREXEC(  uint32_t *Data  ){
 
  return CAEN_VME_MultiReadExecute(CAEN_udev, Data); 
 
 
 
 
 
}