Changeset 11423


Ignore:
Timestamp:
Nov 25, 2008, 8:51:16 AM (11 years ago)
Author:
gb
Message:

Don't enable the console window. (Will try to use new scheme soon.)

File:
1 edited

Legend:

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

    r9772 r11423  
    104104;;; open for reading and writing and the file will have mode #o600
    105105;;; (readable/ writable by owner, not accessible to others.)  Unlink
    106 ;;; the file as soon as it's opened, to help exposing its contents
     106;;; the file as soon as it's opened, to help avoid exposing its contents
    107107;;; (and to ensure that the file gets deleted when the application
    108108;;; quits.)
     
    150150         (fd-inode (fd)
    151151           (nth-value 4 (ccl::%fstat fd))))
    152     (cond ((and (eql (fd-inode 0) (path-inode "/dev/null"))
    153                 (eql (fd-inode 1) (fd-inode 2)))
     152    (cond ((and nil
     153                (eql (fd-inode 0) (path-inode "/dev/null"))
     154                (eql (fd-inode 1) (fd-inode 2))
     155                (rlet ((pflags :long))
     156                  (#_fcntl 2 #$F_GETFL :address pflags)
     157                  (let* ((accmode (logand #$O_ACCMODE (pref flags :long))))
     158                    (or (eql #$O_RDONLY accmode)
     159                        (eql #$O_RDWR accmode)))))
    154160           (let* ((win (#/typeoutWindowWithTitle: (find-class 'console-window) #@"Console")))
     161
     162
    155163             (#/redirectStandardOutput win)
    156164             (let* ((tv (typeout-view-text-view (typeout-window-typeout-view win))))
Note: See TracChangeset for help on using the changeset viewer.