/*

 * Copyright 1998-2006 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 */

#ifdef __linux__

#include <string.h>

#endif /* __linux__ */

#include <stdio.h>

#include <stdlib.h>

#include <strings.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <sys/mman.h>

#include <fcntl.h>

#include <unistd.h>

#ifdef __solaris__

#include <sys/systeminfo.h>

#endif

#include <jni.h>

#include <jni_util.h>

#include <sun_font_FontManager.h>

#ifndef HEADLESS

#include <X11/Xlib.h>

#include <awt.h>

#else

/* locks ought to be included from awt.h */

#define AWT_LOCK()

#define AWT_UNLOCK()

#endif /* !HEADLESS */

#if defined(__linux__) && !defined(MAP_FAILED)

#define MAP_FAILED ((caddr_t)-1)

#endif

#ifndef HEADLESS

extern Display *awt_display;

#endif /* !HEADLESS */

#define MAXFDIRS 512    /* Max number of directories that contain fonts */

#ifndef __linux__

/*

 * This can be set in the makefile to "/usr/X11" if so desired.

 */

#ifndef OPENWINHOMELIB

#define OPENWINHOMELIB "/usr/openwin/lib/"

#endif

/* This is all known Solaris X11 directories on Solaris 8, 9 and 10.

 * It is ordered to give precedence to TrueType directories.

 * It is needed if fontconfig is not installed or configured properly.

 */

static char *fullSolarisFontPath[] = {

    OPENWINHOMELIB "X11/fonts/TrueType",

    OPENWINHOMELIB "locale/euro_fonts/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_2/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_5/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_7/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_8/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_9/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_13/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/iso_8859_15/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/ar/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/hi_IN.UTF-8/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/ja/X11/fonts/TT",

    OPENWINHOMELIB "locale/ko/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/ko.UTF-8/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/KOI8-R/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/ru.ansi-1251/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/th_TH/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/zh_TW/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/zh_TW.BIG5/X11/fonts/TT",

    OPENWINHOMELIB "locale/zh_HK.BIG5HK/X11/fonts/TT",

    OPENWINHOMELIB "locale/zh_CN.GB18030/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/zh/X11/fonts/TrueType",

    OPENWINHOMELIB "locale/zh.GBK/X11/fonts/TrueType",

    OPENWINHOMELIB "X11/fonts/Type1",

    OPENWINHOMELIB "X11/fonts/Type1/sun",

    OPENWINHOMELIB "X11/fonts/Type1/sun/outline",

    OPENWINHOMELIB "locale/iso_8859_2/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_4/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_5/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_7/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_8/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_9/X11/fonts/Type1",

    OPENWINHOMELIB "locale/iso_8859_13/X11/fonts/Type1",

    OPENWINHOMELIB "locale/ar/X11/fonts/Type1",

    NULL, /* terminates the list */

};

#else /* __linux */

/* All the known interesting locations we have discovered on

 * various flavors of Linux

 */

static char *fullLinuxFontPath[] = {

    "/usr/X11R6/lib/X11/fonts/TrueType",  /* RH 7.1+ */

    "/usr/X11R6/lib/X11/fonts/truetype",  /* SuSE */

    "/usr/X11R6/lib/X11/fonts/tt",

    "/usr/X11R6/lib/X11/fonts/TTF",

    "/usr/X11R6/lib/X11/fonts/OTF",       /* RH 9.0 (but empty!) */

    "/usr/share/fonts/ja/TrueType",       /* RH 7.2+ */

    "/usr/share/fonts/truetype",

    "/usr/share/fonts/ko/TrueType",       /* RH 9.0 */

    "/usr/share/fonts/zh_CN/TrueType",    /* RH 9.0 */

    "/usr/share/fonts/zh_TW/TrueType",    /* RH 9.0 */

    "/var/lib/defoma/x-ttcidfont-conf.d/dirs/TrueType", /* Debian */

    "/usr/X11R6/lib/X11/fonts/Type1",

    "/usr/share/fonts/default/Type1",     /* RH 9.0 */

    NULL, /* terminates the list */

};

