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
117
118
|
#!/usr/bin/gawk -f
#
# Copyright (C) 2019 by Michael Olbrich <m.olbrich@pengutronix.de>
#
# For further information about the PTXdist project and license conditions
# see the README file.
#
BEGIN {
PTXDIST_TEMPDIR = ENVIRON["PTXDIST_TEMPDIR"];
dirs = ""
}
$1 == "PATCHES:" {
pkg = $2
patch_dir = $3
pkgs[patch_dir] = pkgs[patch_dir] " " pkg
dirs = dirs " " patch_dir
}
$1 == "CONFIG:" {
pkg = $2
config = $3
configs[pkg] = configs[pkg] " " config
}
$1 == "RULES:" {
pkg = $2
rule = $3
rules[pkg] = rules[pkg] " " rule
}
$1 == "DEPS:" {
pkg = $2
$1 = $2 = ""
deps[pkg] = $0
}
function read_file(src, data, pkg, tmp) {
if (!src)
return
old_RS = RS
RS = "^$"
getline tmp < src
RS = old_RS
close(src)
data[pkg] = data[pkg] tmp "\n"
}
END {
for (pkg in rules) {
f1 = PTXDIST_TEMPDIR "/pkghash-" pkg
f2 = PTXDIST_TEMPDIR "/pkghash-" pkg "_EXTRACT"
old_RS = RS
RS = "^$"
getline tmp < f1
data[pkg] = tmp
getline tmp < f2
extract_data[pkg] = tmp
RS = old_RS
close(f1)
close(f2)
}
for (pkg in rules) {
n = split(rules[pkg], cfgs)
for (rule = 1; rule <= n; rule++)
read_file(cfgs[rule], data, pkg)
}
for (pkg in configs) {
config = configs[pkg]
n = split(configs[pkg], cfgs)
for (config = 1; config <= n; config++)
read_file(cfgs[config], data, pkg)
}
if (dirs == "")
exit;
n = split(dirs, dir_array, " ");
asort(dir_array);
dirs = ""
last = ""
for (i = 1; i <= n; i++) {
if (dir_array[i] != last)
dirs = dirs " " dir_array[i]
last = dir_array[i]
}
command = "find -L " dirs " -type f ! -name '.*' -printf '%H %P\\n'"
while (command | getline)
files[$1] = files[$1] " " $2
close(command)
for (dir in pkgs) {
split(pkgs[dir], list, " ")
n = split(files[dir], file_list, " ")
asort(file_list)
for (j in list) {
pkg = list[j]
for (i = 1; i <= n; i++) {
file = dir "/" file_list[i]
read_file(file, extract_data, pkg)
}
}
}
for (pkg in rules) {
f1 = PTXDIST_TEMPDIR "/pkghash-" pkg
f2 = PTXDIST_TEMPDIR "/pkghash-" pkg "_EXTRACT"
print data[pkg] extract_data[pkg] > f1
print extract_data[pkg] > f2
m = split(deps[pkg], list, " ");
for (j in list) {
dep = list[j]
if (match(dep, /^HOST_SYSTEM_/))
continue
print data[dep] extract_data[dep] >> f1
}
close(f1)
close(f2)
}
}
|