scheme48/build/build-external-modules

#!/bin/sh
# Build external-modules.c.

target="$1"
shift

(
	cat <<!

!
	for i in "s48_initialize_external" "$@"; do
		cat <<!
extern void	$i(void);
!
	done
	cat <<!

void s48_initialize_external_modules (void) {
!
	for i in "s48_initialize_external" "$@"; do
		cat <<!
			$i();
!
	done
	cat <<!
		}
!
) >"$target"