path: root/src/html/html.c

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <assert.h>

#include "config.h"
#include "cmark.h"
#include "buffer.h"
#include "ast.h"
#include "debug.h"
#include "html/houdini.h"

typedef struct RenderStack {
    struct RenderStack *previous;
    char* literal;
    union {
        node_inl *inl;
        node_block *block;
    } next_sibling;
    bool tight;
    bool trim;
} render_stack;

static void free_render_stack(render_stack * rstack)
{
    render_stack * tempstack;
    while (rstack) {
        tempstack = rstack;
        rstack = rstack->previous;
        free(tempstack);
    }
}

static render_stack* push_inline(render_stack* rstack,
                 node_inl* inl,
                 char* literal)
{
    render_stack* newstack;
    newstack = (render_stack*)malloc(sizeof(render_stack));
    if (newstack == NULL) {
        return NULL;
    }
    newstack->previous = rstack;
    newstack->next_sibling.inl = inl;
    newstack->literal = literal;
    newstack->tight = false;
    newstack->trim = false;
    return newstack;
}

static render_stack* push_block(render_stack* rstack,
                node_block* block,
                char* literal,
                bool tight,
                bool trim)
{
    render_stack* newstack;
    newstack = (render_stack*)malloc(sizeof(render_stack));
    if (newstack == NULL) {
        return NULL;
    }
    newstack->previous = rstack;
    newstack->next_sibling.block = block;
    newstack->literal = literal;
    newstack->tight = tight;
    newstack->trim = trim;
    return newstack;
}

static render_stack* pop_render_stack(render_stack* rstack)
{
    render_stack* top = rstack;

    if (rstack == NULL) {
        return NULL;
    }
    rstack = rstack->previous;
    top->previous = NULL;
    free_render_stack(top);
    return rstack;
}

// Functions to convert node_block and inline lists to HTML strings.

static void escape_html(strbuf *dest, const unsigned char *source, int length)
{
    if (length < 0)
        length = strlen((char *)source);

    houdini_escape_html0(dest, source, (size_t)length, 0);
}

static void escape_href(strbuf *dest, const unsigned char *source, int length)
{
    if (length < 0)
        length = strlen((char *)source);

    houdini_escape_href(dest, source, (size_t)length);
}

static inline void cr(strbuf *html)
{
    if (html->size && html->ptr[html->size - 1] != '\n')
        strbuf_putc(html, '\n');
}

// Convert an inline list to HTML.  Returns 0 on success, and sets result.
static void inlines_to_plain_html(strbuf *html, node_inl* ils)
{
    node_inl* children;
    bool visit_children;
    render_stack* rstack = NULL;

    while(ils != NULL) {
        visit_children = false;
        switch(ils->tag) {
        case INL_STRING:
        case INL_CODE:
        case INL_RAW_HTML:
            escape_html(html, ils->content.literal.data, ils->content.literal.len);
            break;

        case INL_LINEBREAK:
        case INL_SOFTBREAK:
            strbuf_putc(html, '\n');
            break;

        case INL_LINK:
        case INL_IMAGE:
            children = ils->content.linkable.label;
            visit_children = true;
            rstack = push_inline(rstack, ils->next, "");
            break;

        case INL_STRONG:
        case INL_EMPH:
            children = ils->content.inlines;
            visit_children = true;
            rstack = push_inline(rstack, ils->next, "");
            break;
        }
        if (visit_children) {
            ils = children;
        } else {
            ils = ils->next;
        }
        while (ils == NULL && rstack != NULL) {
            strbuf_puts(html, rstack->literal);
            ils = rstack->next_sibling.inl;
            rstack = pop_render_stack(rstack);
        }
    }

    free_render_stack(rstack);
}


// Convert an inline list to HTML.  Returns 0 on success, and sets result.
static void inlines_to_html(strbuf *html, node_inl* ils)
{
    node_inl* children;
    render_stack* rstack = NULL;

    while(ils != NULL) {
            children = NULL;
        switch(ils->tag) {
        case INL_STRING:
            escape_html(html, ils->content.literal.data, ils->content.literal.len);
            break;

        case INL_LINEBREAK:
            strbuf_puts(html, "<br />\n");
            break;

        case INL_SOFTBREAK:
            strbuf_putc(html, '\n');
            break;

        case INL_CODE:
            strbuf_puts(html, "<code>");
            escape_html(html, ils->content.literal.data, ils->content.literal.len);
            strbuf_puts(html, "</code>");
            break;

        case INL_RAW_HTML:
            strbuf_put(html,
                   ils->content.literal.data,
                   ils->content.literal.len);
            break;

        case INL_LINK:
            strbuf_puts(html, "<a href=\"");
            if (ils->content.linkable.url)
                escape_href(html, ils->content.linkable.url, -1);

            if (ils->content.linkable.title) {
                strbuf_puts(html, "\" title=\"");
                escape_html(html, ils->content.linkable.title, -1);
            }

            strbuf_puts(html, "\">");
            children = ils->content.linkable.label;
            rstack = push_inline(rstack, ils->next, "</a>");
            break;

        case INL_IMAGE:
            strbuf_puts(html, "<img src=\"");
            if (ils->content.linkable.url)
                escape_href(html, ils->content.linkable.url, -1);

            strbuf_puts(html, "\" alt=\"");
            inlines_to_plain_html(html, ils->content.inlines);

            if (ils->content.linkable.title) {
                strbuf_puts(html, "\" title=\"");
                escape_html(html, ils->content.linkable.title, -1);
            }

            strbuf_puts(html, "\"/>");
            break;

        case INL_STRONG:
            strbuf_puts(html, "<strong>");
            children = ils->content.inlines;
            rstack = push_inline(rstack, ils->next, "</strong>");
            break;

        case INL_EMPH:
            strbuf_puts(html, "<em>");
            children = ils->content.inlines;
            rstack = push_inline(rstack, ils->next, "</em>");
            break;
        }
        if (children) {
            ils = children;
        } else {
            ils = ils->next;
        }
        while (ils == NULL && rstack != NULL) {
            strbuf_puts(html, rstack->literal);
            ils = rstack->next_sibling.inl;
            rstack = pop_render_stack(rstack);
        }
    }

    free_render_stack(rstack);
}

