~ chicken-core (chicken-5) 39e6b72d827e4451718f32e03be2476d5c8cb70c

commit 39e6b72d827e4451718f32e03be2476d5c8cb70c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 10 15:19:09 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 10 15:19:09 2010 +0100

    added wrapper-maker script for private installations

diff --git a/scripts/make-wrapper.scm b/scripts/make-wrapper.scm
new file mode 100644
index 00000000..e1a0daa5
--- /dev/null
+++ b/scripts/make-wrapper.scm
@@ -0,0 +1,24 @@
+;;;; make-wrapper.scm - generate "trampoline" script for program
+;
+; usage: csi -s make-wrapper.scm NAME BINPATH
+
+
+(use extras files)
+
+
+(let* ((args (command-line-arguments))
+       (name (car args))
+       (prefix (cadr args)))
+  (with-output-to-file (make-pathname prefix name)
+    (lambda ()
+      (display #<#EOF
+##!/bin/sh
+
+if test -d .chicken; then
+  exec .chicken/bin/"#{name}" "$@"
+else
+  exec "#{prefix}"/"#{name}" "$@"
+fi
+
+EOF
+))))