#endif

static char **getFontConfigLocations();

typedef struct {

    const char *name[MAXFDIRS];

    int  num;

} fDirRecord, *fDirRecordPtr;

#ifndef HEADLESS

/*

 * Returns True if display is local, False of it's remote.

 */

jboolean isDisplayLocal(JNIEnv *env) {

    static jboolean isLocal = False;

    static jboolean isLocalSet = False;

    jboolean ret;

    if (isLocalSet) {

        return isLocal;

    }

    isLocal = JNU_CallStaticMethodByName(env, NULL,

                                         "sun/awt/X11GraphicsEnvironment",

                                         "_isDisplayLocal",

                                         "()Z").z;

    isLocalSet = True;

    return isLocal;

}

static void AddFontsToX11FontPath ( fDirRecord *fDirP )

{

    char *onePath;

    int index, nPaths;

    int origNumPaths, length;

    int origIndex;

    int totalDirCount;

    char  **origFontPath;

    char  **tempFontPath;

    int doNotAppend;

    int *appendDirList;

    char **newFontPath;

    int err, compareLength;

    char fontDirPath[512];

    int dirFile;

    doNotAppend = 0;

    if ( fDirP->num == 0 ) return;

    appendDirList = malloc ( fDirP->num * sizeof ( int ));

    if ( appendDirList == NULL ) {

      return;  /* if it fails we cannot do much */

    }

    origFontPath = XGetFontPath ( awt_display, &nPaths );

    totalDirCount = nPaths;

    origNumPaths = nPaths;

    tempFontPath = origFontPath;

    for (index = 0; index < fDirP->num; index++ ) {

        doNotAppend = 0;

        tempFontPath = origFontPath;

        for ( origIndex = 0; origIndex < nPaths; origIndex++ ) {

            onePath = *tempFontPath;

            compareLength = strlen ( onePath );

            if ( onePath[compareLength -1] == '/' )

              compareLength--;

            /* there is a slash at the end of every solaris X11 font path name */

            if ( strncmp ( onePath, fDirP->name[index], compareLength ) == 0 ) {

              doNotAppend = 1;

              break;

            }

            tempFontPath++;

        }

        appendDirList[index] = 0;

        if ( doNotAppend == 0 ) {

            strcpy ( fontDirPath, fDirP->name[index] );

            strcat ( fontDirPath, "/fonts.dir" );

            dirFile = open ( fontDirPath, O_RDONLY, 0 );

            if ( dirFile == -1 ) {

                doNotAppend = 1;

            } else {

               close ( dirFile );

               totalDirCount++;

               appendDirList[index] = 1;

            }

        }

    }

    /* if no changes are required do not bother to do a setfontpath */

    if ( totalDirCount == nPaths ) {

      free ( ( void *) appendDirList );

      XFreeFontPath ( origFontPath );

      return;

    }

    newFontPath = malloc ( totalDirCount * sizeof ( char **) );

    /* if it fails free things and get out */

    if ( newFontPath == NULL ) {

      free ( ( void *) appendDirList );

      XFreeFontPath ( origFontPath );

      return;

    }

    for ( origIndex = 0; origIndex < nPaths; origIndex++ ) {

      onePath = origFontPath[origIndex];

      newFontPath[origIndex] = onePath;

    }

    /* now add the other font paths */

    for (index = 0; index < fDirP->num; index++ ) {

      if ( appendDirList[index] == 1 ) {

        /* printf ( "Appending %s\n", fDirP->name[index] ); */

        onePath = malloc ( ( strlen (fDirP->name[index]) + 2 )* sizeof( char ) );

        strcpy ( onePath, fDirP->name[index] );

        strcat ( onePath, "/" );

        newFontPath[nPaths++] = onePath;

        /* printf ( "The path to be appended is %s\n", onePath ); */

      }

    }

    /*   printf ( "The dir count = %d\n", totalDirCount ); */

    free ( ( void *) appendDirList );

    XSetFontPath ( awt_display, newFontPath, totalDirCount );

        for ( index = origNumPaths; index < totalDirCount; index++ ) {

                free( newFontPath[index] );

    }

        free ( (void *) newFontPath );

    XFreeFontPath ( origFontPath );

    return;

}

#endif /* !HEADLESS */

#ifndef HEADLESS

static char **getX11FontPath ()

{

    char **x11Path, **fontdirs;

    int i, pos, slen, nPaths, numDirs;

    x11Path = XGetFontPath (awt_display, &nPaths);

    /* This isn't ever going to be perfect: the font path may contain

     * much we aren't interested in, but the cost should be moderate

     * Exclude all directories that contain the strings "Speedo","/F3/",

     * "75dpi", "100dpi", "misc" or "bitmap", or don't begin with a "/",

     * the last of which should exclude font servers.

     * Also exclude the user specific ".gnome*" directories which

     * aren't going to contain the system fonts we need.

     * Hopefully we are left only with Type1 and TrueType directories.

     * It doesn't matter much if there are extraneous directories, it'll just

     * cost us a little wasted effort upstream.

     */

    fontdirs = (char**)calloc(nPaths+1, sizeof(char*));

    pos = 0;

    for (i=0; i < nPaths; i++) {

        if (x11Path[i][0] != '/') {

            continue;

        }

        if (strstr(x11Path[i], "/75dpi") != NULL) {

            continue;

        }

        if (strstr(x11Path[i], "/100dpi") != NULL) {

            continue;

        }

        if (strstr(x11Path[i], "/misc") != NULL) {

            continue;

        }

        if (strstr(x11Path[i], "/Speedo") != NULL) {

            continue;

        }

        if (strstr(x11Path[i], ".gnome") != NULL) {

            continue;

        }

#ifdef __solaris__

        if (strstr(x11Path[i], "/F3/") != NULL) {

            continue;

        }

        if (strstr(x11Path[i], "bitmap") != NULL) {

            continue;

        }

#endif

        fontdirs[pos] = strdup(x11Path[i]);

        slen = strlen(fontdirs[pos]);

        if (slen > 0 && fontdirs[pos][slen-1] == '/') {

            fontdirs[pos][slen-1] = '\0'; /* null out trailing "/"  */

        }

        pos++;

    }

    XFreeFontPath(x11Path);

    if (pos == 0) {

        free(fontdirs);

        fontdirs = NULL;

    }

    return fontdirs;

}

#endif /* !HEADLESS */

#ifdef __linux__

/* from awt_LoadLibrary.c */

JNIEXPORT jboolean JNICALL AWTIsHeadless();

#endif

/* This eliminates duplicates, at a non-linear but acceptable cost

 * since the lists are expected to be reasonably short, and then

 * deletes references to non-existent directories, and returns

 * a single path consisting of unique font directories.

 */

static char* mergePaths(char **p1, char **p2, char **p3, jboolean noType1) {

    int len1=0, len2=0, len3=0, totalLen=0, numDirs=0,

        currLen, i, j, found, pathLen=0;

    char **ptr, **fontdirs;

    char *fontPath = NULL;

    if (p1 != NULL) {

        ptr = p1;

        while (*ptr++ != NULL) len1++;

    }

    if (p2 != NULL) {

        ptr = p2;

        while (*ptr++ != NULL) len2++;

    }

    if (p3 != NULL) {

        ptr = p3;

        while (*ptr++ != NULL) len3++;

    }

    totalLen = len1+len2+len3;

    fontdirs = (char**)calloc(totalLen, sizeof(char*));

    for (i=0; i < len1; i++) {

        if (noType1 && strstr(p1[i], "Type1") != NULL) {

            continue;

        }

        fontdirs[numDirs++] = p1[i];

    }

    currLen = numDirs; /* only compare against previous path dirs */

    for (i=0; i < len2; i++) {

        if (noType1 && strstr(p2[i], "Type1") != NULL) {

            continue;

        }

        found = 0;

        for (j=0; j < currLen; j++) {

            if (strcmp(fontdirs[j], p2[i]) == 0) {

                found = 1;

                break;

            }

        }

        if (!found) {

           fontdirs[numDirs++] = p2[i];

        }

    }

    currLen = numDirs; /* only compare against previous path dirs */

    for (i=0; i < len3; i++) {

        if (noType1 && strstr(p3[i], "Type1") != NULL) {

            continue;

        }

        found = 0;

        for (j=0; j < currLen; j++) {

            if (strcmp(fontdirs[j], p3[i]) == 0) {

                found = 1;

                break;

            }

        }

        if (!found) {

           fontdirs[numDirs++] = p3[i];

        }

    }

    /* Now fontdirs contains unique dirs and numDirs records how many.

     * What we don't know is if they all exist. On reflection I think

     * this isn't an issue, so for now I will return all these locations,

     * converted to one string */

    for (i=0; i<numDirs; i++) {

        pathLen += (strlen(fontdirs[i]) + 1);

    }

    if (pathLen > 0 && (fontPath = malloc(pathLen))) {

        *fontPath = '\0';

        for (i = 0; i<numDirs; i++) {

            if (i != 0) {

                strcat(fontPath, ":");

            }

            strcat(fontPath, fontdirs[i]);

        }

    }

    free (fontdirs);

    return fontPath;

}

