guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gnunet] 01/03: build: Substitute shebang in examples.


From: Ludovic Courts
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:



reply via email to

[Prev in Thread] Current Thread [Next in Thread]