Hi, Stas Boukarev

Sorry for late response. Your patch is reasonable. Thanks. I'll merge it into USOCKET and you'll see your changes in its next release soon.

--binghe

在 2010-5-15，13:29， Stas Boukarev 写道：

I attached a patch which allows Clisp to find gethostname on Linux. Index: clisp.lisp =================================================================== --- clisp.lisp (revision 521) +++ clisp.lisp (working copy) @@ -7,15 +7,16 @@

;; utility routine for looking up the current host name -(FFI:DEF-CALL-OUT get-host-name-internal

•     (:name "gethostname")
  

•     (:arguments (name (FFI:C-PTR (FFI:C-ARRAY-MAX ffi:character 256))
  

•                       :OUT :ALLOCA)
  

•                 (len ffi:int))
  

•     #+win32 (:library "WS2_32")
  

•     (:language #-win32 :stdc
  

•                #+win32 :stdc-stdcall)
  

•     (:return-type ffi:int))
  

+(ffi:def-call-out get-host-name-internal

• (:name "gethostname")
• (:arguments (name (ffi:c-ptr (ffi:c-array-max ffi:character 256))

•                :out :alloca)
  

•          (len ffi:int))
  

• #+win32 (:library "WS2_32")
• #-win32 (:library :default)
• (:language #-win32 :stdc

•         #+win32 :stdc-stdcall)
  

• (:return-type ffi:int))

(defun get-host-name ()

-- With Best Regards, Stas. _______________________________________________ usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel