Edit
IABSD.fr/xenocara/lib/fontconfig/fc-case/fc-case.c
matthieu
- lib/fontconfig/fc-case/fc-case.c
-
/* * $Id: fc-case.c,v 1.1.1.1 2006/11/25 18:42:31 matthieu Exp $ * * Copyright © 2004 Keith Packard * * Permission to use, copy, modify, distribute, and sell this software and its * documentation for any purpose is hereby granted without fee, provided that * the above copyright notice appear in all copies and that both that * copyright notice and this permission notice appear in supporting * documentation, and that the name of Keith Packard not be used in * advertising or publicity pertaining to distribution of the software without * specific, written prior permission. Keith Packard makes no * representations about the suitability of this software for any purpose. It * is provided "as is" without express or implied warranty. * * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR * PERFORMANCE OF THIS SOFTWARE. */ #include "fcint.h" #include <ctype.h> #define MAX_OUT 32 #define MAX_LINE 8192 typedef enum _caseFoldClass { CaseFoldCommon, CaseFoldFull, CaseFoldSimple, CaseFoldTurkic } CaseFoldClass; typedef struct _caseFoldClassMap { const char *name; CaseFoldClass class; } CaseFoldClassMap; static const CaseFoldClassMap caseFoldClassMap[] = { { "C", CaseFoldCommon }, { "F", CaseFoldFull }, { "S", CaseFoldSimple }, { "T", CaseFoldTurkic }, { 0, 0 } }; typedef struct _caseFoldRaw { FcChar32 upper; CaseFoldClass class; int nout; FcChar32 lower[MAX_OUT]; } CaseFoldRaw; static void panic (const char *reason) { fprintf (stderr, "fc-case: panic %s\n", reason); exit (1); } int maxExpand; static FcCaseFold *folds; int nfolds; static FcCaseFold * addFold (void) { if (folds) folds = realloc (folds, (nfolds + 1) * sizeof (FcCaseFold)); else folds = malloc (sizeof (FcCaseFold)); if (!folds) panic ("out of memory"); return &folds[nfolds++]; } static int ucs4_to_utf8 (FcChar32 ucs4, FcChar8 dest[FC_UTF8_MAX_LEN]) { int bits; FcChar8 *d = dest; if (ucs4 < 0x80) { *d++= ucs4; bits= -6; } else if (ucs4 < 0x800) { *d++= ((ucs4 >> 6) & 0x1F) | 0xC0; bits= 0; } else if (ucs4 < 0x10000) { *d++= ((ucs4 >> 12) & 0x0F) | 0xE0; bits= 6; } else if (ucs4 < 0x200000) { *d++= ((ucs4 >> 18) & 0x07) | 0xF0; bits= 12; } else if (ucs4 < 0x4000000) { *d++= ((ucs4 >> 24) & 0x03) | 0xF8; bits= 18; } else if (ucs4 < 0x80000000) { *d++= ((ucs4 >> 30) & 0x01) | 0xFC; bits= 24; } else return 0; for ( ; bits >= 0; bits-= 6) { *d++= ((ucs4 >> bits) & 0x3F) | 0x80; } return d - dest; } static int utf8_size (FcChar32 ucs4) { FcChar8 utf8[FC_UTF8_MAX_LEN]; return ucs4_to_utf8 (ucs4, utf8 ); } static FcChar8 *foldChars; static int nfoldChars; static int maxFoldChars; static FcChar32 minFoldChar; static FcChar32 maxFoldChar; static void addChar (FcChar32 c) { FcChar8 utf8[FC_UTF8_MAX_LEN]; int len; int i; len = ucs4_to_utf8 (c, utf8); if (foldChars) foldChars = realloc (foldChars, (nfoldChars + len) * sizeof (FcChar8)); else foldChars = malloc (sizeof (FcChar8) * len); if (!foldChars) panic ("out of memory"); for (i = 0; i < len; i++) foldChars[nfoldChars + i] = utf8[i]; nfoldChars += len; } static int foldExtends (FcCaseFold *fold, CaseFoldRaw *raw) { switch (fold->method) { case FC_CASE_FOLD_RANGE: if ((short) (raw->lower[0] - raw->upper) != fold->offset) return 0; if (raw->upper != fold->upper + fold->count) return 0; return 1; case FC_CASE_FOLD_EVEN_ODD: if ((short) (raw->lower[0] - raw->upper) != 1) return 0; if (raw->upper != fold->upper + fold->count + 1) return 0; return 1; case FC_CASE_FOLD_FULL: break; } return 0; } static const char * case_fold_method_name (FcChar16 method) { switch (method) { case FC_CASE_FOLD_RANGE: return "FC_CASE_FOLD_RANGE,"; case FC_CASE_FOLD_EVEN_ODD: return "FC_CASE_FOLD_EVEN_ODD,"; case FC_CASE_FOLD_FULL: return "FC_CASE_FOLD_FULL,"; default: return "unknown"; } } static void dump (void) { int i; printf ( "#define FC_NUM_CASE_FOLD %d\n", nfolds); printf ( "#define FC_NUM_CASE_FOLD_CHARS %d\n", nfoldChars); printf ( "#define FC_MAX_CASE_FOLD_CHARS %d\n", maxFoldChars); printf ( "#define FC_MAX_CASE_FOLD_EXPAND %d\n", maxExpand); printf ( "#define FC_MIN_FOLD_CHAR 0x%08x\n", minFoldChar); printf ( "#define FC_MAX_FOLD_CHAR 0x%08x\n", maxFoldChar); printf ( "\n"); /* * Dump out ranges */ printf ("static const FcCaseFold fcCaseFold[FC_NUM_CASE_FOLD] = {\n"); for (i = 0; i < nfolds; i++) { printf (" { 0x%08x, %-22s 0x%04x, %6d },\n", folds[i].upper, case_fold_method_name (folds[i].method), folds[i].count, folds[i].offset); } printf ("};\n\n"); /* * Dump out "other" values */ printf ("static const FcChar8 fcCaseFoldChars[FC_NUM_CASE_FOLD_CHARS] = {\n"); for (i = 0; i < nfoldChars; i++) { printf ("0x%02x", foldChars[i]); if (i != nfoldChars - 1) { if ((i & 0xf) == 0xf) printf (",\n"); else printf (","); } } printf ("\n};\n"); } /* * Read the standard Unicode CaseFolding.txt file */ #define SEP "; \t\n" static int parseRaw (char *line, CaseFoldRaw *raw) { char *tok, *end; int i; if (!isxdigit (line[0])) return 0; /* * Get upper case value */ tok = strtok (line, SEP); if (!tok || tok[0] == '#') return 0; raw->upper = strtol (tok, &end, 16); if (end == tok) return 0; /* * Get class */ tok = strtok (NULL, SEP); if (!tok || tok[0] == '#') return 0; for (i = 0; caseFoldClassMap[i].name; i++) if (!strcmp (tok, caseFoldClassMap[i].name)) { raw->class = caseFoldClassMap[i].class; break; } if (!caseFoldClassMap[i].name) return 0; /* * Get list of result characters */ for (i = 0; i < MAX_OUT; i++) { tok = strtok (NULL, SEP); if (!tok || tok[0] == '#') break; raw->lower[i] = strtol (tok, &end, 16); if (end == tok) break; } if (i == 0) return 0; raw->nout = i; return 1; } static int caseFoldReadRaw (FILE *in, CaseFoldRaw *raw) { char line[MAX_LINE]; for (;;) { if (!fgets (line, sizeof (line) - 1, in)) return 0; if (parseRaw (line, raw)) return 1; } } int main (int argc, char **argv) { FcCaseFold *fold = 0; CaseFoldRaw raw; int i; FILE *caseFile; char line[MAX_LINE]; int expand; if (argc != 2) panic ("usage: fc-case CaseFolding.txt"); caseFile = fopen (argv[1], "r"); if (!caseFile) panic ("can't open case folding file"); while (caseFoldReadRaw (caseFile, &raw)) { if (!minFoldChar) minFoldChar = raw.upper; maxFoldChar = raw.upper; switch (raw.class) { case CaseFoldCommon: case CaseFoldFull: if (raw.nout == 1) { if (fold && foldExtends (fold, &raw)) fold->count = raw.upper - fold->upper + 1; else { fold = addFold (); fold->upper = raw.upper; fold->offset = raw.lower[0] - raw.upper; if (fold->offset == 1) fold->method = FC_CASE_FOLD_EVEN_ODD; else fold->method = FC_CASE_FOLD_RANGE; fold->count = 1; } expand = utf8_size (raw.lower[0]) - utf8_size(raw.upper); } else { fold = addFold (); fold->upper = raw.upper; fold->method = FC_CASE_FOLD_FULL; fold->offset = nfoldChars; for (i = 0; i < raw.nout; i++) addChar (raw.lower[i]); fold->count = nfoldChars - fold->offset; if (fold->count > maxFoldChars) maxFoldChars = fold->count; expand = fold->count - utf8_size (raw.upper); } if (expand > maxExpand) maxExpand = expand; break; case CaseFoldSimple: break; case CaseFoldTurkic: break; } } /* * Scan the input until the marker is found */ while (fgets (line, sizeof (line), stdin)) { if (!strncmp (line, "@@@", 3)) break; fputs (line, stdout); } /* * Dump these tables */ dump (); /* * And flush out the rest of the input file */ while (fgets (line, sizeof (line), stdin)) fputs (line, stdout); fflush (stdout); exit (ferror (stdout)); }