From b7f2af92e06c4ea1ef05982f71704c691f1ae33c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 13 Nov 2015 21:47:53 +0100 Subject: [PATCH] build: Substitute shebang in examples. * examples/download.scm: Rename to... * examples/download.in: ... this. Use @GUILE@ in shebang. * examples/identity-bis.scm: Rename to... * examples/identity-bis.in: ... this. Likewise. * examples/identity.scm: Rename to... * examples/identity.in: ... this. Likewise. * examples/publish.scm: Rename to... * examples/publish.in: ... this. Likewise. * examples/search-ns.scm: Rename to... * examples/search-ns.in: ... this. Likewise. * examples/search.scm: Rename to... * examples/search.in: ... this. Likewise. * configure.ac: Substitute these files. --- .gitignore | 6 ++++++ configure.ac | 8 ++++++++ examples/{download.scm => download.in} | 6 +++++- examples/{identity-bis.scm => identity-bis.in} | 6 +++++- examples/{identity.scm => identity.in} | 6 +++++- examples/{publish.scm => publish.in} | 6 +++++- examples/{search-ns.scm => search-ns.in} | 6 +++++- examples/{search.scm => search.in} | 6 +++++- 8 files changed, 44 insertions(+), 6 deletions(-) rename examples/{download.scm => download.in} (97%) mode change 100755 => 100644 rename examples/{identity-bis.scm => identity-bis.in} (96%) mode change 100755 => 100644 rename examples/{identity.scm => identity.in} (96%) mode change 100755 => 100644 rename examples/{publish.scm => publish.in} (99%) mode change 100755 => 100644 rename examples/{search-ns.scm => search-ns.in} (98%) mode change 100755 => 100644 rename examples/{search.scm => search.in} (98%) mode change 100755 => 100644 diff --git a/.gitignore b/.gitignore index a8eee17..32a0fbd 100644 --- a/.gitignore +++ b/.gitignore @@ -15,3 +15,9 @@ Makefile.in /*.log /tests/*.log /tests/*.trs +/examples/download +/examples/identity +/examples/identity-bis +/examples/publish +/examples/search +/examples/search-ns diff --git a/configure.ac b/configure.ac index 37b1700..0d505a5 100644 --- a/configure.ac +++ b/configure.ac @@ -49,4 +49,12 @@ AC_SUBST([GNUNETIDENTITY_LIBDIR]) AC_CONFIG_FILES([Makefile gnu/gnunet/config.scm]) AC_CONFIG_FILES([pre-inst-env], [chmod +x pre-inst-env]) +dnl The examples. +AC_CONFIG_FILES([examples/download], [chmod +x examples/download]) +AC_CONFIG_FILES([examples/identity], [chmod +x examples/identity]) +AC_CONFIG_FILES([examples/identity-bis], [chmod +x examples/identity-bis]) +AC_CONFIG_FILES([examples/publish], [chmod +x examples/publish]) +AC_CONFIG_FILES([examples/search], [chmod +x examples/search]) +AC_CONFIG_FILES([examples/search-ns], [chmod +x examples/search-ns]) + AC_OUTPUT diff --git a/examples/download.scm b/examples/download.in old mode 100755 new mode 100644 similarity index 97% rename from examples/download.scm rename to examples/download.in index 93c3681..c3beb5b --- a/examples/download.scm +++ b/examples/download.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-download)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -67,3 +67,7 @@ the download." ((equal? status '(#:download #:stopped)) (add-task! (lambda (_) (close-filesharing-service! *fs-handle*))))))) + +;; Local Variables: +;; mode: scheme +;; End: diff --git a/examples/identity-bis.scm b/examples/identity-bis.in old mode 100755 new mode 100644 similarity index 96% rename from examples/identity-bis.scm rename to examples/identity-bis.in index 2ef8f59..cf8d58a --- a/examples/identity-bis.scm +++ b/examples/identity-bis.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-identity)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -47,3 +47,7 @@ (define (main args) (set! *config* (load-configuration "~/.gnunet/gnunet.conf")) (call-with-scheduler *config* first-task)) + +;; Local Variables: +;; mode: scheme +;; End: diff --git a/examples/identity.scm b/examples/identity.in old mode 100755 new mode 100644 similarity index 96% rename from examples/identity.scm rename to examples/identity.in index 4231543..6041aca --- a/examples/identity.scm +++ b/examples/identity.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-identity)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -47,3 +47,7 @@ (define (main args) (set! *config* (load-configuration "~/.gnunet/gnunet.conf")) (call-with-scheduler *config* first-task)) + +;; Local Variables: +;; mode: scheme +;; End: diff --git a/examples/publish.scm b/examples/publish.in old mode 100755 new mode 100644 similarity index 99% rename from examples/publish.scm rename to examples/publish.in index d5a55b2..bd1c57b --- a/examples/publish.scm +++ b/examples/publish.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-publish)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -195,3 +195,7 @@ subsystem has been initialized." (set! *update-id* (option-ref options 'update-id #f)) (set! *args* (option-ref options '() #f))) (call-with-scheduler *config* first-task)) + +;; Local Variables: +;; mode: scheme +;; End: diff --git a/examples/search-ns.scm b/examples/search-ns.in old mode 100755 new mode 100644 similarity index 98% rename from examples/search-ns.scm rename to examples/search-ns.in index 0956d9a..648bd14 --- a/examples/search-ns.scm +++ b/examples/search-ns.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-search)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -101,3 +101,7 @@ (when (equal? '(#:search #:stopped) status) (add-task! (lambda (_) (close-filesharing-service! *fs-handle*))))) + +;; Local Variables: +;; mode: scheme +;; End: diff --git a/examples/search.scm b/examples/search.in old mode 100755 new mode 100644 similarity index 98% rename from examples/search.scm rename to examples/search.in index af4a2ca..7d66c41 --- a/examples/search.scm +++ b/examples/search.in @@ -1,4 +1,4 @@ -#!/usr/bin/guile \ +#!@GUILE@ \ -e (@\ (gnunet-search)\ main) -L . -s !# ;;;; Copyright © 2015 Rémi Delrue @@ -74,3 +74,7 @@ (when (equal? '(#:search #:stopped) status) (add-task! (lambda (_) (close-filesharing-service! *fs-handle*))))) + +;; Local Variables: +;; mode: scheme +;; End: