1#!/bin/bash
2# SPDX-License-Identifier: GPL-2.0-only
3# Generate tags or cscope files
4# Usage tags.sh <mode>
5#
6# mode may be any of: tags, gtags, TAGS, cscope
7#
8# Uses the following environment variables:
9# SUBARCH, SRCARCH, srctree
10
11if [[ "$KBUILD_VERBOSE" =~ 1 ]]; then
12	set -x
13fi
14
15# RCS_FIND_IGNORE has escaped ()s -- remove them.
16ignore="$(echo "$RCS_FIND_IGNORE" | sed 's|\\||g' )"
17# tags and cscope files should also ignore MODVERSION *.mod.c files
18ignore="$ignore ( -name *.mod.c ) -prune -o"
19
20# ignore arbitrary directories
21if [ -n "${IGNORE_DIRS}" ]; then
22	for i in ${IGNORE_DIRS}; do
23		ignore="${ignore} ( -path $i ) -prune -o"
24	done
25fi
26
27# Use make KBUILD_ABS_SRCTREE=1 {tags|cscope}
28# to force full paths for a non-O= build
29if [ "${srctree}" = "." -o -z "${srctree}" ]; then
30	tree=
31else
32	tree=${srctree}/
33fi
34
35# gtags(1) refuses to index any file outside of its current working dir.
36# If gtags indexing is requested and the build output directory is not
37# the kernel source tree, index all files in absolute-path form.
38if [[ "$1" == "gtags" && -n "${tree}" ]]; then
39	tree=$(realpath "$tree")/
40fi
41
42# Detect if ALLSOURCE_ARCHS is set. If not, we assume SRCARCH
43if [ "${ALLSOURCE_ARCHS}" = "" ]; then
44	ALLSOURCE_ARCHS=${SRCARCH}
45elif [ "${ALLSOURCE_ARCHS}" = "all" ]; then
46	ALLSOURCE_ARCHS=$(find ${tree}arch/ -mindepth 1 -maxdepth 1 -type d -printf '%f ')
47fi
48
49# find sources in arch/$1
50find_arch_sources()
51{
52	for i in $archincludedir; do
53		local prune="$prune ( -path $i ) -prune -o"
54	done
55	find ${tree}arch/$1 $ignore $prune -name "$2" -not -type l -print;
56}
57
58# find sources in arch/$1/include
59find_arch_include_sources()
60{
61	local include=$(find ${tree}arch/$1/ -name include -type d -print);
62	if [ -n "$include" ]; then
63		archincludedir="$archincludedir $include"
64		find $include $ignore -name "$2" -not -type l -print;
65	fi
66}
67
68# find sources in include/
69find_include_sources()
70{
71	find ${tree}include $ignore -name config -prune -o -name "$1" \
72		-not -type l -print;
73}
74
75# find sources in rest of tree
76# we could benefit from a list of dirs to search in here
77find_other_sources()
78{
79	find ${tree}* $ignore \
80	     \( -path ${tree}include -o -path ${tree}arch -o -name '.tmp_*' \) -prune -o \
81	       -name "$1" -not -type l -print;
82}
83
84all_sources()
85{
86	find_arch_include_sources ${SRCARCH} '*.[chS]'
87	if [ -n "$archinclude" ]; then
88		find_arch_include_sources $archinclude '*.[chS]'
89	fi
90	find_include_sources '*.[chS]'
91	for arch in $ALLSOURCE_ARCHS
92	do
93		find_arch_sources $arch '*.[chS]'
94	done
95	find_other_sources '*.[chS]'
96}
97
98all_compiled_sources()
99{
100	{
101		echo include/generated/autoconf.h
102		find $ignore -name "*.cmd" -exec \
103			grep -Poh '(?<=^  )\S+|(?<== )\S+[^\\](?=$)' {} \+ |
104		awk '!a[$0]++'
105	} | xargs realpath -esq $([ -z "$KBUILD_ABS_SRCTREE" ] && echo --relative-to=.) |
106	sort -u
107}
108
109all_target_sources()
110{
111	if [ -n "$COMPILED_SOURCE" ]; then
112		all_compiled_sources
113	else
114		all_sources
115	fi
116}
117
118all_kconfigs()
119{
120	find ${tree}arch/ -maxdepth 1 $ignore \
121	       -name "Kconfig*" -not -type l -print;
122	for arch in $ALLSOURCE_ARCHS; do
123		find_arch_sources $arch 'Kconfig*'
124	done
125	find_other_sources 'Kconfig*'
126}
127
128docscope()
129{
130	(echo \-k; echo \-q; all_target_sources) > cscope.files
131	cscope -b -f cscope.out
132}
133
134dogtags()
135{
136	all_target_sources | gtags -i -C "${tree:-.}" -f - "$PWD"
137}
138
139# Basic regular expressions with an optional /kind-spec/ for ctags and
140# the following limitations:
141# - No regex modifiers
142# - Use \{0,1\} instead of \?, because etags expects an unescaped ?
143# - \s is not working with etags, use a space or [ \t]
144# - \w works, but does not match underscores in etags
145# - etags regular expressions have to match at the start of a line;
146#   a ^[^#] is prepended by setup_regex unless an anchor is already present
147regex_asm=(
148	'/^\(ENTRY\|_GLOBAL\)([[:space:]]*\([[:alnum:]_\\]*\)).*/\2/'
149)
150regex_c=(
151	'/^SYSCALL_DEFINE[0-9]([[:space:]]*\([[:alnum:]_]*\).*/sys_\1/'
152	'/^BPF_CALL_[0-9]([[:space:]]*\([[:alnum:]_]*\).*/\1/'
153	'/^COMPAT_SYSCALL_DEFINE[0-9]([[:space:]]*\([[:alnum:]_]*\).*/compat_sys_\1/'
154	'/^TRACE_EVENT([[:space:]]*\([[:alnum:]_]*\).*/trace_\1/'
155	'/^DEFINE_EVENT([^,)]*,[[:space:]]*\([[:alnum:]_]*\).*/trace_\1/'
156	'/^DEFINE_INSN_CACHE_OPS([[:space:]]*\([[:alnum:]_]*\).*/get_\1_slot/'
157	'/^DEFINE_INSN_CACHE_OPS([[:space:]]*\([[:alnum:]_]*\).*/free_\1_slot/'
158	'/^PAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/Page\1/'
159	'/^PAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/SetPage\1/'
160	'/^PAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/ClearPage\1/'
161	'/^TESTSETFLAG([[:space:]]*\([[:alnum:]_]*\).*/TestSetPage\1/'
162	'/^TESTPAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/Page\1/'
163	'/^SETPAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/SetPage\1/'
164	'/\<__SETPAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/__SetPage\1/'
165	'/\<TESTCLEARFLAG([[:space:]]*\([[:alnum:]_]*\).*/TestClearPage\1/'
166	'/\<__TESTCLEARFLAG([[:space:]]*\([[:alnum:]_]*\).*/TestClearPage\1/'
167	'/\<CLEARPAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/ClearPage\1/'
168	'/\<__CLEARPAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/__ClearPage\1/'
169	'/^__PAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/__SetPage\1/'
170	'/^__PAGEFLAG([[:space:]]*\([[:alnum:]_]*\).*/__ClearPage\1/'
171	'/^PAGEFLAG_FALSE([[:space:]]*\([[:alnum:]_]*\).*/Page\1/'
172	'/\<TESTSCFLAG([[:space:]]*\([[:alnum:]_]*\).*/TestSetPage\1/'
173	'/\<TESTSCFLAG([[:space:]]*\([[:alnum:]_]*\).*/TestClearPage\1/'
174	'/\<SETPAGEFLAG_NOOP([[:space:]]*\([[:alnum:]_]*\).*/SetPage\1/'
175	'/\<CLEARPAGEFLAG_NOOP([[:space:]]*\([[:alnum:]_]*\).*/ClearPage\1/'
176	'/\<__CLEARPAGEFLAG_NOOP([[:space:]]*\([[:alnum:]_]*\).*/__ClearPage\1/'
177	'/\<TESTCLEARFLAG_FALSE([[:space:]]*\([[:alnum:]_]*\).*/TestClearPage\1/'
178	'/^PAGE_TYPE_OPS([[:space:]]*\([[:alnum:]_]*\).*/Page\1/'
179	'/^PAGE_TYPE_OPS([[:space:]]*\([[:alnum:]_]*\).*/__SetPage\1/'
180	'/^PAGE_TYPE_OPS([[:space:]]*\([[:alnum:]_]*\).*/__ClearPage\1/'
181	'/^TASK_PFA_TEST([^,]*,[[:space:]]*\([[:alnum:]_]*\))/task_\1/'
182	'/^TASK_PFA_SET([^,]*,[[:space:]]*\([[:alnum:]_]*\))/task_set_\1/'
183	'/^TASK_PFA_CLEAR([^,]*,[[:space:]]*\([[:alnum:]_]*\))/task_clear_\1/'
184	'/^DEF_MMIO_\(IN\|OUT\)_[XD]([[:space:]]*\([[:alnum:]_]*\),[^)]*)/\2/'
185	'/^DEBUGGER_BOILERPLATE([[:space:]]*\([[:alnum:]_]*\))/\1/'
186	'/^DEF_PCI_AC_\(\|NO\)RET([[:space:]]*\([[:alnum:]_]*\).*/\2/'
187	'/^PCI_OP_READ([[:space:]]*\(\w*\).*[1-4])/pci_bus_read_config_\1/'
188	'/^PCI_OP_WRITE([[:space:]]*\(\w*\).*[1-4])/pci_bus_write_config_\1/'
189	'/\<DEFINE_\(RT_MUTEX\|MUTEX\|SEMAPHORE\|SPINLOCK\)([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
190	'/\<DEFINE_\(RAW_SPINLOCK\|RWLOCK\|SEQLOCK\)([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
191	'/\<DEFINE_TIMER(\([^,)]*\),/\1/'
192	'/\<DECLARE_\(RWSEM\|COMPLETION\)([[:space:]]*\([[:alnum:]_]\+\)/\2/v/'
193	'/\<DECLARE_BITMAP([[:space:]]*\([[:alnum:]_]\+\)/\1/v/'
194	'/\(^\|\s\)\(\|L\|H\)LIST_HEAD([[:space:]]*\([[:alnum:]_]*\)/\3/v/'
195	'/\(^\|\s\)RADIX_TREE([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
196	'/\<DEFINE_PER_CPU([^,]*,[[:space:]]*\([[:alnum:]_]*\)/\1/v/'
197	'/\<DEFINE_PER_CPU_SHARED_ALIGNED([^,]*,[[:space:]]*\([[:alnum:]_]*\)/\1/v/'
198	'/\<DECLARE_WAIT_QUEUE_HEAD([[:space:]]*\([[:alnum:]_]*\)/\1/v/'
199	'/\<DECLARE_\(TASKLET\|WORK\|DELAYED_WORK\)([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
200	'/\(^\s\)OFFSET([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
201	'/\(^\s\)DEFINE([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
202	'/\<\(DEFINE\|DECLARE\)_HASHTABLE([[:space:]]*\([[:alnum:]_]*\)/\2/v/'
203	'/\<DEFINE_ID\(R\|A\)([[:space:]]*\([[:alnum:]_]\+\)/\2/'
204	'/\<DEFINE_WD_CLASS([[:space:]]*\([[:alnum:]_]\+\)/\1/'
205	'/\<ATOMIC_NOTIFIER_HEAD([[:space:]]*\([[:alnum:]_]\+\)/\1/'
206	'/\<RAW_NOTIFIER_HEAD([[:space:]]*\([[:alnum:]_]\+\)/\1/'
207	'/\<DECLARE_FAULT_ATTR([[:space:]]*\([[:alnum:]_]\+\)/\1/'
208	'/\<BLOCKING_NOTIFIER_HEAD([[:space:]]*\([[:alnum:]_]\+\)/\1/'
209	'/\<DEVICE_ATTR_\(RW\|RO\|WO\)([[:space:]]*\([[:alnum:]_]\+\)/dev_attr_\2/'
210	'/\<DRIVER_ATTR_\(RW\|RO\|WO\)([[:space:]]*\([[:alnum:]_]\+\)/driver_attr_\2/'
211	'/\<\(DEFINE\|DECLARE\)_STATIC_KEY_\(TRUE\|FALSE\)\(\|_RO\)([[:space:]]*\([[:alnum:]_]\+\)/\4/'
212	'/^SEQCOUNT_LOCKTYPE(\([^,]*\),[[:space:]]*\([^,]*\),[^)]*)/seqcount_\2_t/'
213	'/^SEQCOUNT_LOCKTYPE(\([^,]*\),[[:space:]]*\([^,]*\),[^)]*)/seqcount_\2_init/'
214	'/^\<DECLARE_IDTENTRY[[:alnum:]_]*([^,)]*,[[:space:]]*\([[:alnum:]_]\+\)/\1/'
215	'/^\<DEFINE_IDTENTRY[[:alnum:]_]*([[:space:]]*\([[:alnum:]_]\+\)/\1/'
216	'/^\<DEFINE_FREE(\([[:alnum:]_]\+\)/cleanup_\1/'
217	'/^\<DEFINE_CLASS(\([[:alnum:]_]\+\)/class_\1/'
218	'/^\<EXTEND_CLASS(\([[:alnum:]_]\+\),[[:space:]]*\([[:alnum:]_]\+\)/class_\1\2/'
219	'/^\<DEFINE_GUARD(\([[:alnum:]_]\+\)/class_\1/'
220	'/^\<DEFINE_GUARD_COND(\([[:alnum:]_]\+\),[[:space:]]*\([[:alnum:]_]\+\)/class_\1\2/'
221	'/^\<DEFINE_LOCK_GUARD_[[:digit:]](\([[:alnum:]_]\+\)/class_\1/'
222	'/^\<DEFINE_LOCK_GUARD_[[:digit:]]_COND(\([[:alnum:]_]\+\),[[:space:]]*\([[:alnum:]_]\+\)/class_\1\2/'
223)
224regex_kconfig=(
225	'/^[[:blank:]]*\(menu\|\)config[[:blank:]]\+\([[:alnum:]_]\+\)/\2/'
226	'/^[[:blank:]]*\(menu\|\)config[[:blank:]]\+\([[:alnum:]_]\+\)/CONFIG_\2/'
227)
228setup_regex()
229{
230	local mode=$1 lang tmp=() r
231	shift
232
233	regex=()
234	for lang; do
235		case "$lang" in
236		asm)       tmp=("${regex_asm[@]}") ;;
237		c)         tmp=("${regex_c[@]}") ;;
238		kconfig)   tmp=("${regex_kconfig[@]}") ;;
239		esac
240		for r in "${tmp[@]}"; do
241			if test "$mode" = "exuberant"; then
242				regex[${#regex[@]}]="--regex-$lang=${r}b"
243			else
244				# Remove ctags /kind-spec/
245				case "$r" in
246				/*/*/?/)
247					r=${r%?/}
248				esac
249				# Prepend ^[^#] unless already anchored
250				case "$r" in
251				/^*) ;;
252				*)
253					r="/^[^#]*${r#/}"
254				esac
255				regex[${#regex[@]}]="--regex=$r"
256			fi
257		done
258	done
259}
260
261exuberant()
262{
263	CTAGS_EXTRA="extra"
264	if $1 --version 2>&1 | grep -iq universal; then
265	    CTAGS_EXTRA="extras"
266	fi
267	setup_regex exuberant asm c
268	# identifiers to ignore by ctags
269	local ign=(
270		ACPI_EXPORT_SYMBOL
271		DECLARE_BITMAP
272		DEFINE_{TRACE,MUTEX,TIMER}
273		EXPORT_SYMBOL EXPORT_SYMBOL_GPL
274		EXPORT_TRACEPOINT_SYMBOL EXPORT_TRACEPOINT_SYMBOL_GPL
275		____cacheline_aligned ____cacheline_aligned_in_smp
276		____cacheline_internodealigned_in_smp
277		__acquires __aligned __always_inline __always_unused
278		__attribute
279		__cacheline_aligned __cacheline_aligned_in_smp
280		__deprecated
281		__exitdata
282		__initconst __initdata __initdata_memblock
283		__maybe_unused __must_check __must_hold
284		__packed __packed2__
285		__read_mostly __refdata __releases __ro_after_init
286		__used
287		const
288		static
289	)
290	all_target_sources | \
291	xargs $1 -a -I "$(IFS=','; echo "${ign[*]}")" \
292	--$CTAGS_EXTRA=+fq --c-kinds=+px --fields=+iaS --langmap=c:+.h \
293	"${regex[@]}"
294
295	KCONFIG_ARGS=()
296	if ! $1 --list-languages | grep -iq kconfig; then
297		setup_regex exuberant kconfig
298		KCONFIG_ARGS=(--langdef=kconfig --language-force=kconfig "${regex[@]}")
299	fi
300	all_kconfigs | xargs $1 -a "${KCONFIG_ARGS[@]}"
301}
302
303emacs()
304{
305	setup_regex emacs asm c
306	all_target_sources | xargs $1 -a "${regex[@]}"
307
308	setup_regex emacs kconfig
309	all_kconfigs | xargs $1 -a "${regex[@]}"
310}
311
312xtags()
313{
314	if $1 --version 2>&1 | grep -iq exuberant; then
315		exuberant $1
316	elif $1 --version 2>&1 | grep -iq emacs; then
317		emacs $1
318	else
319		all_target_sources | xargs $1 -a
320	fi
321}
322
323# Support um (which uses SUBARCH)
324if [ "${ARCH}" = "um" ]; then
325	if [ "$SUBARCH" = "i386" ]; then
326		archinclude=x86
327	elif [ "$SUBARCH" = "x86_64" ]; then
328		archinclude=x86
329	else
330		archinclude=${SUBARCH}
331	fi
332fi
333
334remove_structs=
335case "$1" in
336	"cscope")
337		docscope
338		;;
339
340	"gtags")
341		dogtags
342		;;
343
344	"tags")
345		rm -f tags
346		xtags ctags
347		remove_structs=y
348		;;
349
350	"TAGS")
351		rm -f TAGS
352		xtags etags
353		remove_structs=y
354		;;
355esac
356
357# Remove structure forward declarations.
358if [ -n "$remove_structs" ]; then
359    LC_ALL=C sed -i -e '/^\([a-zA-Z_][a-zA-Z0-9_]*\)\t.*\t\/\^struct \1;.*\$\/;"\tx$/d' $1
360fi
361