Add another BSEARCH function that lets you search through an array of objects.

[dana/openbox.git] / obt / paths.c

diff --git a/obt/paths.c b/obt/paths.c
index d99659b..f2d4b42 100644 (file)
--- a/obt/paths.c
+++ b/obt/paths.c
@@ -16,9 +16,13 @@
    See the COPYING file for a copy of the GNU General Public License.
 */
 
+#include "obt/bsearch.h"
 #include "obt/paths.h"
 #include "obt/util.h"
 
+#ifdef HAVE_STDLIB_H
+#  include <stdlib.h>
+#endif
 #ifdef HAVE_SYS_STAT_H
 #  include <sys/stat.h>
 #endif
@@ -28,6 +32,15 @@
 #ifdef HAVE_STRING_H
 #  include <string.h>
 #endif
+#ifdef HAVE_UNISTD_H
+#  include <unistd.h>
+#endif
+#ifdef HAVE_GRP_H
+#  include <grp.h>
+#endif
+#ifdef HAVE_PWD_H
+#  include <pwd.h>
+#endif
 
 struct _ObtPaths
 {
@@ -38,6 +51,11 @@ struct _ObtPaths
     GSList *config_dirs;
     GSList *data_dirs;
     GSList *autostart_dirs;
+    GSList *exec_dirs;
+
+    uid_t   uid;
+    gid_t  *gid;
+    guint   n_gid;
 };
 
 static gint slist_path_cmp(const gchar *a, const gchar *b)
@@ -70,12 +88,49 @@ static GSList* split_paths(const gchar *paths)
     if (!paths)
         return NULL;
     spl = g_strsplit(paths, ":", -1);
-    for (it = spl; *it; ++it)
-        list = slist_path_add(list, *it, (GSListFunc) g_slist_append);
+    for (it = spl; *it; ++it) {
+        if ((*it)[0]) /* skip empty strings */
+            list = slist_path_add(list, *it, (GSListFunc) g_slist_append);
+    }
     g_free(spl);
     return list;
 }
 
+int gid_cmp(const void *va, const void *vb)
+{
+    const gid_t a = *(const gid_t*)va, b = *(const gid_t*)vb;
+    return a>b ? 1 : (a == b ? 0 : -1);
+}
+
+static void find_uid_gid(uid_t *u, gid_t **g, guint *n)
+{
+    struct passwd *pw;
+    const gchar *name;
+    struct group *gr;
+
+    *u = getuid();
+    pw = getpwuid(*u);
+    name = pw->pw_name;
+
+    *g = g_new(gid_t, *n=1);
+    (*g)[0] = getgid();
+
+    while ((gr = getgrent())) {
+        if (gr->gr_gid != (*g)[0]) { /* skip the main group */
+            gchar **c;
+            for (c = gr->gr_mem; *c; ++c)
+                if (strcmp(*c, name) == 0) {
+                    *g = g_renew(gid_t, *g, ++(*n)); /* save the group */
+                    (*g)[*n-1] = gr->gr_gid;
+                    break;
+                }
+        }
+    }
+    endgrent();
+
+    qsort(*g, *n, sizeof(gid_t), gid_cmp);
+}
+
 ObtPaths* obt_paths_new(void)
 {
     ObtPaths *p;
@@ -85,6 +140,8 @@ ObtPaths* obt_paths_new(void)
     p = g_slice_new0(ObtPaths);
     p->ref = 1;
 
+    find_uid_gid(&p->uid, &p->gid, &p->n_gid);
+
     path = g_getenv("XDG_CONFIG_HOME");
     if (path && path[0] != '\0') /* not unset or empty */
         p->config_home = g_build_filename(path, NULL);
@@ -147,6 +204,13 @@ ObtPaths* obt_paths_new(void)
     p->data_dirs = slist_path_add(p->data_dirs,
                                   g_strdup(p->data_home),
                                   (GSListFunc) g_slist_prepend);
+
+    path = g_getenv("PATH");
+    if (path && path[0] != '\0') /* not unset or empty */
+        p->exec_dirs = split_paths(path);
+    else
+        p->exec_dirs = NULL;
+
     return p;
 }
 
@@ -169,9 +233,13 @@ void obt_paths_unref(ObtPaths *p)
         for (it = p->autostart_dirs; it; it = g_slist_next(it))
             g_free(it->data);
         g_slist_free(p->autostart_dirs);
+        for (it = p->exec_dirs; it; it = g_slist_next(it))
+            g_free(it->data);
+        g_slist_free(p->exec_dirs);
         g_free(p->config_home);
         g_free(p->data_home);
         g_free(p->cache_home);
+        g_free(p->gid);
 
         g_slice_free(ObtPaths, p);
     }
@@ -262,3 +330,41 @@ GSList* obt_paths_autostart_dirs(ObtPaths *p)
 {
     return p->autostart_dirs;
 }
+
+static inline gboolean try_exec(const ObtPaths *const p,
+                                const gchar *const path)
+{
+    struct stat st;
+    BSEARCH_SETUP();
+
+    if (stat(path, &st) != 0)
+        return FALSE;
+
+    if (!S_ISREG(st.st_mode))
+        return FALSE;
+    if (st.st_uid == p->uid)
+        return st.st_mode & S_IXUSR;
+    BSEARCH(guint, p->gid, 0, p->n_gid, st.st_gid);
+    if (BSEARCH_FOUND())
+        return st.st_mode & S_IXGRP;
+    return st.st_mode & S_IXOTH;
+}
+
+gboolean obt_paths_try_exec(ObtPaths *p, const gchar *path)
+{
+    if (path[0] == '/') {
+        return try_exec(p, path);
+    }
+    else {
+        GSList *it;
+
+        for (it = p->exec_dirs; it; it = g_slist_next(it)) {
+            gchar *f = g_strdup_printf(it->data, G_DIR_SEPARATOR_S, path);
+            gboolean e = try_exec(p, f);
+            g_free(f);
+            if (e) return TRUE;
+        }
+    }
+
+    return FALSE;
+}