git.sur5r.net Git - i3/i3/blob - src/util.c

   1 /*
   2  * vim:ts=4:sw=4:expandtab
   3  *
   4  * i3 - an improved dynamic tiling window manager
   5  *
   6  * © 2009-2010 Michael Stapelberg and contributors
   7  *
   8  * See file LICENSE for license information.
   9  *
  10  * util.c: Utility functions, which can be useful everywhere.
  11  *
  12  */
  13 #include <sys/wait.h>
  14 #include <stdarg.h>
  15 #include <iconv.h>
  16 #if defined(__OpenBSD__)
  17 #include <sys/cdefs.h>
  18 #endif
  19 #include <fcntl.h>
  20 #include <pwd.h>
  21
  22 #include "all.h"
  23
  24 static iconv_t conversion_descriptor = 0;
  25
  26 int min(int a, int b) {
  27     return (a < b ? a : b);
  28 }
  29
  30 int max(int a, int b) {
  31     return (a > b ? a : b);
  32 }
  33
  34 bool rect_contains(Rect rect, uint32_t x, uint32_t y) {
  35     return (x >= rect.x &&
  36             x <= (rect.x + rect.width) &&
  37             y >= rect.y &&
  38             y <= (rect.y + rect.height));
  39 }
  40
  41 Rect rect_add(Rect a, Rect b) {
  42     return (Rect){a.x + b.x,
  43                   a.y + b.y,
  44                   a.width + b.width,
  45                   a.height + b.height};
  46 }
  47
  48 /*
  49  * Updates *destination with new_value and returns true if it was changed or false
  50  * if it was the same
  51  *
  52  */
  53 bool update_if_necessary(uint32_t *destination, const uint32_t new_value) {
  54     uint32_t old_value = *destination;
  55
  56     return ((*destination = new_value) != old_value);
  57 }
  58
  59 /*
  60  * The s* functions (safe) are wrappers around malloc, strdup, …, which exits if one of
  61  * the called functions returns NULL, meaning that there is no more memory available
  62  *
  63  */
  64 void *smalloc(size_t size) {
  65     void *result = malloc(size);
  66     exit_if_null(result, "Error: out of memory (malloc(%zd))\n", size);
  67     return result;
  68 }
  69
  70 void *scalloc(size_t size) {
  71     void *result = calloc(size, 1);
  72     exit_if_null(result, "Error: out of memory (calloc(%zd))\n", size);
  73     return result;
  74 }
  75
  76 void *srealloc(void *ptr, size_t size) {
  77     void *result = realloc(ptr, size);
  78     exit_if_null(result, "Error: out memory (realloc(%zd))\n", size);
  79     return result;
  80 }
  81
  82 char *sstrdup(const char *str) {
  83     char *result = strdup(str);
  84     exit_if_null(result, "Error: out of memory (strdup())\n");
  85     return result;
  86 }
  87
  88 /*
  89  * Starts the given application by passing it through a shell. We use double fork
  90  * to avoid zombie processes. As the started application’s parent exits (immediately),
  91  * the application is reparented to init (process-id 1), which correctly handles
  92  * childs, so we don’t have to do it :-).
  93  *
  94  * The shell is determined by looking for the SHELL environment variable. If it
  95  * does not exist, /bin/sh is used.
  96  *
  97  */
  98 void start_application(const char *command) {
  99     LOG("executing: %s\n", command);
 100     if (fork() == 0) {
 101         /* Child process */
 102         setsid();
 103         if (fork() == 0) {
 104             /* Stores the path of the shell */
 105             static const char *shell = NULL;
 106
 107             if (shell == NULL)
 108                 if ((shell = getenv("SHELL")) == NULL)
 109                     shell = "/bin/sh";
 110
 111             /* This is the child */
 112             execl(shell, shell, "-c", command, (void*)NULL);
 113             /* not reached */
 114         }
 115         exit(0);
 116     }
 117     wait(0);
 118 }
 119
 120 /*
 121  * Checks a generic cookie for errors and quits with the given message if there
 122  * was an error.
 123  *
 124  */
 125 void check_error(xcb_connection_t *conn, xcb_void_cookie_t cookie, char *err_message) {
 126     xcb_generic_error_t *error = xcb_request_check(conn, cookie);
 127     if (error != NULL) {
 128         fprintf(stderr, "ERROR: %s (X error %d)\n", err_message , error->error_code);
 129         xcb_disconnect(conn);
 130         exit(-1);
 131     }
 132 }
 133
 134 /*
 135  * Converts the given string to UCS-2 big endian for use with
 136  * xcb_image_text_16(). The amount of real glyphs is stored in real_strlen,
 137  * a buffer containing the UCS-2 encoded string (16 bit per glyph) is
 138  * returned. It has to be freed when done.
 139  *
 140  */
 141 char *convert_utf8_to_ucs2(char *input, int *real_strlen) {
 142     size_t input_size = strlen(input) + 1;
 143     /* UCS-2 consumes exactly two bytes for each glyph */
 144     int buffer_size = input_size * 2;
 145
 146     char *buffer = smalloc(buffer_size);
 147     size_t output_size = buffer_size;
 148     /* We need to use an additional pointer, because iconv() modifies it */
 149     char *output = buffer;
 150
 151     /* We convert the input into UCS-2 big endian */
 152     if (conversion_descriptor == 0) {
 153         conversion_descriptor = iconv_open("UCS-2BE", "UTF-8");
 154         if (conversion_descriptor == 0) {
 155             fprintf(stderr, "error opening the conversion context\n");
 156             exit(1);
 157         }
 158     }
 159
 160     /* Get the conversion descriptor back to original state */
 161     iconv(conversion_descriptor, NULL, NULL, NULL, NULL);
 162
 163     /* Convert our text */
 164     int rc = iconv(conversion_descriptor, (void*)&input, &input_size, &output, &output_size);
 165     if (rc == (size_t)-1) {
 166         perror("Converting to UCS-2 failed");
 167         if (real_strlen != NULL)
 168             *real_strlen = 0;
 169         return NULL;
 170     }
 171
 172     if (real_strlen != NULL)
 173         *real_strlen = ((buffer_size - output_size) / 2) - 1;
 174
 175     return buffer;
 176 }
 177
 178 /*
 179  * This function resolves ~ in pathnames.
 180  * It may resolve wildcards in the first part of the path, but if no match
 181  * or multiple matches are found, it just returns a copy of path as given.
 182  *
 183  */
 184 char *resolve_tilde(const char *path) {
 185         static glob_t globbuf;
 186         char *head, *tail, *result;
 187
 188         tail = strchr(path, '/');
 189         head = strndup(path, tail ? tail - path : strlen(path));
 190
 191         int res = glob(head, GLOB_TILDE, NULL, &globbuf);
 192         free(head);
 193         /* no match, or many wildcard matches are bad */
 194         if (res == GLOB_NOMATCH || globbuf.gl_pathc != 1)
 195                 result = sstrdup(path);
 196         else if (res != 0) {
 197                 die("glob() failed");
 198         } else {
 199                 head = globbuf.gl_pathv[0];
 200                 result = scalloc(strlen(head) + (tail ? strlen(tail) : 0) + 1);
 201                 strncpy(result, head, strlen(head));
 202                 if (tail)
 203                     strncat(result, tail, strlen(tail));
 204         }
 205         globfree(&globbuf);
 206
 207         return result;
 208 }
 209
 210 /*
 211  * Checks if the given path exists by calling stat().
 212  *
 213  */
 214 bool path_exists(const char *path) {
 215         struct stat buf;
 216         return (stat(path, &buf) == 0);
 217 }
 218
 219 /*
 220  * Goes through the list of arguments (for exec()) and checks if the given argument
 221  * is present. If not, it copies the arguments (because we cannot realloc it) and
 222  * appends the given argument.
 223  *
 224  */
 225 static char **append_argument(char **original, char *argument) {
 226     int num_args;
 227     for (num_args = 0; original[num_args] != NULL; num_args++) {
 228         DLOG("original argument: \"%s\"\n", original[num_args]);
 229         /* If the argument is already present we return the original pointer */
 230         if (strcmp(original[num_args], argument) == 0)
 231             return original;
 232     }
 233     /* Copy the original array */
 234     char **result = smalloc((num_args+2) * sizeof(char*));
 235     memcpy(result, original, num_args * sizeof(char*));
 236     result[num_args] = argument;
 237     result[num_args+1] = NULL;
 238
 239     return result;
 240 }
 241
 242 /*
 243  * Returns the name of a temporary file with the specified prefix.
 244  *
 245  */
 246 char *get_process_filename(const char *prefix) {
 247     char *dir = getenv("XDG_RUNTIME_DIR");
 248     if (dir == NULL) {
 249         struct passwd *pw = getpwuid(getuid());
 250         const char *username = pw ? pw->pw_name : "unknown";
 251         if (asprintf(&dir, "/tmp/i3-%s", username) == -1) {
 252             perror("asprintf()");
 253             return NULL;
 254         }
 255     } else {
 256         char *tmp;
 257         if (asprintf(&tmp, "%s/i3", dir) == -1) {
 258             perror("asprintf()");
 259             return NULL;
 260         }
 261         dir = tmp;
 262     }
 263     if (!path_exists(dir)) {
 264         if (mkdir(dir, 0700) == -1) {
 265             perror("mkdir()");
 266             return NULL;
 267         }
 268     }
 269     char *filename;
 270     if (asprintf(&filename, "%s/%s.%d", dir, prefix, getpid()) == -1) {
 271         perror("asprintf()");
 272         filename = NULL;
 273     }
 274
 275     free(dir);
 276     return filename;
 277 }
 278
 279 #define y(x, ...) yajl_gen_ ## x (gen, ##__VA_ARGS__)
 280 #define ystr(str) yajl_gen_string(gen, (unsigned char*)str, strlen(str))
 281
 282 char *store_restart_layout() {
 283     setlocale(LC_NUMERIC, "C");
 284     yajl_gen gen = yajl_gen_alloc(NULL, NULL);
 285
 286     dump_node(gen, croot, true);
 287
 288     setlocale(LC_NUMERIC, "");
 289
 290     const unsigned char *payload;
 291     unsigned int length;
 292     y(get_buf, &payload, &length);
 293
 294     /* create a temporary file if one hasn't been specified, or just
 295      * resolve the tildes in the specified path */
 296     char *filename;
 297     if (config.restart_state_path == NULL) {
 298         filename = get_process_filename("restart-state");
 299         if (!filename)
 300             return NULL;
 301     } else {
 302         filename = resolve_tilde(config.restart_state_path);
 303     }
 304
 305     int fd = open(filename, O_WRONLY | O_CREAT | O_TRUNC, S_IRUSR | S_IWUSR);
 306     if (fd == -1) {
 307         perror("open()");
 308         free(filename);
 309         return NULL;
 310     }
 311
 312     int written = 0;
 313     while (written < length) {
 314         int n = write(fd, payload + written, length - written);
 315         /* TODO: correct error-handling */
 316         if (n == -1) {
 317             perror("write()");
 318             free(filename);
 319             return NULL;
 320         }
 321         if (n == 0) {
 322             printf("write == 0?\n");
 323             free(filename);
 324             return NULL;
 325         }
 326         written += n;
 327         printf("written: %d of %d\n", written, length);
 328     }
 329     close(fd);
 330
 331     printf("layout: %.*s\n", length, payload);
 332
 333     y(free);
 334
 335     return filename;
 336 }
 337
 338 /*
 339  * Restart i3 in-place
 340  * appends -a to argument list to disable autostart
 341  *
 342  */
 343 void i3_restart(bool forget_layout) {
 344     char *restart_filename = forget_layout ? NULL : store_restart_layout();
 345
 346     restore_geometry();
 347
 348     ipc_shutdown();
 349
 350     LOG("restarting \"%s\"...\n", start_argv[0]);
 351     /* make sure -a is in the argument list or append it */
 352     start_argv = append_argument(start_argv, "-a");
 353
 354     /* replace -r <file> so that the layout is restored */
 355     if (restart_filename != NULL) {
 356         /* create the new argv */
 357         int num_args;
 358         for (num_args = 0; start_argv[num_args] != NULL; num_args++);
 359         char **new_argv = scalloc((num_args + 3) * sizeof(char*));
 360
 361         /* copy the arguments, but skip the ones we'll replace */
 362         int write_index = 0;
 363         bool skip_next = false;
 364         for (int i = 0; i < num_args; ++i) {
 365             if (skip_next)
 366                 skip_next = false;
 367             else if (!strcmp(start_argv[i], "-r"))
 368                 skip_next = true;
 369             else
 370                 new_argv[write_index++] = start_argv[i];
 371         }
 372
 373         /* add the arguments we'll replace */
 374         new_argv[write_index++] = "--restart";
 375         new_argv[write_index] = restart_filename;
 376
 377         /* swap the argvs */
 378         start_argv = new_argv;
 379     }
 380
 381     execvp(start_argv[0], start_argv);
 382     /* not reached */
 383 }
 384
 385 #if 0
 386
 387 #if defined(__OpenBSD__)
 388
 389 /*
 390  * Taken from FreeBSD
 391  * Find the first occurrence of the byte string s in byte string l.
 392  *
 393  */
 394 void *memmem(const void *l, size_t l_len, const void *s, size_t s_len) {
 395         register char *cur, *last;
 396         const char *cl = (const char *)l;
 397         const char *cs = (const char *)s;
 398
 399         /* we need something to compare */
 400         if (l_len == 0 || s_len == 0)
 401                 return NULL;
 402
 403         /* "s" must be smaller or equal to "l" */
 404         if (l_len < s_len)
 405                 return NULL;
 406
 407         /* special case where s_len == 1 */
 408         if (s_len == 1)
 409                 return memchr(l, (int)*cs, l_len);
 410
 411         /* the last position where its possible to find "s" in "l" */
 412         last = (char *)cl + l_len - s_len;
 413
 414         for (cur = (char *)cl; cur <= last; cur++)
 415                 if (cur[0] == cs[0] && memcmp(cur, cs, s_len) == 0)
 416                         return cur;
 417
 418         return NULL;
 419 }
 420
 421 #endif
 422 #endif