/* * badblocks.c - Bad blocks checker * * Copyright (C) 1992, 1993, 1994 Remy Card * Laboratoire MASI, Institut Blaise Pascal * Universite Pierre et Marie Curie (Paris VI) * * Copyright 1995, 1996, 1997, 1998, 1999 by Theodore Ts'o * Copyright 1999 by David Beattie * * This file is based on the minix file system programs fsck and mkfs * written and copyrighted by Linus Torvalds * * %Begin-Header% * This file may be redistributed under the terms of the GNU Public * License. * %End-Header% */ /* * History: * 93/05/26 - Creation from e2fsck * 94/02/27 - Made a separate bad blocks checker * 99/06/30...99/07/26 - Added non-destructive write-testing, * configurable blocks-at-once parameter, * loading of badblocks list to avoid testing * blocks known to be bad, multiple passes to * make sure that no new blocks are added to the * list. (Work done by David Beattie) */ #ifndef _GNU_SOURCE #define _GNU_SOURCE /* for O_DIRECT */ #endif #include "config.h" #include #include #ifdef HAVE_GETOPT_H #include #else extern char *optarg; extern int optind; #endif #include #include #include #include #include #include #include #include #ifdef HAVE_MBSTOWCS #include #endif #include #include #include #include "et/com_err.h" #include "ext2fs/ext2_io.h" #include "ext2fs/ext2_fs.h" #include "ext2fs/ext2fs.h" #include "support/nls-enable.h" #ifndef O_LARGEFILE #define O_LARGEFILE 0 #endif /* Maximum number of bad blocks we support */ #define MAX_BAD_BLOCKS (INT_MAX/2) static const char * program_name = "badblocks"; static const char * done_string = N_("done \n"); static int v_flag; /* verbose */ static int w_flag; /* do r/w test: 0=no, 1=yes, * 2=non-destructive */ static int s_flag; /* show progress of test */ static int force; /* force check of mounted device */ static int t_flag; /* number of test patterns */ static int t_max; /* allocated test patterns */ static unsigned int *t_patts; /* test patterns */ static int use_buffered_io; static int exclusive_ok; static unsigned int max_bb = MAX_BAD_BLOCKS; /* Abort test if more than this * number of bad blocks has been * encountered */ static unsigned int d_flag; /* delay factor between reads */ static struct timeval time_start; #define T_INC 32 static unsigned int sys_page_size = 4096; static void usage(void) { fprintf(stderr, _( "Usage: %s [-b block_size] [-i input_file] [-o output_file] [-svwnfBX]\n" " [-c blocks_at_once] [-d delay_factor_between_reads] [-e max_bad_blocks]\n" " [-p num_passes] [-t test_pattern [-t test_pattern [...]]]\n" " device [last_block [first_block]]\n"), program_name); exit (1); } static void exclusive_usage(void) { fprintf(stderr, _("%s: The -n and -w options are mutually exclusive.\n\n"), program_name); exit(1); } static blk_t currently_testing = 0; static blk_t num_blocks = 0; static blk_t num_read_errors = 0; static blk_t num_write_errors = 0; static blk_t num_corruption_errors = 0; static ext2_badblocks_list bb_list = NULL; static FILE *out; static blk_t next_bad = 0; static ext2_badblocks_iterate bb_iter = NULL; enum error_types { READ_ERROR, WRITE_ERROR, CORRUPTION_ERROR }; static void *allocate_buffer(size_t size) { void *ret = 0; #ifdef HAVE_POSIX_MEMALIGN if (posix_memalign(&ret, sys_page_size, size) != 0) ret = 0; #else #ifdef HAVE_MEMALIGN ret = memalign(sys_page_size, size); #else #ifdef HAVE_VALLOC ret = valloc(size); #endif /* HAVE_VALLOC */ #endif /* HAVE_MEMALIGN */ #endif /* HAVE_POSIX_MEMALIGN */ if (!ret) ret = malloc(size); return ret; } /* * This routine reports a new bad block. If the bad block has already * been seen before, then it returns 0; otherwise it returns 1. */ static int bb_output (blk_t bad, enum error_types error_type) { errcode_t errcode; if (ext2fs_badblocks_list_test(bb_list, bad)) return 0; fprintf(out, "%lu\n", (unsigned long) bad); fflush(out); errcode = ext2fs_badblocks_list_add (bb_list, bad); if (errcode) { com_err (program_name, errcode, "adding to in-memory bad block list"); exit (1); } /* kludge: increment the iteration through the bb_list if an element was just added before the current iteration position. This should not cause next_bad to change. */ if (bb_iter && bad < next_bad) ext2fs_badblocks_list_iterate (bb_iter, &next_bad); if (error_type == READ_ERROR) { num_read_errors++; } else if (error_type == WRITE_ERROR) { num_write_errors++; } else if (error_type == CORRUPTION_ERROR) { num_corruption_errors++; } return 1; } static char *time_diff_format(struct timeval *tv1, struct timeval *tv2, char *buf) { time_t diff = (tv1->tv_sec - tv2->tv_sec); int hr,min,sec; sec = diff % 60; diff /= 60; min = diff % 60; hr = diff / 60; if (hr) sprintf(buf, "%d:%02d:%02d", hr, min, sec); else sprintf(buf, "%d:%02d", min, sec); return buf; } static float calc_percent(unsigned long current, unsigned long total) { float percent = 0.0; if (total <= 0) return percent; if (current >= total) { percent = 100.0; } else { percent=(100.0*(float)current/(float)total); } return percent; } static void print_status(void) { struct timeval time_end; char diff_buf[32], line_buf[128]; #ifdef HAVE_MBSTOWCS wchar_t wline_buf[128]; #endif int len; gettimeofday(&time_end, 0); len = snprintf(line_buf, sizeof(line_buf), _("%6.2f%% done, %s elapsed. " "(%d/%d/%d errors)"), calc_percent((unsigned long) currently_testing, (unsigned long) num_blocks), time_diff_format(&time_end, &time_start, diff_buf), num_read_errors, num_write_errors, num_corruption_errors); #ifdef HAVE_MBSTOWCS mbstowcs(wline_buf, line_buf, sizeof(line_buf)); len = wcswidth(wline_buf, sizeof(line_buf)); if (len < 0) len = strlen(line_buf); /* Should never happen... */ #endif fputs(line_buf, stderr); memset(line_buf, '\b', len); line_buf[len] = 0; fputs(line_buf, stderr); fflush (stderr); } static void alarm_intr(int alnum EXT2FS_ATTR((unused))) { signal (SIGALRM, alarm_intr); alarm(1); if (!num_blocks) return; print_status(); } static void *terminate_addr = NULL; static void terminate_intr(int signo EXT2FS_ATTR((unused))) { fflush(out); fprintf(stderr, "\n\nInterrupted at block %llu\n", (unsigned long long) currently_testing); fflush(stderr); if (terminate_addr) longjmp(terminate_addr,1); exit(1); } static void capture_terminate(jmp_buf term_addr) { terminate_addr = term_addr; signal (SIGHUP, terminate_intr); signal (SIGINT, terminate_intr); signal (SIGPIPE, terminate_intr); signal (SIGTERM, terminate_intr); signal (SIGUSR1, terminate_intr); signal (SIGUSR2, terminate_intr); } static void uncapture_terminate(void) { terminate_addr = NULL; signal (SIGHUP, SIG_DFL); signal (SIGINT, SIG_DFL); signal (SIGPIPE, SIG_DFL); signal (SIGTERM, SIG_DFL); signal (SIGUSR1, SIG_DFL); signal (SIGUSR2, SIG_DFL); } /* Linux requires that O_DIRECT I/Os be 512-byte sector aligned */ #define O_DIRECT_SIZE 512 static void set_o_direct(int dev, unsigned char *buffer, size_t size, ext2_loff_t offset) { #ifdef O_DIRECT static int current_O_DIRECT; /* Current status of O_DIRECT flag */ int new_flag = O_DIRECT; int flag; if ((use_buffered_io != 0) || (((unsigned long) buffer & (sys_page_size - 1)) != 0) || ((size & (sys_page_size - 1)) != 0) || ((offset & (O_DIRECT_SIZE - 1)) != 0)) new_flag = 0; if (new_flag != current_O_DIRECT) { /* printf("%s O_DIRECT\n", new_flag ? "Setting" : "Clearing"); */ flag = fcntl(dev, F_GETFL); if (flag > 0) { flag = (flag & ~O_DIRECT) | new_flag; if (fcntl(dev, F_SETFL, flag) < 0) perror("set_o_direct"); } current_O_DIRECT = new_flag; } #endif } static void pattern_fill(unsigned char *buffer, unsigned int pattern, size_t n) { unsigned int i, nb; unsigned char bpattern[sizeof(pattern)], *ptr; if (pattern == (unsigned int) ~0) { for (ptr = buffer; ptr < buffer + n; ptr++) { (*ptr) = random() % (1 << (8 * sizeof(char))); } if (s_flag | v_flag) fputs(_("Testing with random pattern: "), stderr); } else { bpattern[0] = 0; for (i = 0; i < sizeof(bpattern); i++) { if (pattern == 0) break; bpattern[i] = pattern & 0xFF; pattern = pattern >> 8; } nb = i ? (i-1) : 0; for (ptr = buffer, i = nb; ptr < buffer + n; ptr++) { *ptr = bpattern[i]; if (i == 0) i = nb; else i--; } if (s_flag | v_flag) { fputs(_("Testing with pattern 0x"), stderr); for (i = 0; i <= nb; i++) fprintf(stderr, "%02x", buffer[i]); fputs(": ", stderr); } } } /* * Perform a read of a sequence of blocks; return the number of blocks * successfully sequentially read. */ static int do_read (int dev, unsigned char * buffer, int try, int block_size, blk_t current_block) { long got; struct timeval tv1, tv2; #define NANOSEC (1000000000L) #define MILISEC (1000L) #if 0 printf("do_read: block %d, try %d\n", current_block, try); #endif set_o_direct(dev, buffer, try * block_size, ((ext2_loff_t) current_block) * block_size); if (v_flag > 1) print_status(); /* Seek to the correct loc. */ if (ext2fs_llseek (dev, (ext2_loff_t) current_block * block_size, SEEK_SET) != (ext2_loff_t) current_block * block_size) com_err (program_name, errno, "%s", _("during seek")); /* Try the read */ if (d_flag) gettimeofday(&tv1, NULL); got = read (dev, buffer, (size_t) try * block_size); if (d_flag) gettimeofday(&tv2, NULL); if (got < 0) got = 0; if (got & 511) fprintf(stderr, _("Weird value (%ld) in do_read\n"), got); got /= block_size; if (d_flag && got == try) { #ifdef HAVE_NANOSLEEP struct timespec ts; ts.tv_sec = tv2.tv_sec - tv1.tv_sec; ts.tv_nsec = (tv2.tv_usec - tv1.tv_usec) * MILISEC; if (ts.tv_nsec < 0) { ts.tv_nsec += NANOSEC; ts.tv_sec -= 1; } /* increase/decrease the sleep time based on d_flag value */ ts.tv_sec = ts.tv_sec * d_flag / 100; ts.tv_nsec = ts.tv_nsec * d_flag / 100; if (ts.tv_nsec > NANOSEC) { ts.tv_sec += ts.tv_nsec / NANOSEC; ts.tv_nsec %= NANOSEC; } if (ts.tv_sec || ts.tv_nsec) nanosleep(&ts, NULL); #else #ifdef HAVE_USLEEP struct timeval tv; tv.tv_sec = tv2.tv_sec - tv1.tv_sec; tv.tv_usec = tv2.tv_usec - tv1.tv_usec; tv.tv_sec = tv.tv_sec * d_flag / 100; tv.tv_usec = tv.tv_usec * d_flag / 100; if (tv.tv_usec > 1000000) { tv.tv_sec += tv.tv_usec / 1000000; tv.tv_usec %= 1000000; } if (tv.tv_sec) sleep(tv.tv_sec); if (tv.tv_usec) usleep(tv.tv_usec); #endif #endif } return got; } /* * Perform a write of a sequence of blocks; return the number of blocks * successfully sequentially written. */ static int do_write(int dev, unsigned char * buffer, int try, int block_size, unsigned long current_block) { long got; #if 0 printf("do_write: block %lu, try %d\n", current_block, try); #endif set_o_direct(dev, buffer, try * block_size, ((ext2_loff_t) current_block) * block_size); if (v_flag > 1) print_status(); /* Seek to the correct loc. */ if (ext2fs_llseek (dev, (ext2_loff_t) current_block * block_size, SEEK_SET) != (ext2_loff_t) current_block * block_size) com_err (program_name, errno, "%s", _("during seek")); /* Try the write */ got = write (dev, buffer, (size_t) try * block_size); if (got < 0) got = 0; if (got & 511) fprintf(stderr, "Weird value (%ld) in do_write\n", got); got /= block_size; return got; } static int host_dev; static void flush_bufs(void) { errcode_t retval; #ifdef O_DIRECT if (!use_buffered_io) return; #endif retval = ext2fs_sync_device(host_dev, 1); if (retval) com_err(program_name, retval, "%s", _("during ext2fs_sync_device")); } static unsigned int test_ro (int dev, blk_t last_block, int block_size, blk_t first_block, unsigned int blocks_at_once) { unsigned char * blkbuf; int try; int got; unsigned int bb_count = 0; errcode_t errcode; blk_t recover_block = ~0; /* set up abend handler */ capture_terminate(NULL); errcode = ext2fs_badblocks_list_iterate_begin(bb_list,&bb_iter); if (errcode) { com_err(program_name, errcode, "%s", _("while beginning bad block list iteration")); exit (1); } do { ext2fs_badblocks_list_iterate (bb_iter, &next_bad); } while (next_bad && next_bad < first_block); if (t_flag) { blkbuf = allocate_buffer(((size_t) blocks_at_once + 1) * block_size); } else { blkbuf = allocate_buffer((size_t) blocks_at_once * block_size); } if (!blkbuf) { com_err(program_name, ENOMEM, "%s", _("while allocating buffers")); exit (1); } if (v_flag) { fprintf(stderr, _("Checking blocks %lu to %lu\n"), (unsigned long)first_block, (unsigned long)last_block - 1); } if (t_flag) { fputs(_("Checking for bad blocks in read-only mode\n"), stderr); pattern_fill(blkbuf + blocks_at_once * block_size, t_patts[0], block_size); } flush_bufs(); try = blocks_at_once; currently_testing = first_block; num_blocks = last_block - 1; if (!t_flag && (s_flag || v_flag)) fputs(_("Checking for bad blocks (read-only test): "), stderr); if (s_flag && v_flag <= 1) alarm_intr(SIGALRM); while (currently_testing < last_block) { if (bb_count >= max_bb) { if (s_flag || v_flag) { fputs(_("Too many bad blocks, aborting test\n"), stderr); } break; } if (next_bad) { if (currently_testing == next_bad) { /* fprintf (out, "%lu\n", nextbad); */ ext2fs_badblocks_list_iterate (bb_iter, &next_bad); currently_testing++; continue; } else if (currently_testing + try > next_bad) try = next_bad - currently_testing; } if (currently_testing + try > last_block) try = last_block - currently_testing; got = do_read (dev, blkbuf, try, block_size, currently_testing); if (t_flag) { /* test the comparison between all the blocks successfully read */ int i; for (i = 0; i < got; ++i) if (memcmp (blkbuf+i*block_size, blkbuf+blocks_at_once*block_size, block_size)) bb_count += bb_output(currently_testing + i, CORRUPTION_ERROR); } if (got == 0 && try == 1) bb_count += bb_output(currently_testing++, READ_ERROR); currently_testing += got; if (got != try) { try = 1; if (recover_block == ~0U) recover_block = currently_testing - got + blocks_at_once; continue; } else if (currently_testing == recover_block) { try = blocks_at_once; recover_block = ~0; } } num_blocks = 0; alarm(0); if (s_flag || v_flag) fputs(_(done_string), stderr); fflush (stderr); free (blkbuf); ext2fs_badblocks_list_iterate_end(bb_iter); uncapture_terminate(); return bb_count; } static unsigned int test_rw (int dev, blk_t last_block, int block_size, blk_t first_block, unsigned int blocks_at_once) { unsigned char *buffer, *read_buffer; const unsigned int patterns[] = {0xaa, 0x55, 0xff, 0x00}; const unsigned int *pattern; int i, try, got, nr_pattern, pat_idx; unsigned int bb_count = 0; blk_t recover_block = ~0; /* set up abend handler */ capture_terminate(NULL); buffer = allocate_buffer((size_t) 2 * blocks_at_once * block_size); read_buffer = buffer + blocks_at_once * block_size; if (!buffer) { com_err(program_name, ENOMEM, "%s", _("while allocating buffers")); exit (1); } flush_bufs(); if (v_flag) { fputs(_("Checking for bad blocks in read-write mode\n"), stderr); fprintf(stderr, _("From block %lu to %lu\n"), (unsigned long) first_block, (unsigned long) last_block - 1); } if (t_flag) { pattern = t_patts; nr_pattern = t_flag; } else { pattern = patterns; nr_pattern = sizeof(patterns) / sizeof(patterns[0]); } for (pat_idx = 0; pat_idx < nr_pattern; pat_idx++) { pattern_fill(buffer, pattern[pat_idx], blocks_at_once * block_size); num_blocks = last_block - 1; currently_testing = first_block; if (s_flag && v_flag <= 1) alarm_intr(SIGALRM); try = blocks_at_once; while (currently_testing < last_block) { if (bb_count >= max_bb) { if (s_flag || v_flag) { fputs(_("Too many bad blocks, aborting test\n"), stderr); } break; } if (currently_testing + try > last_block) try = last_block - currently_testing; got = do_write(dev, buffer, try, block_size, currently_testing); if (v_flag > 1) print_status(); if (got == 0 && try == 1) bb_count += bb_output(currently_testing++, WRITE_ERROR); currently_testing += got; if (got != try) { try = 1; if (recover_block == ~0U) recover_block = currently_testing - got + blocks_at_once; continue; } else if (currently_testing == recover_block) { try = blocks_at_once; recover_block = ~0; } } num_blocks = 0; alarm (0); if (s_flag | v_flag) fputs(_(done_string), stderr); flush_bufs(); if (s_flag | v_flag) fputs(_("Reading and comparing: "), stderr); num_blocks = last_block; currently_testing = first_block; if (s_flag && v_flag <= 1) alarm_intr(SIGALRM); try = blocks_at_once; while (currently_testing < last_block) { if (bb_count >= max_bb) { if (s_flag || v_flag) { fputs(_("Too many bad blocks, aborting test\n"), stderr); } break; } if (currently_testing + try > last_block) try = last_block - currently_testing; got = do_read (dev, read_buffer, try, block_size, currently_testing); if (got == 0 && try == 1) bb_count += bb_output(currently_testing++, READ_ERROR); currently_testing += got; if (got != try) { try = 1; if (recover_block == ~0U) recover_block = currently_testing - got + blocks_at_once; continue; } else if (currently_testing == recover_block) { try = blocks_at_once; recover_block = ~0U; } for (i=0; i < got; i++) { if (memcmp(read_buffer + i * block_size, buffer + i * block_size, block_size)) bb_count += bb_output(currently_testing+i, CORRUPTION_ERROR); } if (v_flag > 1) print_status(); } num_blocks = 0; alarm (0); if (s_flag | v_flag) fputs(_(done_string), stderr); flush_bufs(); } uncapture_terminate(); free(buffer); return bb_count; } struct saved_blk_record { blk_t block; int num; }; static unsigned int test_nd (int dev, blk_t last_block, int block_size, blk_t first_block, unsigned int blocks_at_once) { unsigned char *blkbuf, *save_ptr, *test_ptr, *read_ptr; unsigned char *test_base, *save_base, *read_base; int try, i; const unsigned int patterns[] = { ~0 }; const unsigned int *pattern; int nr_pattern, pat_idx; int got, used2, written; blk_t save_currently_testing; struct saved_blk_record *test_record; /* This is static to prevent being clobbered by the longjmp */ static int num_saved; jmp_buf terminate_env; errcode_t errcode; unsigned long buf_used; static unsigned int bb_count; unsigned int granularity = blocks_at_once; blk_t recover_block = ~0U; bb_count = 0; errcode = ext2fs_badblocks_list_iterate_begin(bb_list,&bb_iter); if (errcode) { com_err(program_name, errcode, "%s", _("while beginning bad block list iteration")); exit (1); } do { ext2fs_badblocks_list_iterate (bb_iter, &next_bad); } while (next_bad && next_bad < first_block); blkbuf = allocate_buffer((size_t) 3 * blocks_at_once * block_size); test_record = malloc(blocks_at_once * sizeof(struct saved_blk_record)); if (!blkbuf || !test_record) { com_err(program_name, ENOMEM, "%s", _("while allocating buffers")); exit (1); } save_base = blkbuf; test_base = blkbuf + (blocks_at_once * block_size); read_base = blkbuf + (2 * blocks_at_once * block_size); num_saved = 0; flush_bufs(); if (v_flag) { fputs(_("Checking for bad blocks in non-destructive read-write mode\n"), stderr); fprintf (stderr, _("From block %lu to %lu\n"), (unsigned long) first_block, (unsigned long) last_block - 1); } if (s_flag || v_flag > 1) { fputs(_("Checking for bad blocks (non-destructive read-write test)\n"), stderr); } if (setjmp(terminate_env)) { /* * Abnormal termination by a signal is handled here. */ signal (SIGALRM, SIG_IGN); fputs(_("\nInterrupt caught, cleaning up\n"), stderr); save_ptr = save_base; for (i=0; i < num_saved; i++) { do_write(dev, save_ptr, test_record[i].num, block_size, test_record[i].block); save_ptr += test_record[i].num * block_size; } fflush (out); exit(1); } /* set up abend handler */ capture_terminate(terminate_env); if (t_flag) { pattern = t_patts; nr_pattern = t_flag; } else { pattern = patterns; nr_pattern = sizeof(patterns) / sizeof(patterns[0]); } for (pat_idx = 0; pat_idx < nr_pattern; pat_idx++) { pattern_fill(test_base, pattern[pat_idx], blocks_at_once * block_size); buf_used = 0; bb_count = 0; save_ptr = save_base; test_ptr = test_base; currently_testing = first_block; num_blocks = last_block - 1; if (s_flag && v_flag <= 1) alarm_intr(SIGALRM); while (currently_testing < last_block) { if (bb_count >= max_bb) { if (s_flag || v_flag) { fputs(_("Too many bad blocks, aborting test\n"), stderr); } break; } got = try = granularity - buf_used; if (next_bad) { if (currently_testing == next_bad) { /* fprintf (out, "%lu\n", nextbad); */ ext2fs_badblocks_list_iterate (bb_iter, &next_bad); currently_testing++; goto check_for_more; } else if (currently_testing + try > next_bad) try = next_bad - currently_testing; } if (currently_testing + try > last_block) try = last_block - currently_testing; got = do_read (dev, save_ptr, try, block_size, currently_testing); if (got == 0) { if (recover_block == ~0U) recover_block = currently_testing + blocks_at_once; if (granularity != 1) { granularity = 1; continue; } /* First block must have been bad. */ bb_count += bb_output(currently_testing++, READ_ERROR); goto check_for_more; } /* * Note the fact that we've saved this much data * *before* we overwrite it with test data */ test_record[num_saved].block = currently_testing; test_record[num_saved].num = got; num_saved++; /* Write the test data */ written = do_write (dev, test_ptr, got, block_size, currently_testing); if (written != got) com_err (program_name, errno, _("during test data write, block %lu"), (unsigned long) currently_testing + written); buf_used += got; save_ptr += got * block_size; test_ptr += got * block_size; currently_testing += got; if (got != try) { if (recover_block == ~0U) recover_block = currently_testing - got + blocks_at_once; continue; } check_for_more: /* * If there's room for more blocks to be tested this * around, and we're not done yet testing the disk, go * back and get some more blocks. */ if ((buf_used != granularity) && (currently_testing < last_block)) continue; if (currently_testing >= recover_block) { granularity = blocks_at_once; recover_block = ~0; } flush_bufs(); save_currently_testing = currently_testing; /* * for each contiguous block that we read into the * buffer (and wrote test data into afterwards), read * it back (looping if necessary, to get past newly * discovered unreadable blocks, of which there should * be none, but with a hard drive which is unreliable, * it has happened), and compare with the test data * that was written; output to the bad block list if * it doesn't match. */ used2 = 0; save_ptr = save_base; test_ptr = test_base; read_ptr = read_base; try = 0; while (1) { if (try == 0) { if (used2 >= num_saved) break; currently_testing = test_record[used2].block; try = test_record[used2].num; used2++; } got = do_read (dev, read_ptr, try, block_size, currently_testing); /* test the comparison between all the blocks successfully read */ for (i = 0; i < got; ++i) if (memcmp (test_ptr+i*block_size, read_ptr+i*block_size, block_size)) bb_count += bb_output(currently_testing + i, CORRUPTION_ERROR); if (got < try) { bb_count += bb_output(currently_testing + got, READ_ERROR); got++; } /* write back original data */ do_write (dev, save_ptr, got, block_size, currently_testing); save_ptr += got * block_size; currently_testing += got; test_ptr += got * block_size; read_ptr += got * block_size; try -= got; } /* empty the buffer so it can be reused */ num_saved = 0; buf_used = 0; save_ptr = save_base; test_ptr = test_base; currently_testing = save_currently_testing; } num_blocks = 0; alarm(0); if (s_flag || v_flag > 1) fputs(_(done_string), stderr); flush_bufs(); } uncapture_terminate(); fflush(stderr); free(blkbuf); free(test_record); ext2fs_badblocks_list_iterate_end(bb_iter); return bb_count; } static void check_mount(char *device_name) { errcode_t retval; int mount_flags; retval = ext2fs_check_if_mounted(device_name, &mount_flags); if (retval) { com_err("ext2fs_check_if_mount", retval, _("while determining whether %s is mounted."), device_name); return; } if (mount_flags & EXT2_MF_MOUNTED) { fprintf(stderr, _("%s is mounted; "), device_name); if (force) { fputs(_("badblocks forced anyway. " "Hope /etc/mtab is incorrect.\n"), stderr); return; } abort_badblocks: fputs(_("it's not safe to run badblocks!\n"), stderr); exit(1); } if ((mount_flags & EXT2_MF_BUSY) && !exclusive_ok) { fprintf(stderr, _("%s is apparently in use by the system; "), device_name); if (force) fputs(_("badblocks forced anyway.\n"), stderr); else goto abort_badblocks; } } /* * This function will convert a string to an unsigned long, printing * an error message if it fails, and returning success or failure in err. */ static unsigned int parse_uint(const char *str, const char *descr) { char *tmp; unsigned long ret; errno = 0; ret = strtoul(str, &tmp, 0); if (*tmp || errno) { com_err (program_name, 0, _("invalid %s - %s"), descr, str); exit (1); } else if ((ret > UINT_MAX) || (ret == ULONG_MAX && errno == ERANGE)) { com_err (program_name, 0, _("%s too large - %lu"), descr, ret); exit (1); } return ret; } int main (int argc, char ** argv) { int c; char * device_name; char * host_device_name = NULL; char * input_file = NULL; char * output_file = NULL; FILE * in = NULL; unsigned int block_size = 1024; unsigned int blocks_at_once = 64; blk64_t last_block, first_block; int num_passes = 0; int passes_clean = 0; int dev; errcode_t errcode; unsigned int pattern; unsigned int (*test_func)(int, blk_t, int, blk_t, unsigned int); int open_flag; long sysval; unsigned long long inblk; setbuf(stdout, NULL); setbuf(stderr, NULL); #ifdef ENABLE_NLS setlocale(LC_MESSAGES, ""); setlocale(LC_CTYPE, ""); bindtextdomain(NLS_CAT_NAME, LOCALEDIR); textdomain(NLS_CAT_NAME); set_com_err_gettext(gettext); #endif srandom((unsigned int)time(NULL)); /* simple randomness is enough */ test_func = test_ro; /* Determine the system page size if possible */ #ifdef HAVE_SYSCONF #if (!defined(_SC_PAGESIZE) && defined(_SC_PAGE_SIZE)) #define _SC_PAGESIZE _SC_PAGE_SIZE #endif #ifdef _SC_PAGESIZE sysval = sysconf(_SC_PAGESIZE); if (sysval > 0) sys_page_size = sysval; #endif /* _SC_PAGESIZE */ #endif /* HAVE_SYSCONF */ if (argc && *argv) program_name = *argv; else usage(); while ((c = getopt (argc, argv, "b:d:e:fi:o:svwnc:p:h:t:BX")) != EOF) { switch (c) { case 'b': block_size = parse_uint(optarg, "block size"); break; case 'f': force++; break; case 'i': input_file = optarg; break; case 'o': output_file = optarg; break; case 's': s_flag = 1; break; case 'v': v_flag++; break; case 'w': if (w_flag) exclusive_usage(); test_func = test_rw; w_flag = 1; break; case 'n': if (w_flag) exclusive_usage(); test_func = test_nd; w_flag = 2; break; case 'c': blocks_at_once = parse_uint(optarg, "blocks at once"); break; case 'e': max_bb = parse_uint(optarg, "max bad block count"); if (max_bb > MAX_BAD_BLOCKS) { com_err (program_name, 0, _("Too big max bad blocks count %u - " "maximum is %u"), max_bb, MAX_BAD_BLOCKS); exit (1); } /* 0 really means unlimited but we cannot do that much... */ if (max_bb == 0) max_bb = MAX_BAD_BLOCKS; break; case 'd': d_flag = parse_uint(optarg, "read delay factor"); break; case 'p': num_passes = parse_uint(optarg, "number of clean passes"); break; case 'h': host_device_name = optarg; break; case 't': if (t_flag + 1 > t_max) { unsigned int *t_patts_new; t_patts_new = realloc(t_patts, sizeof(int) * (t_max + T_INC)); if (!t_patts_new) { com_err(program_name, ENOMEM, _("can't allocate memory for " "test_pattern - %s"), optarg); exit(1); } t_patts = t_patts_new; t_max += T_INC; } if (!strcmp(optarg, "r") || !strcmp(optarg,"random")) { t_patts[t_flag++] = ~0; } else { pattern = parse_uint(optarg, "test pattern"); if (pattern == (unsigned int) ~0) pattern = 0xffff; t_patts[t_flag++] = pattern; } break; case 'B': use_buffered_io = 1; break; case 'X': exclusive_ok++; break; default: usage(); } } if (!w_flag) { if (t_flag > 1) { com_err(program_name, 0, "%s", _("Maximum of one test_pattern may be " "specified in read-only mode")); exit(1); } if (t_patts && (t_patts[0] == (unsigned int) ~0)) { com_err(program_name, 0, "%s", _("Random test_pattern is not allowed " "in read-only mode")); exit(1); } } if ((block_size == 0) || (block_size > (1 << 24)) || (block_size & (block_size - 1))) { com_err(program_name, 0, _("Invalid block size: %u\n"), block_size); exit(1); } if (blocks_at_once == 0) { com_err(program_name, 0, _("Invalid number of blocks: %d\n"), blocks_at_once); exit(1); } else if (((size_t) block_size * blocks_at_once) > SIZE_MAX / 3) { /* maximum usage is in test_nd() */ com_err(program_name, 0, _("For block size %d, number of blocks too large: %d\n"), block_size, blocks_at_once); exit(1); } if (optind > argc - 1) usage(); device_name = argv[optind++]; if (optind > argc - 1) { errcode = ext2fs_get_device_size2(device_name, (int) block_size, &last_block); if (errcode == EXT2_ET_UNIMPLEMENTED) { com_err(program_name, 0, "%s", _("Couldn't determine device size; you " "must specify\nthe size manually\n")); exit(1); } if (errcode) { com_err(program_name, errcode, "%s", _("while trying to determine device size")); exit(1); } } else { errno = 0; last_block = parse_uint(argv[optind], _("last block")); last_block++; optind++; } if (optind <= argc-1) { errno = 0; first_block = parse_uint(argv[optind], _("first block")); } else first_block = 0; if (first_block >= last_block) { com_err (program_name, 0, _("invalid starting block (%llu): must be less than %llu"), (unsigned long long) first_block, (unsigned long long) last_block); exit (1); } /* ext2 badblocks file can't handle large values */ if (last_block >> 32) { com_err(program_name, EOVERFLOW, _("invalid end block (%llu): must be 32-bit value"), (unsigned long long) last_block); exit(1); } if (w_flag) check_mount(device_name); gettimeofday(&time_start, 0); open_flag = O_LARGEFILE | (w_flag ? O_RDWR : O_RDONLY); dev = open (device_name, open_flag); if (dev == -1) { com_err (program_name, errno, _("while trying to open %s"), device_name); exit (1); } if (host_device_name) { host_dev = open (host_device_name, open_flag); if (host_dev == -1) { com_err (program_name, errno, _("while trying to open %s"), host_device_name); exit (1); } } else host_dev = dev; if (input_file) { if (strcmp (input_file, "-") == 0) in = stdin; else { in = fopen (input_file, "r"); if (in == NULL) { com_err (program_name, errno, _("while trying to open %s"), input_file); exit (1); } } } if (output_file && strcmp (output_file, "-") != 0) { out = fopen (output_file, "w"); if (out == NULL) { com_err (program_name, errno, _("while trying to open %s"), output_file); exit (1); } } else out = stdout; errcode = ext2fs_badblocks_list_create(&bb_list,0); if (errcode) { com_err(program_name, errcode, "%s", _("while creating in-memory bad blocks list")); exit (1); } if (in) { for(;;) { switch (fscanf(in, "%llu\n", &inblk)) { case 0: com_err(program_name, 0, "%s", _("input file - bad format")); exit (1); case EOF: break; default: if (inblk >> 32) { com_err(program_name, EOVERFLOW, "%s", _("while adding to in-memory " "bad block list")); exit(1); } next_bad = inblk; errcode = ext2fs_badblocks_list_add(bb_list,next_bad); if (errcode) { com_err(program_name, errcode, "%s", _("while adding to in-memory " "bad block list")); exit (1); } continue; } break; } if (in != stdin) fclose (in); } do { unsigned int bb_count; bb_count = test_func(dev, last_block, (int) block_size, first_block, blocks_at_once); if (bb_count) passes_clean = 0; else ++passes_clean; if (v_flag) fprintf(stderr, _("Pass completed, %u bad blocks found. (%d/%d/%d errors)\n"), bb_count, num_read_errors, num_write_errors, num_corruption_errors); } while (passes_clean < num_passes); close (dev); if (out != stdout) fclose (out); free(t_patts); return 0; }