tags

🥘 Ingredients

1. 1

   /* * cook - file construction tool * Copyright (C) 2004, 2007, 2008 Peter Miller * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see * <http://www.gnu.org/licenses/>. */
2. 2

   if [find_command ctags] then { /* * There are three different versions of these commands, * and they take completely different command line options. We * assume minimal posix syntax if nothing better is available. * (What were they thinking? Were they even thinking?) */ ctags-variant = posix;
3. 3

   /* * The '|| true' is needed because if ctags fails the build stops. */ ctags-version = [collect ctags if [in Exuberant [ctags-version]] then { ctags-variant = exuberant; } else if [in Emacs [ctags-version]] then { ctags-variant = emacs; }
4. 4

   all += tags;
5. 5

   if [find_command etags] then { etags = etags; all += TAGS; }
6. 6

   /* * xargs can invoke ctags/etags more than once if the underling * shell does not handle so much arguments. In order to not * truncate the target the '-a' options must be used. It is posix * compliant and should be supported by different ctags variant. */ ctags-opts = -a;
7. 7

   if [in posix [ctags-variant]] then ctags-opts += -f;
8. 8

   if [in exuberant [ctags-variant]] then { ctags-opts += etags = ctags -e; all += TAGS; }
9. 9

   /* * The (GNU) Emacs variant of ctags (based an Exuberant) use -o * to set the output file name. */ if [in emacs [ctags-variant]] then ctags-opts += /* but is doesn't, really) */ -o ; }
10. 10

    tags: [change_files] set shallow no-cascade { xargs ctags [ctags-opts] [target] set meter; data [unsplit "n" [resolve [stringset [source_files] - [match_mask %0%.h [source_files]]] [match_mask %0%.h [source_files]] [fromto %0%.def %0%.c [match_mask %0%.def [source_files]]] [fromto %0%.def %0%.h [match_mask %0%.def [source_files]]] ] ] dataend }
11. 11

    TAGS: [change_files] set shallow no-cascade { xargs [etags] [ctags-opts] [target] set meter; data [unsplit "n" [resolve [source_files] [fromto %0%.def %0%.c [match_mask %0%.def [source_files]]] [fromto %0%.def %0%.h [match_mask %0%.def [source_files]]] ] ] dataend }