+/*
+ * Copyright 2008-2011 Novell Inc
+ * Copyright 2011 Xamarin Inc
+ */
+
#include "config.h"
#include "utils/mono-proclib.h"
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
+#include <fcntl.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <windows.h>
#endif
-/* FIXME: bsds untested */
#if defined(__APPLE__) || defined(__FreeBSD__) || defined(__OpenBSD__) || defined(__NetBSD__)
#include <sys/param.h>
#include <sys/types.h>
#include <sys/sysctl.h>
#include <sys/proc.h>
+#if defined(__APPLE__)
+#include <mach/mach.h>
+#endif
#ifdef HAVE_SYS_USER_H
#include <sys/user.h>
#endif
#ifdef HAVE_STRUCT_KINFO_PROC_KP_PROC
-# ifdef KERN_PROC2
-# define kinfo_pid_member p_pid
-# define kinfo_name_member p_comm
-# else
# define kinfo_pid_member kp_proc.p_pid
# define kinfo_name_member kp_proc.p_comm
-# endif
+#elif defined(__OpenBSD__)
+# define kinfo_pid_member p_pid
+# define kinfo_name_member p_comm
#else
#define kinfo_pid_member ki_pid
#define kinfo_name_member ki_comm
#endif
}
-static char*
+static G_GNUC_UNUSED char*
get_pid_status_item_buf (int pid, const char *item, char *rbuf, int blen, MonoProcessError *error)
{
char buf [256];
static gint64
get_process_stat_item (int pid, int pos, int sum, MonoProcessError *error)
{
+#if defined(__APPLE__)
+ double process_user_time = 0, process_system_time = 0;//, process_percent = 0;
+ task_t task;
+ struct task_basic_info t_info;
+ mach_msg_type_number_t t_info_count = TASK_BASIC_INFO_COUNT, th_count;
+ thread_array_t th_array;
+ size_t i;
+
+ if (task_for_pid(mach_task_self(), pid, &task) != KERN_SUCCESS)
+ RET_ERROR (MONO_PROCESS_ERROR_NOT_FOUND);
+
+ if (task_info(task, TASK_BASIC_INFO, (task_info_t)&t_info, &t_info_count) != KERN_SUCCESS) {
+ mach_port_deallocate (mach_task_self (), task);
+ RET_ERROR (MONO_PROCESS_ERROR_OTHER);
+ }
+
+ if (task_threads(task, &th_array, &th_count) != KERN_SUCCESS) {
+ mach_port_deallocate (mach_task_self (), task);
+ RET_ERROR (MONO_PROCESS_ERROR_OTHER);
+ }
+
+ for (i = 0; i < th_count; i++) {
+ double thread_user_time, thread_system_time;//, thread_percent;
+
+ struct thread_basic_info th_info;
+ mach_msg_type_number_t th_info_count = THREAD_BASIC_INFO_COUNT;
+ if (thread_info(th_array[i], THREAD_BASIC_INFO, (thread_info_t)&th_info, &th_info_count) == KERN_SUCCESS) {
+ thread_user_time = th_info.user_time.seconds + th_info.user_time.microseconds / 1e6;
+ thread_system_time = th_info.system_time.seconds + th_info.system_time.microseconds / 1e6;
+ //thread_percent = (double)th_info.cpu_usage / TH_USAGE_SCALE;
+
+ process_user_time += thread_user_time;
+ process_system_time += thread_system_time;
+ //process_percent += th_percent;
+ }
+ }
+
+ for (i = 0; i < th_count; i++)
+ mach_port_deallocate(task, th_array[i]);
+
+ mach_port_deallocate (mach_task_self (), task);
+
+ process_user_time += t_info.user_time.seconds + t_info.user_time.microseconds / 1e6;
+ process_system_time += t_info.system_time.seconds + t_info.system_time.microseconds / 1e6;
+
+ if (pos == 10 && sum == TRUE)
+ return (gint64)((process_user_time + process_system_time) * 10000000);
+ else if (pos == 10)
+ return (gint64)(process_user_time * 10000000);
+ else if (pos == 11)
+ return (gint64)(process_system_time * 10000000);
+
+ return 0;
+#else
char buf [512];
char *s, *end;
FILE *f;
if (error)
*error = MONO_PROCESS_ERROR_NONE;
return value;
+#endif
}
static int
get_process_stat_time (int pid, int pos, int sum, MonoProcessError *error)
{
gint64 val = get_process_stat_item (pid, pos, sum, error);
+#if defined(__APPLE__)
+ return val;
+#else
/* return 100ns ticks */
return (val * 10000000) / get_user_hz ();
+#endif
}
static gint64
-get_pid_status_item (int pid, const char *item, MonoProcessError *error)
+get_pid_status_item (int pid, const char *item, MonoProcessError *error, int multiplier)
{
+#if defined(__APPLE__)
+ // ignore the multiplier
+
+ gint64 ret;
+ task_t task;
+ struct task_basic_info t_info;
+ mach_msg_type_number_t th_count = TASK_BASIC_INFO_COUNT;
+
+ if (task_for_pid (mach_task_self (), pid, &task) != KERN_SUCCESS)
+ RET_ERROR (MONO_PROCESS_ERROR_NOT_FOUND);
+
+ if (task_info (task, TASK_BASIC_INFO, (task_info_t)&t_info, &th_count) != KERN_SUCCESS) {
+ mach_port_deallocate (mach_task_self (), task);
+ RET_ERROR (MONO_PROCESS_ERROR_OTHER);
+ }
+
+ if (strcmp (item, "VmRSS") == 0 || strcmp (item, "VmHWM") == 0)
+ ret = t_info.resident_size;
+ else if (strcmp (item, "VmSize") == 0 || strcmp (item, "VmPeak") == 0)
+ ret = t_info.virtual_size;
+ else if (strcmp (item, "Threads") == 0)
+ ret = th_count;
+ else
+ ret = 0;
+
+ mach_port_deallocate (mach_task_self (), task);
+
+ return ret;
+#else
char buf [64];
char *s;
s = get_pid_status_item_buf (pid, item, buf, sizeof (buf), error);
if (s)
- return atoi (s);
+ return ((gint64) atol (s)) * multiplier;
return 0;
+#endif
}
/**
switch (data) {
case MONO_PROCESS_NUM_THREADS:
- return get_pid_status_item (rpid, "Threads", error);
+ return get_pid_status_item (rpid, "Threads", error, 1);
case MONO_PROCESS_USER_TIME:
return get_process_stat_time (rpid, 10, FALSE, error);
case MONO_PROCESS_SYSTEM_TIME:
case MONO_PROCESS_TOTAL_TIME:
return get_process_stat_time (rpid, 10, TRUE, error);
case MONO_PROCESS_WORKING_SET:
- return get_pid_status_item (rpid, "VmRSS", error) * 1024;
+ return get_pid_status_item (rpid, "VmRSS", error, 1024);
case MONO_PROCESS_WORKING_SET_PEAK:
- val = get_pid_status_item (rpid, "VmHWM", error) * 1024;
+ val = get_pid_status_item (rpid, "VmHWM", error, 1024);
if (val == 0)
- val = get_pid_status_item (rpid, "VmRSS", error) * 1024;
+ val = get_pid_status_item (rpid, "VmRSS", error, 1024);
return val;
case MONO_PROCESS_PRIVATE_BYTES:
- return get_pid_status_item (rpid, "VmData", error) * 1024;
+ return get_pid_status_item (rpid, "VmData", error, 1024);
case MONO_PROCESS_VIRTUAL_BYTES:
- return get_pid_status_item (rpid, "VmSize", error) * 1024;
+ return get_pid_status_item (rpid, "VmSize", error, 1024);
case MONO_PROCESS_VIRTUAL_BYTES_PEAK:
- val = get_pid_status_item (rpid, "VmPeak", error) * 1024;
+ val = get_pid_status_item (rpid, "VmPeak", error, 1024);
if (val == 0)
- val = get_pid_status_item (rpid, "VmSize", error) * 1024;
+ val = get_pid_status_item (rpid, "VmSize", error, 1024);
return val;
case MONO_PROCESS_FAULTS:
return get_process_stat_item (rpid, 6, TRUE, error);
int
mono_cpu_count (void)
{
- int count;
+ int count = 0;
+#ifdef PLATFORM_ANDROID
+ /* Android tries really hard to save power by powering off CPUs on SMP phones which
+ * means the normal way to query cpu count returns a wrong value with userspace API.
+ * Instead we use /sys entries to query the actual hardware CPU count.
+ */
+ char buffer[8] = {'\0'};
+ int present = open ("/sys/devices/system/cpu/present", O_RDONLY);
+ /* Format of the /sys entry is a cpulist of indexes which in the case
+ * of present is always of the form "0-(n-1)" when there is more than
+ * 1 core, n being the number of CPU cores in the system. Otherwise
+ * the value is simply 0
+ */
+ if (present != -1 && read (present, (char*)buffer, sizeof (buffer)) > 3)
+ count = strtol (((char*)buffer) + 2, NULL, 10);
+ if (present != -1)
+ close (present);
+ if (count > 0)
+ return count + 1;
+#endif
#ifdef _SC_NPROCESSORS_ONLN
count = sysconf (_SC_NPROCESSORS_ONLN);
if (count > 0)
char buf [256];
char *s;
int hz = get_user_hz ();
- long long unsigned int user_ticks, nice_ticks, system_ticks, idle_ticks, iowait_ticks, irq_ticks, sirq_ticks;
+ guint64 user_ticks = 0, nice_ticks = 0, system_ticks = 0, idle_ticks = 0, irq_ticks = 0, sirq_ticks = 0;
FILE *f = fopen ("/proc/stat", "r");
if (!f)
return;
} else {
continue;
}
- sscanf (data, "%Lu %Lu %Lu %Lu %Lu %Lu %Lu", &user_ticks, &nice_ticks, &system_ticks, &idle_ticks, &iowait_ticks, &irq_ticks, &sirq_ticks);
+
+ user_ticks = strtoull (data, &data, 10);
+ nice_ticks = strtoull (data, &data, 10);
+ system_ticks = strtoull (data, &data, 10);
+ idle_ticks = strtoull (data, &data, 10);
+ /* iowait_ticks = strtoull (data, &data, 10); */
+ irq_ticks = strtoull (data, &data, 10);
+ sirq_ticks = strtoull (data, &data, 10);
+ break;
}
fclose (f);