Linux программирование в примерах
вернуться

Роббинс Арнольд
Шрифт:

30 return stb->st_size;

31 return DEFBLKSIZE;

32 }

Константа

DEFBLKSIZE
является «размером блока по умолчанию»; то есть значением из
struct stat
или
BUFSIZ
. Для терминалов (строка 23) или файлов, которые не являются обычными файлами (
lseek
завершается неудачей, строка 27) возвращаемое значение также равно
BUFSIZ
. Для небольших обычных файлов используется размер файла. Во всех других случаях возвращается
DEFBLKSIZE
. Знание «оптимального» размера буфера особенно полезно в файловых системах, в которых размер блока больше
BUFSIZ
.

У нас была проблема, когда один из наших контрольных примеров отлично работал на нашей рабочей системе GNU/Linux и на любой другой системе Unix, к которой у нас был доступ. Однако, этот тест последовательно терпел неудачу на других определенных системах.

В течение длительного времени мы не могли получить непосредственный доступ к терпящей неудачу системе, чтобы запустить GDB. В конце концов, мы смогли, однако, ухитриться воспроизвести проблему. Она оказалась связана с размером буфера, который

gawk
использовал для чтения файлов данных: на терпящих неудачи системах размер буфера был больше, чем на нашей системе разработки.

Нам был нужен способ воспроизведения проблемы на своей машине разработки, система с неудачей находилась в стороне за девять часовых поясов, а интерактивный запуск GDB через Атлантический океан мучителен. Мы воспроизвели проблему, заставив

optimal_bufsize
проверять значение специальной переменной окружения
AWKBUFSIZE
. Когда ее значение равно
"exact"
,
optimal_bufsize
всегда возвращает размер файла, каким бы он ни был. Если значением
AWKBUFSIZE
является какое-нибудь целое число, функция возвращает это число. В противном случае, функция возвращается к прежнему алгоритму. Это дает нам возможность запускать тесты, не требуя постоянной перекомпиляции
gawk
. Например,

$ AWKBUFSIZE=42 make check

Это запускает тестовый набор

gawk
с использованием размера буфера в 42 байта. (Тестовый набор проходит.) Вот модифицированная версия
optimal_bufsize
:

1 /* optimal_bufsize --- определение оптимального размера буфера */

2

3 /*

4 * В целях отладки усовершенствуйте это следующим образом:

5 *

6 * Всегда используйте stat для файла, буфер stat используется кодом

7 * более высокого уровня.

8 * if (AWKBUFSIZE == "exact")

9 * return the file size

10 * else if (AWKBUFSIZE == число)

11 * всегда возвращать это число

12 * else

13 * if размер < default_blocksize

14 * return размер

15 * else

16 * return default_blocksize

17 * end if

18 * end if

19 *

20 * Приходится повозиться, чтобы иметь дело с AWKBUFSIZE лишь

21 * однажды, при первом вызове этой процедуры, а не при каждом

22 * ее вызове. Производительность, знаете ли.

23 */

24

25 size_t

26 optimal_bufsize(fd, stb)

27 int fd;

28 struct stat *stb;

29 {

30 char *val;

31 static size_t env_val = 0;

32 static short first = TRUE;

33 static short exact = FALSE;

34

35 /* обнулить все члены, на случай, если ОС их не использует. */

36 memset(stb, '\0', sizeof(struct stat));

37

38 /* всегда использовать stat на случай, если stb используется кодом более высокого уровня */

39 if (fstat(fd, stb) == -1)

40 fatal("can't stat fd %d (%s)", fd, strerror(errno));

41

42 if (first) {

43 first = FALSE;

44

45 if ((val = getenv("AWKBUFSIZE")) != NULL) {

46 if (strcmp(val, "exact") == 0)