Circling Skies
f0a54bf1f9
It also includes scripts for formating Lisp code for people who will read Lisp code directly. It doesn't cost us much to organize the Lisp output a bit. In a similar spirit, I'm not including NOWEB as part of the build process. (Most users will not have NOWEB around to use it.) So while the Makefile is pretty short because there's little to do, Anyfile is the ANYWEB makefile. ANYWEB is my modified, personal version of NOWEB for Windows. (The way I use this second makefile is to make a shell alias called /amake/ that automatically invokes ``make -f Anyfile'' for me.)
27 lines
1,017 B
Bash
27 lines
1,017 B
Bash
#!/bin/sh
|
|
usage()
|
|
{
|
|
printf 'usage: %s [file.lisp]\n' $0
|
|
exit 1
|
|
}
|
|
## The first program finds certain definitions and inserts a new blank
|
|
## line *before* the definition. Such action makes function
|
|
## definitions separated by two blank lines in some cases. We then
|
|
## remove the excess with the second program. Notice we need the -E
|
|
## option because we're using the | metacharacter that is only
|
|
## supported by popular sed programs with the -E option. This
|
|
## violates POSIX sed, but keep in mind that we only run this when
|
|
## releasing the package. This is a building tool, not part of the
|
|
## service.
|
|
sed -E '/^\(defun |\(defmacro /{
|
|
i\
|
|
|
|
}' $* | sed '/^[ \t]*$/{
|
|
N
|
|
/^[ \t]*\n$/D
|
|
}'
|
|
## We first find a blank line. Then we say N to expand the pattern
|
|
## space to include the next line. Then we delete the *first* blank
|
|
## line and not the second---that's what the D command does. This
|
|
## strategy is explained by Dale Dougherty and Arnold Robbins in ``sed
|
|
## & awk'' second edition, pages 112--114.
|