--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/modes/view-process-system-specific.el	Mon Aug 13 09:44:42 2007 +0200
@@ -0,0 +1,373 @@
+;;; view-process-system-specific.el --- System specific stuff for view-process
+
+;; Copyright (C) 1995 Heiko Muenkel
+
+;; Author: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
+;; Keywords: processes
+
+;; This file is part of XEmacs.
+
+;;; $Id: view-process-system-specific.el,v 1.2 1997/06/26 02:31:06 steve Exp $
+
+;;  XEmacs is free software; you can redistribute it and/or modify it
+;;  under the terms of the GNU General Public License as published by
+;;  the Free Software Foundation; either version 2, or (at your
+;;  option) any later version.
+
+;;  XEmacs is distributed in the hope that it will be useful, but
+;;  WITHOUT ANY WARRANTY; without even the implied warranty of
+;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;  General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING.  if not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with:  Emacs 20.1.
+
+;;; Commentary:
+
+;;	This file contains system specific stuff for the
+;;	view-process-mode. It isn't necessary, that each systems has
+;;	an entry in this file, because there are default values, which
+;;	are used, if no entry exists.
+
+;; Installation: 
+;;   
+;;	Put this file in one of you lisp load path directories.
+;;
+
+;;; Code:
+
+(provide 'view-process-system-specific)
+
+(defvar View-process-specific-system-list
+  '(("linux" nil "bsd"
+     nil
+     View-process-kill-signals-linux)
+    ("sunos" "4" "bsd"
+     View-process-field-name-descriptions-sunos4
+     View-process-kill-signals-sunos4)
+    ("sunos" "5" "system-v"
+     View-process-field-name-descriptions-sunos5
+     View-process-kill-signals-sunos5)
+    ("irix" nil "system-v"
+     View-process-field-name-descriptions-irix
+     View-process-kill-signals-irix)
+    ("hp-ux" nil "system-v"
+     View-process-field-name-descriptions-hpux
+     View-process-kill-signals-hpux)
+    )
+  "This is a list with all systems, for which specific information about 
+allowed signals and about the ps output exists. Set it to nil, if you don't 
+want to use this specific information.
+The first string of each sublist is the name of the system, the second 
+string is the mayor version number or nil. The third one determines, 
+if the ps command is BSD or System V like. The mayor version is only 
+necessary, if there are BSD and System V versions with the same system 
+names (SUN has done such a stupid system naming.), otherwise it is nil.
+The fifth entry is nil or the name of a special list with field name 
+descriptions. The sixth entry is nil or the name of a special list with 
+kill signals.")
+
+;;; signals
+
+(defvar View-process-kill-signals-bsd nil
+  "An alist with the possible signals for the kill command for BSD
+systems. It is only used, if the system type can't be determined or if
+it is not in the `View-process-specific-system-list'.")
+
+(defvar View-process-kill-signals-system-v nil
+  "An alist with the possible signals for the kill command for BSD
+systems. It is only used, if the system type can't be determined or if
+it is not in the `View-process-specific-system-list'.")
+
+(defvar View-process-kill-signals-sunos4
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
+    ("SIGURG" "16") ("SIGSTOP" "17") ("SIGTSTP" "18") ("SIGCONT" "19") 
+    ("SIGCHLD" "20") ("SIGCLD" "20") ("SIGTTIN" "21") ("SIGTTOU" "22")
+    ("SIGIO" "23") ("SIGPOLL" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25") 
+    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") 
+    ("SIGLOST" "29") ("SIGUSR1" "30") ("SIGUSR2" "31") 
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("29" "29") ("30" "30") ("31" "31"))
+  "An alist with the possible signals for the kill command for SunOS 4.
+It may be that you've other signals on your system. Try to test
+it with \"kill -l\" in a shell.")
+  
+(defvar View-process-kill-signals-sunos5
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
+    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCHLD" "18") ("SIGCLD" "18")
+    ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
+    ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25") 
+    ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29")
+    ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIGWAITING" "32") ("SIGLWP" "33")
+    ("SIGFREEZE" "34") ("SIGTHAW" "36") ("SIGRTMIN" "36") ("SIGRTMAX" "43")
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("29" "29") ("30" "30") ("31" "31") ("32" "32") ("33" "33")
+    ("34" "34") ("36" "36") ("43" "43"))
+  "An alist with the possible signals for the kill command for SunOS 5.
+It may be that you've other signals on your system. Try to test
+it with \"kill -l\" in a shell.")
+  
+(defvar View-process-kill-signals-irix
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
+    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18") 
+    ("SIGPWR" "19") ("SIGWINCH" "20") ("SIGURG" "21") ("SIGPOLL" "22")
+    ("SIGIO" "22") ("SIGSTOP" "23") ("SIGTSTP" "24") ("SIGCONT" "25")
+    ("SIGTTIN" "26") ("SIGTTOU" "27") ("SIGVTALRM" "28") ("SIGPROF" "29") 
+    ("SIGXCPU" "30") ("SIGXFSZ" "31") ("SIG32" "32")
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
+  "An alist with the possible signals for the kill command for IRIX.
+It may be that you've other signals on your system. Try to test
+it with \"kill -l\" in a shell.")
+  
+(defvar View-process-kill-signals-linux
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8") 
+    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12") 
+    ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17") 
+    ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21") 
+    ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25") 
+    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30") 
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+    ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19") 
+    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24") 
+    ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("30" "30"))
+  "An alist with the possible signals for the kill command for linux.
+It may be that you've other signals on your system. Try to test
+it with \"kill -l\" in a shell.")
+
+;; all Linux signals
+;(defvar View-process-kill-signals
+;  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+;    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGBUS" "7") ("SIGFPE" "8") 
+;    ("SIGKILL" "9") ("SIGUSR1" "10") ("SIGSEGV" "11") ("SIGUSR2" "12") 
+;    ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") ("SIGCHLD" "17") 
+;    ("SIGCONT" "18") ("SIGSTOP" "19") ("SIGTSTP" "20") ("SIGTTIN" "21") 
+;    ("SIGTTOU" "22") ("SIGIO" "23") ("SIGXCPU" "24") ("SIGXFSZ" "25") 
+;    ("SIGVTALRM" "26") ("SIGPROF" "27") ("SIGWINCH" "28") ("SIGPWR" "30") 
+;    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+;    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+;    ("14" "14") ("15" "15") ("17" "17") ("18" "18") ("19" "19") 
+;    ("20" "20") ("21" "21") ("22" "22") ("23" "23") ("24" "24") 
+;    ("25" "25") ("26" "26") ("27" "27") ("28" "28") ("30" "30"))
+;  "An alist with the possible signals for the kill command.
+;It may be that you've other signals on your system. Try to test
+;it with \"kill -l\" in a shell.")
+
+(defvar View-process-kill-signals-hpux
+  '(("SIGHUP" "1") ("SIGINT" "2") ("SIGQUIT" "3") ("SIGILL" "4") 
+    ("SIGTRAP" "5") ("SIGIOT" "6") ("SIGABRT" "6") ("SIGEMT" "7") 
+    ("SIGFPE" "8") ("SIGKILL" "9") ("SIGBUS" "10") ("SIGSEGV" "11") 
+    ("SIGSYS" "12") ("SIGPIPE" "13") ("SIGALRM" "14") ("SIGTERM" "15") 
+    ("SIGUSR1" "16") ("SIGUSR2" "17") ("SIGCLD" "18") ("SIGCHLD" "18") 
+    ("SIGPWR" "19") ("SIGVTALRM" "20") ("SIGPROF" "21") ("SIGIO" "22")
+    ("SIGWINCH" "23") ("SIGSTOP" "24") ("SIGTSTP" "25") ("SIGCONT" "26")
+    ("SIGTTIN" "27") ("SIGTTOU" "28") ("SIGURG" "29") ("SIGLOST" "30")
+    ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") ("6" "6") ("7" "7") 
+    ("8" "8") ("9" "9") ("10" "10") ("11" "11") ("12" "12") ("13" "13") 
+    ("14" "14") ("15" "15") ("16" "16") ("17" "17") ("18" "18") 
+    ("19" "19") ("20" "20") ("21" "21") ("22" "22") ("23" "23") 
+    ("24" "24") ("25" "25") ("26" "26") ("27" "27") ("28" "28") 
+    ("29" "29") ("30" "30") ("31" "31") ("32" "32"))
+  "An alist with the possible signals for the kill command for HP-UX.
+It may be that you've other signals on your system. Try to test
+it with \"kill -l\" in a shell.")
+
+;;; process field descriptions
+
+;; more general descriptions for BSD and System V
+ 
+(defvar View-process-field-name-descriptions-bsd
+  '(
+    ("CP" "Short-term CPU  utilization  factor  (used  in scheduling). ")
+    ("F" "Flags  (in  hex) associated with process as in <sys/proc.h>. ")
+    ("LIM"  ("Soft limit on memory used. "
+	     ("xx" "xx=no limit. ")))
+    ("RE" "Residency  time (seconds in core)")
+    ("SIZE" "Virtual image size, size data+stack (in KByte).")
+    ("SL" "Sleep time of the process (seconds blocked).")
+    ("STAT" ("Status. "
+	     ("R" "R=runnable. ")
+	     ("S" "S=sleeping < 20s. ")
+	     ("D" "D=un-interruptible wait (eg disk or NFS I/O). ")
+	     ("T" "T=stopped. ")
+	     ("Z" "Z=zombie (terminated). ")
+	     ("W" "W=Swapped out. ")
+	     ("I" "I=idle, sleeping > 20s. ")
+	     ("P" "P=Page Wait." )
+	     ("N" "N=started with nice. ")
+	     (">" ">=exceeded memory limit. ") 
+	     ("SW" "S=sleeping. W=waiting on an event. ")
+	     ("IW" "I=intermediate status. W=waiting on an event. ")))
+    ("SZ" "Virtual image size, size data+stack (in KByte). ")
+    ("WCHAN" "Event on which process is waiting. ")
+    )
+  "Help list with the descriptions of ps fields for BSD systems.")
+
+(defvar View-process-field-name-descriptions-system-v
+  '(
+    ("C" "Processor utilization for scheduling. ")
+    ("CLS" "Scheduling class. ")
+    ("F" "Flags  (in  hex) No meaning should be currently ascribed to them. ")
+    ("PRI" "Priority, without -c: no > => prio <, with -c: no > => prio > .")
+    ("S" ("State. "
+	  ("O" "O=Process is running on a processor. ")
+	  ("S" "S=Sleeping, process is waiting for an event. ")
+	  ("R" "R=Runnable, process is on run queue. ")
+	  ("I" "I=Idle, process is being created. ")
+	  ("Z" "Z=Zombie state, process terminated and parent not waiting. ")
+	  ("T" "T=Traced, process stopped by a signal, parent is tracing it. ")
+	  ("X" "X=SXBRK  state:  process is waiting for more primary memory. ")
+	  ))
+    ("STIME" "Start time. ")
+    ("SZ" "Size (in Pages) of the swappable process's image in main memory. ")
+    ("WCHAN" "Event on which process is waiting or in SXBRK state. ")
+    )
+  "Help list with the descriptions of ps fields for System V.")
+
+;; for specifc systems
+
+(defvar View-process-field-name-descriptions-sunos4
+  '(
+    ("CP" "Short-term CPU  utilization  factor  (used  in scheduling). ")
+    ("F" "Flags  (in  hex) associated with process as in <sys/proc.h>. ")
+    ("LIM"  ("Soft limit on memory used. "
+	     ("xx" "xx=no limit. ")))
+    ("RE" "Residency  time (seconds in core)")
+    ("SIZE" "Virtual image size, size data+stack (in KByte).")
+    ("SL" "Sleep time of the process (seconds blocked).")
+    ("STAT" ("Status. "
+	     ("R" "R=runnable. ")
+	     ("S" "S=sleeping < 20s. ")
+	     ("D" "D=un-interruptible wait (eg disk or NFS I/O). ")
+	     ("T" "T=stopped. ")
+	     ("Z" "Z=zombie (terminated). ")
+	     ("W" "W=Swapped out. ")
+	     ("I" "I=idle, sleeping > 20s. ")
+	     ("P" "P=Page Wait." )
+	     ("N" "N=started with nice. ")
+	     (">" ">=exceeded memory limit. ") 
+	     ("SW" "S=sleeping. W=waiting on an event. ")
+	     ("IW" "I=intermediate status. W=waiting on an event. ")))
+    ("SZ" "Virtual image size, size data+stack (in KByte). ")
+    ("WCHAN" "Event on which process is waiting. ")
+    )
+  "Help list with the descriptions of ps fields for SunOS 4.")
+
+(defvar View-process-field-name-descriptions-sunos5
+  '(
+    ("C" "Processor utilization for scheduling. ")
+    ("CLS" "Scheduling class. ")
+    ("F" "Flags  (in  hex) No meaning should be currently ascribed to them. ")
+    ("PRI" "Priority, without -c: no > => prio <, with -c: no > => prio > .")
+    ("S" ("State. "
+	  ("O" "O=Process is running on a processor. ")
+	  ("S" "S=Sleeping, process is waiting for an event. ")
+	  ("R" "R=Runnable, process is on run queue. ")
+	  ("I" "I=Idle, process is being created. ")
+	  ("Z" "Z=Zombie state, process terminated and parent not waiting. ")
+	  ("T" "T=Traced, process stopped by a signal, parent is tracing it. ")
+	  ("X" "X=SXBRK  state:  process is waiting for more primary memory. ")
+	  ))
+    ("STIME" "Start time. ")
+    ("SZ" "Size (in Pages) of the swappable process's image in main memory. ")
+    ("WCHAN" "Event on which process is waiting or in SXBRK state. ")
+    )
+  "Help list with the descriptions of ps fields for SunOS 5.")
+
+(defvar View-process-field-name-descriptions-irix
+  '(
+    ("F" ("Flags. "
+	  ("01" "01=Process is a system (resident) process. ")
+	  ("02" "02=Process is being traced. ")
+	  ("04" "04=Stopped process has been given to parent via wait. ")
+	  ("08" "08=Process is sleeping at a non-interruptible priority. ")
+	  ("10" "10=Process is in core. ")
+	  ("20" "20=Process user area is in core. ")
+	  ("40" "40=Process has enabled atomic operator emulation. ")
+	  ("80" "80=Process in stream poll or select. ")))
+    ("C" "Processor utilization for scheduling. ")
+    ("CLS" "Scheduling class. ")
+    ("COMD" "The command name. ")
+    ("P" "Number of processor on which the process is executing. ")
+    ("RSS" "Total resident  size (in pages/4096 Bytes) of process. ")
+    ("S" ("State. "
+	  ("0" "0=Process is running on a processor. ")
+	  ("S" "S=Process is sleeping, waiting for a resource. ")
+	  ("R" "R=Process is running. ")
+	  ("Z" "Z=Process is terminated and parent not waiting. ")
+	  ("T" "T=Process is stopped. ")
+	  ("I" "I=Process is in intermediate state of creation. ")
+	  ("X" "X=Process is waiting for memory. ")))
+    ("STIME" "The starting time of the process. ")
+    ("SZ" "Total size (in pages/4096 Bytes) of the process. ")
+    ("WCHAN" "Event on which process is waiting. ")
+    )
+  "Help list with the descriptions of ps fields for IRIX.")
+
+(defvar View-process-field-name-descriptions-hpux
+  '(
+    ("F" ("Flags. "
+	  ("00" "00=Process is swapped. ")
+	  ("01" "01=Process is in core. ")
+	  ("02" "01=Process is a system process. ")
+	  ("04" "04=Process is locked in core (e.g., for physical I/O). ")
+	  ("10" "10=Process is being traced by another process. ")
+	  ("20" "20=Process is being traced by another process. ") 
+	  ;; another tracing flag
+	  ))
+    ("UID" 
+ "Real user ID number of the process owner.  Login name under the -f option. ")
+    ("PID" "The process ID of the process. ")
+    ("PPID" "The process ID of the parent process. ")
+    ("PRI" "The priority of the process; higher numbers mean lower priority. ")
+    ("NI" "Nice value; used in priority computation. ")
+    ("ADDR" "Memory address of the process, if resident, or disk address. ")
+    ("TTY" "The controlling terminal for the process. ")
+    ("TIME" "The cumulative execution time for the process [min:sec]. ")
+    ("STIME" 
+     "Starting time of the process, or starting date if elapsed > 24h. ")
+    ("C" "Processor utilization for scheduling. ")
+    ("COMD" "The command name. ")
+    ("COMMAND" "The command name. ")
+    ("S" ("State. "
+	  ("0" "0=Process is non-existing. ")
+	  ("S" "S=Process is sleeping. ")
+	  ("W" "Process is waiting for a resource. ")
+	  ("R" "R=Process is running. ")
+	  ("Z" "Z=Process is terminated and parent not waiting. ")
+	  ("T" "T=Process is stopped. ")
+	  ("I" "I=Process is in intermediate state of creation. ")
+	  ("X" "X=Process is waiting for memory. ")))
+    ("SZ" "Total size (in pages/4096 Bytes) of the process. ")
+    ("WCHAN" "Event on which process is waiting. ")
+    )
+  "Help list with the descriptions of ps fields for HP-UX.")
+
+;;; view-process-system-specific.el ends here.