Changeset 27256 in project
- Timestamp:
- 08/17/12 05:35:50 (9 years ago)
- Location:
- release/4/socket/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/socket/trunk/socket.scm
r26915 r27256 567 567 (define-inline (%socket-fileno so) 568 568 (##sys#slot so 1)) 569 (define-inline (check-socket so loc) 570 (unless (socket? so) 571 (type-error loc "argument is not a socket" so))) 569 572 570 573 (define-record-printer (socket s out) … … 754 757 "receive buffer must be a blob or a string" so)))) 755 758 (end (or end buflen))) 759 (check-socket so 'socket-receive!) 756 760 (##sys#check-exact start) 757 761 (##sys#check-exact end) … … 786 790 ;; TODO: Should LEN default to socket-receive-buffer-size ? 787 791 (define (socket-receive so len #!optional (flags 0)) 788 (let ((buf (make-string len))) 792 (let ((buf (make-string len))) ; checks len exact 793 (check-socket so 'socket-receive) 794 (##sys#check-exact flags) 789 795 (let ((n (%socket-receive! so buf 0 len flags (socket-receive-timeout)))) 790 796 (if (= len n) … … 803 809 "receive buffer must be a blob or a string" so)))) 804 810 (end (or end buflen))) 811 (check-socket so 'socket-receive-from!) 805 812 (##sys#check-exact start) 806 813 (##sys#check-exact end) … … 858 865 ;; See TODOs at socket-receive. 859 866 (define (socket-receive-from so len #!optional (flags 0)) 860 (let ((buf (make-string len))) 867 (let ((buf (make-string len))) ; checks len exact 868 (check-socket so 'socket-receive-from) 869 (##sys#check-exact flags) 861 870 (let ((R (%socket-receive-from! so buf 0 len flags (socket-receive-timeout)))) 862 871 (let ((n (car R))) … … 878 887 "send buffer must be a blob or a string" so)))) 879 888 (end (or end buflen))) 889 (check-socket so 'socket-send) 880 890 (##sys#check-exact start) 881 891 (##sys#check-exact end) … … 928 938 "send buffer must be a blob or a string" so)))) 929 939 (end (or end buflen))) 940 (check-socket so 'socket-send-all) 930 941 (##sys#check-exact start) 931 942 (##sys#check-exact end) … … 948 959 "send buffer must be a blob or a string" so)))) 949 960 (end (or end buflen))) 961 (check-socket so 'socket-send-to) 950 962 (##sys#check-exact start) 951 963 (##sys#check-exact end) -
release/4/socket/trunk/socket.setup
r26915 r27256 9 9 'socket 10 10 '("socket.so" "socket.import.so") 11 '((version "0.2. 1")))11 '((version "0.2.2")))
Note: See TracChangeset
for help on using the changeset viewer.