[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet] 01/03: build: Substitute shebang in examples.
From: |
Ludovic Courtès |
Subject: |
[gnunet] 01/03: build: Substitute shebang in examples. |
Date: |
Fri, 13 Nov 2015 20:56:06 +0000 |
civodul pushed a commit to branch master
in repository gnunet.
commit b7f2af92e06c4ea1ef05982f71704c691f1ae33c
Author: Ludovic Courtès <address@hidden>
Date: Fri Nov 13 21:47:53 2015 +0100
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(-)
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 \
address@hidden@ \
-e (@\ (gnunet-download)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -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 \
address@hidden@ \
-e (@\ (gnunet-identity)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -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 \
address@hidden@ \
-e (@\ (gnunet-identity)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -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 \
address@hidden@ \
-e (@\ (gnunet-publish)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -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 \
address@hidden@ \
-e (@\ (gnunet-search)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -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 \
address@hidden@ \
-e (@\ (gnunet-search)\ main) -L . -s
!#
;;;; Copyright © 2015 Rémi Delrue <address@hidden>
@@ -74,3 +74,7 @@
(when (equal? '(#:search #:stopped) status)
(add-task! (lambda (_)
(close-filesharing-service! *fs-handle*)))))
+
+;; Local Variables:
+;; mode: scheme
+;; End: