+ const char *format_name = "";
+
+ switch (float_format)
+ {
+ case FLOAT_IEEE_SINGLE_LE:
+ format_name = "ISL (32-bit IEEE 754 single, little-endian)";
+ break;
+ case FLOAT_IEEE_SINGLE_BE:
+ format_name = "ISB (32-bit IEEE 754 single, big-endian)";
+ break;
+ case FLOAT_IEEE_DOUBLE_LE:
+ format_name = "IDL (64-bit IEEE 754 double, little-endian)";
+ break;
+ case FLOAT_IEEE_DOUBLE_BE:
+ format_name = "IDB (64-bit IEEE 754 double, big-endian)";
+ break;
+
+ case FLOAT_VAX_F:
+ format_name = "VF (32-bit VAX F, VAX-endian)";
+ break;
+ case FLOAT_VAX_D:
+ format_name = "VD (64-bit VAX D, VAX-endian)";
+ break;
+ case FLOAT_VAX_G:
+ format_name = "VG (64-bit VAX G, VAX-endian)";
+ break;
+
+ case FLOAT_Z_SHORT:
+ format_name = "ZS (32-bit IBM Z hexadecimal short, big-endian)";
+ break;
+ case FLOAT_Z_LONG:
+ format_name = "ZL (64-bit IBM Z hexadecimal long, big-endian)";
+ break;
+
+ case FLOAT_FP:
+ case FLOAT_HEX:
+ NOT_REACHED ();
+ }
+
+ msg (SN, _("%s is %s (%s)."),
+ setting, format_name,
+ float_format == FLOAT_NATIVE_DOUBLE ? "NATIVE" : "nonnative");
+}
+
+static void
+show_rib (const struct dataset *ds UNUSED)
+{
+ show_integer_format ("RIB", settings_get_input_integer_format ());
+}
+
+static void
+show_rrb (const struct dataset *ds UNUSED)
+{
+ show_float_format ("RRB", settings_get_input_float_format ());
+}
+
+static void
+show_scompression (const struct dataset *ds UNUSED)
+{
+ if (settings_get_scompression ())