1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA - Allan CORNET
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
/*-----------------------------------------------------------------------------------*/
#ifndef __DYNAMIC_LINK_H__
#define __DYNAMIC_LINK_H__
#include "dynlib_dynamic_link.h"
#include "BOOL.h"
#include "machine.h" /* C2F */
#define ENTRYMAX 500
/**
* Initialize tables
*/
DYNAMIC_LINK_IMPEXP void initializeLink(void);
/**
* check that a routine name is a loaded
* if *ilib == -1
* checks if routinename is a loaded
* entry point
* the result is -1 if false
* or the number in the function table
*
* @param[in] routinename
* @param[in/out] ilib number in the function table (-1 if FALSE)
* @return a BOOL
*/
DYNAMIC_LINK_IMPEXP BOOL c_link(char *routinename,int *ilib);
/**
* OBSOLETE
* if *ilib == -1
* checks if routinename is a loaded
* entry point
* the result is -1 if false
* or the number in the function table
* @param[in] routinename
* @param[in/out] ilib
*/
DYNAMIC_LINK_IMPEXP void C2F(iislink)(char *routinename, int *ilib);
/**
* returns the ii functions
* @param ii
* @param ptr on functions
*/
DYNAMIC_LINK_IMPEXP void GetDynFunc(int ii, void (**realop) ());
/**
* Search a function in the table
* Search from end to top
* @param
* @param
*/
DYNAMIC_LINK_IMPEXP int SearchInDynLinks(char *op, void (**realop) ());
/**
* Show the linked files
*/
DYNAMIC_LINK_IMPEXP void ShowDynLinks(void);
/**
* unlink all linked files
*/
DYNAMIC_LINK_IMPEXP void unlinkallsharedlib(void);
/**
* Unlink a shared lib
* @param i (number of shared lib)
*/
DYNAMIC_LINK_IMPEXP void unlinksharedlib(int *i);
/**
* load a shared archive and call LoadDynLibrary
* the shared lib handler is stored in a Table
* return value is == -1 if the LoadDynLibrary failed
* @param loaded_file
*/
DYNAMIC_LINK_IMPEXP int Sci_dlopen( char *loaded_file);
/**
* This routine load the entryname ename
* from shared lib ishared
* @return TRUE or FALSE
*/
DYNAMIC_LINK_IMPEXP BOOL Sci_dlsym(char *ename,int ishared,char *strf);
/**
* Delete entry points associated with shared lib ishared
* then delete the shared lib
@param ishared
*/
DYNAMIC_LINK_IMPEXP void Sci_Delsym(int ishared);
/**
* @param sizearray returns size of string array returned
* @return string array with functions names loaded
*/
DYNAMIC_LINK_IMPEXP char **getNamesOfFunctionsInSharedLibraries(int *sizearray);
/**
* call link for scilab
* @param idsharedlibrary
* @param filename (dynamic library name)
* @param subnamesarray (list of functions name in dynamic library)
* @param sizesubnamesarray
* @param fflag
* @param ierr (last error)
* @return id
*/
DYNAMIC_LINK_IMPEXP int scilabLink(int idsharedlibrary,
char *filename,
char **subnamesarray,int sizesubnamesarray,
BOOL fflag,int *ierr);
/**
* get list of all Id of shared lib
* @param size of returned list
* @return list of Id
*/
DYNAMIC_LINK_IMPEXP int *getAllIdSharedLib(int *sizeList);
#endif /* __DYNAMIC_LINK_H__ */
/*-----------------------------------------------------------------------------------*/
|
