Mercurial > hg > xemacs-beta

comparison lisp/modes/view-process-system-specific.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents
children 6075d714658b
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; view-process-system-specific.el --- System specific stuff for view-process
2
3 ;; Copyright (C) 1995 Heiko Muenkel
4
5 ;; Author: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
6 ;; Keywords: processes
7
8 ;; This file is part of XEmacs.
9
10 ;;; $Id: view-process-system-specific.el,v 1.2 1997/06/26 02:31:06 steve Exp $
11
12 ;; XEmacs is free software; you can redistribute it and/or modify it
13 ;; under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation; either version 2, or (at your
15 ;; option) any later version.
16
17 ;; XEmacs is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. if not, write to the Free
24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; 02111-1307, USA.
26
27 ;;; Synched up with: Emacs 20.1.
28
29 ;;; Commentary:
30
31 ;; This file contains system specific stuff for the
32 ;; view-process-mode. It isn't necessary, that each systems has
33 ;; an entry in this file, because there are default values, which
34 ;; are used, if no entry exists.
35
36 ;; Installation:
37 ;;
38 ;; Put this file in one of you lisp load path directories.
39 ;;
40
41 ;;; Code:
42
43 (provide 'view-process-system-specific)
44
45 (defvar View-process-specific-system-list
46 '(("linux" nil "bsd"
47 nil
48 View-process-kill-signals-linux)
49 ("sunos" "4" "bsd"
50 View-process-field-name-descriptions-sunos4
51 View-process-kill-signals-sunos4)
52 ("sunos" "5" "system-v"
53 View-process-field-name-descriptions-sunos5
54 View-process-kill-signals-sunos5)
55 ("irix" nil "system-v"
56 View-process-field-name-descriptions-irix
57 View-process-kill-signals-irix)
58 ("hp-ux" nil "system-v"
59 View-process-field-name-descriptions-hpux
60 View-process-kill-signals-hpux)
61 )
62 "This is a list with all systems, for which specific information about
63 allowed signals and about the ps output exists. Set it to nil, if you don't
64 want to use this specific information.
65 The first string of each sublist is the name of the system, the second
66 string is the mayor version number or nil. The third one determines,
67 if the ps command is BSD or System V like. The mayor version is only
68 necessary, if there are BSD and System V versions with the same system
69 names (SUN has done such a stupid system naming.), otherwise it is nil.
70 The fifth entry is nil or the name of a special list with field name
71 descriptions. The sixth entry is nil or the name of a special list with
72 kill signals.")
73
74 ;;; signals
75
76 (defvar View-process-kill-signals-bsd nil
77 "An alist with the possible signals for the kill command for BSD
78 systems. It is only used, if the system type can't be determined or if
79 it is not in the `View-process-specific-system-list'.")
80
81 (defvar View-process-kill-signals-system-v nil
82 "An alist with the possible signals for the kill command for BSD
83 systems. It is only used, if the system type can't be determined or if
84 it is not in the `View-process-specific-system-list'.")
85
86 (defvar View-process-kill-signals-sunos4
87 '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
88 ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
89 ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
90 ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
91 ("SIGURG" "16") ("SIGSTOP" "17") ("SIGTSTP" "18") ("SIGCONT" "19")
92 ("SIGCHLD" "20") ("SIGCLD" "20") ("SIGTTIN" "21") ("SIGTTOU" "22")
93 ("SIGIO" "23") ("SIGPOLL" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25")
94 ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28")
95 ("SIGLOST" "29") ("SIGUSR1" "30") ("SIGUSR2" "31")
96 ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
97 ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
98 ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
99 ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
100 ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
101 ("29" "29") ("30" "30") ("31" "31"))
102 "An alist with the possible signals for the kill command for SunOS 4.
103 It may be that you've other signals on your system. Try to test
104 it with \"kill -l\" in a shell.")
105
106 (defvar View-process-kill-signals-sunos5
107 '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
108 ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
109 ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
110 ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
111 ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCHLD" "18") ("SIGCLD" "18")
112 ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
113 ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25")
114 ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29")
115 ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIGWAITING" "32") ("SIGLWP" "33")
116 ("SIGFREEZE" "34") ("SIGTHAW" "36") ("SIGRTMIN" "36") ("SIGRTMAX" "43")
117 ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
118 ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
119 ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
120 ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
121 ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
122 ("29" "29") ("30" "30") ("31" "31") ("32" "32") ("33" "33")
123 ("34" "34") ("36" "36") ("43" "43"))
124 "An alist with the possible signals for the kill command for SunOS 5.
125 It may be that you've other signals on your system. Try to test
126 it with \"kill -l\" in a shell.")
127
128 (defvar View-process-kill-signals-irix
129 '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
130 ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
131 ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
132 ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
133 ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18")
134 ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
135 ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25")
136 ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29")
137 ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIG32" "32")
138 ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
139 ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
140 ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
141 ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
142 ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
143 ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
144 "An alist with the possible signals for the kill command for IRIX.
145 It may be that you've other signals on your system. Try to test
146 it with \"kill -l\" in a shell.")
147
148 (defvar View-process-kill-signals-linux
149 '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
150 ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8")
151 ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12")
152 ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17")
153 ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21")
154 ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25")
155 ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30")
156 ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
157 ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
158 ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19")
159 ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24")
160 ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("30" "30"))
161 "An alist with the possible signals for the kill command for linux.
162 It may be that you've other signals on your system. Try to test
163 it with \"kill -l\" in a shell.")
164
165 ;; all Linux signals
166 ;(defvar View-process-kill-signals
167 ; '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
168 ; ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8")
169 ; ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12")
170 ; ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17")
171 ; ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21")
172 ; ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25")
173 ; ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30")
174 ; ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
175 ; ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
176 ; ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19")
177 ; ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24")
178 ; ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("30" "30"))
179 ; "An alist with the possible signals for the kill command.
180 ;It may be that you've other signals on your system. Try to test
181 ;it with \"kill -l\" in a shell.")
182
183 (defvar View-process-kill-signals-hpux
184 '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4")
185 ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7")
186 ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11")
187 ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15")
188 ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18")
189 ("SIGPWR" "19") ("SIGVTALRM" "20") ("SIGPROF" "21") ("SIGIO" "22")
190 ("SIGWINCH" "23") ("SIGSTOP" "24") ("SIGTSTP" "25") ("SIGCONT" "26")
191 ("SIGTTIN" "27") ("SIGTTOU" "28") ("SIGURG" "29") ("SIGLOST" "30")
192 ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7")
193 ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13")
194 ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18")
195 ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23")
196 ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28")
197 ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
198 "An alist with the possible signals for the kill command for HP-UX.
199 It may be that you've other signals on your system. Try to test
200 it with \"kill -l\" in a shell.")
201
202 ;;; process field descriptions
203
204 ;; more general descriptions for BSD and System V
205
206 (defvar View-process-field-name-descriptions-bsd
207 '(
208 ("CP" "Short-term CPU utilization factor (used in scheduling). ")
209 ("F" "Flags (in hex) associated with process as in <sys/proc.h>. ")
210 ("LIM" ("Soft limit on memory used. "
211 ("xx" "xx=no limit. ")))
212 ("RE" "Residency time (seconds in core)")
213 ("SIZE" "Virtual image size, size data+stack (in KByte).")
214 ("SL" "Sleep time of the process (seconds blocked).")
215 ("STAT" ("Status. "
216 ("R" "R=runnable. ")
217 ("S" "S=sleeping < 20s. ")
218 ("D" "D=un-interruptible wait (eg disk or NFS I/O). ")
219 ("T" "T=stopped. ")
220 ("Z" "Z=zombie (terminated). ")
221 ("W" "W=Swapped out. ")
222 ("I" "I=idle, sleeping > 20s. ")
223 ("P" "P=Page Wait." )
224 ("N" "N=started with nice. ")
225 (">" ">=exceeded memory limit. ")
226 ("SW" "S=sleeping. W=waiting on an event. ")
227 ("IW" "I=intermediate status. W=waiting on an event. ")))
228 ("SZ" "Virtual image size, size data+stack (in KByte). ")
229 ("WCHAN" "Event on which process is waiting. ")
230 )
231 "Help list with the descriptions of ps fields for BSD systems.")
232
233 (defvar View-process-field-name-descriptions-system-v
234 '(
235 ("C" "Processor utilization for scheduling. ")
236 ("CLS" "Scheduling class. ")
237 ("F" "Flags (in hex) No meaning should be currently ascribed to them. ")
238 ("PRI" "Priority, without -c: no > => prio <, with -c: no > => prio > .")
239 ("S" ("State. "
240 ("O" "O=Process is running on a processor. ")
241 ("S" "S=Sleeping, process is waiting for an event. ")
242 ("R" "R=Runnable, process is on run queue. ")
243 ("I" "I=Idle, process is being created. ")
244 ("Z" "Z=Zombie state, process terminated and parent not waiting. ")
245 ("T" "T=Traced, process stopped by a signal, parent is tracing it. ")
246 ("X" "X=SXBRK state: process is waiting for more primary memory. ")
247 ))
248 ("STIME" "Start time. ")
249 ("SZ" "Size (in Pages) of the swappable process's image in main memory. ")
250 ("WCHAN" "Event on which process is waiting or in SXBRK state. ")
251 )
252 "Help list with the descriptions of ps fields for System V.")
253
254 ;; for specifc systems
255
256 (defvar View-process-field-name-descriptions-sunos4
257 '(
258 ("CP" "Short-term CPU utilization factor (used in scheduling). ")
259 ("F" "Flags (in hex) associated with process as in <sys/proc.h>. ")
260 ("LIM" ("Soft limit on memory used. "
261 ("xx" "xx=no limit. ")))
262 ("RE" "Residency time (seconds in core)")
263 ("SIZE" "Virtual image size, size data+stack (in KByte).")
264 ("SL" "Sleep time of the process (seconds blocked).")
265 ("STAT" ("Status. "
266 ("R" "R=runnable. ")
267 ("S" "S=sleeping < 20s. ")
268 ("D" "D=un-interruptible wait (eg disk or NFS I/O). ")
269 ("T" "T=stopped. ")
270 ("Z" "Z=zombie (terminated). ")
271 ("W" "W=Swapped out. ")
272 ("I" "I=idle, sleeping > 20s. ")
273 ("P" "P=Page Wait." )
274 ("N" "N=started with nice. ")
275 (">" ">=exceeded memory limit. ")
276 ("SW" "S=sleeping. W=waiting on an event. ")
277 ("IW" "I=intermediate status. W=waiting on an event. ")))
278 ("SZ" "Virtual image size, size data+stack (in KByte). ")
279 ("WCHAN" "Event on which process is waiting. ")
280 )
281 "Help list with the descriptions of ps fields for SunOS 4.")
282
283 (defvar View-process-field-name-descriptions-sunos5
284 '(
285 ("C" "Processor utilization for scheduling. ")
286 ("CLS" "Scheduling class. ")
287 ("F" "Flags (in hex) No meaning should be currently ascribed to them. ")
288 ("PRI" "Priority, without -c: no > => prio <, with -c: no > => prio > .")
289 ("S" ("State. "
290 ("O" "O=Process is running on a processor. ")
291 ("S" "S=Sleeping, process is waiting for an event. ")
292 ("R" "R=Runnable, process is on run queue. ")
293 ("I" "I=Idle, process is being created. ")
294 ("Z" "Z=Zombie state, process terminated and parent not waiting. ")
295 ("T" "T=Traced, process stopped by a signal, parent is tracing it. ")
296 ("X" "X=SXBRK state: process is waiting for more primary memory. ")
297 ))
298 ("STIME" "Start time. ")
299 ("SZ" "Size (in Pages) of the swappable process's image in main memory. ")
300 ("WCHAN" "Event on which process is waiting or in SXBRK state. ")
301 )
302 "Help list with the descriptions of ps fields for SunOS 5.")
303
304 (defvar View-process-field-name-descriptions-irix
305 '(
306 ("F" ("Flags. "
307 ("01" "01=Process is a system (resident) process. ")
308 ("02" "02=Process is being traced. ")
309 ("04" "04=Stopped process has been given to parent via wait. ")
310 ("08" "08=Process is sleeping at a non-interruptible priority. ")
311 ("10" "10=Process is in core. ")
312 ("20" "20=Process user area is in core. ")
313 ("40" "40=Process has enabled atomic operator emulation. ")
314 ("80" "80=Process in stream poll or select. ")))
315 ("C" "Processor utilization for scheduling. ")
316 ("CLS" "Scheduling class. ")
317 ("COMD" "The command name. ")
318 ("P" "Number of processor on which the process is executing. ")
319 ("RSS" "Total resident size (in pages/4096 Bytes) of process. ")
320 ("S" ("State. "
321 ("0" "0=Process is running on a processor. ")
322 ("S" "S=Process is sleeping, waiting for a resource. ")
323 ("R" "R=Process is running. ")
324 ("Z" "Z=Process is terminated and parent not waiting. ")
325 ("T" "T=Process is stopped. ")
326 ("I" "I=Process is in intermediate state of creation. ")
327 ("X" "X=Process is waiting for memory. ")))
328 ("STIME" "The starting time of the process. ")
329 ("SZ" "Total size (in pages/4096 Bytes) of the process. ")
330 ("WCHAN" "Event on which process is waiting. ")
331 )
332 "Help list with the descriptions of ps fields for IRIX.")
333
334 (defvar View-process-field-name-descriptions-hpux
335 '(
336 ("F" ("Flags. "
337 ("00" "00=Process is swapped. ")
338 ("01" "01=Process is in core. ")
339 ("02" "01=Process is a system process. ")
340 ("04" "04=Process is locked in core (e.g., for physical I/O). ")
341 ("10" "10=Process is being traced by another process. ")
342 ("20" "20=Process is being traced by another process. ")
343 ;; another tracing flag
344 ))
345 ("UID"
346 "Real user ID number of the process owner. Login name under the -f option. ")
347 ("PID" "The process ID of the process. ")
348 ("PPID" "The process ID of the parent process. ")
349 ("PRI" "The priority of the process; higher numbers mean lower priority. ")
350 ("NI" "Nice value; used in priority computation. ")
351 ("ADDR" "Memory address of the process, if resident, or disk address. ")
352 ("TTY" "The controlling terminal for the process. ")
353 ("TIME" "The cumulative execution time for the process [min:sec]. ")
354 ("STIME"
355 "Starting time of the process, or starting date if elapsed > 24h. ")
356 ("C" "Processor utilization for scheduling. ")
357 ("COMD" "The command name. ")
358 ("COMMAND" "The command name. ")
359 ("S" ("State. "
360 ("0" "0=Process is non-existing. ")
361 ("S" "S=Process is sleeping. ")
362 ("W" "Process is waiting for a resource. ")
363 ("R" "R=Process is running. ")
364 ("Z" "Z=Process is terminated and parent not waiting. ")
365 ("T" "T=Process is stopped. ")
366 ("I" "I=Process is in intermediate state of creation. ")
367 ("X" "X=Process is waiting for memory. ")))
368 ("SZ" "Total size (in pages/4096 Bytes) of the process. ")
369 ("WCHAN" "Event on which process is waiting. ")
370 )
371 "Help list with the descriptions of ps fields for HP-UX.")
372
373 ;;; view-process-system-specific.el ends here.