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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#!/usr/bin/gawk -f
# This program generates pc/Makefile.tst
# Skip the first part of Makefile.in
/Get rid of core files/ { process = 1 }
! process { next }
# Skip stuff that PC doesn't need
/^CMP =/, /^\.PRECIOUS/ { next }
# Process the bits in Makefile.in we need to generate the tests properly
# Tests that fail on MinGW
/^EXPECTED_FAIL_MINGW *=/,/[^\\]$/ {
print
gsub(/(^EXPECTED_FAIL_MINGW *=|\\$)/,"")
for (i = 1; i <= NF; i++)
mingw[$i]
next
}
# Tests that need a different cmp program
/^NEED_TESTOUTCMP *=/,/[^\\]$/ {
print
gsub(/(^NEED_TESTOUTCMP *=|\\$)/,"")
for (i = 1; i <= NF; i++)
testoutcmp[$i]
next
}
# Start of a target
! in_recipe && /^[[:alpha:]_][-[:alnum:]_]*:/ {
in_recipe = 1
start_new_recipe()
next
}
# Empty targets, one after the other
in_recipe && /^[[:alpha:]_][-[:alnum:]_]*:/ {
print_recipe()
start_new_recipe()
next
}
# Collect recipe lines
in_recipe && /^\t/ {
recipe_lines[++line] = substitutions(name, $0)
next
}
# End of collected recipe, print it out
in_recipe && /(^[^\t])|(^$)/ {
in_recipe = 0
print_recipe()
print
next
}
# Default is to print input lines
process { print }
# substitutions --- replace *nix values with what's needed on Windows
function substitutions(test, string)
{
# locales
gsub(/en_US.UTF-8/, "ENU_USA.1252", string)
gsub(/fr_FR.UTF-8/, "FRA_FRA.1252", string)
gsub(/ja_JP.UTF-8/, "JPN_JPN.932", string)
gsub(/el_GR.iso88597/, "ell_GRC.1253", string)
gsub(/ru_RU.UTF-8/, "RUS_RUS.1251", string)
# command for `ls'
gsub(/@ls/, "@$(LS)", string)
# MSYS needs "/" to be doubled
gsub(/-F\//, "-F$(SLASH)", string)
gsub(/=@\//, "=@$(SLASH)", string)
if (string ~ /\$\(CMP\)/ && test in testoutcmp) {
gsub(/\$\(CMP\)/, "$(TESTOUTCMP)", string)
delete testoutcmp[test]
}
return string
}
# print_recipe --- print out the recipe
function print_recipe( i, start)
{
print recipe_lines[1] # target:
if (line == 1)
return
# First line if it's @echo $@
if (recipe_lines[2] ~ /\t@echo [$]@/) {
start = 3
print recipe_lines[2]
} else
start = 2
# print the right warning
if (name in mingw) {
print "\t@echo Expect $@ to fail with MinGW."
}
# find first line from the end that starts with @
# make sure it starts with @-
for (i = line; i >= start; i--) {
if (recipe_lines[i] !~ /^\t@/)
continue
if (recipe_lines[i] ~ /^\t@-/)
break
else if (recipe_lines[i] ~ /^\t@/) {
recipe_lines[i] = "\t@-" substr(recipe_lines[i], 3)
break
}
}
# Print all the lines but the last
for (i = start; i <= line; i++)
print recipe_lines[i]
}
# start_new_recipe --- start collecting data from scratch
function start_new_recipe()
{
# get the name of the target
# use match(), not gensub(), so that this script is fully portable
match($0, /^[[:alpha:]_][-[:alnum:]_]*:/)
name = substr($0, RSTART, RLENGTH - 1) # leave out the colon
delete recipe_lines
line = 0
recipe_lines[++line] = $0
}
|
