/* Copyright (c) 2002-2003 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. */ /* $XdotOrg: xc/programs/fonttosfnt/util.c,v 1.11 2003/12/19 02:16:36 dawes Exp $ */ /* $XFree86: xc/programs/fonttosfnt/util.c,v 1.10 2003/12/19 02:05:39 dawes Exp $ */ #include #include #include #include #include #include #include #include FT_FREETYPE_H #include FT_BDF_H #include "X11/Xos.h" #include "X11/Xfuncproto.h" /* for _X_ATTRIBUTE_PRINTF */ #include "fonttosfnt.h" #ifdef __GLIBC__ #define HAVE_TIMEGM #define HAVE_TM_GMTOFF #endif #ifdef BSD #define HAVE_TM_GMTOFF #define GMTOFFMEMBER tm_gmtoff #endif /* That's in POSIX */ #define HAVE_TZSET #ifdef NEED_SETENV extern int setenv(const char *name, const char *value, int overwrite); extern void unsetenv(const char *name); #endif char* sprintf_alloc(const char *f, ...) { char *s; va_list args; va_start(args, f); s = vsprintf_alloc(f, args); va_end(args); return s; } #if HAVE_VASPRINTF _X_ATTRIBUTE_PRINTF(1, 0) char* vsprintf_alloc(const char *f, va_list args) { char *r; int rc; rc = vasprintf(&r, f, args); if(rc < 0) return NULL; return r; } #else _X_ATTRIBUTE_PRINTF(1, 0) char* vsprintf_alloc(const char *f, va_list args) { int n, size = 12; char *string; #if HAVE_DECL_VA_COPY va_list args_copy; #endif while(1) { if(size > 4096) return NULL; string = malloc(size); if(!string) return NULL; #if HAVE_DECL_VA_COPY va_copy(args_copy, args); n = vsnprintf(string, size, f, args_copy); #else n = vsnprintf(string, size, f, args); #endif if(n >= 0 && n < size) return string; else if(n >= size) size = n + 1; else size = size * 3 / 2 + 1; free(string); } /* NOTREACHED */ } #endif /* Build a UTF-16 string from a Latin-1 string. Result is not NUL-terminated. */ char * makeUTF16(const char *string) { int n = strlen(string); char *value = malloc(2 * n); if(!value) return NULL; for(int i = 0; i < n; i++) { value[2 * i] = '\0'; value[2 * i + 1] = string[i]; } return value; } /* Like mktime(3), but UTC rather than local time */ #if defined(HAVE_TIMEGM) static time_t mktime_gmt(struct tm *tm) { return timegm(tm); } #elif defined(HAVE_TM_GMTOFF) static time_t mktime_gmt(struct tm *tm) { time_t t; struct tm *ltm; t = mktime(tm); if(t < 0) return -1; ltm = localtime(&t); if(ltm == NULL) return -1; return t + ltm->GMTOFFMEMBER; } #elif defined(HAVE_TZSET) /* Taken from the Linux timegm(3) man page */ static time_t mktime_gmt(struct tm *tm) { time_t t; char *tz; tz = getenv("TZ"); setenv("TZ", "", 1); tzset(); t = mktime(tm); if(tz) setenv("TZ", tz, 1); else unsetenv("TZ"); tzset(); return t; } #else #error no mktime_gmt implementation on this platform #endif /* Return the current time as a signed 64-bit number of seconds since midnight, 1 January 1904. This is apparently when the Macintosh was designed. */ int macTime(int *hi, unsigned *lo) { unsigned long long diff; /* Not time_t */ char *source_date_epoch; time_t macEpoch, current; struct tm tm; tm.tm_sec = 0; tm.tm_min = 0; tm.tm_hour = 0; tm.tm_mday = 1; tm.tm_mon = 1; tm.tm_year = 4; tm.tm_isdst = -1; macEpoch = mktime_gmt(&tm); if(macEpoch == -1) return -1; /* This assumes that the SOURCE_DATE_EPOCH environment variable will contain a correct, positive integer in the time_t range */ if ((source_date_epoch = getenv("SOURCE_DATE_EPOCH")) == NULL || (current = (time_t)strtoll(source_date_epoch, NULL, 10)) <= 0) current = time(NULL); if(current == -1) return -1; if(current < macEpoch) { errno = EINVAL; return -1; } diff = current - macEpoch; #if INT_MAX == LONG_MAX *hi = 0; #else *hi = diff >> 32; #endif *lo = diff & 0xFFFFFFFF; return 0; } unsigned faceFoundry(FT_Face face) { int rc; BDF_PropertyRec prop; rc = FT_Get_BDF_Property(face, "FOUNDRY", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM && prop.u.atom) { if(strcasecmp(prop.u.atom, "adobe") == 0) return makeName("ADBE"); else if(strcasecmp(prop.u.atom, "agfa") == 0) return makeName("AGFA"); else if(strcasecmp(prop.u.atom, "altsys") == 0) return makeName("ALTS"); else if(strcasecmp(prop.u.atom, "apple") == 0) return makeName("APPL"); else if(strcasecmp(prop.u.atom, "arphic") == 0) return makeName("ARPH"); else if(strcasecmp(prop.u.atom, "alltype") == 0) return makeName("ATEC"); else if(strcasecmp(prop.u.atom, "b&h") == 0) return makeName("B&H "); else if(strcasecmp(prop.u.atom, "bitstream") == 0) return makeName("BITS"); else if(strcasecmp(prop.u.atom, "dynalab") == 0) return makeName("DYNA"); else if(strcasecmp(prop.u.atom, "ibm") == 0) return makeName("IBM "); else if(strcasecmp(prop.u.atom, "itc") == 0) return makeName("ITC "); else if(strcasecmp(prop.u.atom, "interleaf") == 0) return makeName("LEAF"); else if(strcasecmp(prop.u.atom, "impress") == 0) return makeName("IMPR"); else if(strcasecmp(prop.u.atom, "larabiefonts") == 0) return makeName("LARA"); else if(strcasecmp(prop.u.atom, "linotype") == 0) return makeName("LINO"); else if(strcasecmp(prop.u.atom, "monotype") == 0) return makeName("MT "); else if(strcasecmp(prop.u.atom, "microsoft") == 0) return makeName("MS "); else if(strcasecmp(prop.u.atom, "urw") == 0) return makeName("URW "); else if(strcasecmp(prop.u.atom, "y&y") == 0) return makeName("Y&Y "); else { char buf[5]; snprintf(buf, sizeof(buf), "%-4s", prop.u.atom); return makeName(buf); } } /* For now */ return makeName("UNKN"); } int faceWeight(FT_Face face) { int rc; BDF_PropertyRec prop; rc = FT_Get_BDF_Property(face, "WEIGHT_NAME", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM && prop.u.atom) { if(strcasecmp(prop.u.atom, "thin") == 0) return 100; else if(strcasecmp(prop.u.atom, "extralight") == 0) return 200; else if(strcasecmp(prop.u.atom, "light") == 0) return 300; else if(strcasecmp(prop.u.atom, "medium") == 0) return 400; else if(strcasecmp(prop.u.atom, "semibold") == 0) return 600; else if(strcasecmp(prop.u.atom, "bold") == 0) return 700; else if(strcasecmp(prop.u.atom, "extrabold") == 0) return 800; else if(strcasecmp(prop.u.atom, "black") == 0) return 900; else return 400; } else return 400; /* for now */ } int faceWidth(FT_Face face) { int rc; BDF_PropertyRec prop; rc = FT_Get_BDF_Property(face, "SETWIDTH_NAME", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM && prop.u.atom) { if(strcasecmp(prop.u.atom, "ultracondensed") == 0) return 1; else if(strcasecmp(prop.u.atom, "extracondensed") == 0) return 2; else if(strcasecmp(prop.u.atom, "condensed") == 0) return 3; else if(strcasecmp(prop.u.atom, "semicondensed") == 0) return 4; else if(strcasecmp(prop.u.atom, "normal") == 0) return 5; else if(strcasecmp(prop.u.atom, "semiexpanded") == 0) return 6; else if(strcasecmp(prop.u.atom, "expanded") == 0) return 7; else if(strcasecmp(prop.u.atom, "extraexpanded") == 0) return 8; else if(strcasecmp(prop.u.atom, "ultraexpanded") == 0) return 9; else return 5; } else return 5; /* for now */ } int faceItalicAngle(FT_Face face) { int rc; BDF_PropertyRec prop; rc = FT_Get_BDF_Property(face, "ITALIC_ANGLE", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_INTEGER) { return (prop.u.integer - 64 * 90) * (TWO_SIXTEENTH / 64); } rc = FT_Get_BDF_Property(face, "SLANT", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM && prop.u.atom) { if(strcasecmp(prop.u.atom, "i") == 0 || strcasecmp(prop.u.atom, "s") == 0) return -30 * TWO_SIXTEENTH; else return 0; } else return 0; /* for now */ } int faceFlags(FT_Face face) { int flags = 0; BDF_PropertyRec prop; int rc; if(faceWeight(face) >= 650) flags |= FACE_BOLD; rc = FT_Get_BDF_Property(face, "SLANT", &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM && prop.u.atom) { if(strcasecmp(prop.u.atom, "i") == 0 || strcasecmp(prop.u.atom, "s") == 0) flags |= FACE_ITALIC; } return flags; } int faceIntProp(FT_Face face, const char *name) { int rc; BDF_PropertyRec prop; rc = FT_Get_BDF_Property(face, name, &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_INTEGER) return prop.u.integer; else return UNDEF; } char * faceStringProp(FT_Face face, const char *name) { int rc; BDF_PropertyRec prop; char *buf = NULL; rc = FT_Get_BDF_Property(face, name, &prop); if(rc == 0 && prop.type == BDF_PROPERTY_TYPE_ATOM) { buf = sprintf_alloc("%s", prop.u.atom ? prop.u.atom : ""); if(buf == NULL) { perror("sprintf_alloc failed"); exit(1); } } return buf; } char * faceEncoding(FT_Face face) { BDF_PropertyRec p1, p2; int rc; rc = FT_Get_BDF_Property(face, "CHARSET_REGISTRY", &p1); if(rc != 0 || p1.type != BDF_PROPERTY_TYPE_ATOM) return NULL; rc = FT_Get_BDF_Property(face, "CHARSET_ENCODING", &p2); if(rc != 0 || p2.type != BDF_PROPERTY_TYPE_ATOM) return NULL; if(!(p1.u.atom && p2.u.atom)) return NULL; return sprintf_alloc("%s-%s", p1.u.atom, p2.u.atom); } int degreesToFraction(int deg, int *num, int *den) { double n, d; double rad, val; if(deg <= -(60 * TWO_SIXTEENTH) || deg >= (60 * TWO_SIXTEENTH)) goto fail; rad = (((double)deg) / TWO_SIXTEENTH) / 180.0 * M_PI; n = sin(-rad); d = cos(rad); if(d < 0.001) goto fail; val = atan2(n, d); /* There must be a cleaner way */ for(int i = 1; i < 10000; i++) { if((int)(d * i) != 0.0 && fabs(atan2(ROUND(n * i), ROUND(d * i)) - val) < 0.05) { *num = (int)ROUND(n * i); *den = (int)ROUND(d * i); return 0; } } fail: *den = 1; *num = 0; return -1; }