diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-03-01 21:06:30 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-03-01 21:06:30 +0400 |
| commit | 80fb0969ede3ca37aa44613ef5b93a6dddffa2eb (patch) | |
| tree | cf4044a99c2168dd4f39a7d305c0aa07fbde8589 /examples | |
| parent | server-func.c (server-accept): Throw `guile-ssh-error' on error. (diff) | |
| download | guile-ssh-80fb0969ede3ca37aa44613ef5b93a6dddffa2eb.tar.gz | |
examples/: Use actual path to Guile interpreter in the shebang.
* examples/ssshd.scm: Rename to `examples/ssshd.scm.in'.
* examples/sssh.scm: Rename to `examples/sssh.scm.in'.
* examples/echo/client.scm: Rename to
`examples/echo/client.scm.in'.
* examples/echo/server.scm: Rename to
`examples/echo/server.scm.in'.
* examples/Makefile.am: Substitute `@GUILE@' with the actual path
to Guile interpreter in *.in files.
* NEWS: Update.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/Makefile.am | 15 | ||||
| -rw-r--r--[-rwxr-xr-x] | examples/echo/client.scm.in (renamed from examples/echo/client.scm) | 3 | ||||
| -rw-r--r--[-rwxr-xr-x] | examples/echo/server.scm.in (renamed from examples/echo/server.scm) | 3 | ||||
| -rw-r--r--[-rwxr-xr-x] | examples/sssh.scm.in (renamed from examples/sssh.scm) | 3 | ||||
| -rw-r--r--[-rwxr-xr-x] | examples/ssshd.scm.in (renamed from examples/ssshd.scm) | 3 |
5 files changed, 22 insertions, 5 deletions
diff --git a/examples/Makefile.am b/examples/Makefile.am index 77bbcde..6ced691 100644 --- a/examples/Makefile.am +++ b/examples/Makefile.am @@ -19,4 +19,17 @@ examplesdir = $(pkgdatadir)/examples examples_echodir = $(pkgdatadir)/examples/echo dist_examples_DATA = README sssh.scm ssshd.scm -dist_examples_echo_DATA = echo/*.scm +dist_examples_echo_DATA = echo/server.scm echo/client.scm + +substitute = sed -e 's,[@]GUILE[@],$(GUILE),g' + +SUFFIXES = .in + +.in: + $(substitute) "$^" > "$@.tmp" && \ + chmod +x "$@.tmp" && \ + mv "$@.tmp" "$@" + +CLEANFILES = \ + sssh.scm ssshd.scm \ + echo/server.scm echo/client.scm diff --git a/examples/echo/client.scm b/examples/echo/client.scm.in index 3c5bfd5..ac6605c 100755..100644 --- a/examples/echo/client.scm +++ b/examples/echo/client.scm.in @@ -1,5 +1,6 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ --debug -e main +# aside from this initial boilerplate, this is actually -*- scheme -*- code !# ;;; client.scm -- Echo client example. diff --git a/examples/echo/server.scm b/examples/echo/server.scm.in index 1921cd9..1f41265 100755..100644 --- a/examples/echo/server.scm +++ b/examples/echo/server.scm.in @@ -1,5 +1,6 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ --debug -e main -s +# aside from this initial boilerplate, this is actually -*- scheme -*- code !# ;;; client.scm -- Echo server example. diff --git a/examples/sssh.scm b/examples/sssh.scm.in index e95e037..7d55f84 100755..100644 --- a/examples/sssh.scm +++ b/examples/sssh.scm.in @@ -1,5 +1,6 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ --debug -e main +# aside from this initial boilerplate, this is actually -*- scheme -*- code !# ;;; sssh.scm -- Scheme Secure Shell. diff --git a/examples/ssshd.scm b/examples/ssshd.scm.in index 9b7045c..71e0f2d 100755..100644 --- a/examples/ssshd.scm +++ b/examples/ssshd.scm.in @@ -1,5 +1,6 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ --debug -e main -s +# aside from this initial boilerplate, this is actually -*- scheme -*- code !# ;;; ssshd.scm -- Scheme Secure Shell Daemon. |