/// Dumps termcap info to the messages area.
/// Serves a similar purpose as Vim `:set termcap` (removed in Nvim).
///
/// @note adapted from unibilium unibi-dump.c
void terminfo_info_msg(const unibi_term *const ut)
{
if (exiting) {
return;
}
msg_puts_title("\n\n--- Terminal info --- {{{\n");
char *term;
get_tty_option("term", &term);
msg_printf_attr(0, "&term: %s\n", term);
msg_printf_attr(0, "Description: %s\n", unibi_get_name(ut));
const char **a = unibi_get_aliases(ut);
if (*a) {
msg_puts("Aliases: ");
do {
msg_printf_attr(0, "%s%s\n", *a, a[1] ? " | " : "");
a++;
} while (*a);
}
msg_puts("Boolean capabilities:\n");
for (enum unibi_boolean i = unibi_boolean_begin_ + 1;
i < unibi_boolean_end_; i++) {
msg_printf_attr(0, " %-25s %-10s = %s\n", unibi_name_bool(i),
unibi_short_name_bool(i),
unibi_get_bool(ut, i) ? "true" : "false");
}
msg_puts("Numeric capabilities:\n");
for (enum unibi_numeric i = unibi_numeric_begin_ + 1;
i < unibi_numeric_end_; i++) {
int n = unibi_get_num(ut, i); // -1 means "empty"
msg_printf_attr(0, " %-25s %-10s = %d\n", unibi_name_num(i),
unibi_short_name_num(i), n);
}
msg_puts("String capabilities:\n");
for (enum unibi_string i = unibi_string_begin_ + 1;
i < unibi_string_end_; i++) {
const char *s = unibi_get_str(ut, i);
if (s) {
msg_printf_attr(0, " %-25s %-10s = ", unibi_name_str(i),
unibi_short_name_str(i));
// Most of these strings will contain escape sequences.
msg_outtrans_special((char_u *)s, false);
msg_putchar('\n');
}
}
if (unibi_count_ext_bool(ut)) {
msg_puts("Extended boolean capabilities:\n");
for (size_t i = 0; i < unibi_count_ext_bool(ut); i++) {
msg_printf_attr(0, " %-25s = %s\n",
unibi_get_ext_bool_name(ut, i),
unibi_get_ext_bool(ut, i) ? "true" : "false");
}
}
if (unibi_count_ext_num(ut)) {
msg_puts("Extended numeric capabilities:\n");
for (size_t i = 0; i < unibi_count_ext_num(ut); i++) {
msg_printf_attr(0, " %-25s = %d\n",
unibi_get_ext_num_name(ut, i),
unibi_get_ext_num(ut, i));
}
}
if (unibi_count_ext_str(ut)) {
msg_puts("Extended string capabilities:\n");
for (size_t i = 0; i < unibi_count_ext_str(ut); i++) {
msg_printf_attr(0, " %-25s = ", unibi_get_ext_str_name(ut, i));
msg_outtrans_special((char_u *)unibi_get_ext_str(ut, i), false);
msg_putchar('\n');
}
}
msg_puts("}}}\n");
xfree(term);
}
int main(int argc, char **argv) {
if (argc < 2) {
fprintf(stderr, "Usage: %s CAPNAME [PARAM...]\n", argv[0]);
return 2;
}
unibi_term *t = unibi_from_env();
if (!t) {
fprintf(stderr, "%s: %s: %s\n", argv[0], getenv("TERM"), strerror(errno));
return 3;
}
if (strcmp(argv[1], "longname") == 0) {
printf("%s\n", unibi_get_name(t));
return 0;
}
for (enum unibi_boolean i = unibi_boolean_begin_ + 1; i < unibi_boolean_end_; ++i) {
if (
strcmp(argv[1], unibi_name_bool(i)) == 0 ||
strcmp(argv[1], unibi_short_name_bool(i)) == 0
) {
if (unibi_get_bool(t, i)) {
return 0;
} else {
return 1;
}
}
}
for (enum unibi_numeric i = unibi_numeric_begin_ + 1; i < unibi_numeric_end_; ++i) {
if (
strcmp(argv[1], unibi_name_num(i)) == 0 ||
strcmp(argv[1], unibi_short_name_num(i)) == 0
) {
printf("%hd\n", unibi_get_num(t, i));
return 0;
}
}
for (enum unibi_string i = unibi_string_begin_ + 1; i < unibi_string_end_; ++i) {
if (
strcmp(argv[1], unibi_name_str(i)) == 0 ||
strcmp(argv[1], unibi_short_name_str(i)) == 0
) {
const char *fmt = unibi_get_str(t, i);
if (!fmt) {
return 1;
}
if (argc < 3) {
fputs(fmt, stdout);
return 0;
}
unibi_var_t vars[9] = {{0}};
switch (i) {
#define REQ(N) do { if (argc - 2 < (N)) { fprintf(stderr, "%s: %s: missing argument\n", argv[0], argv[1]); return 4; } } while (0)
case unibi_dial_phone:
case unibi_quick_dial:
REQ(1);
vars[0].p = argv[2];
break;
case unibi_pkey_key:
case unibi_pkey_local:
case unibi_pkey_xmit:
case unibi_plab_norm:
REQ(2);
vars[0].i = atoi(argv[2]);
vars[1].p = argv[3];
break;
case unibi_pkey_plab:
REQ(3);
vars[0].i = atoi(argv[2]);
vars[1].p = argv[3];
vars[2].p = argv[4];
break;
default: {
for (int k = 0; k + 2 < argc; ++k) {
vars[k].i = atoi(argv[k + 2]);
}
break;
#undef REQ
}
}
char buf[1024];
size_t r = unibi_run(fmt, vars, buf, sizeof buf);
fwrite(buf, 1, r, stdout);
return 0;
}
}
fprintf(stderr, "%s: %s: unknown terminfo capability\n", argv[0], argv[1]);
return 5;
}
int main(int argc, char **argv) {
unibi_term *ut;
if (argc < 2) {
ut = unibi_from_fp(stdin);
if (!ut) {
perror("unibi_from_fp(stdin)");
return EXIT_FAILURE;
}
} else if (argc == 2) {
ut = unibi_from_term(argv[1]);
if (!ut) {
fprintf(stderr, "unibi_from_term(\"%s\"): %s\n", argv[1], strerror(errno));
return EXIT_FAILURE;
}
} else {
fprintf(stderr, "Usage: %s [TERM]\n", argv[0]);
return EXIT_FAILURE;
}
char buf[4096];
size_t r = unibi_dump(ut, buf, sizeof buf);
if (r > sizeof buf) {
perror("unibi_dump()");
return EXIT_FAILURE;
}
unsigned test_counter = 0;
say("#include <unibilium.h>");
say("#include <errno.h>");
say("#include <string.h>");
say("#include \"test-simple.c.inc\"");
say("");
say_("static const char terminfo[] = {");
for (size_t i = 0; i < r; i++) {
if (i) {
printf(",");
}
printf("%s", i % 20 ? " " : "\n ");
printf("%d", (int)buf[i]);
}
say("\n};");
say("");
say("static void setup(void);");
say("");
say("int main(void) {");
say(" int e;");
say(" unibi_term *dt;");
say("");
say(" setup();");
say("");
say(" dt = unibi_dummy();");
say(" e = errno;");
say(" ok(dt != NULL, \"dummy constructed\");");
test_counter++;
say(" if (!dt) {");
say(" bail_out(strerror(e));");
say(" }");
say(" unibi_term *ut = unibi_from_mem(terminfo, sizeof terminfo);");
say(" e = errno;");
say(" ok(ut != NULL, \"terminfo loaded\");");
test_counter++;
say(" if (!ut) {");
say(" bail_out(strerror(e));");
say(" }");
say("");
say(" note(\"terminal name\");");
{
const char *name = unibi_get_name(ut);
printf(" ok(strcmp(unibi_get_name(ut), \"");
print_str_esc(name, 0);
printf("\") == 0, \"terminal name = \\\"%%s\\\"\", \"");
print_str_esc(name, 1);
printf("\");\n");
test_counter++;
printf(" unibi_set_name(dt, \"");
print_str_esc(name, 0);
printf("\");\n");
}
{
size_t i;
const char **aliases = unibi_get_aliases(ut);
say(" {");
say_(" static const char *def_aliases[] = {");
for (i = 0; aliases[i]; i++) {
if (i) {
say_(", ");
}
say_("\"");
print_str_esc(aliases[i], 0);
say_("\"");
}
if (i) {
say_(", ");
}
say("NULL};");
say(" const char **aliases = unibi_get_aliases(ut);");
for (i = 0; aliases[i]; i++) {
printf(" ok(strcmp(aliases[%zu], def_aliases[%zu]) == 0, \"terminal alias #%zu = \\\"%%s\\\"\", \"", i, i, i);
print_str_esc(aliases[i], 0);
printf("\");\n");
test_counter++;
}
printf(" ok(aliases[%zu] == NULL, \"terminal alias #%zu = null\");\n", i, i);
test_counter++;
say(" unibi_set_aliases(dt, def_aliases);");
say(" }");
}
say("");
say(" note(\"boolean capabilities\");");
for (enum unibi_boolean i = unibi_boolean_begin_ + 1; i < unibi_boolean_end_; i++) {
int b = unibi_get_bool(ut, i);
const char *c = unibi_name_bool(i);
printf(" ok(unibi_get_bool(ut, unibi_%s) == %d, \"%s = %s\");\n", c, b, c, b ? "true" : "false");
test_counter++;
if (b) {
printf(" unibi_set_bool(dt, unibi_%s, 1);\n", c);
}
}
say("");
say(" note(\"numeric capabilities\");");
for (enum unibi_numeric i = unibi_numeric_begin_ + 1; i < unibi_numeric_end_; i++) {
short v = unibi_get_num(ut, i);
const char *c = unibi_name_num(i);
printf(" ok(unibi_get_num(ut, unibi_%s) == %hd, \"%s = %hd\");\n", c, v, c, v);
test_counter++;
if (v >= 0) {
printf(" unibi_set_num(dt, unibi_%s, %hd);\n", c, v);
}
}
say("");
say(" note(\"string capabilities\");");
for (enum unibi_string i = unibi_string_begin_ + 1; i < unibi_string_end_; i++) {
const char *s = unibi_get_str(ut, i);
const char *c = unibi_name_str(i);
if (s) {
printf(" ok(strcmp(unibi_get_str(ut, unibi_%s), \"", c);
print_str_esc(s, 0);
printf("\") == 0, \"%s = \\\"%%s\\\"\", \"", c);
print_str_esc(s, 1);
printf("\");\n");
printf(" unibi_set_str(dt, unibi_%s, \"", c);
print_str_esc(s, 0);
printf("\");\n");
} else {
printf(" ok(unibi_get_str(ut, unibi_%s) == NULL, \"%s = null\");\n", c, c);
}
test_counter++;
}
say("");
say(" note(\"extended boolean capabilities\");");
{
const size_t n_ext = unibi_count_ext_bool(ut);
say(" {");
say(" const size_t n_ext = unibi_count_ext_bool(ut);");
printf(" ok(n_ext == %zu, \"#ext_bool = %zu\");\n", n_ext, n_ext);
test_counter++;
for (size_t i = 0; i < n_ext; i++) {
int b = unibi_get_ext_bool(ut, i);
const char *c = unibi_get_ext_bool_name(ut, i);
printf(" ok(%zu < n_ext && unibi_get_ext_bool(ut, %zu) == %d, \"ext_bool[%zu].value = %d\");\n", i, i, b, i, b);
test_counter++;
printf(" ok(%zu < n_ext && strcmp(unibi_get_ext_bool_name(ut, %zu), \"", i, i);
test_counter++;
print_str_esc(c, 0);
printf("\") == 0, \"ext_bool[%zu].name = \\\"%%s\\\"\", \"", i);
print_str_esc(c, 1);
printf("\");\n");
printf(" unibi_add_ext_bool(dt, \"");
print_str_esc(c, 0);
printf("\", %d);\n", b);
}
say(" }");
}
say("");
say(" note(\"extended numeric capabilities\");");
{
const size_t n_ext = unibi_count_ext_num(ut);
say(" {");
say(" const size_t n_ext = unibi_count_ext_num(ut);");
printf(" ok(n_ext == %zu, \"#ext_num = %zu\");\n", n_ext, n_ext);
test_counter++;
for (size_t i = 0; i < n_ext; i++) {
short v = unibi_get_ext_num(ut, i);
const char *c = unibi_get_ext_num_name(ut, i);
printf(" ok(%zu < n_ext && unibi_get_ext_num(ut, %zu) == %hd, \"ext_num[%zu].value = %hd\");\n", i, i, v, i, v);
test_counter++;
printf(" ok(%zu < n_ext && strcmp(unibi_get_ext_num_name(ut, %zu), \"", i, i);
test_counter++;
print_str_esc(c, 0);
printf("\") == 0, \"ext_num[%zu].name = \\\"%%s\\\"\", \"", i);
print_str_esc(c, 1);
printf("\");\n");
printf(" unibi_add_ext_num(dt, \"");
print_str_esc(c, 0);
printf("\", %hd);\n", v);
}
say(" }");
}
say("");
say(" note(\"extended string capabilities\");");
{
const size_t n_ext = unibi_count_ext_str(ut);
say(" {");
say(" const size_t n_ext = unibi_count_ext_str(ut);");
printf(" ok(n_ext == %zu, \"#ext_str = %zu\");\n", n_ext, n_ext);
test_counter++;
for (size_t i = 0; i < n_ext; i++) {
const char *s = unibi_get_ext_str(ut, i);
const char *c = unibi_get_ext_str_name(ut, i);
printf(" ok(%zu < n_ext && ", i);
if (s) {
printf("strcmp(unibi_get_ext_str(ut, %zu), \"", i);
print_str_esc(s, 0);
printf("\") == 0, \"ext_str[%zu].value = \\\"%%s\\\"\", \"", i);
print_str_esc(s, 1);
printf("\");\n");
printf(" unibi_add_ext_str(dt, \"");
print_str_esc(c, 0);
printf("\", \"");
print_str_esc(s, 0);
printf("\");\n");
} else {
printf("unibi_get_ext_str(ut, %zu) == NULL, \"ext_str[%zu].value = null\");\n", i, i);
printf(" unibi_add_ext_str(dt, \"");
print_str_esc(c, 0);
printf("\", NULL);\n");
}
test_counter++;
printf(" ok(%zu < n_ext && strcmp(unibi_get_ext_str_name(ut, %zu), \"", i, i);
test_counter++;
print_str_esc(c, 0);
printf("\") == 0, \"ext_str[%zu].name = \\\"%%s\\\"\", \"", i);
print_str_esc(c, 1);
printf("\");\n");
}
say(" }");
}
say("");
say(" {");
say(" char buf[sizeof terminfo];");
say(" size_t r = unibi_dump(ut, buf, sizeof buf);");
say(" ok(r == sizeof terminfo, \"redump size == orig size\");");
test_counter++;
say(" ok(memcmp(terminfo, buf, sizeof buf) == 0, \"redump == orig\");");
test_counter++;
say(" }");
say("");
say(" {");
say(" char buf[sizeof terminfo];");
say(" size_t r = unibi_dump(dt, buf, sizeof buf);");
say(" ok(r == sizeof terminfo, \"dummy redump size == orig size\");");
test_counter++;
say(" ok(memcmp(terminfo, buf, sizeof buf) == 0, \"dummy redump == orig\");");
test_counter++;
say(" }");
say("");
say(" unibi_destroy(ut);");
say(" ok(1, \"object destroyed\");");
test_counter++;
say("");
say(" unibi_destroy(dt);");
say(" ok(1, \"dummy object destroyed\");");
test_counter++;
say("");
say(" return 0;");
say("}");
unibi_destroy(ut);
say("");
say("static void setup(void) {");
printf(" plan(%u);\n", test_counter);
say("}");
return 0;
}