[usocket-devel] [Patch]: Clisp can't find gethostname on Linux

[Chun Tian (binghe)]

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 at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel