erythros/System/Utilities/TrueType.HC

Silent(1); // This is needed to suppress "Function should return val" warnings for wrappers to non-HolyC functions

class stbtt__buf {
    U8* data;
    I32 cursor;
    I32 size;
};

class stbtt_fontinfo {
    U8* userdata;
    U8* data;                                          // pointer to .ttf file
    I32 fontstart;                                     // offset of start of font
    I32 numGlyphs;                                     // number of glyphs, needed for range checking
    I32 loca, head, glyf, hhea, hmtx, kern, gpos, svg; // table locations as offset from start of .ttf
    I32 index_map;                                     // a cmap mapping for our chosen character encoding
    I32 indexToLocFormat;                              // format needed to map from glyph index to glyph

    stbtt__buf cff;         // cff font data
    stbtt__buf charstrings; // the charstring index
    stbtt__buf gsubrs;      // global charstring subroutines index
    stbtt__buf subrs;       // private charstring subroutines index
    stbtt__buf fontdicts;   // array of font dicts
    stbtt__buf fdselect;    // map from glyph to fontdict
};

I32 @stbtt_InitFont(stbtt_fontinfo* info, U8* data, I32 offset)
{
    U64 reg RDI rdi = info;
    U64 reg RSI rsi = data;
    U64 reg RDX rdx = offset;
    no_warn rdi, rsi, rdx;
    asm {
        MOV RAX, STBTT_INITFONT
        CALL RAX
    }
}

U8* @stbtt_RenderText(stbtt_fontinfo* info, I32 b_w, I32 b_h, I32 l_h, I32* word, I32* advance = NULL)
{
    U64 reg RDI rdi = info;
    U64 reg RSI rsi = b_w;
    U64 reg RDX rdx = b_h;
    U64 reg RCX rcx = l_h;
    U64 reg R8 r8 = word;
    U64 reg R9 r9 = advance;
    no_warn rdi, rsi, rdx, rcx, r8, r9;
    stbtt_pos = 0;
    asm {
        MOV RAX, STBTT_RENDERTEXT
        CALL RAX
    }
}

I32 @stbtt_GetTextWidth(stbtt_fontinfo* info, I32 l_h, I32* word, I32* advance = NULL)
{
    U64 reg RDI rdi = info;
    U64 reg RSI rsi = l_h;
    U64 reg RDX rdx = word;
    U64 reg RCX rcx = advance;
    no_warn rdi, rsi, rdx, rcx;
    asm {
        MOV RAX, STBTT_GETTEXTWIDTH
        CALL RAX
    }
}

U8* @stbtt_GetFontNameDefault(stbtt_fontinfo* font, I32* length)
{
    U64 reg RDI rdi = font;
    U64 reg RSI rsi = length;
    no_warn rdi, rsi;
    asm {
        MOV RAX, STBTT_GETFONTNAMEDEFAULT
        CALL RAX
    }
}

Silent(0);

"truetype ";