cowgol/mkninja.lua at master · shattered/cowgol · GitHub

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
local function env(var, default)
	return os.getenv(var) or default
end

print("OBJ = "..env("OBJ", ".obj"))
print("LUA = "..env("LUA", "lua5.1"))
print("CC = "..env("CC", "cc"))
print("CPP = "..env("CC", "cpp"))
print("CFLAGS = "..env("CFLAGS", ""))
print("LDFLAGS = "..env("LDFLAGS", ""))
print("rule build");
print("  command = $command");
print("")

function include(filename)
	io.stderr:write("loading ", filename, "\n")
	local fp, e = io.open(filename)
	if not e then
		local data
		data, e = fp:read("*a")
		fp:close();
		if not e then
			local chunk
			chunk, e = loadstring(data, "@"..filename)
			if not e then
				chunk()
			end
		end
	end
	if e then
		error(string.format("coudn't load %s: %s", filename, e))
	end
end

function string:obj()
	if not self:find("^%$") then
		return "$OBJ/"..self
	end
	return self
end

function string:ext(newext)
	return self:gsub("%.[^.]*$", newext)
end

function concat(...)
	local result = {}

	local function recurse(t)
		for _, i in ipairs(t) do
			if type(i) == "table" then
				recurse(i)
			else
				result[#result+1] = i
			end
		end
	end
	recurse({...})
	return result
end

function joined(t)
	local m = {}
	for _, i in ipairs(t) do
		m[i] = true
	end
	t = {}
	for i in pairs(m) do
		t[#t+1] = i
	end
	return table.concat(t, " ")
end

function set(t)
	local s = {}
	for _, k in ipairs(t) do
		s[k] = true
	end
	return s
end

function rule(e)
	print(string.format("build %s: build %s",
		table.concat(e.outs, " "),
		table.concat(e.ins, " ")))
	local cmd = e.cmd
		:gsub("@(%d+)", function (n) return e.ins[tonumber(n)] end)
		:gsub("@@", table.concat(e.ins, " "))
		:gsub("&(%d+)", function (n) return e.outs[tonumber(n)] end)

	print("  command = "..cmd)
	print("")
end

include "build/c.lua"
include "build/yacc.lua"
include "build/gpp.lua"
include "build/tass64.lua"
include "tools/build.lua"
include "third_party/zmac/build.lua"
include "tools/cpmemu/build.lua"
include "tools/tubeemu/build.lua"
include "third_party/lemon/build.lua"
include "tools/newgen/build.lua"
include "src/build.lua"
include "bootstrap/build.lua"
include "toolchains.lua"
include "src/cowlink/build.lua"
include "src/cowcom/build.lua"
include "src/cowwrap/build.lua"
include "rt/cpm/build.lua"
include "rt/cpmz/build.lua"
include "rt/cgen/build.lua"
include "rt/lx386/build.lua"
include "rt/bbct/build.lua"
include "tests/build.lua"