/*
    @(#)Flydial/sysfonts.c
 
    Julian F. Reschke, 13. Januar 1995
 
    IDs und Gr”žen der Systemzeichens„tze erfragen
*/

#include <stdio.h>

#include <aes.h>
#include <vdi.h>


static int
load_font (int vdihandle, int fontid)
{
    int loaded = 0;

    if (fontid != vst_font (vdihandle, fontid) && vq_gdos ())
    {
        vst_load_fonts (vdihandle, 0);
        loaded = 1;
    }

    return loaded;
}

void
FontAESInfo (int vdihandle, int *pfontsloaded,
    int *pnormid, int *pnormheight,
    int *piconid, int *piconheight)
{
    static int done = 0;
    static int normid, normheight;
    static int iconid, iconheight;
    int fontsloaded = 0;
 
    if (!done)
    {
        int aeshandle, cellwidth, cellheight, dummy;

        wind_update (BEG_UPDATE);
 
        aeshandle = graf_handle (&cellwidth, &cellheight, &dummy, &dummy);
 
        if (_GemParBlk.global[0] >= 0x0400)
        {
            /* zun„chst versuchen wir, die Fontids beim AES zu erfragen */
 
            appl_getinfo (0, &normheight, &normid, &dummy, &dummy);
            appl_getinfo (1, &iconheight, &iconid, &dummy, &dummy);
        }
        else
        {
            /* Hier fragen wir den aktuellen Font der AES-Workstation
            ab. Dies ist ein Hack, aber es funktioniert mit den
            unterschiedlichen Auto-Ordner-Tools und ist eben nur
            bis AES 3.99 n”tig. Aužerdem gehen wir davon aus,
            daž f�r beide Textgr”žen dieselbe Schrift verwendet wird */
 
            static OBJECT dum_ob = {0, -1, -1, G_BOXCHAR, LASTOB,
                0, 0X20001100L, 0, 0, 8, 16};
            int attrib[10];
 
            objc_draw (&dum_ob, 0, 1, 0, 0, 1, 1);
            vqt_attributes (aeshandle, attrib);
            iconid = normid = attrib[0];
            normheight = attrib[7];
            iconheight = 4;
        }
 
        /* Nun haben wir f�r beide Fonts die Id und die Pixelgr”že
        (Parameter f�r vst_height). Nun sorgen wir daf�r, daž beide
        Fonts auch wirklich auf der aktuellen virtuellen Workstation
        geladen sind (wir gehen davon, daž sie generell verf�gbar
        sind, sonst h„tte sie uns das AES ja nicht melden d�rfen). */
 
        fontsloaded |= load_font (vdihandle, normid);
        fontsloaded |= load_font (vdihandle, iconid);
 
        /* Systemfont in Standardgr”že einstellen */
 
        vst_font (vdihandle, normid);
        vst_height (vdihandle, normheight, &dummy, &dummy, &dummy, &dummy);
 
        wind_update (END_UPDATE);
 
        done = 1;
    }

    /* R�ckgabewerte */
 
    if (pnormid) *pnormid = normid;
    if (pnormheight) *pnormheight = normheight;
    if (piconid) *piconid = iconid;
    if (piconheight) *piconheight = iconheight;
    if (pfontsloaded) *pfontsloaded = fontsloaded;
}