comparison src/process.c @ 100860:0d09a43201b6

(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.

100859:bb7058ae1991

/* Asynchronous subprocess control for GNU Emacs.
   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
		 1996, 1998, 1999, 2001, 2002, 2003, 2004,
		 2005, 2006, 2007, 2008 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

extern EMACS_TIME timer_check ();
extern int timers_run;

Lisp_Object QCtype, QCname;

/* As described above, except assuming that there are no subprocesses:

   Wait for timeout to elapse and/or keyboard input to be available.

   time_limit is:

See `system-process-attributes' for getting attributes of a process
given its ID.  */)
    ()
{
  return Qnil;
}

DEFUN ("system-process-attributes", Fsystem_process_attributes,
       Ssystem_process_attributes, 1, 1, 0,
       doc: /* Return attributes of the process given by its PID, a number.

 args    -- command line which invoked the process (string).   */)
    (pid)

    Lisp_Object pid;
{
  return Qnil;
}

void
init_process ()
{

{
  QCtype = intern (":type");
  staticpro (&QCtype);
  QCname = intern (":name");
  staticpro (&QCname);

  defsubr (&Sget_buffer_process);
  defsubr (&Sprocess_inherit_coding_system_flag);
  defsubr (&Slist_system_processes);
  defsubr (&Ssystem_process_attributes);

100860:0d09a43201b6

/* Asynchronous subprocess control for GNU Emacs.
   Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
		 1996, 1998, 1999, 2001, 2002, 2003, 2004,
		 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

extern EMACS_TIME timer_check ();
extern int timers_run;

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:

   Wait for timeout to elapse and/or keyboard input to be available.

   time_limit is:

See `system-process-attributes' for getting attributes of a process
given its ID.  */)
    ()
{
  return list_system_processes ();
}

DEFUN ("system-process-attributes", Fsystem_process_attributes,
       Ssystem_process_attributes, 1, 1, 0,
       doc: /* Return attributes of the process given by its PID, a number.

 args    -- command line which invoked the process (string).   */)
    (pid)

    Lisp_Object pid;
{
  return system_process_attributes (pid);
}

void
init_process ()
{

{
  QCtype = intern (":type");
  staticpro (&QCtype);
  QCname = intern (":name");
  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 (&Sprocess_inherit_coding_system_flag);
  defsubr (&Slist_system_processes);
  defsubr (&Ssystem_process_attributes);