* bug 4672 fixed - Internal function AddFunctionInTable renamed to
Yuvraj Tomar [Tue, 30 Mar 2010 16:16:34 +0000 (18:16 +0200)]
                   getFunctionByName to avoid confusions on the actual usage
                   of this function. Thanks to Yuvraj Tomar.

22 files changed:
scilab/modules/core/src/c/coretable.c
scilab/modules/differential_equations/src/c/colnewtable.c
scilab/modules/differential_equations/src/c/dassltable.c
scilab/modules/differential_equations/src/c/fevaltable.c
scilab/modules/differential_equations/src/c/fydot2table.c
scilab/modules/differential_equations/src/c/fydottable.c
scilab/modules/differential_equations/src/c/impltable.c
scilab/modules/differential_equations/src/c/int2dtable.c
scilab/modules/differential_equations/src/c/int3dtable.c
scilab/modules/differential_equations/src/c/intgtable.c
scilab/modules/dynamic_link/Makefile.am
scilab/modules/dynamic_link/Makefile.in
scilab/modules/dynamic_link/includes/GetFunctionByName.h [moved from scilab/modules/dynamic_link/includes/AddFunctionInTable.h with 78% similarity]
scilab/modules/dynamic_link/src/c/GetFunctionByName.c [moved from scilab/modules/dynamic_link/src/c/AddFunctionInTable.c with 95% similarity]
scilab/modules/dynamic_link/src/c/dynamic_link.vcproj
scilab/modules/gui/src/c/guitable.c
scilab/modules/linear_algebra/includes/gschur.h
scilab/modules/linear_algebra/src/c/schurtable.c
scilab/modules/optimization/src/c/fsolvetable.c
scilab/modules/optimization/src/c/lsqrsolvtable.c
scilab/modules/optimization/src/c/optimtable.c
scilab/modules/signal_processing/src/c/corrtable.c

index 08e56c4..3a396ca 100644 (file)
@@ -12,7 +12,7 @@
 
 #include <string.h>
 #include "machine.h"
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 
 
 /***********************************
@@ -63,7 +63,7 @@ void C2F(interf1)(char *name, long int size)
 
 void C2F(setinterf)(char *name, int *rep)
 {
-       interffonc = (interff) AddFunctionInTable(name,rep,FTab_interf);
+       interffonc = (interff) GetFunctionByName(name,rep,FTab_interf);
 }
 
 /** function call **/
index ea27fd0..089bbf6 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 /***********************************
 * Search Table for colnew 
@@ -94,7 +94,7 @@ void C2F(fcoldg)(int *i, double *z, double *dg)
 
 void C2F(setfcoldg)(char *name, int *rep)
 {
-       fcoldgfonc = (fcoldgf) AddFunctionInTable(name,rep,FTab_fcoldg);
+       fcoldgfonc = (fcoldgf) GetFunctionByName(name,rep,FTab_fcoldg);
 }
 
 
@@ -113,7 +113,7 @@ void C2F(fcolg)(int *i, double *z, double *g)
 
 void C2F(setfcolg)(char *name, int *rep)
 {
-       fcolgfonc = (fcolgf) AddFunctionInTable(name,rep,FTab_fcolg);
+       fcolgfonc = (fcolgf) GetFunctionByName(name,rep,FTab_fcolg);
 }
 
 
@@ -133,7 +133,7 @@ void C2F(fcoldf)(double *x, double *z, double *df)
 
 void C2F(setfcoldf)(char *name, int *rep)
 {
-       fcoldffonc = (fcoldff) AddFunctionInTable(name,rep,FTab_fcoldf);
+       fcoldffonc = (fcoldff) GetFunctionByName(name,rep,FTab_fcoldf);
 }
 
 
@@ -152,7 +152,7 @@ void C2F(fcolf)(double *x, double *z, double *df)
 
 void C2F(setfcolf)(char *name, int *rep)
 {
-       fcolffonc = (fcolff) AddFunctionInTable(name,rep,FTab_fcolf);
+       fcolffonc = (fcolff) GetFunctionByName(name,rep,FTab_fcolf);
 }
 
 /** the current function fixed by setfcolgu **/
