#include <subcmd/parse-options.h>
 #include <sys/wait.h>
 #include <sys/stat.h>
+#include <api/io.h>
 #include "builtin.h"
 #include "tests-scripts.h"
 #include "color.h"
 #include "symbol.h"
 #include "tests.h"
 #include "util/rlimit.h"
+#include "util/util.h"
 
 
 /*
 static struct script_file *files = NULL;
 static int files_max_width = 0;
 
-static const char *shell_tests__dir(char *path, size_t size)
+static int shell_tests__dir_fd(void)
 {
-       const char *devel_dirs[] = { "./tools/perf/tests", "./tests", };
-       char *exec_path;
-       unsigned int i;
+       char path[PATH_MAX], *exec_path;
+       static const char * const devel_dirs[] = { "./tools/perf/tests/shell", "./tests/shell", };
 
-       for (i = 0; i < ARRAY_SIZE(devel_dirs); ++i) {
-               struct stat st;
+       for (size_t i = 0; i < ARRAY_SIZE(devel_dirs); ++i) {
+               int fd = open(devel_dirs[i], O_PATH);
 
-               if (!lstat(devel_dirs[i], &st)) {
-                       scnprintf(path, size, "%s/shell", devel_dirs[i]);
-                       if (!lstat(devel_dirs[i], &st))
-                               return path;
-               }
+               if (fd >= 0)
+                       return fd;
        }
 
        /* Then installed path. */
        exec_path = get_argv_exec_path();
-       scnprintf(path, size, "%s/tests/shell", exec_path);
+       scnprintf(path, sizeof(path), "%s/tests/shell", exec_path);
        free(exec_path);
-       return path;
+       return open(path, O_PATH);
 }
 
-static const char *shell_test__description(char *description, size_t size,
-                                           const char *path, const char *name)
+static char *shell_test__description(int dir_fd, const char *name)
 {
-       FILE *fp;
-       char filename[PATH_MAX];
-       int ch;
+       struct io io;
+       char buf[128], desc[256];
+       int ch, pos = 0;
 
-       path__join(filename, sizeof(filename), path, name);
-       fp = fopen(filename, "r");
-       if (!fp)
+       io__init(&io, openat(dir_fd, name, O_RDONLY), buf, sizeof(buf));
+       if (io.fd < 0)
                return NULL;
 
        /* Skip first line - should be #!/bin/sh Shebang */
+       if (io__get_char(&io) != '#')
+               goto err_out;
+       if (io__get_char(&io) != '!')
+               goto err_out;
        do {
-               ch = fgetc(fp);
-       } while (ch != EOF && ch != '\n');
-
-       description = fgets(description, size, fp);
-       fclose(fp);
+               ch = io__get_char(&io);
+               if (ch < 0)
+                       goto err_out;
+       } while (ch != '\n');
 
-       /* Assume first char on line is omment everything after that desc */
-       return description ? strim(description + 1) : NULL;
+       do {
+               ch = io__get_char(&io);
+               if (ch < 0)
+                       goto err_out;
+       } while (ch == '#' || isspace(ch));
+       while (ch > 0 && ch != '\n') {
+               desc[pos++] = ch;
+               if (pos >= (int)sizeof(desc) - 1)
+                       break;
+               ch = io__get_char(&io);
+       }
+       while (pos > 0 && isspace(desc[--pos]))
+               ;
+       desc[++pos] = '\0';
+       close(io.fd);
+       return strdup(desc);
+err_out:
+       close(io.fd);
+       return NULL;
 }
 
 /* Is this full file path a shell script */
-static bool is_shell_script(const char *path)
+static bool is_shell_script(int dir_fd, const char *path)
 {
        const char *ext;
 
        if (!ext)
                return false;
        if (!strcmp(ext, ".sh")) { /* Has .sh extension */
-               if (access(path, R_OK | X_OK) == 0) /* Is executable */
+               if (faccessat(dir_fd, path, R_OK | X_OK, 0) == 0) /* Is executable */
                        return true;
        }
        return false;
 }
 
 /* Is this file in this dir a shell script (for test purposes) */
