/*
 * Copyright 2007, Axel Dörfler, axeld@pinc-software.de. All rights reserved.
 * Copyright 2004, François Revol. All rights reserved.
 * Distributed under the terms of the MIT License.
 */


#include <getopt.h>
#include <stdio.h>

#include <Application.h>
#include <Font.h>
#include <String.h>


static struct option const kLongOptions[] = {
        {"styles", no_argument, 0, 's'},
        {"long", no_argument, 0, 'l'},
        {"tuned", no_argument, 0, 't'},
        {"help", no_argument, 0, 'h'},
        {NULL}
};

extern const char *__progname;
static const char *sProgramName = __progname;


void
usage(void)
{
        printf("%s [-s] [-l]\n", sProgramName);
        printf("lists currently installed font families.\n");
        printf("\t-s  --styles  list styles for each family\n");
        printf("\t-l  --long    long listing with more info (spacing, encoding,\n"
                "\t\t\theight (ascent/descent/leading), ...)\n");
        printf("\t-t  --tuned   display tuned fonts\n");
#ifndef __HAIKU__
        printf("\t-u            update font families\n");
#endif
}


int
main(int argc, char **argv)
{
        // parse command line parameters

        bool displayStyles = false;
        bool displayLong = false;
        bool displayTuned = false;
#ifndef __HAIKU__
        bool updateFamilies = false;
#endif

        int c;
        while ((c = getopt_long(argc, argv, "sltuh", kLongOptions, NULL)) != -1) {
                switch (c) {
                        case 0:
                                break;
                        case 'h':
                                usage();
                                return 0;
                        default:
                                usage();
                                return 1;

                        case 't':
                                displayTuned = true;
                        case 'l':
                                displayLong = true;
                        case 's':
                                displayStyles = true;
                                break;
#ifndef __HAIKU__
                        case 'u':
                                updateFamilies = true;
                                break;
#endif
                }
        }

        BApplication app("application/x-vnd.Haiku-listfont");

#ifndef __HAIKU__
        if (updateFamilies) {
                bool changed = update_font_families(true);
                printf("font families %s.\n", changed ? "changed" : "did not change");
                return 0;
        }
#endif

        int32 familyCount = count_font_families();

        if (displayLong) {
                printf("name/style                            face  spc. enc. "
                        "height (a, d, l)  flags\n\n");
        }

        for (int32 f = 0; f < familyCount; f++) {
                font_family family;
                if (get_font_family(f, &family) < B_OK)
                        continue;
                if (!displayStyles) {
                        printf("%s\n", family);
                        continue;
                }

                int32 styleCount = count_font_styles(family);

                for (int32 s = 0; s < styleCount; s++) {
                        font_style style;
                        uint16 face;
                        uint32 flags;
                        if (get_font_style(family, s, &style, &face, &flags) < B_OK)
                                continue;

                        if (!displayLong) {
                                printf("%s/%s\n", family, style);
                                continue;
                        }

                        BString fontName;
                        fontName << family << "/" << style;
                        printf("%-37s", fontName.String());

                        BFont font;
                        font.SetFamilyAndStyle(family, style);
                        printf(" 0x%02x  %-4d %-4d", face, font.Spacing(), font.Encoding());

                        font_height fh;
                        font.GetHeight(&fh);
                        printf(" %5.2f, %4.2f, %4.2f ", fh.ascent, fh.descent, fh.leading);
                        if ((flags & B_IS_FIXED) != 0)
                                printf("fixed");

                        if ((flags & B_HAS_TUNED_FONT) != 0) {
                                if (displayTuned)
                                        printf("\n    ");
                                else if ((flags & B_IS_FIXED) != 0)
                                        printf(", ");

                                int32 tunedCount = font.CountTuned();
                                printf("%" B_PRId32 " tuned", tunedCount);

                                if (displayTuned) {
                                        printf(":");
                                        for (int32 i = 0; i < tunedCount; i++) {
                                                tuned_font_info info;
                                                font.GetTunedInfo(i, &info);
                                                printf("\n\t(size %4.1f, "
                                                        "shear %5.3f, "
                                                        "rot. %5.3f, "
                                                        "flags 0x%" B_PRIx32 ", "
                                                        "face 0x%x)",
                                                                info.size,
                                                                info.shear,
                                                                info.rotation,
                                                                info.flags,
                                                                info.face);
                                        }
                                }
                        }
                        putchar('\n');
                }
        }
        return 0;
}