X Strike Force SVN commit: rev 131 - in people/jch/xc/programs: . mkfontscale
Author: jch
Date: 2003-06-03 12:51:44 -0500 (Tue, 03 Jun 2003)
New Revision: 131
Added:
people/jch/xc/programs/mkfontscale/
people/jch/xc/programs/mkfontscale/Imakefile
people/jch/xc/programs/mkfontscale/data.h
people/jch/xc/programs/mkfontscale/list.c
people/jch/xc/programs/mkfontscale/list.h
people/jch/xc/programs/mkfontscale/mkfontscale.c
people/jch/xc/programs/mkfontscale/mkfontscale.man
Log:
Imported mkfontscale from XFree86
Added: people/jch/xc/programs/mkfontscale/data.h
==============================================================================
--- people/jch/xc/programs/mkfontscale/data.h 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/data.h 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,91 @@
+/*
+ Copyright (c) 2002 by Juliusz Chroboczek
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in
+ all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ THE SOFTWARE.
+*/
+/* $XFree86: xc/programs/mkfontscale/data.h,v 1.3 2003/04/30 20:39:43 herrb Exp $ */
+
+/* Order is significant. For example, some B&H fonts are hinted by
+ URW++, and both strings appear in the notice. */
+
+char *notice_foundries[][2] =
+ {{"Bigelow", "b&h"},
+ {"Adobe", "adobe"},
+ {"Bitstream", "bitstream"},
+ {"Monotype", "monotype"},
+ {"Linotype", "linotype"},
+ {"LINOTYPE-HELL", "linotype"},
+ {"IBM", "ibm"},
+ {"URW", "urw"},
+ {"International Typeface Corporation", "itc"},
+ {"Tiro Typeworks", "tiro"},
+ {"XFree86", "xfree86"},
+ {"Microsoft", "microsoft"},
+ {"Omega", "omega"},
+ {"Font21", "hwan"},
+ {"HanYang System", "hanyang"}};
+
+/* This table is partly taken from ttmkfdir by Joerg Pommnitz. */
+
+/* It should not contain useless entries (such as UNKN) nor duplicate
+ entries for padding both with spaces and NULs. */
+
+char *vendor_foundries[][2] =
+ {{"ADBE", "adobe"},
+ {"AGFA", "agfa"},
+ {"ALTS", "altsys"},
+ {"APPL", "apple"},
+ {"ARPH", "arphic"},
+ {"ATEC", "alltype"},
+ {"B&H", "b&h"},
+ {"BITS", "bitstream"},
+ {"CANO", "cannon"},
+ {"DYNA", "dynalab"},
+ {"EPSN", "epson"},
+ {"FJ", "fujitsu"},
+ {"IBM", "ibm"},
+ {"ITC", "itc"},
+ {"IMPR", "impress"},
+ {"LARA", "larabiefonts"},
+ {"LEAF", "interleaf"},
+ {"LETR", "letraset"},
+ {"LINO", "linotype"},
+ {"MACR", "macromedia"},
+ {"MONO", "monotype"},
+ {"MS", "microsoft"},
+ {"MT", "monotype"},
+ {"NEC", "nec"},
+ {"PARA", "paratype"},
+ {"QMSI", "qms"},
+ {"RICO", "ricoh"},
+ {"URW", "urw"},
+ {"Y&Y", "y&y"}};
+
+
+
+
+
+
+
+
+
+
+
+
+
Added: people/jch/xc/programs/mkfontscale/mkfontscale.man
==============================================================================
--- people/jch/xc/programs/mkfontscale/mkfontscale.man 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/mkfontscale.man 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,76 @@
+.\" $XFree86: xc/programs/mkfontscale/mkfontscale.man,v 1.3 2003/04/20 19:04:44 herrb Exp $
+.\"
+.TH MKFONTSCALE 1 __vendorversion__
+.SH NAME
+mkfontscale \- create an index of scalable font files for X
+.SH SYNOPSIS
+.B mkfontscale
+[
+.B \-o
+.I filename
+]
+[
+.B \-e
+.I encoding
+] \|.\|.\|. [
+.B \-f
+.I fuzz
+] [
+.B \-\-
+] [
+.I directory
+] \|.\|.\|.
+.SH DESCRIPTION
+For each directory argument,
+.I mkfontscale
+reads all of the scalable font files in the directory. For every font
+file found, an X11 font name (XLFD) is generated, and is written
+together with the file name to a file
+.B fonts.scale
+in the directory.
+
+The resulting
+.B fonts.scale
+file should be checked and possibly manually edited before being used
+as input for the
+.BR mkfontdir (1)
+program.
+.SH OPTIONS
+.TP
+.BI \-o " filename"
+send program output to
+.IR filename ;
+default is
+.BR fonts.scale .
+If
+.I filename
+is relative, it is created in the directory being processed. If it is
+the special value
+.BR \- ,
+output is written to standard output.
+.TP
+.BI \-e " encoding"
+add
+.I encoding
+to the list of encodings searched for.
+.TP
+.BI \-f " fuzz"
+set the fraction of characters that may be missing in large encodings to
+.I fuzz
+percent. Defaults to 2%.
+.TP
+.B \-\-
+end of options.
+.SH SEE ALSO
+X(__miscmansuffix__), Xserver(1), mkfontdir(1), ttmkfdir(1), xfs(1), xset(1)
+.SH NOTES
+.B Mkfontscale
+will overwrite any
+.B fonts.scale
+file even if it has been hand-edited.
+.SH AUTHOR
+.B Mkfontscale
+was written by Juliusz Chroboczek <jch@xfree86.org> for the XFree86
+project. The functionality of this program was inspired by the
+.B ttmkfdir
+utility by Joerg Pommnitz.
Added: people/jch/xc/programs/mkfontscale/list.h
==============================================================================
--- people/jch/xc/programs/mkfontscale/list.h 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/list.h 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,37 @@
+/*
+ Copyright (c) 2002 by Juliusz Chroboczek
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in
+ all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ THE SOFTWARE.
+*/
+/* $XFree86: xc/programs/mkfontscale/list.h,v 1.1 2002/06/05 19:46:04 dawes Exp $ */
+
+typedef struct _List {
+ char *value;
+ struct _List *next;
+} ListRec, *ListPtr;
+
+ListPtr listCons(char *car, ListPtr cdr);
+ListPtr listConsF(ListPtr cdr, char *f, ...);
+int listLength(ListPtr list);
+ListPtr appendList(ListPtr first, ListPtr second);
+ListPtr makeList(char **a, int n, ListPtr old, int begin);
+ListPtr reverseList(ListPtr old);
+void destroyList(ListPtr old);
+void deepDestroyList(ListPtr old);
+
Added: people/jch/xc/programs/mkfontscale/Imakefile
==============================================================================
--- people/jch/xc/programs/mkfontscale/Imakefile 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/Imakefile 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,21 @@
+XCOMM $XFree86: xc/programs/mkfontscale/Imakefile,v 1.4 2003/05/28 16:02:36 tsi Exp $
+
+LOCAL_LIBRARIES = $(XFONTENCLIB) $(FREETYPE2LIB)
+ DEPLIBS = $(DEPXFONTENCLIB) $(DEPFREETYPE2LIB)
+
+SYS_LIBRARIES = GzipLibrary
+
+SRCS = mkfontscale.c list.c
+
+OBJS = mkfontscale.o list.o
+
+#if !HasSnprintf
+SNPRINTF_DEFINES = -DNEED_SNPRINTF
+SNPRINTF_INCLUDES = -I$(LIBSRC)/misc
+#endif
+
+INCLUDES = $(FREETYPE2INCLUDES) $(SNPRINTF_INCLUDES)
+DEFINES = $(FREETYPE2DEFINES) $(SNPRINTF_DEFINES)
+
+ComplexProgramTarget(mkfontscale)
+
Added: people/jch/xc/programs/mkfontscale/mkfontscale.c
==============================================================================
--- people/jch/xc/programs/mkfontscale/mkfontscale.c 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/mkfontscale.c 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,883 @@
+/*
+ Copyright (c) 2002 by Juliusz Chroboczek
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in
+ all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ THE SOFTWARE.
+*/
+/* $XFree86: xc/programs/mkfontscale/mkfontscale.c,v 1.6 2003/05/30 07:00:33 herrb Exp $ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <sys/types.h>
+#include <dirent.h>
+
+#include <X11/fonts/fontenc.h>
+#include <freetype/freetype.h>
+#include <freetype/ftsnames.h>
+#include <freetype/tttables.h>
+#include <freetype/ttnameid.h>
+#include <freetype/t1tables.h>
+
+#include "list.h"
+#include "data.h"
+
+char *encodings_array[] =
+ { "iso8859-1", "iso8859-2", "iso8859-3", "iso8859-4", "iso8859-5",
+ "iso8859-6", "iso8859-7", "iso8859-8", "iso8859-9", "iso8859-10",
+ "iso8859-11", "iso8859-12", "iso8859-13", "iso8859-14", "iso8859-15",
+ "koi8-r", "koi8-u", "koi8-ru", "koi8-e",
+ "tis620-2",
+ "adobe-standard", "adobe-symbol",
+ "ibm-cp437", "microsoft-cp1252",
+ /* But not "adobe-dingbats", as it uses generic glyph names. */
+ "jisx0201.1976-0", "jisx0208.1983-0", "jisx0208.1990-0",
+ "jisx0212.1990-0", "big5-0", "gb2312.1980-0",
+ "ksc5601.1987-0", "ksc5601.1992-3"};
+
+char *extra_encodings_array[] =
+ { "iso10646-1", "adobe-fontspecific", "microsoft-symbol" };
+
+ListPtr encodings, extra_encodings;
+char *outfilename;
+
+#define countof(_a) (sizeof(_a)/sizeof((_a)[0]))
+
+int doDirectory(char*);
+static int checkEncoding(FT_Face face, char *encoding_name);
+static int checkExtraEncoding(FT_Face face, char *encoding_name, int found);
+static int find_cmap(int type, int pid, int eid, FT_Face face);
+static char* notice_foundry(char *notice);
+static char* vendor_foundry(signed char *vendor);
+
+static FT_Library ft_library;
+static float bigEncodingFuzz = 0.02;
+
+static void
+usage(void)
+{
+ fprintf(stderr,
+ "mkfontscale [ -o filename ] [ -e encoding ] [ -f fuzz ] "
+ "[ directory ]\n");
+}
+
+int
+main(int argc, char **argv)
+{
+ int argn;
+ FT_Error ftrc;
+
+ outfilename = "fonts.scale";
+
+ encodings = makeList(encodings_array, countof(encodings_array), NULL, 0);
+
+ extra_encodings = makeList(extra_encodings_array,
+ countof(extra_encodings_array),
+ NULL, 0);
+
+ argn = 1;
+ while(argn < argc) {
+ if(argv[argn][0] == '\0' || argv[argn][0] != '-')
+ break;
+ if(argv[argn][1] == '-') {
+ argn++;
+ break;
+ } else if(argv[argn][1] == 'e') {
+ if(argn >= argc - 1) {
+ usage();
+ exit(1);
+ }
+ makeList(&argv[argn + 1], 1, encodings, 0);
+ argn += 2;
+ } else if(argv[argn][1] == 'o') {
+ if(argn >= argc - 1) {
+ usage();
+ exit(1);
+ }
+ outfilename = argv[argn + 1];
+ argn += 2;
+ } else if(argv[argn][1] == 'f') {
+ if(argn >= argc - 1) {
+ usage();
+ exit(1);
+ }
+ bigEncodingFuzz = atof(argv[argn + 1]) / 100.0;
+ argn += 2;
+ } else {
+ usage();
+ exit(1);
+ }
+ }
+
+ ftrc = FT_Init_FreeType(&ft_library);
+ if(ftrc) {
+ fprintf(stderr, "Could not initialise FreeType library: %d\n", ftrc);
+ exit(1);
+ }
+
+
+ if (argn == argc)
+ doDirectory(".");
+ else
+ while(argn < argc) {
+ doDirectory(argv[argn]);
+ argn++;
+ }
+ return 0;
+}
+
+static int
+getNameHelper(FT_Face face, int nid, int pid, int eid,
+ FT_SfntName *name_return)
+{
+ FT_SfntName name;
+ int n, i;
+
+ n = FT_Get_Sfnt_Name_Count(face);
+ if(n <= 0)
+ return 0;
+
+ for(i = 0; i < n; i++) {
+ if(FT_Get_Sfnt_Name(face, i, &name))
+ continue;
+ if(name.name_id == nid &&
+ name.platform_id == pid &&
+ (eid < 0 || name.encoding_id == eid)) {
+ switch(name.platform_id) {
+ case TT_PLATFORM_APPLE_UNICODE:
+ case TT_PLATFORM_MACINTOSH:
+ if(name.language_id != TT_MAC_LANGID_ENGLISH)
+ continue;
+ break;
+ case TT_PLATFORM_MICROSOFT:
+ if(name.language_id != TT_MS_LANGID_ENGLISH_UNITED_STATES &&
+ name.language_id != TT_MS_LANGID_ENGLISH_UNITED_KINGDOM)
+ continue;
+ break;
+ default:
+ continue;
+ }
+ if(name.string_len > 0) {
+ *name_return = name;
+ return 1;
+ }
+ }
+ }
+ return 0;
+}
+
+static char *
+getName(FT_Face face, int nid)
+{
+ FT_SfntName name;
+ char *string;
+ int i;
+
+ if(getNameHelper(face, nid,
+ TT_PLATFORM_MICROSOFT, TT_MS_ID_UNICODE_CS, &name) ||
+ getNameHelper(face, nid,
+ TT_PLATFORM_APPLE_UNICODE, -1, &name)) {
+ string = malloc(name.string_len / 2 + 1);
+ if(string == NULL) {
+ fprintf(stderr, "Couldn't allocate name\n");
+ exit(1);
+ }
+ for(i = 0; i < name.string_len / 2; i++) {
+ if(name.string[2 * i] != 0)
+ string[i] = '?';
+ else
+ string[i] = name.string[2 * i + 1];
+ }
+ string[i] = '\0';
+ return string;
+ }
+
+ /* Pretend that Apple Roman is ISO 8859-1. */
+ if(getNameHelper(face, nid, TT_PLATFORM_MACINTOSH, TT_MAC_ID_ROMAN,
+ &name)) {
+ string = malloc(name.string_len + 1);
+ if(string == NULL) {
+ fprintf(stderr, "Couldn't allocate name\n");
+ exit(1);
+ }
+ memcpy(string, name.string, name.string_len);
+ string[name.string_len] = '\0';
+ return string;
+ }
+
+ return NULL;
+}
+
+static char*
+os2Weight(int weight)
+{
+ if(weight < 150)
+ return "thin";
+ else if(weight < 250)
+ return "extralight";
+ else if(weight < 350)
+ return "light";
+ else if(weight < 450)
+ return "medium"; /* officially "normal" */
+ else if(weight < 550)
+ return "medium";
+ else if(weight < 650)
+ return "semibold";
+ else if(weight < 750)
+ return "bold";
+ else if(weight < 850)
+ return "extrabold";
+ else
+ return "black";
+}
+
+static char*
+os2Width(int width)
+{
+ if(width <= 1)
+ return "ultracondensed";
+ else if(width <= 2)
+ return "extracondensed";
+ else if(width <= 3)
+ return "condensed";
+ else if(width <= 4)
+ return "semicondensed";
+ else if(width <= 5)
+ return "normal";
+ else if(width <= 6)
+ return "semiexpanded";
+ else if(width <= 7)
+ return "expanded";
+ else if(width <= 8)
+ return "extraexpanded";
+ else
+ return "ultraexpanded";
+}
+
+static char *widths[] = {
+ "ultracondensed", "extracondensed", "condensed", "semicondensed",
+ "normal", "semiexpanded", "expanded", "extraexpanded", "ultraexpanded"
+};
+
+#define NUMWIDTHS (sizeof(widths) / sizeof(widths[0]))
+
+static char*
+nameWidth(char *name)
+{
+ char buf[500];
+ int i;
+ int n = strlen(name);
+
+ if(n >= 499) return NULL;
+ for(i = 0; i < n; i++)
+ buf[i] = tolower(name[i]);
+ buf[i] = '\0';
+
+ for(i = 0; i < NUMWIDTHS; i++)
+ if(strstr(buf, widths[i]))
+ return widths[i];
+ return NULL;
+}
+
+static char*
+t1Weight(char *weight)
+{
+ if(!weight)
+ return NULL;
+ if(strcmp(weight, "Thin") == 0)
+ return "thin";
+ if(strcmp(weight, "Light") == 0)
+ return "light";
+ if(strcmp(weight, "Regular") == 0)
+ return "medium";
+ if(strcmp(weight, "Normal") == 0)
+ return "medium";
+ if(strcmp(weight, "Medium") == 0)
+ return "medium";
+ if(strcmp(weight, "Book") == 0)
+ return "medium";
+ if(strcmp(weight, "Roman") == 0) /* Some URW++ fonts do that! */
+ return "medium";
+ if(strcmp(weight, "Demi") == 0)
+ return "semibold";
+ if(strcmp(weight, "DemiBold") == 0)
+ return "semibold";
+ else if(strcmp(weight, "Bold") == 0)
+ return "bold";
+ else if(strcmp(weight, "Black") == 0)
+ return "black";
+ else {
+ fprintf(stderr, "Unknown Type 1 weight \"%s\"\n", weight);
+ return NULL;
+ }
+}
+
+static char*
+strcat_reliable(char *a, char *b)
+{
+ char *c = malloc(strlen(a) + strlen(b) + 1);
+ if(c == NULL)
+ return NULL;
+ strcpy(c, a);
+ strcat(c, b);
+ return c;
+}
+
+static int
+unsafe(char c)
+{
+ return
+ c < 0x20 || c > 0x7E ||
+ c == '[' || c == ']' || c == '(' || c == ')' || c == '\\' || c == '-';
+}
+
+static char *
+safe(char* s)
+{
+ int i, len, safe_flag = 1;
+ char *t;
+
+ i = 0;
+ while(s[i] != '\0') {
+ if(unsafe(s[i]))
+ safe_flag = 0;
+ i++;
+ }
+
+ if(safe_flag) return s;
+
+ len = i;
+ t = malloc(len + 1);
+ if(t == NULL) {
+ perror("Couldn't allocate string");
+ exit(1);
+ }
+
+ for(i = 0; i < len; i++) {
+ if(unsafe(s[i]))
+ t[i] = ' ';
+ else
+ t[i] = s[i];
+ }
+ t[i] = '\0';
+ return t;
+}
+
+int
+doDirectory(char *dirname_given)
+{
+ char *dirname, *fontscale_name, *filename;
+ FILE *fontscale;
+ DIR *dirp;
+ struct dirent *entry;
+ FT_Error ftrc;
+ FT_Face face;
+ TT_Header *head;
+ TT_HoriHeader *hhea;
+ TT_OS2 *os2;
+ TT_Postscript *post;
+ PS_FontInfoRec *t1info, t1info_rec;
+ char *foundry, *family, *weight, *slant, *sWidth, *adstyle,
+ *spacing, *full_name;
+ ListPtr encoding, entries = NULL;
+ int i, found, rc;
+
+ i = strlen(dirname_given);
+ if(i == 0)
+ dirname = strcat_reliable(".", "/");
+ else if(dirname_given[i - 1] != '/')
+ dirname = strcat_reliable(dirname_given, "/");
+ else
+ dirname = strcat_reliable(dirname_given, "");
+
+ if(dirname == NULL) {
+ perror("dirname");
+ exit(1);
+ }
+
+ if(strcmp(outfilename, "-") == 0)
+ fontscale_name = NULL;
+ else {
+ if(outfilename[0] == '/')
+ fontscale_name = strcat_reliable(outfilename, "");
+ else
+ fontscale_name = strcat_reliable(dirname, outfilename);
+ if(fontscale_name == NULL) {
+ perror("fontscale_name");
+ exit(1);
+ }
+ }
+
+ dirp = opendir(dirname);
+ if(dirp == NULL) {
+ fprintf(stderr, "%s: ", dirname);
+ perror("opendir");
+ return 0;
+ }
+
+ if(fontscale_name == NULL)
+ fontscale = stdout;
+ else
+ fontscale = fopen(fontscale_name, "w");
+
+ if(fontscale == NULL) {
+ fprintf(stderr, "%s: ", fontscale_name);
+ perror("fopen(w)");
+ return 0;
+ }
+
+ for(;;) {
+ entry = readdir(dirp);
+ if(entry == NULL)
+ break;
+ filename = strcat_reliable(dirname, entry->d_name);
+ ftrc = FT_New_Face(ft_library, filename, 0, &face);
+ if(ftrc)
+ continue;
+
+ if((face->face_flags & FT_FACE_FLAG_SCALABLE) == 0)
+ continue;
+
+ found = 0;
+
+ foundry = NULL;
+ family = NULL;
+ weight = NULL;
+ slant = NULL;
+ sWidth = NULL;
+ adstyle = NULL;
+ spacing = NULL;
+ full_name = NULL;
+
+ head = FT_Get_Sfnt_Table(face, ft_sfnt_head);
+ hhea = FT_Get_Sfnt_Table(face, ft_sfnt_hhea);
+ os2 = FT_Get_Sfnt_Table(face, ft_sfnt_os2);
+ post = FT_Get_Sfnt_Table(face, ft_sfnt_post);
+
+ rc = FT_Get_PS_Font_Info(face, &t1info_rec);
+ if(rc == 0)
+ t1info = &t1info_rec;
+ else
+ t1info = NULL;
+
+ if(!family)
+ family = getName(face, TT_NAME_ID_FONT_FAMILY);
+ if(!family)
+ family = getName(face, TT_NAME_ID_FULL_NAME);
+ if(!family)
+ family = getName(face, TT_NAME_ID_PS_NAME);
+
+ if(!full_name)
+ full_name = getName(face, TT_NAME_ID_FULL_NAME);
+ if(!full_name)
+ full_name = getName(face, TT_NAME_ID_PS_NAME);
+
+ if(os2 && os2->version != 0xFFFF) {
+ if(!weight)
+ weight = os2Weight(os2->usWeightClass);
+ if(!sWidth)
+ sWidth = os2Width(os2->usWidthClass);
+ if(!foundry)
+ foundry = vendor_foundry(os2->achVendID);
+ if(!slant)
+ slant = os2->fsSelection & 1 ? "i" : "r";
+ }
+
+ if(post) {
+ if(!spacing) {
+ if(post->isFixedPitch) {
+ if(hhea->min_Left_Side_Bearing >= 0 &&
+ hhea->xMax_Extent <= hhea->advance_Width_Max) {
+ spacing = "c";
+ } else {
+ spacing = "m";
+ }
+ } else {
+ spacing = "p";
+ }
+ }
+ }
+
+ if(t1info) {
+ if(!family)
+ family = t1info->family_name;
+ if(!family)
+ family = t1info->full_name;
+ if(!full_name)
+ full_name = t1info->full_name;
+ if(!foundry)
+ foundry = notice_foundry(t1info->notice);
+ if(!weight)
+ weight = t1Weight(t1info->weight);
+ if(!spacing)
+ spacing = t1info->is_fixed_pitch ? "m" : "p";
+ if(!slant) {
+ /* Bitstream fonts have positive italic angle. */
+ slant =
+ t1info->italic_angle <= -4 || t1info->italic_angle >= 4 ?
+ "i" : "r";
+ }
+ }
+
+ if(head) {
+ if(!slant)
+ slant = head->Mac_Style & 2 ? "i" : "r";
+ if(!weight)
+ weight = head->Mac_Style & 1 ? "bold" : "medium";
+ }
+
+ if(!slant) {
+ fprintf(stderr, "Couldn't determine slant for %s\n", filename);
+ slant = "r";
+ }
+
+ if(!weight) {
+ fprintf(stderr, "Couldn't determine weight for %s\n", filename);
+ weight = "medium";
+ }
+
+ if(!foundry) {
+ char *notice;
+ notice = getName(face, TT_NAME_ID_TRADEMARK);
+ if(notice) {
+ foundry = notice_foundry(notice);
+ }
+ if(!foundry) {
+ notice = getName(face, TT_NAME_ID_MANUFACTURER);
+ if(notice) {
+ foundry = notice_foundry(notice);
+ }
+ }
+ }
+
+ if(strcmp(slant, "i") == 0) {
+ if(strstr(full_name, "Oblique"))
+ slant = "o";
+ if(strstr(full_name, "Slanted"))
+ slant = "o";
+ }
+
+ if(!sWidth)
+ sWidth = nameWidth(full_name);
+
+ if(!foundry) foundry = "misc";
+ if(!family) {
+ fprintf(stderr, "Couldn't get family name for %s\n", filename);
+ family = entry->d_name;
+ }
+
+ if(!weight) weight = "medium";
+ if(!slant) slant = "r";
+ if(!sWidth) sWidth = "normal";
+ if(!adstyle) adstyle = "";
+ if(!spacing) spacing = "p";
+
+ /* Yes, it's a memory leak. */
+ foundry = safe(foundry);
+ family = safe(family);
+
+ for(encoding = encodings; encoding; encoding = encoding->next)
+ if(checkEncoding(face, encoding->value)) {
+ found = 1;
+ entries = listConsF(entries,
+ "%s -%s-%s-%s-%s-%s-%s-0-0-0-0-%s-0-%s",
+ entry->d_name,
+ foundry, family,
+ weight, slant, sWidth, adstyle, spacing,
+ encoding->value);
+ }
+ for(encoding = extra_encodings; encoding; encoding = encoding->next)
+ if(checkExtraEncoding(face, encoding->value, found)) {
+ /* Do not set found! */
+ entries = listConsF(entries,
+ "%s -%s-%s-%s-%s-%s-%s-0-0-0-0-%s-0-%s",
+ entry->d_name,
+ foundry, family,
+ weight, slant, sWidth, adstyle, spacing,
+ encoding->value);
+ }
+ free(filename);
+ }
+ entries = reverseList(entries);
+ fprintf(fontscale, "%d\n", listLength(entries));
+ while(entries) {
+ fprintf(fontscale, "%s\n", entries->value);
+ entries = entries->next;
+ }
+ deepDestroyList(entries);
+ if(fontscale_name) {
+ fclose(fontscale);
+ free(fontscale_name);
+ }
+ free(dirname);
+ return 1;
+}
+
+#define CODE_IGNORED(c) ((c) < 0x20 || \
+ ((c) >= 0x7F && (c) <= 0xA0) || \
+ (c) == 0xAD || (c) == 0xF71B)
+
+static int
+checkEncoding(FT_Face face, char *encoding_name)
+{
+ FontEncPtr encoding;
+ FontMapPtr mapping;
+ int i, j, c, koi8;
+ char *n;
+
+ encoding = FontEncFind(encoding_name, NULL);
+ if(!encoding)
+ return 0;
+
+ /* An encoding is ``small'' if one of the following is true:
+ - it is linear and has no more than 256 codepoints; or
+ - it is a matrix encoding and has no more than one column.
+
+ For small encodings using Unicode indices, we require perfect
+ coverage except for CODE_IGNORED and KOI-8 IBM-PC compatibility.
+
+ For large encodings, we require coverage up to bigEncodingFuzz.
+
+ For encodings using PS names (currently Adobe Standard and
+ Adobe Symbol only), we require perfect coverage. */
+
+
+ if(FT_Has_PS_Glyph_Names(face)) {
+ for(mapping = encoding->mappings; mapping; mapping = mapping->next) {
+ if(mapping->type == FONT_ENCODING_POSTSCRIPT) {
+ if(encoding->row_size > 0) {
+ for(i = encoding->first; i < encoding->size; i++) {
+ for(j = encoding->first_col;
+ j < encoding->row_size;
+ j++) {
+ n = FontEncName((i<<8) | j, mapping);
+ if(n && FT_Get_Name_Index(face, n) == 0) {
+ return 0;
+ }
+ }
+ }
+ return 1;
+ } else {
+ for(i = encoding->first; i < encoding->size; i++) {
+ n = FontEncName(i, mapping);
+ if(n && FT_Get_Name_Index(face, n) == 0) {
+ return 0;
+ }
+ }
+ return 1;
+ }
+ }
+ }
+ }
+
+ for(mapping = encoding->mappings; mapping; mapping = mapping->next) {
+ if(find_cmap(mapping->type, mapping->pid, mapping->eid, face)) {
+ int total = 0, failed = 0;
+ if(encoding->row_size > 0) {
+ int estimate =
+ (encoding->size - encoding->first) *
+ (encoding->row_size - encoding->first_col);
+ for(i = encoding->first; i < encoding->size; i++) {
+ for(j = encoding->first_col;
+ j < encoding->row_size;
+ j++) {
+ c = FontEncRecode((i<<8) | j, mapping);
+ if(CODE_IGNORED(c)) {
+ continue;
+ } else {
+ if(FT_Get_Char_Index(face, c) == 0) {
+ failed++;
+ }
+ total++;
+ if((encoding->size <= 1 && failed > 0) ||
+ ((float)failed >= bigEncodingFuzz * estimate)) {
+ return 0;
+ }
+ }
+ }
+ }
+ if((float)failed >= total * bigEncodingFuzz)
+ return 0;
+ else
+ return 1;
+ } else {
+ int estimate = encoding->size - encoding->first;
+ /* For the KOI8 encodings, we ignore the lack of
+ linedrawing and pseudo-math characters */
+ if(strncmp(encoding->name, "koi8-", 5) == 0)
+ koi8 = 1;
+ else
+ koi8 = 0;
+ for(i = encoding->first; i < encoding->size; i++) {
+ c = FontEncRecode(i, mapping);
+ if(CODE_IGNORED(c) ||
+ (koi8 && c >= 0x2200 && c < 0x2600)) {
+ continue;
+ } else {
+ if(FT_Get_Char_Index(face, c) == 0) {
+ failed++;
+ }
+ total++;
+ if((encoding->size <= 256 && failed > 0) ||
+ ((float)failed >= bigEncodingFuzz * estimate)) {
+ return 0;
+ }
+ }
+ }
+ if((float)failed >= total * bigEncodingFuzz)
+ return 0;
+ else
+ return 1;
+ }
+ }
+ }
+ return 0;
+}
+
+static int
+find_cmap(int type, int pid, int eid, FT_Face face)
+{
+ int i, n, rc;
+ FT_CharMap cmap = NULL;
+
+ n = face->num_charmaps;
+
+ switch(type) {
+ case FONT_ENCODING_TRUETYPE: /* specific cmap */
+ for(i=0; i<n; i++) {
+ cmap = face->charmaps[i];
+ if(cmap->platform_id == pid && cmap->encoding_id == eid) {
+ rc = FT_Set_Charmap(face, cmap);
+ if(rc == 0)
+ return 1;
+ }
+ }
+ break;
+ case FONT_ENCODING_UNICODE: /* any Unicode cmap */
+ /* prefer Microsoft Unicode */
+ for(i=0; i<n; i++) {
+ cmap = face->charmaps[i];
+ if(cmap->platform_id == TT_PLATFORM_MICROSOFT &&
+ cmap->encoding_id == TT_MS_ID_UNICODE_CS) {
+ rc = FT_Set_Charmap(face, cmap);
+ if(rc == 0)
+ return 1;
+ }
+ }
+ break;
+ /* Try Apple Unicode */
+ for(i=0; i<n; i++) {
+ cmap = face->charmaps[i];
+ if(cmap->platform_id == TT_PLATFORM_APPLE_UNICODE) {
+ rc = FT_Set_Charmap(face, cmap);
+ if(rc == 0)
+ return 1;
+ }
+ }
+ /* ISO Unicode? */
+ for(i=0; i<n; i++) {
+ cmap = face->charmaps[i];
+ if(cmap->platform_id == TT_PLATFORM_ISO) {
+ rc = FT_Set_Charmap(face, cmap);
+ if(rc == 0)
+ return 1;
+ }
+ }
+ break;
+ default:
+ return 0;
+ }
+ return 0;
+}
+
+static int
+checkExtraEncoding(FT_Face face, char *encoding_name, int found)
+{
+ int c;
+
+ if(strcasecmp(encoding_name, "iso10646-1") == 0) {
+ if(find_cmap(FONT_ENCODING_UNICODE, -1, -1, face)) {
+ int found = 0;
+ /* Export as Unicode if there are at least 15 BMP
+ characters that are not a space or ignored. */
+ for(c = 0x21; c < 0x10000; c++) {
+ if(CODE_IGNORED(c))
+ continue;
+ if(FT_Get_Char_Index(face, c) > 0)
+ found++;
+ if(found >= 15)
+ return 1;
+ }
+ return 0;
+ } else
+ return 0;
+ } else if(strcasecmp(encoding_name, "microsoft-symbol") == 0) {
+ if(find_cmap(FONT_ENCODING_TRUETYPE,
+ TT_PLATFORM_MICROSOFT, TT_MS_ID_SYMBOL_CS,
+ face))
+ return 1;
+ else
+ return 0;
+ } else if(strcasecmp(encoding_name, "adobe-fontspecific") == 0) {
+ if(!found) {
+ if(FT_Has_PS_Glyph_Names(face))
+ return 1;
+ else
+ return 0;
+ } else
+ return 0;
+ } else {
+ fprintf(stderr, "Unknown extra encoding %s\n", encoding_name);
+ return 0;
+ }
+}
+
+static char*
+notice_foundry(char *notice)
+{
+ int i;
+ for(i = 0; i < countof(notice_foundries); i++)
+ if(notice && strstr(notice, notice_foundries[i][0]))
+ return notice_foundries[i][1];
+ return NULL;
+}
+
+static int
+vendor_match(signed char *vendor, char *vendor_string)
+{
+ /* vendor is not necessarily NUL-terminated. */
+ int i, len;
+ len = strlen(vendor_string);
+ if(memcmp(vendor, vendor_string, len) != 0)
+ return 0;
+ for(i = len; i < 4; i++)
+ if(vendor[i] != ' ' && vendor[i] != '\0')
+ return 0;
+ return 1;
+}
+
+static char*
+vendor_foundry(signed char *vendor)
+{
+ int i;
+ for(i = 0; i < countof(vendor_foundries); i++)
+ if(vendor_match(vendor, vendor_foundries[i][0]))
+ return vendor_foundries[i][1];
+ return NULL;
+}
Added: people/jch/xc/programs/mkfontscale/list.c
==============================================================================
--- people/jch/xc/programs/mkfontscale/list.c 2003-06-03 13:47:39 UTC (rev 130)
+++ people/jch/xc/programs/mkfontscale/list.c 2003-06-03 17:51:44 UTC (rev 131)
@@ -0,0 +1,178 @@
+/*
+ Copyright (c) 2002 by Juliusz Chroboczek
+
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+
+ The above copyright notice and this permission notice shall be included in
+ all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ THE SOFTWARE.
+*/
+/* $XFree86: xc/programs/mkfontscale/list.c,v 1.3 2002/12/14 04:41:12 dawes Exp $ */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include "list.h"
+
+#ifdef NEED_SNPRINTF
+#undef SCOPE
+#define SCOPE static
+#include "snprintf.c"
+#endif
+
+ListPtr
+listCons(char *car, ListPtr cdr)
+{
+ ListPtr lcar = malloc(sizeof(ListRec));
+ if(!lcar)
+ return NULL;
+ lcar -> value = car;
+ lcar -> next = cdr;
+ return lcar;
+}
+
+ListPtr
+listConsF(ListPtr cdr, char *f, ...)
+{
+ va_list args;
+ char *string;
+ {
+ int n, size = 20;
+ while(1) {
+ if(size > 4096)
+ return NULL;
+ string = malloc(size);
+ if(!string)
+ return NULL;
+ va_start(args, f);
+ n = vsnprintf(string, size, f, args);
+ va_end(args);
+ if(n >= 0 && n < size)
+ return listCons(string, cdr);
+ else if(n >= size)
+ size = n + 1;
+ else
+ size = size * 3 / 2 + 1;
+ free(string);
+ }
+ }
+}
+
+int
+listLength(ListPtr list)
+{
+ int n = 0;
+ while(list) {
+ n++;
+ list = list->next;
+ }
+ return n;
+}
+
+ListPtr
+appendList(ListPtr first, ListPtr second)
+{
+ ListPtr current;
+
+ if(second == NULL)
+ return first;
+
+ if(first == NULL)
+ return second;
+
+ for(current = first; current->next; current = current->next)
+ ;
+
+ current->next = second;
+ return first;
+}
+
+ListPtr
+makeList(char **a, int n, ListPtr old, int begin)
+{
+ ListPtr first, current, next;
+ int i;
+
+ if(n == 0)
+ return old;
+
+ first = malloc(sizeof(ListRec));
+ if(!first)
+ return NULL;
+
+ first->value = a[0];
+ first->next = NULL;
+
+ current = first;
+ for(i = 1; i < n; i++) {
+ next = malloc(sizeof(ListRec));
+ if(!next)
+ return NULL;
+ next->value = a[i];
+ next->next = NULL;
+
+ current->next = next;
+ current = next;
+ }
+ if(begin) {
+ current->next = old;
+ return first;
+ } else {
+ return appendList(old, first);
+ }
+}
+
+ListPtr
+reverseList(ListPtr old)
+{
+ ListPtr new = NULL, current;
+ while(old) {
+ current = old;
+ old = old->next;
+ current->next = new;
+ new = current;
+ }
+ return new;
+}
+
+void
+destroyList(ListPtr old)
+{
+ ListPtr next;
+ if(!old)
+ return;
+ next = old->next;
+ while(old) {
+ free(old);
+ old = next;
+ next = old->next;
+ }
+}
+
+void
+deepDestroyList(ListPtr old)
+{
+ ListPtr next;
+ if(!old)
+ return;
+ next = old->next;
+ while(old) {
+ free(old->value);
+ free(old);
+ old = next;
+ next = old->next;
+ }
+}
+
Reply to: