1#!/bin/sh 2 3# Copyright: 2021 Masatake YAMATO 4# License: GPL-2 5 6READTAGS=$3 7 8. ../utils.sh 9 10#V="valgrind --leak-check=full -v" 11V= 12 13if ! [ -x "${READTAGS}" ]; then 14 skip "no readtags" 15fi 16 17if ! ( "${READTAGS}" -h | grep -q -e -S ); then 18 skip "no qualifier function in readtags" 19fi 20 21${V} ${READTAGS} -e -t output.tags \ 22 -Q '(if (prefix? $name "a") #f ((string->regexp (string-append (regexp-quote $name) ".?")) $name))' \ 23 -l 24 25${V} ${READTAGS} -e -t output.tags \ 26 -Q '(if (prefix? $name "a") #f ((string->regexp (string-append (regexp-quote "[{.*+]}^$()|?\\") ".?")) $name))' \ 27 -l 28