14 PTRTYPE lcrelcreate0() ;
15 PTRTYPE lcrelcreate( PTRTYPE objectfrom, PTRTYPE objectto,
float weight ) ;
16 int lcreldelete( PTRTYPE relation ) ;
18 int lcrelid(PTRTYPE relation) ;
19 PTRTYPE lcrelgetfrom( PTRTYPE relation ) ;
20 PTRTYPE lcrelgetto( PTRTYPE relation ) ;
21 float lcrelgetweight( PTRTYPE relation ) ;
23 int lcrelsetfrom(PTRTYPE relation, PTRTYPE
object ) ;
24 int lcrelsetto(PTRTYPE relation, PTRTYPE
object ) ;
25 int lcrelsetweight(PTRTYPE relation,
float weight ) ;
29 FCALLSCFUN0(CFORTRANPNTR, lcrelcreate0, LCRELCREATE0, lcrelcreate0 )
30 FCALLSCFUN3(CFORTRANPNTR, lcrelcreate, LCRELCREATE, lcrelcreate, CFORTRANPNTR, CFORTRANPNTR, FLOAT )
31 FCALLSCFUN1(INT, lcreldelete, LCRELDELETE, lcreldelete, CFORTRANPNTR )
33 FCALLSCFUN1(INT, lcrelid, LCRELID, lcrelid, CFORTRANPNTR )
34 FCALLSCFUN1(CFORTRANPNTR, lcrelgetfrom, LCRELGETFROM, lcrelgetfrom, CFORTRANPNTR )
35 FCALLSCFUN1(CFORTRANPNTR, lcrelgetto, LCRELGETTO, lcrelgetto, CFORTRANPNTR )
36 FCALLSCFUN1(FLOAT, lcrelgetweight, LCRELGETWEIGHT, lcrelgetweight, CFORTRANPNTR )
38 FCALLSCFUN2(INT, lcrelsetfrom, LCRELSETFROM, lcrelsetfrom, CFORTRANPNTR, CFORTRANPNTR )
39 FCALLSCFUN2(INT, lcrelsetto, LCRELSETTO, lcrelsetto, CFORTRANPNTR, CFORTRANPNTR )
40 FCALLSCFUN2(INT, lcrelsetweight, LCRELSETWEIGHT, lcrelsetweight, CFORTRANPNTR, FLOAT )