2 * Licensed under GPLv2, see file LICENSE in this source tree.
4 * Based on nanotop.c from floppyfw project
6 * Contact me: vda.linux@googlemail.com
9 //config: bool "nmeter (11 kb)"
12 //config: Prints selected system stats continuously, one line per update.
14 //applet:IF_NMETER(APPLET(nmeter, BB_DIR_USR_BIN, BB_SUID_DROP))
16 //kbuild:lib-$(CONFIG_NMETER) += nmeter.o
18 //usage:#define nmeter_trivial_usage
19 //usage: "[-d MSEC] FORMAT_STRING"
20 //usage:#define nmeter_full_usage "\n\n"
21 //usage: "Monitor system in real time"
23 //usage: "\n -d MSEC Milliseconds between updates, default:1000, none:-1"
25 //usage: "\nFormat specifiers:"
26 //usage: "\n %Nc or %[cN] CPU. N - bar size (default 10)"
27 //usage: "\n (displays: S:system U:user N:niced D:iowait I:irq i:softirq)"
28 //usage: "\n %[nINTERFACE] Network INTERFACE"
29 //usage: "\n %m Allocated memory"
30 //usage: "\n %[mf] Free memory"
31 //usage: "\n %[mt] Total memory"
32 //usage: "\n %s Allocated swap"
33 //usage: "\n %f Number of used file descriptors"
34 //usage: "\n %Ni Total/specific IRQ rate"
35 //usage: "\n %x Context switch rate"
36 //usage: "\n %p Forks"
37 //usage: "\n %[pn] # of processes"
38 //usage: "\n %b Block io"
39 //usage: "\n %Nt Time (with N decimal points)"
40 //usage: "\n %r Print <cr> instead of <lf> at EOL"
46 // disk_io: (3,0):(22272,17897,410702,4375,54750)
48 //TODO: use sysinfo libc call/syscall, if appropriate
49 // (faster than open/read/close):
50 // sysinfo({uptime=15017, loads=[5728, 15040, 16480]
51 // totalram=2107416576, freeram=211525632, sharedram=0, bufferram=157204480}
52 // totalswap=134209536, freeswap=134209536, procs=157})
55 #include "common_bufsiz.h"
57 typedef unsigned long long ullong;
59 enum { /* Preferably use powers of 2 */
60 PROC_MIN_FILE_SIZE = 256,
61 PROC_MAX_FILE_SIZE = 16 * 1024,
64 typedef struct proc_file {
70 static const char *const proc_name[] = {
71 "stat", // Must match the order of proc_file's!
80 // Sample generation flip-flop
82 // Linux 2.6? (otherwise assumes 2.4)
84 // 1 if sample delay is not an integer fraction of a second
85 smallint need_seconds;
91 #define first_proc_file proc_stat
92 proc_file proc_stat; // Must match the order of proc_name's!
93 proc_file proc_loadavg;
94 proc_file proc_net_dev;
95 proc_file proc_meminfo;
96 proc_file proc_diskstats;
97 proc_file proc_sys_fs_filenr;
99 #define G (*ptr_to_globals)
101 #define is26 (G.is26 )
102 #define need_seconds (G.need_seconds )
103 #define cur_outbuf (G.cur_outbuf )
105 #define proc_stat (G.proc_stat )
106 #define proc_loadavg (G.proc_loadavg )
107 #define proc_net_dev (G.proc_net_dev )
108 #define proc_meminfo (G.proc_meminfo )
109 #define proc_diskstats (G.proc_diskstats )
110 #define proc_sys_fs_filenr (G.proc_sys_fs_filenr)
111 #define outbuf bb_common_bufsiz1
112 #define INIT_G() do { \
113 setup_common_bufsiz(); \
114 SET_PTR_TO_GLOBALS(xzalloc(sizeof(G))); \
115 cur_outbuf = outbuf; \
116 G.final_char = '\n'; \
117 G.deltanz = G.delta = 1000000; \
120 static inline void reset_outbuf(void)
125 static void print_outbuf(void)
127 int sz = cur_outbuf - outbuf;
129 xwrite(STDOUT_FILENO, outbuf, sz);
134 static void put(const char *s)
136 char *p = cur_outbuf;
137 int sz = outbuf + COMMON_BUFSIZE - p;
138 while (*s && --sz >= 0)
143 static void put_c(char c)
145 if (cur_outbuf < outbuf + COMMON_BUFSIZE)
149 static void put_question_marks(int count)
155 static void readfile_z(proc_file *pf, const char* fname)
157 // open_read_close() will do two reads in order to be sure we are at EOF,
158 // and we don't need/want that.
166 buf = xmalloc(PROC_MIN_FILE_SIZE);
167 sz = PROC_MIN_FILE_SIZE;
170 fd = xopen(fname, O_RDONLY);
172 rdsz = read(fd, buf, sz-1);
175 if (rdsz == sz-1 && sz < PROC_MAX_FILE_SIZE) {
177 buf = xrealloc(buf, sz);
186 static const char* get_file(proc_file *pf)
188 if (pf->last_gen != gen) {
190 readfile_z(pf, proc_name[pf - &first_proc_file]);
195 static ullong read_after_slash(const char *p)
199 return strtoull(p+1, NULL, 10);
207 // Reads decimal values from line. Values start after key, for example:
208 // "cpu 649369 0 341297 4336769..." - key is "cpu" here.
209 // Values are stored in vec[].
210 // posbits is a bit lit of positions we are interested in.
211 // for example: 00100110 - we want 1st, 2nd and 5th value.
212 // posbits.bit0 encodes conversion type.
213 static int rdval(const char* p, const char* key, ullong *vec, long posbits)
223 while (*p == ' ' || *p == '\t') p++;
224 if (*p == '\n' || *p == '\0') break;
226 if (curpos & posbits) { // read this value
227 *vec++ = (posbits & 1) == conv_decimal ?
228 strtoull(p, NULL, 10) :
234 while (*p > ' ') // skip over the value
241 // Parses files with lines like "... ... ... 3/148 ...."
242 static int rdval_loadavg(const char* p, ullong *vec, long posbits)
245 result = rdval(p, "", vec, posbits | conv_slash);
249 // Parses /proc/diskstats
250 // 1 2 3 4 5 6(rd) 7 8 9 10(wr) 11 12 13 14
251 // 3 0 hda 51292 14441 841783 926052 25717 79650 843256 3029804 0 148459 3956933
252 // 3 1 hda1 0 0 0 0 <- ignore if only 4 fields
253 // Linux 3.0 (maybe earlier) started printing full stats for hda1 too.
254 // Had to add code which skips such devices.
255 static int rdval_diskstats(const char* p, ullong *vec)
258 unsigned devname_len = 0;
265 while (*p == ' ' || *p == '\t')
274 if (value_idx == 3) {
275 char *end = strchrnul(p, ' ');
276 /* If this a hda1-like device (same prefix as last one + digit)? */
277 if (devname_len && strncmp(devname, p, devname_len) == 0 && isdigit(p[devname_len])) {
279 goto skip_line; /* skip entire line */
281 /* It is not. Remember the name for future checks */
282 devname_len = end - p;
283 if (devname_len > sizeof(devname)-1)
284 devname_len = sizeof(devname)-1;
285 strncpy(devname, p, devname_len);
286 /* devname[devname_len] = '\0'; - not really needed */
289 if (value_idx == 6) {
290 // TODO: *sectorsize (don't know how to find out sectorsize)
291 vec[0] += strtoull(p, NULL, 10);
293 if (value_idx == 10) {
294 // TODO: *sectorsize (don't know how to find out sectorsize)
295 vec[1] += strtoull(p, NULL, 10);
297 while (*p != '\n' && *p != '\0')
301 while ((unsigned char)(*p) > ' ') // skip over value
307 static void scale(ullong ul)
311 /* see http://en.wikipedia.org/wiki/Tera */
312 smart_ulltoa4(ul, buf, " kmgtpezy")[0] = '\0';
318 struct s_stat *next; \
319 void (*collect)(struct a *s) FAST_FUNC; \
321 #define S_STAT_END(a) } a;
326 static void FAST_FUNC collect_literal(s_stat *s UNUSED_PARAM)
330 static s_stat* init_literal(void)
332 s_stat *s = xzalloc(sizeof(*s));
333 s->collect = collect_literal;
337 static s_stat* init_cr(const char *param UNUSED_PARAM)
343 // user nice system idle iowait irq softirq (last 3 only in 2.6)
344 //cpu 649369 0 341297 4336769 11640 7122 1183
345 //cpuN 649369 0 341297 4336769 11640 7122 1183
346 enum { CPU_FIELDCNT = 7 };
348 ullong old[CPU_FIELDCNT];
353 static void FAST_FUNC collect_cpu(cpu_stat *s)
355 ullong data[CPU_FIELDCNT] = { 0, 0, 0, 0, 0, 0, 0 };
356 unsigned frac[CPU_FIELDCNT] = { 0, 0, 0, 0, 0, 0, 0 };
358 unsigned norm_all = 0;
359 unsigned bar_sz = s->bar_sz;
363 if (rdval(get_file(&proc_stat), "cpu ", data, 0
372 put_question_marks(bar_sz);
376 for (i = 0; i < CPU_FIELDCNT; i++) {
377 ullong old = s->old[i];
378 if (data[i] < old) old = data[i]; //sanitize
380 all += (data[i] -= old);
384 for (i = 0; i < CPU_FIELDCNT; i++) {
385 ullong t = bar_sz * data[i];
386 norm_all += data[i] = t / all;
390 while (norm_all < bar_sz) {
391 unsigned max = frac[0];
393 for (i = 1; i < CPU_FIELDCNT; i++) {
394 if (frac[i] > max) max = frac[i], pos = i;
396 frac[pos] = 0; //avoid bumping up same value twice
401 memset(bar, '.', bar_sz);
402 memset(bar, 'S', data[2]); bar += data[2]; //sys
403 memset(bar, 'U', data[0]); bar += data[0]; //usr
404 memset(bar, 'N', data[1]); bar += data[1]; //nice
405 memset(bar, 'D', data[4]); bar += data[4]; //iowait
406 memset(bar, 'I', data[5]); bar += data[5]; //irq
407 memset(bar, 'i', data[6]); bar += data[6]; //softirq
409 memset(bar, '?', bar_sz);
414 static s_stat* init_cpu(const char *param)
418 sz = param[0] ? strtoul(param, NULL, 0) : 10;
420 if (sz > 1000) sz = 1000;
421 s = xzalloc(sizeof(*s) + sz);
422 /*s->bar[sz] = '\0'; - xzalloc did it */
424 s->collect = collect_cpu;
433 static void FAST_FUNC collect_int(int_stat *s)
438 if (rdval(get_file(&proc_stat), "intr", data, 1 << s->no)) {
439 put_question_marks(4);
444 if (data[0] < old) old = data[0]; //sanitize
446 scale(data[0] - old);
449 static s_stat* init_int(const char *param)
451 int_stat *s = xzalloc(sizeof(*s));
452 s->collect = collect_int;
453 if (param[0] == '\0') {
456 int n = xatoi_positive(param);
466 static void FAST_FUNC collect_ctx(ctx_stat *s)
471 if (rdval(get_file(&proc_stat), "ctxt", data, 1 << 1)) {
472 put_question_marks(4);
477 if (data[0] < old) old = data[0]; //sanitize
479 scale(data[0] - old);
482 static s_stat* init_ctx(const char *param UNUSED_PARAM)
484 ctx_stat *s = xzalloc(sizeof(*s));
485 s->collect = collect_ctx;
494 static void FAST_FUNC collect_blk(blk_stat *s)
500 i = rdval_diskstats(get_file(&proc_diskstats), data);
502 i = rdval(get_file(&proc_stat), s->lookfor, data, 0
506 // Linux 2.4 reports bio in Kbytes, convert to sectors:
511 put_question_marks(9);
515 for (i=0; i<2; i++) {
516 ullong old = s->old[i];
517 if (data[i] < old) old = data[i]; //sanitize
521 scale(data[0]*512); // TODO: *sectorsize
526 static s_stat* init_blk(const char *param UNUSED_PARAM)
528 blk_stat *s = xzalloc(sizeof(*s));
529 s->collect = collect_blk;
536 S_STAT_END(fork_stat)
538 static void FAST_FUNC collect_thread_nr(fork_stat *s UNUSED_PARAM)
542 if (rdval_loadavg(get_file(&proc_loadavg), data, 1 << 4)) {
543 put_question_marks(4);
549 static void FAST_FUNC collect_fork(fork_stat *s)
554 if (rdval(get_file(&proc_stat), "processes", data, 1 << 1)) {
555 put_question_marks(4);
560 if (data[0] < old) old = data[0]; //sanitize
562 scale(data[0] - old);
565 static s_stat* init_fork(const char *param)
567 fork_stat *s = xzalloc(sizeof(*s));
569 s->collect = collect_thread_nr;
571 s->collect = collect_fork;
582 static void FAST_FUNC collect_if(if_stat *s)
587 if (rdval(get_file(&proc_net_dev), s->device_colon, data, 0
593 put_question_marks(10);
597 for (i=0; i<4; i++) {
598 ullong old = s->old[i];
599 if (data[i] < old) old = data[i]; //sanitize
603 put_c(data[1] ? '*' : ' ');
605 put_c(data[3] ? '*' : ' ');
609 static s_stat* init_if(const char *device)
611 if_stat *s = xzalloc(sizeof(*s));
613 if (!device || !device[0])
615 s->collect = collect_if;
618 s->device_colon = xasprintf("%s:", device);
626 // "Memory" value should not include any caches.
627 // IOW: neither "ls -laR /" nor heavy read/write activity
628 // should affect it. We'd like to also include any
629 // long-term allocated kernel-side mem, but it is hard
630 // to figure out. For now, bufs, cached & slab are
631 // counted as "free" memory
633 //MemTotal: 773280 kB
634 //MemFree: 25912 kB - genuinely free
635 //Buffers: 320672 kB - cache
636 //Cached: 146396 kB - cache
639 //Inactive: 356892 kB
642 //LowTotal: 773280 kB
644 //SwapTotal: 131064 kB
645 //SwapFree: 131064 kB
649 //Slab: 200668 kB - takes 7 Mb on my box fresh after boot,
650 // but includes dentries and inodes
651 // (== can take arbitrary amount of mem)
652 //CommitLimit: 517704 kB
653 //Committed_AS: 236776 kB
654 //PageTables: 1248 kB
655 //VmallocTotal: 516052 kB
656 //VmallocUsed: 3852 kB
657 //VmallocChunk: 512096 kB
660 //Hugepagesize: 4096 kB
661 static void FAST_FUNC collect_mem(mem_stat *s)
669 if (rdval(get_file(&proc_meminfo), "MemTotal:", &m_total, 1 << 1)) {
670 put_question_marks(4);
674 scale(m_total << 10);
678 if (rdval(proc_meminfo.file, "MemFree:", &m_free , 1 << 1)
679 || rdval(proc_meminfo.file, "Buffers:", &m_bufs , 1 << 1)
680 || rdval(proc_meminfo.file, "Cached:", &m_cached, 1 << 1)
681 || rdval(proc_meminfo.file, "Slab:", &m_slab , 1 << 1)
683 put_question_marks(4);
687 m_free += m_bufs + m_cached + m_slab;
690 scale(m_free << 10); break;
692 scale((m_total - m_free) << 10); break;
696 static s_stat* init_mem(const char *param)
698 mem_stat *s = xzalloc(sizeof(*s));
699 s->collect = collect_mem;
707 static void FAST_FUNC collect_swp(swp_stat *s UNUSED_PARAM)
711 if (rdval(get_file(&proc_meminfo), "SwapTotal:", s_total, 1 << 1)
712 || rdval(proc_meminfo.file, "SwapFree:" , s_free, 1 << 1)
714 put_question_marks(4);
717 scale((s_total[0]-s_free[0]) << 10);
720 static s_stat* init_swp(const char *param UNUSED_PARAM)
722 swp_stat *s = xzalloc(sizeof(*s));
723 s->collect = collect_swp;
730 static void FAST_FUNC collect_fd(fd_stat *s UNUSED_PARAM)
734 if (rdval(get_file(&proc_sys_fs_filenr), "", data, 0
738 put_question_marks(4);
742 scale(data[0] - data[1]);
745 static s_stat* init_fd(const char *param UNUSED_PARAM)
747 fd_stat *s = xzalloc(sizeof(*s));
748 s->collect = collect_fd;
755 S_STAT_END(time_stat)
757 static void FAST_FUNC collect_time(time_stat *s)
759 char buf[sizeof("12:34:56.123456")];
761 unsigned us = tv.tv_usec + s->scale/2;
762 time_t t = tv.tv_sec;
770 sprintf(buf, "%02d:%02d:%02d", tm->tm_hour, tm->tm_min, tm->tm_sec);
772 sprintf(buf+8, ".%0*d", s->prec, us / s->scale);
776 static s_stat* init_time(const char *param)
779 time_stat *s = xzalloc(sizeof(*s));
781 s->collect = collect_time;
782 prec = param[0] - '0';
783 if (prec < 0) prec = 0;
784 else if (prec > 6) prec = 6;
792 static void FAST_FUNC collect_info(s_stat *s)
802 typedef s_stat* init_func(const char *param);
804 static const char options[] ALIGN1 = "ncmsfixptbr";
805 static init_func *const init_functions[] = {
819 int nmeter_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
820 int nmeter_main(int argc UNUSED_PARAM, char **argv)
823 s_stat *first = NULL;
833 if (open_read_close("version", buf, sizeof(buf)-1) > 0) {
834 buf[sizeof(buf)-1] = '\0';
835 is26 = (strstr(buf, " 2.4.") == NULL);
838 if (getopt32(argv, "d:", &opt_d)) {
839 G.delta = xatoi(opt_d) * 1000;
840 G.deltanz = G.delta > 0 ? G.delta : 1;
841 need_seconds = (1000000 % G.deltanz) != 0;
848 // Can use argv[0] directly, but this will mess up
849 // parameters as seen by e.g. ps. Making a copy...
850 cur = xstrdup(argv[0]);
855 cur = strchr(cur, '%');
858 if (cur[1] == '%') { // %%
859 overlapping_strcpy(cur, cur + 1);
863 *cur++ = '\0'; // overwrite %
865 // format: %[foptstring]
867 p = strchr(options, cur[0]);
869 while (cur[0] != ']') {
874 *cur++ = '\0'; // overwrite [
878 while (cur[0] >= '0' && cur[0] <= '9')
882 p = strchr(options, cur[0]);
883 *cur++ = '\0'; // overwrite format char
887 s = init_functions[p-options](param);
890 /*s->next = NULL; - all initXXX funcs use xzalloc */
897 // %r option. remove it from string
898 overlapping_strcpy(prev + strlen(prev), cur);
905 /*s->next = NULL; - all initXXX funcs use xzalloc */
913 // Generate first samples but do not print them, they're bogus
917 gettimeofday(&tv, NULL);
918 usleep(G.delta > 1000000 ? 1000000 : G.delta - tv.tv_usec % G.deltanz);
922 gettimeofday(&tv, NULL);
927 // Negative delta -> no usleep at all
928 // This will hog the CPU but you can have REALLY GOOD
929 // time resolution ;)
930 // TODO: detect and avoid useless updates
931 // (like: nothing happens except time)
934 // can be commented out, will sacrifice sleep time precision a bit
935 gettimeofday(&tv, NULL);
937 rem = G.delta - ((ullong)tv.tv_sec*1000000 + tv.tv_usec) % G.deltanz;
939 rem = G.delta - (unsigned)tv.tv_usec % G.deltanz;
940 // Sometimes kernel wakes us up just a tiny bit earlier than asked
941 // Do not go to very short sleep in this case
942 if (rem < (unsigned)G.delta / 128) {