xemacs-packages / gen-macro-list.awk

#!/bin/awk -f
# This file is part of XEmacs.
# XEmacs 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 2, or (at your option) any
# later version.

# XEmacs 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 XEmacs; see the file COPYING.  If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
# Written by Jerry James
# December 18, 2002
# Updated January 14, 2004 to record the type of definition (defmacro,
# defun, etc.) and to avoid finding definitions in comments and strings.
# Produce a list of macros and the packages/files in which they are defined.
# Usage: find $package_root -type f -name \*.el | \
#        xargs awk -f gen-macro-list.awk > macro.list
# Find all instances of defmacro and defsubst (including defmacro*, etc.)
# not in comments or strings
/^[^;\"]*\(def(macro|subst)/ {
  for (i = 1; i <= NF; i++) {
    if ($i ~ "\\(def(macro|subst)") {
      mac = i + 1;
      ## If the macro name contains a comma, we don't know how to process it
      if ($mac !~ ",") {
	## Get rid of any trailing parentheses (due to not leaving a space
	## between the macro name and parameter list.
	paren = index($mac, "(");
	## This is not correct for pathnames with multiple xemacs-packages
	## elements, but fixing it is too painful
	       (paren == 0) ? $mac : substr($mac, 1, $paren - 1),
	       substr(FILENAME, match(FILENAME, "(xemacs|mule)-packages")),
	       substr($i, index($i, "(") + 1));
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.