blob: 845fc5e122e3653e4626bdb95b017611c760f3ba (
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
|
#!/bin/bash
# Copyright 2011-2023 Gentoo Authors
# Distributed under the terms of the GNU General Public License v2 or later
# Authors:
# Christian Faulhammer <fauli@gentoo.org>
# Ulrich Müller <ulm@gentoo.org>
#
# Generate a raw list for app-emacs/ebuild-mode
REPO=gentoo
# Obsolete eclasses
OBSOLETE=""
TMPFILE="$(mktemp ${TMPDIR:-/tmp}/keyword-generation.XXXXXX)"
if [[ -n ${ECLASSDIR} ]]; then
echo "ECLASSDIR = ${ECLASSDIR}" >&2
ECLASSES=( "${ECLASSDIR}"/*.eclass )
# We need to strip to the basename, for correct sort order
ECLASSES=( "${ECLASSES[@]#"${ECLASSDIR}/"}" )
ECLASSES=( $(printf "%s\n" "${ECLASSES[@]%.eclass}" | LC_ALL=C sort) )
ECLASSFILES=( "${ECLASSES[@]/%/.eclass}" )
ECLASSFILES=( "${ECLASSFILES[@]/#/"${ECLASSDIR}/"}" )
else
echo "No ECLASSDIR specified - using portageq eclass_path" >&2
ECLASSES=( $(portageq available_eclasses / ${REPO} | LC_ALL=C sort) )
ECLASSFILES=( $(portageq eclass_path / ${REPO} "${ECLASSES[@]}") )
fi
# Arrays should have equal size
[[ ${#ECLASSES[@]} -eq ${#ECLASSFILES[@]} ]] || exit 1
has() {
local needle=$1 item
shift
for item in "$@"; do
[[ ${item} = ${needle} ]] && return 0
done
return 1
}
echo "(defvar ebuild-mode-keywords-eclass" >"${TMPFILE}"
echo "'((" >>"${TMPFILE}"
for (( i = 0; i < ${#ECLASSES[@]}; i++ )); do
eclass=${ECLASSES[i]}
file=${ECLASSFILES[i]}
echo -n " ${eclass} ... " >&2
grep -q "^# @DEAD$" "${file}" && { echo "skip (dead)" >&2; continue; }
has ${eclass} ${OBSOLETE} && { echo "skip (obsolete)" >&2; continue; }
# Get list of functions defined in eclass
fn_all=$(env -i bash -c ". ${file}; declare -F" 2>/dev/null \
| sed 's/.*[[:space:]]//')
# Parse eclass documentation for internal functions
fn_internal=$(sed -n '/^# @FUNCTION:/{h;:x;n;/^# @INTERNAL/{g;
s/^# @[^:]*:[[:space:]]*//;p};/^# @/bx}' "${file}")
functions=(
$(echo "${fn_all}" | grep -v '^_' | grep -Fvx "${fn_internal}")
)
if [[ ${#functions[@]} -eq 0 ]]; then
echo "warning (no functions)" >&2
continue
fi
{
echo ";; ${eclass}"
printf ' "%s"' "${functions[@]}"
echo
} >>"${TMPFILE}"
echo "ok" >&2
done
echo ")" >>"${TMPFILE}"
echo "font-lock-type-face))" >>"${TMPFILE}"
emacs -q --no-site-file --batch \
--visit "${TMPFILE}" \
--eval "(emacs-lisp-mode)" \
--eval "(indent-region (point-min) (point-max))" \
--eval "(let ((fill-column 78)
(fill-indent-according-to-mode t)
(paragraph-start \"^.\"))
(fill-region (point-min) (point-max)))" \
--eval "(save-buffer)" --kill || exit 1
sed -i -e "/@@KEYWORDS-BEGIN@@/,/@@KEYWORDS-END@@/{//!d}
/@@KEYWORDS-BEGIN@@/r${TMPFILE}" ebuild-mode-keywords.el || exit 1
rm -f "${TMPFILE}"
exit
|
GitWeb