void
TkpGetSubFonts(
Tcl_Interp *interp,
Tk_Font tkfont)
{
Tcl_Obj *objv[3], *listPtr, *resultPtr;
UnixFtFont *fontPtr = (UnixFtFont *) tkfont;
FcPattern *pattern;
char *family = "Unknown", **familyPtr = &family;
char *foundry = "Unknown", **foundryPtr = &foundry;
char *encoding = "Unknown", **encodingPtr = &encoding;
int i;
resultPtr = Tcl_NewListObj(0, NULL);
for (i = 0; i < fontPtr->nfaces ; ++i) {
pattern = FcFontRenderPrepare(0, fontPtr->pattern,
fontPtr->faces[i].source);
XftPatternGetString(pattern, XFT_FAMILY, 0, familyPtr);
XftPatternGetString(pattern, XFT_FOUNDRY, 0, foundryPtr);
XftPatternGetString(pattern, XFT_ENCODING, 0, encodingPtr);
objv[0] = Tcl_NewStringObj(family, -1);
objv[1] = Tcl_NewStringObj(foundry, -1);
objv[2] = Tcl_NewStringObj(encoding, -1);
listPtr = Tcl_NewListObj(3, objv);
Tcl_ListObjAppendElement(NULL, resultPtr, listPtr);
}
Tcl_SetObjResult(interp, resultPtr);
}
void
TkpGetFontFamilies(
Tcl_Interp *interp, /* Interp to hold result. */
Tk_Window tkwin) /* For display to query. */
{
Tcl_Obj *resultPtr;
XftFontSet *list;
int i;
resultPtr = Tcl_NewListObj(0, NULL);
list = XftListFonts(Tk_Display(tkwin), Tk_ScreenNumber(tkwin),
(char*)0, /* pattern elements */
XFT_FAMILY, (char*)0); /* fields */
for (i = 0; i < list->nfont; i++) {
char *family, **familyPtr = &family;
if (XftPatternGetString(list->fonts[i], XFT_FAMILY, 0, familyPtr)
== XftResultMatch)
{
Tcl_Obj *strPtr = Tcl_NewStringObj(family, -1);
Tcl_ListObjAppendElement(NULL, resultPtr, strPtr);
}
}
XftFontSetDestroy(list);
Tcl_SetObjResult(interp, resultPtr);
}
void
nr_type_xft_build_def (NRTypeFaceDefFT2 *dft2, const gchar *name, const gchar *family)
{
XftPattern *pat;
pat = (XftPattern *)g_hash_table_lookup (NRXftNamedict, name);
if (pat) {
char *file;
int index;
XftPatternGetString (pat, XFT_FILE, 0, &file);
XftPatternGetInteger (pat, XFT_INDEX, 0, &index);
if (file) {
nr_type_ft2_build_def (dft2, name, family, file, index);
}
}
}
static void
GetTkFontAttributes(
XftFont *ftFont,
TkFontAttributes *faPtr)
{
const char *family = "Unknown";
const char *const *familyPtr = &family;
int weight, slant, size, pxsize;
double ptsize;
(void) XftPatternGetString(ftFont->pattern, XFT_FAMILY, 0, familyPtr);
if (XftPatternGetDouble(ftFont->pattern, XFT_SIZE, 0,
&ptsize) == XftResultMatch) {
size = (int) ptsize;
} else if (XftPatternGetInteger(ftFont->pattern, XFT_PIXEL_SIZE, 0,
&pxsize) == XftResultMatch) {
size = -pxsize;
} else {
size = 12;
}
if (XftPatternGetInteger(ftFont->pattern, XFT_WEIGHT, 0,
&weight) != XftResultMatch) {
weight = XFT_WEIGHT_MEDIUM;
}
if (XftPatternGetInteger(ftFont->pattern, XFT_SLANT, 0,
&slant) != XftResultMatch) {
slant = XFT_SLANT_ROMAN;
}
#if DEBUG_FONTSEL
printf("family %s size %d weight %d slant %d\n",
family, size, weight, slant);
#endif /* DEBUG_FONTSEL */
faPtr->family = Tk_GetUid(family);
faPtr->size = size;
faPtr->weight = (weight > XFT_WEIGHT_MEDIUM) ? TK_FW_BOLD : TK_FW_NORMAL;
faPtr->slant = (slant > XFT_SLANT_ROMAN) ? TK_FS_ITALIC : TK_FS_ROMAN;
faPtr->underline = 0;
faPtr->overstrike = 0;
}
void
JXFontManager::GetFontNames
(
JPtrArray<JString>* fontNames
)
const
{
if (itsAllFontNames != NULL)
{
fontNames->CopyObjects(*itsAllFontNames, fontNames->GetCleanUpAction(), kJFalse);
}
else
{
fontNames->CleanOut();
fontNames->SetCompareFunction(JCompareStringsCaseInsensitive);
fontNames->SetSortOrder(JOrderedSetT::kSortAscending);
#ifdef _J_USE_XFT
FcBool scalable = 1;
XftFontSet* fs = XftListFonts(*itsDisplay, DefaultScreen((Display*)*itsDisplay), XFT_SCALABLE, XftTypeBool, scalable, 0, XFT_FAMILY, 0);
for (int i=0; i<fs->nfont; i++)
{
char* raw_name;
if (XftPatternGetString(fs->fonts[i], XFT_FAMILY, 0, &raw_name) == XftResultMatch)
{
JString name(raw_name);
JBoolean isDuplicate;
const JIndex index = fontNames->GetInsertionSortIndex(&name, &isDuplicate);
if (!isDuplicate)
{
fontNames->InsertAtIndex(index, name);
}
}
}
XftFontSetDestroy(fs);
#else
int nameCount;
char** nameList = XListFonts(*itsDisplay, "-*-*-*-*-*-*-*-*-75-75-*-*-*-*",
INT_MAX, &nameCount);
if (nameList == NULL)
{
return;
}
JString name, charSet;
for (int i=0; i<nameCount; i++)
{
const std::string s(nameList[i], strlen(nameList[i]));
std::istringstream input(s);
input.ignore(); // initial dash
JIgnoreUntil(input, '-'); // foundry name
name = JReadUntil(input, '-'); // font name
JIgnoreUntil(input, "-75-75-"); // ignore specs
JIgnoreUntil(input, '-');
JIgnoreUntil(input, '-');
JReadAll(input, &charSet); // char set
if (name.IsEmpty() || name == "nil")
{
continue;
}
ConvertToPSFontName(&name);
// Until JPSPrinter can embed fonts in a Postscript file, we are limited
// to only the standard Postscript fonts.
if (name == JXGetCourierFontName() ||
name == JXGetHelveticaFontName() ||
name == JXGetSymbolFontName() ||
name == JXGetTimesFontName())
{
// if (name != JXGetSymbolFontName())
// {
// name = CombineNameAndCharacterSet(name, charSet);
// }
JBoolean isDuplicate;
const JIndex index =
fontNames->GetInsertionSortIndex(&name, &isDuplicate);
if (!isDuplicate)
{
fontNames->InsertAtIndex(index, name);
}
}
}
XFreeFontNames(nameList);
#endif
// save names for next time
JXFontManager* me = const_cast<JXFontManager*>(this);
me->itsAllFontNames =
new JPtrArray<JString>(*fontNames, JPtrArrayT::kDeleteAll, kJTrue);
assert( me->itsAllFontNames != NULL );
}
}
void
JXFontManager::GetMonospaceFontNames
(
JPtrArray<JString>* fontNames
)
const
{
if (itsMonoFontNames != NULL)
{
fontNames->CopyObjects(*itsMonoFontNames, fontNames->GetCleanUpAction(), kJFalse);
}
else
{
(JXGetApplication())->DisplayBusyCursor();
fontNames->CleanOut();
fontNames->SetCompareFunction(JCompareStringsCaseInsensitive);
fontNames->SetSortOrder(JOrderedSetT::kSortAscending);
#ifdef _J_USE_XFT
FcBool scalable = 1;
XftFontSet* fs = XftListFonts(*itsDisplay, DefaultScreen((Display*)*itsDisplay), XFT_SPACING, XftTypeInteger, XFT_MONO,
XFT_SCALABLE, XftTypeBool, scalable, 0, XFT_FAMILY, 0);
for (int i=0; i<fs->nfont; i++)
{
char* raw_name;
if (XftPatternGetString(fs->fonts[i], XFT_FAMILY, 0, &raw_name) == XftResultMatch)
{
JString name(raw_name);
JBoolean isDuplicate;
const JIndex index = fontNames->GetInsertionSortIndex(&name, &isDuplicate);
if (!isDuplicate)
{
fontNames->InsertAtIndex(index, name);
}
}
}
XftFontSetDestroy(fs);
#else
JPtrArray<JString> allFontNames(JPtrArrayT::kDeleteAll);
allFontNames.SetCompareFunction(JCompareStringsCaseInsensitive);
allFontNames.SetSortOrder(JOrderedSetT::kSortAscending);
for (int j=0; j<kMonospaceFontPatternCount; j++)
{
int nameCount;
char** nameList = XListFonts(*itsDisplay, kMonospaceFontPattern[j],
INT_MAX, &nameCount);
if (nameList == NULL)
{
return;
}
JString name, charSet;
for (int i=0; i<nameCount; i++)
{
const std::string s(nameList[i], strlen(nameList[i]));
std::istringstream input(s);
input.ignore(); // initial dash
JIgnoreUntil(input, '-'); // foundry name
name = JReadUntil(input, '-'); // font name
JIgnoreUntil(input, "-iso"); // ignore specs
JReadAll(input, &charSet); // char set
if (name.IsEmpty() || name == "nil")
{
continue;
}
ConvertToPSFontName(&name);
#if ! QUERY_FOR_MONOSPACE
if (name == "Clean" || name == "Courier" || name == "Fixed" ||
name == "Terminal" || name == "Lucidatypewriter" ||
name == "Profontwindows")
{
#endif
// charSet.Prepend("iso");
// name = CombineNameAndCharacterSet(name, charSet);
JBoolean isDuplicate;
const JIndex index =
allFontNames.GetInsertionSortIndex(&name, &isDuplicate);
if (!isDuplicate)
{
allFontNames.InsertAtIndex(index, name);
// cout << nameList[i] << endl;
XFontStruct* xfont = XLoadQueryFont(*itsDisplay, nameList[i]);
if (xfont != NULL)
{
if (IsMonospace(*xfont))
{
JString* n = new JString(name);
assert( n != NULL );
const JBoolean ok = fontNames->InsertSorted(n, kJFalse);
assert( ok );
}
XFreeFont(*itsDisplay, xfont);
}
}
#if ! QUERY_FOR_MONOSPACE
}
#endif
}
XFreeFontNames(nameList);
}
#endif
// save names for next time
JXFontManager* me = const_cast<JXFontManager*>(this);
me->itsMonoFontNames =
new JPtrArray<JString>(*fontNames, JPtrArrayT::kDeleteAll, kJTrue);
assert( me->itsMonoFontNames != NULL );
}
}
XFontStruct*
XftCoreOpen (Display *dpy, XftPattern *pattern)
{
XftCoreFont *cf;
char *xlfd;
char *xlfd_pixel = 0;
char *i, *o;
int d;
Bool scalable;
double pixel_size;
int pixel_int;
XFontStruct *ret;
#if 0
printf ("Core ");
XftPatternPrint (pattern);
#endif
if (XftPatternGetString (pattern, XFT_XLFD, 0, &xlfd) != XftResultMatch)
return 0;
if (XftPatternGetBool (pattern, XFT_SCALABLE, 0, &scalable) != XftResultMatch)
return 0;
if (scalable)
{
if (XftPatternGetDouble (pattern, XFT_PIXEL_SIZE, 0, &pixel_size) != XftResultMatch)
return 0;
pixel_int = (int) (pixel_size + 0.5);
if (pixel_int)
{
xlfd_pixel = (char *) malloc (strlen (xlfd) + 32);
i = xlfd;
o = xlfd_pixel;
d = 0;
while (d != 7 && *i)
{
if ((*o++ = *i++) == '-')
d++;
}
if (*i)
{
sprintf (o, "%d", pixel_int);
o += strlen (o);
while (*i != '-')
++i;
}
while ((*o++ = *i++));
#if 0
printf ("original %s sized %s\n", xlfd, xlfd_pixel);
#endif
xlfd = xlfd_pixel;
}
}
for (cf = _XftCoreFonts; cf; cf = cf->next)
{
if (cf->display == dpy &&
!_XftStrCmpIgnoreCase (cf->xlfd, xlfd))
{
cf->ref++;
if (_XftFontDebug () & XFT_DBG_REF)
{
printf ("Xlfd \"%s\" matches existing font (%d)\n",
xlfd, cf->ref);
}
break;
}
}
if (!cf)
{
ret = XLoadQueryFont (dpy, xlfd);
if (!ret)
return 0;
cf = (XftCoreFont *) malloc (sizeof (XftCoreFont) +
strlen (xlfd) + 1);
if (!cf)
{
XFreeFont (dpy, ret);
return 0;
}
if (_XftFontDebug () & XFT_DBG_REF)
printf ("Xlfd \"%s\" matches new font\n", xlfd);
cf->next = _XftCoreFonts;
_XftCoreFonts = cf;
cf->ref = 1;
cf->font = ret;
cf->xlfd = (char *) (cf + 1);
strcpy (cf->xlfd, xlfd);
}
if (xlfd_pixel)
free (xlfd_pixel);
return cf->font;
}
static void
nr_type_xft_init (void)
{
XftFontSet *fs;
const char *debugenv;
int debug, ret;
int i, pos, fpos;
debugenv = getenv ("INKSCAPE_DEBUG_XFT");
debug = (debugenv && *debugenv && (*debugenv != '0'));
ret = XftInit (NULL);
if (debug) {
fprintf (stderr, "XftInit result %d\n", ret);
fprintf (stderr, "Reading Xft font database...\n");
}
/* Get family list */
fs = XftListFonts (GDK_DISPLAY (), 0,
XFT_SCALABLE, XftTypeBool, 1, XFT_OUTLINE, XftTypeBool, 1, 0,
XFT_FAMILY, 0);
NRXftFamilies.length = fs->nfont;
NRXftFamilies.names = nr_new (gchar *, NRXftFamilies.length);
NRXftFamilies.destructor = NULL;
XftFontSetDestroy (fs);
if (debug) {
fprintf (stderr, "Read %lu families\n", NRXftFamilies.length);
}
/* Get typeface list */
NRXftPatterns = XftListFonts (GDK_DISPLAY (), 0,
XFT_SCALABLE, XftTypeBool, 1, XFT_OUTLINE, XftTypeBool, 1, 0,
XFT_FAMILY, XFT_WEIGHT, XFT_SLANT, XFT_FILE, XFT_INDEX, 0);
NRXftTypefaces.length = NRXftPatterns->nfont;
NRXftTypefaces.names = nr_new (gchar *, NRXftTypefaces.length);
NRXftTypefaces.destructor = NULL;
NRXftNamedict = g_hash_table_new (g_str_hash, g_str_equal);
NRXftFamilydict = g_hash_table_new (g_str_hash, g_str_equal);
if (debug) {
fprintf (stderr, "Read %lu fonts\n", NRXftTypefaces.length);
}
pos = 0;
fpos = 0;
for (i = 0; i < NRXftPatterns->nfont; i++) {
char *name, *file;
XftPatternGetString (NRXftPatterns->fonts[i], XFT_FAMILY, 0, &name);
if (debug) {
fprintf (stderr, "Typeface %s\n", name);
}
XftPatternGetString (NRXftPatterns->fonts[i], XFT_FILE, 0, &file);
if (file) {
int len;
if (debug) {
fprintf (stderr, "Got filename %s\n", file);
}
len = strlen (file);
/* fixme: This is silly and evil */
/* But Freetype just does not load pfa reliably (Lauris) */
/* Changed to exclude pfa, better for OSX */
if ((len > 4) &&
/*
(!strcmp (file + len - 4, ".ttf") ||
!strcmp (file + len - 4, ".TTF") ||
!strcmp (file + len - 4, ".ttc") ||
!strcmp (file + len - 4, ".TTC") ||
!strcmp (file + len - 4, ".otf") ||
!strcmp (file + len - 4, ".OTF") ||
!strcmp (file + len - 4, ".pfb") ||
!strcmp (file + len - 4, ".PFB"))) {
*/
strcmp (file + len - 4, ".pfa") &&
strcmp (file + len - 4, ".PFA")) {
char *fn, *wn, *sn, *name;
int weight;
int slant;
if (debug) {
fprintf (stderr, "Seems valid\n");
}
XftPatternGetString (NRXftPatterns->fonts[i], XFT_FAMILY, 0, &fn);
XftPatternGetInteger (NRXftPatterns->fonts[i], XFT_WEIGHT, 0, &weight);
XftPatternGetInteger (NRXftPatterns->fonts[i], XFT_SLANT, 0, &slant);
switch (weight) {
case XFT_WEIGHT_LIGHT:
wn = "Light";
break;
case XFT_WEIGHT_MEDIUM:
wn = "Book";
break;
case XFT_WEIGHT_DEMIBOLD:
wn = "Demibold";
break;
case XFT_WEIGHT_BOLD:
wn = "Bold";
break;
case XFT_WEIGHT_BLACK:
wn = "Black";
break;
default:
wn = "Normal";
break;
}
switch (slant) {
case XFT_SLANT_ROMAN:
sn = "Roman";
break;
case XFT_SLANT_ITALIC:
sn = "Italic";
break;
case XFT_SLANT_OBLIQUE:
sn = "Oblique";
break;
default:
sn = "Normal";
break;
}
name = g_strdup_printf ("%s %s %s", fn, wn, sn);
if (!g_hash_table_lookup (NRXftNamedict, name)) {
if (!g_hash_table_lookup (NRXftFamilydict, fn)) {
NRXftFamilies.names[fpos] = g_strdup (fn);
g_hash_table_insert (NRXftFamilydict, NRXftFamilies.names[fpos++], (void *) TRUE);
}
NRXftTypefaces.names[pos++] = name;
g_hash_table_insert (NRXftNamedict, name, NRXftPatterns->fonts[i]);
} else {
g_free (name);
}
}
}
}
NRXftTypefaces.length = pos;
NRXftFamilies.length = fpos;
nrxfti = TRUE;
}
