| ... |
... |
@@ -75,8 +75,8 @@ |
|
75
|
75
|
;;; PROCESS-STATUS -- Public.
|
|
76
|
76
|
;;;
|
|
77
|
77
|
(defun process-status (proc)
|
|
78
|
|
- "Return the current status of process. The result is one of :running,
|
|
79
|
|
- :stopped, :exited, :signaled."
|
|
|
78
|
+ "Return the current status of process. The result is one of
|
|
|
79
|
+ :running,:stopped, :continued, :exited, :signaled."
|
|
80
|
80
|
(declare (type process proc))
|
|
81
|
81
|
(get-processes-status-changes)
|
|
82
|
82
|
(process-%status proc))
|
| ... |
... |
@@ -99,6 +99,32 @@ |
|
99
|
99
|
(system:serve-all-events 1))
|
|
100
|
100
|
proc)
|
|
101
|
101
|
|
|
|
102
|
+;;; Add docstrings for the other public PROCESS accessors.
|
|
|
103
|
+(setf (documentation 'process-pid 'function)
|
|
|
104
|
+ _N"PID of child process.")
|
|
|
105
|
+(setf (documentation 'process-exit-code 'function)
|
|
|
106
|
+ _N"Exit code for the process if it is :exited; the termination signal
|
|
|
107
|
+ if it is :signaled; 0 if it is :stopped. It is undefined in all
|
|
|
108
|
+ other cases.")
|
|
|
109
|
+(setf (documentation 'process-core-dumped 'function)
|
|
|
110
|
+ _N"Non-NIL if the process was terminated and a core image was dumped.")
|
|
|
111
|
+(setf (documentation 'process-pty 'function)
|
|
|
112
|
+ _N"The two-way stream connected to the child's Unix pty connection or NIL.")
|
|
|
113
|
+(setf (documentation 'process-input 'function)
|
|
|
114
|
+ _N"Stream to child's input or NIL.")
|
|
|
115
|
+(setf (documentation 'process-output 'function)
|
|
|
116
|
+ _N"Stream from child's output or NIL.")
|
|
|
117
|
+(setf (documentation 'process-error 'function)
|
|
|
118
|
+ _N"Stream from child's error output or NIL.")
|
|
|
119
|
+(setf (documentation 'process-status-hook 'function)
|
|
|
120
|
+ _N"The function to be called whenever process's changes status. This
|
|
|
121
|
+ function takes the process as a required argument. This is
|
|
|
122
|
+ setf'able.")
|
|
|
123
|
+(setf (documentation 'process-plist 'function)
|
|
|
124
|
+ _N"Returns annotations supplibed by users; it is setf'able. This is
|
|
|
125
|
+ available for users to associcate information with the process
|
|
|
126
|
+ without having to build a-lists or hash tables of process
|
|
|
127
|
+ structures.")
|
|
102
|
128
|
|
|
103
|
129
|
#-hpux
|
|
104
|
130
|
;;; FIND-CURRENT-FOREGROUND-PROCESS -- internal
|