/* Interfaces to system-dependent kernel and library entries.
Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001,
- 2002, 2003, 2004, 2005, 2006, 2007, 2008
+ 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
Free Software Foundation, Inc.
This file is part of GNU Emacs.
#ifdef SYNC_INPUT
/* I originally used `QUIT' but that might causes files to
be truncated if you hit C-g in the middle of it. --Stef */
- if (interrupt_input_pending)
- handle_async_input ();
- if (pending_atimers)
- do_pending_atimers ();
+ process_pending_signals ();
#endif
continue;
}
return proclist;
}
-#elif !defined (WINDOWSNT)
+/* The WINDOWSNT implementation is on w32.c.
+ The MSDOS implementation is on dosfns.c. */
+#elif !defined (WINDOWSNT) && !defined (MSDOS)
Lisp_Object
list_system_processes ()
{
return Qnil;
}
-#endif /* !defined (WINDOWSNT)*/
+
+#endif /* !defined (WINDOWSNT) */
#ifdef GNU_LINUX
static void
attrs = Fcons (Fcons (Qstime,
ltime_from_jiffies (stime, clocks_per_sec)),
attrs);
+ attrs = Fcons (Fcons (Qtime,
+ ltime_from_jiffies (stime+utime, clocks_per_sec)),
+ attrs);
attrs = Fcons (Fcons (Qcutime,
ltime_from_jiffies (cutime, clocks_per_sec)),
attrs);
attrs = Fcons (Fcons (Qcstime,
ltime_from_jiffies (cstime, clocks_per_sec)),
attrs);
+ attrs = Fcons (Fcons (Qctime,
+ ltime_from_jiffies (cstime+cutime, clocks_per_sec)),
+ attrs);
attrs = Fcons (Fcons (Qpri, make_number (priority)), attrs);
attrs = Fcons (Fcons (Qnice, make_number (nice)), attrs);
attrs = Fcons (Fcons (Qthcount, make_fixnum_or_float (thcount_eint)), attrs);
UNGCPRO;
return attrs;
}
+
#elif defined (SOLARIS2) && defined (HAVE_PROCFS)
/* The <procfs.h> header does not like to be included if _LP64 is defined and
Qcminflt
Qcmajflt
+ Qutime
+ Qcutime
Qstime
Qcstime
Are they available? */
- attrs = Fcons (Fcons (Qutime,
+ attrs = Fcons (Fcons (Qtime,
list3 (make_number (pinfo.pr_time.tv_sec >> 16),
make_number (pinfo.pr_time.tv_sec & 0xffff),
make_number (pinfo.pr_time.tv_nsec))),
attrs);
- attrs = Fcons (Fcons (Qcutime,
+ attrs = Fcons (Fcons (Qctime,
list3 (make_number (pinfo.pr_ctime.tv_sec >> 16),
make_number (pinfo.pr_ctime.tv_sec & 0xffff),
make_number (pinfo.pr_ctime.tv_nsec))),
attrs = Fcons (Fcons (Qargs, decoded_cmd), attrs);
}
+ if (fd >= 0)
+ emacs_close (fd);
+
UNGCPRO;
return attrs;
}
-#elif !defined (WINDOWSNT)
+/* The WINDOWSNT implementation is on w32.c.
+ The MSDOS implementation is on dosfns.c. */
+#elif !defined (WINDOWSNT) && !defined (MSDOS)
Lisp_Object
system_process_attributes (Lisp_Object pid)