summaryrefslogtreecommitdiff
path: root/bin/get-assignment
blob: d426988afb862414ea9a520b3753356d307892b5 (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
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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
#!/bin/sh

# receive one package to be built from the build-list whose dependencies
# are already satisfied or which breaks a dependency cycle

# exit code shows state of success:
#  0: ok, I gave you an assignment
#  1: come back (shortly) later - I was running already
#  2: come back later - there are still packages to be built,
#     but currently none has all its dependencies ready
#  3: come back after the next run of get-package-updates - currently
#     there are no pending packages
#  4: come back, when you've done your work - you hit the limit on
#     maximum allowed parallel jobs per ip

# TODO:

#  respect build-manually-list ("blocked")

. "${0%/*}/../conf/default.conf"

mkdir -p "${work_dir}/package-states"

hand_out_assignment() {

  # locked and blocked packages won't be handed out
  if package_locked_or_blocked "$1" "$2" "$3" "$4"; then
    return 0
  fi

  # we don't care anymore if an older version of this package was
  # "locked" or "broken" (we keep only marker for older "done" packages)
  ls "${work_dir}/package-states" | \
    grep "^$(str_to_regex "${1}")\(\.[^.]\+\)\{3\}\.\(locked\|broken\)\$" | \
    grep -v "^$(str_to_regex "$1.$2.$3.$4.")[^.]\+\$" | \
    sed "s|^|${work_dir}/package-states/|" | \
    xargs -rn1 rm -f

  echo "$1 $2 $3 $4"
  echo "${slave}" > "${work_dir}/package-states/$1.$2.$3.$4.locked"

  # lock every loop this package breaks
  grep -lxF "${1}" "${work_dir}/build-list.loops/"loop_* | \
    tee -a "${work_dir}/package-states/$1.$2.$3.$4.locked" | \
    sed 's|$|.locked|' | \
    xargs -rn1 touch

  exit 0

}

if ! "${base_dir}/bin/sanity-check" -r; then
  >&2 echo 'Build master is not sane.'
  exit 1
fi

# Create a lock file and a trap.

exec 9> "${build_list_lock_file}"
if ! flock -n 9; then
  >&2 echo 'come back (shortly) later - I cannot lock build list.'
  exit 1
fi

clean_up() {
  rm -f "${build_list_lock_file}"
}

trap clean_up EXIT

# Check if there are any pending packages at all and if the requester
# has already hit its max_parallel_build_per_client limit.

num_jobs=0
pending_packages=false

while read -r package git_revision mod_git_revision repository; do

  if [ -z "${git_revision}${mod_git_revision}${repository}" ] && \
    [ "${package}" = 'break_loops' ]; then
    continue
  fi

  generate_package_metadata $package.$git_revision.$mod_git_revision.$repository

  if [ -f "${work_dir}/package-states/${package}.${git_revision}.${mod_git_revision}.${repository}.blocked" ]; then
    continue
  fi

  if [ -f "${work_dir}/package-states/${package}.${git_revision}.${mod_git_revision}.${repository}.locked" ];
  then
    if [ "${slave}" = "$(head -n1 "${work_dir}/package-states/${package}.${git_revision}.${mod_git_revision}.${repository}.locked")" ]; then
      num_jobs=$((${num_jobs}+1));
    fi
  else
    pending_packages=true
  fi

done < "${work_dir}/build-list"

if ! ${pending_packages}; then
  >&2 echo 'come back after the next run of get-package-updates - currently there are no pending packages'
  exit 3
fi

if [ ${num_jobs} -ge ${max_parallel_build_per_client} ]; then
  >&2 echo "come back, when you've done your work - you hit the limit on maximum allowed parallel jobs per ip"
  exit 4
fi

# Find first package of build-list whose dependencies are all met

for hand_out_broken in false true; do

  while read -r package git_revision mod_git_revision repository; do

    if [ -z "${git_revision}${mod_git_revision}${repository}" ] && \
      [ "${package}" = 'break_loops' ]; then
      if ${hand_out_broken}; then
        first=true
        while read -r s; do
          if [ "${s}" = 'break_loops' ] && \
            ${first}; then
            first=false
            continue
          fi
          printf '%s\n' "${s}"
        done < \
          "${work_dir}/build-list" | \
          sponge "${work_dir}/build-list"
        insert_break_loops_orders "${work_dir}/build-list"
        break
      else
        continue
      fi
    fi

    if package_locked_or_blocked "${package}" "${git_revision}" "${mod_git_revision}" "${repository}"; then
      continue
    fi

    if ! ${hand_out_broken} && \
      [ -f "${work_dir}/package-states/${package}.${git_revision}.${mod_git_revision}.${repository}.broken" ]; then
      continue
    fi

    [ -z "$(
      (
        cat "${work_dir}/package-infos/${package}.${git_revision}.${mod_git_revision}.${repository}.needs"
        grep -vxF 'break_loops' "${work_dir}/build-list" | \
          awk '{print $1 "." $2 "." $3 "." $4}' | \
          sed "
            s|^|${work_dir}/package-infos/|
            s|\$|\.builds|
          " | \
          xargs -r cat | \
          sort -u
      ) | \
        sort | \
        uniq -d
      )" ] || continue

    hand_out_assignment "${package}" "${git_revision}" "${mod_git_revision}" "${repository}"

  done < "${work_dir}/build-list"

done

# Find package (of all packages which are not locked and have been broken the least times)
# which breaks the most unlocked loops

locked_packages="$(
  ls "${work_dir}/package-states/" | \
    grep '\(\.[0-9a-f]\{40\}\)\{2\}\.[^\.\]\+\.locked$' | \
    sed 's|\(\.[0-9a-f]\{40\}\)\{2\}\.[^\.\]\+\.locked$||'
)"

grep -vxF 'break_loops' "${work_dir}/build-list" | \
  sort -k1,1 > \
  "${work_dir}/build-list.sorted-by-package"

for package in $(
  ls "${work_dir}/build-list.loops/" | \
    grep '^loop_[0-9]\+$' | \
    while read -r loop; do
      if [ -z "$(
        (
          cat "${work_dir}/build-list.loops/${loop}"
          echo "${locked_packages}"
        ) | \
          sort | \
          uniq -d
        )" ]; then
        cat "${work_dir}/build-list.loops/${loop}"
      fi
    done | \
    sort | \
    uniq -c | \
    join -1 2 -2 1 -o 1.1,2.1,2.2,2.3,2.4 \
      - \
      "${work_dir}/build-list.sorted-by-package" | \
    while read -r count package git_revision git_mod_revision repository; do
      if [ -f "${work_dir}/package-states/${package}.${git_revision}.${git_mod_revision}.${repository}.broken" ]; then
        trials="$(
          wc -l < \
            "${work_dir}/package-states/${package}.${git_revision}.${git_mod_revision}.${repository}.broken"
        )"
      else
        trials='0'
      fi
      printf '%s %s %s.%s.%s.%s\n' \
        "${trials}" \
        "${count}" \
        "${package}" \
        "${git_revision}" \
        "${git_mod_revision}" \
        "${repository}"
    done | \
    sort -k1n,1 -k2nr,2 | \
    cut -d' ' -f3
); do
  hand_out_assignment $(
    echo "${package}" | \
      sed 's|\.\([^.]\+\)\.\([^.]\+\)\.\([^.]\+\)$| \1 \2 \3|'
  )
done

# Remove the lock file

>&2 echo 'come back later - there are still packages to be built, but currently none has all its dependencies ready'
exit 2