rdiscountwl 1.0.0.1

data/ext/toc.c

@@ -0,0 +1,114 @@
+/*
+ * toc -- spit out a table of contents based on header blocks
+ *
+ * Copyright (C) 2008 Jjgod Jiang, David L Parsons
+ * portions Copyright (C) 2011 Stefano D'Angelo
+ * The redistribution terms are provided in the COPYRIGHT file that must
+ * be distributed with this source code.
+ */
+#include "config.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+
+#include "cstring.h"
+#include "markdown.h"
+#include "amalloc.h"
+
+/* write an header index
+ */
+int
+mkd_toc(Document *p, char **doc)
+{
+    Paragraph *tp, *srcp;
+    int last_hnumber = 0;
+    Cstring res;
+    int size;
+    int first = 1;
+    
+    if ( !(doc && p && p->ctx) ) return -1;
+
+    *doc = 0;
+    
+    if ( ! (p->ctx->flags & MKD_TOC) ) return 0;
+
+    CREATE(res);
+    RESERVE(res, 100);
+
+    for ( tp = p->code; tp ; tp = tp->next ) {
+	if ( tp->typ == SOURCE ) {
+	    for ( srcp = tp->down; srcp; srcp = srcp->next ) {
+		if ( srcp->typ == HDR && srcp->text ) {
+	    
+		    while ( last_hnumber > srcp->hnumber ) {
+			if ( (last_hnumber - srcp->hnumber) > 1 )
+				Csprintf(&res, "\n");
+			Csprintf(&res, "</li>\n%*s</ul>\n%*s",
+				 last_hnumber-1, "", last_hnumber-1, "");
+			--last_hnumber;
+		    }
+
+		    if ( last_hnumber == srcp->hnumber )
+			Csprintf(&res, "</li>\n");
+		    else if ( (srcp->hnumber > last_hnumber) && !first )
+			Csprintf(&res, "\n");
+
+		    while ( srcp->hnumber > last_hnumber ) {
+			Csprintf(&res, "%*s<ul>\n", last_hnumber, "");
+			if ( (srcp->hnumber - last_hnumber) > 1 )
+			    Csprintf(&res, "%*s<li>\n", last_hnumber+1, "");
+			++last_hnumber;
+		    }
+		    Csprintf(&res, "%*s<li><a href=\"#", srcp->hnumber, "");
+		    mkd_string_to_anchor(T(srcp->text->text),
+					 S(srcp->text->text),
+					 (mkd_sta_function_t)Csputc, &res,1,p->ctx->flags);
+		    Csprintf(&res, "\">");
+		    mkd_string_to_anchor(T(srcp->text->text),
+					 S(srcp->text->text),
+					 (mkd_sta_function_t)Csputc, &res,0,p->ctx->flags);
+		    Csprintf(&res, "</a>");
+
+		    first = 0;
+		}
+	    }
+        }
+    }
+
+    while ( last_hnumber > 0 ) {
+	--last_hnumber;
+	Csprintf(&res, "</li>\n%*s</ul>\n%*s",
+		 last_hnumber, "", last_hnumber, "");
+    }
+
+    if ( (size = S(res)) > 0 ) {
+	EXPAND(res) = 0;
+			/* HACK ALERT! HACK ALERT! HACK ALERT! */
+	*doc = T(res);  /* we know that a T(Cstring) is a character pointer
+			 * so we can simply pick it up and carry it away,
+			 * leaving the husk of the Ctring on the stack
+			 * END HACK ALERT
+			 */
+    }
+    else
+	DELETE(res);
+    return size;
+}
+
+
+/* write an header index
+ */
+int
+mkd_generatetoc(Document *p, FILE *out)
+{
+    char *buf = 0;
+    int sz = mkd_toc(p, &buf);
+    int ret = EOF;
+
+    if ( sz > 0 )
+	ret = fwrite(buf, 1, sz, out);
+
+    if ( buf ) free(buf);
+
+    return (ret == sz) ? ret : EOF;
+}

data/ext/version.c

@@ -0,0 +1,13 @@
+#include "config.h"
+
+char markdown_version[] = VERSION
+#if 4 != 4
+		" TAB=4"
+#endif
+#if USE_AMALLOC
+		" DEBUG"
+#endif
+#if WITH_LATEX
+		" LATEX"
+#endif
+		;

