Changeset 11423

Timestamp:

Nov 25, 2008, 8:51:16 AM (12 years ago)

Author:

gb

Message:

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

File:

• trunk/source/cocoa-ide/console-window.lisp (modified) (2 diffs)

trunk/source/cocoa-ide/console-window.lisp

@@ -104 +104 @@
 ;;; open for reading and writing and the file will have mode #o600
 ;;; (readable/ writable by owner, not accessible to others.)  Unlink
-;;; the file as soon as it's opened, to help exposing its contents
+;;; the file as soon as it's opened, to help avoid exposing its contents
 ;;; (and to ensure that the file gets deleted when the application
 ;;; quits.)
@@ -150 +150 @@
          (fd-inode (fd)
            (nth-value 4 (ccl::%fstat fd))))
-    (cond ((and (eql (fd-inode 0) (path-inode "/dev/null"))
-                (eql (fd-inode 1) (fd-inode 2)))
+    (cond ((and nil
+                (eql (fd-inode 0) (path-inode "/dev/null"))
+                (eql (fd-inode 1) (fd-inode 2))
+                (rlet ((pflags :long))
+                  (#_fcntl 2 #$F_GETFL :address pflags)
+                  (let* ((accmode (logand #$O_ACCMODE (pref flags :long))))
+                    (or (eql #$O_RDONLY accmode)
+                        (eql #$O_RDWR accmode)))))
            (let* ((win (#/typeoutWindowWithTitle: (find-class 'console-window) #@"Console")))
+
+
              (#/redirectStandardOutput win)
              (let* ((tv (typeout-view-text-view (typeout-window-typeout-view win))))