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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
/*-----------------------------------------------------------------------------------*/
/* INRIA 2005 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/
#include "intgraphics.h"
#include <string.h>
/*-----------------------------------------------------------------------------------*/
#if WIN32
extern char *GetExceptionString(DWORD ExceptionCode);
#endif
/*-----------------------------------------------------------------------------------*/
extern int scichamp _PARAMS((char *fname, unsigned long fname_len));
extern int scicontour _PARAMS((char *fname, unsigned long fname_len));
extern int sciparam3d _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot3d _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot3d1 _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot2d _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot2d1_1 _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot2d1_2 _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot2d1_3 _PARAMS((char *fname, unsigned long fname_len));
extern int sciplot2d1_4 _PARAMS((char *fname, unsigned long fname_len));
extern int scigrayplot _PARAMS((char *fname, unsigned long fname_len));
extern int scidriver _PARAMS((char *fname, unsigned long fname_len));
extern int scixarc _PARAMS((char *fname, unsigned long fname_len));
extern int scixarcs _PARAMS((char *fname, unsigned long fname_len));
extern int scirects _PARAMS((char *fname, unsigned long fname_len));
extern int sciarrows _PARAMS((char *fname, unsigned long fname_len));
extern int scixsegs _PARAMS((char *fname, unsigned long fname_len));
extern int nscixaxis _PARAMS((char *fname, unsigned long fname_len));
extern int scixchange _PARAMS((char *fname, unsigned long fname_len));
extern int scixclea _PARAMS((char *fname, unsigned long fname_len));
extern int scirect _PARAMS((char *fname, unsigned long fname_len));
extern int scixclear _PARAMS((char *fname, unsigned long fname_len));
extern int scixclick _PARAMS((char *fname, unsigned long fname_len));
extern int scixend _PARAMS((char *fname, unsigned long fname_len));
extern int scixfpoly _PARAMS((char *fname, unsigned long fname_len));
extern int scixfpolys _PARAMS((char *fname, unsigned long fname_len));
extern int scixget _PARAMS((char *fname, unsigned long fname_len));
extern int scixinit _PARAMS((char *fname, unsigned long fname_len));
extern int scixlfont _PARAMS((char *fname, unsigned long fname_len));
extern int scixnumb _PARAMS((char *fname, unsigned long fname_len));
extern int scixpause _PARAMS((char *fname, unsigned long fname_len));
extern int scixpoly _PARAMS((char *fname, unsigned long fname_len));
extern int scixpolys _PARAMS((char *fname, unsigned long fname_len));
extern int scixselect _PARAMS((char *fname, unsigned long fname_len));
extern int scixset _PARAMS((char *fname, unsigned long fname_len));
extern int scixstring _PARAMS((char *fname, unsigned long fname_len));
extern int scixstringl _PARAMS((char *fname, unsigned long fname_len));
extern int sciStringBox _PARAMS((char *fname, unsigned long fname_len)) ;
extern int scixtape _PARAMS((char *fname, unsigned long fname_len));
extern int scixsetech _PARAMS((char *fname, unsigned long fname_len));
extern int scixgetech _PARAMS((char *fname, unsigned long fname_len));
extern int scigeom3d _PARAMS((char *fname, unsigned long fname_len));
extern int scifec _PARAMS((char *fname, unsigned long fname_len));
extern int scixgetmouse _PARAMS((char *fname, unsigned long fname_len));
extern int scixinfo _PARAMS((char *fname, unsigned long fname_len));
extern int scixtitle _PARAMS((char *fname, unsigned long fname_len));
extern int scixtitle _PARAMS((char *fname, unsigned long fname_len));
extern int scixgrid _PARAMS((char *fname, unsigned long fname_len));
extern int scixfarcs _PARAMS((char *fname, unsigned long fname_len));
extern int scixsave _PARAMS((char *fname, unsigned long fname_len));
extern int scixload _PARAMS((char *fname, unsigned long fname_len));
extern int scichamp1 _PARAMS((char *fname, unsigned long fname_len));
extern int scidelw _PARAMS((char *fname, unsigned long fname_len));
extern int scicontour2d _PARAMS((char *fname, unsigned long fname_len));
extern int scixg2ps _PARAMS((char *fname, unsigned long fname_len));
extern int scixs2ps _PARAMS((char *fname, unsigned long fname_len));
extern int scixs2fig _PARAMS((char *fname, unsigned long fname_len));
extern int scixsort _PARAMS((char *fname, unsigned long fname_len));
extern int sciwinsid _PARAMS((char *fname, unsigned long fname_len));
extern int sciparam3d1 _PARAMS((char *fname, unsigned long fname_len));
extern int scixstringb _PARAMS((char *fname, unsigned long fname_len));
extern int scimatplot _PARAMS((char *fname, unsigned long fname_len));
extern int scicontour2d1 _PARAMS((char *fname, unsigned long fname_len));
extern int scic2dex _PARAMS((char *fname, unsigned long fname_len));
extern int scigray2plot _PARAMS((char *fname, unsigned long fname_len));
extern int scixgraduate _PARAMS((char *fname, unsigned long fname_len));
extern int scixname _PARAMS((char *fname, unsigned long fname_len));
extern int scixaxis _PARAMS((char *fname, unsigned long fname_len));
extern int sciseteventhandler _PARAMS((char *fname, unsigned long fname_len));
extern int int_gtkhelp _PARAMS((char *fname, unsigned long fname_len));
extern int gset _PARAMS((char *fname, unsigned long fname_len));
extern int gget _PARAMS((char *fname, unsigned long fname_len));
extern int sci_delete _PARAMS((char *fname, unsigned long fname_len));
extern int addcb _PARAMS((char *fname, unsigned long fname_len));
extern int copy _PARAMS((char *fname, unsigned long subwinparenttarget));
extern int move _PARAMS((char *fname, unsigned long fname_len));
extern int glue _PARAMS((char *fname, unsigned long fname_len));
extern int unglue _PARAMS((char *fname, unsigned long fname_len));
extern int drawnow _PARAMS((char *fname, unsigned long fname_len));
extern int drawlater _PARAMS((char *fname, unsigned long fname_len));
extern int draw _PARAMS((char *fname, unsigned long fname_len));
extern int scixs2gif _PARAMS((char *fname,unsigned long fname_len));
extern int scixs2ppm _PARAMS((char *fname,unsigned long fname_len));
extern int ClearScreenConsole _PARAMS((char *fname, unsigned long fname_len));
extern int ShowWindowFunction _PARAMS((char *fname, unsigned long fname_len));
extern int HomeFunction _PARAMS((char *fname, unsigned long fname_len));
extern int scisetposfig _PARAMS((char *fname,unsigned long fname_len));
extern int XSaveNative _PARAMS((char *fname, unsigned long fname_len));
extern int scizoomrect _PARAMS((char *fname, unsigned long fname_len));
extern int sciunzoom _PARAMS((char *fname,unsigned long fname_len));
extern int intxs2bmp _PARAMS((char *fname,unsigned long fname_len));
extern int intxs2emf _PARAMS((char *fname,unsigned long fname_len));
extern int intUImenu _PARAMS((char *fname,unsigned long fname_len));
extern int scinewaxes _PARAMS((char *fname,unsigned long fname_len));
int intshowalluimenushandles _PARAMS((char *fname,unsigned long fname_len));
/*-----------------------------------------------------------------------------------*/
static MatdesTable Tab[]={
{scichamp,"champ"},
{scicontour,"contour"},
{sciparam3d,"param3d"},
{sciplot3d,"plot3d"},
{sciplot3d1,"plot3d1"},
{sciplot2d,"plot2d"},
{sciplot2d1_1,"plot2d1"},
{sciplot2d1_2,"plot2d2"},
{sciplot2d1_3,"plot2d3"},
{sciplot2d1_4,"plot2d4"},
{scigrayplot,"grayplot"},
{scidriver,"driver"},
{scixarc,"xfarc"},
{scixarc,"xarc"},
{scixarcs,"xarcs"},
{scirects,"xrects"},/* NG */
{sciarrows,"xarrows"},
{scixsegs,"xsegs"},
{nscixaxis,"drawaxis"},
{scixchange,"xchange"},
{scixclea,"xclea"},
{scirect,"xrect"},
{scirect,"xfrect"},
{scixclear,"xclear"},
{scixclick,"xclick"},
{scixend,"xend"},
{scixfpoly,"xfpoly"},
{scixfpolys,"xfpolys"},
{scixget,"xget"},
{scixinit,"xinit"},
{scixlfont,"xlfont"},
{scixnumb,"xnumb"},
{scixpause,"xpause"},
{scixpoly,"xpoly"},
{scixpolys,"xpolys"},
{scixselect,"xselect"},
{scixset,"xset"},
{scixstring,"xstring"},
{scixstringl,"xstringl"},
{scixtape,"xtape"},
{scixsetech,"xsetech"},
{scixgetech,"xgetech"},
{scigeom3d,"geom3d"},
{scifec,"scifec"},
{scixgetmouse,"xgetmouse"},
{scixinfo,"xinfo"},
{scixtitle,"xtitle"},
{scixgrid,"xgrid"},
{scixfarcs,"xfarcs"},
{scixsave,"xsave"},
{scixload,"xload"},
{scichamp1,"champ1"},
{scidelw,"xdel"},
{scicontour2d,"contour2d"},
{scixg2ps,"xg2ps"},
{scixs2fig,"xg2fig"},
{scixsort,"gsort"},
{sciwinsid,"winsid"},
{sciparam3d1,"param3d1"},
{scixstringb,"xstringb"},
{scimatplot,"Matplot"},
{scicontour2d1,"contour2di"},
{scic2dex,"c2dex"},
{scigray2plot,"Matplot1"},
{scixgraduate,"xgraduate"},
{scixname,"xname"},
{scixaxis,"xaxis"},
{sciseteventhandler,"seteventhandler"},
{int_gtkhelp,"help_gtk"},
/* NG beg */
{gset,"set"},
{gget,"get"},
{sci_delete,"delete"},
{addcb,"addcb"},
{copy,"copy"},
{move,"move"},
{glue,"glue"},
{unglue,"unglue"},
{drawnow,"drawnow"},
{drawlater,"drawlater"},
{draw,"draw"}, /* NG end */
{scixs2gif,"xs2gif"},
{scixs2ppm,"xs2ppm"},
{scixs2ps,"xs2ps"},
{ClearScreenConsole,"clc"},
{HomeFunction,"tohome"},
{scisetposfig,"set_posfig_dim"},
{ShowWindowFunction,"show_window"},
{XSaveNative,"xsnative"},
{scizoomrect,"zoom_rect"},
{sciunzoom,"unzoom"},
{intxs2bmp,"xs2bmp"},
{intxs2emf,"xs2emf"},
{intUImenu,"UImenu"},
{intshowalluimenushandles,"showalluimenushandles"},
{sciStringBox,"StringBox"},
{scinewaxes,"newaxes"}
};
/*-----------------------------------------------------------------------------------*/
/* interface for the previous function Table */
int C2F(matdes)()
{
Rhs = Max(0, Rhs);
#if WIN32
#ifndef _DEBUG
_try
{
(*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
}
_except (EXCEPTION_EXECUTE_HANDLER)
{
char *ExceptionString=GetExceptionString(GetExceptionCode());
sciprint("Warning !!!\nScilab has found a critical error (%s)\nwith \"%s\" function.\nScilab may become unstable.\n",ExceptionString,Tab[Fin-1].name);
if (ExceptionString) {FREE(ExceptionString);ExceptionString=NULL;}
}
#else
(*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
#endif
#else
(*(Tab[Fin-1].f)) (Tab[Fin-1].name,strlen(Tab[Fin-1].name));
#endif
C2F(putlhsvar)();
return 0;
}
/*-----------------------------------------------------------------------------------*/
|
