1# Copyright: 2018 Masatake YAMATO 2# License: GPL-2 3 4CTAGS=$1 5 6echo "# root sep and wildcard" 7${CTAGS} --quiet --options=NONE \ 8 -o - \ 9 --sort=no \ 10 --extras=+q \ 11 --_scopesep-Tcl='/*:/' \ 12 --_scopesep-Tcl='*/*:+' \ 13 input.tcl 14 15echo "# override wildcard" 16${CTAGS} --quiet --options=NONE \ 17 -o - \ 18 --sort=no \ 19 --extras=+q \ 20 --_scopesep-Tcl='/*:/' \ 21 --_scopesep-Tcl='*/*:+' \ 22 --_scopesep-Tcl='n/n:->' \ 23 --_scopesep-Tcl='n/p:^' \ 24 input.tcl 25 26echo "# override rootsep" 27${CTAGS} --quiet --options=NONE \ 28 -o - \ 29 --sort=no \ 30 --extras=+q \ 31 --_scopesep-Tcl='/*:/' \ 32 --_scopesep-Tcl='*/*:+' \ 33 --_scopesep-Tcl='/n:@' \ 34 --_scopesep-Tcl='/p:%' \ 35 input.tcl 36 37echo "# no default" 38${CTAGS} --quiet --options=NONE \ 39 -o - \ 40 --sort=no \ 41 --extras=+q \ 42 --_scopesep-Tcl='n/n:->' \ 43 --_scopesep-Tcl='n/p:^' \ 44 --_scopesep-Tcl='/n:@' \ 45 --_scopesep-Tcl='/p:%' \ 46 input.tcl 47