Commit 6a1bab0e authored by Eli Zaretskii's avatar Eli Zaretskii

(Qeuid, Qegid, Qcomm, Qstate, Qppid, Qpgrp, Qsess)

(Qttname, Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime)
(Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs)
(Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtpgid, Qcstime) [!subprocesses]: Define.
(syms_of_process) [!subprocesses]: Intern and staticpro them.
(Flist_system_processes, Fsystem_process_attributes) [!subprocesses]: Call
list_system_processes and system_process_attributes instead of returning Qnil.
parent e5c9f94c
/* Asynchronous subprocess control for GNU Emacs. /* Asynchronous subprocess control for GNU Emacs.
Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
1996, 1998, 1999, 2001, 2002, 2003, 2004, 1996, 1998, 1999, 2001, 2002, 2003, 2004,
2005, 2006, 2007, 2008 Free Software Foundation, Inc. 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
This file is part of GNU Emacs. This file is part of GNU Emacs.
...@@ -7541,6 +7541,11 @@ extern int timers_run; ...@@ -7541,6 +7541,11 @@ extern int timers_run;
Lisp_Object QCtype, QCname; Lisp_Object QCtype, QCname;
Lisp_Object Qeuid, Qegid, Qcomm, Qstate, Qppid, Qpgrp, Qsess, Qttname, Qtpgid;
Lisp_Object Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime, Qcstime;
Lisp_Object Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs;
Lisp_Object Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtime, Qctime;
/* As described above, except assuming that there are no subprocesses: /* As described above, except assuming that there are no subprocesses:
Wait for timeout to elapse and/or keyboard input to be available. Wait for timeout to elapse and/or keyboard input to be available.
...@@ -7810,7 +7815,7 @@ See `system-process-attributes' for getting attributes of a process ...@@ -7810,7 +7815,7 @@ See `system-process-attributes' for getting attributes of a process
given its ID. */) given its ID. */)
() ()
{ {
return Qnil; return list_system_processes ();
} }
DEFUN ("system-process-attributes", Fsystem_process_attributes, DEFUN ("system-process-attributes", Fsystem_process_attributes,
...@@ -7868,7 +7873,7 @@ integer or floating point values. ...@@ -7868,7 +7873,7 @@ integer or floating point values.
Lisp_Object pid; Lisp_Object pid;
{ {
return Qnil; return system_process_attributes (pid);
} }
void void
...@@ -7883,6 +7888,72 @@ syms_of_process () ...@@ -7883,6 +7888,72 @@ syms_of_process ()
staticpro (&QCtype); staticpro (&QCtype);
QCname = intern (":name"); QCname = intern (":name");
staticpro (&QCname); staticpro (&QCname);
QCtype = intern (":type");
staticpro (&QCtype);
QCname = intern (":name");
staticpro (&QCname);
Qeuid = intern ("euid");
staticpro (&Qeuid);
Qegid = intern ("egid");
staticpro (&Qegid);
Quser = intern ("user");
staticpro (&Quser);
Qgroup = intern ("group");
staticpro (&Qgroup);
Qcomm = intern ("comm");
staticpro (&Qcomm);
Qstate = intern ("state");
staticpro (&Qstate);
Qppid = intern ("ppid");
staticpro (&Qppid);
Qpgrp = intern ("pgrp");
staticpro (&Qpgrp);
Qsess = intern ("sess");
staticpro (&Qsess);
Qttname = intern ("ttname");
staticpro (&Qttname);
Qtpgid = intern ("tpgid");
staticpro (&Qtpgid);
Qminflt = intern ("minflt");
staticpro (&Qminflt);
Qmajflt = intern ("majflt");
staticpro (&Qmajflt);
Qcminflt = intern ("cminflt");
staticpro (&Qcminflt);
Qcmajflt = intern ("cmajflt");
staticpro (&Qcmajflt);
Qutime = intern ("utime");
staticpro (&Qutime);
Qstime = intern ("stime");
staticpro (&Qstime);
Qtime = intern ("time");
staticpro (&Qtime);
Qcutime = intern ("cutime");
staticpro (&Qcutime);
Qcstime = intern ("cstime");
staticpro (&Qcstime);
Qctime = intern ("ctime");
staticpro (&Qctime);
Qpri = intern ("pri");
staticpro (&Qpri);
Qnice = intern ("nice");
staticpro (&Qnice);
Qthcount = intern ("thcount");
staticpro (&Qthcount);
Qstart = intern ("start");
staticpro (&Qstart);
Qvsize = intern ("vsize");
staticpro (&Qvsize);
Qrss = intern ("rss");
staticpro (&Qrss);
Qetime = intern ("etime");
staticpro (&Qetime);
Qpcpu = intern ("pcpu");
staticpro (&Qpcpu);
Qpmem = intern ("pmem");
staticpro (&Qpmem);
Qargs = intern ("args");
staticpro (&Qargs);
defsubr (&Sget_buffer_process); defsubr (&Sget_buffer_process);
defsubr (&Sprocess_inherit_coding_system_flag); defsubr (&Sprocess_inherit_coding_system_flag);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment