(Arne Babenhauserheide)
2017-11-18: examples: update fizzbuzz.w hello-world-server.w macros.w examples: update fizzbuzz.w hello-world-server.w macros.w running_mean_std.w tinyenc.w
diff --git a/examples/fizzbuzz.w b/examples/fizzbuzz.w
--- a/examples/fizzbuzz.w
+++ b/examples/fizzbuzz.w
@@ -1,4 +1,8 @@
-#!./wisp-multiline.sh
+#!/usr/bin/env sh
+# -*- wisp -*-
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (guildhall ext foof-loop))'
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@"
; !#
;; this example needs foof-loop installed via guildhall!
diff --git a/examples/hello-world-server.w b/examples/hello-world-server.w
--- a/examples/hello-world-server.w
+++ b/examples/hello-world-server.w
@@ -1,4 +1,7 @@
-#!./wisp-multiline.sh
+#!/usr/bin/env sh
+# -*- wisp -*-
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@"
; !#
use-modules
@@ -37,7 +40,7 @@ define : hello-world-handler request req
header
content
-display "Server starting. Test it at http://127.0.0.1:8081"
+display "Server starting. Test it at http://127.0.0.1:8084"
newline
-run-server hello-world-handler 'http ' : #:port 8081
+run-server hello-world-handler 'http ' : #:port 8084
diff --git a/examples/macros.w b/examples/macros.w
--- a/examples/macros.w
+++ b/examples/macros.w
@@ -1,4 +1,7 @@
-#!/home/arne/wisp/wisp-multiline.sh -l guile
+#!/usr/bin/env sh
+# -*- wisp -*-
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@"
; !#
;; Testing syntax-rules and syntax-case with wisp
diff --git a/examples/running_mean_std.w b/examples/running_mean_std.w
--- a/examples/running_mean_std.w
+++ b/examples/running_mean_std.w
@@ -1,4 +1,7 @@
-#!/home/arne/wisp/wisp-multiline.sh
+#!/usr/bin/env sh
+# -*- wisp -*-
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@"
; !#
use-modules : srfi srfi-11
diff --git a/examples/tinyenc.w b/examples/tinyenc.w
--- a/examples/tinyenc.w
+++ b/examples/tinyenc.w
@@ -1,4 +1,7 @@
-#!/home/arne/wisp/wisp-multiline.sh -l guile
+#!/usr/bin/env sh
+# -*- wisp -*-
+guile -L $(dirname $(dirname $(realpath "$0"))) -c '(import (language wisp spec))'
+exec guile -L $(dirname $(dirname $(realpath "$0"))) --language=wisp -s "$0" "$@"
; !#
define-module : examples tinyenc
@@ -6,7 +9,7 @@ define-module : examples tinyenc
; . #:use-syntax : ice-9 syncase
; `use-syntax' is deprecated. For compatibility with old and new guile I therefore need this.
; Syntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary.
-use-syntax : ice-9 syncase
+; use-syntax : ice-9 syncase
; http://en.wikipedia.org/wiki/Tiny_Encryption_Algorithm#toctitle