00001
00007 #include "cfortran.h"
00008 #include "cpointer.h"
00009
00010
00011
00012
00013
00014 PTRTYPE lcrnvcreate( const char* fromType, const char* toType ) ;
00015 int lcrnvdelete( PTRTYPE relation ) ;
00016 PTRTYPE lcrnvcreatefromcollection( PTRTYPE collection ) ;
00017
00018 char* lcrnvgetfromtype( PTRTYPE relation ) ;
00019 char* lcrnvgettotype( PTRTYPE relation ) ;
00020 PTRTYPE lcrnvgetrelatedtoobjects( PTRTYPE relation, PTRTYPE object ) ;
00021 PTRTYPE lcrnvgetrelatedfromobjects( PTRTYPE relation, PTRTYPE object ) ;
00022 PTRTYPE lcrnvgetrelatedtoweights ( PTRTYPE relation, PTRTYPE object ) ;
00023 PTRTYPE lcrnvgetrelatedfromweights ( PTRTYPE relation, PTRTYPE object ) ;
00024
00025 int lcrnvgaddrelation(PTRTYPE relation, PTRTYPE objectfrom, PTRTYPE objectto, float weight ) ;
00026 int lcrnvgremoverelation(PTRTYPE relation, PTRTYPE objectfrom, PTRTYPE objectto ) ;
00027 PTRTYPE lcrnvcreatecollection(PTRTYPE relation ) ;
00028
00029
00030 extern "C"{
00031 FCALLSCFUN2(CFORTRANPNTR, lcrnvcreate, LCRNVCREATE, lcrnvcreate, STRING, STRING )
00032 FCALLSCFUN1(INT, lcrnvdelete, LCRNVDELETE, lcrnvdelete, CFORTRANPNTR )
00033 FCALLSCFUN1(CFORTRANPNTR, lcrnvcreatefromcollection, LCRNVCREATEFROMCOLLECTION, lcrnvcreatefromcollection, CFORTRANPNTR )
00034
00035 FCALLSCFUN1(STRING, lcrnvgetfromtype, LCRNVGETFROMTYPE, lcrnvgetfromtype, CFORTRANPNTR )
00036 FCALLSCFUN1(STRING, lcrnvgettotype, LCRNVGETTOTYPE, lcrnvgettotype, CFORTRANPNTR )
00037 FCALLSCFUN2(CFORTRANPNTR, lcrnvgetrelatedtoobjects, LCRNVGETRELATEDTOOBJECTS, lcrnvgetrelatedtoobjects,
00038 CFORTRANPNTR, CFORTRANPNTR )
00039 FCALLSCFUN2(CFORTRANPNTR, lcrnvgetrelatedfromobjects, LCRNVGETRELATEDFROMOBJECTS, lcrnvgetrelatedfromobjects,
00040 CFORTRANPNTR, CFORTRANPNTR )
00041 FCALLSCFUN2(CFORTRANPNTR, lcrnvgetrelatedtoweights, LCRNVGETRELATEDTOWEIGHTS, lcrnvgetrelatedtoweights,
00042 CFORTRANPNTR, CFORTRANPNTR )
00043 FCALLSCFUN2(CFORTRANPNTR, lcrnvgetrelatedfromweights, LCRNVGETRELATEDFROMWEIGHTS, lcrnvgetrelatedfromweights,
00044 CFORTRANPNTR, CFORTRANPNTR )
00045
00046 FCALLSCFUN4(INT, lcrnvgaddrelation, LCRNVGADDRELATION, lcrnvgaddrelation,
00047 CFORTRANPNTR, CFORTRANPNTR, CFORTRANPNTR, FLOAT )
00048 FCALLSCFUN3(INT, lcrnvgremoverelation, LCRNVGREMOVERELATION, lcrnvgremoverelation,
00049 CFORTRANPNTR, CFORTRANPNTR, CFORTRANPNTR )
00050 FCALLSCFUN1(CFORTRANPNTR, lcrnvcreatecollection, LCRNVCREATECOLLECTION, lcrnvcreatecollection, CFORTRANPNTR )
00051
00052 }
00053