#include <dirent.h>

#include <errno.h>

#include <stdio.h>

#include <string.h>

#include "alloc-util.h"

#include "cgroup-show.h"

#include "cgroup-util.h"

#include "fd-util.h"

#include "formats-util.h"

#include "locale-util.h"

#include "macro.h"

#include "path-util.h"

#include "process-util.h"

#include "string-util.h"

#include "terminal-util.h"

#include "util.h"

static int compare(const void *a, const void *b) {

const pid_t *p = a, *q = b;

if (*p < *q)

return -1;

if (*p > *q)

return 1;

return 0;

}

static void show_pid_array(pid_t pids[], unsigned n_pids, const char *prefix, unsigned n_columns, bool extra, bool more, bool kernel_threads, OutputFlags flags) {

unsigned i, j, pid_width;

if (n_pids == 0)

return;

qsort(pids, n_pids, sizeof(pid_t), compare);

/* Filter duplicates */

for (j = 0, i = 1; i < n_pids; i++) {

if (pids[i] == pids[j])

continue;

pids[++j] = pids[i];

}

n_pids = j + 1;

pid_width = DECIMAL_STR_WIDTH(pids[j]);

if (flags & OUTPUT_FULL_WIDTH)

n_columns = 0;

else {

if (n_columns > pid_width+2)

n_columns -= pid_width+2;

else

n_columns = 20;

}

for (i = 0; i < n_pids; i++) {

_cleanup_free_ char *t = NULL;

get_process_cmdline(pids[i], n_columns, true, &t);

if (extra)

printf("%s%s ", prefix, draw_special_char(DRAW_TRIANGULAR_BULLET));

else

printf("%s%s", prefix, draw_special_char(((more || i < n_pids-1) ? DRAW_TREE_BRANCH : DRAW_TREE_RIGHT)));

printf("%*"PID_PRI" %s\n", pid_width, pids[i], strna(t));

}

}

static int show_cgroup_one_by_path(const char *path, const char *prefix, unsigned n_columns, bool more, bool kernel_threads, OutputFlags flags) {

char *fn;

_cleanup_fclose_ FILE *f = NULL;

size_t n = 0, n_allocated = 0;

_cleanup_free_ pid_t *pids = NULL;

_cleanup_free_ char *p = NULL;

pid_t pid;

int r;

r = cg_mangle_path(path, &p);

if (r < 0)

return r;

fn = strjoina(p, "/cgroup.procs");

f = fopen(fn, "re");

if (!f)

return -errno;

while ((r = cg_read_pid(f, &pid)) > 0) {

if (!kernel_threads && is_kernel_thread(pid) > 0)

continue;

if (!GREEDY_REALLOC(pids, n_allocated, n + 1))

return -ENOMEM;

assert(n < n_allocated);

pids[n++] = pid;

}

if (r < 0)

return r;

show_pid_array(pids, n, prefix, n_columns, false, more, kernel_threads, flags);

return 0;

}

int show_cgroup_by_path(const char *path, const char *prefix, unsigned n_columns, bool kernel_threads, OutputFlags flags) {

_cleanup_free_ char *fn = NULL, *p1 = NULL, *last = NULL, *p2 = NULL;

_cleanup_closedir_ DIR *d = NULL;

char *gn = NULL;

bool shown_pids = false;

int r;

assert(path);

if (n_columns <= 0)

n_columns = columns();

if (!prefix)

prefix = "";

r = cg_mangle_path(path, &fn);

if (r < 0)

return r;

d = opendir(fn);

if (!d)

return -errno;

while ((r = cg_read_subgroup(d, &gn)) > 0) {

_cleanup_free_ char *k = NULL;

k = strjoin(fn, "/", gn, NULL);

free(gn);

if (!k)

return -ENOMEM;

if (!(flags & OUTPUT_SHOW_ALL) && cg_is_empty_recursive(NULL, k) > 0)

continue;

if (!shown_pids) {

show_cgroup_one_by_path(path, prefix, n_columns, true, kernel_threads, flags);

shown_pids = true;

}

if (last) {

printf("%s%s%s\n", prefix, draw_special_char(DRAW_TREE_BRANCH), cg_unescape(basename(last)));

if (!p1) {

p1 = strappend(prefix, draw_special_char(DRAW_TREE_VERTICAL));

if (!p1)

return -ENOMEM;

}

show_cgroup_by_path(last, p1, n_columns-2, kernel_threads, flags);

free(last);

}

last = k;

k = NULL;

}

if (r < 0)

return r;

if (!shown_pids)

show_cgroup_one_by_path(path, prefix, n_columns, !!last, kernel_threads, flags);

if (last) {

printf("%s%s%s\n", prefix, draw_special_char(DRAW_TREE_RIGHT), cg_unescape(basename(last)));

if (!p2) {

p2 = strappend(prefix, " ");

if (!p2)

return -ENOMEM;

}

show_cgroup_by_path(last, p2, n_columns-2, kernel_threads, flags);

}

return 0;

}

int show_cgroup(const char *controller, const char *path, const char *prefix, unsigned n_columns, bool kernel_threads, OutputFlags flags) {

_cleanup_free_ char *p = NULL;

int r;

assert(path);

r = cg_get_path(controller, path, NULL, &p);

if (r < 0)

return r;

return show_cgroup_by_path(p, prefix, n_columns, kernel_threads, flags);

}

static int show_extra_pids(const char *controller, const char *path, const char *prefix, unsigned n_columns, const pid_t pids[], unsigned n_pids, OutputFlags flags) {

_cleanup_free_ pid_t *copy = NULL;

unsigned i, j;

int r;

assert(path);

if (n_pids <= 0)

return 0;

if (n_columns <= 0)

n_columns = columns();

prefix = strempty(prefix);

copy = new(pid_t, n_pids);

if (!copy)

return -ENOMEM;

for (i = 0, j = 0; i < n_pids; i++) {

_cleanup_free_ char *k = NULL;

r = cg_pid_get_path(controller, pids[i], &k);

if (r < 0)

return r;

if (path_startswith(k, path))

continue;

copy[j++] = pids[i];

}

show_pid_array(copy, j, prefix, n_columns, true, false, false, flags);

return 0;

}

int show_cgroup_and_extra(const char *controller, const char *path, const char *prefix, unsigned n_columns, bool kernel_threads, const pid_t extra_pids[], unsigned n_extra_pids, OutputFlags flags) {

int r;

assert(path);

r = show_cgroup(controller, path, prefix, n_columns, kernel_threads, flags);

if (r < 0)

return r;

return show_extra_pids(controller, path, prefix, n_columns, extra_pids, n_extra_pids, flags);

}

int show_cgroup_and_extra_by_spec(const char *spec, const char *prefix, unsigned n_columns, bool kernel_threads, const pid_t extra_pids[], unsigned n_extra_pids, OutputFlags flags) {

_cleanup_free_ char *controller = NULL, *path = NULL;

int r;

assert(spec);

r = cg_split_spec(spec, &controller, &path);

if (r < 0)

return r;

return show_cgroup_and_extra(controller, path, prefix, n_columns, kernel_threads, extra_pids, n_extra_pids, flags);

}