LCIO  02.17
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
lcgob.cc
Go to the documentation of this file.
1 
2 #include "lcio.h"
3 #include "CPPFORT/lcgob.h"
5 
6 #include <iostream>
7 
8 using namespace lcio ;
9 
11  LCGenericObjectImpl* object = new LCGenericObjectImpl() ;
12  return reinterpret_cast<PTRTYPE>( object ) ;
13  }
14 
15  PTRTYPE lcgobcreatefixed( int nint, int nfloat, int ndouble ){
16  LCGenericObjectImpl* object = new LCGenericObjectImpl( nint, nfloat, ndouble ) ;
17  return reinterpret_cast<PTRTYPE>( object ) ;
18 
19  }
20 
21  int lcgobdelete( PTRTYPE genericobject ){
22  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
23  delete object ;
24  return LCIO::SUCCESS ;
25 
26  }
27 
28  int lcgobid( PTRTYPE genericobject ){
29  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
30  return object->id() ;
31  }
32 
33  int lcgobgetnint( PTRTYPE genericobject ){
34  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
35  return object->getNInt() ;
36  }
37 
38  int lcgobgetnfloat( PTRTYPE genericobject ){
39  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
40  return object->getNFloat() ;
41  }
42 
43  int lcgobgetndouble( PTRTYPE genericobject ){
44  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
45  return object->getNDouble() ;
46  }
47 
48  int lcgobgetintval( PTRTYPE genericobject, int index ){
49  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
50  return object->getIntVal(index-1) ;
51  }
52 
53  float lcgobgetfloatval( PTRTYPE genericobject, int index ){
54  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
55  return object->getFloatVal(index-1) ;
56  }
57 
58  double lcgobgetdoubleval( PTRTYPE genericobject, int index ){
59  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
60  return object->getDoubleVal(index-1) ;
61  }
62 
63 
64  int lcgobsetintval( PTRTYPE genericobject, int index, int value ){
65  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
66  object->setIntVal(index-1, value) ;
67  return LCIO::SUCCESS ;
68  }
69 
70  int lcgobsetfloatval( PTRTYPE genericobject, int index, float value ){
71  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
72  object->setFloatVal(index-1, value) ;
73  return LCIO::SUCCESS ;
74  }
75 
76  int lcgobsetdoubleval( PTRTYPE genericobject, int index, double value ){
77  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
78  object->setDoubleVal(index-1, value) ;
79  return LCIO::SUCCESS ;
80  }
81 
82 
83  bool lcgobisfixedsize( PTRTYPE genericobject ){
84  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
85  return object->isFixedSize() ;
86  }
87 
88  char* lcgobgettypename( PTRTYPE genericobject ){
89  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
90  return const_cast<char*>( object->getTypeName().c_str() ) ;
91  }
92 
93  char* lcgobgetdatadescription( PTRTYPE genericobject ){
94  LCGenericObjectImpl* object = reinterpret_cast<LCGenericObjectImpl*>( genericobject ) ;
95  return const_cast<char*>( object->getDataDescription().c_str() ) ;
96  }
97 
98 
LCIO_DEPRECATED_CAPI char * lcgobgetdatadescription(PTRTYPE genericobject)
Definition: lcgob.cc:93
LCIO_DEPRECATED_CAPI PTRTYPE lcgobcreatefixed(int nint, int nfloat, int ndouble)
Definition: lcgob.cc:15
LCIO_DEPRECATED_CAPI int lcgobsetdoubleval(PTRTYPE genericobject, int index, double value)
Definition: lcgob.cc:76
LCIO_DEPRECATED_CAPI char * lcgobgettypename(PTRTYPE genericobject)
Definition: lcgob.cc:88
LCIO_DEPRECATED_CAPI int lcgobdelete(PTRTYPE genericobject)
Definition: lcgob.cc:21
LCIO_DEPRECATED_CAPI bool lcgobisfixedsize(PTRTYPE genericobject)
Definition: lcgob.cc:83
LCIO_DEPRECATED_CAPI int lcgobgetintval(PTRTYPE genericobject, int index)
Definition: lcgob.cc:48
LCIO_DEPRECATED_CAPI int lcgobgetndouble(PTRTYPE genericobject)
Definition: lcgob.cc:43
long PTRTYPE
Fortran interface - define the length of pointers this has to made machine independent ...
Definition: cpointer.h:12
LCIO_DEPRECATED_CAPI int lcgobsetfloatval(PTRTYPE genericobject, int index, float value)
Definition: lcgob.cc:70
LCIO_DEPRECATED_CAPI int lcgobgetnfloat(PTRTYPE genericobject)
Definition: lcgob.cc:38
LCIO_DEPRECATED_CAPI double lcgobgetdoubleval(PTRTYPE genericobject, int index)
Definition: lcgob.cc:58
LCIO_DEPRECATED_CAPI int lcgobsetintval(PTRTYPE genericobject, int index, int value)
Definition: lcgob.cc:64
LCIO_DEPRECATED_CAPI PTRTYPE lcgobcreate()
Header file for the f77-wrapper functions of the LCGenericObject class.
Definition: lcgob.cc:10
LCIO_DEPRECATED_CAPI int lcgobid(PTRTYPE genericobject)
Definition: lcgob.cc:28
LCIO_DEPRECATED_CAPI float lcgobgetfloatval(PTRTYPE genericobject, int index)
Definition: lcgob.cc:53
LCIO_DEPRECATED_CAPI int lcgobgetnint(PTRTYPE genericobject)
Definition: lcgob.cc:33