00001
00008 #include "cfortran.h"
00009 #include "cpointer.h"
00010
00011
00012
00013
00014
00015 PTRTYPE lcevtcreate() ;
00016 int lcevtdelete( PTRTYPE event ) ;
00017
00018 int lcevtgetrunnumber( PTRTYPE event ) ;
00019 int lcevtgeteventnumber( PTRTYPE event ) ;
00020 char* lcevtgetdetectorname( PTRTYPE event );
00021
00022 long lcevtgettimestamp( PTRTYPE event ) ;
00023
00024 PTRTYPE lcevtgetcollectionnames( PTRTYPE event ) ;
00025
00026 PTRTYPE lcevtgetcollection( PTRTYPE event, const char* colname ) ;
00027
00028
00029 int lcevtaddcollection( PTRTYPE event, PTRTYPE collection , char* colname ) ;
00030 int lcevtremovecollection( PTRTYPE event, char* name ) ;
00031
00032
00033
00034 int lcevtsetrunnumber( PTRTYPE event, int rn ) ;
00035 int lcevtseteventnumber( PTRTYPE event, int en ) ;
00036 int lcevtsetdetectorname( PTRTYPE event, char* dn ) ;
00037 int lcevtsettimestamp( PTRTYPE event, long ts ) ;
00038
00039
00040 extern "C"{
00041
00042 FCALLSCFUN0(CFORTRANPNTR, lcevtcreate,LCEVTCREATE, lcevtcreate )
00043 FCALLSCFUN1(INT, lcevtdelete, LCEVTDELETE, lcevtdelete, CFORTRANPNTR )
00044
00045 FCALLSCFUN1(INT, lcevtgetrunnumber, LCEVTGETRUNNUMBER,lcevtgetrunnumber, CFORTRANPNTR )
00046 FCALLSCFUN1(INT, lcevtgeteventnumber, LCEVTGETEVENTNUMBER,lcevtgeteventnumber, CFORTRANPNTR )
00047 FCALLSCFUN1(STRING, lcevtgetdetectorname, LCEVTGETDETECTORNAME, lcevtgetdetectorname, CFORTRANPNTR )
00048 FCALLSCFUN1(LONG, lcevtgettimestamp, LCEVTGETTIMESTAMP,lcevtgettimestamp, CFORTRANPNTR )
00049 FCALLSCFUN1(CFORTRANPNTR, lcevtgetcollectionnames, LCEVTGETCOLLECTIONNAMES, lcevtgetcollectionnames, CFORTRANPNTR )
00050
00051 FCALLSCFUN2(CFORTRANPNTR, lcevtgetcollection, LCEVTGETCOLLECTION, lcevtgetcollection, CFORTRANPNTR, STRING )
00052
00053
00054 FCALLSCFUN3(INT, lcevtaddcollection,LCEVTADDCOLLECTION,lcevtaddcollection,CFORTRANPNTR, CFORTRANPNTR, STRING )
00055 FCALLSCFUN2(INT, lcevtremovecollection, LCEVTREMOVECOLLECTION, lcevtremovecollection, CFORTRANPNTR, STRING )
00056
00057
00058
00059 FCALLSCFUN2(INT, lcevtsetrunnumber, LCEVTSETRUNNUMBER, lcevtsetrunnumber, CFORTRANPNTR, INT )
00060 FCALLSCFUN2(INT, lcevtseteventnumber, LCEVTSETEVENTNUMBER, lcevtseteventnumber, CFORTRANPNTR, INT )
00061 FCALLSCFUN2(INT, lcevtsetdetectorname, LCEVTSETDETECTORNAME, lcevtsetdetectorname, CFORTRANPNTR, STRING )
00062 FCALLSCFUN2(INT, lcevtsettimestamp, LCEVTSETTIMESTAMP, lcevtsettimestamp, CFORTRANPNTR, LONG )
00063 }
00064