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

@@ -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

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

examples/download.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-download)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -67,3 +67,7 @@ the download."
 	  ((equal? status '(#:download #:stopped))
 	   (add-task! (lambda (_)
 			(close-filesharing-service! *fs-handle*)))))))
+
+;; Local Variables:
+;; mode: scheme
+;; End:

examples/identity-bis.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-identity)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -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:

examples/identity.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-identity)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -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:

examples/publish.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-publish)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -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:

examples/search-ns.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-search)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -101,3 +101,7 @@
   (when (equal? '(#:search #:stopped) status)
     (add-task!
      (lambda (_) (close-filesharing-service! *fs-handle*)))))
+
+;; Local Variables:
+;; mode: scheme
+;; End:

examples/search.in

@@ -1,4 +1,4 @@
-#!/usr/bin/guile \
+#!@GUILE@ \
 -e (@\ (gnunet-search)\ main) -L . -s
 !#
 ;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
@@ -74,3 +74,7 @@
   (when (equal? '(#:search #:stopped) status)
     (add-task! (lambda (_)
 		 (close-filesharing-service! *fs-handle*)))))
+
+;; Local Variables:
+;; mode: scheme
+;; End: