Ignore:
Timestamp:
May 28, 2009, 4:15:35 PM (11 years ago)
Author:
mikel
Message:

added a bunch of the server-side request-handling code for the swank-listener.

switched the swank loader back on (but made sure swank isn't loaded unless the user default says it should be)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/swank-ccl-ide.el

    r12136 r12150  
    3333  (message (concat "CCL swank listener: " string)))
    3434
     35(defvar $emacs-ccl-swank-request-marker "[emacs-ccl-swank-request]")
     36
    3537(defun request-ccl-load-swank (&optional
    3638                               (host *ccl-swank-listener-host*)
    37                                (port *ccl-swank-listener-port*))
    38   (let ((ping "[emacs-ccl-swank-request]" (swank-loader-path) "\n")
    39         (ccl-proc (open-network-stream "SLIME CCL Swank" nil host port)))
     39                               (listener-port *ccl-swank-listener-port*)
     40                               (connection-port slime-port))
     41  (let ((ping (concat $emacs-ccl-swank-request-marker (format "%d" connection-port) ":" (swank-loader-path) "\n"))
     42        (ccl-proc (open-network-stream "SLIME CCL Swank" nil host listener-port)))
    4043    (setq *ccl-swank-listener-proc* ccl-proc)
    4144    (set-process-filter ccl-proc 'slime-ccl-swank-filter)
     
    4346    (process-send-string ccl-proc ping)
    4447    ccl-proc))
     48
Note: See TracChangeset for help on using the changeset viewer.