summaryrefslogtreecommitdiffstats
path: root/scilab
diff options
context:
space:
mode:
authorSylvestre Ledru <sylvestre.ledru@scilab.org>2010-11-15 19:29:31 +0100
committerAllan CORNET <allan.cornet@scilab.org>2010-11-17 09:06:45 +0100
commit27e52fea3fe4112bc214b4321e7becce6d2a076f (patch)
treefd39a0ffc825e0ebdccfb6f61df87497c522cb32 /scilab
parent25478d9afdf32c7e9615fea4b48da18191045a6b (diff)
downloadscilab-27e52fea3fe4112bc214b4321e7becce6d2a076f.zip
scilab-27e52fea3fe4112bc214b4321e7becce6d2a076f.tar.gz
English comment
Change-Id: I1a632742cf39c023fe30396f40134dda7da8d256
Diffstat (limited to 'scilab')
-rw-r--r--scilab/modules/core/sci_gateway/c/sci_getmodules.c36
1 files changed, 19 insertions, 17 deletions
diff --git a/scilab/modules/core/sci_gateway/c/sci_getmodules.c b/scilab/modules/core/sci_gateway/c/sci_getmodules.c
index 4bfaa3f..c33e4dd 100644
--- a/scilab/modules/core/sci_gateway/c/sci_getmodules.c
+++ b/scilab/modules/core/sci_gateway/c/sci_getmodules.c
@@ -18,28 +18,30 @@
18/*--------------------------------------------------------------------------*/ 18/*--------------------------------------------------------------------------*/
19int C2F(sci_getmodules) (char *fname,unsigned long fname_len) 19int C2F(sci_getmodules) (char *fname,unsigned long fname_len)
20{ 20{
21 struct MODULESLIST *Modules=NULL; 21 struct MODULESLIST *Modules=NULL;
22 22
23 int ncol=0; 23 int ncol=0;
24 int nrow=0; 24 int nrow=0;
25 25
26 Modules=getmodules(); 26 Modules=getmodules();
27 if (!Modules) 27 if (!Modules)
28 { 28 {
29 Scierror(999,_("Warning: Problems with %s.\n"),fname); 29 Scierror(999,_("Warning: Problems with %s.\n"),fname);
30 return 0; 30 return 0;
31 } 31 }
32 32
33 ncol=1; 33 ncol=1;
34 nrow=Modules->numberofModules; 34 nrow=Modules->numberofModules;
35 35
36 CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol, Modules->ModuleList); 36 CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &nrow, &ncol, Modules->ModuleList);
37 LhsVar(1)=Rhs+1; 37 LhsVar(1)=Rhs+1;
38 C2F(putlhsvar)(); 38 C2F(putlhsvar)();
39 39
40 /* je ne libere pas Modules pour accelerer le prochain appel ŕ getmodule */ 40 /* I do not free Modules on purpose in order to speed the next call
41 /* liberé dans sciquit.c */ 41 * to call to getmodule.
42 * This is free in sciquit.c
43 */
42 44
43 return 0; 45 return 0;
44} 46}
45/*--------------------------------------------------------------------------*/ 47/*--------------------------------------------------------------------------*/