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