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
|
function m2sci_info(txt,verb_mode)
// Copyright INRIA
// 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),"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
write(%io(2),margin+txt); // margin is defined in mfile2sci()
end
endfunction
|
