package/sash/src/ps.c

   1 /* ps.c:
   2  *
   3  * Copyright (C) 1998  Kenneth Albanowski <kjahds@kjahds.com>,
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  */
  10
  11 #include "sash.h"
  12
  13 #include <fcntl.h>
  14 #include <sys/types.h>
  15
  16 #include <sys/stat.h>
  17 #include <dirent.h>
  18 #include <pwd.h>
  19 #include <grp.h>
  20 #include <time.h>
  21 #include <unistd.h>
  22 #include <linux/major.h>
  23 #include <linux/param.h>
  24 #include <sys/time.h>
  25 #include <sys/param.h>
  26
  27 char psbuf[256];
  28 char name[40];
  29 int pid, state;
  30 char statec;
  31 int ppid, pgrp, session;
  32 dev_t tty;
  33 char tty_name[10];
  34
  35 char master[] = "pqrstuvwxyzabcde";
  36
  37 #define MAJOR(x) ((x) >> 8)
  38 #define MINOR(x) ((x) & 0xff)
  39
  40 int port_xlate[16] = {1, 3, 5, 7,9 ,11,13,15,
  41                       2, 4, 6, 8,10,12,14,16};
  42
  43 void dev_to_name(dev_t dev, char * ttyname)
  44 {
  45         strcpy(ttyname, "");
  46         if (MAJOR(dev) == 75)
  47                 sprintf(ttyname,"X%d", MINOR(dev));
  48         else if (MAJOR(dev) == TTY_MAJOR)
  49                 sprintf(ttyname,"S%d", MINOR(dev)-64);
  50         else if (MAJOR(dev) == PTY_SLAVE_MAJOR)
  51                 sprintf(ttyname,"%c%x", master[MINOR(dev) / 16], MINOR(dev) & 0xf);
  52 }
  53
  54 void
  55 do_ps(argc, argv)
  56         int     argc;
  57         char    **argv;
  58 {
  59         int i;
  60         int h;
  61         int max;
  62         FILE * f;
  63         DIR * d;
  64         unsigned long bytes, sbytes;
  65         struct dirent * de;
  66         char *ext;
  67         int l;
  68         time_t time_now;
  69         long uptime_secs;
  70         float idle_secs;
  71         float seconds, start, total_time;
  72         int utime, stime, start_time;
  73         int pcpu;
  74         /*extern int _vfprintf_fp_ref, _vfscanf_fp_ref;*/
  75
  76 #if 0
  77         fclose(stdin);
  78 #endif
  79
  80         printf("  PID PORT STAT  SIZE SHARED %%CPU COMMAND\n"/*, _vfprintf_fp_ref, _vfscanf_fp_ref*/);
  81
  82         h = open("/proc/uptime", O_RDONLY);
  83
  84         if (h==-1) {
  85                 perror("Unable to open /proc/uptime\n");
  86                 return;
  87         }
  88
  89         l = read(h, psbuf, 255);
  90
  91         close(h);
  92
  93
  94         if (l<=0) {
  95                 perror("Unable to read uptime");
  96                 return;
  97         }
  98
  99
 100         psbuf[l] = '\0';
 101         psbuf[255] = '\0';
 102
 103         ext = psbuf;
 104
 105
 106         uptime_secs = atol(ext);
 107
 108
 109         time_now = time(0);
 110
 111         d = opendir("/proc");
 112         if (!d)
 113                 return;
 114
 115         while (de = readdir(d)) {
 116
 117
 118                 for(i=0;i<strlen(de->d_name);i++)
 119                         if (!isdigit(de->d_name[i]))
 120                                 goto next;
 121
 122                 sprintf(psbuf, "/proc/%s/stat", de->d_name);
 123
 124                 h = open(psbuf, O_RDONLY);
 125
 126                 if (h==-1)
 127                         continue;
 128
 129                 l = read(h, psbuf, 255);
 130                 if (l<=0) {
 131                         perror("Unable to read status");
 132                         close(h);
 133                         continue;
 134                 }
 135
 136                 psbuf[l] = '\0';
 137                 psbuf[255] = '\0';
 138
 139                 ext = strrchr(psbuf, ')');
 140                 ext[0] = '\0';
 141
 142                 statec = ext[2];
 143
 144                 ext += 4;
 145
 146                 ppid = atoi(ext);
 147                 ext = strchr(ext, ' ')+1;
 148
 149                 pgrp = atoi(ext);
 150                 ext = strchr(ext, ' ')+1;
 151
 152                 session = atoi(ext);
 153                 ext = strchr(ext, ' ')+1;
 154
 155                 tty = atoi(ext);
 156                 ext = strchr(ext, ' ')+1;
 157
 158                 //printf("1|%s\n", ext);
 159                 //tpgid
 160                 ext = strchr(ext, ' ')+1;
 161
 162                 //printf("2|%s\n", ext);
 163                 //flags
 164                 ext = strchr(ext, ' ')+1;
 165
 166                 //printf("3|%s\n", ext);
 167                 //min_flt
 168                 ext = strchr(ext, ' ')+1;
 169
 170                 //printf("4|%s\n", ext);
 171                 //cmin_flt
 172                 ext = strchr(ext, ' ')+1;
 173
 174                 //printf("5|%s\n", ext);
 175                 //maj_flt
 176                 ext = strchr(ext, ' ')+1;
 177
 178                 //printf("6|%s\n", ext);
 179                 //cmaj_flt
 180                 ext = strchr(ext, ' ')+1;
 181
 182                 //printf("7|%s\n", ext);
 183                 utime = atoi(ext);
 184                 ext = strchr(ext, ' ')+1;
 185
 186                 //printf("8|%s\n", ext);
 187                 stime = atoi(ext);
 188                 ext = strchr(ext, ' ')+1;
 189
 190                 //printf("9|%s\n", ext);
 191                 //cutime
 192                 ext = strchr(ext, ' ')+1;
 193
 194                 //printf("10|%s\n", ext);
 195                 //cstime
 196                 ext = strchr(ext, ' ')+1;
 197
 198                 //priority
 199                 ext = strchr(ext, ' ')+1;
 200
 201                 //nice
 202                 ext = strchr(ext, ' ')+1;
 203
 204                 //timeout
 205                 ext = strchr(ext, ' ')+1;
 206
 207                 //it_real_value
 208                 ext = strchr(ext, ' ')+1;
 209
 210                 start_time = atoi(ext);
 211
 212                 ext = strchr(psbuf, '(');
 213                 ext++;
 214                 strcpy(name, ext);
 215
 216                 pid = atoi(psbuf);
 217
 218
 219                 state = statec;
 220
 221                 close(h);
 222
 223                 dev_to_name(tty, tty_name);
 224
 225                 bytes = 0;
 226                 sbytes = 0;
 227                 sprintf(psbuf, "/proc/%s/status", de->d_name);
 228
 229                 f = fopen(psbuf, "r");
 230
 231                 if (f) {
 232                         while (fgets(psbuf, 250, f)) {
 233                                 if (strncmp(psbuf, "Mem:", 4) == 0) {
 234                                         bytes = atol(psbuf+5);
 235                                         bytes /= 1024;
 236                                 } else if (strncmp(psbuf, "Shared:", 7) == 0) {
 237                                         sbytes = atol(psbuf+8);
 238                                         sbytes /= 1024;
 239                                 } else if (strncmp(psbuf, "VmSize:", 7) == 0) {
 240                                         bytes = atol(psbuf+8);
 241                                 }
 242                         }
 243                         fclose(f);
 244                 }
 245
 246
 247                 seconds = ((uptime_secs * (long)HZ) - start_time) / HZ;
 248
 249                 /*printf("seconds=%s\n", gcvt(seconds, 15, psbuf));*/
 250
 251                 start = time_now - seconds;
 252
 253                 /*
 254                 printf("1\n");
 255
 256                 gcvt(start, 15, psbuf);
 257
 258                 printf("2\n");
 259
 260                 printf("start=%s\n", psbuf);
 261
 262                 printf("utime=%d, stime=%d. start_time=%d\n", utime, stime, start_time);
 263                 */
 264
 265                 total_time = (utime + stime);
 266
 267                 /*printf("total_time=%s\n", gcvt(total_time, 15, psbuf));*/
 268
 269                 pcpu =  seconds ?
 270                         (total_time * 10.0f * 100.0f / (float)HZ) / seconds :
 271                         0;
 272                 if (pcpu > 999) pcpu = 999;
 273
 274
 275                 sprintf(psbuf, "/proc/%s/cmdline", de->d_name);
 276                 h = open(psbuf, O_RDONLY);
 277
 278                 if (h == -1) {
 279                         perror("Unable to open cmdline");
 280                         continue;
 281                 }
 282
 283                 l = read(h, psbuf, 255);
 284                 if (l < 0) {
 285                         perror("Unable to read cmdline");
 286                         close(h);
 287                         continue;
 288                 }
 289
 290                 close(h);
 291
 292                 /*
 293                  * the args are NUL separated, substitute spaces instead
 294                  */
 295                 psbuf[l] = '\0';
 296                 i=l;
 297                 while(psbuf[i] == '\0')
 298                         i--;            /* Don't bother with trailing NULs */
 299                 while(--i > 0)
 300                         if (psbuf[i] == '\0')
 301                                 psbuf[i] = ' ';
 302
 303                 printf("%5d %4s %c    %4ldK   %3ldK %2u.%u %s\n", pid, tty_name, state,
 304                         bytes, sbytes,
 305                          pcpu / 10, pcpu % 10,
 306                          /*(int)seconds / 60, (int)seconds % 60,*/
 307                          l ? psbuf : name);
 308         next:
 309                 ;
 310         }
 311
 312         closedir(d);
 313 }