Changeset 12829


Ignore:
Timestamp:
Sep 12, 2009, 7:36:43 PM (10 years ago)
Author:
gb
Message:

Don't define or call CONNECT-TO-CONSOLE-WINDOW.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-window.lisp

    r12707 r12829  
    9191        (push c *event-process-reported-conditions*)
    9292        (cond ((slot-value process 'have-interactive-terminal-io)
    93                (ccl::application-error ccl::*application* c frame-pointer))
    94               #+windows-target
    95               ((connect-to-console-window process)
    9693               (ccl::application-error ccl::*application* c frame-pointer))
    9794              (t
     
    123120                   ))))))))
    124121
    125 #+windows-target
    126 (defun connect-to-console-window (process)
    127   (#_AllocConsole)
    128   (when (not (%null-ptr-p (#_GetStdHandle #$STD_OUTPUT_HANDLE)))
    129     (flet ((set-lisp-stream-fd (stream fd)
    130              (setf (ccl::ioblock-device (ccl::stream-ioblock stream t)) fd)))
    131       (let ((input-handle (#_GetStdHandle #$STD_INPUT_HANDLE))
    132             (output-handle (#_GetStdHandle #$STD_OUTPUT_HANDLE)))
    133         (set-lisp-stream-fd ccl::*stdin* (%ptr-to-int input-handle))
    134         (set-lisp-stream-fd ccl::*stdout* (%ptr-to-int output-handle)))
    135     ;; Ensure that output to the stream ccl::*stdout* -
    136     ;; which is connected to fd 1 - is flushed periodically
    137     ;; by the housekeeping task.  (ccl::*stdout* is
    138     ;; typically the output side of the two-way stream
    139     ;; which is the global/static value of *TERMINAL-IO*;
    140     ;; many standard streams are synonym streams to
    141     ;; *TERMINAL-IO*.
    142     (ccl::add-auto-flush-stream ccl::*stdout*)
    143     (setf (slot-value process 'have-interactive-terminal-io) t))))
    144122
    145123
Note: See TracChangeset for help on using the changeset viewer.