etc/test_toolbox.quit


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

// This file is released under the 3-clause BSD license. See COPYING-BSD.

// Some specific hooks can be specify here when the module is unloaded.

function quitModule()

    etc_tlbx  = get_absolute_file_path("test_toolbox.quit");
    etc_tlbx  = getshortpathname(etc_tlbx);
    root_tlbx = strncpy( etc_tlbx, length(etc_tlbx)-length("\etc\") );

    //unlink libraries
    [bOK, ilib] = c_link('skeleton_cpp');
    if bOK then
        ulink(ilib);
    end

    [bOK, ilib] = c_link('skeleton_c');
    if bOK then
        ulink(ilib);
    end

    [bOK, ilib] = c_link('skeleton_fortran');
    if bOK then
        ulink(ilib);
    end

    // Remove Preferences GUI
    // =============================================================================
    if getscilabmode() == "STD" then
    removeModulePreferences(root_tlbx);
    end

endfunction


quitModule();
clear quitModule;