/**********************************************************************
markdown_output.c - functions for printing Elements parsed by
markdown_peg.
(c) 2008 John MacFarlane (jgm at berkeley dot edu).
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 of the License.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
***********************************************************************/
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <glib.h>
#include "markdown_peg.h"
static int extensions;
static void print_html_string(GString *out, char *str, bool obfuscate);
static void print_html_element_list(GString *out, element *list, bool obfuscate);
static void print_html_element(GString *out, element elt, bool obfuscate);
static void print_latex_string(GString *out, char *str);
static void print_latex_element_list(GString *out, element *list);
static void print_latex_element(GString *out, element elt);
static void print_groff_string(GString *out, char *str);
static void print_groff_mm_element_list(GString *out, element *list);
static void print_groff_mm_element(GString *out, element elt, int count);
/**********************************************************************
Utility functions for printing
***********************************************************************/
static int padded = 2; /* Number of newlines after last output.
Starts at 2 so no newlines are needed at start.
*/
static element *endnotes; /* List of endnotes to print after main content. */
static int notenumber = 0; /* Number of footnote. */
/* pad - add newlines if needed */
static void pad(GString *out, int num) {
while (num-- > padded)
g_string_append_printf(out, "\n");;
padded = num;
}
/**********************************************************************
Functions for printing Elements as HTML
***********************************************************************/
/* print_html_string - print string, escaping for HTML
* If obfuscate selected, convert characters to hex or decimal entities at random */
static void print_html_string(GString *out, char *str, bool obfuscate) {
while (*str != '\0') {
switch (*str) {
case '&':
g_string_append_printf(out, "&");;;
break;
case '<':
g_string_append_printf(out, "<");;;
break;
case '>':
g_string_append_printf(out, ">");;;
break;
case '"':
g_string_append_printf(out, """);;;
break;
default:
if (obfuscate) {
if (rand() % 2 == 0)
g_string_append_printf(out, "&#%d;", (int) *str);
else
g_string_append_printf(out, "&#x%x;", (unsigned int) *str);
}
else
g_string_append_c(out, *str);
}
str++;
}
}
/* print_html_element_list - print a list of elements as HTML */
static void print_html_element_list(GString *out, element *list, bool obfuscate) {
while (list != NULL) {
print_html_element(out, *list, obfuscate);
list = list->next;
}
}
/* print_html_element - print an element as HTML */
static void print_html_element(GString *out, element elt, bool obfuscate) {
int lev;
char *contents;
element res;
switch (elt.key) {
case SPACE:
g_string_append_printf(out, "%s", elt.contents.str);
break;
case LINEBREAK:
g_string_append_printf(out, "<br/>");;;
break;
case STR:
print_html_string(out, elt.contents.str, obfuscate);
break;
case ELLIPSIS:
g_string_append_printf(out, "…");;;
break;
case EMDASH:
g_string_append_printf(out, "—");;;
break;
case ENDASH:
g_string_append_printf(out, "–");;;
break;
case APOSTROPHE:
g_string_append_printf(out, "’");;;
break;
case SINGLEQUOTED:
g_string_append_printf(out, "‘");;;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "’");;;
break;
case DOUBLEQUOTED:
g_string_append_printf(out, "“");;;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "”");;;
break;
case CODE:
g_string_append_printf(out, "<code>");;;
print_html_string(out, elt.contents.str, obfuscate);
g_string_append_printf(out, "</code>");;;
break;
case HTML:
g_string_append_printf(out, "%s", elt.contents.str);
break;
case LINK:
if (strstr(elt.contents.link.url, "mailto:") == elt.contents.link.url)
obfuscate = true; /* obfuscate mailto: links */
g_string_append_printf(out, "<a href=\"");
print_html_string(out, elt.contents.link.url, obfuscate);
g_string_append_printf(out, "\"");
if (strlen(elt.contents.link.title) > 0) {
g_string_append_printf(out, " title=\"");
print_html_string(out, elt.contents.link.title, obfuscate);
g_string_append_printf(out, "\"");
}
g_string_append_printf(out, ">");;;
print_html_element_list(out, elt.contents.link.label, obfuscate);
g_string_append_printf(out, "</a>");;;
break;
case IMAGE:
g_string_append_printf(out, "<img src=\"");
print_html_string(out, elt.contents.link.url, obfuscate);
g_string_append_printf(out, "\" alt=\"");
print_html_element_list(out, elt.contents.link.label, obfuscate);
g_string_append_printf(out, "\"");
if (strlen(elt.contents.link.title) > 0) {
g_string_append_printf(out, " title=\"");
print_html_string(out, elt.contents.link.title, obfuscate);
g_string_append_printf(out, "\"");
}
g_string_append_printf(out, " />");;;
break;
case EMPH:
g_string_append_printf(out, "<em>");;;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "</em>");;;
break;
case STRONG:
g_string_append_printf(out, "<strong>");;;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "</strong>");;;
break;
case LIST:
print_html_element_list(out, elt.children, obfuscate);
break;
case RAW:
/* \001 is used to indicate boundaries between nested lists when there
* is no blank line. We split the string by \001 and parse
* each chunk separately. */
contents = strtok(elt.contents.str, "\001");
res = markdown(contents, extensions);
print_html_element(out, res, obfuscate);
markdown_free(res);
while ((contents = strtok(NULL, "\001"))) {
res = markdown(contents, extensions);
print_html_element(out, res, obfuscate);
markdown_free(res);
}
break;
case H1: case H2: case H3: case H4: case H5: case H6:
lev = elt.key - H1 + 1; /* assumes H1 ... H6 are in order */
pad(out, 2);
g_string_append_printf(out, "<h%1d>", lev);
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "</h%1d>", lev);
padded = 0;
break;
case PLAIN:
pad(out, 1);
print_html_element_list(out, elt.children, obfuscate);
padded = 0;
break;
case PARA:
pad(out, 2);
g_string_append_printf(out, "<p>");;;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "</p>");;;
padded = 0;
break;
case HRULE:
pad(out, 2);
g_string_append_printf(out, "<hr />");;;
padded = 0;
break;
case HTMLBLOCK:
pad(out, 2);
g_string_append_printf(out, "%s", elt.contents.str);
padded = 0;
break;
case VERBATIM:
pad(out, 2);
g_string_append_printf(out, "%s", "<pre><code>");
print_html_string(out, elt.contents.str, obfuscate);
g_string_append_printf(out, "%s", "</code></pre>");
padded = 0;
break;
case BULLETLIST:
pad(out, 2);
g_string_append_printf(out, "%s", "<ul>");
padded = 0;
print_html_element_list(out, elt.children, obfuscate);
pad(out, 1);
g_string_append_printf(out, "%s", "</ul>");
padded = 0;
break;
case ORDEREDLIST:
pad(out, 2);
g_string_append_printf(out, "%s", "<ol>");
padded = 0;
print_html_element_list(out, elt.children, obfuscate);
pad(out, 1);
g_string_append_printf(out, "</ol>");;;
padded = 0;
break;
case LISTITEM:
pad(out, 1);
g_string_append_printf(out, "<li>");;;
padded = 2;
print_html_element_list(out, elt.children, obfuscate);
g_string_append_printf(out, "</li>");;;
padded = 0;
break;
case BLOCKQUOTE:
pad(out, 2);
g_string_append_printf(out, "<blockquote>\n");;;
padded = 2;
print_html_element_list(out, elt.children, obfuscate);
pad(out, 1);
g_string_append_printf(out, "</blockquote>");;;
padded = 0;
break;
case REFERENCE:
/* Nonprinting */
break;
case NOTE:
/* if contents.str == 0, then print note; else ignore, since this
* is a note block that has been incorporated into the notes list */
if (elt.contents.str == 0) {
endnotes = cons(elt, endnotes);
++notenumber;
g_string_append_printf(out, "<a class=\"noteref\" id=\"fnref%d\" href=\"#fn%d\" title=\"Jump to note %d\">[%d]</a>",
notenumber, notenumber, notenumber, notenumber);
}
break;
default:
fprintf(stderr, "print_html_element encountered unknown element key = %d\n", elt.key);
exit(EXIT_FAILURE);
}
}
static void print_html_endnotes(GString *out) {
int counter = 0;
if (endnotes == NULL) {
return;
}
g_string_append_printf(out, "<hr/>\n<ol id=\"notes\">");
endnotes = reverse(endnotes);
while (endnotes != NULL) {
counter++;
pad(out, 1);
g_string_append_printf(out, "<li id=\"fn%d\">\n", counter);
padded = 2;
print_html_element_list(out, endnotes->children, false);
g_string_append_printf(out, " <a href=\"#fnref%d\" title=\"Jump back to reference\">[back]</a>", counter);
pad(out, 1);
g_string_append_printf(out, "</li>");;
endnotes = endnotes->next;
}
pad(out, 1);
g_string_append_printf(out, "</ol>");;;
}
/**********************************************************************
Functions for printing Elements as LaTeX
***********************************************************************/
/* print_latex_string - print string, escaping for LaTeX */
static void print_latex_string(GString *out, char *str) {
while (*str != '\0') {
switch (*str) {
case '{': case '}': case '$': case '%':
case '&': case '_': case '#':
g_string_append_printf(out, "\\%c", *str);
break;
case '^':
g_string_append_printf(out, "\\^{}");;;
break;
case '\\':
g_string_append_printf(out, "\\textbackslash{}");;;
break;
case '~':
g_string_append_printf(out, "\\ensuremath{\\sim}");;;
break;
case '|':
g_string_append_printf(out, "\\textbar{}");;;
break;
case '<':
g_string_append_printf(out, "\\textless{}");;;
break;
case '>':
g_string_append_printf(out, "\\textgreater{}");;;
break;
default:
g_string_append_c(out, *str);
}
str++;
}
}
/* print_latex_element_list - print a list of elements as LaTeX */
static void print_latex_element_list(GString *out, element *list) {
while (list != NULL) {
print_latex_element(out, *list);
list = list->next;
}
}
/* print_latex_element - print an element as LaTeX */
static void print_latex_element(GString *out, element elt) {
int lev;
int i;
char *contents;
element res;
switch (elt.key) {
case SPACE:
g_string_append_printf(out, "%s", elt.contents.str);
break;
case LINEBREAK:
g_string_append_printf(out, "\\\\\n");;;
break;
case STR:
print_latex_string(out, elt.contents.str);
break;
case ELLIPSIS:
g_string_append_printf(out, "\\ldots{}");;;
break;
case EMDASH:
g_string_append_printf(out, "---");;;
break;
case ENDASH:
g_string_append_printf(out, "--");;;
break;
case APOSTROPHE:
g_string_append_printf(out, "'");;;
break;
case SINGLEQUOTED:
g_string_append_printf(out, "`");;;
print_latex_element_list(out, elt.children);
g_string_append_printf(out, "'");;;
break;
case DOUBLEQUOTED:
g_string_append_printf(out, "``");;;
print_latex_element_list(out, elt.children);
g_string_append_printf(out, "''");;;
break;
case CODE:
g_string_append_printf(out, "\\texttt{");;;
print_latex_string(out, elt.contents.str);
g_string_append_printf(out, "}");;;
break;
case HTML:
/* don't print HTML */
break;
case LINK:
g_string_append_printf(out, "\\href{%s}{", elt.contents.link.url);
print_latex_element_list(out, elt.contents.link.label);
g_string_append_printf(out, "}");;;
break;
case IMAGE:
g_string_append_printf(out, "\\includegraphics{%s}", elt.contents.link.url);
break;
case EMPH:
g_string_append_print
) is private.