// Convert a node_block list to HTML.  Returns 0 on success, and sets result.
static void blocks_to_html(strbuf *html, node_block *b)
{
    struct ListData *data;
    render_stack* rstack = NULL;
    bool visit_children = false;
    bool tight = false;

    while(b != NULL) {
        visit_children = false;
        switch(b->tag) {
        case BLOCK_DOCUMENT:
            rstack = push_block(rstack, b->next, "", false, false);
            visit_children = true;
            break;

        case BLOCK_PARAGRAPH:
            if (tight) {
                inlines_to_html(html, b->inline_content);
            } else {
                cr(html);
                strbuf_puts(html, "<p>");
                inlines_to_html(html, b->inline_content);
                strbuf_puts(html, "</p>\n");
            }
            break;

        case BLOCK_BQUOTE:
            cr(html);
            strbuf_puts(html, "<blockquote>\n");
            rstack = push_block(rstack, b->next, "</blockquote>\n", tight, false);
            tight = false;
            visit_children = true;
            break;

        case BLOCK_LIST_ITEM:
            cr(html);
            strbuf_puts(html, "<li>");
            rstack = push_block(rstack, b->next, "</li>\n", tight, true);
            visit_children = true;
            break;

        case BLOCK_LIST:
            // make sure a list starts at the beginning of the line:
            cr(html);
            data = &(b->as.list);

            if (data->start > 1) {
                strbuf_printf(html, "<%s start=\"%d\">\n",
                          data->list_type == CMARK_BULLET_LIST ? "ul" : "ol",
                          data->start);
            } else {
                strbuf_puts(html, data->list_type == CMARK_BULLET_LIST ? "<ul>\n" : "<ol>\n");
            }

            rstack = push_block(rstack, b->next,
                        data->list_type == CMARK_BULLET_LIST ?
                        "\n</ul>\n" : "\n</ol>\n", tight, false);
            tight = data->tight;
            visit_children = true;
            break;

        case BLOCK_ATX_HEADER:
        case BLOCK_SETEXT_HEADER:
            cr(html);
            strbuf_printf(html, "<h%d>", b->as.header.level);
            inlines_to_html(html, b->inline_content);
            strbuf_printf(html, "</h%d>\n", b->as.header.level);
            break;

        case BLOCK_INDENTED_CODE:
        case BLOCK_FENCED_CODE:
            cr(html);

            strbuf_puts(html, "<pre><code");

            if (b->tag == BLOCK_FENCED_CODE) {
                strbuf *info = &b->as.code.info;

                if (strbuf_len(info) > 0) {
                    int first_tag = strbuf_strchr(info, ' ', 0);
                    if (first_tag < 0)
                        first_tag = strbuf_len(info);

                    strbuf_puts(html, " class=\"language-");
                    escape_html(html, info->ptr, first_tag);
                    strbuf_putc(html, '"');
                }
            }

            strbuf_putc(html, '>');
            escape_html(html, b->string_content.ptr, b->string_content.size);
            strbuf_puts(html, "</code></pre>\n");
            break;

        case BLOCK_HTML:
            strbuf_put(html, b->string_content.ptr, b->string_content.size);
            break;

        case BLOCK_HRULE:
            strbuf_puts(html, "<hr />\n");
            break;

        case BLOCK_REFERENCE_DEF:
            break;

        default:
            assert(false);
        }
        if (visit_children) {
            b = b->children;
        } else {
            b = b->next;
        }
        while (b == NULL && rstack != NULL) {
            strbuf_puts(html, rstack->literal);
            if (rstack->trim) {
                strbuf_rtrim(html);
            }
            tight = rstack->tight;
            b = rstack->next_sibling.block;
            rstack = pop_render_stack(rstack);
        }
    }

    free_render_stack(rstack);
}

unsigned char *cmark_render_html(node_block *root)
{
    unsigned char *result;
    strbuf html = GH_BUF_INIT;
    blocks_to_html(&html, root);
    result = strbuf_detach(&html);
    strbuf_free(&html);
    return result;
}