modutils/modprobe.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * Modprobe written from scratch for BusyBox
   4  *
   5  * Copyright (c) 2002 by Robert Griebl, griebl@gmx.de
   6  * Copyright (c) 2003 by Andrew Dennison, andrew.dennison@motec.com.au
   7  * Copyright (c) 2005 by Jim Bauer, jfbauer@nfr.com
   8  *
   9  * Portions Copyright (c) 2005 by Yann E. MORIN, yann.morin.1998@anciens.enib.fr
  10  *
  11  * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
  12 */
  13
  14 #include "busybox.h"
  15 #include <sys/utsname.h>
  16 #include <fnmatch.h>
  17
  18 struct mod_opt_t {      /* one-way list of options to pass to a module */
  19         char *  m_opt_val;
  20         struct mod_opt_t * m_next;
  21 };
  22
  23 struct dep_t {  /* one-way list of dependency rules */
  24         /* a dependency rule */
  25         char *  m_name;                         /* the module name*/
  26         char *  m_path;                         /* the module file path */
  27         struct mod_opt_t *  m_options;          /* the module options */
  28
  29         int     m_isalias  : 1;                 /* the module is an alias */
  30         int     m_reserved : 15;                /* stuffin' */
  31
  32         int     m_depcnt   : 16;                /* the number of dependable module(s) */
  33         char ** m_deparr;                       /* the list of dependable module(s) */
  34
  35         struct dep_t * m_next;                  /* the next dependency rule */
  36 };
  37
  38 struct mod_list_t {     /* two-way list of modules to process */
  39         /* a module description */
  40         const char * m_name;
  41         char * m_path;
  42         struct mod_opt_t * m_options;
  43
  44         struct mod_list_t * m_prev;
  45         struct mod_list_t * m_next;
  46 };
  47
  48
  49 static struct dep_t *depend;
  50
  51 #define main_options "acdklnqrst:vVC:"
  52 #define INSERT_ALL     1        /* a */
  53 #define DUMP_CONF_EXIT 2        /* c */
  54 #define D_OPT_IGNORED  4        /* d */
  55 #define AUTOCLEAN_FLG  8        /* k */
  56 #define LIST_ALL       16       /* l */
  57 #define SHOW_ONLY      32       /* n */
  58 #define QUIET          64       /* q */
  59 #define REMOVE_OPT     128      /* r */
  60 #define DO_SYSLOG      256      /* s */
  61 #define RESTRICT_DIR   512      /* t */
  62 #define VERBOSE        1024     /* v */
  63 #define VERSION_ONLY   2048     /* V */
  64 #define CONFIG_FILE    4096     /* C */
  65
  66 #define autoclean       (main_opts & AUTOCLEAN_FLG)
  67 #define show_only       (main_opts & SHOW_ONLY)
  68 #define quiet           (main_opts & QUIET)
  69 #define remove_opt      (main_opts & REMOVE_OPT)
  70 #define do_syslog       (main_opts & DO_SYSLOG)
  71 #define verbose         (main_opts & VERBOSE)
  72
  73 static int main_opts;
  74
  75 static int parse_tag_value(char *buffer, char **ptag, char **pvalue)
  76 {
  77         char *tag, *value;
  78
  79         buffer = skip_whitespace(buffer);
  80         tag = value = buffer;
  81         while (!isspace(*value))
  82                 if (!*value) return 0;
  83                 else value++;
  84         *value++ = 0;
  85         value = skip_whitespace(value);
  86         if (!*value) return 0;
  87
  88         *ptag = tag;
  89         *pvalue = value;
  90
  91         return 1;
  92 }
  93
  94 /*
  95  * This function appends an option to a list
  96  */
  97 static struct mod_opt_t *append_option(struct mod_opt_t *opt_list, char *opt)
  98 {
  99         struct mod_opt_t *ol = opt_list;
 100
 101         if (ol) {
 102                 while (ol->m_next) {
 103                         ol = ol->m_next;
 104                 }
 105                 ol->m_next = xmalloc(sizeof(struct mod_opt_t));
 106                 ol = ol->m_next;
 107         } else {
 108                 ol = opt_list = xmalloc(sizeof(struct mod_opt_t));
 109         }
 110
 111         ol->m_opt_val = xstrdup(opt);
 112         ol->m_next = NULL;
 113
 114         return opt_list;
 115 }
 116
 117 #if ENABLE_FEATURE_MODPROBE_MULTIPLE_OPTIONS
 118 /* static char* parse_command_string(char* src, char **dst);
 119  *   src: pointer to string containing argument
 120  *   dst: pointer to where to store the parsed argument
 121  *   return value: the pointer to the first char after the parsed argument,
 122  *                 NULL if there was no argument parsed (only trailing spaces).
 123  *   Note that memory is allocated with xstrdup when a new argument was
 124  *   parsed. Don't forget to free it!
 125  */
 126 #define ARG_EMPTY      0x00
 127 #define ARG_IN_DQUOTES 0x01
 128 #define ARG_IN_SQUOTES 0x02
 129 static char *parse_command_string(char *src, char **dst)
 130 {
 131         int opt_status = ARG_EMPTY;
 132         char* tmp_str;
 133
 134         /* Dumb you, I have nothing to do... */
 135         if (src == NULL) return src;
 136
 137         /* Skip leading spaces */
 138         while (*src == ' ') {
 139                 src++;
 140         }
 141         /* Is the end of string reached? */
 142         if (*src == '\0') {
 143                 return NULL;
 144         }
 145         /* Reached the start of an argument
 146          * By the way, we duplicate a little too much
 147          * here but what is too much is freed later. */
 148         *dst = tmp_str = xstrdup(src);
 149         /* Get to the end of that argument */
 150         while (*tmp_str != '\0'
 151          && (*tmp_str != ' ' || (opt_status & (ARG_IN_DQUOTES | ARG_IN_SQUOTES)))
 152         ) {
 153                 switch (*tmp_str) {
 154                 case '\'':
 155                         if (opt_status & ARG_IN_DQUOTES) {
 156                                 /* Already in double quotes, keep current char as is */
 157                         } else {
 158                                 /* shift left 1 char, until end of string: get rid of the opening/closing quotes */
 159                                 memmove(tmp_str, tmp_str + 1, strlen(tmp_str));
 160                                 /* mark me: we enter or leave single quotes */
 161                                 opt_status ^= ARG_IN_SQUOTES;
 162                                 /* Back one char, as we need to re-scan the new char there. */
 163                                 tmp_str--;
 164                         }
 165                         break;
 166                 case '"':
 167                         if (opt_status & ARG_IN_SQUOTES) {
 168                                 /* Already in single quotes, keep current char as is */
 169                         } else {
 170                                 /* shift left 1 char, until end of string: get rid of the opening/closing quotes */
 171                                 memmove(tmp_str, tmp_str + 1, strlen(tmp_str));
 172                                 /* mark me: we enter or leave double quotes */
 173                                 opt_status ^= ARG_IN_DQUOTES;
 174                                 /* Back one char, as we need to re-scan the new char there. */
 175                                 tmp_str--;
 176                         }
 177                         break;
 178                 case '\\':
 179                         if (opt_status & ARG_IN_SQUOTES) {
 180                                 /* Between single quotes: keep as is. */
 181                         } else {
 182                                 switch (*(tmp_str+1)) {
 183                                 case 'a':
 184                                 case 'b':
 185                                 case 't':
 186                                 case 'n':
 187                                 case 'v':
 188                                 case 'f':
 189                                 case 'r':
 190                                 case '0':
 191                                         /* We escaped a special character. For now, keep
 192                                          * both the back-slash and the following char. */
 193                                         tmp_str++; src++;
 194                                         break;
 195                                 default:
 196                                         /* We escaped a space or a single or double quote,
 197                                          * or a back-slash, or a non-escapable char. Remove
 198                                          * the '\' and keep the new current char as is. */
 199                                         memmove(tmp_str, tmp_str + 1, strlen(tmp_str));
 200                                         break;
 201                                 }
 202                         }
 203                         break;
 204                 /* Any other char that is special shall appear here.
 205                  * Example: $ starts a variable
 206                 case '$':
 207                         do_variable_expansion();
 208                         break;
 209                  * */
 210                 default:
 211                         /* any other char is kept as is. */
 212                         break;
 213                 }
 214                 tmp_str++; /* Go to next char */
 215                 src++; /* Go to next char to find the end of the argument. */
 216         }
 217         /* End of string, but still no ending quote */
 218         if (opt_status & (ARG_IN_DQUOTES | ARG_IN_SQUOTES)) {
 219                 bb_error_msg_and_die("unterminated (single or double) quote in options list: %s", src);
 220         }
 221         *tmp_str++ = '\0';
 222         *dst = xrealloc(*dst, (tmp_str - *dst));
 223         return src;
 224 }
 225 #else
 226 #define parse_command_string(src, dst)  (0)
 227 #endif /* ENABLE_FEATURE_MODPROBE_MULTIPLE_OPTIONS */
 228
 229 /*
 230  * This function reads aliases and default module options from a configuration file
 231  * (/etc/modprobe.conf syntax). It supports includes (only files, no directories).
 232  */
 233 static void include_conf(struct dep_t **first, struct dep_t **current, char *buffer, int buflen, int fd)
 234 {
 235         int continuation_line = 0;
 236
 237         // alias parsing is not 100% correct (no correct handling of continuation lines within an alias) !
 238
 239         while (reads(fd, buffer, buflen)) {
 240                 int l;
 241                 char *p;
 242
 243                 p = strchr(buffer, '#');
 244                 if (p)
 245                         *p = 0;
 246
 247                 l = strlen(buffer);
 248
 249                 while (l && isspace(buffer[l-1])) {
 250                         buffer[l-1] = 0;
 251                         l--;
 252                 }
 253
 254                 if (l == 0) {
 255                         continuation_line = 0;
 256                         continue;
 257                 }
 258
 259                 if (!continuation_line) {
 260                         if ((strncmp(buffer, "alias", 5) == 0) && isspace(buffer[5])) {
 261                                 char *alias, *mod;
 262
 263                                 if (parse_tag_value(buffer + 6, &alias, &mod)) {
 264                                         /* handle alias as a module dependent on the aliased module */
 265                                         if (!*current) {
 266                                                 (*first) = (*current) = xzalloc(sizeof(struct dep_t));
 267                                         } else {
 268                                                 (*current)->m_next = xzalloc(sizeof(struct dep_t));
 269                                                 (*current) = (*current)->m_next;
 270                                         }
 271                                         (*current)->m_name  = xstrdup(alias);
 272                                         (*current)->m_isalias = 1;
 273
 274                                         if ((strcmp(mod, "off") == 0) || (strcmp(mod, "null") == 0)) {
 275                                                 (*current)->m_depcnt = 0;
 276                                                 (*current)->m_deparr = 0;
 277                                         } else {
 278                                                 (*current)->m_depcnt  = 1;
 279                                                 (*current)->m_deparr  = xmalloc(1 * sizeof(char *));
 280                                                 (*current)->m_deparr[0] = xstrdup(mod);
 281                                         }
 282                                         (*current)->m_next    = 0;
 283                                 }
 284                         } else if ((strncmp(buffer, "options", 7) == 0) && isspace(buffer[7])) {
 285                                 char *mod, *opt;
 286
 287                                 /* split the line in the module/alias name, and options */
 288                                 if (parse_tag_value(buffer + 8, &mod, &opt)) {
 289                                         struct dep_t *dt;
 290
 291                                         /* find the corresponding module */
 292                                         for (dt = *first; dt; dt = dt->m_next) {
 293                                                 if (strcmp(dt->m_name, mod) == 0)
 294                                                         break;
 295                                         }
 296                                         if (dt) {
 297                                                 if (ENABLE_FEATURE_MODPROBE_MULTIPLE_OPTIONS) {
 298                                                         char* new_opt = NULL;
 299                                                         while ((opt = parse_command_string(opt, &new_opt))) {
 300                                                                 dt->m_options = append_option(dt->m_options, new_opt);
 301                                                         }
 302                                                 } else {
 303                                                         dt->m_options = append_option(dt->m_options, opt);
 304                                                 }
 305                                         }
 306                                 }
 307                         } else if ((strncmp(buffer, "include", 7) == 0) && isspace(buffer[7])) {
 308                                 int fdi; char *filename;
 309
 310                                 filename = skip_whitespace(buffer + 8);
 311
 312                                 if ((fdi = open(filename, O_RDONLY)) >= 0) {
 313                                         include_conf(first, current, buffer, buflen, fdi);
 314                                         close(fdi);
 315                                 }
 316                         }
 317                 }
 318         }
 319 }
 320
 321 /*
 322  * This function builds a list of dependency rules from /lib/modules/`uname -r`/modules.dep.
 323  * It then fills every modules and aliases with their default options, found by parsing
 324  * modprobe.conf (or modules.conf, or conf.modules).
 325  */
 326 static struct dep_t *build_dep(void)
 327 {
 328         int fd;
 329         struct utsname un;
 330         struct dep_t *first = 0;
 331         struct dep_t *current = 0;
 332         char buffer[2048];
 333         char *filename;
 334         int continuation_line = 0;
 335         int k_version;
 336
 337         if (uname(&un))
 338                 bb_error_msg_and_die("can't determine kernel version");
 339
 340         k_version = 0;
 341         if (un.release[0] == '2') {
 342                 k_version = un.release[2] - '0';
 343         }
 344
 345         filename = xasprintf("/lib/modules/%s/modules.dep", un.release);
 346         fd = open(filename, O_RDONLY);
 347         if (ENABLE_FEATURE_CLEAN_UP)
 348                 free(filename);
 349         if (fd < 0) {
 350                 /* Ok, that didn't work.  Fall back to looking in /lib/modules */
 351                 fd = open("/lib/modules/modules.dep", O_RDONLY);
 352                 if (fd < 0) {
 353                         return 0;
 354                 }
 355         }
 356
 357         while (reads(fd, buffer, sizeof(buffer))) {
 358                 int l = strlen(buffer);
 359                 char *p = 0;
 360
 361                 while (l > 0 && isspace(buffer[l-1])) {
 362                         buffer[l-1] = 0;
 363                         l--;
 364                 }
 365
 366                 if (l == 0) {
 367                         continuation_line = 0;
 368                         continue;
 369                 }
 370
 371                 /* Is this a new module dep description? */
 372                 if (!continuation_line) {
 373                         /* find the dep beginning */
 374                         char *col = strchr(buffer, ':');
 375                         char *dot = col;
 376
 377                         if (col) {
 378                                 /* This line is a dep description */
 379                                 char *mods;
 380                                 char *modpath;
 381                                 char *mod;
 382
 383                                 /* Find the beginning of the module file name */
 384                                 *col = 0;
 385                                 mods = strrchr(buffer, '/');
 386
 387                                 if (!mods)
 388                                         mods = buffer; /* no path for this module */
 389                                 else
 390                                         mods++; /* there was a path for this module... */
 391
 392                                 /* find the path of the module */
 393                                 modpath = strchr(buffer, '/'); /* ... and this is the path */
 394                                 if (!modpath)
 395                                         modpath = buffer; /* module with no path */
 396                                 /* find the end of the module name in the file name */
 397                                 if (ENABLE_FEATURE_2_6_MODULES &&
 398                                      (k_version > 4) && (*(col-3) == '.') &&
 399                                     (*(col-2) == 'k') && (*(col-1) == 'o'))
 400                                         dot = col - 3;
 401                                 else
 402                                         if ((*(col-2) == '.') && (*(col-1) == 'o'))
 403                                                 dot = col - 2;
 404
 405                                 mod = xstrndup(mods, dot - mods);
 406
 407                                 /* enqueue new module */
 408                                 if (!current) {
 409                                         first = current = xmalloc(sizeof(struct dep_t));
 410                                 } else {
 411                                         current->m_next = xmalloc(sizeof(struct dep_t));
 412                                         current = current->m_next;
 413                                 }
 414                                 current->m_name    = mod;
 415                                 current->m_path    = xstrdup(modpath);
 416                                 current->m_options = NULL;
 417                                 current->m_isalias = 0;
 418                                 current->m_depcnt  = 0;
 419                                 current->m_deparr  = 0;
 420                                 current->m_next    = 0;
 421
 422                                 p = col + 1;
 423                         } else
 424                                 /* this line is not a dep description */
 425                                 p = 0;
 426                 } else
 427                         /* It's a dep description continuation */
 428                         p = buffer;
 429
 430                 while (p && *p && isblank(*p))
 431                         p++;
 432
 433                 /* p points to the first dependable module; if NULL, no dependable module */
 434                 if (p && *p) {
 435                         char *end = &buffer[l-1];
 436                         char *deps;
 437                         char *dep;
 438                         char *next;
 439                         int ext = 0;
 440
 441                         while (isblank(*end) || (*end == '\\'))
 442                                 end--;
 443
 444                         do {
 445                                 /* search the end of the dependency */
 446                                 next = strchr(p, ' ');
 447                                 if (next) {
 448                                         *next = 0;
 449                                         next--;
 450                                 } else
 451                                         next = end;
 452
 453                                 /* find the beginning of the module file name */
 454                                 deps = strrchr(p, '/');
 455
 456                                 if (!deps || (deps < p)) {
 457                                         deps = p;
 458
 459                                         while (isblank(*deps))
 460                                                 deps++;
 461                                 } else
 462                                         deps++;
 463
 464                                 /* find the end of the module name in the file name */
 465                                 if (ENABLE_FEATURE_2_6_MODULES
 466                                  && (k_version > 4) && (*(next-2) == '.')
 467                                  && (*(next-1) == 'k') && (*next == 'o'))
 468                                         ext = 3;
 469                                 else
 470                                         if ((*(next-1) == '.') && (*next == 'o'))
 471                                                 ext = 2;
 472
 473                                 /* Cope with blank lines */
 474                                 if ((next-deps-ext+1) <= 0)
 475                                         continue;
 476                                 dep = xstrndup(deps, next - deps - ext + 1);
 477
 478                                 /* Add the new dependable module name */
 479                                 current->m_depcnt++;
 480                                 current->m_deparr = xrealloc(current->m_deparr,
 481                                                 sizeof(char *) * current->m_depcnt);
 482                                 current->m_deparr[current->m_depcnt - 1] = dep;
 483
 484                                 p = next + 2;
 485                         } while (next < end);
 486                 }
 487
 488                 /* is there other dependable module(s) ? */
 489                 if (buffer[l-1] == '\\')
 490                         continuation_line = 1;
 491                 else
 492                         continuation_line = 0;
 493         }
 494         close(fd);
 495
 496         /*
 497          * First parse system-specific options and aliases
 498          * as they take precedence over the kernel ones.
 499          * >=2.6: we only care about modprobe.conf
 500          * <=2.4: we care about modules.conf and conf.modules
 501          */
 502         if (ENABLE_FEATURE_2_6_MODULES
 503          && (fd = open("/etc/modprobe.conf", O_RDONLY)) < 0)
 504                 if (ENABLE_FEATURE_2_4_MODULES
 505                  && (fd = open("/etc/modules.conf", O_RDONLY)) < 0)
 506                         if (ENABLE_FEATURE_2_4_MODULES)
 507                                 fd = open("/etc/conf.modules", O_RDONLY);
 508
 509         if (fd >= 0) {
 510                 include_conf(&first, &current, buffer, sizeof(buffer), fd);
 511                 close(fd);
 512         }
 513
 514         /* Only 2.6 has a modules.alias file */
 515         if (ENABLE_FEATURE_2_6_MODULES) {
 516                 /* Parse kernel-declared aliases */
 517                 filename = xasprintf("/lib/modules/%s/modules.alias", un.release);
 518                 fd = open(filename, O_RDONLY);
 519                 if (fd < 0) {
 520                         /* Ok, that didn't work.  Fall back to looking in /lib/modules */
 521                         fd = open("/lib/modules/modules.alias", O_RDONLY);
 522                 }
 523                 if (ENABLE_FEATURE_CLEAN_UP)
 524                         free(filename);
 525
 526                 if (fd >= 0) {
 527                         include_conf(&first, &current, buffer, sizeof(buffer), fd);
 528                         close(fd);
 529                 }
 530         }
 531
 532         return first;
 533 }
 534
 535 /* return 1 = loaded, 0 = not loaded, -1 = can't tell */
 536 static int already_loaded(const char *name)
 537 {
 538         int fd, ret = 0;
 539         char buffer[4096];
 540
 541         fd = open("/proc/modules", O_RDONLY);
 542         if (fd < 0)
 543                 return -1;
 544
 545         while (reads(fd, buffer, sizeof(buffer))) {
 546                 char *p;
 547
 548                 p = strchr (buffer, ' ');
 549                 if (p) {
 550                         const char *n;
 551
 552                         // Truncate buffer at first space and check for matches, with
 553                         // the idiosyncrasy that _ and - are interchangeable because the
 554                         // 2.6 kernel does weird things.
 555
 556                         *p = 0;
 557                         for (p = buffer, n = name; ; p++, n++) {
 558                                 if (*p != *n) {
 559                                         if ((*p == '_' || *p == '-') && (*n == '_' || *n == '-'))
 560                                                 continue;
 561                                         break;
 562                                 }
 563                                 // If we made it to the end, that's a match.
 564                                 if (!*p) {
 565                                         ret = 1;
 566                                         goto done;
 567                                 }
 568                         }
 569                 }
 570         }
 571 done:
 572         close (fd);
 573         return ret;
 574 }
 575
 576 static int mod_process(const struct mod_list_t *list, int do_insert)
 577 {
 578         int rc = 0;
 579         char **argv = NULL;
 580         struct mod_opt_t *opts;
 581         int argc_malloc; /* never used when CONFIG_FEATURE_CLEAN_UP not defined */
 582         int argc;
 583
 584         while (list) {
 585                 argc = 0;
 586                 if (ENABLE_FEATURE_CLEAN_UP)
 587                         argc_malloc = 0;
 588                 /* If CONFIG_FEATURE_CLEAN_UP is not defined, then we leak memory
 589                  * each time we allocate memory for argv.
 590                  * But it is (quite) small amounts of memory that leak each
 591                  * time a module is loaded,  and it is reclaimed when modprobe
 592                  * exits anyway (even when standalone shell?).
 593                  * This could become a problem when loading a module with LOTS of
 594                  * dependencies, with LOTS of options for each dependencies, with
 595                  * very little memory on the target... But in that case, the module
 596                  * would not load because there is no more memory, so there's no
 597                  * problem. */
 598                 /* enough for minimal insmod (5 args + NULL) or rmmod (3 args + NULL) */
 599                 argv = xmalloc(6 * sizeof(char*));
 600                 if (do_insert) {
 601                         if (already_loaded(list->m_name) != 1) {
 602                                 argv[argc++] = (char*)"insmod";
 603                                 if (ENABLE_FEATURE_2_4_MODULES) {
 604                                         if (do_syslog)
 605                                                 argv[argc++] = (char*)"-s";
 606                                         if (autoclean)
 607                                                 argv[argc++] = (char*)"-k";
 608                                         if (quiet)
 609                                                 argv[argc++] = (char*)"-q";
 610                                         else if (verbose) /* verbose and quiet are mutually exclusive */
 611                                                 argv[argc++] = (char*)"-v";
 612                                 }
 613                                 argv[argc++] = list->m_path;
 614                                 if (ENABLE_FEATURE_CLEAN_UP)
 615                                         argc_malloc = argc;
 616                                 opts = list->m_options;
 617                                 while (opts) {
 618                                         /* Add one more option */
 619                                         argc++;
 620                                         argv = xrealloc(argv,(argc + 1)* sizeof(char*));
 621                                         argv[argc-1] = opts->m_opt_val;
 622                                         opts = opts->m_next;
 623                                 }
 624                         }
 625                 } else {
 626                         /* modutils uses short name for removal */
 627                         if (already_loaded(list->m_name) != 0) {
 628                                 argv[argc++] = (char*)"rmmod";
 629                                 if (do_syslog)
 630                                         argv[argc++] = (char*)"-s";
 631                                 argv[argc++] = (char*)list->m_name;
 632                                 if (ENABLE_FEATURE_CLEAN_UP)
 633                                         argc_malloc = argc;
 634                         }
 635                 }
 636                 argv[argc] = NULL;
 637
 638                 if (argc) {
 639                         if (verbose) {
 640                                 printf("%s module %s\n", do_insert?"Loading":"Unloading", list->m_name);
 641                         }
 642                         if (!show_only) {
 643                                 int rc2 = wait4pid(spawn(argv));
 644
 645                                 if (do_insert) {
 646                                         rc = rc2; /* only last module matters */
 647                                 } else if (!rc2) {
 648                                         rc = 0; /* success if remove any mod */
 649                                 }
 650                         }
 651                         if (ENABLE_FEATURE_CLEAN_UP) {
 652                                 /* the last value in the array has index == argc, but
 653                                  * it is the terminating NULL, so we must not free it. */
 654                                 while (argc_malloc < argc) {
 655                                         free(argv[argc_malloc++]);
 656                                 }
 657                         }
 658                 }
 659                 if (ENABLE_FEATURE_CLEAN_UP) {
 660                         free(argv);
 661                         argv = NULL;
 662                 }
 663                 list = do_insert ? list->m_prev : list->m_next;
 664         }
 665         return (show_only) ? 0 : rc;
 666 }
 667
 668 /*
 669  * Check the matching between a pattern and a module name.
 670  * We need this as *_* is equivalent to *-*, even in pattern matching.
 671  */
 672 static int check_pattern(const char* pat_src, const char* mod_src) {
 673         int ret;
 674
 675         if (ENABLE_FEATURE_MODPROBE_FANCY_ALIAS) {
 676                 char* pat;
 677                 char* mod;
 678                 char* p;
 679
 680                 pat = xstrdup (pat_src);
 681                 mod = xstrdup (mod_src);
 682
 683                 for (p = pat; (p = strchr(p, '-')); *p++ = '_');
 684                 for (p = mod; (p = strchr(p, '-')); *p++ = '_');
 685
 686                 ret = fnmatch(pat, mod, 0);
 687
 688                 if (ENABLE_FEATURE_CLEAN_UP) {
 689                         free(pat);
 690                         free(mod);
 691                 }
 692
 693                 return ret;
 694         } else {
 695                 return fnmatch(pat_src, mod_src, 0);
 696         }
 697 }
 698
 699 /*
 700  * Builds the dependency list (aka stack) of a module.
 701  * head: the highest module in the stack (last to insmod, first to rmmod)
 702  * tail: the lowest module in the stack (first to insmod, last to rmmod)
 703  */
 704 static void check_dep(char *mod, struct mod_list_t **head, struct mod_list_t **tail)
 705 {
 706         struct mod_list_t *find;
 707         struct dep_t *dt;
 708         struct mod_opt_t *opt = 0;
 709         char *path = 0;
 710
 711         /* Search for the given module name amongst all dependency rules.
 712          * The module name in a dependency rule can be a shell pattern,
 713          * so try to match the given module name against such a pattern.
 714          * Of course if the name in the dependency rule is a plain string,
 715          * then we consider it a pattern, and matching will still work. */
 716         for (dt = depend; dt; dt = dt->m_next) {
 717                 if (check_pattern(dt->m_name, mod) == 0) {
 718                         break;
 719                 }
 720         }
 721
 722         if (!dt) {
 723                 bb_error_msg("module %s not found", mod);
 724                 return;
 725         }
 726
 727         // resolve alias names
 728         while (dt->m_isalias) {
 729                 if (dt->m_depcnt == 1) {
 730                         struct dep_t *adt;
 731
 732                         for (adt = depend; adt; adt = adt->m_next) {
 733                                 if (check_pattern(adt->m_name, dt->m_deparr[0]) == 0)
 734                                         break;
 735                         }
 736                         if (adt) {
 737                                 /* This is the module we are aliased to */
 738                                 struct mod_opt_t *opts = dt->m_options;
 739                                 /* Option of the alias are appended to the options of the module */
 740                                 while (opts) {
 741                                         adt->m_options = append_option(adt->m_options, opts->m_opt_val);
 742                                         opts = opts->m_next;
 743                                 }
 744                                 dt = adt;
 745                         } else {
 746                                 bb_error_msg("module %s not found", mod);
 747                                 return;
 748                         }
 749                 } else {
 750                         bb_error_msg("bad alias %s", dt->m_name);
 751                         return;
 752                 }
 753         }
 754
 755         mod = dt->m_name;
 756         path = dt->m_path;
 757         opt = dt->m_options;
 758
 759         // search for duplicates
 760         for (find = *head; find; find = find->m_next) {
 761                 if (!strcmp(mod, find->m_name)) {
 762                         // found ->dequeue it
 763
 764                         if (find->m_prev)
 765                                 find->m_prev->m_next = find->m_next;
 766                         else
 767                                 *head = find->m_next;
 768
 769                         if (find->m_next)
 770                                 find->m_next->m_prev = find->m_prev;
 771                         else
 772                                 *tail = find->m_prev;
 773
 774                         break; // there can be only one duplicate
 775                 }
 776         }
 777
 778         if (!find) { // did not find a duplicate
 779                 find = xmalloc(sizeof(struct mod_list_t));
 780                 find->m_name = mod;
 781                 find->m_path = path;
 782                 find->m_options = opt;
 783         }
 784
 785         // enqueue at tail
 786         if (*tail)
 787                 (*tail)->m_next = find;
 788         find->m_prev = *tail;
 789         find->m_next = 0;
 790
 791         if (!*head)
 792                 *head = find;
 793         *tail = find;
 794
 795         if (dt) {
 796                 int i;
 797
 798                 /* Add all dependable module for that new module */
 799                 for (i = 0; i < dt->m_depcnt; i++)
 800                         check_dep(dt->m_deparr[i], head, tail);
 801         }
 802 }
 803
 804 static int mod_insert(char *mod, int argc, char **argv)
 805 {
 806         struct mod_list_t *tail = NULL;
 807         struct mod_list_t *head = NULL;
 808         int rc;
 809
 810         // get dep list for module mod
 811         check_dep(mod, &head, &tail);
 812
 813         rc = 1;
 814         if (head && tail) {
 815                 if (argc) {
 816                         int i;
 817                         // append module args
 818                         for (i = 0; i < argc; i++)
 819                                 head->m_options = append_option(head->m_options, argv[i]);
 820                 }
 821
 822                 // process tail ---> head
 823                 rc = mod_process(tail, 1);
 824                 if (rc) {
 825                         /*
 826                          * In case of using udev, multiple instances of modprobe can be
 827                          * spawned to load the same module (think of two same usb devices,
 828                          * for example; or cold-plugging at boot time). Thus we shouldn't
 829                          * fail if the module was loaded, and not by us.
 830                          */
 831                         if (already_loaded(mod))
 832                                 rc = 0;
 833                 }
 834         }
 835         return rc;
 836 }
 837
 838 static int mod_remove(char *mod)
 839 {
 840         int rc;
 841         static const struct mod_list_t rm_a_dummy = { "-a", NULL, NULL, NULL, NULL };
 842
 843         struct mod_list_t *head = NULL;
 844         struct mod_list_t *tail = NULL;
 845
 846         if (mod)
 847                 check_dep(mod, &head, &tail);
 848         else  // autoclean
 849                 head = tail = (struct mod_list_t*) &rm_a_dummy;
 850
 851         rc = 1;
 852         if (head && tail)
 853                 rc = mod_process(head, 0);  // process head ---> tail
 854         return rc;
 855 }
 856
 857 int modprobe_main(int argc, char** argv);
 858 int modprobe_main(int argc, char** argv)
 859 {
 860         int rc = EXIT_SUCCESS;
 861         char *unused;
 862
 863         opt_complementary = "?V-:q-v:v-q";
 864         main_opts = getopt32(argc, argv, "acdklnqrst:vVC:",
 865                                                         &unused, &unused);
 866         if (main_opts & (DUMP_CONF_EXIT | LIST_ALL))
 867                 return EXIT_SUCCESS;
 868         if (main_opts & (RESTRICT_DIR | CONFIG_FILE))
 869                 bb_error_msg_and_die("-t and -C not supported");
 870
 871         depend = build_dep();
 872
 873         if (!depend)
 874                 bb_error_msg_and_die("cannot parse modules.dep");
 875
 876         if (remove_opt) {
 877                 do {
 878                         if (mod_remove(optind < argc ?
 879                                                 argv[optind] : NULL)) {
 880                                 bb_error_msg("failed to remove module %s",
 881                                                 argv[optind]);
 882                                 rc = EXIT_FAILURE;
 883                         }
 884                 } while (++optind < argc);
 885         } else {
 886                 if (optind >= argc)
 887                         bb_error_msg_and_die("no module or pattern provided");
 888
 889                 if (mod_insert(argv[optind], argc - optind - 1, argv + optind + 1))
 890                         bb_error_msg_and_die("failed to load module %s", argv[optind]);
 891         }
 892
 893         /* Here would be a good place to free up memory allocated during the dependencies build. */
 894
 895         return rc;
 896 }