diff options
| -rw-r--r-- | cleaner.sce | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/cleaner.sce b/cleaner.sce deleted file mode 100644 index 5947950..0000000 --- a/cleaner.sce +++ /dev/null @@ -1,75 +0,0 @@ -// 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 isdir(root_tlbx + "/inline/") then - rmdir(root_tlbx + "/inline/", "s"); - 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 - - if isdir(root_tlbx + "/help/en_US") then - xmlfiles = findfiles(root_tlbx + "/help/en_US/", "*.xml"); - if ~isempty(xmlfiles) then - deletefile(root_tlbx + "/help/en_US/" + xmlfiles); - end - 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; |