Changeset 15583 in project for chicken/trunk
- Timestamp:
- 08/27/09 15:47:45 (11 years ago)
- Location:
- chicken/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/library.scm
r15579 r15583 145 145 ##sys#string->symbol ##sys#symbol->string ##sys#dynamic-unwind ##sys#pathname-resolution 146 146 ##sys#platform-fixup-pathname ##sys#expand-home-path ##sys#string-append ##sys#symbol->qualified-string 147 ##sys#error-handler ##sys#signal ##sys#abort ##sys#port-data 147 ##sys#error-handler ##sys#signal ##sys#abort ##sys#port-data ##sys#set-port-data! 148 148 ##sys#reset-handler ##sys#exit-handler ##sys#dynamic-wind ##sys#port-line 149 149 ##sys#grow-vector ##sys#run-pending-finalizers ##sys#peek-char-0 ##sys#read-char-0 … … 1830 1830 1831 1831 (define (##sys#port-data port) (##sys#slot port 9)) 1832 (define (##sys#set-port-data! port data) (##sys#setslot port 9 data)) 1832 1833 1833 1834 (define ##sys#platform-fixup-pathname -
chicken/trunk/ports.scm
r13543 r15583 227 227 (data (vector #f)) 228 228 (port (##sys#make-port #t class "(custom)" 'custom)) ) 229 (##sys#set slot port 9data)229 (##sys#set-port-data! port data) 230 230 port) ) ) 231 231 … … 251 251 (data (vector #f)) 252 252 (port (##sys#make-port #f class "(custom)" 'custom)) ) 253 (##sys#set slot port 9data)253 (##sys#set-port-data! port data) 254 254 port) ) ) ) -
chicken/trunk/tcp.scm
r14101 r15583 39 39 ##net#socket ##net#bind ##net#connect ##net#listen ##net#accept make-parameter ##sys#string-append ##sys#tcp-port->fileno 40 40 ##sys#check-port ##sys#port-data ##sys#thread-block-for-i/o! make-string make-input-port make-output-port ##sys#substring 41 substring ##sys#make-c-string ##sys#schedule 41 substring ##sys#make-c-string ##sys#schedule ##sys#set-port-data! 42 42 ##net#close ##net#recv ##net#send ##net#select ##net#select-write ##net#gethostaddr ##net#io-ports ##sys#update-errno 43 43 ##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)) ) 335 335 (let* ((buf (make-string +input-buffer-size+)) 336 (data (vector fd #f #f ))336 (data (vector fd #f #f buf 0)) 337 337 (buflen 0) 338 338 (bufindex 0) … … 368 368 (else 369 369 (set! buflen n) 370 (##sys#setislot data 4 n) 370 371 (set! bufindex 0) ) ) ) ) ) ) 371 372 (in … … 501 502 (##sys#setslot in 7 'socket) 502 503 (##sys#setslot out 7 'socket) 503 (##sys#set slot in 9data)504 (##sys#set slot out 9data)504 (##sys#set-port-data! in data) 505 (##sys#set-port-data! out data) 505 506 (values in out) ) ) ) ) 506 507
Note: See TracChangeset
for help on using the changeset viewer.