diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /scripts | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/fetch-liu-map-index.scm | 3 | ||||
| -rw-r--r-- | scripts/use2dot/graphviz.scm | 108 |
2 files changed, 56 insertions, 55 deletions
diff --git a/scripts/fetch-liu-map-index.scm b/scripts/fetch-liu-map-index.scm index da012cf3..31db3844 100755 --- a/scripts/fetch-liu-map-index.scm +++ b/scripts/fetch-liu-map-index.scm @@ -11,6 +11,7 @@ ;;; Code: (use-modules (srfi srfi-1) + (srfi srfi-88) (web client) (web response) (ice-9 rdelim) @@ -51,7 +52,7 @@ ;; Open a HTTP request to the given URL, and return the ;; response body as a port. (define (open-input-url url) - (define-values (response body) (http-get url #:streaming? #t)) + (define-values (response body) (http-get url streaming?: #t)) (unless (= 200 (response-code response)) (format #t "Fetching index failed with ~a ~a~%" diff --git a/scripts/use2dot/graphviz.scm b/scripts/use2dot/graphviz.scm index 0c75f3ff..9355d723 100644 --- a/scripts/use2dot/graphviz.scm +++ b/scripts/use2dot/graphviz.scm @@ -16,68 +16,68 @@ ;;; https://github.com/roelj/graphviz-guile/blob/master/graphviz.scm (define-module (graphviz) - #:export (;; New graphs - graph - digraph - strictgraph - strictdigraph - readstring - read + :export (;; New graphs + graph + digraph + strictgraph + strictdigraph + readstring + read - ;; New nodes/edges - node - edge + ;; New nodes/edges + node + edge - ;; Setting/getting attribute values - setv - getv + ;; Setting/getting attribute values + setv + getv - ;; Finding and obtaining names - nameof - findsubg - findnode - findedge - findattr + ;; Finding and obtaining names + nameof + findsubg + findnode + findedge + findattr - ;; Graph navigators - headof - tailof - graphof - rootof + ;; Graph navigators + headof + tailof + graphof + rootof - ;; Obtain handles of proto node/edge for setting attribute values - protonode - protoedge + ;; Obtain handles of proto node/edge for setting attribute values + protonode + protoedge - ;; Iterators - ok - firstsubg - nextsubg - firstsupg - nextsupg - firstedge - nextedge - firstout - nextout - firsthead - nexthead - firstin - nextin - firstnode - nextnode - firstattr - nextattr + ;; Iterators + ok + firstsubg + nextsubg + firstsupg + nextsupg + firstedge + nextedge + firstout + nextout + firsthead + nexthead + firstin + nextin + firstnode + nextnode + firstattr + nextattr - ;; Remove graph objects - rm + ;; Remove graph objects + rm - ;; Layout - layout - render - renderresult - renderchannel - renderdata - write)) + ;; Layout + layout + render + renderresult + renderchannel + renderdata + write)) ;; (load-extension "libgv_guile.so" "SWIG_init") |