util/hb-info.cc - third_party/harfbuzz - Git at Google

 /*
  * Copyright © 2010  Behdad Esfahbod
  * Copyright © 2011,2012  Google, Inc.
  *
  *  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"

 const unsigned DEFAULT_FONT_SIZE = FONT_SIZE_UPEM;
 const unsigned SUBPIXEL_BITS = 0;


 struct info_t
 {
   void add_options (option_parser_t *parser)
   {
     GOptionEntry misc_entries[] =
     {
       {"direction",	0, 0, G_OPTION_ARG_STRING,	&this->direction_str,		"Set direction (default: ltr)",		"ltr/rtl/ttb/btt"},
       {"language",	0, 0, G_OPTION_ARG_STRING,	&this->language_str,		"Set language (default: $LANG)",	"BCP 47 tag"},
       {"script",	0, 0, G_OPTION_ARG_STRING,	&this->script_str,		"Set script (default: none)",		"ISO-15924 tag"},

       {nullptr}
     };
     parser->add_group (misc_entries,
 		       "misc",
 		       "Miscellaneaous options:",
 		       "Miscellaneaous 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-family",	0, 0, G_OPTION_ARG_NONE,	&this->show_family,		"Show family name",		nullptr},
       {"show-style",	0, 0, G_OPTION_ARG_NONE,	&this->show_style,		"Show style 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-upem",	0, 0, G_OPTION_ARG_NONE,	&this->show_upem,		"Show Units-Per-EM",		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-extents",	0, 0, G_OPTION_ARG_NONE,	&this->show_extents,		"Show extents",			nullptr},

       {"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},
       {"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

       {"dump-table",	0, 0, G_OPTION_ARG_STRING,	&this->dump_table,		"Dump font table",		"TABLE-TAG"},

       {nullptr}
     };
     parser->add_group (query_entries,
 		       "query",
 		       "Query options:",
 		       "Options to query the font instance",
 		       this,
 		       false /* We add below. */);
   }

   protected:
   hb_face_t *face = nullptr;
   hb_font_t *font = nullptr;

   hb_bool_t verbose = true;
   hb_bool_t first_item = true;

   char *direction_str = nullptr;
   char *script_str = nullptr;
   char *language_str = nullptr;

   hb_bool_t all = false;

   hb_bool_t show_all = false;
   hb_bool_t show_family = false;
   hb_bool_t show_style = 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_upem = false;
   hb_bool_t show_unicode_count = false;
   hb_bool_t show_glyph_count = false;
   hb_bool_t show_extents = false;

   hb_bool_t list_all = false;
   hb_bool_t list_names = false;
   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

   char *dump_table = nullptr;

   public:

   template <typename app_t>
   void operator () (app_t *app)
   {
     face = hb_face_reference (((font_options_t *) app)->face);
     font = hb_font_reference (((font_options_t *) app)->font);
     verbose = !app->quiet;

     if (all)
     {
       show_all =
       list_all =
       true;
     }

     if (show_all)
     {
       show_family =
       show_style =
       show_unique_name =
       show_full_name =
       show_postscript_name =
       show_version =
       show_upem =
       show_unicode_count =
       show_glyph_count =
       show_extents =
       true;
       first_item = false;
     }

     if (list_all)
     {
       list_names =
       list_tables =
       list_unicodes =
       list_glyphs =
       list_scripts =
       list_features =
 #ifndef HB_NO_VAR
       list_variations =
 #endif
       true;
     }

     if (show_family)	  _show_family ();
     if (show_style)	  _show_style ();
     if (show_unique_name) _show_unique_name ();
     if (show_full_name)	  _show_full_name ();
     if (show_postscript_name)_show_postscript_name ();
     if (show_version)	  _show_version ();
     if (show_upem)	  _show_upem ();
     if (show_unicode_count)_show_unicode_count ();
     if (show_glyph_count) _show_glyph_count ();
     if (show_extents)	  _show_extents ();

     if (list_names)	  _list_names ();
     if (list_tables)	  _list_tables ();
     if (list_unicodes)	  _list_unicodes ();
     if (list_glyphs)	  _list_glyphs ();
     if (list_scripts)	  _list_scripts ();
     if (list_features)	  _list_features ();
 #ifndef HB_NO_VAR
     if (list_variations)  _list_variations ();
 #endif

     if (dump_table)	  _dump_table ();

     hb_font_destroy (font);
     hb_face_destroy (face);
   }

   protected:

   void separator ()
   {
     if (first_item)
     {
       first_item = false;
       return;
     }
     printf ("\n===\n\n");
   }

   void _show_name (const char *label, hb_ot_name_id_t name_id)
   {
     if (verbose)
     {
       printf ("%s: ", label);
     }

     auto language = hb_language_get_default ();
     if (language_str)
       language = hb_language_from_string (language_str, -1);

     char name[128];
     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_style ()
   {
     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 ("Style", 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); }

   void _show_upem ()
   {
     if (verbose)
     {
       printf ("Units-Per-EM: ");
     }

     printf ("%u\n", hb_face_get_upem (face));
   }

   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_extents ()
   {
     hb_direction_t direction = HB_DIRECTION_LTR;
     if (direction_str)
       direction = hb_direction_from_string (direction_str, -1);

     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 _list_names ()
   {
     if (verbose)
     {
       separator ();
       printf ("Name information:\n\n");
       printf ("Id	Text\n------------\n");
     }

     auto language = hb_language_get_default ();
     if (language_str)
       language = hb_language_from_string (language_str, -1);

     unsigned count;
     const auto *entries = hb_ot_name_list_names (face, &count);
     for (unsigned i = 0; i < count; i++)
     {
       char name[128];
       unsigned name_len = sizeof name;
       hb_ot_name_get_utf8 (face, entries[i].name_id,
 			   language,
 			   &name_len, name);

       printf ("%u	%s\n", entries[i].name_id, name);
     }
   }

   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[64];
       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;
 	bool b = hb_font_get_variation_glyph (font, u, vs, &gid);
 	assert (b);

 	char glyphname[64];
 	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[64];
       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++)
     {
       printf ("Table: %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 ("  Script: %c%c%c%c\n", 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 ("    Language: %c%c%c%c\n", 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 ()
   {
     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};

     auto language = hb_language_get_default ();
     if (language_str)
       language = hb_language_from_string (language_str, -1);

     hb_set_t *features = hb_set_create ();

     for (unsigned int i = 0; table_tags[i]; i++)
     {
       printf ("Table: %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
       {
         // TODO Select features based on script/language

 	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[64];
 	  unsigned name_len = sizeof name;

 	  hb_ot_name_get_utf8 (face, label_id,
 			       language,
 			       &name_len, name);

 	  printf ("  Feature: %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);
   }

 #ifndef HB_NO_VAR
   void
   _list_variations ()
   {
     if (verbose)
     {
       separator ();
       printf ("Face 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);

     auto language = hb_language_get_default ();
     if (language_str)
       language = hb_language_from_string (language_str, -1);

     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[64];
       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\n");

     free (axes);
     axes = nullptr;

     count = hb_ot_var_get_named_instance_count (face);
     if (count)
     {
       if (verbose)
       {
 	printf ("\nNamed instances:\n\n");
       printf ("Index	Name				Position\n------------------------------------------------\n");
       }

       for (unsigned i = 0; i < count; i++)
       {
 	char name[64];
 	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

   void
   _dump_table ()
   {
     hb_blob_t *blob = hb_face_reference_table (face, hb_tag_from_string (dump_table, -1));
     unsigned count = 0;
     const char *data = hb_blob_get_data (blob, &count);
     fwrite (data, 1, count, stdout);
     hb_blob_destroy (blob);
   }
 };


 template <typename consumer_t,
 	  typename font_options_type>
 struct main_font_t :
        option_parser_t,
        font_options_type,
        consumer_t
 {
   int operator () (int argc, char **argv)
   {
     add_options ();

     if (argc == 2)
       consumer_t::show_all = true;

     parse (&argc, &argv);

     consumer_t::operator () (this);

     return 0;
   }

   protected:

   void add_options ()
   {
     font_options_type::add_options (this);
     consumer_t::add_options (this);

     GOptionEntry entries[] =
     {
       {"quiet",		'q', 0, G_OPTION_ARG_NONE,	&this->quiet,			"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 ();
   }

   private:

   static gboolean
   collect_rest (const char *name G_GNUC_UNUSED,
 		const char *arg,
 		gpointer    data,
 		GError    **error)
   {
     main_font_t *thiz = (main_font_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;
   }

   public:
   hb_bool_t quiet = false;
 };

 int
 main (int argc, char **argv)
 {
   using main_t = main_font_t<info_t, font_options_t>;
   return batch_main<main_t> (argc, argv);
 }
	/*
	* Copyright © 2010 Behdad Esfahbod
	* Copyright © 2011,2012 Google, Inc.
	*
	* 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"

	const unsigned DEFAULT_FONT_SIZE = FONT_SIZE_UPEM;
	const unsigned SUBPIXEL_BITS = 0;


	struct info_t
	{
	void add_options (option_parser_t *parser)
	{
	GOptionEntry misc_entries[] =
	{
	{"direction", 0, 0, G_OPTION_ARG_STRING, &this->direction_str, "Set direction (default: ltr)", "ltr/rtl/ttb/btt"},
	{"language", 0, 0, G_OPTION_ARG_STRING, &this->language_str, "Set language (default: $LANG)", "BCP 47 tag"},
	{"script", 0, 0, G_OPTION_ARG_STRING, &this->script_str, "Set script (default: none)", "ISO-15924 tag"},

	{nullptr}
	};
	parser->add_group (misc_entries,
	"misc",
	"Miscellaneaous options:",
	"Miscellaneaous 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-family", 0, 0, G_OPTION_ARG_NONE, &this->show_family, "Show family name", nullptr},
	{"show-style", 0, 0, G_OPTION_ARG_NONE, &this->show_style, "Show style 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-upem", 0, 0, G_OPTION_ARG_NONE, &this->show_upem, "Show Units-Per-EM", 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-extents", 0, 0, G_OPTION_ARG_NONE, &this->show_extents, "Show extents", nullptr},

	{"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},
	{"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

	{"dump-table", 0, 0, G_OPTION_ARG_STRING, &this->dump_table, "Dump font table", "TABLE-TAG"},

	{nullptr}
	};
	parser->add_group (query_entries,
	"query",
	"Query options:",
	"Options to query the font instance",
	this,
	false /* We add below. */);
	}

	protected:
	hb_face_t *face = nullptr;
	hb_font_t *font = nullptr;

	hb_bool_t verbose = true;
	hb_bool_t first_item = true;

	char *direction_str = nullptr;
	char *script_str = nullptr;
	char *language_str = nullptr;

	hb_bool_t all = false;

	hb_bool_t show_all = false;
	hb_bool_t show_family = false;
	hb_bool_t show_style = 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_upem = false;
	hb_bool_t show_unicode_count = false;
	hb_bool_t show_glyph_count = false;
	hb_bool_t show_extents = false;

	hb_bool_t list_all = false;
	hb_bool_t list_names = false;
	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

	char *dump_table = nullptr;

	public:

	template <typename app_t>
	void operator () (app_t *app)
	{
	face = hb_face_reference (((font_options_t *) app)->face);
	font = hb_font_reference (((font_options_t *) app)->font);
	verbose = !app->quiet;

	if (all)
	{
	show_all =
	list_all =
	true;
	}

	if (show_all)
	{
	show_family =
	show_style =
	show_unique_name =
	show_full_name =
	show_postscript_name =
	show_version =
	show_upem =
	show_unicode_count =
	show_glyph_count =
	show_extents =
	true;
	first_item = false;
	}

	if (list_all)
	{
	list_names =
	list_tables =
	list_unicodes =
	list_glyphs =
	list_scripts =
	list_features =
	#ifndef HB_NO_VAR
	list_variations =
	#endif
	true;
	}

	if (show_family) _show_family ();
	if (show_style) _show_style ();
	if (show_unique_name) _show_unique_name ();
	if (show_full_name) _show_full_name ();
	if (show_postscript_name)_show_postscript_name ();
	if (show_version) _show_version ();
	if (show_upem) _show_upem ();
	if (show_unicode_count)_show_unicode_count ();
	if (show_glyph_count) _show_glyph_count ();
	if (show_extents) _show_extents ();

	if (list_names) _list_names ();
	if (list_tables) _list_tables ();
	if (list_unicodes) _list_unicodes ();
	if (list_glyphs) _list_glyphs ();
	if (list_scripts) _list_scripts ();
	if (list_features) _list_features ();
	#ifndef HB_NO_VAR
	if (list_variations) _list_variations ();
	#endif

	if (dump_table) _dump_table ();

	hb_font_destroy (font);
	hb_face_destroy (face);
	}

	protected:

	void separator ()
	{
	if (first_item)
	{
	first_item = false;
	return;
	}
	printf ("\n===\n\n");
	}

	void _show_name (const char *label, hb_ot_name_id_t name_id)
	{
	if (verbose)
	{
	printf ("%s: ", label);
	}

	auto language = hb_language_get_default ();
	if (language_str)
	language = hb_language_from_string (language_str, -1);

	char name[128];
	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_style ()
	{
	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 ("Style", 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); }

	void _show_upem ()
	{
	if (verbose)
	{
	printf ("Units-Per-EM: ");
	}

	printf ("%u\n", hb_face_get_upem (face));
	}

	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_extents ()
	{
	hb_direction_t direction = HB_DIRECTION_LTR;
	if (direction_str)
	direction = hb_direction_from_string (direction_str, -1);

	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 _list_names ()
	{
	if (verbose)
	{
	separator ();
	printf ("Name information:\n\n");
	printf ("Id Text\n------------\n");
	}

	auto language = hb_language_get_default ();
	if (language_str)
	language = hb_language_from_string (language_str, -1);

	unsigned count;
	const auto *entries = hb_ot_name_list_names (face, &count);
	for (unsigned i = 0; i < count; i++)
	{
	char name[128];
	unsigned name_len = sizeof name;
	hb_ot_name_get_utf8 (face, entries[i].name_id,
	language,
	&name_len, name);

	printf ("%u %s\n", entries[i].name_id, name);
	}
	}

	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[64];
	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;
	bool b = hb_font_get_variation_glyph (font, u, vs, &gid);
	assert (b);

	char glyphname[64];
	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[64];
	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++)
	{
	printf ("Table: %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 (" Script: %c%c%c%c\n", 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 (" Language: %c%c%c%c\n", 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 ()
	{
	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};

	auto language = hb_language_get_default ();
	if (language_str)
	language = hb_language_from_string (language_str, -1);

	hb_set_t *features = hb_set_create ();

	for (unsigned int i = 0; table_tags[i]; i++)
	{
	printf ("Table: %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
	{
	// TODO Select features based on script/language

	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[64];
	unsigned name_len = sizeof name;

	hb_ot_name_get_utf8 (face, label_id,
	language,
	&name_len, name);

	printf (" Feature: %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);
	}

	#ifndef HB_NO_VAR
	void
	_list_variations ()
	{
	if (verbose)
	{
	separator ();
	printf ("Face 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);

	auto language = hb_language_get_default ();
	if (language_str)
	language = hb_language_from_string (language_str, -1);

	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[64];
	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\n");

	free (axes);
	axes = nullptr;

	count = hb_ot_var_get_named_instance_count (face);
	if (count)
	{
	if (verbose)
	{
	printf ("\nNamed instances:\n\n");
	printf ("Index Name Position\n------------------------------------------------\n");
	}

	for (unsigned i = 0; i < count; i++)
	{
	char name[64];
	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

	void
	_dump_table ()
	{
	hb_blob_t *blob = hb_face_reference_table (face, hb_tag_from_string (dump_table, -1));
	unsigned count = 0;
	const char *data = hb_blob_get_data (blob, &count);
	fwrite (data, 1, count, stdout);
	hb_blob_destroy (blob);
	}
	};


	template <typename consumer_t,
	typename font_options_type>
	struct main_font_t :
	option_parser_t,
	font_options_type,
	consumer_t
	{
	int operator () (int argc, char **argv)
	{
	add_options ();

	if (argc == 2)
	consumer_t::show_all = true;

	parse (&argc, &argv);

	consumer_t::operator () (this);

	return 0;
	}

	protected:

	void add_options ()
	{
	font_options_type::add_options (this);
	consumer_t::add_options (this);

	GOptionEntry entries[] =
	{
	{"quiet", 'q', 0, G_OPTION_ARG_NONE, &this->quiet, "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 ();
	}

	private:

	static gboolean
	collect_rest (const char *name G_GNUC_UNUSED,
	const char *arg,
	gpointer data,
	GError **error)
	{
	main_font_t thiz = (main_font_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;
	}

	public:
	hb_bool_t quiet = false;
	};

	int
	main (int argc, char **argv)
	{
	using main_t = main_font_t<info_t, font_options_t>;
	return batch_main<main_t> (argc, argv);
	}