summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-18 10:58:23 -0700
committerThomas Hintz <t@thintz.com>2015-04-18 10:58:23 -0700
commitfde9c289cc527f57c6eb7af99aa0738ff91d54e4 (patch)
tree3e770be5247a0bbdfe10a89d25c9544446b01413
parent7f0b9d28734b173c66657e3b0a29a117dae7e51f (diff)
downloadwebsockets-fde9c289cc527f57c6eb7af99aa0738ff91d54e4.tar.gz
Removing unused code.
-rw-r--r--websockets.scm41
1 files changed, 1 insertions, 40 deletions
diff --git a/websockets.scm b/websockets.scm
index 11c6355..7b2087d 100644
--- a/websockets.scm
+++ b/websockets.scm
@@ -226,46 +226,7 @@
(define (read-frame-payload inbound-port frame-payload-length)
(let ((masked-data (make-string frame-payload-length)))
(read-string! frame-payload-length masked-data inbound-port)
- masked-data)
-;; (let* ((masked-data (make-string frame-payload-length)))
-;; (read-string! frame-payload-length masked-data inbound-port)
-
-;; (define tmaskkey (make-u8vector 4 #f #t #t))
-;; (u8vector-set! tmaskkey 0 (vector-ref frame-masking-key 0))
-;; (u8vector-set! tmaskkey 1 (vector-ref frame-masking-key 1))
-;; (u8vector-set! tmaskkey 2 (vector-ref frame-masking-key 2))
-;; (u8vector-set! tmaskkey 3 (vector-ref frame-masking-key 3))
-;; (define-external wsmaskkey blob (u8vector->blob/shared tmaskkey))
-
-;; (define-external wslen int frame-payload-length)
-
-;; (define-external wsv scheme-pointer masked-data)
-
-;; (if frame-masked
-;; (begin
-;; ((foreign-lambda* void ()
-;; "
-;; const unsigned char* maskkey2 = wsmaskkey;
-;; const unsigned int kd = *(unsigned int*)maskkey2;
-;; const unsigned char* __restrict kb = maskkey2;
-
-
-;; for (int i = wslen >> 2; i != 0; --i)
-;; {
-;; *((unsigned int*)wsv) ^= kd;
-;; wsv += 4;
-;; }
-
-;; const int rem = wslen & 3;
-;; for (int i = 0; i < rem; ++i)
-;; {
-;; *((unsigned int*)wsv++) ^= kb[i];
-;; }
-;; "
-;; ))
-;; masked-data)
-;; masked-data))
- )
+ masked-data))
(define (read-frame total-size ws)
(let* ((inbound-port (websocket-inbound-port ws))