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

function cleaner_src()
  src_dir = get_absolute_file_path("cleaner_src.sce");

  for language = ["c","cpp","fortran"]
     cleaner_file = src_dir + filesep() + language + filesep() + "cleaner.sce";
     if isfile(cleaner_file) then
       exec(cleaner_file);
       mdelete(cleaner_file);
     end
   end
endfunction

cleaner_src();
clear cleaner_src; // remove cleaner_src on stack
