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.
This commit is contained in:
parent
383eac2aab
commit
b7f2af92e0
|
@ -15,3 +15,9 @@ Makefile.in
|
||||||
/*.log
|
/*.log
|
||||||
/tests/*.log
|
/tests/*.log
|
||||||
/tests/*.trs
|
/tests/*.trs
|
||||||
|
/examples/download
|
||||||
|
/examples/identity
|
||||||
|
/examples/identity-bis
|
||||||
|
/examples/publish
|
||||||
|
/examples/search
|
||||||
|
/examples/search-ns
|
||||||
|
|
|
@ -49,4 +49,12 @@ AC_SUBST([GNUNETIDENTITY_LIBDIR])
|
||||||
AC_CONFIG_FILES([Makefile gnu/gnunet/config.scm])
|
AC_CONFIG_FILES([Makefile gnu/gnunet/config.scm])
|
||||||
AC_CONFIG_FILES([pre-inst-env], [chmod +x pre-inst-env])
|
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
|
AC_OUTPUT
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-download)\ main) -L . -s
|
-e (@\ (gnunet-download)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
||||||
|
@ -67,3 +67,7 @@ the download."
|
||||||
((equal? status '(#:download #:stopped))
|
((equal? status '(#:download #:stopped))
|
||||||
(add-task! (lambda (_)
|
(add-task! (lambda (_)
|
||||||
(close-filesharing-service! *fs-handle*)))))))
|
(close-filesharing-service! *fs-handle*)))))))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-identity)\ main) -L . -s
|
-e (@\ (gnunet-identity)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
||||||
|
@ -47,3 +47,7 @@
|
||||||
(define (main args)
|
(define (main args)
|
||||||
(set! *config* (load-configuration "~/.gnunet/gnunet.conf"))
|
(set! *config* (load-configuration "~/.gnunet/gnunet.conf"))
|
||||||
(call-with-scheduler *config* first-task))
|
(call-with-scheduler *config* first-task))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-identity)\ main) -L . -s
|
-e (@\ (gnunet-identity)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
||||||
|
@ -47,3 +47,7 @@
|
||||||
(define (main args)
|
(define (main args)
|
||||||
(set! *config* (load-configuration "~/.gnunet/gnunet.conf"))
|
(set! *config* (load-configuration "~/.gnunet/gnunet.conf"))
|
||||||
(call-with-scheduler *config* first-task))
|
(call-with-scheduler *config* first-task))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-publish)\ main) -L . -s
|
-e (@\ (gnunet-publish)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; 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! *update-id* (option-ref options 'update-id #f))
|
||||||
(set! *args* (option-ref options '() #f)))
|
(set! *args* (option-ref options '() #f)))
|
||||||
(call-with-scheduler *config* first-task))
|
(call-with-scheduler *config* first-task))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-search)\ main) -L . -s
|
-e (@\ (gnunet-search)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
||||||
|
@ -101,3 +101,7 @@
|
||||||
(when (equal? '(#:search #:stopped) status)
|
(when (equal? '(#:search #:stopped) status)
|
||||||
(add-task!
|
(add-task!
|
||||||
(lambda (_) (close-filesharing-service! *fs-handle*)))))
|
(lambda (_) (close-filesharing-service! *fs-handle*)))))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/guile \
|
#!@GUILE@ \
|
||||||
-e (@\ (gnunet-search)\ main) -L . -s
|
-e (@\ (gnunet-search)\ main) -L . -s
|
||||||
!#
|
!#
|
||||||
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
;;;; Copyright © 2015 Rémi Delrue <asgeir@free.fr>
|
||||||
|
@ -74,3 +74,7 @@
|
||||||
(when (equal? '(#:search #:stopped) status)
|
(when (equal? '(#:search #:stopped) status)
|
||||||
(add-task! (lambda (_)
|
(add-task! (lambda (_)
|
||||||
(close-filesharing-service! *fs-handle*)))))
|
(close-filesharing-service! *fs-handle*)))))
|
||||||
|
|
||||||
|
;; Local Variables:
|
||||||
|
;; mode: scheme
|
||||||
|
;; End:
|
Loading…
Reference in New Issue