/*

 * The goal of this function is to find all "system" fonts which

 * are needed by the JRE to display text in supported locales etc, and

 * to support APIs which allow users to enumerate all system fonts and use

 * them from their Java applications.

 * The preferred mechanism is now using the new "fontconfig" library

 * This exists on newer versions of Linux and Solaris (S10 and above)

 * The library is dynamically located. The results are merged with

 * a set of "known" locations and with the X11 font path, if running in

 * a local X11 environment.

 * The hardwired paths are built into the JDK binary so as new font locations

 * are created on a host plaform for them to be located by the JRE they will

 * need to be added ito the host's font configuration database, typically

 * /etc/fonts/local.conf, and to ensure that directory contains a fonts.dir

 * NB: Fontconfig also depends heavily for performance on the host O/S

 * maintaining up to date caches.

 * This is consistent with the requirements of the desktop environments

 * on these OSes.

 * This also frees us from X11 APIs as JRE is required to function in

 * a "headless" mode where there is no Xserver.

 */

static char *getPlatformFontPathChars(JNIEnv *env, jboolean noType1) {

    char **fcdirs = NULL, **x11dirs = NULL, **knowndirs = NULL, *path = NULL;

    /* As of 1.5 we try to use fontconfig on both Solaris and Linux.

     * If its not available NULL is returned.

     */

    fcdirs = getFontConfigLocations();

#ifdef __linux__

    knowndirs = fullLinuxFontPath;

#else /* IF SOLARIS */

    knowndirs = fullSolarisFontPath;

#endif

    /* REMIND: this code requires to be executed when the GraphicsEnvironment

     * is already initialised. That is always true, but if it were not so,

     * this code could throw an exception and the fontpath would fail to

     * be initialised.

     */

#ifndef HEADLESS

#ifdef __linux__        /* There's no headless build on linux ... */

    if (!AWTIsHeadless()) { /* .. so need to call a function to check */

#endif

    AWT_LOCK();

    if (isDisplayLocal(env)) {

        x11dirs = getX11FontPath();

    }

    AWT_UNLOCK();

#ifdef __linux__

    }

#endif

#endif /* !HEADLESS */

    path = mergePaths(fcdirs, x11dirs, knowndirs, noType1);

    if (fcdirs != NULL) {

        char **p = fcdirs;

        while (*p != NULL)  free(*p++);

        free(fcdirs);

    }

    if (x11dirs != NULL) {

        char **p = x11dirs;

        while (*p != NULL) free(*p++);

        free(x11dirs);

    }

    return path;

}

JNIEXPORT jstring JNICALL Java_sun_font_FontManager_getFontPath

(JNIEnv *env, jclass obj, jboolean noType1) {

    jstring ret;

    static char *ptr = NULL; /* retain result across calls */

    if (ptr == NULL) {

        ptr = getPlatformFontPathChars(env, noType1);

    }

    ret = (*env)->NewStringUTF(env, ptr);

    return ret;