blob: 71526cd6030724a8174502d67499969ba91ba7dc (
plain)
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
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Serge STEER <serge.steer@scilab.org>
// Copyright (C) 2008 - DIGITEO - Pierre MARECHAL <pierre.marechal@scilab.org>
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
//build the list of loaded libs
%libs=[];
for %name=who('local')'
if %name<>'ans' then
execstr('%typ=type('+%name+')');
if %typ==14 then
if and(%name<>['parameterslib','simulated_annealinglib','genetic_algorithmslib','scilab2fortranlib']) then
%libs=[%libs %name];
end
end
end
end
for Lib=%libs
execstr('funs=string('+Lib+')''');
funs(1)=[];
funcprot(0);
for fun=funs
if execstr('f='+fun','errcatch')==0 then
if type(f)==13 then
if execstr("add_profiling(fun)" ,"errcatch" ) <> 0 then bugmes();quit;end
if execstr("remove_profiling(fun)" ,"errcatch" ) <> 0 then bugmes();quit;end
if execstr("c=bytecode(f)" ,"errcatch" ) <> 0 then bugmes();quit;end
if execstr("c1=bytecode("+fun+")" ,"errcatch" ) <> 0 then bugmes();quit;end
if c<>c1 then bugmes();quit;end
end
end
end
end
|
