lcrel.cc

Go to the documentation of this file.

#include "CPPFORT/lcrel.h"

#include "lcio.h"
#include "IMPL/LCRelationImpl.h"
#include <iostream>

using namespace lcio ;

PTRTYPE lcrelcreate0(){
  LCRelationImpl* relation = new LCRelationImpl() ;
  return reinterpret_cast<PTRTYPE>( relation ) ;
}

PTRTYPE lcrelcreate(  PTRTYPE objectfrom, PTRTYPE objectto, float weight ){
  LCObject* objf      = f2c_pointer<LCObject,LCObject>( objectfrom ) ;
  LCObject* objt      = f2c_pointer<LCObject,LCObject>( objectto ) ;
  LCRelationImpl* relation = new LCRelationImpl( objf, objt, weight ) ;
  return reinterpret_cast<PTRTYPE>( relation ) ;
}

int lcreldelete( PTRTYPE relation ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  delete rel ;
  return LCIO::SUCCESS ;
}

int lcrelid( PTRTYPE relation ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  return rel->id() ;
}

PTRTYPE lcrelgetfrom( PTRTYPE relation ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  LCObject* object    = rel->getFrom() ;
  return reinterpret_cast<PTRTYPE>( object ) ;
}

PTRTYPE lcrelgetto( PTRTYPE relation ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  LCObject* object    = rel->getTo() ;
  return reinterpret_cast<PTRTYPE>( object ) ;
}

float lcrelgetweight( PTRTYPE relation ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  return rel->getWeight() ;
}

int lcrelsetfrom(PTRTYPE relation, PTRTYPE object ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  LCObject* obj       = f2c_pointer<LCObject,LCObject>( object ) ;
  rel->setFrom( obj ) ;
  return LCIO::SUCCESS ;
}

int lcrelsetto(PTRTYPE relation, PTRTYPE object ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  LCObject* obj       = f2c_pointer<LCObject,LCObject>( object ) ;
  rel->setTo( obj ) ;
  return LCIO::SUCCESS ;
}

int lcrelsetweight(PTRTYPE relation, float weight ){
  LCRelationImpl* rel = reinterpret_cast<LCRelationImpl*>( relation ) ;
  rel->setWeight( weight ) ;
  return LCIO::SUCCESS ;
}