LCIO  02.17
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
lcrhd.cc
Go to the documentation of this file.
1 #include "CPPFORT/lcrhd.h"
2 
3 #include "lcio.h"
4 #include "Exceptions.h"
5 #include "IOIMPL/LCFactory.h"
6 #include "IMPL/LCRunHeaderImpl.h"
7 #include "IMPL/LCEventImpl.h"
8 #include "IMPL/LCTOOLS.h"
9 #include <iostream>
10 
11 using namespace lcio ;
12 
13 
15  LCRunHeaderImpl* rhd = new LCRunHeaderImpl ;
16  return reinterpret_cast<PTRTYPE>(rhd) ;
17 }
18 
19 int lcrhddelete( PTRTYPE runHeader ){
20  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
21  delete rhd ;
22  return LCIO::SUCCESS ;
23 }
24 int lcrhdgetrunnumber( PTRTYPE runHeader ){
25  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
26  return rhd->getRunNumber() ;
27 }
28 char* lcrhdgetdetectorname( PTRTYPE runHeader ){
29  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
30  return const_cast<char*>( rhd->getDetectorName().c_str() );
31 }
32 char* lcrhdgetdescription( PTRTYPE runHeader ){
33  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
34  return const_cast<char*>( rhd->getDescription().c_str() );
35 }
36 
37 
39  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
40  return reinterpret_cast<PTRTYPE>( rhd->getActiveSubdetectors() ) ;
41 }
42 
43 int lcrhdsetrunnumber( PTRTYPE runHeader, int rn){
44  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
45  rhd->setRunNumber( rn ) ;
46  return LCIO::SUCCESS ;
47 }
48 int lcrhdsetdetectorname( PTRTYPE runHeader, const char* dn){
49  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
50  rhd->setDetectorName( dn ) ;
51  return LCIO::SUCCESS ;
52 }
53 int lcrhdsetdescription( PTRTYPE runHeader, const char* dsc){
54  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
55  rhd->setDescription( dsc ) ;
56  return LCIO::SUCCESS ;
57 }
58 int lcrhdaddactivesubdetector( PTRTYPE runHeader, const char* adn){
59  LCRunHeaderImpl* rhd = reinterpret_cast<LCRunHeaderImpl*>(runHeader) ;
60  rhd->addActiveSubdetector( adn ) ;
61  return LCIO::SUCCESS ;
62 }
63 
64 
65 
66 
LCIO_DEPRECATED_CAPI int lcrhdaddactivesubdetector(PTRTYPE runHeader, const char *adn)
Definition: lcrhd.cc:58
LCIO_DEPRECATED_CAPI char * lcrhdgetdescription(PTRTYPE runHeader)
Definition: lcrhd.cc:32
LCIO_DEPRECATED_CAPI int lcrhdsetdetectorname(PTRTYPE runHeader, const char *dn)
Definition: lcrhd.cc:48
LCIO_DEPRECATED_CAPI PTRTYPE lcrhdcreate()
Header file for the f77-wrapper functions of the LCEventImpl class.
Definition: lcrhd.cc:14
LCIO_DEPRECATED_CAPI int lcrhddelete(PTRTYPE runHeader)
Definition: lcrhd.cc:19
LCIO_DEPRECATED_CAPI PTRTYPE lcrhdgetactivesubdetectors(PTRTYPE runHeader)
Definition: lcrhd.cc:38
LCIO_DEPRECATED_CAPI int lcrhdsetdescription(PTRTYPE runHeader, const char *dsc)
Definition: lcrhd.cc:53
LCIO_DEPRECATED_CAPI int lcrhdsetrunnumber(PTRTYPE runHeader, int rn)
Definition: lcrhd.cc:43
long PTRTYPE
Fortran interface - define the length of pointers this has to made machine independent ...
Definition: cpointer.h:12
LCIO_DEPRECATED_CAPI char * lcrhdgetdetectorname(PTRTYPE runHeader)
Definition: lcrhd.cc:28
LCIO_DEPRECATED_CAPI int lcrhdgetrunnumber(PTRTYPE runHeader)
Definition: lcrhd.cc:24