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
139
140
141
142
143
144
145
|
//
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - INRIA - Vincent COUVERT
//
// 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
//
// Callback function for SCI2C GUI (See sci2c_gui.sci)
function cb_sci2c_gui
//
// --- File to convert ---
//
if get(gcbo,"tag")=="filebtn" then
filename = uigetfile("*.sci", getcwd(), gettext("Select the file to translate"));
if ~isempty(filename) then
set(findobj("tag", "fileedit"), "string", filename);
end
//
// --- Sub-functions directory ---
//
elseif get(gcbo,"tag")=="subfunsbtn" then
directory = uigetdir(getcwd(), gettext("Select your sub-functions directory"));
if ~isempty(directory) then
set(findobj("tag", "subfunsedit"), "string", directory);
end
//
// --- Header file ---
//
elseif get(gcbo,"tag")=="headerbtn" then
filename = uigetfile("*.h", getcwd(), gettext("Select SciLib main header file"));
if ~isempty(filename) then
set(findobj("tag", "headeredit"), "string", filename);
end
//
// --- Output directory ---
//
elseif get(gcbo,"tag")=="outbtn" then
directory = uigetdir(getcwd(), gettext("Select the directory for generated files"));
if ~isempty(directory) then
set(findobj("tag", "outedit"), "string", directory);
end
//
// --- Run mode option ---
//
elseif or(get(gcbo, "tag")==["runradioall","runradiotranslate","runradiogenlib"]) then
set(findobj("tag", "runradioall"), "value", 0);
set(findobj("tag", "runradiotranslate"), "value", 0);
set(findobj("tag", "runradiogenlib"), "value", 0);
set(gcbo, "value", 1);
//
// --- Copy Scilab code into C option ---
//
elseif or(get(gcbo, "tag")==["sciintocradioyes","sciintocradiono"]) then
set(findobj("tag", "sciintocradioyes"), "value", 0);
set(findobj("tag", "sciintocradiono"), "value", 0);
set(gcbo, "value", 1);
//
// --- Paths style option ---
//
elseif or(get(gcbo, "tag")==["pathsradiowin","pathsradiounix","pathsradiocygwin"]) then
set(findobj("tag", "pathsradiowin"), "value", 0);
set(findobj("tag", "pathsradiounix"), "value", 0);
set(findobj("tag", "pathsradiocygwin"), "value", 0);
set(gcbo, "value", 1);
//
// --- Cancel conversion ---
//
elseif get(gcbo, "tag")=="cancelbtn" | get(gcbo, "tag")=="close_menu" then
delete(findobj("tag", "sci2cfig"));
//
// --- Launch conversion ---
//
elseif get(gcbo, "tag")=="convertbtn" then
UserScilabMainFile = get(findobj("tag", "fileedit"), "string");
UserSciFilesPaths = get(findobj("tag", "subfunsedit"), "string");
Sci2CLibMainHeaderFName = get(findobj("tag", "headeredit"), "string");
UserSciCodeMainDir = get(findobj("tag", "outedit"), "string");
if get(findobj("tag", "runradioall"), "value") == 1 then
RunMode = "All";
elseif get(findobj("tag", "runradiotranslate"), "value") == 1 then
RunMode = "Translate";
else
RunMode = "GenLibraryStructure";
end
CopySciCodeIntoCCode = get(findobj("tag", "sciintocradioyes"), "value") == 1;
if get(findobj("tag", "pathsradiowin"), "value") == 1 then
CCompilerPathStyle = "windows";
elseif get(findobj("tag", "pathsradiounix"), "value") == 1 then
CCompilerPathStyle = "unix";
else
CCompilerPathStyle = "cygwin";
end
mprintf("UserScilabMainFile = %s\n", UserScilabMainFile);
mprintf("UserSciFilesPaths = %s\n", UserSciFilesPaths);
mprintf("Sci2CLibMainHeaderFName = %s\n", Sci2CLibMainHeaderFName);
mprintf("UserSciCodeMainDir = %s\n", UserSciCodeMainDir);
mprintf("RunMode = %s\n", RunMode);
mprintf("CopySciCodeIntoCCode = %d\n", bool2s(CopySciCodeIntoCCode));
mprintf("CCompilerPathStyle = %s\n", CCompilerPathStyle);
//
// --- sci2c help ---
//
elseif get(gcbo, "tag")=="sci2c_help_menu" then
help sci2c
//
// --- About SCI2C ---
//
elseif get(gcbo, "tag")=="about_sci2c_menu" then
help(gettext("About_SCI2C_tools"))
end
endfunction
|
