blob: ab6bf59dae8115135f1ff433ac18bfe93720fa48 (
plain)
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
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) 2006 - 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.1-en.txt
*
*/
#include "machine.h" /* C2F */
#include "BOOL.h"
#include "localization.h"
#include "Scierror.h"
/*--------------------------------------------------------------------------*/
#ifndef _MSC_VER
int XTKsocket = 0;
#endif
/*--------------------------------------------------------------------------*/
int CloseTCLsci(void)
{
return 0;
}
/*--------------------------------------------------------------------------*/
BOOL Set_TCL_LIBRARY_PATH(char *DefaultPath)
{
return TRUE;
}
/*--------------------------------------------------------------------------*/
BOOL Set_TK_LIBRARY_PATH(char *DefaultPath)
{
return TRUE;
}
/*--------------------------------------------------------------------------*/
int gw_tclsci(void)
{
Scierror(999, _("Scilab TCL/TK module not installed.\n"));
return 0;
}
/*--------------------------------------------------------------------------*/
void initTCLTK(void)
{
}
/*--------------------------------------------------------------------------*/
int sciDestroyGed( int figureId )
{
return 1;
}
/*--------------------------------------------------------------------------*/
int isGedOpenedOn( int figureId )
{
return FALSE;
}
/*--------------------------------------------------------------------------*/
int setenvtcl(char *string, char *value)
{
return TRUE;
}
/*--------------------------------------------------------------------------*/
BOOL InitializeTclTk(void)
{
return FALSE;
}
/*--------------------------------------------------------------------------*/
BOOL TerminateTclTk(void)
{
return TRUE;
}
/*--------------------------------------------------------------------------*/
|