data/ext/xml.c

@@ -0,0 +1,82 @@
+/* markdown: a C implementation of John Gruber's Markdown markup language.
+ *
+ * Copyright (C) 2007 David L Parsons.
+ * The redistribution terms are provided in the COPYRIGHT file that must
+ * be distributed with this source code.
+ */
+#include <stdio.h>
+#include <string.h>
+#include <stdarg.h>
+#include <stdlib.h>
+#include <time.h>
+#include <ctype.h>
+
+#include "config.h"
+
+#include "cstring.h"
+#include "markdown.h"
+#include "amalloc.h"
+
+/* return the xml version of a character
+ */
+static char *
+mkd_xmlchar(unsigned char c)
+{
+    switch (c) {
+    case '<':   return "&lt;";
+    case '>':   return "&gt;";
+    case '&':   return "&amp;";
+    case '"':   return "&quot;";
+    case '\'':  return "&apos;";
+    default:    if ( isascii(c) || (c & 0x80) )
+		    return 0;
+		return "";
+    }
+}
+
+
+/* write output in XML format
+ */
+int
+mkd_generatexml(char *p, int size, FILE *out)
+{
+    unsigned char c;
+    char *entity;
+
+    while ( size-- > 0 ) {
+	c = *p++;
+
+	if ( entity = mkd_xmlchar(c) )
+	    DO_OR_DIE( fputs(entity, out) );
+	else
+	    DO_OR_DIE( fputc(c, out) );
+    }
+    return 0;
+}
+
+
+/* build a xml'ed version of a string
+ */
+int
+mkd_xml(char *p, int size, char **res)
+{
+    unsigned char c;
+    char *entity;
+    Cstring f;
+
+    CREATE(f);
+    RESERVE(f, 100);
+
+    while ( size-- > 0 ) {
+	c = *p++;
+	if ( entity = mkd_xmlchar(c) )
+	    Cswrite(&f, entity, strlen(entity));
+	else
+	    Csputc(c, &f);
+    }
+			/* HACK ALERT! HACK ALERT! HACK ALERT! */
+    *res = T(f);	/* we know that a T(Cstring) is a character pointer */
+			/* so we can simply pick it up and carry it away, */
+    return S(f);	/* leaving the husk of the Ctring on the stack */
+			/* END HACK ALERT */
+}

data/ext/xmlpage.c

@@ -0,0 +1,46 @@
+/*
+ * xmlpage -- write a skeletal xhtml page
+ *
+ * Copyright (C) 2007 David L Parsons.
+ * The redistribution terms are provided in the COPYRIGHT file that must
+ * be distributed with this source code.
+ */
+#include "config.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <ctype.h>
+
+#include "cstring.h"
+#include "markdown.h"
+#include "amalloc.h"
+
+
+int
+mkd_xhtmlpage(Document *p, int flags, FILE *out)
+{
+    char *title;
+    extern char *mkd_doc_title(Document *);
+    
+    if ( mkd_compile(p, flags) ) {
+	DO_OR_DIE( fprintf(out, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n"
+				"<!DOCTYPE html "
+				" PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
+				" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n"
+				"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n") );
+
+	DO_OR_DIE( fprintf(out, "<head>\n") );
+	if ( title = mkd_doc_title(p) ) {
+	    DO_OR_DIE( fprintf(out, "<title>%s</title>\n", title) );
+	}
+	DO_OR_DIE( mkd_generatecss(p, out) );
+	DO_OR_DIE( fprintf(out, "</head>\n"
+				"<body>\n") );
+	
+	DO_OR_DIE( mkd_generatehtml(p, out) );
+	DO_OR_DIE( fprintf(out, "</body>\n"
+				"</html>\n") );
+
+	return 0;
+    }
+    return EOF;
+}

data/lib/markdown.rb

@@ -0,0 +1 @@
+require 'rdiscount'

data/lib/rdiscount.rb

