LCIO  "2.7.4"
 All Classes Namespaces Functions Variables Typedefs Friends Pages
lccol.h
1 
6 #include "cfortran.h"
7 #include "cpointer.h"
8 
9 // Warning: dont use "_" in function names as this causes two many
10 // trailing underscores on Linux
11 
12 // the collection interface
13 PTRTYPE lccolcreate( const char* colname ) ;
14 int lccoldelete( PTRTYPE collection ) ;
15 
16 int lccolgetnumberofelements( PTRTYPE collection ) ;
17 char* lccolgettypename( PTRTYPE collection ) ;
18 PTRTYPE lccolgetelementat( PTRTYPE collection, int index ) ;
19 int lccolgetflag(PTRTYPE collection) ;
20 
21 bool lccolistransient(PTRTYPE collection) ;
22 int lccolsettransient(PTRTYPE collection, bool value) ;
23 
24 bool lccolisdefault(PTRTYPE collection) ;
25 int lccolsetdefault(PTRTYPE collection, bool value) ;
26 
27 int lccolsetflag(PTRTYPE collection, int flag) ;
28 int lccoladdelement(PTRTYPE collection, PTRTYPE object) ;
29 int lccolremoveelementat(PTRTYPE collection, int i) ;
30 
31 // now the fortran wrappers from cfortran.h
32 extern "C"{
33 FCALLSCFUN1(CFORTRANPNTR, lccolcreate, LCCOLCREATE, lccolcreate, STRING )
34 FCALLSCFUN1(INT, lccoldelete, LCCOLDELETE, lccoldelete, CFORTRANPNTR )
35 
36 FCALLSCFUN1(INT, lccolgetnumberofelements,LCCOLGETNUMBEROFELEMENTS,lccolgetnumberofelements,CFORTRANPNTR)
37 FCALLSCFUN1(STRING, lccolgettypename, LCCOLGETTYPENAME, lccolgettypename, CFORTRANPNTR )
38 FCALLSCFUN2(CFORTRANPNTR, lccolgetelementat, LCCOLGETELEMENTAT, lccolgetelementat, CFORTRANPNTR, INT )
39 FCALLSCFUN1(INT, lccolgetflag, LCCOLGETFLAG, lccolgetflag, CFORTRANPNTR )
40 
41 FCALLSCFUN1(LOGICAL, lccolistransient, LCCOLISTRANSIENT, lccolistransient, CFORTRANPNTR )
42 FCALLSCFUN2(INT, lccolsettransient, LCCOLSETTRANSIENT, lccolsettransient, CFORTRANPNTR, LOGICAL )
43 
44 FCALLSCFUN1(LOGICAL, lccolisdefault, LCCOLISDEFAULT, lccolisdefault, CFORTRANPNTR )
45 FCALLSCFUN2(INT, lccolsetdefault, LCCOLSETDEFAULT, lccolsetdefault, CFORTRANPNTR, LOGICAL )
46 
47 FCALLSCFUN2(INT, lccolsetflag, LCCOLSETFLAG, lccolsetflag, CFORTRANPNTR, INT )
48 FCALLSCFUN2(INT, lccoladdelement, LCCOLADDELEMENT, lccoladdelement, CFORTRANPNTR, CFORTRANPNTR )
49 FCALLSCFUN2(INT, lccolremoveelementat, LCCOLREMOVEELEMENTAT, lccolremoveelementat, CFORTRANPNTR, INT )
50 
51 
52 }
53