/usr/share/apt-move/getdist.awk is in apt-move 4.2.27-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # getdist --- Get Debian component name from a section string.
#
# Copyright (c) 2002 Herbert Xu <herbert@debian.org>
# $Id: getdist.awk,v 1.4 2003/03/25 09:02:13 herbert Exp $
function getdist(section, dist, a) {
if (section in _getdist) {
return _getdist[section]
}
dist = section
ldist = tolower(dist)
if (match(ldist, /^non-us\/[^\/]*/)) {
dist = "non-US" substr(dist, 7, RLENGTH - 6)
} else if (ldist == "non-us") {
dist = "non-US/main"
} else if (match(dist, /^[^\/]*\//)) {
dist = substr(dist, 1, RLENGTH - 1)
} else {
dist = "main"
}
return _getdist[section] = dist
}
|