Function: eudc-ph-open-session

eudc-ph-open-session is a byte-compiled function defined in eudcb-ph.el.gz.

Signature

(eudc-ph-open-session &optional SERVER)

Documentation

Open a connection to the given CCSO/QI SERVER.

SERVER is either a string naming the server or a list (NAME PORT).

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/eudcb-ph.el.gz
(defun eudc-ph-open-session (&optional server)
  "Open a connection to the given CCSO/QI SERVER.
SERVER is either a string naming the server or a list (NAME PORT)."
  (let (process
	host
	port)
    (catch 'done
      (if (null server)
	  (setq server (or eudc-server
			   (call-interactively 'eudc-ph-set-server))))
      (string-match "\\(.*\\)\\(:\\(.*\\)\\)?" server)
      (setq host (match-string 1 server))
      (setq port (or (match-string 3 server)
		     eudc-ph-default-server-port))
      (setq eudc-ph-process-buffer (get-buffer-create (format " *PH-%s*" host)))
      (with-current-buffer eudc-ph-process-buffer
	(erase-buffer)
        (setq eudc-ph-read-point (point)))
      (setq process (open-network-stream "ph" eudc-ph-process-buffer host port))
      (if (null process)
	  (throw 'done nil))
      (set-process-query-on-exit-flag process t)
      process)))