c8dd13761e770c2f091253da723cee38f98442d9
[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 extern int TK_Started;
28 /*--------------------------------------------------------------------------*/
29
30 /**
31  * @TODO : add comment
32  *
33  * @param s 
34  */
35 void nocase (char *s);
36
37 /**
38  * @TODO : add comment
39  *
40  * @param RhsMatrix 
41  * @return <ReturnValue>
42  */
43 char *Matrix2String(int RhsMatrix);
44
45 /**
46  * @TODO : add comment
47  *
48  * @param StringIn  
49  * @param nbelemOut 
50  * @return <ReturnValue>
51  */
52 double *String2Matrix(char *StringIn,int *nbelemOut);
53
54 /**
55  * @TODO : add comment
56  *
57  * @param FieldPropertie    
58  * @return <ReturnValue>
59  */
60 int MustReturnAMatrix(char *FieldPropertie);
61
62 /**
63  * @TODO : add comment
64  *
65  * @param FieldPropertie    
66  * @return <ReturnValue>
67  */
68 int MustReturnAString(char *FieldPropertie);
69
70 /**
71  * @TODO : add comment
72  *
73  * @param FieldPropertie    
74  * @return <ReturnValue>
75  */
76 int ValueMustBeAMatrix(char *FieldPropertie);
77
78 /**
79  * @TODO : add comment
80  *
81  * @param FieldPropertie    
82  * @return <ReturnValue>
83  */
84 int ValueMustBeAString(char *FieldPropertie);
85
86 /**
87  * @TODO : add comment
88  *
89  * @param FieldPropertie    
90  * @return <ReturnValue>
91  */
92 int CheckPropertyField(char *FieldPropertie);
93
94 /**
95  * @TODO : add comment
96  *
97  * @param TCLinterp 
98  * @param StringUTF8    
99  * @return <ReturnValue>
100  */
101 char *UTF8toANSI(Tcl_Interp *TCLinterp,char *StringUTF8);
102
103 /*--------------------------------------------------------------------------*/
104 #endif /* __TCLGLOBAL__ */
105 /*--------------------------------------------------------------------------*/