srv/format-def
Circling Skies 847c11ad95 Writes index in the UNIX way.
Adds support for TAGS in noweb files.

I really don't know whether the above is complete or not.
2025-09-19 20:13:56 -03:00

15 lines
162 B
Bash
Executable file

#!/bin/sh
usage()
{
printf 'usage: %s [file.lisp]\n' $0
exit 1
}
sed -E '/^\(defun |\(defmacro /{
i\
}' "$@" | \
sed '/^[ \t]*$/{
N
/^[ \t]*\n$/D
}'