Changeset 11423
- Timestamp:
- Nov 25, 2008, 8:51:16 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/console-window.lisp
r9772 r11423 104 104 ;;; open for reading and writing and the file will have mode #o600 105 105 ;;; (readable/ writable by owner, not accessible to others.) Unlink 106 ;;; the file as soon as it's opened, to help exposing its contents106 ;;; the file as soon as it's opened, to help avoid exposing its contents 107 107 ;;; (and to ensure that the file gets deleted when the application 108 108 ;;; quits.) … … 150 150 (fd-inode (fd) 151 151 (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))))) 154 160 (let* ((win (#/typeoutWindowWithTitle: (find-class 'console-window) #@"Console"))) 161 162 155 163 (#/redirectStandardOutput win) 156 164 (let* ((tv (typeout-view-text-view (typeout-window-typeout-view win))))
Note: See TracChangeset
for help on using the changeset viewer.