;;;; $Id: package.lisp 567 2010-09-30 08:45:35Z ctian $ ;;;; $URL: svn+ssh://common-lisp.net/project/usocket/svn/usocket/tags/0.5.1/package.lisp $ ;;;; See the LICENSE file for licensing information. (in-package :usocket-system) (defpackage :usocket (:use :common-lisp #+abcl :java) (:export #:*wildcard-host* #:*auto-port* #:*remote-host* ; special variables (udp) #:*remote-port* #:+max-datagram-packet-size+ #:socket-connect ; socket constructors and methods #:socket-listen #:socket-accept #:socket-close #:get-local-address #:get-peer-address #:get-local-port #:get-peer-port #:get-local-name #:get-peer-name #:socket-send ; udp function (send) #:socket-receive ; udp function (receive) #:socket-server ; udp server #:wait-for-input ; waiting for input-ready state (select() like) #:make-wait-list #:add-waiter #:remove-waiter #:remove-all-waiters #:with-connected-socket ; convenience macros #:with-server-socket #:with-client-socket #:with-socket-listener #:usocket ; socket object and accessors #:stream-usocket #:stream-server-usocket #:socket #:socket-stream #:datagram-usocket #:host-byte-order ; IP(v4) utility functions #:hbo-to-dotted-quad #:hbo-to-vector-quad #:vector-quad-to-dotted-quad #:dotted-quad-to-vector-quad #:ip= #:ip/= #:integer-to-octet-buffer ; Network utility functions #:octet-buffer-to-integer #:port-to-octet-buffer #:port-from-octet-buffer #:ip-to-octet-buffer #:ip-from-octet-buffer #:with-mapped-conditions #:socket-condition ; conditions #:ns-condition #:socket-error ; errors #:ns-error #:unknown-condition #:ns-unknown-condition #:unknown-error #:ns-unknown-error #:socket-warning ; warnings (udp) #:insufficient-implementation ; conditions regarding usocket support level #:unsupported #:unimplemented)) (in-package :usocket) ;;; Logical Pathname Translations, learn from CL-HTTP source code (eval-when (:load-toplevel :execute) (let* ((defaults *load-truename*) (home (make-pathname :name :wild :type :wild :directory (append (pathname-directory defaults) '(:wild-inferiors)) :host (pathname-host defaults) :defaults defaults :version :newest))) (setf (logical-pathname-translations "usocket") `(("**;*.*" ,home)))))