Changeset 15583 in project for chicken/trunk

Timestamp:

08/27/09 15:47:45 (11 years ago)

Author:

felix winkelmann

Message:

tcp ports allow accessing buffer and buffer size; wrapper for setting port data

Location:

chicken/trunk

Files:

• library.scm (modified) (2 diffs)
• ports.scm (modified) (2 diffs)
• tcp.scm (modified) (4 diffs)

chicken/trunk/library.scm

@@ -145 +145 @@
      ##sys#string->symbol ##sys#symbol->string ##sys#dynamic-unwind ##sys#pathname-resolution
      ##sys#platform-fixup-pathname ##sys#expand-home-path ##sys#string-append ##sys#symbol->qualified-string
-     ##sys#error-handler ##sys#signal ##sys#abort ##sys#port-data
+     ##sys#error-handler ##sys#signal ##sys#abort ##sys#port-data ##sys#set-port-data!
      ##sys#reset-handler ##sys#exit-handler ##sys#dynamic-wind ##sys#port-line
      ##sys#grow-vector ##sys#run-pending-finalizers ##sys#peek-char-0 ##sys#read-char-0
@@ -1830 +1830 @@
 
 (define (##sys#port-data port) (##sys#slot port 9))
+(define (##sys#set-port-data! port data) (##sys#setslot port 9 data))
 
 (define ##sys#platform-fixup-pathname

chicken/trunk/ports.scm

@@ -227 +227 @@
            (data (vector #f))
            (port (##sys#make-port #t class "(custom)" 'custom)) )
-      (##sys#setslot port 9 data) 
+      (##sys#set-port-data! port data) 
       port) ) )
 
@@ -251 +251 @@
              (data (vector #f))
              (port (##sys#make-port #f class "(custom)" 'custom)) )
-        (##sys#setslot port 9 data) 
+        (##sys#set-port-data! port data) 
         port) ) ) )

chicken/trunk/tcp.scm

@@ -39 +39 @@
    ##net#socket ##net#bind ##net#connect ##net#listen ##net#accept make-parameter ##sys#string-append ##sys#tcp-port->fileno
    ##sys#check-port ##sys#port-data ##sys#thread-block-for-i/o! make-string make-input-port make-output-port ##sys#substring
-   substring ##sys#make-c-string ##sys#schedule
+   substring ##sys#make-c-string ##sys#schedule ##sys#set-port-data!
    ##net#close ##net#recv ##net#send ##net#select ##net#select-write ##net#gethostaddr ##net#io-ports ##sys#update-errno
    ##sys#error ##sys#signal-hook ##net#getservbyname ##net#parse-host ##net#fresh-addr
@@ -334 +334 @@
         (##sys#signal-hook #:network-error (##sys#string-append "cannot create TCP ports - " strerror)) )
       (let* ((buf (make-string +input-buffer-size+))
-             (data (vector fd #f #f))
+             (data (vector fd #f #f buf 0))
              (buflen 0)
              (bufindex 0)
@@ -368 +368 @@
                           (else
                            (set! buflen n)
+                           (##sys#setislot data 4 n)
                            (set! bufindex 0) ) ) ) ) ) )
              (in
@@ -501 +502 @@
         (##sys#setslot in 7 'socket)
         (##sys#setslot out 7 'socket)
-        (##sys#setslot in 9 data)
-        (##sys#setslot out 9 data)
+        (##sys#set-port-data! in data)
+        (##sys#set-port-data! out data)
         (values in out) ) ) ) )