Initial revision

5 files changed, 1184 insertions, 0 deletions

diff --git a/data.h b/data.h
new file mode 100644
index 0000000..f174f8b
--- /dev/null
+++ b/data.h
@@ -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.2 2003/01/29 22:09:40 dawes 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", "bitsteam"},
+     {"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"}};
+     
+     
+     
+
+     
+
+     
+
+     
+     
+     
+
+
diff --git a/list.c b/list.c
new file mode 100644
index 0000000..da66d99
--- /dev/null
+++ b/list.c
@@ -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;
+    }
+}
+
diff --git a/list.h b/list.h
new file mode 100644
index 0000000..771c390
--- /dev/null
+++ b/list.h
@@ -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);
+
diff --git a/mkfontscale.c b/mkfontscale.c
new file mode 100644
index 0000000..95db6e4
--- /dev/null
+++ b/mkfontscale.c
@@ -0,0 +1,811 @@
+/*
+  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.4 2003/02/13 03:04:07 dawes 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>
+
+#define CODE_IGNORED(c) ((c) < 0x20 || \
+                         ((c) >= 0x7F && (c) <= 0xA0) || \
+                         (c) == 0xAD)
+   
+#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-e",
+      "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.1190-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;
+
+#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 [ -e encoding ] [ -f fuzz ] [ directory ]\n");
+}
+
+int
+main(int argc, char **argv)
+{
+    int argn;
+    FT_Error ftrc;
+
+    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] == '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*
+t1Weight(char *weight)
+{
+    if(!weight)
+        return NULL;
+    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 {
+        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, "");
+    fontscale_name = strcat_reliable(dirname, "fonts.scale");
+
+    dirp = opendir(dirname);
+    if(dirp == NULL) {
+        fprintf(stderr, "%s: ", dirname);
+        perror("opendir");
+        return 0;
+    }
+
+    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(!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);
+    fclose(fontscale);
+    free(fontscale_name);
+    free(dirname);
+    return 1;
+}
+
+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 uses PostScript glyph names;
+         - 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, we require perfect coverage except for
+       CODE_IGNORED and KOI-8 linedrawing glyphs.  
+
+       For large encodings, we require coverage up to bigEncodingFuzz. */
+
+
+    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, ignore the lack of
+                   linedrawing 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 && i >= 0x80 && i < 0xA0)) {
+                        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;
+}
diff --git a/mkfontscale.man b/mkfontscale.man
new file mode 100644
index 0000000..a1c2568
--- /dev/null
+++ b/mkfontscale.man
@@ -0,0 +1,67 @@
+.\" $XFree86: xc/programs/mkfontscale/mkfontscale.man,v 1.2 2002/09/27 01:55:07 dawes Exp $
+.\"
+.TH MKFONTSCALE 1 __vendorversion__
+.SH NAME
+mkfontscale \- create an index of scalable font files for X
+
+.SH SYNOPSIS
+.B mkfontscale
+[
+.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 \-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.