[Eclipse-cvs] CVS eclipse/lib/ice

[ihatchondo]

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)