Changeset 9791
- Timestamp:
- Jun 19, 2008, 8:42:57 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/level-1/l1-sockets.lisp
r8939 r9791 1098 1098 (hp (* (struct :hostent))) 1099 1099 (herr :signed 0)) 1100 1101 1102 1103 1104 1105 1106 1107 1108 (if (and (eql res 0) (eql err 0))1109 1110 1111 1100 (do* ((buflen 1024 (+ buflen buflen))) () 1101 (declare (fixnum buflen)) 1102 (%stack-block ((buf buflen)) 1103 (let* ((res (#_gethostbyname_r name hostent buf buflen hp herr))) 1104 (declare (fixnum res)) 1105 (unless (eql res #$ERANGE) 1106 (return 1107 (let* ((err (pref herr :signed))) 1108 (if (and (eql res 0) (not (%null-ptr-p (%get-ptr hp)))) 1109 (%get-unsigned-long 1110 (%get-ptr (pref (%get-ptr hp) :hostent.h_addr_list))) 1111 (values nil (- err)))))))))))) 1112 1112 1113 1113 (defun _getservbyname (name proto)
Note: See TracChangeset
for help on using the changeset viewer.