Update of /project/eclipse/cvsroot/eclipse/lib/ice In directory cl-net:/tmp/cvs-serv12924/lib/ice
Modified Files: package.lisp ICE-lib.lisp Log Message: Fix: missing coma separated parsing was missing when passing the SESSION_MANAGER value to the underliying ice-lib:open-connection
--- /project/eclipse/cvsroot/eclipse/lib/ice/package.lisp 2005/12/06 13:52:47 1.7 +++ /project/eclipse/cvsroot/eclipse/lib/ice/package.lisp 2009/11/03 11:41:52 1.8 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: COMMON-LISP; -*- -;;; $Id: package.lisp,v 1.7 2005/12/06 13:52:47 ihatchondo Exp $ +;;; $Id: package.lisp,v 1.8 2009/11/03 11:41:52 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: ICE Library ;;; Created: 2004 01 15 15:28 @@ -219,6 +219,7 @@ #:protocol-reply-p #:protocol-setup-p #:request-p + #:split-ids #:setup-failed-p #:unknown-protocol-p #:want-to-close-p --- /project/eclipse/cvsroot/eclipse/lib/ice/ICE-lib.lisp 2005/12/06 13:52:47 1.13 +++ /project/eclipse/cvsroot/eclipse/lib/ice/ICE-lib.lisp 2009/11/03 11:41:52 1.14 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: ICE-LIB; -*- -;;; $Id: ICE-lib.lisp,v 1.13 2005/12/06 13:52:47 ihatchondo Exp $ +;;; $Id: ICE-lib.lisp,v 1.14 2009/11/03 11:41:52 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: ICE Library ;;; Created: 2004 01 15 15:28 @@ -301,6 +301,19 @@ ;;;; ;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun split-ids (ids) + "Returns a list of string that is the result of splitting the given one + assuming it is a coma separated list. For instance if the given string + is: "local/zorglub:/tmp/.ICE-unix/3493,unix/zorglub:/tmp/.ICE-unix/3493" + then the returned list is: + '("local/zorglub:/tmp/.ICE-unix/3493" + "unix/zorglub:/tmp/.ICE-unix/3493")" + (declare (type string ids)) + (loop for i = 0 then (+ 1 coma) + for coma = (position #, ids :start i) + for id = (string-trim '(#\Space #\Tab #\Newline) (subseq ids i coma)) + when (> (length id) 0) collect id while coma)) + (defun parse-network-id (network-id) "Returns as a multiple values: - connection-type keyword (or :local :tcp :decnet)