;/* CharsetTest, execute me to compile me
gcc -o CharsetTest CharsetTest.c -Wall -Werror -lauto
quit
*/
 
#include <intuition/intuition.h>
#include <graphics/text.h>
#include <graphics/rpattr.h>
#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include <proto/graphics.h>
#include <proto/diskfont.h>
 
#include "stdlib.h"   /*  for exit()  */
#include "string.h"   /*  for strlen()  */
 
struct Window *Window = NULL;
struct TextFont *tfISO5 = NULL;
 
void CloseAll(void)
{
    if (tfISO5) IGraphics->CloseFont(tfISO5);
    if (Window) IIntuition->CloseWindow(Window);
}
 
void Fail(char *failString)
{
    IDOS->Printf("%s\n", failString);
    CloseAll();
    exit(FALSE);
}
 
void OpenWindow(void)
{
    static char WindowTitle[] = "Charset Test";
 
    if (!(Window = IIntuition->OpenWindowTags(NULL,
                       WA_Title, WindowTitle,
                       WA_Width, 300,
                       WA_Height, 100,
                       WA_Flags, WFLG_CLOSEGADGET | WFLG_DRAGBAR | WFLG_DEPTHGADGET,
                       WA_IDCMP, IDCMP_CLOSEWINDOW)))
        Fail("could not open window");
}
 
void CharsetTest(void)
{
    char testStringSYS[] = "Test System Charset: ±êÛÓÐàáÚØ";
    char testStringISO5[] = "Test ISO-8859-5: ±êÛÓÐàáÚØ";
    WORD x, y;
    struct RastPort *rp = Window->RPort;
    struct TextFont *tfSYS = NULL;
    struct TTextAttr ttaISO5;
    struct TagItem ti[2];
 
    /* get system font and try other charset */
    IGraphics->GetRPAttrs(rp, RPTAG_Font, &tfSYS, TAG_DONE);
    ttaISO5.tta_Name = tfSYS->tf_Message.mn_Node.ln_Name;
    ttaISO5.tta_YSize = tfSYS->tf_YSize;
    ttaISO5.tta_Style = tfSYS->tf_Style | FSF_TAGGED;
    ttaISO5.tta_Flags = tfSYS->tf_Flags;
    ttaISO5.tta_Tags = ti;
    ti[0].ti_Tag = TA_CharSet;
    ti[0].ti_Data = 8; // ISO-8859-5
    ti[1].ti_Tag = TAG_DONE;
 
    if (!(tfISO5 = IDiskfont->OpenDiskFont((struct TextAttr *)&ttaISO5)))
        Fail("could not open font in ISO-8859-5");
 
    IGraphics->SetAPen(rp, 1);
 
    x = Window->BorderLeft + 10;
    y = Window->BorderTop + 10 + rp->TxBaseline + 2;
 
    /* render font in system charset */
    IGraphics->Move(rp, x, y);
    IGraphics->Text(rp, testStringSYS, strlen(testStringSYS));
 
    /* render font in ISO-8859-5 */
    y += rp->TxHeight + 2;
    IGraphics->SetFont(rp, tfISO5);
    IGraphics->Move(rp, x, y);
    IGraphics->Text(rp, testStringISO5, strlen(testStringISO5));
 
}
 
int main(void)
{
    BOOL done;
    struct IntuiMessage *imsg;
 
    OpenWindow();
    CharsetTest();
 
    done = FALSE;
    while (!done)
    {
        imsg = (struct IntuiMessage *) IExec->GetMsg(Window->UserPort);
        if (!imsg)
        {
            IExec->Wait(1 << Window->UserPort->mp_SigBit);
            continue;
        }
 
        if (imsg)
        {
            switch (imsg->Class)
            {
                case IDCMP_CLOSEWINDOW:
                    done = TRUE;
                    break;
            }
            IExec->ReplyMsg((struct Message *) imsg);
        }
    }
 
    CloseAll();
 
    return 0;
}