LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lcevt.h
1 
8 #include "cfortran.h"
9 #include "cpointer.h"
10 
11 // Warning: dont use "_" in function names as this causes two many
12 // trailing underscores on Linux
13 
14 // the event interface
15 PTRTYPE lcevtcreate() ;
16 int lcevtdelete( PTRTYPE event ) ;
17 
18 int lcevtgetrunnumber( PTRTYPE event ) ;
19 int lcevtgeteventnumber( PTRTYPE event ) ;
20 char* lcevtgetdetectorname( PTRTYPE event );
21 
22 long lcevtgettimestamp( PTRTYPE event ) ;
23 
24 PTRTYPE lcevtgetcollectionnames( PTRTYPE event ) ;
25 // PTRTYPE lcevtgettrelationnames( PTRTYPE event ) ;
26 PTRTYPE lcevtgetcollection( PTRTYPE event, const char* colname ) ;
27 // PTRTYPE lcevtgetrelation( PTRTYPE event, const char* name ) ;
28 
29 int lcevtaddcollection( PTRTYPE event, PTRTYPE collection , char* colname ) ;
30 int lcevtremovecollection( PTRTYPE event, char* name ) ;
31 // int lcevtaddrelation( PTRTYPE event, PTRTYPE relation, char* name ) ;
32 // int lcevtremoverelation( PTRTYPE event, const char* name ) ;
33 
34 int lcevtsetrunnumber( PTRTYPE event, int rn ) ;
35 int lcevtseteventnumber( PTRTYPE event, int en ) ;
36 int lcevtsetdetectorname( PTRTYPE event, char* dn ) ;
37 int lcevtsettimestamp( PTRTYPE event, long ts ) ;
38 
39 // now the fortran wrappers from cfortran.h
40 extern "C"{
41 
42 FCALLSCFUN0(CFORTRANPNTR, lcevtcreate,LCEVTCREATE, lcevtcreate )
43 FCALLSCFUN1(INT, lcevtdelete, LCEVTDELETE, lcevtdelete, CFORTRANPNTR )
44 
45 FCALLSCFUN1(INT, lcevtgetrunnumber, LCEVTGETRUNNUMBER,lcevtgetrunnumber, CFORTRANPNTR )
46 FCALLSCFUN1(INT, lcevtgeteventnumber, LCEVTGETEVENTNUMBER,lcevtgeteventnumber, CFORTRANPNTR )
47 FCALLSCFUN1(STRING, lcevtgetdetectorname, LCEVTGETDETECTORNAME, lcevtgetdetectorname, CFORTRANPNTR )
48 FCALLSCFUN1(LONG, lcevtgettimestamp, LCEVTGETTIMESTAMP,lcevtgettimestamp, CFORTRANPNTR )
49 FCALLSCFUN1(CFORTRANPNTR, lcevtgetcollectionnames, LCEVTGETCOLLECTIONNAMES, lcevtgetcollectionnames, CFORTRANPNTR )
50 // FCALLSCFUN1(CFORTRANPNTR, lcevtgettrelationnames, LCEVTGETTRELATIONNAMES, lcevtgettrelationnames, CFORTRANPNTR )
51 FCALLSCFUN2(CFORTRANPNTR, lcevtgetcollection, LCEVTGETCOLLECTION, lcevtgetcollection, CFORTRANPNTR, STRING )
52 // FCALLSCFUN2(CFORTRANPNTR, lcevtgetrelation, LCEVTGETRELATION, lcevtgetrelation, CFORTRANPNTR, STRING )
53 
54 FCALLSCFUN3(INT, lcevtaddcollection,LCEVTADDCOLLECTION,lcevtaddcollection,CFORTRANPNTR, CFORTRANPNTR, STRING )
55 FCALLSCFUN2(INT, lcevtremovecollection, LCEVTREMOVECOLLECTION, lcevtremovecollection, CFORTRANPNTR, STRING )
56 // FCALLSCFUN3(INT, lcevtaddrelation, LCEVTADDRELATION, lcevtaddrelation, CFORTRANPNTR, CFORTRANPNTR, STRING )
57 // FCALLSCFUN2(INT, lcevtremoverelation, LCEVTREMOVERELATION, lcevtremoverelation, CFORTRANPNTR,STRING )
58 
59 FCALLSCFUN2(INT, lcevtsetrunnumber, LCEVTSETRUNNUMBER, lcevtsetrunnumber, CFORTRANPNTR, INT )
60 FCALLSCFUN2(INT, lcevtseteventnumber, LCEVTSETEVENTNUMBER, lcevtseteventnumber, CFORTRANPNTR, INT )
61 FCALLSCFUN2(INT, lcevtsetdetectorname, LCEVTSETDETECTORNAME, lcevtsetdetectorname, CFORTRANPNTR, STRING )
62 FCALLSCFUN2(INT, lcevtsettimestamp, LCEVTSETTIMESTAMP, lcevtsettimestamp, CFORTRANPNTR, LONG )
63 }
64