/* otflist.c -- List OpenType fonts.

Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010

  National Institute of Advanced Industrial Science and Technology (AIST)

  Registration Number H15PRO167

This file is part of libotf.

Libotf is free software; you can redistribute it and/or modify it

under the terms of the GNU Lesser General Public License as published

by the Free Software Foundation; either version 2.1 of the License, or

(at your option) any later version.

Libotf is distributed in the hope that it will be useful, but WITHOUT

ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public

License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library, in a file named COPYING; if not,

write to the Free Software Foundation, Inc., 59 Temple Place, Suite

330, Boston, MA 02111-1307, USA.  */

#include <stdio.h>

#include <unistd.h>

#include <string.h>

#include <sys/types.h>

#include <dirent.h>

#include <ft2build.h>

#include FT_FREETYPE_H

#include "config.h"

#ifdef HAVE_ALLOCA_H

#include <alloca.h>

#endif

#include <otf.h>

/* Format MSG by FMT and print the result to the stderr, and exit.  */

#define FATAL_ERROR(fmt, arg)	\

  do {				\

    fprintf (stderr, fmt, arg);	\

    exit (1);			\

  } while (0)

void

print_tag (OTF_Tag tag)

{

  char name[5];

  OTF_tag_name (tag, name);

  printf ("%s", name);

}

void

print_gsub_gpos_info (OTF *otf, char *table)

{

  int i, j;

  if (OTF_get_table (otf, table) == 0)

    {

      OTF_ScriptList *scripts;

      OTF_FeatureList *features;

      if (! strcmp (table, "GSUB"))

	scripts = &otf->gsub->ScriptList, features = &otf->gsub->FeatureList;

      else

	scripts = &otf->gpos->ScriptList, features = &otf->gpos->FeatureList;

      printf ("  %s scripts: ", table);

      for (i = 0; i < scripts->ScriptCount; i++)

	{

	  OTF_Script *script = scripts->Script + i;

	  if (i > 0)

	    printf (", ");

	  print_tag (script->ScriptTag);

	  if (script->LangSysCount > 0)

	    {

	      printf (" (");

	      for (j = 0; j < script->LangSysCount; j++)

		{

		  if (j > 0)

		    printf (", ");

		  print_tag (script->LangSysRecord[j].LangSysTag);

		}

	      printf (")");

	    }

	}

      printf ("\n");

      printf ("  %s features: ", table);

      for (i = 0; i < features->FeatureCount; i++)

	{

	  if (i > 0)

	    printf (",");

	  print_tag (features->Feature[i].FeatureTag);

	}

      printf ("\n");

    }

}

void

help_and_exit (char *prog)

{

  printf ("otflist %s\n", LIBOTF_VERSION);

  printf ("Usage: %s [-l] [-h] [DIR]\n", prog);

  printf ("List information about OpenType font files in the directory DIR.\n");

  printf ("It actually lists all fonts that can be handled by Freetype.\n");

  printf ("  -h		print this help, then exit\n");

  printf ("  -l		use a long listing mode\n");

  exit (0);

}

int

filter (const struct dirent *direntry)

{

  int len = strlen (direntry->d_name);

  const char *ext = direntry->d_name + (len - 4);

  return (len >= 5

	  && (! strncmp (ext, ".ttf", 4)

	      || ! strncmp (ext, ".TTF", 4)

	      || ! strncmp (ext, ".ttc", 4)

	      || ! strncmp (ext, ".TTC", 4)

	      || ! strncmp (ext, ".otf", 4)

	      || ! strncmp (ext, ".OTF", 4)

	      || ! strncmp (ext, ".PFA", 4)

	      || ! strncmp (ext, ".pfa", 4)

	      || ! strncmp (ext, ".PFB", 4)

	      || ! strncmp (ext, ".pfb", 4)));

}

int dir_index = 0;

#ifdef HAVE_SCANDIR

struct dirent **namelist = NULL;

int num_files = 0;

char *

next_file (char *dirname)

{

  if (dir_index == 0)

    {

#ifdef HAVE_ALPHASORT

      num_files = scandir (".", &namelist, filter, alphasort);

#else

      num_files = scandir (".", &namelist, filter, NULL);

#endif

    }

  if (dir_index == num_files)

    return NULL;

  return namelist[dir_index++]->d_name;

}

#else  /* not HAVE_SCANDIR */

DIR *dirp;

char *

next_file (char *dirname)

{

  struct dirent *dirent;

  if (dir_index == 0)

    dirp = opendir (dirname);

  while ((dirent = readdir (dirp))

	 && (strcmp (dirent->d_name, ".") == 0

	     || strcmp (dirent->d_name, "..") == 0));

  if (! dirent)

    return NULL;

  dir_index++;

  return dirent->d_name;

}

#endif /* not HAVE_SCANDIR */

int

main (int argc, char **argv)

{ 

  FT_Library ft_library;

  FT_Face face;

  char *filename;

  int long_format = 0;

  int i;

  if (FT_Init_FreeType (&ft_library))

    FATAL_ERROR ("%s\n", "!! Freetype initialization failed.");

  if (argc > 1)

    {

      if (! strcmp (argv[1], "-h") || ! strcmp (argv[1], "--help"))

	help_and_exit (argv[0]);

      if (! strcmp (argv[1], "-l"))

	long_format = 1, argc--, argv++;

    }

  if (argc == 2)

    {

      if (chdir (argv[1]) < 0)

	FATAL_ERROR ("Can't change directory to %s\n", argv[1]);

    }

  while ((filename = next_file (".")) != NULL)

    {

      if (! FT_New_Face (ft_library, filename, 0, &face))

	{

	  OTF *otf = OTF_open (filename);

	  char *name, *family = NULL, *style = NULL;

	  if (otf)

	    {

	      OTF_get_table (otf, "name");

	      if (! (family = otf->name->name[16]))

		family = otf->name->name[1];

	      if (! (style = otf->name->name[17]))

		style = otf->name->name[2];

	    }

	  if (! family)

	    family = face->family_name;

	  if (! style)

	    style = face->style_name;

	  name = alloca (strlen (filename)

			 + strlen (family)

			 + 4);

	  sprintf (name, "%s (%s)", filename, family);

	  printf ("%-40s %s", name, style);

	  for (i = 0; i < face->num_charmaps; i++)

	    printf (" %d-%d", face->charmaps[i]->platform_id,

		    face->charmaps[i]->encoding_id);

	  printf ("\n");

	  if (otf && long_format)

	    {

	      print_gsub_gpos_info (otf, "GSUB");

	      print_gsub_gpos_info (otf, "GPOS");

	    }

	  if (otf)

	    OTF_close (otf);

	}

      else

	{

	  printf ("%s fail to open\n", filename);

	}

    }

  exit (0);

}