summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/l3build/l3build-clean.lua
blob: 27ed42be9c87fd6495a1176c87b5edc52c6d3dee (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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
--[[

File l3build-clean.lua Copyright (C) 2018,2020 The LaTeX3 Project

It may be distributed and/or modified under the conditions of the
LaTeX Project Public License (LPPL), either version 1.3c of this
license or (at your option) any later version.  The latest version
of this license is in the file

   http://www.latex-project.org/lppl.txt

This file is part of the "l3build bundle" (The Work in LPPL)
and all files in that bundle must be distributed together.

-----------------------------------------------------------------------

The development version of the bundle can be found at

   https://github.com/latex3/l3build

for those people who are interested.

--]]

-- Remove all generated files
function clean()
  -- To make sure that distribdir never contains any stray subdirs,
  -- it is entirely removed then recreated rather than simply deleting
  -- all of the files
  local errorlevel =
    rmdir(distribdir)    +
    mkdir(distribdir)    +
    cleandir(localdir)   +
    cleandir(testdir)    +
    cleandir(typesetdir) +
    cleandir(unpackdir)

  if errorlevel ~= 0 then return errorlevel end

  local clean_list = { }
  for _,dir in pairs(remove_duplicates({maindir,sourcefiledir,docfiledir})) do
    for _,glob in pairs(cleanfiles) do
      for file,_ in pairs(tree(dir,glob)) do
        clean_list[file] = true
      end
    end
    for _,glob in pairs(sourcefiles) do
      for file,_ in pairs(tree(dir,glob)) do
        clean_list[file] = nil
      end
    end
    for file,_ in pairs(clean_list) do
      errorlevel = rm(dir,file)
      if errorlevel ~= 0 then return errorlevel end
    end
  end

  return 0
end

function bundleclean()
  local errorlevel = call(modules, "clean")
  for _,i in ipairs(cleanfiles) do
    errorlevel = rm(currentdir, i) + errorlevel
  end
  return (
    errorlevel     +
    rmdir(ctandir) +
    rmdir(tdsdir)
  )
end