LoadFunctionsTab.c File Reference

#include "MALLOC.h"
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "machine.h"
#include "hashtable_core.h"
#include "getmodules.h"
#include "setgetSCIpath.h"
#include "LoadFunctionsTab.h"

Include dependency graph for LoadFunctionsTab.c:

Go to the source code of this file.

Defines
#define	FORMATFILENAME   "%s/modules/%s/sci_gateway/%s"
#define	LineMaxSize   1024
Functions
int	C2F (cvname)
static int	Add_a_Scilab_primitive_in_hashtable (char *str, int *dataI, int *data)
static int	Load_primitives_from_file (char *filename)
Variables
static int	firstentry = 0

---

Define Documentation

#define FORMATFILENAME   "%s/modules/%s/sci_gateway/%s"

Referenced by C2F().

#define LineMaxSize   1024

---

Function Documentation

static int Add_a_Scilab_primitive_in_hashtable	(	char *	str,
		int *	dataI,
		int *	data
	)			[static]

Definition at line 56 of file LoadFunctionsTab.c.

References action_hashtable_scilab_functions(), C2F, cvname(), nsiz, and SCI_HFUNCTIONS_ENTER.

Referenced by Load_primitives_from_file().

{
        int ldata;
        int id[nsiz];
        int zero=0;
        C2F(cvname)(id,str,&zero,strlen(str));
        ldata= (*dataI)*100+*data;
        return( action_hashtable_scilab_functions(id,str,&ldata,SCI_HFUNCTIONS_ENTER));
}

Here is the call graph for this function:

Here is the caller graph for this function:

int C2F

(

cvname

)

Definition at line 17 of file LoadFunctionsTab.c.

References firstentry, FORMATFILENAME, FREE, getmodules(), getSCIpath(), j, len, Load_primitives_from_file(), MALLOC, MODULESLIST::ModuleList, NULL, and MODULESLIST::numberofModules.

{
        struct MODULESLIST *Modules=NULL;
        char *SciPath=NULL;
        
        int j=0;

        if ( firstentry != 0 ) return;

        SciPath=getSCIpath();
        Modules=getmodules();
        /* je ne libere pas Modules pour accelerer le prochain appel à getmodule */
        /* liberé dans sciquit.c */

        for (j=0;j<Modules->numberofModules;j++)
        {
                #define FORMATFILENAME "%s/modules/%s/sci_gateway/%s"
                char *filename_primitives_list=NULL;
                int len=strlen(FORMATFILENAME)+strlen(SciPath)+strlen(Modules->ModuleList[j])*2;

                filename_primitives_list=(char*)MALLOC((len+1)*sizeof(char));
                sprintf(filename_primitives_list,FORMATFILENAME,SciPath,Modules->ModuleList[j],Modules->ModuleList[j]);

                Load_primitives_from_file(filename_primitives_list);

                if (filename_primitives_list) { FREE(filename_primitives_list);filename_primitives_list=NULL;}
        }

        if (SciPath){FREE(SciPath);SciPath=NULL;}
        firstentry = 1;

}

Here is the call graph for this function:

static int Load_primitives_from_file

(

char *

filename

)

[static]

Definition at line 66 of file LoadFunctionsTab.c.

References Add_a_Scilab_primitive_in_hashtable(), data, FALSE, FileExist(), LineMaxSize, MAXLENGHTFUNCTIONNAME, retval(), and TRUE.

Referenced by C2F().

{
        BOOL bOK=FALSE;
        if (FileExist(filename))
        {
                #define LineMaxSize 1024
                char Line[LineMaxSize];
                FILE *pFile;
                int dataI=0;
                int data=0;
                char namefunction[MAXLENGHTFUNCTIONNAME];

                pFile=fopen(filename,"rt");
                while (fgets(Line, LineMaxSize,pFile))
                {
                        if (Line[0]!=';')
                        {
                                int retval=0;
                                retval=sscanf(Line,"%d %d %s",&dataI,&data,namefunction);
                                if (retval == 3)
                                {
                                        Add_a_Scilab_primitive_in_hashtable(namefunction,&dataI,&data);
                                }
                        }
                }
                fclose(pFile);
                bOK=TRUE;
        }
        return bOK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

int firstentry = 0 [static]

Definition at line 15 of file LoadFunctionsTab.c.

Referenced by C2F(), MenuFixCurrentWin(), MenuSelect(), NotTTyRead(), prtdlg(), and Size2Scilab().

---