@@ -170,5 +170,5 @@ void C2F(fcolgu)(double *x, double *z, double *dmval)
 
 void C2F(setfcolgu)(char *name, int *rep)
 {
-       fcolgufonc = (fcolguf) AddFunctionInTable(name,rep,FTab_fcolgu);
+       fcolgufonc = (fcolguf) GetFunctionByName(name,rep,FTab_fcolgu);
 }
index 8ed213e..bf30fc3 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 /***********************************
 * Search Table for dassl 
@@ -102,7 +102,7 @@ void C2F(fresd)(double *t, double *y, double *ydot, double *res, int *ires, doub
 
 void C2F(setfresd)(char *name, int *rep)
 {
-       fresdfonc = (fresdf) AddFunctionInTable(name,rep,FTab_fresd);
+       fresdfonc = (fresdf) GetFunctionByName(name,rep,FTab_fresd);
 }
 
 
@@ -121,7 +121,7 @@ void C2F(fjacd)(double *t, double *y, double *ydot, double *pd, double *cj, doub
 
 void C2F(setfjacd)(char *name, int *rep)
 {
-       fjacdfonc = (fjacdf) AddFunctionInTable(name,rep,FTab_fjacd);
+       fjacdfonc = (fjacdf) GetFunctionByName(name,rep,FTab_fjacd);
 }
 
 
@@ -141,7 +141,7 @@ void C2F(fsurfd)(int *neq, double *t, double *y, int *ng, double *gout, double *
 
 void C2F(setfsurfd)(char *name, int *rep)
 {
-       fsurfdfonc = (fsurfdf) AddFunctionInTable(name,rep,FTab_fsurfd);
+       fsurfdfonc = (fsurfdf) GetFunctionByName(name,rep,FTab_fsurfd);
 }
 
 /***********************************
@@ -163,5 +163,5 @@ void C2F(fsurf)(int *ny, double *t, double *y, int *ng, double *gout)
 
 void C2F(setfsurf)(char *name, int *rep)
 {
-       fsurffonc = (fsurff) AddFunctionInTable(name,rep,FTab_fsurf);
+       fsurffonc = (fsurff) GetFunctionByName(name,rep,FTab_fsurf);
 }
index 4a701ae..fc976e9 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "feval.h"
 /***********************************
 * feval (ffeval)
@@ -48,6 +48,6 @@ void C2F(ffeval)(int *nn, double *x1, double *x2, double *xres, int *itype, char
 
 void C2F(setfeval)(char *name, int *rep)
 {
-       fevalfonc = (ffevalf) AddFunctionInTable(name,rep,FTab_ffeval);
+       fevalfonc = (ffevalf) GetFunctionByName(name,rep,FTab_ffeval);
 }
 
index cc26c33..eda2dec 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 
 extern int C2F(getcodc)(int *nd1, int *iflag1);
@@ -64,5 +64,5 @@ void C2F(fydot2)(int *n, double *t, double *y, double *ydot)
 
 void C2F(setfydot2)(char *name, int *rep)
 {
-       fydot2fonc = (fydot2f) AddFunctionInTable(name,rep,FTab_fydot2);
+       fydot2fonc = (fydot2f) GetFunctionByName(name,rep,FTab_fydot2);
 }
index 53f1d64..9ee9e12 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "arnol.h"
        /***********************************
        * ode   (fydot and fjac )
@@ -77,7 +77,7 @@ void C2F(fydot)(int *n, double *t, double *y, double *ydot)
 
 void C2F(setfydot)(char *name, int *rep)
 {
-       fydotfonc = (fydotf) AddFunctionInTable(name,rep,FTab_fydot);
+       fydotfonc = (fydotf) GetFunctionByName(name,rep,FTab_fydot);
 }
 
 
@@ -96,5 +96,5 @@ void C2F(fjac)(int *neq, double *t, double *y, int *ml, int *mu, double *pd, int
 
 void C2F(setfjac)(char *name, int *rep)
 {
-       fjacfonc = (fjacf) AddFunctionInTable(name,rep,FTab_fjac);
+       fjacfonc = (fjacf) GetFunctionByName(name,rep,FTab_fjac);
 }
index 0e806fc..af1c105 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 /***********************************
 * impl   (  fres, fadda, fj2 )
@@ -71,7 +71,7 @@ void C2F(fres)(int *ny, double *t, double *y, double *s, double *r, int *ires)
 
 void C2F(setfres)(char *name, int *rep)
 {
-       fresfonc = (fresf) AddFunctionInTable(name,rep,FTab_fres);
+       fresfonc = (fresf) GetFunctionByName(name,rep,FTab_fres);
 }
 
 
@@ -88,7 +88,7 @@ void C2F(fadda)(int *ny, double *t, double *y, int *ml, int *mu, double *p, int
 
 void C2F(setfadda)(char *name, int *rep)
 {
-       faddafonc = (faddaf) AddFunctionInTable(name,rep,FTab_fadda);
+       faddafonc = (faddaf) GetFunctionByName(name,rep,FTab_fadda);
 }
 
 
@@ -107,5 +107,5 @@ void C2F(fj2)(int *ny, double *t, double *y, double *s, int *ml, int *mu, double
 
 void C2F(setfj2)(char *name, int *rep)
 {
-       fj2fonc = (fj2f) AddFunctionInTable(name,rep,FTab_fj2);
+       fj2fonc = (fj2f) GetFunctionByName(name,rep,FTab_fj2);
 }
index b8dd058..7de38dc 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 /***********************************
 * Search Table for int2d
@@ -50,5 +50,5 @@ double *C2F(fint2d)(double *x, double *y)
 
 void C2F(setfint2d)(char *name, int *rep)
 {
-       fint2dfonc = (fint2df) AddFunctionInTable(name,rep,FTab_fint2d);
+       fint2dfonc = (fint2df) GetFunctionByName(name,rep,FTab_fint2d);
 }
index b70537a..dd38128 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 /***********************************
 * Search Table for int3d
@@ -51,5 +51,5 @@ void C2F(fint3d)(double *xyz, int *numfun, double *v)
 
 void C2F(setfint3d)(char *name, int *rep)
 {
-       fint3dfonc = (fint3df) AddFunctionInTable(name,rep,FTab_fint3d);
+       fint3dfonc = (fint3df) GetFunctionByName(name,rep,FTab_fint3d);
 }
index 41868a6..a327311 100644 (file)
@@ -10,7 +10,7 @@
  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
  *
  */
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 #define ARGS_fintg double *
 
