diff options
Diffstat (limited to 'cleaner.sce')
| -rw-r--r-- | cleaner.sce | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/cleaner.sce b/cleaner.sce new file mode 100644 index 0000000..aab2d3e --- /dev/null +++ b/cleaner.sce @@ -0,0 +1,64 @@ +// This file is released under the 3-clause BSD license. See COPYING-BSD. +// Generated by builder.sce: Please, do not edit this file + +oldmode = mode(); +oldlines = lines()(2); +lines(0); + +function perform_clean() + root_tlbx = get_absolute_file_path('cleaner.sce'); + + if isfile(root_tlbx + '/macros/cleanmacros.sce') then + exec(root_tlbx+'/macros/cleanmacros.sce'); + else + if isdir(root_tlbx + "/macros/") then + deletefile(root_tlbx + "/macros/lib"); + binfiles = findfiles(root_tlbx + "/macros/", "*.bin"); + if ~isempty(binfiles) then + deletefile(root_tlbx + "/macros/" + binfiles); + end + end + end + + if isfile(root_tlbx + "/src/cleaner_src.sce") then + exec(root_tlbx + "/src/cleaner_src.sce"); + mdelete(root_tlbx + "/src/cleaner_src.sce"); + end + + if isfile(root_tlbx + "/sci_gateway/cleaner_gateway.sce") then + exec(root_tlbx + "/sci_gateway/cleaner_gateway.sce"); + mdelete(root_tlbx + "/sci_gateway/cleaner_gateway.sce"); + end + + if isfile(root_tlbx + "/help/cleaner_help.sce") then + exec(root_tlbx + "/help/cleaner_help.sce"); + else + if isdir(root_tlbx + "/jar/") then + rmdir(root_tlbx + "/jar/", "s"); + end + end + + if isfile(root_tlbx + "/loader.sce") then + mdelete(root_tlbx + "/loader.sce"); + end + + if isfile(root_tlbx + "/unloader.sce") then + mdelete(root_tlbx + "/unloader.sce"); + end +endfunction + +try + perform_clean(); +catch + [errmsg, tmp, nline, func] = lasterror(); + msg = "%s: error on line #%d: ""%s""\n"; + msg = msprintf(msg, func, nline, errmsg); + lines(oldlines); + mode(oldmode); + clear perform_clean oldlines oldmode tmp nline func errmsg; + error(msg); +end + +lines(oldlines) +mode(oldmode); +clear perform_clean oldlines oldmode; |