findutils/find.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * Mini find implementation for busybox
   4  *
   5  * Copyright (C) 1999-2004 by Erik Andersen <andersen@codepoet.org>
   6  *
   7  * Reworked by David Douthitt <n9ubh@callsign.net> and
   8  *  Matt Kraai <kraai@alumni.carnegiemellon.edu>.
   9  *
  10  * Licensed under the GPL version 2, see the file LICENSE in this tarball.
  11  */
  12
  13 /* findutils-4.1.20:
  14  *
  15  * # find file.txt -exec 'echo {}' '{}  {}' ';'
  16  * find: echo file.txt: No such file or directory
  17  * # find file.txt -exec 'echo' '{}  {}' '; '
  18  * find: missing argument to `-exec'
  19  * # find file.txt -exec 'echo {}' '{}  {}' ';' junk
  20  * find: paths must precede expression
  21  * # find file.txt -exec 'echo {}' '{}  {}' ';' junk ';'
  22  * find: paths must precede expression
  23  * # find file.txt -exec 'echo' '{}  {}' ';'
  24  * file.txt  file.txt
  25  * (strace: execve("/bin/echo", ["echo", "file.txt  file.txt"], [ 30 vars ]))
  26  * # find file.txt -exec 'echo' '{}  {}' ';' -print -exec pwd ';'
  27  * file.txt  file.txt
  28  * file.txt
  29  * /tmp
  30  * # find -name '*.c' -o -name '*.h'
  31  * [shows files, *.c and *.h intermixed]
  32  * # find file.txt -name '*f*' -o -name '*t*'
  33  * file.txt
  34  * # find file.txt -name '*z*' -o -name '*t*'
  35  * file.txt
  36  * # find file.txt -name '*f*' -o -name '*z*'
  37  * file.txt
  38  *
  39  * # find t z -name '*t*' -print -o -name '*z*'
  40  * t
  41  * # find t z t z -name '*t*' -o -name '*z*' -print
  42  * z
  43  * z
  44  * # find t z t z '(' -name '*t*' -o -name '*z*' ')' -o -print
  45  * (no output)
  46  */
  47
  48 /* Testing script
  49  * ./busybox find "$@" | tee /tmp/bb_find
  50  * echo ==================
  51  * /path/to/gnu/find "$@" | tee /tmp/std_find
  52  * echo ==================
  53  * diff -u /tmp/std_find /tmp/bb_find && echo Identical
  54  */
  55
  56 #include <fnmatch.h>
  57 #include "libbb.h"
  58 #if ENABLE_FEATURE_FIND_REGEX
  59 #include "xregex.h"
  60 #endif
  61
  62 /* This is a NOEXEC applet. Be very careful! */
  63
  64
  65 typedef int (*action_fp)(const char *fileName, const struct stat *statbuf, void *) FAST_FUNC;
  66
  67 typedef struct {
  68         action_fp f;
  69 #if ENABLE_FEATURE_FIND_NOT
  70         bool invert;
  71 #endif
  72 } action;
  73
  74 #define ACTS(name, ...) typedef struct { action a; __VA_ARGS__ } action_##name;
  75 #define ACTF(name) \
  76         static int FAST_FUNC func_##name(const char *fileName UNUSED_PARAM, \
  77                 const struct stat *statbuf UNUSED_PARAM, \
  78                 action_##name* ap UNUSED_PARAM)
  79
  80                         ACTS(print)
  81                         ACTS(name,  const char *pattern; bool iname;)
  82 IF_FEATURE_FIND_PATH(   ACTS(path,  const char *pattern;))
  83 IF_FEATURE_FIND_REGEX(  ACTS(regex, regex_t compiled_pattern;))
  84 IF_FEATURE_FIND_PRINT0( ACTS(print0))
  85 IF_FEATURE_FIND_TYPE(   ACTS(type,  int type_mask;))
  86 IF_FEATURE_FIND_PERM(   ACTS(perm,  char perm_char; mode_t perm_mask;))
  87 IF_FEATURE_FIND_MTIME(  ACTS(mtime, char mtime_char; unsigned mtime_days;))
  88 IF_FEATURE_FIND_MMIN(   ACTS(mmin,  char mmin_char; unsigned mmin_mins;))
  89 IF_FEATURE_FIND_NEWER(  ACTS(newer, time_t newer_mtime;))
  90 IF_FEATURE_FIND_INUM(   ACTS(inum,  ino_t inode_num;))
  91 IF_FEATURE_FIND_USER(   ACTS(user,  uid_t uid;))
  92 IF_FEATURE_FIND_SIZE(   ACTS(size,  char size_char; off_t size;))
  93 IF_FEATURE_FIND_CONTEXT(ACTS(context, security_context_t context;))
  94 IF_FEATURE_FIND_PAREN(  ACTS(paren, action ***subexpr;))
  95 IF_FEATURE_FIND_PRUNE(  ACTS(prune))
  96 IF_FEATURE_FIND_DELETE( ACTS(delete))
  97 IF_FEATURE_FIND_EXEC(   ACTS(exec,  char **exec_argv; unsigned *subst_count; int exec_argc;))
  98 IF_FEATURE_FIND_GROUP(  ACTS(group, gid_t gid;))
  99 IF_FEATURE_FIND_LINKS(  ACTS(links, char links_char; int links_count;))
 100
 101 struct globals {
 102         IF_FEATURE_FIND_XDEV(dev_t *xdev_dev;)
 103         IF_FEATURE_FIND_XDEV(int xdev_count;)
 104         action ***actions;
 105         bool need_print;
 106         recurse_flags_t recurse_flags;
 107 } FIX_ALIASING;
 108 #define G (*(struct globals*)&bb_common_bufsiz1)
 109 #define INIT_G() do { \
 110         struct G_sizecheck { \
 111                 char G_sizecheck[sizeof(G) > COMMON_BUFSIZE ? -1 : 1]; \
 112         }; \
 113         /* we have to zero it out because of NOEXEC */ \
 114         memset(&G, 0, offsetof(struct globals, need_print)); \
 115         G.need_print = 1; \
 116         G.recurse_flags = ACTION_RECURSE; \
 117 } while (0)
 118
 119 #if ENABLE_FEATURE_FIND_EXEC
 120 static unsigned count_subst(const char *str)
 121 {
 122         unsigned count = 0;
 123         while ((str = strstr(str, "{}")) != NULL) {
 124                 count++;
 125                 str++;
 126         }
 127         return count;
 128 }
 129
 130
 131 static char* subst(const char *src, unsigned count, const char* filename)
 132 {
 133         char *buf, *dst, *end;
 134         size_t flen = strlen(filename);
 135         /* we replace each '{}' with filename: growth by strlen-2 */
 136         buf = dst = xmalloc(strlen(src) + count*(flen-2) + 1);
 137         while ((end = strstr(src, "{}"))) {
 138                 memcpy(dst, src, end - src);
 139                 dst += end - src;
 140                 src = end + 2;
 141                 memcpy(dst, filename, flen);
 142                 dst += flen;
 143         }
 144         strcpy(dst, src);
 145         return buf;
 146 }
 147 #endif
 148
 149 /* Return values of ACTFs ('action functions') are a bit mask:
 150  * bit 1=1: prune (use SKIP constant for setting it)
 151  * bit 0=1: matched successfully (TRUE)
 152  */
 153
 154 static int exec_actions(action ***appp, const char *fileName, const struct stat *statbuf)
 155 {
 156         int cur_group;
 157         int cur_action;
 158         int rc = 0;
 159         action **app, *ap;
 160
 161         /* "action group" is a set of actions ANDed together.
 162          * groups are ORed together.
 163          * We simply evaluate each group until we find one in which all actions
 164          * succeed. */
 165
 166         /* -prune is special: if it is encountered, then we won't
 167          * descend into current directory. It doesn't matter whether
 168          * action group (in which -prune sits) will succeed or not:
 169          * find * -prune -name 'f*' -o -name 'm*' -- prunes every dir
 170          * find * -name 'f*' -o -prune -name 'm*' -- prunes all dirs
 171          *     not starting with 'f' */
 172
 173         /* We invert TRUE bit (bit 0). Now 1 there means 'failure'.
 174          * and bitwise OR in "rc |= TRUE ^ ap->f()" will:
 175          * (1) make SKIP (-prune) bit stick; and (2) detect 'failure'.
 176          * On return, bit is restored.  */
 177
 178         cur_group = -1;
 179         while ((app = appp[++cur_group]) != NULL) {
 180                 rc &= ~TRUE; /* 'success' so far, clear TRUE bit */
 181                 cur_action = -1;
 182                 while (1) {
 183                         ap = app[++cur_action];
 184                         if (!ap) /* all actions in group were successful */
 185                                 return rc ^ TRUE; /* restore TRUE bit */
 186                         rc |= TRUE ^ ap->f(fileName, statbuf, ap);
 187 #if ENABLE_FEATURE_FIND_NOT
 188                         if (ap->invert) rc ^= TRUE;
 189 #endif
 190                         if (rc & TRUE) /* current group failed, try next */
 191                                 break;
 192                 }
 193         }
 194         return rc ^ TRUE; /* restore TRUE bit */
 195 }
 196
 197
 198 ACTF(name)
 199 {
 200         const char *tmp = bb_basename(fileName);
 201         if (tmp != fileName && !*tmp) { /* "foo/bar/". Oh no... go back to 'b' */
 202                 tmp--;
 203                 while (tmp != fileName && *--tmp != '/')
 204                         continue;
 205                 if (*tmp == '/')
 206                         tmp++;
 207         }
 208         return fnmatch(ap->pattern, tmp, FNM_PERIOD | (ap->iname ? FNM_CASEFOLD : 0)) == 0;
 209 }
 210
 211 #if ENABLE_FEATURE_FIND_PATH
 212 ACTF(path)
 213 {
 214         return fnmatch(ap->pattern, fileName, 0) == 0;
 215 }
 216 #endif
 217 #if ENABLE_FEATURE_FIND_REGEX
 218 ACTF(regex)
 219 {
 220         regmatch_t match;
 221         if (regexec(&ap->compiled_pattern, fileName, 1, &match, 0 /*eflags*/))
 222                 return 0; /* no match */
 223         if (match.rm_so)
 224                 return 0; /* match doesn't start at pos 0 */
 225         if (fileName[match.rm_eo])
 226                 return 0; /* match doesn't end exactly at end of pathname */
 227         return 1;
 228 }
 229 #endif
 230 #if ENABLE_FEATURE_FIND_TYPE
 231 ACTF(type)
 232 {
 233         return ((statbuf->st_mode & S_IFMT) == ap->type_mask);
 234 }
 235 #endif
 236 #if ENABLE_FEATURE_FIND_PERM
 237 ACTF(perm)
 238 {
 239         /* -perm +mode: at least one of perm_mask bits are set */
 240         if (ap->perm_char == '+')
 241                 return (statbuf->st_mode & ap->perm_mask) != 0;
 242         /* -perm -mode: all of perm_mask are set */
 243         if (ap->perm_char == '-')
 244                 return (statbuf->st_mode & ap->perm_mask) == ap->perm_mask;
 245         /* -perm mode: file mode must match perm_mask */
 246         return (statbuf->st_mode & 07777) == ap->perm_mask;
 247 }
 248 #endif
 249 #if ENABLE_FEATURE_FIND_MTIME
 250 ACTF(mtime)
 251 {
 252         time_t file_age = time(NULL) - statbuf->st_mtime;
 253         time_t mtime_secs = ap->mtime_days * 24*60*60;
 254         if (ap->mtime_char == '+')
 255                 return file_age >= mtime_secs + 24*60*60;
 256         if (ap->mtime_char == '-')
 257                 return file_age < mtime_secs;
 258         /* just numeric mtime */
 259         return file_age >= mtime_secs && file_age < (mtime_secs + 24*60*60);
 260 }
 261 #endif
 262 #if ENABLE_FEATURE_FIND_MMIN
 263 ACTF(mmin)
 264 {
 265         time_t file_age = time(NULL) - statbuf->st_mtime;
 266         time_t mmin_secs = ap->mmin_mins * 60;
 267         if (ap->mmin_char == '+')
 268                 return file_age >= mmin_secs + 60;
 269         if (ap->mmin_char == '-')
 270                 return file_age < mmin_secs;
 271         /* just numeric mmin */
 272         return file_age >= mmin_secs && file_age < (mmin_secs + 60);
 273 }
 274 #endif
 275 #if ENABLE_FEATURE_FIND_NEWER
 276 ACTF(newer)
 277 {
 278         return (ap->newer_mtime < statbuf->st_mtime);
 279 }
 280 #endif
 281 #if ENABLE_FEATURE_FIND_INUM
 282 ACTF(inum)
 283 {
 284         return (statbuf->st_ino == ap->inode_num);
 285 }
 286 #endif
 287 #if ENABLE_FEATURE_FIND_EXEC
 288 ACTF(exec)
 289 {
 290         int i, rc;
 291 #if ENABLE_USE_PORTABLE_CODE
 292         char **argv = alloca(sizeof(char*) * (ap->exec_argc + 1));
 293 #else /* gcc 4.3.1 generates smaller code: */
 294         char *argv[ap->exec_argc + 1];
 295 #endif
 296         for (i = 0; i < ap->exec_argc; i++)
 297                 argv[i] = subst(ap->exec_argv[i], ap->subst_count[i], fileName);
 298         argv[i] = NULL; /* terminate the list */
 299
 300         rc = spawn_and_wait(argv);
 301         if (rc < 0)
 302                 bb_simple_perror_msg(argv[0]);
 303
 304         i = 0;
 305         while (argv[i])
 306                 free(argv[i++]);
 307         return rc == 0; /* return 1 if exitcode 0 */
 308 }
 309 #endif
 310 #if ENABLE_FEATURE_FIND_USER
 311 ACTF(user)
 312 {
 313         return (statbuf->st_uid == ap->uid);
 314 }
 315 #endif
 316 #if ENABLE_FEATURE_FIND_GROUP
 317 ACTF(group)
 318 {
 319         return (statbuf->st_gid == ap->gid);
 320 }
 321 #endif
 322 #if ENABLE_FEATURE_FIND_PRINT0
 323 ACTF(print0)
 324 {
 325         printf("%s%c", fileName, '\0');
 326         return TRUE;
 327 }
 328 #endif
 329 ACTF(print)
 330 {
 331         puts(fileName);
 332         return TRUE;
 333 }
 334 #if ENABLE_FEATURE_FIND_PAREN
 335 ACTF(paren)
 336 {
 337         return exec_actions(ap->subexpr, fileName, statbuf);
 338 }
 339 #endif
 340 #if ENABLE_FEATURE_FIND_SIZE
 341 ACTF(size)
 342 {
 343         if (ap->size_char == '+')
 344                 return statbuf->st_size > ap->size;
 345         if (ap->size_char == '-')
 346                 return statbuf->st_size < ap->size;
 347         return statbuf->st_size == ap->size;
 348 }
 349 #endif
 350 #if ENABLE_FEATURE_FIND_PRUNE
 351 /*
 352  * -prune: if -depth is not given, return true and do not descend
 353  * current dir; if -depth is given, return false with no effect.
 354  * Example:
 355  * find dir -name 'asm-*' -prune -o -name '*.[chS]' -print
 356  */
 357 ACTF(prune)
 358 {
 359         return SKIP + TRUE;
 360 }
 361 #endif
 362 #if ENABLE_FEATURE_FIND_DELETE
 363 ACTF(delete)
 364 {
 365         int rc;
 366         if (S_ISDIR(statbuf->st_mode)) {
 367                 rc = rmdir(fileName);
 368         } else {
 369                 rc = unlink(fileName);
 370         }
 371         if (rc < 0)
 372                 bb_simple_perror_msg(fileName);
 373         return TRUE;
 374 }
 375 #endif
 376 #if ENABLE_FEATURE_FIND_CONTEXT
 377 ACTF(context)
 378 {
 379         security_context_t con;
 380         int rc;
 381
 382         if (G.recurse_flags & ACTION_FOLLOWLINKS) {
 383                 rc = getfilecon(fileName, &con);
 384         } else {
 385                 rc = lgetfilecon(fileName, &con);
 386         }
 387         if (rc < 0)
 388                 return FALSE;
 389         rc = strcmp(ap->context, con);
 390         freecon(con);
 391         return rc == 0;
 392 }
 393 #endif
 394 #if ENABLE_FEATURE_FIND_LINKS
 395 ACTF(links)
 396 {
 397         switch(ap->links_char) {
 398         case '-' : return (statbuf->st_nlink <  ap->links_count);
 399         case '+' : return (statbuf->st_nlink >  ap->links_count);
 400         default:   return (statbuf->st_nlink == ap->links_count);
 401         }
 402 }
 403 #endif
 404
 405 static int FAST_FUNC fileAction(const char *fileName,
 406                 struct stat *statbuf,
 407                 void *userData IF_NOT_FEATURE_FIND_MAXDEPTH(UNUSED_PARAM),
 408                 int depth IF_NOT_FEATURE_FIND_MAXDEPTH(UNUSED_PARAM))
 409 {
 410         int r;
 411 #if ENABLE_FEATURE_FIND_MAXDEPTH
 412 #define minmaxdepth ((int*)userData)
 413
 414         if (depth < minmaxdepth[0])
 415                 return TRUE; /* skip this, continue recursing */
 416         if (depth > minmaxdepth[1])
 417                 return SKIP; /* stop recursing */
 418 #endif
 419
 420         r = exec_actions(G.actions, fileName, statbuf);
 421         /* Had no explicit -print[0] or -exec? then print */
 422         if ((r & TRUE) && G.need_print)
 423                 puts(fileName);
 424
 425 #if ENABLE_FEATURE_FIND_MAXDEPTH
 426         if (S_ISDIR(statbuf->st_mode)) {
 427                 if (depth == minmaxdepth[1])
 428                         return SKIP;
 429         }
 430 #endif
 431 #if ENABLE_FEATURE_FIND_XDEV
 432         /* -xdev stops on mountpoints, but AFTER mountpoit itself
 433          * is processed as usual */
 434         if (S_ISDIR(statbuf->st_mode)) {
 435                 if (G.xdev_count) {
 436                         int i;
 437                         for (i = 0; i < G.xdev_count; i++) {
 438                                 if (G.xdev_dev[i] == statbuf->st_dev)
 439                                         goto found;
 440                         }
 441                         return SKIP;
 442  found: ;
 443                 }
 444         }
 445 #endif
 446
 447         /* Cannot return 0: our caller, recursive_action(),
 448          * will perror() and skip dirs (if called on dir) */
 449         return (r & SKIP) ? SKIP : TRUE;
 450 #undef minmaxdepth
 451 }
 452
 453
 454 #if ENABLE_FEATURE_FIND_TYPE
 455 static int find_type(const char *type)
 456 {
 457         int mask = 0;
 458
 459         if (*type == 'b')
 460                 mask = S_IFBLK;
 461         else if (*type == 'c')
 462                 mask = S_IFCHR;
 463         else if (*type == 'd')
 464                 mask = S_IFDIR;
 465         else if (*type == 'p')
 466                 mask = S_IFIFO;
 467         else if (*type == 'f')
 468                 mask = S_IFREG;
 469         else if (*type == 'l')
 470                 mask = S_IFLNK;
 471         else if (*type == 's')
 472                 mask = S_IFSOCK;
 473
 474         if (mask == 0 || type[1] != '\0')
 475                 bb_error_msg_and_die(bb_msg_invalid_arg, type, "-type");
 476
 477         return mask;
 478 }
 479 #endif
 480
 481 #if ENABLE_FEATURE_FIND_PERM \
 482  || ENABLE_FEATURE_FIND_MTIME || ENABLE_FEATURE_FIND_MMIN \
 483  || ENABLE_FEATURE_FIND_SIZE  || ENABLE_FEATURE_FIND_LINKS
 484 static const char* plus_minus_num(const char* str)
 485 {
 486         if (*str == '-' || *str == '+')
 487                 str++;
 488         return str;
 489 }
 490 #endif
 491
 492 static action*** parse_params(char **argv)
 493 {
 494         enum {
 495                                 PARM_a         ,
 496                                 PARM_o         ,
 497         IF_FEATURE_FIND_NOT(    PARM_char_not  ,)
 498 #if ENABLE_DESKTOP
 499                                 PARM_and       ,
 500                                 PARM_or        ,
 501         IF_FEATURE_FIND_NOT(    PARM_not       ,)
 502 #endif
 503                                 PARM_print     ,
 504         IF_FEATURE_FIND_PRINT0( PARM_print0    ,)
 505         IF_FEATURE_FIND_DEPTH(  PARM_depth     ,)
 506         IF_FEATURE_FIND_PRUNE(  PARM_prune     ,)
 507         IF_FEATURE_FIND_DELETE( PARM_delete    ,)
 508         IF_FEATURE_FIND_EXEC(   PARM_exec      ,)
 509         IF_FEATURE_FIND_PAREN(  PARM_char_brace,)
 510         /* All options starting from here require argument */
 511                                 PARM_name      ,
 512                                 PARM_iname     ,
 513         IF_FEATURE_FIND_PATH(   PARM_path      ,)
 514         IF_FEATURE_FIND_REGEX(  PARM_regex     ,)
 515         IF_FEATURE_FIND_TYPE(   PARM_type      ,)
 516         IF_FEATURE_FIND_PERM(   PARM_perm      ,)
 517         IF_FEATURE_FIND_MTIME(  PARM_mtime     ,)
 518         IF_FEATURE_FIND_MMIN(   PARM_mmin      ,)
 519         IF_FEATURE_FIND_NEWER(  PARM_newer     ,)
 520         IF_FEATURE_FIND_INUM(   PARM_inum      ,)
 521         IF_FEATURE_FIND_USER(   PARM_user      ,)
 522         IF_FEATURE_FIND_GROUP(  PARM_group     ,)
 523         IF_FEATURE_FIND_SIZE(   PARM_size      ,)
 524         IF_FEATURE_FIND_CONTEXT(PARM_context   ,)
 525         IF_FEATURE_FIND_LINKS(  PARM_links     ,)
 526         };
 527
 528         static const char params[] ALIGN1 =
 529                                  "-a\0"
 530                                  "-o\0"
 531         IF_FEATURE_FIND_NOT(    "!\0"       )
 532 #if ENABLE_DESKTOP
 533                                  "-and\0"
 534                                  "-or\0"
 535         IF_FEATURE_FIND_NOT(     "-not\0"    )
 536 #endif
 537                                  "-print\0"
 538         IF_FEATURE_FIND_PRINT0( "-print0\0" )
 539         IF_FEATURE_FIND_DEPTH(  "-depth\0"  )
 540         IF_FEATURE_FIND_PRUNE(  "-prune\0"  )
 541         IF_FEATURE_FIND_DELETE( "-delete\0" )
 542         IF_FEATURE_FIND_EXEC(   "-exec\0"   )
 543         IF_FEATURE_FIND_PAREN(  "(\0"       )
 544         /* All options starting from here require argument */
 545                                  "-name\0"
 546                                  "-iname\0"
 547         IF_FEATURE_FIND_PATH(   "-path\0"   )
 548         IF_FEATURE_FIND_REGEX(  "-regex\0"  )
 549         IF_FEATURE_FIND_TYPE(   "-type\0"   )
 550         IF_FEATURE_FIND_PERM(   "-perm\0"   )
 551         IF_FEATURE_FIND_MTIME(  "-mtime\0"  )
 552         IF_FEATURE_FIND_MMIN(   "-mmin\0"   )
 553         IF_FEATURE_FIND_NEWER(  "-newer\0"  )
 554         IF_FEATURE_FIND_INUM(   "-inum\0"   )
 555         IF_FEATURE_FIND_USER(   "-user\0"   )
 556         IF_FEATURE_FIND_GROUP(  "-group\0"  )
 557         IF_FEATURE_FIND_SIZE(   "-size\0"   )
 558         IF_FEATURE_FIND_CONTEXT("-context\0")
 559         IF_FEATURE_FIND_LINKS(  "-links\0"  )
 560                                  ;
 561
 562         action*** appp;
 563         unsigned cur_group = 0;
 564         unsigned cur_action = 0;
 565         IF_FEATURE_FIND_NOT( bool invert_flag = 0; )
 566
 567         /* This is the only place in busybox where we use nested function.
 568          * So far more standard alternatives were bigger. */
 569         /* Suppress a warning "func without a prototype" */
 570         auto action* alloc_action(int sizeof_struct, action_fp f);
 571         action* alloc_action(int sizeof_struct, action_fp f)
 572         {
 573                 action *ap;
 574                 appp[cur_group] = xrealloc(appp[cur_group], (cur_action+2) * sizeof(*appp));
 575                 appp[cur_group][cur_action++] = ap = xmalloc(sizeof_struct);
 576                 appp[cur_group][cur_action] = NULL;
 577                 ap->f = f;
 578                 IF_FEATURE_FIND_NOT( ap->invert = invert_flag; )
 579                 IF_FEATURE_FIND_NOT( invert_flag = 0; )
 580                 return ap;
 581         }
 582
 583 #define ALLOC_ACTION(name) (action_##name*)alloc_action(sizeof(action_##name), (action_fp) func_##name)
 584
 585         appp = xzalloc(2 * sizeof(appp[0])); /* appp[0],[1] == NULL */
 586
 587 /* Actions have side effects and return a true or false value
 588  * We implement: -print, -print0, -exec
 589  *
 590  * The rest are tests.
 591  *
 592  * Tests and actions are grouped by operators
 593  * ( expr )              Force precedence
 594  * ! expr                True if expr is false
 595  * -not expr             Same as ! expr
 596  * expr1 [-a[nd]] expr2  And; expr2 is not evaluated if expr1 is false
 597  * expr1 -o[r] expr2     Or; expr2 is not evaluated if expr1 is true
 598  * expr1 , expr2         List; both expr1 and expr2 are always evaluated
 599  * We implement: (), -a, -o
 600  */
 601         while (*argv) {
 602                 const char *arg = argv[0];
 603                 int parm = index_in_strings(params, arg);
 604                 const char *arg1 = argv[1];
 605
 606                 if (parm >= PARM_name) {
 607                         /* All options starting from -name require argument */
 608                         if (!arg1)
 609                                 bb_error_msg_and_die(bb_msg_requires_arg, arg);
 610                         argv++;
 611                 }
 612
 613                 /* We can use big switch() here, but on i386
 614                  * it doesn't give smaller code. Other arches? */
 615
 616         /* --- Operators --- */
 617                 if (parm == PARM_a IF_DESKTOP(|| parm == PARM_and)) {
 618                         /* no further special handling required */
 619                 }
 620                 else if (parm == PARM_o IF_DESKTOP(|| parm == PARM_or)) {
 621                         /* start new OR group */
 622                         cur_group++;
 623                         appp = xrealloc(appp, (cur_group+2) * sizeof(*appp));
 624                         /*appp[cur_group] = NULL; - already NULL */
 625                         appp[cur_group+1] = NULL;
 626                         cur_action = 0;
 627                 }
 628 #if ENABLE_FEATURE_FIND_NOT
 629                 else if (parm == PARM_char_not IF_DESKTOP(|| parm == PARM_not)) {
 630                         /* also handles "find ! ! -name 'foo*'" */
 631                         invert_flag ^= 1;
 632                 }
 633 #endif
 634
 635         /* --- Tests and actions --- */
 636                 else if (parm == PARM_print) {
 637                         G.need_print = 0;
 638                         /* GNU find ignores '!' here: "find ! -print" */
 639                         IF_FEATURE_FIND_NOT( invert_flag = 0; )
 640                         (void) ALLOC_ACTION(print);
 641                 }
 642 #if ENABLE_FEATURE_FIND_PRINT0
 643                 else if (parm == PARM_print0) {
 644                         G.need_print = 0;
 645                         IF_FEATURE_FIND_NOT( invert_flag = 0; )
 646                         (void) ALLOC_ACTION(print0);
 647                 }
 648 #endif
 649 #if ENABLE_FEATURE_FIND_DEPTH
 650                 else if (parm == PARM_depth) {
 651                         G.recurse_flags |= ACTION_DEPTHFIRST;
 652                 }
 653 #endif
 654 #if ENABLE_FEATURE_FIND_PRUNE
 655                 else if (parm == PARM_prune) {
 656                         IF_FEATURE_FIND_NOT( invert_flag = 0; )
 657                         (void) ALLOC_ACTION(prune);
 658                 }
 659 #endif
 660 #if ENABLE_FEATURE_FIND_DELETE
 661                 else if (parm == PARM_delete) {
 662                         G.need_print = 0;
 663                         G.recurse_flags |= ACTION_DEPTHFIRST;
 664                         (void) ALLOC_ACTION(delete);
 665                 }
 666 #endif
 667 #if ENABLE_FEATURE_FIND_EXEC
 668                 else if (parm == PARM_exec) {
 669                         int i;
 670                         action_exec *ap;
 671                         G.need_print = 0;
 672                         IF_FEATURE_FIND_NOT( invert_flag = 0; )
 673                         ap = ALLOC_ACTION(exec);
 674                         ap->exec_argv = ++argv; /* first arg after -exec */
 675                         ap->exec_argc = 0;
 676                         while (1) {
 677                                 if (!*argv) /* did not see ';' or '+' until end */
 678                                         bb_error_msg_and_die(bb_msg_requires_arg, "-exec");
 679                                 if (LONE_CHAR(argv[0], ';'))
 680                                         break;
 681                                 //TODO: implement {} + (like xargs)
 682                                 // See:
 683                                 // find findutils/ -exec echo ">"{}"<" \;
 684                                 // find findutils/ -exec echo ">"{}"<" +
 685                                 argv++;
 686                                 ap->exec_argc++;
 687                         }
 688                         if (ap->exec_argc == 0)
 689                                 bb_error_msg_and_die(bb_msg_requires_arg, arg);
 690                         ap->subst_count = xmalloc(ap->exec_argc * sizeof(int));
 691                         i = ap->exec_argc;
 692                         while (i--)
 693                                 ap->subst_count[i] = count_subst(ap->exec_argv[i]);
 694                 }
 695 #endif
 696 #if ENABLE_FEATURE_FIND_PAREN
 697                 else if (parm == PARM_char_brace) {
 698                         action_paren *ap;
 699                         char **endarg;
 700                         unsigned nested = 1;
 701
 702                         endarg = argv;
 703                         while (1) {
 704                                 if (!*++endarg)
 705                                         bb_error_msg_and_die("unpaired '('");
 706                                 if (LONE_CHAR(*endarg, '('))
 707                                         nested++;
 708                                 else if (LONE_CHAR(*endarg, ')') && !--nested) {
 709                                         *endarg = NULL;
 710                                         break;
 711                                 }
 712                         }
 713                         ap = ALLOC_ACTION(paren);
 714                         ap->subexpr = parse_params(argv + 1);
 715                         *endarg = (char*) ")"; /* restore NULLed parameter */
 716                         argv = endarg;
 717                 }
 718 #endif
 719                 else if (parm == PARM_name || parm == PARM_iname) {
 720                         action_name *ap;
 721                         ap = ALLOC_ACTION(name);
 722                         ap->pattern = arg1;
 723                         ap->iname = (parm == PARM_iname);
 724                 }
 725 #if ENABLE_FEATURE_FIND_PATH
 726                 else if (parm == PARM_path) {
 727                         action_path *ap;
 728                         ap = ALLOC_ACTION(path);
 729                         ap->pattern = arg1;
 730                 }
 731 #endif
 732 #if ENABLE_FEATURE_FIND_REGEX
 733                 else if (parm == PARM_regex) {
 734                         action_regex *ap;
 735                         ap = ALLOC_ACTION(regex);
 736                         xregcomp(&ap->compiled_pattern, arg1, 0 /*cflags*/);
 737                 }
 738 #endif
 739 #if ENABLE_FEATURE_FIND_TYPE
 740                 else if (parm == PARM_type) {
 741                         action_type *ap;
 742                         ap = ALLOC_ACTION(type);
 743                         ap->type_mask = find_type(arg1);
 744                 }
 745 #endif
 746 #if ENABLE_FEATURE_FIND_PERM
 747 /* -perm mode   File's permission bits are exactly mode (octal or symbolic).
 748  *              Symbolic modes use mode 0 as a point of departure.
 749  * -perm -mode  All of the permission bits mode are set for the file.
 750  * -perm +mode  Any of the permission bits mode are set for the file.
 751  */
 752                 else if (parm == PARM_perm) {
 753                         action_perm *ap;
 754                         ap = ALLOC_ACTION(perm);
 755                         ap->perm_char = arg1[0];
 756                         arg1 = plus_minus_num(arg1);
 757                         ap->perm_mask = 0;
 758                         if (!bb_parse_mode(arg1, &ap->perm_mask))
 759                                 bb_error_msg_and_die("invalid mode '%s'", arg1);
 760                 }
 761 #endif
 762 #if ENABLE_FEATURE_FIND_MTIME
 763                 else if (parm == PARM_mtime) {
 764                         action_mtime *ap;
 765                         ap = ALLOC_ACTION(mtime);
 766                         ap->mtime_char = arg1[0];
 767                         ap->mtime_days = xatoul(plus_minus_num(arg1));
 768                 }
 769 #endif
 770 #if ENABLE_FEATURE_FIND_MMIN
 771                 else if (parm == PARM_mmin) {
 772                         action_mmin *ap;
 773                         ap = ALLOC_ACTION(mmin);
 774                         ap->mmin_char = arg1[0];
 775                         ap->mmin_mins = xatoul(plus_minus_num(arg1));
 776                 }
 777 #endif
 778 #if ENABLE_FEATURE_FIND_NEWER
 779                 else if (parm == PARM_newer) {
 780                         struct stat stat_newer;
 781                         action_newer *ap;
 782                         ap = ALLOC_ACTION(newer);
 783                         xstat(arg1, &stat_newer);
 784                         ap->newer_mtime = stat_newer.st_mtime;
 785                 }
 786 #endif
 787 #if ENABLE_FEATURE_FIND_INUM
 788                 else if (parm == PARM_inum) {
 789                         action_inum *ap;
 790                         ap = ALLOC_ACTION(inum);
 791                         ap->inode_num = xatoul(arg1);
 792                 }
 793 #endif
 794 #if ENABLE_FEATURE_FIND_USER
 795                 else if (parm == PARM_user) {
 796                         action_user *ap;
 797                         ap = ALLOC_ACTION(user);
 798                         ap->uid = bb_strtou(arg1, NULL, 10);
 799                         if (errno)
 800                                 ap->uid = xuname2uid(arg1);
 801                 }
 802 #endif
 803 #if ENABLE_FEATURE_FIND_GROUP
 804                 else if (parm == PARM_group) {
 805                         action_group *ap;
 806                         ap = ALLOC_ACTION(group);
 807                         ap->gid = bb_strtou(arg1, NULL, 10);
 808                         if (errno)
 809                                 ap->gid = xgroup2gid(arg1);
 810                 }
 811 #endif
 812 #if ENABLE_FEATURE_FIND_SIZE
 813                 else if (parm == PARM_size) {
 814 /* -size n[bckw]: file uses n units of space
 815  * b (default): units are 512-byte blocks
 816  * c: 1 byte
 817  * k: kilobytes
 818  * w: 2-byte words
 819  */
 820 #if ENABLE_LFS
 821 #define XATOU_SFX xatoull_sfx
 822 #else
 823 #define XATOU_SFX xatoul_sfx
 824 #endif
 825                         static const struct suffix_mult find_suffixes[] = {
 826                                 { "c", 1 },
 827                                 { "w", 2 },
 828                                 { "", 512 },
 829                                 { "b", 512 },
 830                                 { "k", 1024 },
 831                                 { "", 0 }
 832                         };
 833                         action_size *ap;
 834                         ap = ALLOC_ACTION(size);
 835                         ap->size_char = arg1[0];
 836                         ap->size = XATOU_SFX(plus_minus_num(arg1), find_suffixes);
 837                 }
 838 #endif
 839 #if ENABLE_FEATURE_FIND_CONTEXT
 840                 else if (parm == PARM_context) {
 841                         action_context *ap;
 842                         ap = ALLOC_ACTION(context);
 843                         ap->context = NULL;
 844                         /* SELinux headers erroneously declare non-const parameter */
 845                         if (selinux_raw_to_trans_context((char*)arg1, &ap->context))
 846                                 bb_simple_perror_msg(arg1);
 847                 }
 848 #endif
 849 #if ENABLE_FEATURE_FIND_LINKS
 850                 else if (parm == PARM_links) {
 851                         action_links *ap;
 852                         ap = ALLOC_ACTION(links);
 853                         ap->links_char = arg1[0];
 854                         ap->links_count = xatoul(plus_minus_num(arg1));
 855                 }
 856 #endif
 857                 else {
 858                         bb_error_msg("unrecognized: %s", arg);
 859                         bb_show_usage();
 860                 }
 861                 argv++;
 862         }
 863         return appp;
 864 #undef ALLOC_ACTION
 865 }
 866
 867
 868 int find_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
 869 int find_main(int argc UNUSED_PARAM, char **argv)
 870 {
 871         static const char options[] ALIGN1 =
 872                           "-follow\0"
 873 IF_FEATURE_FIND_XDEV(    "-xdev\0"    )
 874 IF_FEATURE_FIND_MAXDEPTH("-mindepth\0""-maxdepth\0")
 875                           ;
 876         enum {
 877                           OPT_FOLLOW,
 878 IF_FEATURE_FIND_XDEV(    OPT_XDEV    ,)
 879 IF_FEATURE_FIND_MAXDEPTH(OPT_MINDEPTH,)
 880         };
 881
 882         char *arg;
 883         char **argp;
 884         int i, firstopt, status = EXIT_SUCCESS;
 885 #if ENABLE_FEATURE_FIND_MAXDEPTH
 886         int minmaxdepth[2] = { 0, INT_MAX };
 887 #else
 888 #define minmaxdepth NULL
 889 #endif
 890
 891         INIT_G();
 892
 893         for (firstopt = 1; argv[firstopt]; firstopt++) {
 894                 if (argv[firstopt][0] == '-')
 895                         break;
 896                 if (ENABLE_FEATURE_FIND_NOT && LONE_CHAR(argv[firstopt], '!'))
 897                         break;
 898 #if ENABLE_FEATURE_FIND_PAREN
 899                 if (LONE_CHAR(argv[firstopt], '('))
 900                         break;
 901 #endif
 902         }
 903         if (firstopt == 1) {
 904                 argv[0] = (char*)".";
 905                 argv--;
 906                 firstopt++;
 907         }
 908
 909 /* All options always return true. They always take effect
 910  * rather than being processed only when their place in the
 911  * expression is reached.
 912  * We implement: -follow, -xdev, -maxdepth
 913  */
 914         /* Process options, and replace then with -a */
 915         /* (-a will be ignored by recursive parser later) */
 916         argp = &argv[firstopt];
 917         while ((arg = argp[0])) {
 918                 int opt = index_in_strings(options, arg);
 919                 if (opt == OPT_FOLLOW) {
 920                         G.recurse_flags |= ACTION_FOLLOWLINKS | ACTION_DANGLING_OK;
 921                         argp[0] = (char*)"-a";
 922                 }
 923 #if ENABLE_FEATURE_FIND_XDEV
 924                 if (opt == OPT_XDEV) {
 925                         struct stat stbuf;
 926                         if (!G.xdev_count) {
 927                                 G.xdev_count = firstopt - 1;
 928                                 G.xdev_dev = xzalloc(G.xdev_count * sizeof(G.xdev_dev[0]));
 929                                 for (i = 1; i < firstopt; i++) {
 930                                         /* not xstat(): shouldn't bomb out on
 931                                          * "find not_exist exist -xdev" */
 932                                         if (stat(argv[i], &stbuf) == 0)
 933                                                 G.xdev_dev[i-1] = stbuf.st_dev;
 934                                         /* else G.xdev_dev[i-1] stays 0 and
 935                                          * won't match any real device dev_t */
 936                                 }
 937                         }
 938                         argp[0] = (char*)"-a";
 939                 }
 940 #endif
 941 #if ENABLE_FEATURE_FIND_MAXDEPTH
 942                 if (opt == OPT_MINDEPTH || opt == OPT_MINDEPTH + 1) {
 943                         if (!argp[1])
 944                                 bb_show_usage();
 945                         minmaxdepth[opt - OPT_MINDEPTH] = xatoi_u(argp[1]);
 946                         argp[0] = (char*)"-a";
 947                         argp[1] = (char*)"-a";
 948                         argp++;
 949                 }
 950 #endif
 951                 argp++;
 952         }
 953
 954         G.actions = parse_params(&argv[firstopt]);
 955
 956         for (i = 1; i < firstopt; i++) {
 957                 if (!recursive_action(argv[i],
 958                                 G.recurse_flags,/* flags */
 959                                 fileAction,     /* file action */
 960                                 fileAction,     /* dir action */
 961 #if ENABLE_FEATURE_FIND_MAXDEPTH
 962                                 minmaxdepth,    /* user data */
 963 #else
 964                                 NULL,           /* user data */
 965 #endif
 966                                 0))             /* depth */
 967                         status = EXIT_FAILURE;
 968         }
 969         return status;
 970 }