kc3-lang/harfbuzz/util/hb-info.cc

Branch - branch -main

• Show log

  Commit

• Hash : 59001aa9
  Author :
  Date : 2025-03-26T12:33:06
  

  [util] Add brief --help descriptions
  
  Part of https://github.com/harfbuzz/harfbuzz/issues/5208
  

Download

• util/hb-info.cc

• /*
   * Copyright © 2023  Behdad Esfahbod
   *
   *  This is part of HarfBuzz, a text shaping library.
   *
   * Permission is hereby granted, without written agreement and without
   * license or royalty fees, to use, copy, modify, and distribute this
   * software and its documentation for any purpose, provided that the
   * above copyright notice and the following two paragraphs appear in
   * all copies of this software.
   *
   * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR
   * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
   * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN
   * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
   * DAMAGE.
   *
   * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,
   * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
   * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
   * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO
   * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
   *
   * Google Author(s): Behdad Esfahbod
   */
  
  #include "batch.hh"
  #include "font-options.hh"
  
  #ifdef HB_HAS_GOBJECT
  #include <hb-gobject.h>
  #endif
  
  #ifdef HAVE_CHAFA
  # include <chafa.h>
  #endif
  
  const unsigned DEFAULT_FONT_SIZE = FONT_SIZE_UPEM;
  const unsigned SUBPIXEL_BITS = 0;
  
  static void
  _hb_ot_name_get_utf8 (hb_face_t       *face,
  		      hb_ot_name_id_t  name_id,
  		      hb_language_t    language,
  		      unsigned int    *text_size /* IN/OUT */,
  		      char            *text      /* OUT */)
  {
    static hb_language_t en = hb_language_from_string ("en", -1);
  
    unsigned len = *text_size;
    if (!hb_ot_name_get_utf8 (face, name_id,
  			    language,
  			    &len, text))
    {
      len = *text_size;
      hb_ot_name_get_utf8 (face, name_id,
  			 en,
  			 &len, text);
    }
    *text_size = len;
  }
  
  struct info_t :
         option_parser_t,
         font_options_t
  {
    void add_options ()
    {
      set_summary ("Query font information.");
      set_description ("Queries font file for various information. If no query option is specified, --show-all is assumed.");
  
      font_options_t::add_options (this);
  
      GOptionEntry misc_entries[] =
      {
        {"direction",	0, 0, G_OPTION_ARG_STRING,	&this->direction_str,		"Set direction (default: ltr)",		"ltr/rtl/ttb/btt"},
        {"script",	0, 0, G_OPTION_ARG_STRING,	&this->script_str,		"Set script (default: none)",		"ISO-15924 tag; eg. 'Latn'"},
        {"language",	0, 0, G_OPTION_ARG_STRING,	&this->language_str,		"Set language (default: $LANG)",	"BCP 47 tag; eg. 'en'"},
        {"ot-script",	0, 0, G_OPTION_ARG_STRING,	&this->ot_script_str,		"Set OpenType script tag (default: none)","tag; eg. 'latn'"},
        {"ot-language",	0, 0, G_OPTION_ARG_STRING,	&this->ot_language_str,		"Set OpenType language tag (default: none)",	"tag; eg. 'ENG'"},
  
        {nullptr}
      };
      add_group (misc_entries,
  	       "misc",
  	       "Miscellaneous options:",
  	       "Miscellaneous options affecting queries",
  	       this,
  	       false /* We add below. */);
  
      GOptionEntry query_entries[] =
      {
        {"all",		'a', 0, G_OPTION_ARG_NONE,	&this->all,			"Show everything",		nullptr},
  
        {"show-all",	0, 0, G_OPTION_ARG_NONE,	&this->show_all,		"Show all short information (default)",	nullptr},
        {"show-face-count",0, 0, G_OPTION_ARG_NONE,	&this->show_face_count,		"Show face count",		nullptr},
        {"show-family",	0, 0, G_OPTION_ARG_NONE,	&this->show_family,		"Show family name",		nullptr},
        {"show-subfamily",0, 0, G_OPTION_ARG_NONE,	&this->show_subfamily,		"Show subfamily name",		nullptr},
        {"show-unique-name",0, 0, G_OPTION_ARG_NONE,	&this->show_unique_name,	"Show unique name",		nullptr},
        {"show-full-name",0, 0, G_OPTION_ARG_NONE,	&this->show_full_name,		"Show full name",		nullptr},
        {"show-postscript-name",0, 0, G_OPTION_ARG_NONE,	&this->show_postscript_name,	"Show Postscript name",		nullptr},
        {"show-version",	0, 0, G_OPTION_ARG_NONE,	&this->show_version,		"Show version",			nullptr},
        {"show-technology",0, 0, G_OPTION_ARG_NONE,	&this->show_technology,		"Show technology",		nullptr},
        {"show-unicode-count",0, 0, G_OPTION_ARG_NONE,	&this->show_unicode_count,	"Show Unicode count",		nullptr},
        {"show-glyph-count",0, 0, G_OPTION_ARG_NONE,	&this->show_glyph_count,	"Show glyph count",		nullptr},
        {"show-upem",	0, 0, G_OPTION_ARG_NONE,	&this->show_upem,		"Show Units-Per-EM",		nullptr},
        {"show-extents",	0, 0, G_OPTION_ARG_NONE,	&this->show_extents,		"Show extents",			nullptr},
  
        {"get-name",	0, 0, G_OPTION_ARG_STRING_ARRAY,&this->get_name,		"Get name",			"name id; eg. '13'"},
        {"get-style",	0, 0, G_OPTION_ARG_STRING_ARRAY,&this->get_style,		"Get style",			"style tag; eg. 'wght'"},
        {"get-metric",	0, 0, G_OPTION_ARG_STRING_ARRAY,&this->get_metric,		"Get metric",			"metric tag; eg. 'hasc'"},
        {"get-baseline",	0, 0, G_OPTION_ARG_STRING_ARRAY,&this->get_baseline,		"Get baseline",			"baseline tag; eg. 'hang'"},
        {"get-meta",	0, 0, G_OPTION_ARG_STRING_ARRAY,&this->get_meta,		"Get meta information",		"tag tag; eg. 'dlng'"},
        {"get-table",	0, 0, G_OPTION_ARG_STRING,	&this->get_table,		"Get font table",		"table tag; eg. 'cmap'"},
  
        {"list-all",	0, 0, G_OPTION_ARG_NONE,	&this->list_all,		"List all long information",	nullptr},
        {"list-names",	0, 0, G_OPTION_ARG_NONE,	&this->list_names,		"List names",			nullptr},
  #ifdef HB_HAS_GOBJECT
        {"list-style",	0, 0, G_OPTION_ARG_NONE,	&this->list_style,		"List style",			nullptr},
        {"list-metrics",	0, 0, G_OPTION_ARG_NONE,	&this->list_metrics,		"List metrics",			nullptr},
        {"list-baselines",0, 0, G_OPTION_ARG_NONE,	&this->list_baselines,		"List baselines",		nullptr},
  #endif
        {"list-tables",	'l', 0, G_OPTION_ARG_NONE,	&this->list_tables,		"List tables",			nullptr},
        {"list-unicodes",	0, 0, G_OPTION_ARG_NONE,	&this->list_unicodes,		"List characters",		nullptr},
        {"list-glyphs",	0, 0, G_OPTION_ARG_NONE,	&this->list_glyphs,		"List glyphs",			nullptr},
        {"list-scripts",	0, 0, G_OPTION_ARG_NONE,	&this->list_scripts,		"List layout scripts",		nullptr},
        {"list-features",	0, 0, G_OPTION_ARG_NONE,	&this->list_features,		"List layout features",		nullptr},
  #ifndef HB_NO_VAR
        {"list-variations",0, 0, G_OPTION_ARG_NONE,	&this->list_variations,		"List variations",		nullptr},
  #endif
        {"list-palettes",	0, 0, G_OPTION_ARG_NONE,	&this->list_palettes,		"List color palettes",		nullptr},
        {"list-meta",	0, 0, G_OPTION_ARG_NONE,	&this->list_meta,		"List meta information",	nullptr},
  
        {nullptr}
      };
      add_group (query_entries,
  	       "query",
  	       "Query options:",
  	       "Options to query the font instance",
  	       this,
  	       true);
  
      GOptionEntry entries[] =
      {
        {"quiet",		'q', G_OPTION_FLAG_REVERSE, G_OPTION_ARG_NONE,	&this->verbose,	"Generate machine-readable output",	nullptr},
        {G_OPTION_REMAINING,	0, G_OPTION_FLAG_IN_MAIN,
  				G_OPTION_ARG_CALLBACK,	(gpointer) &collect_rest,	nullptr,	"[FONT-FILE]"},
        {nullptr}
      };
      add_main_group (entries, this);
  
      option_parser_t::add_options ();
    }
  
    static gboolean
    collect_rest (const char *name G_GNUC_UNUSED,
  		const char *arg,
  		gpointer    data,
  		GError    **error)
    {
      info_t *thiz = (info_t *) data;
  
      if (!thiz->font_file)
      {
        thiz->font_file = g_strdup (arg);
        return true;
      }
  
      g_set_error (error, G_OPTION_ERROR, G_OPTION_ERROR_FAILED,
  		 "Too many arguments on the command line");
      return false;
    }
  
  
    protected:
  
    hb_bool_t verbose = true;
    hb_bool_t first_item = true;
  
    char *direction_str = nullptr;
    char *script_str = nullptr;
    char *language_str = nullptr;
    hb_direction_t direction = HB_DIRECTION_LTR;
    hb_script_t script = HB_SCRIPT_INVALID;
    hb_language_t language = HB_LANGUAGE_INVALID;
    char *ot_script_str = nullptr;
    char *ot_language_str = nullptr;
  
    hb_bool_t all = false;
  
    hb_bool_t show_all = false;
    hb_bool_t show_face_count = false;
    hb_bool_t show_family = false;
    hb_bool_t show_subfamily = false;
    hb_bool_t show_unique_name = false;
    hb_bool_t show_full_name = false;
    hb_bool_t show_postscript_name = false;
    hb_bool_t show_version = false;
    hb_bool_t show_technology = false;
    hb_bool_t show_unicode_count = false;
    hb_bool_t show_glyph_count = false;
    hb_bool_t show_upem = false;
    hb_bool_t show_extents = false;
  
    char **get_name = nullptr;
    char **get_style = nullptr;
    char **get_metric = nullptr;
    char **get_baseline = nullptr;
    char **get_meta = nullptr;
    char *get_table = nullptr;
  
    hb_bool_t list_all = false;
    hb_bool_t list_names = false;
  #ifdef HB_HAS_GOBJECT
    hb_bool_t list_style = false;
    hb_bool_t list_metrics = false;
    hb_bool_t list_baselines = false;
  #endif
    hb_bool_t list_tables = false;
    hb_bool_t list_unicodes = false;
    hb_bool_t list_glyphs = false;
    hb_bool_t list_scripts = false;
    hb_bool_t list_features = false;
  #ifndef HB_NO_VAR
    hb_bool_t list_variations = false;
  #endif
    hb_bool_t list_palettes = false;
    hb_bool_t list_meta = false;
  
    public:
  
    void
    post_parse (GError **error)
    {
      if (direction_str)
        direction = hb_direction_from_string (direction_str, -1);
      if (script_str)
        script = hb_script_from_string (script_str, -1);
      language = hb_language_get_default ();
      if (language_str)
        language = hb_language_from_string (language_str, -1);
    }
  
    int
    operator () (int argc, char **argv)
    {
      add_options ();
  
      parse (&argc, &argv);
  
      if (all)
      {
        show_all =
        list_all =
        true;
      }
  
  retry:
      if (show_all)
      {
        show_face_count =
        show_family =
        show_subfamily =
        show_unique_name =
        show_full_name =
        show_postscript_name =
        show_version =
        show_technology =
        show_unicode_count =
        show_glyph_count =
        show_upem =
        show_extents =
        true;
        first_item = false;
      }
  
      if (list_all)
      {
        list_names =
  #ifdef HB_HAS_GOBJECT
        list_style =
        list_metrics =
        list_baselines =
  #endif
        list_tables =
        list_unicodes =
        list_glyphs =
        list_scripts =
        list_features =
  #ifndef HB_NO_VAR
        list_variations =
  #endif
        list_palettes =
        list_meta =
        true;
      }
  
      bool done_something = false;
  
  #define process_item(item) HB_STMT_START { if (item) { done_something = true; _##item (); } } HB_STMT_END
  
      process_item (show_face_count);
      process_item (show_family);
      process_item (show_subfamily);
      process_item (show_unique_name);
      process_item (show_full_name);
      process_item (show_postscript_name);
      process_item (show_version);
      process_item (show_technology);
      process_item (show_unicode_count);
      process_item (show_glyph_count);
      process_item (show_upem);
      process_item (show_extents);
  
      process_item (get_name);
      process_item (get_style);
      process_item (get_metric);
      process_item (get_baseline);
      process_item (get_meta);
      process_item (get_table);
  
      process_item (list_names);
  #ifdef HB_HAS_GOBJECT
      process_item (list_style);
      process_item (list_metrics);
      process_item (list_baselines);
  #endif
      process_item (list_tables);
      process_item (list_unicodes);
      process_item (list_glyphs);
      process_item (list_scripts);
      process_item (list_features);
  #ifndef HB_NO_VAR
      process_item (list_variations);
  #endif
      process_item (list_palettes);
      process_item (list_meta);
  
      if (!done_something)
      {
        show_all = true;
        goto retry;
      }
  
      return 0;
    }
  
    protected:
  
    void separator ()
    {
      if (first_item)
      {
        first_item = false;
        return;
      }
      printf ("\n===\n\n");
    }
  
    void
    _show_face_count ()
    {
      hb_blob_t *blob = hb_blob_create_from_file (font_file);
      printf ("Face count: %u\n", hb_face_count (blob));
      hb_blob_destroy (blob);
    }
  
    void
    _show_name (const char *label, hb_ot_name_id_t name_id)
    {
      if (verbose)
      {
        printf ("%s: ", label);
      }
  
      char name[16384];
      unsigned name_len = sizeof name;
      _hb_ot_name_get_utf8 (face, name_id,
  			  language,
  			  &name_len, name);
  
      printf ("%s\n", name);
    }
    void _show_family ()		{ _show_name ("Family", 1); }
    void _show_subfamily ()
    {
      hb_ot_name_id_t name_id = 2;
  
      unsigned named_instance = hb_font_get_var_named_instance (font);
      if (named_instance != HB_FONT_NO_VAR_NAMED_INSTANCE)
        name_id = hb_ot_var_named_instance_get_subfamily_name_id (face, named_instance);
  
      _show_name ("Subfamily", name_id);
    }
    void _show_unique_name ()	{ _show_name ("Unique name", 3); }
    void _show_full_name ()	{ _show_name ("Full name", 4); }
    void _show_postscript_name ()
    {
      hb_ot_name_id_t name_id = 6;
  
      unsigned named_instance = hb_font_get_var_named_instance (font);
      if (named_instance != HB_FONT_NO_VAR_NAMED_INSTANCE)
        name_id = hb_ot_var_named_instance_get_postscript_name_id (face, named_instance);
  
  
      _show_name ("Postscript name", name_id);
    }
    void _show_version ()		{ _show_name ("Version", 5); }
  
    bool _has_blob (hb_tag_t tag)
    {
      hb_blob_t *blob = hb_face_reference_table (face, tag);
      bool ret = hb_blob_get_length (blob);
      hb_blob_destroy (blob);
      return ret;
    }
  
    void _show_technology ()
    {
      if (_has_blob (HB_TAG('g','l','y','f')))
        printf ("Has TrueType outlines\n");
      if (_has_blob (HB_TAG('C','F','F',' ')) || _has_blob (HB_TAG('C','F','F','2')))
        printf ("Has Postscript outlines\n");
  
      if (_has_blob (HB_TAG('f','p','g','m')) || _has_blob (HB_TAG('p','r','e','p')) || _has_blob (HB_TAG('c','v','t',' ')))
        printf ("Has TrueType hinting\n");
  
      if (_has_blob (HB_TAG('G','S','U','B')) || _has_blob (HB_TAG('G','P','O','S')))
        printf ("Has OpenType layout\n");
      if (_has_blob (HB_TAG('m','o','r','x')) || _has_blob (HB_TAG('k','e','r','x')))
        printf ("Has AAT layout\n");
      if (_has_blob (HB_TAG('S','i','l','f')))
        printf ("Has Graphite layout\n");
      if (_has_blob (HB_TAG('W','a','s','m')))
        printf ("Has WebAssembly layout\n");
      if (_has_blob (HB_TAG('k','e','r','n')))
        printf ("Has legacy kerning\n");
  
      if (_has_blob (HB_TAG('E','B','D','T')))
        printf ("Has monochrome bitmaps\n");
  
      if (_has_blob (HB_TAG('C','B','D','T')) || _has_blob (HB_TAG('s','b','i','x')))
        printf ("Has color bitmaps\n");
      if (_has_blob (HB_TAG('S','V','G',' ')))
        printf ("Has color SVGs\n");
      if (_has_blob (HB_TAG('C','O','L','R')))
        printf ("Has color paintings\n");
  
      if (_has_blob (HB_TAG('f','v','a','r')))  printf ("Has variations\n");
    }
  
    void _show_unicode_count ()
    {
      if (verbose)
      {
        printf ("Unicode count: ");
      }
  
      hb_set_t *unicodes = hb_set_create ();
      hb_face_collect_unicodes (face, unicodes);
  
      printf ("%u\n", hb_set_get_population (unicodes));
  
      hb_set_destroy (unicodes);
    }
  
    void _show_glyph_count ()
    {
      if (verbose)
      {
        printf ("Glyph count: ");
      }
  
      printf ("%u\n", hb_face_get_glyph_count (face));
    }
  
    void _show_upem ()
    {
      if (verbose)
      {
        printf ("Units-Per-EM: ");
      }
  
      printf ("%u\n", hb_face_get_upem (face));
    }
  
    void _show_extents ()
    {
      hb_font_extents_t extents;
      hb_font_get_extents_for_direction (font, direction, &extents);
  
      if (verbose) printf ("Ascender: ");
      printf ("%d\n", extents.ascender);
  
      if (verbose) printf ("Descender: ");
      printf ("%d\n", extents.descender);
  
      if (verbose) printf ("Line gap: ");
      printf ("%d\n", extents.line_gap);
    }
  
    void _get_name ()
    {
      for (char **p = get_name; *p; p++)
      {
        hb_ot_name_id_t name_id = (hb_ot_name_id_t) atoi (*p);
        _show_name (*p, name_id);
      }
    }
  
    void _get_style ()
    {
      for (char **p = get_style; *p; p++)
      {
        hb_style_tag_t tag = (hb_style_tag_t) hb_tag_from_string (*p, -1);
  
        if (verbose)
  	printf ("Style %c%c%c%c: ", HB_UNTAG (tag));
  
        float v = hb_style_get_value (font, tag);
        printf ("%g\n", (double) v);
      }
    }
  
    void _get_metric ()
    {
      bool fallback = false;
      for (char **p = get_metric; *p; p++)
      {
        hb_ot_metrics_tag_t tag = (hb_ot_metrics_tag_t) hb_tag_from_string (*p, -1);
        hb_position_t position;
  
        if (verbose)
  	printf ("Metric %c%c%c%c: ", HB_UNTAG (tag));
  
        if (hb_ot_metrics_get_position (font, tag, &position))
  	printf ("%d	\n", position);
        else
        {
  	hb_ot_metrics_get_position_with_fallback (font, tag, &position);
  	printf ("%d	*\n", position);
  	fallback = true;
        }
      }
  
      if (verbose && fallback)
      {
        printf ("\n[*] Fallback value\n");
      }
    }
  
    void _get_baseline ()
    {
      hb_tag_t script_tags[HB_OT_MAX_TAGS_PER_SCRIPT];
      hb_tag_t language_tags[HB_OT_MAX_TAGS_PER_LANGUAGE];
      unsigned script_count = HB_OT_MAX_TAGS_PER_SCRIPT;
      unsigned language_count = HB_OT_MAX_TAGS_PER_LANGUAGE;
  
      hb_ot_tags_from_script_and_language (script, language,
  					 &script_count, script_tags,
  					 &language_count, language_tags);
  
      hb_tag_t script_tag = script_count ? script_tags[script_count - 1] : HB_TAG_NONE;
      hb_tag_t language_tag = language_count ? language_tags[0] : HB_TAG_NONE;
  
      if (ot_script_str)
        script_tag = hb_tag_from_string (ot_script_str, -1);
      if (ot_language_str)
        language_tag = hb_tag_from_string (ot_language_str, -1);
  
  
      bool fallback = false;
      for (char **p = get_baseline; *p; p++)
      {
        hb_ot_layout_baseline_tag_t tag = (hb_ot_layout_baseline_tag_t) hb_tag_from_string (*p, -1);
        hb_position_t position;
  
        if (verbose)
  	printf ("Baseline %c%c%c%c: ", HB_UNTAG (tag));
  
        if (hb_ot_layout_get_baseline (font, tag, direction, script_tag, language_tag, &position))
  	printf ("%d	\n", position);
        else
        {
  	hb_ot_layout_get_baseline_with_fallback (font, tag, direction, script_tag, language_tag, &position);
  	printf ("%d	*\n", position);
  	fallback = true;
        }
      }
  
      if (verbose && fallback)
      {
        printf ("\n[*] Fallback value\n");
      }
    }
  
    void _get_meta ()
    {
      for (char **p = get_meta; *p; p++)
      {
        hb_ot_meta_tag_t tag = (hb_ot_meta_tag_t) hb_tag_from_string (*p, -1);
  
        hb_blob_t *blob = hb_ot_meta_reference_entry (face, tag);
  
        if (verbose)
  	printf ("Meta %c%c%c%c: ", HB_UNTAG (tag));
  
        printf ("%.*s\n",
  	      (int) hb_blob_get_length (blob),
  	      hb_blob_get_data (blob, nullptr));
  
        hb_blob_destroy (blob);
      }
    }
  
    void
    _get_table ()
    {
      hb_blob_t *blob = hb_face_reference_table (face, hb_tag_from_string (get_table, -1));
      unsigned count = 0;
      const char *data = hb_blob_get_data (blob, &count);
      fwrite (data, 1, count, stdout);
      hb_blob_destroy (blob);
    }
  
    void _list_names ()
    {
      if (verbose)
      {
        separator ();
        printf ("Name information:\n\n");
        printf ("Id: Name			Text\n------------------------------------\n");
      }
  
  #ifdef HB_HAS_GOBJECT
      GEnumClass *enum_class = (GEnumClass *) g_type_class_ref ((GType) HB_GOBJECT_TYPE_OT_NAME_ID_PREDEFINED);
  #endif
  
      unsigned count;
      const auto *entries = hb_ot_name_list_names (face, &count);
      for (unsigned i = 0; i < count; i++)
      {
        char name[16384];
        unsigned name_len = sizeof name;
        _hb_ot_name_get_utf8 (face, entries[i].name_id,
  			    language,
  			    &name_len, name);
  
  #ifdef HB_HAS_GOBJECT
        if (verbose)
        {
  	GEnumValue *enum_value = g_enum_get_value (enum_class, entries[i].name_id);
  	printf ("%u: %-27s	%s\n", entries[i].name_id, enum_value ? enum_value->value_nick : "", name);
        }
        else
  #endif
  	printf ("%u	%s\n", entries[i].name_id, name);
      }
    }
  
  #ifdef HB_HAS_GOBJECT
    void _list_style ()
    {
      if (verbose)
      {
        separator ();
        printf ("Style information:\n\n");
        printf ("Tag:  Name				Value\n---------------------------------------------\n");
      }
  
      GEnumClass *enum_class = (GEnumClass *) g_type_class_ref ((GType) HB_GOBJECT_TYPE_STYLE_TAG);
  
      unsigned count = enum_class->n_values;
      const auto *entries = enum_class->values;
      for (unsigned i = 0; i < count; i++)
      {
  	float v = hb_style_get_value (font, (hb_style_tag_t) entries[i].value);
  	printf ("%c%c%c%c", HB_UNTAG(entries[i].value));
  	if (verbose)
  	  printf (": %-33s", entries[i].value_nick);
  	printf ("	%g\n", (double) v);
      }
    }
  
    void _list_metrics ()
    {
      if (verbose)
      {
        separator ();
        printf ("Metrics information:\n\n");
        printf ("Tag:  Name				Value\n---------------------------------------------\n");
      }
  
      GEnumClass *enum_class = (GEnumClass *) g_type_class_ref ((GType) HB_GOBJECT_TYPE_OT_METRICS_TAG);
  
      bool any_fallback = false;
  
      unsigned count = enum_class->n_values;
      const auto *entries = enum_class->values;
      for (unsigned i = 0; i < count; i++)
      {
  	bool fallback = false;
  	hb_position_t v;
  	if (!hb_ot_metrics_get_position (font,
  					(hb_ot_metrics_tag_t) entries[i].value,
  					&v))
  	{
  	  hb_ot_metrics_get_position_with_fallback (font,
  						    (hb_ot_metrics_tag_t) entries[i].value,
  						    &v);
  	  any_fallback = fallback = true;
  	}
  	printf ("%c%c%c%c", HB_UNTAG(entries[i].value));
  	if (verbose)
  	  printf (": %-33s", entries[i].value_nick);
  	printf ("	%d	", v);
  
  	if (fallback)
  	  printf ("*");
  	printf ("\n");
      }
  
      if (verbose && any_fallback)
      {
        printf ("\n[*] Fallback value\n");
      }
    }
  
    void _list_baselines ()
    {
      hb_tag_t script_tags[HB_OT_MAX_TAGS_PER_SCRIPT];
      hb_tag_t language_tags[HB_OT_MAX_TAGS_PER_LANGUAGE];
      unsigned script_count = HB_OT_MAX_TAGS_PER_SCRIPT;
      unsigned language_count = HB_OT_MAX_TAGS_PER_LANGUAGE;
  
      hb_ot_tags_from_script_and_language (script, language,
  					 &script_count, script_tags,
  					 &language_count, language_tags);
  
      hb_tag_t script_tag = script_count ? script_tags[script_count - 1] : HB_TAG_NONE;
      hb_tag_t language_tag = language_count ? language_tags[0] : HB_TAG_NONE;
  
      if (ot_script_str)
        script_tag = hb_tag_from_string (ot_script_str, -1);
      if (ot_language_str)
        language_tag = hb_tag_from_string (ot_language_str, -1);
  
  
      if (verbose)
      {
        separator ();
        printf ("Baselines information:\n\n");
        printf ("Tag:  Name				Value\n---------------------------------------------\n");
      }
  
      GEnumClass *enum_class = (GEnumClass *) g_type_class_ref ((GType) HB_GOBJECT_TYPE_OT_LAYOUT_BASELINE_TAG);
  
      bool any_fallback = false;
  
      unsigned count = enum_class->n_values;
      const auto *entries = enum_class->values;
      for (unsigned i = 0; i < count; i++)
      {
  	bool fallback = false;
  	hb_position_t v;
  	if (!hb_ot_layout_get_baseline (font, (hb_ot_layout_baseline_tag_t) entries[i].value,
  					direction, script_tag, language_tag,
  					&v))
  	{
  	  hb_ot_layout_get_baseline_with_fallback (font, (hb_ot_layout_baseline_tag_t) entries[i].value,
  						   direction, script_tag, language_tag,
  						   &v);
  	  any_fallback = fallback = true;
  	}
  	printf ("%c%c%c%c", HB_UNTAG(entries[i].value));
  	if (verbose)
  	  printf (": %-33s", entries[i].value_nick);
  	printf ("	%d	", v);
  
  	if (fallback)
  	  printf ("*");
  	printf ("\n");
      }
  
      if (verbose && any_fallback)
      {
        printf ("\n[*] Fallback value\n");
      }
    }
  #endif
  
    void _list_tables ()
    {
      if (verbose)
      {
        separator ();
        printf ("Table information:\n\n");
        printf ("Tag	Size\n------------\n");
      }
  
      unsigned count = hb_face_get_table_tags (face, 0, nullptr, nullptr);
      hb_tag_t *tags = (hb_tag_t *) calloc (count, sizeof (hb_tag_t));
      hb_face_get_table_tags (face, 0, &count, tags);
  
      for (unsigned i = 0; i < count; i++)
      {
        hb_tag_t tag = tags[i];
  
        hb_blob_t *blob = hb_face_reference_table (face, tag);
  
        printf ("%c%c%c%c %8u bytes\n", HB_UNTAG (tag), hb_blob_get_length (blob));
  
        hb_blob_destroy (blob);
      }
  
      free (tags);
    }
  
    void
    _list_unicodes ()
    {
      if (verbose)
      {
        separator ();
        printf ("Character-set information:\n\n");
        printf ("Unicode	Glyph name\n------------------\n");
      }
  
      hb_set_t *unicodes = hb_set_create ();
      hb_map_t *cmap = hb_map_create ();
  
      hb_face_collect_nominal_glyph_mapping (face, cmap, unicodes);
  
      for (hb_codepoint_t u = HB_SET_VALUE_INVALID;
  	 hb_set_next (unicodes, &u);)
      {
        hb_codepoint_t gid = hb_map_get (cmap, u);
  
        char glyphname[128];
        hb_font_glyph_to_string (font, gid,
  			       glyphname, sizeof glyphname);
  
        printf ("U+%04X	%s\n", u, glyphname);
      }
  
      hb_map_destroy (cmap);
  
  
      /* List variation-selector sequences. */
      hb_set_t *vars = hb_set_create ();
  
      hb_face_collect_variation_selectors (face, vars);
  
      for (hb_codepoint_t vs = HB_SET_VALUE_INVALID;
  	 hb_set_next (vars, &vs);)
      {
        hb_set_clear (unicodes);
        hb_face_collect_variation_unicodes (face, vs, unicodes);
  
        for (hb_codepoint_t u = HB_SET_VALUE_INVALID;
  	   hb_set_next (unicodes, &u);)
        {
  	hb_codepoint_t gid = 0;
  	HB_UNUSED bool b = hb_font_get_variation_glyph (font, u, vs, &gid);
  	assert (b);
  
  	char glyphname[128];
  	hb_font_glyph_to_string (font, gid,
  				 glyphname, sizeof glyphname);
  
  	printf ("U+%04X,U+%04X	%s\n", vs, u, glyphname);
        }
      }
  
      hb_set_destroy (vars);
      hb_set_destroy (unicodes);
    }
  
    void
    _list_glyphs ()
    {
      if (verbose)
      {
        separator ();
        printf ("Glyph-set information:\n\n");
        printf ("GlyphID	Glyph name\n------------------\n");
      }
  
      unsigned num_glyphs = hb_face_get_glyph_count (face);
  
      for (hb_codepoint_t gid = 0; gid < num_glyphs; gid++)
      {
        char glyphname[128];
        hb_font_glyph_to_string (font, gid,
  			       glyphname, sizeof glyphname);
  
        printf ("%u	%s\n", gid, glyphname);
      }
    }
  
    void
    _list_scripts ()
    {
      if (verbose)
      {
        separator ();
        printf ("Layout script information:\n\n");
      }
  
      hb_tag_t table_tags[] = {HB_OT_TAG_GSUB, HB_OT_TAG_GPOS, HB_TAG_NONE};
  
      for (unsigned int i = 0; table_tags[i]; i++)
      {
        if (verbose) printf ("Table: ");
        printf ("%c%c%c%c\n", HB_UNTAG (table_tags[i]));
  
        hb_tag_t script_array[32];
        unsigned script_count = sizeof script_array / sizeof script_array[0];
        unsigned script_offset = 0;
        do
        {
  	hb_ot_layout_table_get_script_tags (face, table_tags[i],
  					    script_offset,
  					    &script_count,
  					    script_array);
  
  	for (unsigned script_index = 0; script_index < script_count; script_index++)
  	{
  	  printf ("	");
  	  if (verbose) printf ("Script: ");
  
  	  hb_tag_t hb_sc = hb_script_to_iso15924_tag (hb_ot_tag_to_script (script_array[script_index]));
  	  if (script_array[script_index] == HB_TAG ('D','F','L','T'))
  	    hb_sc = HB_SCRIPT_COMMON;
  
  	  printf ("%c%c%c%c (%c%c%c%c)\n",
  		  HB_UNTAG (hb_sc),
  		  HB_UNTAG (script_array[script_index]));
  
  	  hb_tag_t language_array[32];
  	  unsigned language_count = sizeof language_array / sizeof language_array[0];
  	  unsigned language_offset = 0;
  	  do
  	  {
  	    hb_ot_layout_script_get_language_tags (face, table_tags[i],
  						   script_offset + script_index,
  						   language_offset,
  						   &language_count,
  						   language_array);
  
  	    for (unsigned language_index = 0; language_index < language_count; language_index++)
  	    {
  	      printf ("		");
  	      if (verbose) printf ("Language: ");
  	      printf ("%s (%c%c%c%c)\n",
  		      hb_language_to_string (hb_ot_tag_to_language (language_array[language_index])),
  		      HB_UNTAG (language_array[language_index]));
  	    }
  
  	    language_offset += language_count;
  	  }
  	  while (language_count == sizeof language_array / sizeof language_array[0]);
  	}
  
  	script_offset += script_count;
        }
        while (script_count == sizeof script_array / sizeof script_array[0]);
  
      }
  
    }
  
    void
    _list_features_no_script ()
    {
      if (verbose)
      {
        printf ("Showing all font features with duplicates removed.\n\n");
      }
  
      hb_tag_t table_tags[] = {HB_OT_TAG_GSUB, HB_OT_TAG_GPOS, HB_TAG_NONE};
  
      hb_set_t *features = hb_set_create ();
  
      for (unsigned int i = 0; table_tags[i]; i++)
      {
        if (verbose) printf ("Table: ");
        printf ("%c%c%c%c\n", HB_UNTAG (table_tags[i]));
  
        hb_set_clear (features);
        hb_tag_t feature_array[32];
        unsigned feature_count = sizeof feature_array / sizeof feature_array[0];
        unsigned feature_offset = 0;
        do
        {
  	hb_ot_layout_table_get_feature_tags (face, table_tags[i],
  					     feature_offset,
  					     &feature_count,
  					     feature_array);
  
  	for (unsigned feature_index = 0; feature_index < feature_count; feature_index++)
  	{
  	  if (hb_set_has (features, feature_array[feature_index]))
  	    continue;
  	  hb_set_add (features, feature_array[feature_index]);
  
  	  hb_ot_name_id_t label_id;
  
  	  hb_ot_layout_feature_get_name_ids (face,
  					     table_tags[i],
  					     feature_offset + feature_index,
  					     &label_id,
  					     nullptr,
  					     nullptr,
  					     nullptr,
  					     nullptr);
  
  	  char name[128];
  	  unsigned name_len = sizeof name;
  
  	  _hb_ot_name_get_utf8 (face, label_id,
  				language,
  				&name_len, name);
  
  	  printf ("	");
  	  if (verbose) printf ("Feature: ");
  	  printf ("%c%c%c%c", HB_UNTAG (feature_array[feature_index]));
  
  	  if (*name)
  	    printf ("	%s", name);
  
  	  printf ("\n");
  	}
  
  	feature_offset += feature_count;
        }
        while (feature_count == sizeof feature_array / sizeof feature_array[0]);
      }
  
      hb_set_destroy (features);
    }
  
    void
    _list_features ()
    {
      if (verbose)
      {
        separator ();
        printf ("Layout features information:\n\n");
      }
  
      hb_tag_t table_tags[] = {HB_OT_TAG_GSUB, HB_OT_TAG_GPOS, HB_TAG_NONE};
  
      if (script == HB_SCRIPT_INVALID && !ot_script_str)
      {
        _list_features_no_script ();
        return;
      }
  
      for (unsigned int i = 0; table_tags[i]; i++)
      {
        if (verbose) printf ("Table: ");
        printf ("%c%c%c%c\n", HB_UNTAG (table_tags[i]));
  
        auto table_tag = table_tags[i];
  
        hb_tag_t script_tags[HB_OT_MAX_TAGS_PER_SCRIPT];
        hb_tag_t language_tags[HB_OT_MAX_TAGS_PER_LANGUAGE];
        unsigned script_count = HB_OT_MAX_TAGS_PER_SCRIPT;
        unsigned language_count = HB_OT_MAX_TAGS_PER_LANGUAGE;
  
        hb_ot_tags_from_script_and_language (script, language,
  					   &script_count, script_tags,
  					   &language_count, language_tags);
  
        if (ot_script_str)
        {
  	script_tags[0] = hb_tag_from_string (ot_script_str, -1);
  	script_count = 1;
        }
        if (ot_language_str)
        {
  	language_tags[0] = hb_tag_from_string (ot_language_str, -1);
  	language_count = 1;
        }
  
        unsigned script_index;
        hb_tag_t chosen_script;
        hb_ot_layout_table_select_script (face, table_tag,
  					script_count, script_tags,
  					&script_index, &chosen_script);
  
        unsigned language_index;
        hb_tag_t chosen_language;
        hb_ot_layout_script_select_language2 (face, table_tag,
  					   script_index,
  					   language_count, language_tags,
  					   &language_index, &chosen_language);
  
        if (verbose)
        {
          if (chosen_script)
  	{
  	  printf ("	Script: %c%c%c%c\n", HB_UNTAG (chosen_script));
  	  if (chosen_language)
  	    printf ("	Language: %c%c%c%c\n", HB_UNTAG (chosen_language));
  	  else
  	    printf ("	Language: Default\n");
  	}
        }
  
        unsigned feature_array[32];
        unsigned feature_count = sizeof feature_array / sizeof feature_array[0];
        unsigned feature_offset = 0;
        do
        {
  	hb_ot_layout_language_get_feature_indexes (face, table_tag,
  						   script_index, language_index,
  						   feature_offset,
  						   &feature_count,
  						   feature_array);
  
  	for (unsigned feature_index = 0; feature_index < feature_count; feature_index++)
  	{
  	  hb_ot_name_id_t label_id;
  
  	  hb_ot_layout_feature_get_name_ids (face,
  					     table_tags[i],
  					     feature_array[feature_index],
  					     &label_id,
  					     nullptr,
  					     nullptr,
  					     nullptr,
  					     nullptr);
  
  	  char name[128];
  	  unsigned name_len = sizeof name;
  
  	  _hb_ot_name_get_utf8 (face, label_id,
  				language,
  				&name_len, name);
  
  	  printf ("	");
  	  if (verbose) printf ("Feature: ");
  	  hb_tag_t feature_tag;
  	  unsigned f_count = 1;
  	  hb_ot_layout_table_get_feature_tags (face, table_tag,
  					       feature_array[feature_index],
  					       &f_count, &feature_tag);
  	  printf ("%c%c%c%c", HB_UNTAG (feature_tag));
  
  	  if (*name)
  	    printf ("	%s", name);
  
  	  printf ("\n");
  	}
  
  	feature_offset += feature_count;
        }
        while (feature_count == sizeof feature_array / sizeof feature_array[0]);
      }
    }
  
  #ifndef HB_NO_VAR
    void
    _list_variations ()
    {
      if (verbose)
      {
        separator ();
        printf ("Variations information:\n\n");
      }
  
      hb_ot_var_axis_info_t *axes;
  
      unsigned count = hb_ot_var_get_axis_infos (face, 0, nullptr, nullptr);
      axes = (hb_ot_var_axis_info_t *) calloc (count, sizeof (hb_ot_var_axis_info_t));
      hb_ot_var_get_axis_infos (face, 0, &count, axes);
  
      bool has_hidden = false;
  
      if (verbose && count)
      {
        printf ("Varitation axes:\n\n");
        printf ("Tag	Minimum	Default	Maximum	Name\n------------------------------------\n");
      }
      for (unsigned i = 0; i < count; i++)
      {
        const auto &axis = axes[i];
        if (axis.flags & HB_OT_VAR_AXIS_FLAG_HIDDEN)
  	has_hidden = true;
  
        char name[128];
        unsigned name_len = sizeof name;
  
        _hb_ot_name_get_utf8 (face, axis.name_id,
  			    language,
  			    &name_len, name);
  
        printf ("%c%c%c%c%s	%g	%g	%g	%s\n",
  	      HB_UNTAG (axis.tag),
  	      axis.flags & HB_OT_VAR_AXIS_FLAG_HIDDEN ? "*" : "",
  	      (double) axis.min_value,
  	      (double) axis.default_value,
  	      (double) axis.max_value,
  	      name);
      }
      if (verbose && has_hidden)
        printf ("\n[*] Hidden axis\n");
  
      free (axes);
      axes = nullptr;
  
      count = hb_ot_var_get_named_instance_count (face);
      if (count)
      {
        if (verbose)
        {
  	printf ("\n\nNamed instances:\n\n");
        printf ("Index	Name				Position\n------------------------------------------------\n");
        }
  
        for (unsigned i = 0; i < count; i++)
        {
  	char name[128];
  	unsigned name_len = sizeof name;
  
  	hb_ot_name_id_t name_id = hb_ot_var_named_instance_get_subfamily_name_id (face, i);
  	_hb_ot_name_get_utf8 (face, name_id,
  			      language,
  			      &name_len, name);
  
  	unsigned coords_count = hb_ot_var_named_instance_get_design_coords (face, i, nullptr, nullptr);
  	float* coords;
  	coords = (float *) calloc (coords_count, sizeof (float));
  	hb_ot_var_named_instance_get_design_coords (face, i, &coords_count, coords);
  
  	printf ("%u	%-32s", i, name);
  	for (unsigned j = 0; j < coords_count; j++)
  	  printf ("%g, ", (double) coords[j]);
  	printf ("\n");
  
  	free (coords);
        }
      }
    }
  #endif
  
  #ifdef HAVE_CHAFA
    GString *
    _palette_chafa_str (unsigned palette_index)
    {
      unsigned count = hb_ot_color_palette_get_colors (face, palette_index, 0,
  						     nullptr, nullptr);
  
      hb_color_t *palette = (hb_color_t *) malloc (count * sizeof (hb_color_t));
      hb_ot_color_palette_get_colors (face, palette_index, 0,
  				    &count, palette);
  
  #define REPEAT 16
      hb_color_t *data = (hb_color_t *) malloc (count * REPEAT * sizeof (hb_color_t));
      for (unsigned i = 0; i < count; i++)
        for (unsigned j = 0; j < REPEAT; j++)
  	data[i * REPEAT + j] = palette[i];
      free (palette);
      palette = nullptr;
  
      chafa_set_n_threads (1); // https://github.com/hpjansson/chafa/issues/125#issuecomment-1397475217
  			     //
      gchar **environ = g_get_environ ();
      ChafaTermInfo *term_info = chafa_term_db_detect (chafa_term_db_get_default (),
  						     environ);
  
      ChafaCanvasMode mode;
      ChafaPixelMode pixel_mode = CHAFA_PIXEL_MODE_SYMBOLS;
      if (chafa_term_info_have_seq (term_info, CHAFA_TERM_SEQ_SET_COLOR_FGBG_DIRECT))
        mode = CHAFA_CANVAS_MODE_TRUECOLOR;
      else if (chafa_term_info_have_seq (term_info, CHAFA_TERM_SEQ_SET_COLOR_FGBG_256))
        mode = CHAFA_CANVAS_MODE_INDEXED_240;
      else if (chafa_term_info_have_seq (term_info, CHAFA_TERM_SEQ_SET_COLOR_FGBG_16))
        mode = CHAFA_CANVAS_MODE_INDEXED_16;
      else if (chafa_term_info_have_seq (term_info, CHAFA_TERM_SEQ_INVERT_COLORS))
        mode = CHAFA_CANVAS_MODE_FGBG_BGFG;
      else
        mode = CHAFA_CANVAS_MODE_FGBG;
  
      ChafaSymbolMap *symbol_map = chafa_symbol_map_new ();
      chafa_symbol_map_add_by_tags (symbol_map,
  				  (ChafaSymbolTags) (CHAFA_SYMBOL_TAG_BLOCK));
  
      ChafaCanvasConfig *config = chafa_canvas_config_new ();
      chafa_canvas_config_set_canvas_mode (config, mode);
      chafa_canvas_config_set_pixel_mode (config, pixel_mode);
      chafa_canvas_config_set_cell_geometry (config, REPEAT, 1);
      chafa_canvas_config_set_geometry (config, 2 * count, 1);
      chafa_canvas_config_set_symbol_map (config, symbol_map);
      chafa_canvas_config_set_color_extractor (config, CHAFA_COLOR_EXTRACTOR_MEDIAN);
      chafa_canvas_config_set_work_factor (config, 1.0f);
  
      ChafaCanvas *canvas = chafa_canvas_new (config);
      chafa_canvas_draw_all_pixels (canvas,
  				  G_BYTE_ORDER == G_BIG_ENDIAN
  				    ? CHAFA_PIXEL_BGRA8_UNASSOCIATED
  				    : CHAFA_PIXEL_ARGB8_UNASSOCIATED,
  				  (const guint8 *) data,
  				  count * REPEAT,
  				  1,
  				  sizeof (hb_color_t));
  
      free (data);
  
      auto gs = chafa_canvas_print (canvas, term_info);
  
      chafa_canvas_unref (canvas);
      chafa_canvas_config_unref (config);
      chafa_symbol_map_unref (symbol_map);
      chafa_term_info_unref (term_info);
      g_strfreev (environ);
  
      return gs;
    }
  #endif
  
    void
    _list_palettes ()
    {
      if (verbose)
      {
        separator ();
        printf ("Color palettes information:\n");
      }
  
      {
        if (verbose)
        {
  	printf ("\nPalettes:\n\n");
  	printf ("Index	Flags	Name\n--------------------\n");
        }
        unsigned count = hb_ot_color_palette_get_count (face);
        for (unsigned i = 0; i < count; i++)
        {
  	hb_ot_name_id_t name_id = hb_ot_color_palette_get_name_id (face, i);
  	hb_ot_color_palette_flags_t flags = hb_ot_color_palette_get_flags (face, i);
  
  	char name[128];
  	unsigned name_len = sizeof name;
  
  	_hb_ot_name_get_utf8 (face, name_id,
  			      language,
  			      &name_len, name);
          const char *type = "";
  	if (flags)
  	{
  	  if (flags & HB_OT_COLOR_PALETTE_FLAG_USABLE_WITH_LIGHT_BACKGROUND)
            {
  	    if (flags & HB_OT_COLOR_PALETTE_FLAG_USABLE_WITH_DARK_BACKGROUND)
  	      type = "Both";
              else
  	      type = "Light";
            }
            else {
  	    type = "Dark";
            }
  	}
  
  #ifdef HAVE_CHAFA
  	char *chafa_env = getenv ("HB_CHAFA");
  	bool use_chafa = !chafa_env || atoi (chafa_env);
  	if (verbose && use_chafa && isatty (fileno (stdout)))
  	{
  	  GString *chafa_str = _palette_chafa_str (i);
  	  printf ("%u	%s	%-23s	%*s\n", i, type, name,
  		  (int) chafa_str->len, chafa_str->str);
  	  g_string_free (chafa_str, TRUE);
  	}
  	else
  #endif
  	  printf ("%u	%s	%s\n", i, type, name);
        }
      }
  
      {
        if (verbose)
        {
  	printf ("\nColors:\n\n");
  	printf ("Index	Name\n------------\n");
        }
        unsigned count = hb_ot_color_palette_get_colors (face, 0, 0, nullptr, nullptr);
        for (unsigned i = 0; i < count; i++)
        {
  	hb_ot_name_id_t name_id = hb_ot_color_palette_color_get_name_id (face, i);
  
  	char name[128];
  	unsigned name_len = sizeof name;
  	_hb_ot_name_get_utf8 (face, name_id,
  			      language,
  			      &name_len, name);
  
  	printf ("%u	%s\n", i, name);
        }
      }
    }
  
    void
    _list_meta ()
    {
      if (verbose)
      {
        separator ();
        printf ("Meta information:\n");
      }
  
      {
        if (verbose)
        {
  	printf ("\nTag	Data\n------------\n");
        }
        unsigned count = hb_ot_meta_get_entry_tags (face, 0, nullptr, nullptr);
        for (unsigned i = 0; i < count; i++)
        {
  	hb_ot_meta_tag_t tag;
  	unsigned len = 1;
  	hb_ot_meta_get_entry_tags (face, i, &len, &tag);
  
  	hb_blob_t *blob = hb_ot_meta_reference_entry (face, tag);
  
  	printf ("%c%c%c%c	%.*s\n", HB_UNTAG (tag),
  		(int) hb_blob_get_length (blob),
  		hb_blob_get_data (blob, nullptr));
  
  	hb_blob_destroy (blob);
        }
      }
    }
  };
  
  int
  main (int argc, char **argv)
  {
    return batch_main<info_t> (argc, argv);
  }
  

Download