wisp
 
(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