Rationnalization of the tcl/tk init process and use function instead of a silly globa...
[scilab.git] / scilab / modules / tclsci / includes / TCL_Global.h
1 /*--------------------------------------------------------------------------*/
2 /* INRIA 2005 */
3 /* Allan CORNET */
4 /*--------------------------------------------------------------------------*/ 
5 #ifndef __TCLGLOBAL__
6 #define __TCLGLOBAL__
7
8 /*--------------------------------------------------------------------------*/
9 #ifdef _MSC_VER
10   #include <windows.h>
11 #endif
12 #include <stdio.h>
13 #include <string.h>
14 #include "machine.h"
15 #include "stack-c.h"
16 #include "version.h"
17
18 #include "tcl.h"
19 #include "tk.h"
20 #include "IsAScalar.h"
21 #include "MALLOC.h"
22
23 /*--------------------------------------------------------------------------*/
24 extern Tcl_Interp *TCLinterp;
25 extern Tk_Window TKmainWindow;
26 extern int XTKsocket;
27 /*--------------------------------------------------------------------------*/
28
29 /**
30  * @TODO : add comment
31  *
32  * @param s 
33  */
34 void nocase (char *s);
35
36 /**
37  * @TODO : add comment
38  *
39  * @param RhsMatrix 
40  * @return <ReturnValue>
41  */
42 char *Matrix2String(int RhsMatrix);
43
44 /**
45  * @TODO : add comment
46  *
47  * @param StringIn  
48  * @param nbelemOut 
49  * @return <ReturnValue>
50  */
51 double *String2Matrix(char *StringIn,int *nbelemOut);
52
53 /**
54  * @TODO : add comment
55  *
56  * @param FieldPropertie    
57  * @return <ReturnValue>
58  */
59 int MustReturnAMatrix(char *FieldPropertie);
60
61 /**
62  * @TODO : add comment
63  *
64  * @param FieldPropertie    
65  * @return <ReturnValue>
66  */
67 int MustReturnAString(char *FieldPropertie);
68
69 /**
70  * @TODO : add comment
71  *
72  * @param FieldPropertie    
73  * @return <ReturnValue>
74  */
75 int ValueMustBeAMatrix(char *FieldPropertie);
76
77 /**
78  * @TODO : add comment
79  *
80  * @param FieldPropertie    
81  * @return <ReturnValue>
82  */
83 int ValueMustBeAString(char *FieldPropertie);
84
85 /**
86  * @TODO : add comment
87  *
88  * @param FieldPropertie    
89  * @return <ReturnValue>
90  */
91 int CheckPropertyField(char *FieldPropertie);
92
93 /**
94  * @TODO : add comment
95  *
96  * @param TCLinterp 
97  * @param StringUTF8    
98  * @return <ReturnValue>
99  */
100 char *UTF8toANSI(Tcl_Interp *TCLinterp,char *StringUTF8);
101
102 /*--------------------------------------------------------------------------*/
103 #endif /* __TCLGLOBAL__ */
104 /*--------------------------------------------------------------------------*/