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
|
/*-----------------------------------------------------------------------------------*/
/* INRIA 2005 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#ifndef __TCLGLOBAL__
#define __TCLGLOBAL__
/*-----------------------------------------------------------------------------------*/
#ifdef WIN32
#include <windows.h>
#endif
#include <stdio.h>
#include <string.h>
#include "../machine.h"
#include "../stack-c.h"
#include "../version.h"
#include "tcl.h"
#include "tk.h"
#include "Errors.h"
#include "Warnings.h"
#include "Messages.h"
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
/*-----------------------------------------------------------------------------------*/
#ifndef NULL
#define NULL 0
#endif
#ifndef TRUE
#define TRUE 1
#endif
#ifndef FALSE
#define FALSE 0
#endif
/*-----------------------------------------------------------------------------------*/
extern Tcl_Interp *TCLinterp;
extern Tk_Window TKmainWindow;
extern int TK_Started;
extern int XTKsocket;
extern int IsAScalar(int RhsNumber);
/*-----------------------------------------------------------------------------------*/
void nocase (char *s);
char *Matrix2String(int RhsMatrix);
double *String2Matrix(char *StringIn,int *nbelemOut);
int MustReturnAMatrix(char *FieldPropertie);
int MustReturnAString(char *FieldPropertie);
int ValueMustBeAMatrix(char *FieldPropertie);
int ValueMustBeAString(char *FieldPropertie);
int CheckPropertyField(char *FieldPropertie);
char *UTF8toANSI(Tcl_Interp *TCLinterp,char *StringUTF8);
/*-----------------------------------------------------------------------------------*/
#endif /* __TCLGLOBAL__ */
/*-----------------------------------------------------------------------------------*/
|
