1#!/bin/sh 2 3# Copyright: 2020 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 -Q ); then 18 skip "no qualifier function in readtags" 19fi 20 21run_readtags() 22{ 23 local fexpr=$1 24 local action=$2 25 echo ';;' "$fexpr" && 26 echo ';;' "$fexpr" 1>&2 && 27 ${V} ${READTAGS} -e -t output.tags -Q "$fexpr" "$action" 28} 29 30run_readtags '(begin #f (print $name) (print $line) #t)' -l && 31run_readtags '(begin #t (print $name) (print $line) #f)' -l && 32run_readtags '(begin #t (print $name) (print $line) (eq? $name "efg"))' -l && 33run_readtags '(begin #t (and (eq? $name "abc") (print $name) (print $line)) (eq? $name "efg"))' -l && 34run_readtags '(begin0 #t (print $name) (print $line) #f)' -l && 35run_readtags '(begin0 #f (print $name) (print $line) #t)' -l && 36run_readtags '(begin0 (eq? $name "abc") (print $name) (print $line) #t)' -l 37run_readtags '(begin0 (eq? $name "abc") (and (eq? $name "efg") (print $name) (print $line)) #t)' -l 38