-static bool is_test_script(const char *path, const char *name)
+static bool is_test_script(int dir_fd, const char *name)
 {
-       char filename[PATH_MAX];
-
-       path__join(filename, sizeof(filename), path, name);
-       if (!is_shell_script(filename)) return false;
-       return true;
+       return is_shell_script(dir_fd, name);
 }
 
 /* Duplicate a string and fall over and die if we run out of memory */
        return newstr;
 }
 
-static void append_script(const char *dir, const char *file, const char *desc)
+static void append_script(int dir_fd, const char *name, char *desc)
 {
+       char filename[PATH_MAX], link[128];
        struct script_file *files_tmp;
-       size_t files_num_tmp;
+       size_t files_num_tmp, len;
        int width;
 
+       snprintf(link, sizeof(link), "/proc/%d/fd/%d", getpid(), dir_fd);
+       len = readlink(link, filename, sizeof(filename));
+       if (len < 0) {
+               pr_err("Failed to readlink %s", link);
+               return;
+       }
+       filename[len++] = '/';
+       strcpy(&filename[len], name);
        files_num_tmp = files_num + 1;
        if (files_num_tmp >= SIZE_MAX) {
                pr_err("Too many script files\n");
        /* Add file to end and NULL terminate the struct array */
        files = files_tmp;
        files_num = files_num_tmp;
-       files[files_num - 1].dir = strdup_check(dir);
-       files[files_num - 1].file = strdup_check(file);
-       files[files_num - 1].desc = strdup_check(desc);
-       files[files_num].dir = NULL;
+       files[files_num - 1].file = strdup_check(filename);
+       files[files_num - 1].desc = desc;
        files[files_num].file = NULL;
        files[files_num].desc = NULL;
 
                files_max_width = width;
 }
 
-static void append_scripts_in_dir(const char *path)
+static void append_scripts_in_dir(int dir_fd)
 {
        struct dirent **entlist;
        struct dirent *ent;
        int n_dirs, i;
-       char filename[PATH_MAX];
 
        /* List files, sorted by alpha */
-       n_dirs = scandir(path, &entlist, NULL, alphasort);
+       n_dirs = scandirat(dir_fd, ".", &entlist, NULL, alphasort);
        if (n_dirs == -1)
                return;
        for (i = 0; i < n_dirs && (ent = entlist[i]); i++) {
+               int fd;
+
                if (ent->d_name[0] == '.')
                        continue; /* Skip hidden files */
-               if (is_test_script(path, ent->d_name)) { /* It's a test */
-                       char bf[256];
-                       const char *desc = shell_test__description
-                               (bf, sizeof(bf), path, ent->d_name);
+               if (is_test_script(dir_fd, ent->d_name)) { /* It's a test */
+                       char *desc = shell_test__description(dir_fd, ent->d_name);
 
                        if (desc) /* It has a desc line - valid script */
-                               append_script(path, ent->d_name, desc);
-               } else if (is_directory(path, ent)) { /* Scan the subdir */
-                       path__join(filename, sizeof(filename),
-                                  path, ent->d_name);
-                       append_scripts_in_dir(filename);
+                               append_script(dir_fd, ent->d_name, desc);
+                       continue;
+               }
+               if (ent->d_type != DT_DIR) {
+                       struct stat st;
+
+                       if (ent->d_type != DT_UNKNOWN)
+                               continue;
+                       fstatat(dir_fd, ent->d_name, &st, 0);
+                       if (!S_ISDIR(st.st_mode))
+                               continue;
                }
+               fd = openat(dir_fd, ent->d_name, O_PATH);
+               append_scripts_in_dir(fd);
        }
        for (i = 0; i < n_dirs; i++) /* Clean up */
                zfree(&entlist[i]);
 
 const struct script_file *list_script_files(void)
 {
-       char path_dir[PATH_MAX];
-       const char *path;
+       int dir_fd;
 
        if (files)
                return files; /* Singleton - we already know our list */
 
-       path = shell_tests__dir(path_dir, sizeof(path_dir)); /* Walk  dir */
-       append_scripts_in_dir(path);
+       dir_fd = shell_tests__dir_fd(); /* Walk  dir */
+       if (dir_fd < 0)
+               return NULL;
+
+       append_scripts_in_dir(dir_fd);
+       close(dir_fd);
 
        return files;
 }