@@ -49,5 +49,5 @@ double *C2F(fintg)(double *x)
 
 void C2F(setfintg)(char *name, int *rep)
 {
-       fintgfonc = (fintgf) AddFunctionInTable(name,rep,FTab_fintg);
+       fintgfonc = (fintgf) GetFunctionByName(name,rep,FTab_fintg);
 }
index 40afbaa..3567e54 100644 (file)
@@ -6,7 +6,7 @@
 DYNAMIC_LINK_C_SOURCES = src/c/addinter.c \
 src/c/dynamic_link.c \
 src/c/dl_genErrorMessage.c \
-src/c/AddFunctionInTable.c \
+src/c/GetFunctionByName.c \
 src/c/ilib_verbose.c
 
 GATEWAY_C_SOURCES = sci_gateway/c/gw_dynamic_link.c \
index ab8c86a..4d11066 100644 (file)
@@ -120,7 +120,7 @@ libscidynamic_link_la_DEPENDENCIES =  \
 am__objects_1 = libscidynamic_link_la-addinter.lo \
        libscidynamic_link_la-dynamic_link.lo \
        libscidynamic_link_la-dl_genErrorMessage.lo \
-       libscidynamic_link_la-AddFunctionInTable.lo \
+       libscidynamic_link_la-GetFunctionByName.lo \
        libscidynamic_link_la-ilib_verbose.lo
 am__objects_2 = libscidynamic_link_la-gw_dynamic_link.lo \
        libscidynamic_link_la-sci_getdynlibext.lo \
