(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