00001
00006 #include "cfortran.h"
00007 #include "cpointer.h"
00008
00009
00010
00011
00012
00013 PTRTYPE lccolcreate( const char* colname ) ;
00014 int lccoldelete( PTRTYPE collection ) ;
00015
00016 int lccolgetnumberofelements( PTRTYPE collection ) ;
00017 char* lccolgettypename( PTRTYPE collection ) ;
00018 PTRTYPE lccolgetelementat( PTRTYPE collection, int index ) ;
00019 int lccolgetflag(PTRTYPE collection) ;
00020
00021 bool lccolistransient(PTRTYPE collection) ;
00022 int lccolsettransient(PTRTYPE collection, bool value) ;
00023
00024 bool lccolisdefault(PTRTYPE collection) ;
00025 int lccolsetdefault(PTRTYPE collection, bool value) ;
00026
00027 int lccolsetflag(PTRTYPE collection, int flag) ;
00028 int lccoladdelement(PTRTYPE collection, PTRTYPE object) ;
00029 int lccolremoveelementat(PTRTYPE collection, int i) ;
00030
00031
00032 extern "C"{
00033 FCALLSCFUN1(CFORTRANPNTR, lccolcreate, LCCOLCREATE, lccolcreate, STRING )
00034 FCALLSCFUN1(INT, lccoldelete, LCCOLDELETE, lccoldelete, CFORTRANPNTR )
00035
00036 FCALLSCFUN1(INT, lccolgetnumberofelements,LCCOLGETNUMBEROFELEMENTS,lccolgetnumberofelements,CFORTRANPNTR)
00037 FCALLSCFUN1(STRING, lccolgettypename, LCCOLGETTYPENAME, lccolgettypename, CFORTRANPNTR )
00038 FCALLSCFUN2(CFORTRANPNTR, lccolgetelementat, LCCOLGETELEMENTAT, lccolgetelementat, CFORTRANPNTR, INT )
00039 FCALLSCFUN1(INT, lccolgetflag, LCCOLGETFLAG, lccolgetflag, CFORTRANPNTR )
00040
00041 FCALLSCFUN1(LOGICAL, lccolistransient, LCCOLISTRANSIENT, lccolistransient, CFORTRANPNTR )
00042 FCALLSCFUN2(INT, lccolsettransient, LCCOLSETTRANSIENT, lccolsettransient, CFORTRANPNTR, LOGICAL )
00043
00044 FCALLSCFUN1(LOGICAL, lccolisdefault, LCCOLISDEFAULT, lccolisdefault, CFORTRANPNTR )
00045 FCALLSCFUN2(INT, lccolsetdefault, LCCOLSETDEFAULT, lccolsetdefault, CFORTRANPNTR, LOGICAL )
00046
00047 FCALLSCFUN2(INT, lccolsetflag, LCCOLSETFLAG, lccolsetflag, CFORTRANPNTR, INT )
00048 FCALLSCFUN2(INT, lccoladdelement, LCCOLADDELEMENT, lccoladdelement, CFORTRANPNTR, CFORTRANPNTR )
00049 FCALLSCFUN2(INT, lccolremoveelementat, LCCOLREMOVEELEMENTAT, lccolremoveelementat, CFORTRANPNTR, INT )
00050
00051
00052 }
00053