- tab_text (t, 0, r, TAB_LEFT, _("Integer Format:"));
- tab_text (t, 1, r++, TAB_LEFT,
- info.integer_format == INTEGER_MSB_FIRST ? _("Big Endian")
- : info.integer_format == INTEGER_LSB_FIRST ? _("Little Endian")
- : _("Unknown"));
-
- tab_text (t, 0, r, TAB_LEFT, _("Real Format:"));
- tab_text (t, 1, r++, TAB_LEFT,
- info.float_format == FLOAT_IEEE_DOUBLE_LE ? _("IEEE 754 LE.")
- : info.float_format == FLOAT_IEEE_DOUBLE_BE ? _("IEEE 754 BE.")
- : info.float_format == FLOAT_VAX_D ? _("VAX D.")
- : info.float_format == FLOAT_VAX_G ? _("VAX G.")
- : info.float_format == FLOAT_Z_LONG ? _("IBM 390 Hex Long.")
- : _("Unknown"));
-
- tab_text (t, 0, r, TAB_LEFT, _("Variables:"));
- tab_text_format (t, 1, r++, TAB_LEFT, "%zu", dict_get_var_cnt (d));
-
- tab_text (t, 0, r, TAB_LEFT, _("Cases:"));
- if (info.case_cnt == -1)
- tab_text (t, 1, r, TAB_LEFT, _("Unknown"));
- else
- tab_text_format (t, 1, r, TAB_LEFT, "%ld", (long int) info.case_cnt);
- r++;
-
- tab_text (t, 0, r, TAB_LEFT, _("Type:"));
- tab_text (t, 1, r++, TAB_LEFT, gettext (info.klass->name));
-
- tab_text (t, 0, r, TAB_LEFT, _("Weight:"));
- {
- struct variable *weight_var = dict_get_weight (d);
- tab_text (t, 1, r++, TAB_LEFT,
- (weight_var != NULL
- ? var_get_name (weight_var) : _("Not weighted.")));
- }
-
- tab_text (t, 0, r, TAB_LEFT, _("Compression:"));
- tab_text_format (t, 1, r++, TAB_LEFT,
- info.compression == ANY_COMP_NONE ? _("None")
- : info.compression == ANY_COMP_SIMPLE ? "SAV"
- : "ZSAV");
-
- tab_text (t, 0, r, TAB_LEFT, _("Encoding:"));
- tab_text (t, 1, r++, TAB_LEFT, dict_get_encoding (d));
-
- tab_submit (t);
-
- t = tab_create (3, 1);
- tab_headers (t, 0, 0, 1, 0);
- tab_text (t, 0, 0, TAB_LEFT | TAT_TITLE, _("Variable"));
- tab_text (t, 1, 0, TAB_LEFT | TAT_TITLE, _("Description"));
- tab_text (t, 2, 0, TAB_LEFT | TAT_TITLE, _("Position"));
- tab_hline (t, TAL_2, 0, 2, 1);
-
- table = &t->table;
- for (i = 0; i < dict_get_var_cnt (d); i++)
- table = table_vpaste (table,
- describe_variable (dict_get_var (d, i),
- DF_ALL & ~DF_AT_ATTRIBUTES));
-
- table_item_submit (table_item_create (table, NULL /* XXX */, NULL));