@@ -410,7 +410,7 @@ top_srcdir = @top_srcdir@
 DYNAMIC_LINK_C_SOURCES = src/c/addinter.c \
 src/c/dynamic_link.c \
 src/c/dl_genErrorMessage.c \
-src/c/AddFunctionInTable.c \
+src/c/GetFunctionByName.c \
 src/c/ilib_verbose.c
 
 GATEWAY_C_SOURCES = sci_gateway/c/gw_dynamic_link.c \
@@ -650,7 +650,7 @@ mostlyclean-compile:
 distclean-compile:
        -rm -f *.tab.c
 
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscidynamic_link_la-AddFunctionInTable.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscidynamic_link_la-GetFunctionByName.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscidynamic_link_la-addinter.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscidynamic_link_la-dl_genErrorMessage.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscidynamic_link_la-dynamic_link.Plo@am__quote@
@@ -706,12 +706,12 @@ libscidynamic_link_la-dl_genErrorMessage.lo: src/c/dl_genErrorMessage.c
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -c -o libscidynamic_link_la-dl_genErrorMessage.lo `test -f 'src/c/dl_genErrorMessage.c' || echo '$(srcdir)/'`src/c/dl_genErrorMessage.c
 
-libscidynamic_link_la-AddFunctionInTable.lo: src/c/AddFunctionInTable.c
-@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -MT libscidynamic_link_la-AddFunctionInTable.lo -MD -MP -MF $(DEPDIR)/libscidynamic_link_la-AddFunctionInTable.Tpo -c -o libscidynamic_link_la-AddFunctionInTable.lo `test -f 'src/c/AddFunctionInTable.c' || echo '$(srcdir)/'`src/c/AddFunctionInTable.c
-@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscidynamic_link_la-AddFunctionInTable.Tpo $(DEPDIR)/libscidynamic_link_la-AddFunctionInTable.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/AddFunctionInTable.c' object='libscidynamic_link_la-AddFunctionInTable.lo' libtool=yes @AMDEPBACKSLASH@
+libscidynamic_link_la-GetFunctionByName.lo: src/c/GetFunctionByName.c
+@am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -MT libscidynamic_link_la-GetFunctionByName.lo -MD -MP -MF $(DEPDIR)/libscidynamic_link_la-GetFunctionByName.Tpo -c -o libscidynamic_link_la-GetFunctionByName.lo `test -f 'src/c/GetFunctionByName.c' || echo '$(srcdir)/'`src/c/GetFunctionByName.c
+@am__fastdepCC_TRUE@   $(am__mv) $(DEPDIR)/libscidynamic_link_la-GetFunctionByName.Tpo $(DEPDIR)/libscidynamic_link_la-GetFunctionByName.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/GetFunctionByName.c' object='libscidynamic_link_la-GetFunctionByName.lo' libtool=yes @AMDEPBACKSLASH@
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -c -o libscidynamic_link_la-AddFunctionInTable.lo `test -f 'src/c/AddFunctionInTable.c' || echo '$(srcdir)/'`src/c/AddFunctionInTable.c
+@am__fastdepCC_FALSE@  $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -c -o libscidynamic_link_la-GetFunctionByName.lo `test -f 'src/c/GetFunctionByName.c' || echo '$(srcdir)/'`src/c/GetFunctionByName.c
 
 libscidynamic_link_la-ilib_verbose.lo: src/c/ilib_verbose.c
 @am__fastdepCC_TRUE@   $(LIBTOOL)  --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscidynamic_link_la_CFLAGS) $(CFLAGS) -MT libscidynamic_link_la-ilib_verbose.lo -MD -MP -MF $(DEPDIR)/libscidynamic_link_la-ilib_verbose.Tpo -c -o libscidynamic_link_la-ilib_verbose.lo `test -f 'src/c/ilib_verbose.c' || echo '$(srcdir)/'`src/c/ilib_verbose.c
@@ -1,4 +1,3 @@
-
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) INRIA - Allan CORNET
@@ -12,8 +11,8 @@
  */
 
 /*--------------------------------------------------------------------------*/
