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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ???? - INRIA - Scilab
//
// 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
function m2sci_info(txt,verb_mode)
// verb_mode=0: no information displayed
// verb_mode=1: information written as comment is resulting SCI-file
// verb_mode=2: information written as comment is resulting SCI-file and in logfile
// verb_mode=3: information written as comment is resulting SCI-file, in logfile and displayed in Scilab window
// verb_mode=-1: information written in logfile and displayed in Scilab window (should not be used by user) (TEST MODE)
// verb_mode=-2: information written in logfile and displayed in Scilab window (should not be used by user) and varslist displayed in Scilab command window (DEBUG MODE)
if verb_mode==0 then
return
end
if verb_mode>0 then
if exists("m2sci_to_insert_b")==0 then
write(%io(2),gettext("loginfos: verb_mode 0 should not be used in this context, information ignored."));
return
end
global("m2sci_to_insert_b")
for k=1:size(txt,"*")
m2sci_to_insert_b($+1)=Equal(..
list(Variable("ans",Infer())),..
Funcall("%comment",1,list(Cste(" "+txt(k))),list(Variable("",Infer()))))
m2sci_to_insert_b($+1)=list("EOL");
end
end
if verb_mode>1 | verb_mode==-1 then
write(logfile,margin+txt); // margin is defined in mfile2sci()
end
if verb_mode>2 | verb_mode==-1 then
mprintf("%s\n",strsubst(strsubst(margin+txt, "%i", "%%i"),"%n","%%n")); // margin is defined in mfile2sci()
end
endfunction
|
