text_format.c

Go to the documentation of this file.

#include "text.h"

#include <mware/formatwr.h> /* _formatted_write() */
#include <gfx/font.h>
#include <gfx/gfx.h>

#include <stdio.h> /* vsprintf() */
#include <stdarg.h>
#include <string.h> /* strlen() */

int PGM_FUNC(text_puts)(const char * PGM_ATTR str, struct Bitmap *bm)
{
    char c;

    while ((c = PGM_READ_CHAR(str++)))
        text_putchar(c, bm);

    return 0;
}


int PGM_FUNC(text_vprintf)(struct Bitmap *bm, const char * PGM_ATTR fmt, va_list ap)
{
    return PGM_FUNC(_formatted_write)(fmt, (void (*)(char, void *))text_putchar, bm, ap);
}

int PGM_FUNC(text_printf)(struct Bitmap *bm, const char * PGM_ATTR fmt, ...)
{
    int len;

    va_list ap;
    va_start(ap, fmt);
    len = PGM_FUNC(text_vprintf)(bm, fmt, ap);
    va_end(ap);

    return len;
}

int PGM_FUNC(text_xyvprintf)(struct Bitmap *bm,
        coord_t x, coord_t y, uint16_t style, const char * PGM_ATTR fmt, va_list ap)
{
    int len;
    uint8_t oldstyle = 0;

    text_setCoord(bm, x, y);

    if (style & STYLEF_MASK)
        oldstyle = text_style(bm, style, STYLEF_MASK);

    if (style & (TEXT_CENTER | TEXT_RIGHT))
    {
        uint8_t pad = bm->width - PGM_FUNC(text_vwidthf)(bm, fmt, ap);

        if (style & TEXT_CENTER)
            pad /= 2;

        if (style & TEXT_FILL)
            gfx_rectFillC(bm, 0, y, pad, y + bm->font->height,
                (style & STYLEF_INVERT) ? 0xFF : 0x00);

        text_setCoord(bm, pad, y);
    }

    len = PGM_FUNC(text_vprintf)(bm, fmt, ap);

    if (style & TEXT_FILL)
        gfx_rectFillC(bm, bm->penX, y, bm->width, y + bm->font->height,
            (style & STYLEF_INVERT) ? 0xFF : 0x00);

    /* Restore old style */
    if (style & STYLEF_MASK)
        text_style(bm, oldstyle, STYLEF_MASK);

    return len;
}


int PGM_FUNC(text_xyprintf)(struct Bitmap *bm,
        coord_t x, coord_t y, uint16_t style, const char * PGM_ATTR fmt, ...)
{
    int len;
    va_list ap;

    va_start(ap, fmt);
    len = PGM_FUNC(text_xyvprintf)(bm, x, y, style, fmt, ap);
    va_end(ap);

    return len;
}


int PGM_FUNC(text_xprintf)(struct Bitmap *bm,
        uint8_t row, uint8_t col, uint16_t style, const char * PGM_ATTR fmt, ...)
{
    int len;
    va_list ap;

    va_start(ap, fmt);
    len = PGM_FUNC(text_xyvprintf)(
            bm, col * bm->font->width, row * bm->font->height,
            style, fmt, ap);
    va_end(ap);

    return len;
}


struct TextWidthData
{
    Bitmap *bitmap;
    coord_t width;
};

static int text_charWidth(int c, struct TextWidthData *twd)
{
    unsigned char index = (unsigned char)c;
    Bitmap *bm = twd->bitmap;
    coord_t glyph_width;


    if (UNLIKELY(!FONT_HAS_GLYPH(bm->font, index)))
    {
        if (!FONT_HAS_GLYPH(bm->font, '?'))
            index = '?';
        else
            index = bm->font->first;
    }

    /* Make character relative to font start */
    index -= bm->font->first;

    if (bm->font->offset)
        /* Proportional font */
        glyph_width = bm->font->widths[index]; /* TODO: optimize away */
    else
        /* Fixed width font */
        glyph_width = bm->font->width;

    if (bm->styles & STYLEF_CONDENSED)
        --glyph_width;

    if (bm->styles & STYLEF_EXPANDED)
        glyph_width *= 2;

    twd->width += glyph_width;

    return c;
}

int PGM_FUNC(text_vwidthf)(
    UNUSED_ARG(struct Bitmap *, bm),
    const char * PGM_ATTR fmt,
    va_list ap)
{
    /* Fixed font with no styles affecting the width? */
    if (!bm->font->offset && !(bm->styles & (STYLEF_CONDENSED | STYLEF_EXPANDED)))
        return PGM_FUNC(vsprintf)(NULL, fmt, ap) * bm->font->width;
    else
    {
        struct TextWidthData twd;
        twd.bitmap = bm;
        twd.width = 0;
        _formatted_write(fmt, (void (*)(char, void *))text_charWidth, &twd, ap);
        return twd.width;
    }
}


int PGM_FUNC(text_widthf)(struct Bitmap *bm, const char * PGM_ATTR fmt, ...)
{
    int width;

    va_list ap;
    va_start(ap, fmt);
    width = PGM_FUNC(text_vwidthf)(bm, fmt, ap);
    va_end(ap);

    return width;
}