/**********************************************************************
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 "markdown_peg.h"
/* TODO remove */
static extensions = 0;
/**********************************************************************
Utility functions for printing
***********************************************************************/
static int padded = 2; /* Number of newlines after last output.
Starts at 2 so no newlines are needed at start.
*/
/* pad - add newlines if needed */
static void pad(int num) {
while (num-- > padded)
printf("\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 */
void print_html_string(char *str, bool obfuscate) {
while (*str != '\0') {
switch (*str) {
case '&':
printf("&");
break;
case '<':
printf("<");
break;
case '>':
printf(">");
break;
case '"':
printf(""");
break;
default:
if (obfuscate) {
if (rand() % 2 == 0)
printf("&#%d;", *str);
else
printf("&#x%x;", *str);
}
else
putchar(*str);
break;
}
str++;
}
}
/* print_html_element_list - print a list of elements as HTML */
void print_html_element_list(item *list, bool obfuscate) {
while (list != NULL) {
print_html_element((*list).val, obfuscate);
list = (*list).next;
}
}
/* print_html_element - print an element as HTML */
void print_html_element(element elt, bool obfuscate) {
int lev;
char *contents;
switch (elt.key) {
case SPACE:
printf("%s", elt.contents.str);
break;
case LINEBREAK:
printf("<br/>");
break;
case STR:
print_html_string(elt.contents.str, obfuscate);
break;
case ELLIPSIS:
printf("…");
break;
case CODE:
printf("<code>");
print_html_string(elt.contents.str, obfuscate);
printf("</code>");
break;
case HTML:
printf(elt.contents.str);
break;
case LINK:
if (strstr(elt.contents.link.url, "mailto:") == elt.contents.link.url)
obfuscate = true; /* obfuscate mailto: links */
printf("<a href=\"");
print_html_string(elt.contents.link.url, obfuscate);
printf("\"");
if (strlen(elt.contents.link.title) > 0) {
printf(" title=\"");
print_html_string(elt.contents.link.title, obfuscate);
printf("\"");
}
printf(">");
print_html_element_list(elt.contents.link.label, obfuscate);
printf("</a>");
break;
case IMAGE:
printf("<img src=\"");
print_html_string(elt.contents.link.url, obfuscate);
printf("\" alt=\"");
print_html_element_list(elt.contents.link.label, obfuscate);
printf("\"");
if (strlen(elt.contents.link.title) > 0) {
printf(" title=\"");
print_html_string(elt.contents.link.title, obfuscate);
printf("\"");
}
printf(" />");
break;
case EMPH:
printf("<em>");
print_html_element_list(elt.contents.list, obfuscate);
printf("</em>");
break;
case STRONG:
printf("<strong>");
print_html_element_list(elt.contents.list, obfuscate);
printf("</strong>");
break;
case LIST:
print_html_element_list(elt.contents.list, obfuscate);
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(2);
printf("<h%1d>", lev);
print_html_element_list(elt.contents.list, obfuscate);
printf("</h%1d>", lev);
padded = 0;
break;
case PLAIN:
pad(1);
print_html_element_list(elt.contents.list, obfuscate);
padded = 0;
break;
case PARA:
pad(2);
printf("<p>");
print_html_element_list(elt.contents.list, obfuscate);
printf("</p>");
padded = 0;
break;
case HRULE:
pad(2);
printf("<hr />");
padded = 0;
break;
case HTMLBLOCK:
pad(2);
printf(elt.contents.str);
padded = 0;
break;
case VERBATIM:
pad(2);
printf("<pre><code>");
print_html_string(elt.contents.str, obfuscate);
printf("</code></pre>");
padded = 0;
break;
case BULLETLIST:
pad(2);
printf("<ul>");
padded = 0;
print_html_element_list(elt.contents.list, obfuscate);
pad(1);
printf("</ul>");
padded = 0;
break;
case ORDEREDLIST:
pad(2);
printf("<ol>");
padded = 0;
print_html_element_list(elt.contents.list, obfuscate);
pad(1);
printf("</ol>");
padded = 0;
break;
case LISTITEM:
pad(1);
printf("<li>");
padded = true;
/* \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");
print_html_element(markdown(contents, extensions), obfuscate);
while ((contents = strtok(NULL, "\001")))
print_html_element(markdown(contents, extensions), obfuscate);
printf("</li>");
padded = 0;
break;
case BLOCKQUOTE:
pad(2);
printf("<blockquote>");
print_html_element(markdown(elt.contents.str, extensions), obfuscate);
printf("</blockquote>");
padded = 0;
break;
case REFERENCE:
/* Nonprinting */
break;
default:
fprintf(stderr, "print_html_element encountered unknown element key = %d\n", elt.key);
exit(EXIT_FAILURE);
break;
}
}
/**********************************************************************
Functions for printing Elements as LaTeX
***********************************************************************/
/* print_latex_string - print string, escaping for LaTeX */
void print_latex_string(char *str) {
while (*str != '\0') {
switch (*str) {
case '{': case '}': case '$': case '%':
case '&': case '_': case '#':
printf("\\%c", *str);
break;
case '^':
printf("\\^{}");
break;
case '\\':
printf("\\textbackslash{}");
break;
case '~':
printf("\\ensuremath{\\sim}");
break;
case '|':
printf("\\textbar{}");
break;
case '<':
printf("\\textless{}");
break;
case '>':
printf("\\textgreater{}");
break;
default:
putchar(*str);
break;
}
str++;
}
}
/* print_latex_element_list - print a list of elements as LaTeX */
void print_latex_element_list(item *list) {
while (list != NULL) {
print_latex_element((*list).val);
list = (*list).next;
}
}
/* print_latex_element - print an element as LaTeX */
void print_latex_element(element elt) {
int lev;
int i;
char *contents;
switch (elt.key) {
case SPACE:
printf("%s", elt.contents.str);
break;
case LINEBREAK:
printf("\\\\\n");
break;
case STR:
print_latex_string(elt.contents.str);
break;
case ELLIPSIS:
printf("\\ldots{}");
break;
case CODE:
printf("\\texttt{");
print_latex_string(elt.contents.str);
printf("}");
break;
case HTML:
/* don't print HTML */
break;
case LINK:
printf("\\href{%s}{", elt.contents.link.url);
print_latex_element_list(elt.contents.link.label);
printf("}");
break;
case IMAGE:
printf("\\includegraphics{%s}", elt.contents.link.url);
break;
case EMPH:
printf("\\emph{");
print_latex_element_list(elt.contents.list);
printf("}");
break;
case STRONG:
printf("\\textbf{");
print_latex_element_list(elt.contents.list);
printf("}");
break;
case LIST:
print_latex_element_list(elt.contents.list);
break;
case H1: case H2: case H3:
lev = elt.key - H1 + 1; /* assumes H1 ... H6 are in order */
printf("\\");
for (i = elt.key; i > H1; i--)
printf("sub");
printf("section{");
print_latex_element_list(elt.contents.list);
printf("}\n\n");
break;
case H4: case H5: case H6:
printf("\\noindent\\textbf{");
print_latex_element_list(elt.contents.list);
printf("}\n");
case PLAIN:
print_latex_element_list(elt.contents.list);
printf("\n");
break;
case PARA:
print_latex_element_list(elt.contents.list);
printf("\n\n");
break;
case HRULE:
printf("\\begin{center}\\rule{3in}{0.4pt}\\end{center}\n");
break;
case HTMLBLOCK:
/* don't print HTML block */
break;
case VERBATIM:
printf("\\begin{verbatim}\n");
print_latex_string(elt.contents.str);
printf("\n\\end{verbatim}\n");
break;
case BULLETLIST:
printf("\\begin{itemize}\n");
padded = 0;
print_latex_element_list(elt.contents.list);
printf("\\end{itemize}\n\n");
break;
case ORDEREDLIST:
printf("\\begin{enumerate}\n");
print_latex_element_list(elt.contents.list);
printf("\\end{enumerate}\n\n");
break;
case LISTITEM:
printf("\\item ");
/* \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");
print_latex_element(markdown(contents, extensions));
while ((contents = strtok(NULL, "\001")))
print_latex_element(markdown(contents, extensions));
break;
case BLOCKQUOTE:
printf("\\begin{quote}");
print_latex_element(markdown(elt.contents.str, extensions));
printf("\\end{quote}\n\n");
break;
case REFERENCE:
/* Nonprinting */
break;
default:
fprintf(stderr, "print_latex_element encountered unknown element key = %d\n", elt.key);
exit(EXIT_FAILURE);
break;
}
}
/**********************************************************************
Functions for printing Elements as groff (mm macros)
***********************************************************************/
static bool in_list_item = false; /* True if we're parsing contents of a list item. */
/* print_groff_string - print string, escaping for groff */
void print_groff_string(char *str) {
while (*str != '\0') {
switch (*str) {
case '\\':
printf("\\e");
break;
default:
putchar(*str);
break;
}
str++;
}
}
/* print_groff_mm_element_list - print a list of elements as groff ms */
void print_groff_mm_element_list(item *list) {
int count = 1;
while (list != NULL) {
print_groff_mm_element((*list).val, count);
list = (*list).next;
count++;
}
}
/* print_groff_mm_element - print an element as groff ms */
void print_groff_mm_element(element elt, int count) {
int lev;
char *contents;
switch (elt.key) {
case SPACE:
printf("%s", elt.contents.str);
padded = 0;
break;
case LINEBREAK:
pad(1);
printf(".br");
padded = 0;
break;
case STR:
print_groff_string(elt.contents.str);
padded = 0;
break;
case ELLIPSIS:
printf("...");
break;
case CODE:
printf("\\fC");
print_groff_string(elt.contents.str);
printf("\\fR");
padded = 0;
break;
case HTML:
/* don't print HTML */
break;
case LINK:
print_groff_mm_element_list(elt.contents.link.label);
printf(" (%s)", elt.contents.link.url);
padded = 0;
break;
case IMAGE:
printf("[IMAGE: ");
print_groff_mm_element_list(elt.contents.link.label);
printf("]");
padded = 0;
/* not supported */
break;
case EMPH:
printf("\\fI");
print_groff_mm_element_list(elt.contents.list);
printf("\\fR");
padded = 0;
break;
case STRONG:
printf("\\fB");
print_groff_mm_element_list(elt.contents.list);
printf("\\fR");
padded = 0;
break;
case LIST:
print_groff_mm_element_list(elt.contents.list);
padded = 0;
break;
case H1: case H2: case H3: case H4: case H5: case H6:
lev = elt.key - H1 + 1;
pad(1);
printf(".H %d \"", lev);
print_groff_mm_element_list(elt.contents.list);
printf("\"");
padded = 0;
break;
case PLAIN:
pad(1);
print_groff_mm_element_list
) is private.
