~ chicken-core (chicken-5) /scripts/make-wrapper.scm

 1;;;; make-wrapper.scm - generate "trampoline" script for program
 2;
 3; usage: csi -s make-wrapper.scm NAME BINPATH
 4
 5(import (chicken pathname))
 6
 7(let* ((args (command-line-arguments))
 8       (name (car args))
 9       (prefix (cadr args)))
10  (with-output-to-file (make-pathname prefix name)
11    (lambda ()
12      (display #<#EOF
13##!/bin/sh
14
15if test -d .chicken; then
16  exec .chicken/bin/"#{name}" "$@"
17else
18  exec "#{prefix}"/"#{name}" "$@"
19fi
20
21EOF
22))))