1 f0f4401f 2004-04-23 devnull #include <u.h>
  2 f0f4401f 2004-04-23 devnull #include <sys/types.h>
  3 f0f4401f 2004-04-23 devnull #include <sys/protosw.h>
  4 f0f4401f 2004-04-23 devnull #include <sys/socket.h>
  5 f0f4401f 2004-04-23 devnull #include <sys/sysctl.h>
  6 f0f4401f 2004-04-23 devnull #include <sys/time.h>
  7 f0f4401f 2004-04-23 devnull #include <sys/dkstat.h>
  8 f0f4401f 2004-04-23 devnull #include <net/if.h>
  9 f0f4401f 2004-04-23 devnull #include <net/if_var.h>
 10 f0f4401f 2004-04-23 devnull #include <net/if_dl.h>
 11 f0f4401f 2004-04-23 devnull #include <net/if_types.h>
 12 8187859d 2005-10-05 devnull #include <ifaddrs.h>
 13 f0f4401f 2004-04-23 devnull #include <sys/ioctl.h>
 14 f0f4401f 2004-04-23 devnull #include <limits.h>
 15 f0f4401f 2004-04-23 devnull #include <libc.h>
 16 f0f4401f 2004-04-23 devnull #include <bio.h>
 17 8187859d 2005-10-05 devnull 
 18 8187859d 2005-10-05 devnull #include <mach/mach.h>
 19 8187859d 2005-10-05 devnull #include <mach/mach_time.h>
 20 8187859d 2005-10-05 devnull #include <CoreFoundation/CoreFoundation.h>
 21 8187859d 2005-10-05 devnull #include <IOKit/ps/IOPowerSources.h>
 22 8187859d 2005-10-05 devnull AUTOFRAMEWORK(CoreFoundation)
 23 8187859d 2005-10-05 devnull AUTOFRAMEWORK(IOKit)
 24 8187859d 2005-10-05 devnull 
 25 f0f4401f 2004-04-23 devnull #include "dat.h"
 26 f0f4401f 2004-04-23 devnull 
 27 8187859d 2005-10-05 devnull typedef struct Sample Sample;
 28 8187859d 2005-10-05 devnull 
 29 8187859d 2005-10-05 devnull struct Sample
 30 8187859d 2005-10-05 devnull {
 31 8187859d 2005-10-05 devnull 	uint seq;
 32 8187859d 2005-10-05 devnull 	host_cpu_load_info_data_t cpu, p_cpu;
 33 8187859d 2005-10-05 devnull 	vm_size_t pgsize;
 34 8187859d 2005-10-05 devnull 	double divisor;
 35 8187859d 2005-10-05 devnull 	uint64_t time, p_time;
 36 8187859d 2005-10-05 devnull 	vm_statistics_data_t vm_stat, p_vm_stat;
 37 8187859d 2005-10-05 devnull 	boolean_t purgeable_is_valid;
 38 62a826a2 2006-01-27 devnull #ifdef VM_SWAPUSAGE	/* 10.4+ */
 39 8187859d 2005-10-05 devnull 	struct xsw_usage xsu;
 40 62a826a2 2006-01-27 devnull #endif
 41 8187859d 2005-10-05 devnull 	boolean_t xsu_valid;
 42 8187859d 2005-10-05 devnull 	integer_t syscalls_mach, p_syscalls_mach;
 43 8187859d 2005-10-05 devnull 	integer_t syscalls_unix, p_syscalls_unix;
 44 8187859d 2005-10-05 devnull 	ulong csw, p_csw;
 45 8187859d 2005-10-05 devnull 	uint net_ifaces;
 46 8187859d 2005-10-05 devnull 	uvlong net_ipackets, p_net_ipackets;
 47 8187859d 2005-10-05 devnull 	uvlong net_opackets, p_net_opackets;
 48 8187859d 2005-10-05 devnull 	uvlong net_ibytes, p_net_ibytes;
 49 8187859d 2005-10-05 devnull 	uvlong net_obytes, p_net_obytes;
 50 8187859d 2005-10-05 devnull 	uvlong net_errors, p_net_errors;
 51 8187859d 2005-10-05 devnull 	ulong usecs;
 52 8187859d 2005-10-05 devnull };
 53 8187859d 2005-10-05 devnull 
 54 8187859d 2005-10-05 devnull static Sample sample;
 55 8187859d 2005-10-05 devnull 
 56 8187859d 2005-10-05 devnull void xsample(int);
 57 8187859d 2005-10-05 devnull void xapm(int);
 58 f0f4401f 2004-04-23 devnull void xloadavg(int);
 59 f0f4401f 2004-04-23 devnull void xcpu(int);
 60 f0f4401f 2004-04-23 devnull void xswap(int);
 61 8187859d 2005-10-05 devnull void xvm(int);
 62 f0f4401f 2004-04-23 devnull void xnet(int);
 63 f0f4401f 2004-04-23 devnull 
 64 f0f4401f 2004-04-23 devnull void (*statfn[])(int) =
 65 f0f4401f 2004-04-23 devnull {
 66 8187859d 2005-10-05 devnull 	xsample,
 67 8187859d 2005-10-05 devnull 	xapm,
 68 f0f4401f 2004-04-23 devnull 	xloadavg,
 69 f0f4401f 2004-04-23 devnull 	xswap,
 70 f0f4401f 2004-04-23 devnull 	xcpu,
 71 8187859d 2005-10-05 devnull 	xvm,
 72 f0f4401f 2004-04-23 devnull 	xnet,
 73 f0f4401f 2004-04-23 devnull 	0
 74 f0f4401f 2004-04-23 devnull };
 75 f0f4401f 2004-04-23 devnull 
 76 8187859d 2005-10-05 devnull static mach_port_t stat_port;
 77 f0f4401f 2004-04-23 devnull 
 78 8187859d 2005-10-05 devnull void
 79 8187859d 2005-10-05 devnull sampleinit(void)
 80 8187859d 2005-10-05 devnull {
 81 8187859d 2005-10-05 devnull 	mach_timebase_info_data_t info;
 82 8187859d 2005-10-05 devnull 	
 83 8187859d 2005-10-05 devnull 	if(stat_port)
 84 8187859d 2005-10-05 devnull 		return;
 85 f0f4401f 2004-04-23 devnull 
 86 8187859d 2005-10-05 devnull 	stat_port = mach_host_self();
 87 8187859d 2005-10-05 devnull 	memset(&sample, 0, sizeof sample);
 88 8187859d 2005-10-05 devnull 	if(host_page_size(stat_port, &sample.pgsize) != KERN_SUCCESS)
 89 8187859d 2005-10-05 devnull 		sample.pgsize = 4096;
 90 8187859d 2005-10-05 devnull 
 91 cbeb0b26 2006-04-01 devnull 	/* populate clock tick info for timestamps */
 92 8187859d 2005-10-05 devnull 	mach_timebase_info(&info);
 93 8187859d 2005-10-05 devnull         sample.divisor = 1000.0 * (double)info.denom/info.numer;
 94 8187859d 2005-10-05 devnull 	sample.time = mach_absolute_time();
 95 8187859d 2005-10-05 devnull }
 96 8187859d 2005-10-05 devnull 
 97 f0f4401f 2004-04-23 devnull void
 98 8187859d 2005-10-05 devnull samplenet(void)
 99 f0f4401f 2004-04-23 devnull {
100 8187859d 2005-10-05 devnull 	struct ifaddrs *ifa_list, *ifa;
101 f3832660 2005-10-19 devnull 	struct if_data *if_data;
102 f3832660 2005-10-19 devnull 
103 8187859d 2005-10-05 devnull 	ifa_list = nil;
104 f3832660 2005-10-19 devnull 	sample.net_ifaces = 0;
105 8187859d 2005-10-05 devnull 	if(getifaddrs(&ifa_list) == 0){
106 8187859d 2005-10-05 devnull 		sample.p_net_ipackets = sample.net_ipackets;
107 8187859d 2005-10-05 devnull 		sample.p_net_opackets = sample.net_opackets;
108 8187859d 2005-10-05 devnull 		sample.p_net_ibytes = sample.net_ibytes;
109 f3832660 2005-10-19 devnull 		sample.p_net_obytes = sample.net_obytes;
110 8187859d 2005-10-05 devnull 		sample.p_net_errors = sample.net_errors;
111 f0f4401f 2004-04-23 devnull 
112 8187859d 2005-10-05 devnull 		sample.net_ipackets = 0;
113 8187859d 2005-10-05 devnull 		sample.net_opackets = 0;
114 8187859d 2005-10-05 devnull 		sample.net_ibytes = 0;
115 8187859d 2005-10-05 devnull 		sample.net_obytes = 0;
116 8187859d 2005-10-05 devnull 		sample.net_errors = 0;
117 8187859d 2005-10-05 devnull 		sample.net_ifaces = 0;
118 8187859d 2005-10-05 devnull 		
119 f3832660 2005-10-19 devnull 		for(ifa=ifa_list; ifa; ifa=ifa->ifa_next){
120 8187859d 2005-10-05 devnull 			if(ifa->ifa_addr->sa_family != AF_LINK)
121 8187859d 2005-10-05 devnull 				continue;
122 8187859d 2005-10-05 devnull 			if((ifa->ifa_flags&(IFF_UP|IFF_RUNNING)) == 0)
123 8187859d 2005-10-05 devnull 				continue;
124 8187859d 2005-10-05 devnull 			if(ifa->ifa_data == nil)
125 8187859d 2005-10-05 devnull 				continue;
126 8187859d 2005-10-05 devnull 			if(strncmp(ifa->ifa_name, "lo", 2) == 0)	/* loopback */
127 8187859d 2005-10-05 devnull 				continue;
128 8187859d 2005-10-05 devnull 			
129 f3832660 2005-10-19 devnull 			if_data = (struct if_data*)ifa->ifa_data;
130 8187859d 2005-10-05 devnull 			sample.net_ipackets += if_data->ifi_ipackets;
131 8187859d 2005-10-05 devnull 			sample.net_opackets += if_data->ifi_opackets;
132 8187859d 2005-10-05 devnull 			sample.net_ibytes += if_data->ifi_ibytes;
133 f3832660 2005-10-19 devnull 			sample.net_obytes += if_data->ifi_obytes;
134 f3832660 2005-10-19 devnull 			sample.net_errors += if_data->ifi_ierrors + if_data->ifi_oerrors;
135 8187859d 2005-10-05 devnull 			sample.net_ifaces++;
136 8187859d 2005-10-05 devnull 		}
137 8187859d 2005-10-05 devnull 		freeifaddrs(ifa_list);
138 f0f4401f 2004-04-23 devnull 	}
139 f0f4401f 2004-04-23 devnull }
140 f0f4401f 2004-04-23 devnull 
141 8187859d 2005-10-05 devnull 
142 8187859d 2005-10-05 devnull /*
143 8187859d 2005-10-05 devnull  * The following forces the program to be run with the suid root as
144 8187859d 2005-10-05 devnull  * all the other stat monitoring apps get set:
145 8187859d 2005-10-05 devnull  *
146 8187859d 2005-10-05 devnull  * -rwsr-xr-x   1 root  wheel  83088 Mar 20  2005 /usr/bin/top
147 8187859d 2005-10-05 devnull  * -rwsrwxr-x   1 root  admin  54048 Mar 20  2005 
148 8187859d 2005-10-05 devnull  *	/Applications/Utilities/Activity Monitor.app/Contents/Resources/pmTool
149 8187859d 2005-10-05 devnull  *
150 8187859d 2005-10-05 devnull  * If Darwin eventually encompases more into sysctl then this
151 8187859d 2005-10-05 devnull  * won't be required.
152 8187859d 2005-10-05 devnull  */
153 f0f4401f 2004-04-23 devnull void
154 663ddde9 2005-10-31 devnull sampleevents(void)
155 f0f4401f 2004-04-23 devnull {
156 8187859d 2005-10-05 devnull 	uint i, j, pcnt, tcnt;
157 8187859d 2005-10-05 devnull 	mach_msg_type_number_t count;
158 8187859d 2005-10-05 devnull 	kern_return_t error;
159 8187859d 2005-10-05 devnull 	processor_set_t *psets, pset;
160 8187859d 2005-10-05 devnull 	task_t *tasks;
161 8187859d 2005-10-05 devnull 	task_events_info_data_t events;
162 8187859d 2005-10-05 devnull 
163 8187859d 2005-10-05 devnull 	if((error = host_processor_sets(stat_port, &psets, &pcnt)) != KERN_SUCCESS){
164 8187859d 2005-10-05 devnull 		Bprint(&bout, "host_processor_sets: %s (make sure auxstats is setuid root)\n",
165 8187859d 2005-10-05 devnull 			mach_error_string(error));
166 8187859d 2005-10-05 devnull 		return;
167 8187859d 2005-10-05 devnull 	}
168 8187859d 2005-10-05 devnull 	
169 8187859d 2005-10-05 devnull 	sample.p_syscalls_mach = sample.syscalls_mach;
170 8187859d 2005-10-05 devnull 	sample.p_syscalls_unix = sample.syscalls_unix;
171 8187859d 2005-10-05 devnull 	sample.p_csw = sample.csw;
172 8187859d 2005-10-05 devnull 
173 8187859d 2005-10-05 devnull 	sample.syscalls_mach = 0;
174 8187859d 2005-10-05 devnull 	sample.syscalls_unix = 0;
175 8187859d 2005-10-05 devnull 	sample.csw = 0;
176 8187859d 2005-10-05 devnull 	
177 8187859d 2005-10-05 devnull 	for(i=0; i<pcnt; i++){
178 8187859d 2005-10-05 devnull 		if((error=host_processor_set_priv(stat_port, psets[i], &pset)) != KERN_SUCCESS){
179 8187859d 2005-10-05 devnull 			Bprint(&bout, "host_processor_set_priv: %s\n", mach_error_string(error));
180 8187859d 2005-10-05 devnull 			return;
181 8187859d 2005-10-05 devnull 		}
182 f3832660 2005-10-19 devnull 		if((error=processor_set_tasks(pset, &tasks, &tcnt)) != KERN_SUCCESS){
183 f3832660 2005-10-19 devnull 			Bprint(&bout, "processor_set_tasks: %s\n", mach_error_string(error));
184 8187859d 2005-10-05 devnull 			return;
185 8187859d 2005-10-05 devnull 		}
186 8187859d 2005-10-05 devnull 		for(j=0; j<tcnt; j++){
187 8187859d 2005-10-05 devnull 			count = TASK_EVENTS_INFO_COUNT;
188 8187859d 2005-10-05 devnull 			if(task_info(tasks[j], TASK_EVENTS_INFO, (task_info_t)&events, &count) == KERN_SUCCESS){
189 8187859d 2005-10-05 devnull 				sample.syscalls_mach += events.syscalls_mach;
190 8187859d 2005-10-05 devnull 				sample.syscalls_unix += events.syscalls_unix;
191 8187859d 2005-10-05 devnull 				sample.csw += events.csw;
192 8187859d 2005-10-05 devnull 			}
193 8187859d 2005-10-05 devnull 			
194 8187859d 2005-10-05 devnull 			if(tasks[j] != mach_task_self())
195 8187859d 2005-10-05 devnull 				mach_port_deallocate(mach_task_self(), tasks[j]);
196 8187859d 2005-10-05 devnull 		}
197 8187859d 2005-10-05 devnull 		
198 8187859d 2005-10-05 devnull 		if((error = vm_deallocate((vm_map_t)mach_task_self(), 
199 8187859d 2005-10-05 devnull 				(vm_address_t)tasks, tcnt*sizeof(task_t))) != KERN_SUCCESS){
200 8187859d 2005-10-05 devnull 			Bprint(&bout, "vm_deallocate: %s\n", mach_error_string(error));
201 8187859d 2005-10-05 devnull 			return;
202 8187859d 2005-10-05 devnull 		}
203 8187859d 2005-10-05 devnull 		
204 8187859d 2005-10-05 devnull 		if((error = mach_port_deallocate(mach_task_self(), pset)) != KERN_SUCCESS
205 8187859d 2005-10-05 devnull 		|| (error = mach_port_deallocate(mach_task_self(), psets[i])) != KERN_SUCCESS){
206 8187859d 2005-10-05 devnull 			Bprint(&bout, "mach_port_deallocate: %s\n", mach_error_string(error));
207 8187859d 2005-10-05 devnull 			return;
208 8187859d 2005-10-05 devnull 		}
209 8187859d 2005-10-05 devnull 	}
210 8187859d 2005-10-05 devnull 	
211 8187859d 2005-10-05 devnull 	if((error = vm_deallocate((vm_map_t)mach_task_self(), (vm_address_t)psets,
212 8187859d 2005-10-05 devnull 			pcnt*sizeof(processor_set_t))) != KERN_SUCCESS){
213 8187859d 2005-10-05 devnull 		Bprint(&bout, "vm_deallocate: %s\n", mach_error_string(error));
214 8187859d 2005-10-05 devnull 		return;
215 8187859d 2005-10-05 devnull 	}
216 f0f4401f 2004-04-23 devnull }
217 f0f4401f 2004-04-23 devnull 
218 8187859d 2005-10-05 devnull void
219 8187859d 2005-10-05 devnull xsample(int first)
220 f0f4401f 2004-04-23 devnull {
221 8187859d 2005-10-05 devnull 	int mib[2];
222 8187859d 2005-10-05 devnull 	mach_msg_type_number_t count;
223 8187859d 2005-10-05 devnull 	size_t len;
224 8187859d 2005-10-05 devnull 	
225 8187859d 2005-10-05 devnull 	if(first){
226 8187859d 2005-10-05 devnull 		sampleinit();
227 8187859d 2005-10-05 devnull 		return;
228 f0f4401f 2004-04-23 devnull 	}
229 8187859d 2005-10-05 devnull 	
230 8187859d 2005-10-05 devnull 	sample.seq++;
231 8187859d 2005-10-05 devnull 	sample.p_time = sample.time;
232 8187859d 2005-10-05 devnull 	sample.time = mach_absolute_time();
233 8187859d 2005-10-05 devnull 
234 8187859d 2005-10-05 devnull 	sample.p_vm_stat = sample.vm_stat;
235 8187859d 2005-10-05 devnull 	count = sizeof(sample.vm_stat) / sizeof(natural_t);
236 8187859d 2005-10-05 devnull 	host_statistics(stat_port, HOST_VM_INFO, (host_info_t)&sample.vm_stat, &count);
237 8187859d 2005-10-05 devnull 	
238 8187859d 2005-10-05 devnull 	if(sample.seq == 1)
239 8187859d 2005-10-05 devnull 		sample.p_vm_stat = sample.vm_stat;
240 8187859d 2005-10-05 devnull 
241 62a826a2 2006-01-27 devnull #ifdef VM_SWAPUSAGE
242 8187859d 2005-10-05 devnull 	mib[0] = CTL_VM;
243 8187859d 2005-10-05 devnull 	mib[1] = VM_SWAPUSAGE;
244 8187859d 2005-10-05 devnull 	len = sizeof sample.xsu;
245 8187859d 2005-10-05 devnull 	sample.xsu_valid = TRUE;
246 f3832660 2005-10-19 devnull 	if(sysctl(mib, 2, &sample.xsu, &len, NULL, 0) < 0 && errno == ENOENT)
247 663ddde9 2005-10-31 devnull 		sample.xsu_valid = FALSE;
248 62a826a2 2006-01-27 devnull #endif
249 62a826a2 2006-01-27 devnull 
250 8187859d 2005-10-05 devnull 	samplenet();
251 8187859d 2005-10-05 devnull 	sampleevents();
252 8187859d 2005-10-05 devnull 
253 8187859d 2005-10-05 devnull 	sample.p_cpu = sample.cpu;
254 8187859d 2005-10-05 devnull 	count = HOST_CPU_LOAD_INFO_COUNT;
255 8187859d 2005-10-05 devnull 	host_statistics(stat_port, HOST_CPU_LOAD_INFO, (host_info_t)&sample.cpu, &count);
256 f3832660 2005-10-19 devnull 	sample.usecs = (double)(sample.time - sample.p_time)/sample.divisor;
257 8187859d 2005-10-05 devnull 	Bprint(&bout, "usecs %lud\n", sample.usecs);
258 f0f4401f 2004-04-23 devnull }
259 f0f4401f 2004-04-23 devnull 
260 f0f4401f 2004-04-23 devnull void
261 8187859d 2005-10-05 devnull xapm(int first)
262 f0f4401f 2004-04-23 devnull {
263 8187859d 2005-10-05 devnull 	int i, battery;
264 8187859d 2005-10-05 devnull 	CFArrayRef array;
265 8187859d 2005-10-05 devnull 	CFDictionaryRef dict;
266 8187859d 2005-10-05 devnull 	CFTypeRef cf, src, value;
267 f0f4401f 2004-04-23 devnull 
268 f0f4401f 2004-04-23 devnull 	if(first)
269 f0f4401f 2004-04-23 devnull 		return;
270 8187859d 2005-10-05 devnull 		
271 8187859d 2005-10-05 devnull 	src = IOPSCopyPowerSourcesInfo();
272 8187859d 2005-10-05 devnull 	array = IOPSCopyPowerSourcesList(src);
273 f0f4401f 2004-04-23 devnull 
274 8187859d 2005-10-05 devnull 	for(i=0; i<CFArrayGetCount(array); i++){
275 8187859d 2005-10-05 devnull 		cf = CFArrayGetValueAtIndex(array, i);
276 8187859d 2005-10-05 devnull 		dict = IOPSGetPowerSourceDescription(src, cf);
277 8187859d 2005-10-05 devnull 		if(dict != nil){
278 8187859d 2005-10-05 devnull 			value = CFDictionaryGetValue(dict, CFSTR("Current Capacity"));
279 8187859d 2005-10-05 devnull 			if(value != nil){
280 8187859d 2005-10-05 devnull 				if(!CFNumberGetValue(value, kCFNumberIntType, &battery))
281 8187859d 2005-10-05 devnull 					battery = 100;
282 8187859d 2005-10-05 devnull 				Bprint(&bout, "battery =%d 100\n", battery);
283 8187859d 2005-10-05 devnull 				break;
284 8187859d 2005-10-05 devnull 			}
285 8187859d 2005-10-05 devnull 		}
286 f0f4401f 2004-04-23 devnull 	}
287 f0f4401f 2004-04-23 devnull 
288 8187859d 2005-10-05 devnull 	CFRelease(array);
289 8187859d 2005-10-05 devnull 	CFRelease(src);
290 8187859d 2005-10-05 devnull }
291 f0f4401f 2004-04-23 devnull 
292 8187859d 2005-10-05 devnull void
293 8187859d 2005-10-05 devnull xnet(int first)
294 8187859d 2005-10-05 devnull {
295 8187859d 2005-10-05 devnull 	uint n;
296 c7a10afd 2007-04-14 devnull 	ulong err, in, inb, out, outb;
297 8187859d 2005-10-05 devnull 	
298 8187859d 2005-10-05 devnull 	n = sample.net_ifaces;
299 c7a10afd 2007-04-14 devnull 	in = sample.net_ipackets - sample.p_net_ipackets;
300 c7a10afd 2007-04-14 devnull 	out = sample.net_opackets - sample.p_net_opackets;
301 c7a10afd 2007-04-14 devnull 	inb = sample.net_ibytes - sample.p_net_ibytes;
302 c7a10afd 2007-04-14 devnull 	outb = sample.net_obytes - sample.p_net_obytes;
303 c7a10afd 2007-04-14 devnull 	err = sample.net_errors - sample.p_net_errors;
304 8187859d 2005-10-05 devnull 	
305 c7a10afd 2007-04-14 devnull        Bprint(&bout, "etherb %lud %d\n", inb+outb, n*1000000);
306 c7a10afd 2007-04-14 devnull        Bprint(&bout, "ether %lud %d\n", in+out, n*1000);
307 c7a10afd 2007-04-14 devnull        Bprint(&bout, "ethererr %lud %d\n", err, n*1000);
308 c7a10afd 2007-04-14 devnull        Bprint(&bout, "etherin %lud %d\n", in, n*1000);
309 c7a10afd 2007-04-14 devnull        Bprint(&bout, "etherout %lud %d\n", out, n*1000);
310 c7a10afd 2007-04-14 devnull        Bprint(&bout, "etherinb %lud %d\n", inb, n*1000);
311 c7a10afd 2007-04-14 devnull        Bprint(&bout, "etheroutb %lud %d\n", outb, n*1000);
312 f0f4401f 2004-04-23 devnull }
313 f0f4401f 2004-04-23 devnull 
314 f0f4401f 2004-04-23 devnull int
315 f0f4401f 2004-04-23 devnull rsys(char *name, char *buf, int len)
316 f0f4401f 2004-04-23 devnull {
317 f0f4401f 2004-04-23 devnull 	size_t l;
318 f0f4401f 2004-04-23 devnull 
319 f0f4401f 2004-04-23 devnull 	l = len;
320 f0f4401f 2004-04-23 devnull 	if(sysctlbyname(name, buf, &l, nil, 0) < 0)
321 f0f4401f 2004-04-23 devnull 		return -1;
322 f0f4401f 2004-04-23 devnull 	buf[l] = 0;
323 f0f4401f 2004-04-23 devnull 	return l;
324 f0f4401f 2004-04-23 devnull }
325 f0f4401f 2004-04-23 devnull 
326 f0f4401f 2004-04-23 devnull vlong
327 f0f4401f 2004-04-23 devnull isys(char *name)
328 f0f4401f 2004-04-23 devnull {
329 f0f4401f 2004-04-23 devnull 	ulong u;
330 f0f4401f 2004-04-23 devnull 	size_t l;
331 f0f4401f 2004-04-23 devnull 
332 f0f4401f 2004-04-23 devnull 	l = sizeof u;
333 f0f4401f 2004-04-23 devnull 	if(sysctlbyname(name, &u, &l, nil, 0) < 0)
334 f0f4401f 2004-04-23 devnull 		return 0;
335 f0f4401f 2004-04-23 devnull 	return u;
336 f0f4401f 2004-04-23 devnull }
337 f0f4401f 2004-04-23 devnull 
338 f0f4401f 2004-04-23 devnull void
339 8187859d 2005-10-05 devnull xvm(int first)
340 f0f4401f 2004-04-23 devnull {
341 4492a1ee 2007-04-12 devnull 	natural_t total, active;
342 f0f4401f 2004-04-23 devnull 
343 8187859d 2005-10-05 devnull 	if(first)
344 8187859d 2005-10-05 devnull 		return;
345 8187859d 2005-10-05 devnull 
346 8187859d 2005-10-05 devnull 	total = sample.vm_stat.free_count
347 8187859d 2005-10-05 devnull 		+ sample.vm_stat.active_count
348 8187859d 2005-10-05 devnull 		+ sample.vm_stat.inactive_count
349 8187859d 2005-10-05 devnull 		+ sample.vm_stat.wire_count;
350 4492a1ee 2007-04-12 devnull 	
351 4492a1ee 2007-04-12 devnull 	active = sample.vm_stat.active_count
352 4492a1ee 2007-04-12 devnull 		+ sample.vm_stat.inactive_count
353 4492a1ee 2007-04-12 devnull 		+ sample.vm_stat.wire_count;
354 4492a1ee 2007-04-12 devnull 
355 8187859d 2005-10-05 devnull 	if(total)
356 4492a1ee 2007-04-12 devnull 		Bprint(&bout, "mem =%lud %lud\n", active, total);
357 8187859d 2005-10-05 devnull 
358 8187859d 2005-10-05 devnull 	Bprint(&bout, "context %lld 1000\n", (vlong)sample.csw);
359 8187859d 2005-10-05 devnull 	Bprint(&bout, "syscall %lld 1000\n", (vlong)sample.syscalls_mach+sample.syscalls_unix);
360 8187859d 2005-10-05 devnull 	Bprint(&bout, "intr %lld 1000\n", 
361 8187859d 2005-10-05 devnull 		isys("vm.stats.sys.v_intr")
362 8187859d 2005-10-05 devnull 		+isys("vm.stats.sys.v_trap"));
363 8187859d 2005-10-05 devnull 	
364 f3832660 2005-10-19 devnull 	Bprint(&bout, "fault %lld 1000\n", sample.vm_stat.faults);
365 8187859d 2005-10-05 devnull 	Bprint(&bout, "fork %lld 1000\n",
366 8187859d 2005-10-05 devnull 		isys("vm.stats.vm.v_rforks")
367 f0f4401f 2004-04-23 devnull 		+isys("vm.stats.vm.v_vforks"));
368 8187859d 2005-10-05 devnull 
369 cbeb0b26 2006-04-01 devnull /*    Bprint(&bout, "hits %lud of %lud lookups (%d%% hit rate)\n", */
370 cbeb0b26 2006-04-01 devnull /*               (asamp.vm_stat.hits), */
371 cbeb0b26 2006-04-01 devnull /*               (asamp.vm_stat.lookups), */
372 cbeb0b26 2006-04-01 devnull /*               (natural_t)(((double)asamp.vm_stat.hits*100)/ (double)asamp.vm_stat.lookups)); */
373 f0f4401f 2004-04-23 devnull }
374 f0f4401f 2004-04-23 devnull 
375 f0f4401f 2004-04-23 devnull void
376 f0f4401f 2004-04-23 devnull xcpu(int first)
377 f0f4401f 2004-04-23 devnull {
378 8187859d 2005-10-05 devnull 	ulong user, sys, idle, nice, t;
379 f0f4401f 2004-04-23 devnull 
380 8187859d 2005-10-05 devnull 	if(first)
381 f0f4401f 2004-04-23 devnull 		return;
382 f0f4401f 2004-04-23 devnull 
383 8187859d 2005-10-05 devnull 	sys = sample.cpu.cpu_ticks[CPU_STATE_SYSTEM] -
384 8187859d 2005-10-05 devnull 		sample.p_cpu.cpu_ticks[CPU_STATE_SYSTEM];
385 8187859d 2005-10-05 devnull 	idle = sample.cpu.cpu_ticks[CPU_STATE_IDLE] -
386 8187859d 2005-10-05 devnull 		sample.p_cpu.cpu_ticks[CPU_STATE_IDLE];
387 8187859d 2005-10-05 devnull 	user = sample.cpu.cpu_ticks[CPU_STATE_USER] -
388 8187859d 2005-10-05 devnull 		sample.p_cpu.cpu_ticks[CPU_STATE_USER];
389 8187859d 2005-10-05 devnull 	nice = sample.cpu.cpu_ticks[CPU_STATE_NICE] -
390 8187859d 2005-10-05 devnull 		sample.p_cpu.cpu_ticks[CPU_STATE_NICE];
391 8187859d 2005-10-05 devnull 	
392 8187859d 2005-10-05 devnull 	t = sys+idle+user+nice;
393 f0f4401f 2004-04-23 devnull 
394 8187859d 2005-10-05 devnull 	Bprint(&bout, "user =%lud %lud\n", user, t);
395 8187859d 2005-10-05 devnull 	Bprint(&bout, "sys =%lud %lud\n", sys, t);
396 8187859d 2005-10-05 devnull 	Bprint(&bout, "idle =%lud %lud\n", idle, t);
397 8187859d 2005-10-05 devnull 	Bprint(&bout, "nice =%lud %lud\n", nice, t);
398 f0f4401f 2004-04-23 devnull }
399 f0f4401f 2004-04-23 devnull 
400 f0f4401f 2004-04-23 devnull void
401 f0f4401f 2004-04-23 devnull xloadavg(int first)
402 f0f4401f 2004-04-23 devnull {
403 f0f4401f 2004-04-23 devnull 	double l[3];
404 f0f4401f 2004-04-23 devnull 
405 f0f4401f 2004-04-23 devnull 	if(first)
406 f0f4401f 2004-04-23 devnull 		return;
407 f0f4401f 2004-04-23 devnull 
408 f0f4401f 2004-04-23 devnull 	if(getloadavg(l, 3) < 0)
409 f0f4401f 2004-04-23 devnull 		return;
410 f0f4401f 2004-04-23 devnull 	Bprint(&bout, "load %d 1000\n", (int)(l[0]*1000.0));
411 f0f4401f 2004-04-23 devnull }
412 f0f4401f 2004-04-23 devnull 
413 f0f4401f 2004-04-23 devnull void
414 f0f4401f 2004-04-23 devnull xswap(int first)
415 f0f4401f 2004-04-23 devnull {
416 8187859d 2005-10-05 devnull 	if(first)
417 f0f4401f 2004-04-23 devnull 		return;
418 2a951f5e 2006-01-27 devnull 
419 2a951f5e 2006-01-27 devnull #ifdef VM_SWAPUSAGE
420 8187859d 2005-10-05 devnull 	if(sample.xsu_valid)
421 8187859d 2005-10-05 devnull 		Bprint(&bout, "swap %lld %lld\n", 
422 f3832660 2005-10-19 devnull 			(vlong)sample.xsu.xsu_used, 
423 8187859d 2005-10-05 devnull 			(vlong)sample.xsu.xsu_total);
424 2a951f5e 2006-01-27 devnull #endif
425 f0f4401f 2004-04-23 devnull }