e2fsck/util.c

   1 /*
   2  * util.c --- miscellaneous utilities
   3  *
   4  * Copyright (C) 1993, 1994, 1995, 1996, 1997 Theodore Ts'o.
   5  *
   6  * %Begin-Header%
   7  * This file may be redistributed under the terms of the GNU Public
   8  * License.
   9  * %End-Header%
  10  */
  11
  12 #include "config.h"
  13 #include <stdlib.h>
  14 #include <assert.h>
  15 #include <stdio.h>
  16 #include <unistd.h>
  17 #include <string.h>
  18 #include <ctype.h>
  19 #ifdef __linux__
  20 #include <sys/utsname.h>
  21 #endif
  22
  23 #ifdef HAVE_CONIO_H
  24 #undef HAVE_TERMIOS_H
  25 #include <conio.h>
  26 #define read_a_char()   getch()
  27 #else
  28 #ifdef HAVE_TERMIOS_H
  29 #include <termios.h>
  30 #endif
  31 #endif
  32
  33 #ifdef HAVE_MALLOC_H
  34 #include <malloc.h>
  35 #endif
  36
  37 #ifdef HAVE_ERRNO_H
  38 #include <errno.h>
  39 #endif
  40
  41 #ifdef HAVE_PTHREAD
  42 #include <pthread.h>
  43 #endif
  44
  45 #include "e2fsck.h"
  46
  47 extern e2fsck_t e2fsck_global_ctx;   /* Try your very best not to use this! */
  48
  49 #include <stdarg.h>
  50 #include <time.h>
  51 #include <sys/time.h>
  52 #include <sys/resource.h>
  53
  54 void fatal_error(e2fsck_t ctx, const char *msg)
  55 {
  56         ext2_filsys fs = ctx->fs;
  57         int exit_value = FSCK_ERROR;
  58
  59         if (msg)
  60                 fprintf (stderr, "e2fsck: %s\n", msg);
  61         if (!fs)
  62                 goto out;
  63         if (fs->io && fs->super) {
  64                 ext2fs_mmp_stop(ctx->fs);
  65                 if (ctx->fs->io->magic == EXT2_ET_MAGIC_IO_CHANNEL)
  66                         io_channel_flush(ctx->fs->io);
  67                 else
  68                         log_err(ctx, "e2fsck: io manager magic bad!\n");
  69         }
  70         if (ext2fs_test_changed(fs)) {
  71                 exit_value |= FSCK_NONDESTRUCT;
  72                 log_out(ctx, _("\n%s: ***** FILE SYSTEM WAS MODIFIED *****\n"),
  73                         ctx->device_name);
  74                 if (ctx->mount_flags & EXT2_MF_ISROOT)
  75                         exit_value |= FSCK_REBOOT;
  76         }
  77         if (!ext2fs_test_valid(fs)) {
  78                 log_out(ctx, _("\n%s: ********** WARNING: Filesystem still has "
  79                                "errors **********\n\n"), ctx->device_name);
  80                 exit_value |= FSCK_UNCORRECTED;
  81                 exit_value &= ~FSCK_NONDESTRUCT;
  82         }
  83 out:
  84         ctx->flags |= E2F_FLAG_ABORT;
  85         if (!(ctx->options & E2F_OPT_MULTITHREAD) &&
  86             ctx->flags & E2F_FLAG_SETJMP_OK)
  87                 longjmp(ctx->abort_loc, 1);
  88         if (ctx->logf)
  89                 fprintf(ctx->logf, "Exit status: %d\n", exit_value);
  90         exit(exit_value);
  91 }
  92
  93 #ifdef HAVE_PTHREAD
  94 static void thread_log_out(struct e2fsck_thread *tinfo)
  95 {
  96         printf("[Thread %d] %s", tinfo->et_thread_index,
  97                tinfo->et_log_buf);
  98         tinfo->et_log_length = 0;
  99         tinfo->et_log_buf[0] = '\0';
 100 }
 101 #endif
 102
 103 void log_out(e2fsck_t ctx, const char *fmt, ...)
 104 {
 105         va_list pvar;
 106         struct e2fsck_thread *tinfo;
 107         int buf_size;
 108         int msg_size;
 109         int left_size;
 110
 111 #ifdef HAVE_PTHREAD
 112         if ((ctx->options & E2F_OPT_MULTITHREAD) && ctx->global_ctx) {
 113                 tinfo = &ctx->thread_info;
 114                 buf_size = sizeof(tinfo->et_log_buf);
 115                 left_size = buf_size - tinfo->et_log_length;
 116
 117                 va_start(pvar, fmt);
 118                 msg_size = vsnprintf(tinfo->et_log_buf + tinfo->et_log_length,
 119                                      left_size, fmt, pvar);
 120                 va_end(pvar);
 121
 122                 if (msg_size >= left_size) {
 123                         tinfo->et_log_buf[tinfo->et_log_length] = '\0';
 124
 125                         assert(msg_size < buf_size);
 126                         if (msg_size < buf_size) {
 127                                 thread_log_out(tinfo);
 128
 129                                 va_start(pvar, fmt);
 130                                 msg_size = vsnprintf(tinfo->et_log_buf, buf_size,
 131                                                      fmt, pvar);
 132                                 va_end(pvar);
 133
 134                                 tinfo->et_log_length += msg_size;
 135                                 tinfo->et_log_buf[tinfo->et_log_length] = '\0';
 136                         }
 137                 } else {
 138                         tinfo->et_log_length += msg_size;
 139                         tinfo->et_log_buf[tinfo->et_log_length] = '\0';
 140                 }
 141
 142                 if (tinfo->et_log_length > 0 &&
 143                     tinfo->et_log_buf[tinfo->et_log_length - 1] == '\n')
 144                         thread_log_out(tinfo);
 145         } else
 146 #endif
 147         {
 148                 va_start(pvar, fmt);
 149                 vprintf(fmt, pvar);
 150                 va_end(pvar);
 151         }
 152
 153         if (ctx->logf) {
 154                 va_start(pvar, fmt);
 155                 vfprintf(ctx->logf, fmt, pvar);
 156                 va_end(pvar);
 157         }
 158 }
 159
 160 void log_err(e2fsck_t ctx, const char *fmt, ...)
 161 {
 162         va_list pvar;
 163
 164         va_start(pvar, fmt);
 165         vfprintf(stderr, fmt, pvar);
 166         va_end(pvar);
 167         if (ctx->logf) {
 168                 va_start(pvar, fmt);
 169                 vfprintf(ctx->logf, fmt, pvar);
 170                 va_end(pvar);
 171         }
 172 }
 173
 174 void *e2fsck_allocate_memory(e2fsck_t ctx, unsigned long size,
 175                              const char *description)
 176 {
 177         void *ret;
 178         char buf[256];
 179
 180 #ifdef DEBUG_ALLOCATE_MEMORY
 181         printf("Allocating %lu bytes for %s...\n", size, description);
 182 #endif
 183         if (ext2fs_get_memzero(size, &ret)) {
 184                 sprintf(buf, "Can't allocate %lu bytes for %s\n",
 185                         size, description);
 186                 fatal_error(ctx, buf);
 187         }
 188
 189         return ret;
 190 }
 191
 192 char *string_copy(e2fsck_t ctx EXT2FS_ATTR((unused)),
 193                   const char *str, size_t len)
 194 {
 195         char    *ret;
 196
 197         if (!str)
 198                 return NULL;
 199         if (!len)
 200                 len = strlen(str);
 201         ret = malloc(len+1);
 202         if (ret) {
 203                 strncpy(ret, str, len);
 204                 ret[len] = 0;
 205         }
 206         return ret;
 207 }
 208
 209 #ifndef HAVE_STRNLEN
 210 /*
 211  * Incredibly, libc5 doesn't appear to have strnlen.  So we have to
 212  * provide our own.
 213  */
 214 int e2fsck_strnlen(const char * s, int count)
 215 {
 216         const char *cp = s;
 217
 218         while (count-- && *cp)
 219                 cp++;
 220         return cp - s;
 221 }
 222 #endif
 223
 224 #ifndef HAVE_CONIO_H
 225 static int read_a_char(void)
 226 {
 227         char    c;
 228         int     r;
 229         int     fail = 0;
 230
 231         while(1) {
 232                 if (e2fsck_global_ctx &&
 233                     (e2fsck_global_ctx->flags & E2F_FLAG_CANCEL)) {
 234                         return 3;
 235                 }
 236                 r = read(0, &c, 1);
 237                 if (r == 1)
 238                         return c;
 239                 if (fail++ > 100)
 240                         break;
 241         }
 242         return EOF;
 243 }
 244 #endif
 245
 246 int ask_yn(e2fsck_t ctx, const char * string, int def)
 247 {
 248         int             c;
 249         const char      *defstr;
 250         const char      *short_yes = _("yY");
 251         const char      *short_no = _("nN");
 252         const char      *short_yesall = _("aA");
 253         const char      *english_yes = "yY";
 254         const char      *english_no = "nN";
 255         const char      *english_yesall = "aA";
 256         const char      *yesall_prompt = _(" ('a' enables 'yes' to all) ");
 257         const char      *extra_prompt = "";
 258         static int      yes_answers;
 259
 260 #ifdef HAVE_TERMIOS_H
 261         struct termios  termios, tmp;
 262
 263         if (tcgetattr (0, &termios) < 0)
 264                 memset(&termios, 0, sizeof(termios));
 265         tmp = termios;
 266         tmp.c_lflag &= ~(ICANON | ECHO);
 267         tmp.c_cc[VMIN] = 1;
 268         tmp.c_cc[VTIME] = 0;
 269         tcsetattr (0, TCSANOW, &tmp);
 270 #endif
 271
 272         if (def == 1)
 273                 defstr = _(_("<y>"));
 274         else if (def == 0)
 275                 defstr = _(_("<n>"));
 276         else
 277                 defstr = _(" (y/n)");
 278         /*
 279          * If the user presses 'y' more than 8 (but less than 12) times in
 280          * succession without pressing anything else, display a hint about
 281          * yes-to-all mode.
 282          */
 283         if (yes_answers > 12)
 284                 yes_answers = -1;
 285         else if (yes_answers > 8)
 286                 extra_prompt = yesall_prompt;
 287         log_out(ctx, "%s%s%s? ", string, extra_prompt, defstr);
 288         while (1) {
 289                 fflush (stdout);
 290                 if ((c = read_a_char()) == EOF)
 291                         break;
 292                 if (c == 3) {
 293 #ifdef HAVE_TERMIOS_H
 294                         tcsetattr (0, TCSANOW, &termios);
 295 #endif
 296                         if (ctx->flags & E2F_FLAG_SETJMP_OK) {
 297                                 log_out(ctx, "\n");
 298                                 longjmp(e2fsck_global_ctx->abort_loc, 1);
 299                         }
 300                         log_out(ctx, "%s", _("cancelled!\n"));
 301                         yes_answers = 0;
 302                         return 0;
 303                 }
 304                 if (strchr(short_yes, (char) c)) {
 305                 do_yes:
 306                         def = 1;
 307                         if (yes_answers >= 0)
 308                                 yes_answers++;
 309                         break;
 310                 } else if (strchr(short_no, (char) c)) {
 311                 do_no:
 312                         def = 0;
 313                         yes_answers = -1;
 314                         break;
 315                 } else if (strchr(short_yesall, (char)c)) {
 316                 do_all:
 317                         def = 2;
 318                         yes_answers = -1;
 319                         ctx->options |= E2F_OPT_YES;
 320                         break;
 321                 } else if (strchr(english_yes, (char) c)) {
 322                         goto do_yes;
 323                 } else if (strchr(english_no, (char) c)) {
 324                         goto do_no;
 325                 } else if (strchr(english_yesall, (char) c)) {
 326                         goto do_all;
 327                 } else if ((c == 27 || c == ' ' || c == '\n') && (def != -1)) {
 328                         yes_answers = -1;
 329                         break;
 330                 }
 331         }
 332         if (def == 2)
 333                 log_out(ctx, "%s", _("yes to all\n"));
 334         else if (def)
 335                 log_out(ctx, "%s", _("yes\n"));
 336         else
 337                 log_out(ctx, "%s", _("no\n"));
 338 #ifdef HAVE_TERMIOS_H
 339         tcsetattr (0, TCSANOW, &termios);
 340 #endif
 341         return def;
 342 }
 343
 344 int ask (e2fsck_t ctx, const char * string, int def)
 345 {
 346         if (ctx->options & E2F_OPT_NO) {
 347                 log_out(ctx, _("%s? no\n\n"), string);
 348                 return 0;
 349         }
 350         if (ctx->options & E2F_OPT_YES) {
 351                 log_out(ctx, _("%s? yes\n\n"), string);
 352                 return 1;
 353         }
 354         if (ctx->options & E2F_OPT_PREEN) {
 355                 log_out(ctx, "%s? %s\n\n", string, def ? _("yes") : _("no"));
 356                 return def;
 357         }
 358         return ask_yn(ctx, string, def);
 359 }
 360
 361 void e2fsck_read_bitmaps(e2fsck_t ctx)
 362 {
 363         ext2_filsys fs = ctx->fs;
 364         errcode_t       retval;
 365         const char      *old_op;
 366         unsigned int    save_type;
 367         int             flags;
 368
 369         if (ctx->invalid_bitmaps) {
 370                 com_err(ctx->program_name, 0,
 371                     _("e2fsck_read_bitmaps: illegal bitmap block(s) for %s"),
 372                         ctx->device_name);
 373                 fatal_error(ctx, 0);
 374         }
 375
 376         old_op = ehandler_operation(_("reading inode and block bitmaps"));
 377         e2fsck_set_bitmap_type(fs, EXT2FS_BMAP64_RBTREE, "fs_bitmaps",
 378                                &save_type);
 379         flags = ctx->fs->flags;
 380         ctx->fs->flags |= EXT2_FLAG_IGNORE_CSUM_ERRORS;
 381         retval = ext2fs_read_bitmaps(fs);
 382         ctx->fs->flags = (flags & EXT2_FLAG_IGNORE_CSUM_ERRORS) |
 383                          (ctx->fs->flags & ~EXT2_FLAG_IGNORE_CSUM_ERRORS);
 384         fs->default_bitmap_type = save_type;
 385         ehandler_operation(old_op);
 386         if (retval) {
 387                 com_err(ctx->program_name, retval,
 388                         _("while retrying to read bitmaps for %s"),
 389                         ctx->device_name);
 390                 fatal_error(ctx, 0);
 391         }
 392 }
 393
 394 void e2fsck_write_bitmaps(e2fsck_t ctx)
 395 {
 396         ext2_filsys fs = ctx->fs;
 397         errcode_t       retval;
 398         const char      *old_op;
 399
 400         old_op = ehandler_operation(_("writing block and inode bitmaps"));
 401         retval = ext2fs_write_bitmaps(fs);
 402         ehandler_operation(old_op);
 403         if (retval) {
 404                 com_err(ctx->program_name, retval,
 405                         _("while rewriting block and inode bitmaps for %s"),
 406                         ctx->device_name);
 407                 fatal_error(ctx, 0);
 408         }
 409 }
 410
 411 void preenhalt(e2fsck_t ctx)
 412 {
 413         ext2_filsys fs = ctx->fs;
 414
 415         if (!(ctx->options & E2F_OPT_PREEN))
 416                 return;
 417         log_err(ctx, _("\n\n%s: UNEXPECTED INCONSISTENCY; "
 418                 "RUN fsck MANUALLY.\n\t(i.e., without -a or -p options)\n"),
 419                ctx->device_name);
 420         ctx->flags |= E2F_FLAG_EXITING;
 421         if (fs != NULL) {
 422                 fs->super->s_state |= EXT2_ERROR_FS;
 423                 ext2fs_mark_super_dirty(fs);
 424                 ext2fs_close_free(&fs);
 425         }
 426         exit(FSCK_UNCORRECTED);
 427 }
 428
 429 #ifdef RESOURCE_TRACK
 430 void init_resource_track(struct resource_track *track, io_channel channel)
 431 {
 432 #ifdef HAVE_GETRUSAGE
 433         struct rusage r;
 434 #endif
 435         io_stats io_start = 0;
 436
 437         track->brk_start = sbrk(0);
 438         gettimeofday(&track->time_start, 0);
 439 #ifdef HAVE_GETRUSAGE
 440 #ifdef sun
 441         memset(&r, 0, sizeof(struct rusage));
 442 #endif
 443         getrusage(RUSAGE_SELF, &r);
 444         track->user_start = r.ru_utime;
 445         track->system_start = r.ru_stime;
 446 #else
 447         track->user_start.tv_sec = track->user_start.tv_usec = 0;
 448         track->system_start.tv_sec = track->system_start.tv_usec = 0;
 449 #endif
 450         track->bytes_read = 0;
 451         track->bytes_written = 0;
 452         if (channel && channel->manager && channel->manager->get_stats)
 453                 channel->manager->get_stats(channel, &io_start);
 454         if (io_start) {
 455                 track->bytes_read = io_start->bytes_read;
 456                 track->bytes_written = io_start->bytes_written;
 457         }
 458 }
 459
 460 #ifdef __GNUC__
 461 #define _INLINE_ __inline__
 462 #else
 463 #define _INLINE_
 464 #endif
 465
 466 static _INLINE_ float timeval_subtract(struct timeval *tv1,
 467                                        struct timeval *tv2)
 468 {
 469         return ((tv1->tv_sec - tv2->tv_sec) +
 470                 ((float) (tv1->tv_usec - tv2->tv_usec)) / 1000000);
 471 }
 472
 473 void print_resource_track(e2fsck_t ctx, const char *desc,
 474                           struct resource_track *track, io_channel channel)
 475 {
 476 #ifdef HAVE_GETRUSAGE
 477         struct rusage r;
 478 #endif
 479         struct timeval time_end;
 480
 481         if ((desc && !(ctx->options & E2F_OPT_TIME2)) ||
 482             (!desc && !(ctx->options & E2F_OPT_TIME)))
 483                 return;
 484
 485         e2fsck_clear_progbar(ctx);
 486         gettimeofday(&time_end, 0);
 487
 488         if (desc)
 489                 log_out(ctx, "%s: ", desc);
 490
 491 #define kbytes(x)       (((unsigned long long)(x) + 1023) / 1024)
 492 #ifdef HAVE_MALLINFO
 493         /* don't use mallinfo() if over 2GB used, since it returns "int" */
 494         if ((char *)sbrk(0) - (char *)track->brk_start < 2LL << 30) {
 495                 struct mallinfo malloc_info = mallinfo();
 496
 497                 log_out(ctx, _("Memory used: %lluk/%lluk (%lluk/%lluk), "),
 498                         kbytes(malloc_info.arena), kbytes(malloc_info.hblkhd),
 499                         kbytes(malloc_info.uordblks),
 500                         kbytes(malloc_info.fordblks));
 501         } else
 502 #endif
 503         log_out(ctx, _("Memory used: %lluk, "),
 504                 kbytes(((char *)sbrk(0)) - ((char *)track->brk_start)));
 505
 506 #ifdef HAVE_GETRUSAGE
 507         getrusage(RUSAGE_SELF, &r);
 508
 509         log_out(ctx, _("time: %5.2f/%5.2f/%5.2f\n"),
 510                 timeval_subtract(&time_end, &track->time_start),
 511                 timeval_subtract(&r.ru_utime, &track->user_start),
 512                 timeval_subtract(&r.ru_stime, &track->system_start));
 513 #else
 514         log_out(ctx, _("elapsed time: %6.3f\n"),
 515                 timeval_subtract(&time_end, &track->time_start));
 516 #endif
 517 #define mbytes(x)       (((x) + 1048575) / 1048576)
 518         if (channel && channel->manager && channel->manager->get_stats) {
 519                 io_stats delta = 0;
 520                 unsigned long long bytes_read = 0;
 521                 unsigned long long bytes_written = 0;
 522
 523                 if (desc)
 524                         log_out(ctx, "%s: ", desc);
 525
 526                 channel->manager->get_stats(channel, &delta);
 527                 if (delta) {
 528                         bytes_read = delta->bytes_read - track->bytes_read;
 529                         bytes_written = delta->bytes_written -
 530                                 track->bytes_written;
 531                 }
 532                 log_out(ctx, "I/O read: %lluMB, write: %lluMB, "
 533                         "rate: %.2fMB/s\n",
 534                         mbytes(bytes_read), mbytes(bytes_written),
 535                         (double)mbytes(bytes_read + bytes_written) /
 536                         timeval_subtract(&time_end, &track->time_start));
 537         }
 538 }
 539 #endif /* RESOURCE_TRACK */
 540
 541 void e2fsck_read_inode(e2fsck_t ctx, unsigned long ino,
 542                               struct ext2_inode * inode, const char *proc)
 543 {
 544         errcode_t retval;
 545
 546         retval = ext2fs_read_inode(ctx->fs, ino, inode);
 547         if (retval) {
 548                 com_err("ext2fs_read_inode", retval,
 549                         _("while reading inode %lu in %s"), ino, proc);
 550                 fatal_error(ctx, 0);
 551         }
 552 }
 553
 554 void e2fsck_read_inode_full(e2fsck_t ctx, unsigned long ino,
 555                             struct ext2_inode *inode, int bufsize,
 556                             const char *proc)
 557 {
 558         errcode_t retval;
 559
 560         retval = ext2fs_read_inode_full(ctx->fs, ino, inode, bufsize);
 561         if (retval) {
 562                 com_err("ext2fs_read_inode_full", retval,
 563                         _("while reading inode %lu in %s"), ino, proc);
 564                 fatal_error(ctx, 0);
 565         }
 566 }
 567
 568 #ifdef HAVE_PTHREAD
 569 #define e2fsck_get_lock_context(ctx)            \
 570         e2fsck_t global_ctx = ctx->global_ctx;  \
 571         if (!global_ctx)                        \
 572                 global_ctx = ctx;               \
 573
 574 /**
 575  * before we hold write lock, read lock should
 576  * has been held.
 577  */
 578 void e2fsck_pass1_fix_lock(e2fsck_t ctx)
 579 {
 580         int err;
 581
 582         if (!ctx->fs_need_locking)
 583                 return;
 584
 585         e2fsck_get_lock_context(ctx);
 586         err = pthread_rwlock_trywrlock(&global_ctx->fs_fix_rwlock);
 587         assert(err != 0);
 588         pthread_rwlock_unlock(&global_ctx->fs_fix_rwlock);
 589         pthread_rwlock_wrlock(&global_ctx->fs_fix_rwlock);
 590 }
 591
 592 void e2fsck_pass1_fix_unlock(e2fsck_t ctx)
 593 {
 594         if (!ctx->fs_need_locking)
 595                 return;
 596         e2fsck_get_lock_context(ctx);
 597         /* unlock write lock */
 598         pthread_rwlock_unlock(&global_ctx->fs_fix_rwlock);
 599         /* get read lock again */
 600         pthread_rwlock_rdlock(&global_ctx->fs_fix_rwlock);
 601 }
 602
 603 void e2fsck_pass1_check_lock(e2fsck_t ctx)
 604 {
 605         if (!ctx->fs_need_locking)
 606                 return;
 607         e2fsck_get_lock_context(ctx);
 608         pthread_rwlock_rdlock(&global_ctx->fs_fix_rwlock);
 609 }
 610
 611 void e2fsck_pass1_check_unlock(e2fsck_t ctx)
 612 {
 613         if (!ctx->fs_need_locking)
 614                 return;
 615         e2fsck_get_lock_context(ctx);
 616         pthread_rwlock_unlock(&global_ctx->fs_fix_rwlock);
 617 }
 618
 619 void e2fsck_pass1_block_map_w_lock(e2fsck_t ctx)
 620 {
 621         if (!ctx->fs_need_locking)
 622                 return;
 623         e2fsck_get_lock_context(ctx);
 624         pthread_rwlock_wrlock(&global_ctx->fs_block_map_rwlock);
 625 }
 626
 627 void e2fsck_pass1_block_map_w_unlock(e2fsck_t ctx)
 628 {
 629         if (!ctx->fs_need_locking)
 630                 return;
 631         e2fsck_get_lock_context(ctx);
 632         pthread_rwlock_unlock(&global_ctx->fs_block_map_rwlock);
 633 }
 634
 635 void e2fsck_pass1_block_map_r_lock(e2fsck_t ctx)
 636 {
 637         if (!ctx->fs_need_locking)
 638                 return;
 639         e2fsck_get_lock_context(ctx);
 640         pthread_rwlock_rdlock(&global_ctx->fs_block_map_rwlock);
 641 }
 642
 643 void e2fsck_pass1_block_map_r_unlock(e2fsck_t ctx)
 644 {
 645         if (!ctx->fs_need_locking)
 646                 return;
 647         e2fsck_get_lock_context(ctx);
 648         pthread_rwlock_unlock(&global_ctx->fs_block_map_rwlock);
 649  }
 650 #else
 651 void e2fsck_pass1_fix_lock(e2fsck_t ctx)
 652 {
 653
 654 }
 655
 656 void e2fsck_pass1_fix_unlock(e2fsck_t ctx)
 657 {
 658
 659 }
 660 void e2fsck_pass1_check_lock(e2fsck_t ctx)
 661 {
 662
 663 }
 664 void e2fsck_pass1_check_unlock(e2fsck_t ctx)
 665 {
 666
 667 }
 668 void e2fsck_pass1_block_map_w_lock(e2fsck_t ctx)
 669 {
 670
 671 }
 672
 673 void e2fsck_pass1_block_map_w_unlock(e2fsck_t ctx)
 674 {
 675
 676 }
 677
 678 void e2fsck_pass1_block_map_r_lock(e2fsck_t ctx)
 679 {
 680
 681 }
 682
 683 void e2fsck_pass1_block_map_r_unlock(e2fsck_t ctx)
 684 {
 685
 686 }
 687 #endif
 688
 689 void e2fsck_write_inode_full(e2fsck_t ctx, unsigned long ino,
 690                              struct ext2_inode * inode, int bufsize,
 691                              const char *proc)
 692 {
 693         errcode_t retval;
 694
 695         e2fsck_pass1_fix_lock(ctx);
 696         retval = ext2fs_write_inode_full(ctx->fs, ino, inode, bufsize);
 697         e2fsck_pass1_fix_unlock(ctx);
 698         if (retval) {
 699                 com_err("ext2fs_write_inode", retval,
 700                         _("while writing inode %lu in %s"), ino, proc);
 701                 fatal_error(ctx, 0);
 702         }
 703 }
 704
 705 void e2fsck_write_inode(e2fsck_t ctx, unsigned long ino,
 706                         struct ext2_inode * inode, const char *proc)
 707 {
 708         errcode_t retval;
 709
 710         e2fsck_pass1_fix_lock(ctx);
 711         retval = ext2fs_write_inode(ctx->fs, ino, inode);
 712         e2fsck_pass1_fix_unlock(ctx);
 713         if (retval) {
 714                 com_err("ext2fs_write_inode", retval,
 715                         _("while writing inode %lu in %s"), ino, proc);
 716                 fatal_error(ctx, 0);
 717         }
 718 }
 719
 720 #ifdef MTRACE
 721 void mtrace_print(char *mesg)
 722 {
 723         FILE    *malloc_get_mallstream();
 724         FILE    *f = malloc_get_mallstream();
 725
 726         if (f)
 727                 fprintf(f, "============= %s\n", mesg);
 728 }
 729 #endif
 730
 731 blk64_t get_backup_sb(e2fsck_t ctx, ext2_filsys fs, const char *name,
 732                       io_manager manager)
 733 {
 734         struct ext2_super_block *sb;
 735         io_channel              io = NULL;
 736         void                    *buf = NULL;
 737         int                     blocksize;
 738         blk64_t                 superblock, ret_sb = 8193;
 739
 740         if (fs && fs->super) {
 741                 ret_sb = (fs->super->s_blocks_per_group +
 742                           fs->super->s_first_data_block);
 743                 if (ctx) {
 744                         ctx->superblock = ret_sb;
 745                         ctx->blocksize = fs->blocksize;
 746                 }
 747                 return ret_sb;
 748         }
 749
 750         if (ctx) {
 751                 if (ctx->blocksize) {
 752                         ret_sb = ctx->blocksize * 8;
 753                         if (ctx->blocksize == 1024)
 754                                 ret_sb++;
 755                         ctx->superblock = ret_sb;
 756                         return ret_sb;
 757                 }
 758                 ctx->superblock = ret_sb;
 759                 ctx->blocksize = 1024;
 760         }
 761
 762         if (!name || !manager)
 763                 goto cleanup;
 764
 765         if (manager->open(name, 0, &io) != 0)
 766                 goto cleanup;
 767
 768         if (ext2fs_get_mem(SUPERBLOCK_SIZE, &buf))
 769                 goto cleanup;
 770         sb = (struct ext2_super_block *) buf;
 771
 772         for (blocksize = EXT2_MIN_BLOCK_SIZE;
 773              blocksize <= EXT2_MAX_BLOCK_SIZE ; blocksize *= 2) {
 774                 superblock = blocksize*8;
 775                 if (blocksize == 1024)
 776                         superblock++;
 777                 io_channel_set_blksize(io, blocksize);
 778                 if (io_channel_read_blk64(io, superblock,
 779                                         -SUPERBLOCK_SIZE, buf))
 780                         continue;
 781 #ifdef WORDS_BIGENDIAN
 782                 if (sb->s_magic == ext2fs_swab16(EXT2_SUPER_MAGIC))
 783                         ext2fs_swap_super(sb);
 784 #endif
 785                 if ((sb->s_magic == EXT2_SUPER_MAGIC) &&
 786                     (EXT2_BLOCK_SIZE(sb) == blocksize)) {
 787                         ret_sb = superblock;
 788                         if (ctx) {
 789                                 ctx->superblock = superblock;
 790                                 ctx->blocksize = blocksize;
 791                         }
 792                         break;
 793                 }
 794         }
 795
 796 cleanup:
 797         if (io)
 798                 io_channel_close(io);
 799         if (buf)
 800                 ext2fs_free_mem(&buf);
 801         return (ret_sb);
 802 }
 803
 804 /*
 805  * Given a mode, return the ext2 file type
 806  */
 807 int ext2_file_type(unsigned int mode)
 808 {
 809         if (LINUX_S_ISREG(mode))
 810                 return EXT2_FT_REG_FILE;
 811
 812         if (LINUX_S_ISDIR(mode))
 813                 return EXT2_FT_DIR;
 814
 815         if (LINUX_S_ISCHR(mode))
 816                 return EXT2_FT_CHRDEV;
 817
 818         if (LINUX_S_ISBLK(mode))
 819                 return EXT2_FT_BLKDEV;
 820
 821         if (LINUX_S_ISLNK(mode))
 822                 return EXT2_FT_SYMLINK;
 823
 824         if (LINUX_S_ISFIFO(mode))
 825                 return EXT2_FT_FIFO;
 826
 827         if (LINUX_S_ISSOCK(mode))
 828                 return EXT2_FT_SOCK;
 829
 830         return 0;
 831 }
 832
 833 /*
 834  * Check to see if a filesystem is in /proc/filesystems.
 835  * Returns 1 if found, 0 if not
 836  */
 837 int fs_proc_check(const char *fs_name)
 838 {
 839         FILE    *f;
 840         char    buf[80], *cp, *t;
 841
 842         f = fopen("/proc/filesystems", "r");
 843         if (!f)
 844                 return (0);
 845         while (!feof(f)) {
 846                 if (!fgets(buf, sizeof(buf), f))
 847                         break;
 848                 cp = buf;
 849                 if (!isspace(*cp)) {
 850                         while (*cp && !isspace(*cp))
 851                                 cp++;
 852                 }
 853                 while (*cp && isspace(*cp))
 854                         cp++;
 855                 if ((t = strchr(cp, '\n')) != NULL)
 856                         *t = 0;
 857                 if ((t = strchr(cp, '\t')) != NULL)
 858                         *t = 0;
 859                 if ((t = strchr(cp, ' ')) != NULL)
 860                         *t = 0;
 861                 if (!strcmp(fs_name, cp)) {
 862                         fclose(f);
 863                         return (1);
 864                 }
 865         }
 866         fclose(f);
 867         return (0);
 868 }
 869
 870 /*
 871  * Check to see if a filesystem is available as a module
 872  * Returns 1 if found, 0 if not
 873  */
 874 int check_for_modules(const char *fs_name)
 875 {
 876 #ifdef __linux__
 877         struct utsname  uts;
 878         FILE            *f;
 879         char            buf[1024], *cp, *t;
 880         int             i;
 881
 882         if (uname(&uts))
 883                 return (0);
 884         snprintf(buf, sizeof(buf), "/lib/modules/%s/modules.dep", uts.release);
 885
 886         f = fopen(buf, "r");
 887         if (!f)
 888                 return (0);
 889         while (!feof(f)) {
 890                 if (!fgets(buf, sizeof(buf), f))
 891                         break;
 892                 if ((cp = strchr(buf, ':')) != NULL)
 893                         *cp = 0;
 894                 else
 895                         continue;
 896                 if ((cp = strrchr(buf, '/')) != NULL)
 897                         cp++;
 898                 else
 899                         cp = buf;
 900                 i = strlen(cp);
 901                 if (i > 3) {
 902                         t = cp + i - 3;
 903                         if (!strcmp(t, ".ko"))
 904                                 *t = 0;
 905                 }
 906                 if (!strcmp(cp, fs_name)) {
 907                         fclose(f);
 908                         return (1);
 909                 }
 910         }
 911         fclose(f);
 912 #endif /* __linux__ */
 913         return (0);
 914 }
 915
 916 /*
 917  * Helper function that does the right thing if write returns a
 918  * partial write, or an EAGAIN/EINTR error.
 919  */
 920 int write_all(int fd, char *buf, size_t count)
 921 {
 922         ssize_t ret;
 923         int c = 0;
 924
 925         while (count > 0) {
 926                 ret = write(fd, buf, count);
 927                 if (ret < 0) {
 928                         if ((errno == EAGAIN) || (errno == EINTR))
 929                                 continue;
 930                         return -1;
 931                 }
 932                 count -= ret;
 933                 buf += ret;
 934                 c += ret;
 935         }
 936         return c;
 937 }
 938
 939 void dump_mmp_msg(struct mmp_struct *mmp, const char *fmt, ...)
 940 {
 941         va_list pvar;
 942
 943         if (fmt) {
 944                 printf("MMP check failed: ");
 945                 va_start(pvar, fmt);
 946                 vprintf(fmt, pvar);
 947                 va_end(pvar);
 948         }
 949         if (mmp) {
 950                 time_t t = mmp->mmp_time;
 951
 952                 printf("MMP_block:\n");
 953                 printf("    mmp_magic: 0x%x\n", mmp->mmp_magic);
 954                 printf("    mmp_check_interval: %d\n",
 955                        mmp->mmp_check_interval);
 956                 printf("    mmp_sequence: %08x\n", mmp->mmp_seq);
 957                 printf("    mmp_update_date: %s", ctime(&t));
 958                 printf("    mmp_update_time: %lld\n",
 959                        (long long) mmp->mmp_time);
 960                 printf("    mmp_node_name: %.*s\n",
 961                        EXT2_LEN_STR(mmp->mmp_nodename));
 962                 printf("    mmp_device_name: %.*s\n",
 963                        EXT2_LEN_STR(mmp->mmp_bdevname));
 964         }
 965 }
 966
 967 errcode_t e2fsck_mmp_update(ext2_filsys fs)
 968 {
 969         errcode_t retval;
 970
 971         retval = ext2fs_mmp_update(fs);
 972         if (retval == EXT2_ET_MMP_CHANGE_ABORT)
 973                 dump_mmp_msg(fs->mmp_cmp,
 974                              _("UNEXPECTED INCONSISTENCY: the filesystem is "
 975                                "being modified while fsck is running.\n"));
 976
 977         return retval;
 978 }
 979
 980 void e2fsck_set_bitmap_type(ext2_filsys fs, unsigned int default_type,
 981                             const char *profile_name, unsigned int *old_type)
 982 {
 983         unsigned type;
 984         e2fsck_t ctx = (e2fsck_t) fs->priv_data;
 985
 986         if (old_type)
 987                 *old_type = fs->default_bitmap_type;
 988         profile_get_uint(ctx->profile, "bitmaps", profile_name, 0,
 989                          default_type, &type);
 990         profile_get_uint(ctx->profile, "bitmaps", "all", 0, type, &type);
 991         fs->default_bitmap_type = type ? type : default_type;
 992 }
 993
 994 errcode_t e2fsck_allocate_inode_bitmap(ext2_filsys fs, const char *descr,
 995                                        int deftype,
 996                                        const char *name,
 997                                        ext2fs_inode_bitmap *ret)
 998 {
 999         errcode_t       retval;
1000         unsigned int    save_type;
1001
1002         e2fsck_set_bitmap_type(fs, deftype, name, &save_type);
1003         retval = ext2fs_allocate_inode_bitmap(fs, descr, ret);
1004         fs->default_bitmap_type = save_type;
1005         return retval;
1006 }
1007
1008 errcode_t e2fsck_allocate_block_bitmap(ext2_filsys fs, const char *descr,
1009                                        int deftype,
1010                                        const char *name,
1011                                        ext2fs_block_bitmap *ret)
1012 {
1013         errcode_t       retval;
1014         unsigned int    save_type;
1015
1016         e2fsck_set_bitmap_type(fs, deftype, name, &save_type);
1017         retval = ext2fs_allocate_block_bitmap(fs, descr, ret);
1018         fs->default_bitmap_type = save_type;
1019         return retval;
1020 }
1021
1022 errcode_t e2fsck_allocate_subcluster_bitmap(ext2_filsys fs, const char *descr,
1023                                             int deftype,
1024                                             const char *name,
1025                                             ext2fs_block_bitmap *ret)
1026 {
1027         errcode_t       retval;
1028         unsigned int    save_type;
1029
1030         e2fsck_set_bitmap_type(fs, deftype, name, &save_type);
1031         retval = ext2fs_allocate_subcluster_bitmap(fs, descr, ret);
1032         fs->default_bitmap_type = save_type;
1033         return retval;
1034 }
1035
1036 /* Return memory size in bytes */
1037 unsigned long long get_memory_size(void)
1038 {
1039 #if defined(_SC_PHYS_PAGES)
1040 # if defined(_SC_PAGESIZE)
1041         return (unsigned long long)sysconf(_SC_PHYS_PAGES) *
1042                (unsigned long long)sysconf(_SC_PAGESIZE);
1043 # elif defined(_SC_PAGE_SIZE)
1044         return (unsigned long long)sysconf(_SC_PHYS_PAGES) *
1045                (unsigned long long)sysconf(_SC_PAGE_SIZE);
1046 # endif
1047 #elif defined(CTL_HW)
1048 # if (defined(HW_MEMSIZE) || defined(HW_PHYSMEM64))
1049 #  define CTL_HW_INT64
1050 # elif (defined(HW_PHYSMEM) || defined(HW_REALMEM))
1051 #  define CTL_HW_UINT
1052 # endif
1053         int mib[2];
1054
1055         mib[0] = CTL_HW;
1056 # if defined(HW_MEMSIZE)
1057         mib[1] = HW_MEMSIZE;
1058 # elif defined(HW_PHYSMEM64)
1059         mib[1] = HW_PHYSMEM64;
1060 # elif defined(HW_REALMEM)
1061         mib[1] = HW_REALMEM;
1062 # elif defined(HW_PYSMEM)
1063         mib[1] = HW_PHYSMEM;
1064 # endif
1065 # if defined(CTL_HW_INT64)
1066         unsigned long long size = 0;
1067 # elif defined(CTL_HW_UINT)
1068         unsigned int size = 0;
1069 # endif
1070         return 0;
1071 #else
1072 # warning "Don't know how to detect memory on your platform?"
1073         return 0;
1074 #endif
1075 }