diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-12-07 08:53:58 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-12-09 08:42:57 -0500 |
| commit | 7f59af4cdf071dc133ae3ed04b3a3c146a3d8429 (patch) | |
| tree | f1d59412de994d00498d87e85eb787e1307493ed | |
| parent | 1774770170531197d906194c6de806af62b1b516 (diff) | |
Move base64 and SHA-1 modules to (web socket) namespace.
| -rw-r--r-- | web/socket/base64.scm (renamed from base64.scm) | 2 | ||||
| -rw-r--r-- | web/socket/server.scm | 4 | ||||
| -rw-r--r-- | web/socket/sha-1.scm (renamed from sha-1.scm) | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/base64.scm b/web/socket/base64.scm index 5720f18..69d45b7 100644 --- a/base64.scm +++ b/web/socket/base64.scm @@ -22,7 +22,7 @@ ;; RFC 4648 Base-N Encodings -(library (base64) +(library (web socket base64) (export base64-encode base64-decode base64-alphabet diff --git a/web/socket/server.scm b/web/socket/server.scm index 85395a3..7b6463e 100644 --- a/web/socket/server.scm +++ b/web/socket/server.scm @@ -26,12 +26,12 @@ (define-module (web socket server) #:use-module (ice-9 match) #:use-module (rnrs bytevectors) - #:use-module (base64) - #:use-module (sha-1) #:use-module (web request) #:use-module (web response) #:use-module (web uri) + #:use-module (web socket base64) #:use-module (web socket frame) + #:use-module (web socket sha-1) #:export (make-server-socket run-server)) diff --git a/sha-1.scm b/web/socket/sha-1.scm index 8a49e88..95a13aa 100644 --- a/sha-1.scm +++ b/web/socket/sha-1.scm @@ -27,7 +27,7 @@ ;; TODO: give an error if more than 2^64 bits are processed? ;; TODO: Optimize. Should be simple enough with the help of a profiler. -(library (sha-1) +(library (web socket sha-1) (export make-sha-1 sha-1-update! sha-1-finish! sha-1-clear! sha-1 sha-1-copy sha-1-finish sha-1-transform! ;for interested parties only |