/
niceSOFT
/
gawk
Обзор
Документация
Войти
/
niceSOFT
/
gawk
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
awklib/eg/test-programs/gen-float-table.awk
63 строки
1 KB
Arnold D. Robbins
Fix up some tabs and spaces in the manual.
23 дек 2025, 16:41
23 дек 2025, 16:41
3924b6c
Код
Авторство
О чём код?
# This file and how to use it are described in the manual. # Therefore, we respectfully advise you to Read The Fine Manual # for more information. function eq(left, right) { return left == right } function ne(left, right) { return left != right } function lt(left, right) { return left < right } function le(left, right) { return left <= right } function gt(left, right) { return left > right } function ge(left, right) { return left >= right } BEGIN { nan = sqrt(-1) inf = -log(0) split("== != < <= > >=", names) names[3] = names[3] " " names[5] = names[5] " " split("eq ne lt le gt ge", funcs) compare[1] = 2.0 compare[2] = values[1] = -sqrt(-1.0) # nan compare[3] = values[2] = sqrt(-1.0) # -nan compare[4] = values[3] = -log(0.0) # inf compare[5] = values[4] = log(0.0) # -inf for (i = 1; i in values; i++) { for (j = 1; j in compare; j++) { for (k = 1; k in names; k++) { the_func = funcs[k] printf("%g %s %g -> %s\n", values[i], names[k], compare[j], @the_func(values[i], compare[j]) ? "True" : "False"); } printf("\n"); } } }