Scilab [trunk]: scilab/modules/core/src/c/Funtab.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* Scilab function table */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include <string.h>
00005 #include <stdio.h>
00006 #include <stdlib.h>
00007 #include "hashtable_core.h"
00008 #include "stack-c.h"
00009 #include "machine.h"
00010 #include "Funtab.h"
00011 /*-----------------------------------------------------------------------------------*/
00012 int C2F(funtab)(int *id, int *fptr, int *job,char *namefunction, unsigned long namefunction_len) 
00013 {
00014   switch ( *job) 
00015     {
00016     case 0 : /* before do a printf for What OBSOLETE */
00017     break;
00018     case 1 :
00019       *fptr=0;
00020       action_hashtable_scilab_functions(id,NULL,fptr,SCI_HFUNCTIONS_FIND);
00021       break;
00022     case 2 : 
00023       action_hashtable_scilab_functions(id,NULL,fptr,SCI_HFUNCTIONS_BACKSEARCH);
00024       break;
00025     case 3 : 
00026                 if ( (namefunction_len) && (strcmp(namefunction,"NULL_NAME")) )
00027                 {
00028                         action_hashtable_scilab_functions(id,namefunction,fptr,SCI_HFUNCTIONS_ENTER);
00029                 }
00030                 else
00031                 {
00032                         action_hashtable_scilab_functions(id,NULL,fptr,SCI_HFUNCTIONS_ENTER);
00033                 }
00034       break;
00035     case 4 : 
00036       action_hashtable_scilab_functions(id,NULL,fptr,SCI_HFUNCTIONS_DELETE);
00037       break;
00038     }
00039   return(0);
00040 }
00041 /*-----------------------------------------------------------------------------------*/