@@ -0,0 +1,108 @@
+# Discount is an implementation of John Gruber's Markdown markup
+# language in C. It implements all of the language as described in
+# {Markdown Syntax}[http://daringfireball.net/projects/markdown/syntax]
+# and passes the Markdown 1.0 test suite. The RDiscount extension makes
+# the Discount processor available via a Ruby C Extension library.
+#
+# == Usage
+#
+# RDiscount implements the basic protocol popularized by RedCloth and adopted
+# by BlueCloth:
+#   require 'rdiscount'
+#   markdown = RDiscount.new("Hello World!")
+#   puts markdown.to_html
+#
+# == Replacing BlueCloth
+#
+# Inject RDiscount into your BlueCloth-using code by replacing your bluecloth
+# require statements with the following:
+#   begin
+#     require 'rdiscount'
+#     BlueCloth = RDiscount
+#   rescue LoadError
+#     require 'bluecloth'
+#   end
+#
+class RDiscount
+  VERSION = '2.2.0.2'
+
+  # Original Markdown formatted text.
+  attr_reader :text
+
+  # Set true to have smarty-like quote translation performed.
+  attr_accessor :smart
+
+  # Do not output <tt><style></tt> tags included in the source text.
+  attr_accessor :filter_styles
+
+  # Do not output any raw HTML included in the source text.
+  attr_accessor :filter_html
+
+  # RedCloth compatible line folding -- not used for Markdown but
+  # included for compatibility.
+  attr_accessor :fold_lines
+
+  # Enable php markdown extra-style footnotes
+  attr_accessor :footnotes
+
+  # Enable Table Of Contents generation
+  attr_accessor :generate_toc
+
+  # Do not process <tt>![]</tt> and remove <tt><img></tt> tags from the output.
+  attr_accessor :no_image
+
+  # Do not process <tt>[]</tt> and remove <tt><a></tt> tags from the output.
+  attr_accessor :no_links
+
+  # Do not process tables
+  attr_accessor :no_tables
+
+  # Disable superscript and relaxed emphasis processing.
+  attr_accessor :strict
+
+  # Convert URL in links, even if they aren't encased in <tt><></tt>
+  attr_accessor :autolink
+
+  # Don't make hyperlinks from <tt>[][]</tt> links that have unknown URL types.
+  attr_accessor :safelink
+
+  # Do not process pseudo-protocols like <tt>[](id:name)</tt>
+  attr_accessor :no_pseudo_protocols
+  
+  # Disable superscript processing.
+  attr_accessor :no_superscript
+  
+  # Disable strikethrough processing.
+  attr_accessor :no_strikethrough
+
+  # Create a RDiscount Markdown processor. The +text+ argument
+  # should be a string containing Markdown text. Additional arguments may be
+  # supplied to set various processing options:
+  #
+  # * <tt>:smart</tt> - Enable SmartyPants processing.
+  # * <tt>:filter_styles</tt> - Do not output <tt><style></tt> tags.
+  # * <tt>:filter_html</tt> - Do not output any raw HTML tags included in
+  #   the source text.
+  # * <tt>:fold_lines</tt> - RedCloth compatible line folding (not used).
+  # * <tt>:footnotes</tt> - PHP markdown extra-style footnotes.
+  # * <tt>:generate_toc</tt> - Enable Table Of Contents generation
+  # * <tt>:no_image</tt> - Do not output any <tt><img></tt> tags.
+  # * <tt>:no_links</tt> - Do not output any <tt><a></tt> tags.
+  # * <tt>:no_tables</tt> - Do not output any tables.
+  # * <tt>:strict</tt> - Disable superscript and relaxed emphasis processing.
+  # * <tt>:autolink</tt> - Greedily urlify links.
+  # * <tt>:safelink</tt> - Do not make links for unknown URL types.
+  # * <tt>:no_pseudo_protocols</tt> - Do not process pseudo-protocols.
+  # * <tt>:no_superscript</tt> - Disable superscript processing.
+  # * <tt>:no_strikethrough</tt> - Disable strikethrough processing.
+  #
+  def initialize(text, *extensions)
+    @text  = text
+    extensions.each { |e| send("#{e}=", true) }
+  end
+
+end
+
+Markdown = RDiscount unless defined? Markdown
+
+require 'rdiscount.so'