+/* otflist.c -- List OpenType fonts.
+
+Copyright (C) 2003, 2004
+ 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"
+#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)
{
|| ! 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 ()
+main (int argc, char **argv)
{
- struct dirent **namelist;
- int n = scandir (".", &namelist, filter, alphasort);
- int i, j;
FT_Library ft_library;
FT_Face face;
+ char *filename;
+ int long_format = 0;
+ int n;
+ int i, j;
if (FT_Init_FreeType (&ft_library))
- exit (1);
-
- for (i = 0; i < n; i++)
- if (! FT_New_Face (ft_library, namelist[i]->d_name, 0, &face))
- {
- printf ("%s: %s: %s\n", namelist[i]->d_name,
- face->family_name, face->style_name);
- if (face->num_charmaps == 0)
- continue;
- for (j = 0; j < face->num_charmaps; j++)
- {
- if (face->charmaps[j]->encoding == ft_encoding_symbol)
- printf (" symbol");
- else if (face->charmaps[j]->encoding == ft_encoding_unicode)
- printf (" unicode");
- else if (face->charmaps[j]->encoding == ft_encoding_latin_1)
- printf (" latin_1");
- else if (face->charmaps[j]->encoding == ft_encoding_latin_2)
- printf (" latin_2");
- else if (face->charmaps[j]->encoding == ft_encoding_sjis)
- printf (" sjis");
- else if (face->charmaps[j]->encoding == ft_encoding_gb2312)
- printf (" gb2312");
- else if (face->charmaps[j]->encoding == ft_encoding_big5)
- printf (" big5");
- else if (face->charmaps[j]->encoding == ft_encoding_wansung)
- printf (" wansung");
- else if (face->charmaps[j]->encoding == ft_encoding_johab)
- printf (" johab");
- else if (face->charmaps[j]->encoding == ft_encoding_adobe_standard)
- printf (" adobe_standard");
- else if (face->charmaps[j]->encoding == ft_encoding_adobe_expert)
- printf (" adobe_expert");
- else if (face->charmaps[j]->encoding == ft_encoding_adobe_custom)
- printf (" adobe_custom");
- else if (face->charmaps[j]->encoding == ft_encoding_apple_roman)
- printf (" apple_roman");
- else if (face->charmaps[j]->encoding == ft_encoding_none)
- printf (" none");
- else
- printf (" 0x%X", (unsigned) face->charmaps[j]->encoding);
- printf ("(%d-%d),", face->charmaps[j]->platform_id,
+ 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 (j = 0; j < face->num_charmaps; j++)
+ printf (" %d-%d", face->charmaps[j]->platform_id,
face->charmaps[j]->encoding_id);
- }
- printf ("\n");
- }
+ 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);
}