-#ifndef __ADDFUNCTIONINTABLE_H__
-#define __ADDFUNCTIONINTABLE_H__
+#ifndef __GETFUNCTIONBYNAME_H__
+#define __GETFUNCTIONBYNAME_H__
 
 #include "dynlib_dynamic_link.h"
 
@@ -28,15 +27,15 @@ typedef struct {
 
 
 /**
-* Add a C or fortran function in functions hashtable
+* Gets a pointer to a C or Fortran function by name from the functions table
 *
 * @param name  function name
 * @param[OUT] rep  result 1 (OK) or 0 (Problem)
 * @param table functions hashtable
 * @return a pointer on function in functions hashtable
 */
-DYNAMIC_LINK_IMPEXP voidf AddFunctionInTable (char *name, int *rep, FTAB *table);  
+DYNAMIC_LINK_IMPEXP voidf GetFunctionByName (char *name, int *rep, FTAB *table);  
 
-#endif /* __ADDFUNCTIONINTABLE_H__ */
+#endif /* __GETFUNCTIONBYNAME_H__ */
 /*--------------------------------------------------------------------------*/
 
 
 /*--------------------------------------------------------------------------*/ 
 #include <string.h>
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "dynamic_link.h"
 #include "MALLOC.h"
 /*--------------------------------------------------------------------------*/
 static BOOL SearchComp(FTAB *Ftab, char *op, void (**realop) ());
 static void Emptyfunc(void) {}
 /*--------------------------------------------------------------------------*/
-voidf AddFunctionInTable (char *name, int *rep, FTAB *table)
+voidf GetFunctionByName (char *name, int *rep, FTAB *table)
 {
        void (*loc)();
        if (name)
index 3fedb70..ac83779 100644 (file)
                        Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
                        >
                        <File
-                               RelativePath=".\AddFunctionInTable.c"
+                               RelativePath=".\GetFunctionByName.c"
                                >
                        </File>
                        <File
                        Filter="h;hpp;hxx;hm;inl"
                        >
                        <File
-                               RelativePath="..\..\includes\AddFunctionInTable.h"
+                               RelativePath="..\..\includes\GetFunctionByName.h"
                                >
                        </File>
                        <File
index ce8ea3d..046551e 100644 (file)
@@ -10,7 +10,7 @@
  *
  */
 
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 /* TO DO : See with V.C if we need again this file */
 
 /***********************************
@@ -54,5 +54,5 @@ void C2F(fbutn)(char *name, int *win, int *entry)
 
 void C2F(setfbutn)(char *name, int *rep)
 {
-       fbutnfonc = (fbutnf) AddFunctionInTable(name,rep,FTab_fbutn);
+       fbutnfonc = (fbutnf) GetFunctionByName(name,rep,FTab_fbutn);
 }
index ad40401..082fea6 100644 (file)
@@ -15,7 +15,7 @@
 #define __GSCHUR_H__
 
 #include "dynlib_linear_algebra.h"
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "linear_FTables.h"
 
 
index 3aacf1d..bb3abc0 100644 (file)
@@ -17,7 +17,7 @@
  */
 /*--------------------------------------------------------------------------*/
 #include <string.h>
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "linear_FTables.h"
 #include "schur.h"
 
@@ -95,11 +95,11 @@ int *C2F(schsel)(double *alpha, double *beta)
 void C2F(setschsel)(int *len, char *name, int *rep)
 {
        if ( ((strncmp(name,"c",1)== 0 ) && (*len==1)) || strncmp(name,"cont",4)== 0 )
-               schselfonc = (schself) AddFunctionInTable("sb02mv",rep,FTab_schsel);
+               schselfonc = (schself) GetFunctionByName("sb02mv",rep,FTab_schsel);
        else if ( ((strncmp(name,"d",1)== 0) && (*len==1)) || strncmp(name,"disc",4)== 0 )
-               schselfonc = (schself) AddFunctionInTable("sb02mw",rep,FTab_schsel);
+               schselfonc = (schself) GetFunctionByName("sb02mw",rep,FTab_schsel);
        else 
-               schselfonc = (schself) AddFunctionInTable(name,rep,FTab_schsel);
+               schselfonc = (schself) GetFunctionByName(name,rep,FTab_schsel);
 }
 
 /***********************************
@@ -122,11 +122,11 @@ int *C2F(zchsel)(doublecmplx *alpha)
 void C2F(setzchsel)(int *len, char *name, int *rep)
 {
        if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
-               zchselfonc = (zchself) AddFunctionInTable("zb02mv",rep,FTab_zchsel);
+               zchselfonc = (zchself) GetFunctionByName("zb02mv",rep,FTab_zchsel);
        else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
-               zchselfonc = (zchself) AddFunctionInTable("zb02mw",rep,FTab_zchsel);
+               zchselfonc = (zchself) GetFunctionByName("zb02mw",rep,FTab_zchsel);
        else 
-               zchselfonc = (zchself) AddFunctionInTable(name,rep,FTab_zchsel);
+               zchselfonc = (zchself) GetFunctionByName(name,rep,FTab_zchsel);
 }
 
 /***********************************
@@ -149,11 +149,11 @@ int *C2F(gshsel)(double *alphar, double *alphai, double *beta)
 void C2F(setgshsel)(int *len, char *name, int *rep)
 {
        if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
-               gshselfonc = (gshself) AddFunctionInTable("sb02ow",rep,FTab_gshsel);
+               gshselfonc = (gshself) GetFunctionByName("sb02ow",rep,FTab_gshsel);
        else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
-               gshselfonc = (gshself) AddFunctionInTable("sb02ox",rep,FTab_gshsel);
+               gshselfonc = (gshself) GetFunctionByName("sb02ox",rep,FTab_gshsel);
        else 
-               gshselfonc = (gshself) AddFunctionInTable(name,rep,FTab_gshsel);
+               gshselfonc = (gshself) GetFunctionByName(name,rep,FTab_gshsel);
 }
 
 /***********************************
@@ -176,11 +176,11 @@ int *C2F(gzhsel)(doublecmplx *alpha, doublecmplx *beta)
 void C2F(setgzhsel)(int *len, char *name, int *rep)
 {
        if ( ((strncmp(name,"c",1)== 0) && (*len==1)) || strncmp(name,"cont",3)== 0 )
-               gzhselfonc = (gzhself) AddFunctionInTable("zb02ow",rep,FTab_gzhsel);
+               gzhselfonc = (gzhself) GetFunctionByName("zb02ow",rep,FTab_gzhsel);
        else if ( ( (strncmp(name,"d",1)== 0) && (*len==1) ) || strncmp(name,"disc",4)== 0 )
-               gzhselfonc = (gzhself) AddFunctionInTable("zb02ox",rep,FTab_gzhsel);
+               gzhselfonc = (gzhself) GetFunctionByName("zb02ox",rep,FTab_gzhsel);
        else 
-               gzhselfonc = (gzhself) AddFunctionInTable(name,rep,FTab_gzhsel);
+               gzhselfonc = (gzhself) GetFunctionByName(name,rep,FTab_gzhsel);
 }
 
 /***********************************
@@ -203,10 +203,10 @@ int *C2F(fschur)(int *lsize, double *alpha, double *beta, double *s, double *p)
 void C2F(setfschur)(char *name, int *rep)
 {
        if (strncmp(name,"c",1)== 0 || strncmp(name,"cont",3)== 0 )
-               fschurfonc = (fschurf) AddFunctionInTable("folhp",rep,FTab_fschur);
+               fschurfonc = (fschurf) GetFunctionByName("folhp",rep,FTab_fschur);
        else if (strncmp(name,"d",1)== 0 || strncmp(name,"disc",4)== 0 )
-               fschurfonc = (fschurf) AddFunctionInTable("find",rep,FTab_fschur);
+               fschurfonc = (fschurf) GetFunctionByName("find",rep,FTab_fschur);
        else 
-               fschurfonc = (fschurf) AddFunctionInTable(name,rep,FTab_fschur);
+               fschurfonc = (fschurf) GetFunctionByName(name,rep,FTab_fschur);
 }
 
index 3b17573..47d5120 100644 (file)
@@ -10,7 +10,7 @@
  *
  */
 /*--------------------------------------------------------------------------*/
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 #include "dynlib_optimization.h"
 /***********************************
@@ -62,7 +62,7 @@ void C2F(fsolvf)(int *n, double *x, double *fvec, int *iflag)
 
 void C2F(setfsolvf)(char *name, int *rep)
 {
-       fsolvffonc = (fsolvff) AddFunctionInTable(name,rep,FTab_fsolvf);
+       fsolvffonc = (fsolvff) GetFunctionByName(name,rep,FTab_fsolvf);
 }
 
 /** the current function fixed by setfsolvj **/
@@ -80,5 +80,5 @@ void C2F(fsolvj)(int *n, double *x, double *fjac, int *iflag)
 
 void C2F(setfsolvj)(char *name, int *rep)
 {
-       fsolvjfonc = (fsolvjf) AddFunctionInTable(name,rep,FTab_fsolvj);
+       fsolvjfonc = (fsolvjf) GetFunctionByName(name,rep,FTab_fsolvj);
 }
index ded4aa6..0469232 100644 (file)
@@ -10,7 +10,7 @@
  *
  */
 /*--------------------------------------------------------------------------*/
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 #include "dynlib_optimization.h"
 /***********************************
@@ -64,7 +64,7 @@ void C2F(lsqrsolvf)(int *m, int *n, double *x, double *fvec, int *iflag)
 
 void C2F(setlsqrsolvf)(char *name, int *rep)
 {
-       lsqrsolvffonc = (lsqrsolvff) AddFunctionInTable(name,rep,FTab_lsqrsolvf);
+       lsqrsolvffonc = (lsqrsolvff) GetFunctionByName(name,rep,FTab_lsqrsolvf);
 }
 
 /** the current function fixed by setfsolvj **/
@@ -82,5 +82,5 @@ void C2F(lsqrsolvj)(int *m, int *n, double *x, double *fjac, int *ldfjac, int *i
 
 void C2F(setlsqrsolvj)(char *name, int *rep)
 {
-       lsqrsolvjfonc = (lsqrsolvjf) AddFunctionInTable(name,rep,FTab_lsqrsolvj);
+       lsqrsolvjfonc = (lsqrsolvjf) GetFunctionByName(name,rep,FTab_lsqrsolvj);
 }
index ed6cb20..f1e8283 100644 (file)
@@ -10,7 +10,7 @@
  *
  */
 /*--------------------------------------------------------------------------*/
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "machine.h"
 #include "dynlib_optimization.h"
 /***********************************
@@ -54,6 +54,6 @@ void C2F(foptim)(int *indsim, int *n, double *x, double *f, double *g, int *izs,
 
 void C2F(setfoptim)(char *name, int *rep)
 {
-       foptimfonc = (foptimf) AddFunctionInTable(name,rep,FTab_foptim);
+       foptimfonc = (foptimf) GetFunctionByName(name,rep,FTab_foptim);
 }
 
index de34ef8..8aff78f 100644 (file)
@@ -10,7 +10,7 @@
  *
  */
 
-#include "AddFunctionInTable.h"
+#include "GetFunctionByName.h"
 #include "dynlib_signal_processing.h"
 #include "machine.h"
 /***********************************
@@ -67,7 +67,7 @@ void C2F(dgetx)(double *x, int *incr, int *istart)
 
 void C2F(setdgetx)(char *name, int *rep)
 {
-       dgetxfonc = (dgetxf) AddFunctionInTable(name,rep,FTab_dgetx);
+       dgetxfonc = (dgetxf) GetFunctionByName(name,rep,FTab_dgetx);
 }
 
 
@@ -85,6 +85,6 @@ void C2F(dgety)(double *y, int *incr, int *istart)
 
 void C2F(setdgety)(char *name, int *rep)
 {
-       dgetyfonc = (dgetyf) AddFunctionInTable(name,rep,FTab_dgety);
+       dgetyfonc = (dgetyf) GetFunctionByName(name,rep,FTab_dgety);
 }