moredown 1.0.0

data/ext/resource.c

@@ -0,0 +1,169 @@
+/* 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"
+
+/* free a (single) line
+ */
+void
+___mkd_freeLine(Line *ptr)
+{
+    DELETE(ptr->text);
+    free(ptr);
+}
+
+
+/* free a list of lines
+ */
+void
+___mkd_freeLines(Line *p)
+{
+    if (p->next)
+	 ___mkd_freeLines(p->next);
+    ___mkd_freeLine(p);
+}
+
+
+/* bye bye paragraph.
+ */
+void
+___mkd_freeParagraph(Paragraph *p)
+{
+    if (p->next)
+	___mkd_freeParagraph(p->next);
+    if (p->down)
+	___mkd_freeParagraph(p->down);
+    if (p->text)
+	___mkd_freeLines(p->text);
+    if (p->ident)
+	free(p->ident);
+    free(p);
+}
+
+
+/* bye bye footnotes.
+ */
+void
+___mkd_freefootnotes(MMIOT *f)
+{
+    int i;
+
+    if ( f->footnotes ) {
+	for (i=0; i < S(*f->footnotes); i++) {
+	    DELETE(T(*f->footnotes)[i].tag);
+	    DELETE(T(*f->footnotes)[i].link);
+	    DELETE(T(*f->footnotes)[i].title);
+	}
+	DELETE(*f->footnotes);
+	free(f->footnotes);
+    }
+}
+
+
+/* initialize a new MMIOT
+ */
+void
+___mkd_initmmiot(MMIOT *f, void *footnotes)
+{
+    if ( f ) {
+	memset(f, 0, sizeof *f);
+	CREATE(f->in);
+	CREATE(f->out);
+	CREATE(f->Q);
+	if ( footnotes )
+	    f->footnotes = footnotes;
+	else {
+	    f->footnotes = malloc(sizeof f->footnotes[0]);
+	    CREATE(*f->footnotes);
+	}
+    }
+}
+
+
+/* free the contents of a MMIOT, but leave the object alone.
+ */
+void
+___mkd_freemmiot(MMIOT *f, void *footnotes)
+{
+    if ( f ) {
+	DELETE(f->in);
+	DELETE(f->out);
+	DELETE(f->Q);
+	if ( f->footnotes != footnotes )
+	    ___mkd_freefootnotes(f);
+	memset(f, 0, sizeof *f);
+    }
+}
+
+
+/* free lines up to an barrier.
+ */
+void
+___mkd_freeLineRange(Line *anchor, Line *stop)
+{
+    Line *r = anchor->next;
+
+    if ( r != stop ) {
+	while ( r && (r->next != stop) )
+	    r = r->next;
+	if ( r ) r->next = 0;
+	___mkd_freeLines(anchor->next);
+    }
+    anchor->next = 0;
+}
+
+
+/* clean up everything allocated in __mkd_compile()
+ */
+void
+mkd_cleanup(Document *doc)
+{
+    if ( doc ) {
+	if ( doc->ctx ) {
+	    ___mkd_freemmiot(doc->ctx, 0);
+	    free(doc->ctx);
+	}
+
+	if ( doc->code) ___mkd_freeParagraph(doc->code);
+	if ( doc->headers ) ___mkd_freeLines(doc->headers);
+	if ( T(doc->content) ) ___mkd_freeLines(T(doc->content));
+	memset(doc, 0, sizeof doc[0]);
+	free(doc);
+    }
+}
+
+
+/* write output in XML format
+ */
+void
+___mkd_xml(char *p, int size, FILE *out)
+{
+    char c;
+
+    while ( size-- > 0 ) {
+	if ( !isascii(c = *p++) )
+	    continue;
+	switch (c) {
+	case '<': fputs("&lt;", out);   break;
+	case '>': fputs("&gt;", out);   break;
+	case '&': fputs("&amp;", out);  break;
+	case '"': fputs("&quot;", out); break;
+	case '\'':fputs("&apos;", out); break;
+	default:  putc(c,out);          break;
+	}
+    }
+}

data/ext/toc.c

@@ -0,0 +1,86 @@
+/*
+ * toc -- spit out a table of contents based on header blocks
+ *
+ * Copyright (C) 2008 Jjgod Jiang, 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"
+
+/* write an header index
+ */
+int
+mkd_toc(Document *p, char **doc)
+{
+    Paragraph *pp;
+    int last_hnumber = 0;
+    Cstring res;
+    
+    CREATE(res);
+    RESERVE(res, 100);
+
+    *doc = 0;
+
+    if ( !(p && p->ctx) ) return -1;
+    if ( ! (p->ctx->flags & TOC) ) return 0;
+
+    for ( pp = p->code; pp ; pp = pp->next ) {
+        if ( pp->typ == HDR && pp->text ) {
+	    
+	    if ( last_hnumber == pp->hnumber )
+		Csprintf(&res,  "%*s</li>\n", pp->hnumber, "");
+	    else while ( last_hnumber > pp->hnumber ) {
+		Csprintf(&res, "%*s</li>\n%*s</ul>\n",
+				 last_hnumber, "",
+				 last_hnumber-1,"");
+		--last_hnumber;
+	    }
+	    
+	    while ( pp->hnumber > last_hnumber ) {
+		Csprintf(&res, "\n%*s<ul>\n", pp->hnumber, "");
+		++last_hnumber;
+	    }
+	    Csprintf(&res, "%*s<li><a href=\"#", pp->hnumber, "");
+	    mkd_string_to_anchor(T(pp->text->text), S(pp->text->text), Csputc, &res);
+	    Csprintf(&res, "\">");
+	    Csreparse(&res, T(pp->text->text), S(pp->text->text), 0);
+	    Csprintf(&res, "</a>");
+        }
+    }
+
+    while ( last_hnumber > 0 ) {
+	Csprintf(&res, "%*s</li>\n%*s</ul>\n",
+			last_hnumber, "", last_hnumber, "");
+	--last_hnumber;
+    }
+			/* 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, */
+    return S(res);	/* leaving the husk of the Ctring on the stack */
+			/* END HACK ALERT */
+}
+
+
+/* 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, sz, 1, out);
+
+    if ( buf ) free(buf);
+
+    return ret;
+}

data/lib/markdown.rb

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

data/lib/moredown.rb

@@ -0,0 +1,153 @@
+require 'rdiscount'
+
+class Moredown < RDiscount
+  VERSION = '1.0.4'
+  
+  # Don't use inline CSS for styling
+  attr_accessor :has_stylesheet
+  
+  # Process emoticons
+  attr_accessor :emotes
+  
+  # Map any relative URLs in the text to absolute URLs
+  attr_accessor :base_url
+  
+  # Map headings down a few ranks (eg. :map_headings => 2 would convert h1 to h3)
+  attr_accessor :map_headings
+  
+  # Use SwfObject2 if available (eg. :swfobject => { :src => 'swfobject.js', :version => '10', :fallback => 'No Flash' })
+  attr_accessor :swfobject
+  
+  # Create a Moredown Markdown processor. The +text+ argument
+  # should be a string containing Markdown text. Additional arguments may be
+  # supplied to set various processing options:
+  #
+  # * <tt>:extensions</tt> - Any of the following RDiscount Extensions:
+  #   * <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>:has_stylesheet</tt> - Don't use inline CSS for styling.
+  # * <tt>:emotes</tt> - Process emoticons.
+  # * <tt>:base_url</tt> - Map any relative URLs in the text to absolute URLs.
+  # * <tt>:map_headings</tt> - Map any headings down a few ranks (eg. h1 => h3).
+  # * <tt>:swfobject</tt> - Use SwfObject2 if available (eg. :swfobject => { :src => 'swfobject.js', :version => '10', :fallback => 'No Flash' })
+  #
+  # NOTE: The <tt>:filter_styles</tt> extension is not yet implemented.
+  def initialize text, args = {}    
+    @has_stylesheet = args[:has_stylesheet]
+    @emotes = args[:emotes]
+    @base_url = args[:base_url]
+    @map_headings = args[:map_headings] || 0
+    @swfobject = args[:swfobject]
+    
+    # each swfobject needs a unique id
+    @next_flash_id = 0
+    
+    if args[:extensions]
+      super(text, args[:extensions])
+    else
+      super(text)
+    end
+  end
+  
+  def to_html    
+    html = super
+    
+    # flash movies (including youtube)
+    html.gsub!(/<img src="(flash|youtube):(.*?)"\s?(?:title="(.*?)")? alt="(.*)" \/>/) do |match|
+      # grab width and height
+      if $3
+        sizes = $3.split(' ')
+        sizes = { :width => sizes[0], :height => sizes[1] }
+      else
+        sizes = {}
+      end
+      
+      # check the source
+      if $1.downcase == "youtube"
+        url = "http://www.youtube.com/v/#{$2}"
+        sizes = { :width => 425, :height => 350 }.merge sizes
+      else
+        url = $2
+      end
+      
+      flash_tag url, sizes
+    end
+    
+    # image alignments
+    if @has_stylesheet
+      html.gsub!(/<img (.*?) \/>:(left|right|center)/) { |match| "<img class=\"#{$2}\" #{$1} />" }
+    else
+      html.gsub!(/<img (.*?) \/>:left/) { |match| "<img style=\"float: left; margin: 0 10px 10px 0;\" #{$1} />" }
+      html.gsub!(/<img (.*?) \/>:right/) { |match| "<img style=\"float: right; margin: 0 0 10px 10px;\" #{$1} />" }
+      html.gsub!(/<img (.*?) \/>:center/) { |match| "<img style=\"display: block; margin: auto;\" #{$1} />" }
+    end
+    
+    # code
+    html.gsub!('<pre>', '<pre class="prettyprint">')
+    
+    # emoticons
+    if @emotes
+      html.gsub!(':-)', '<img src="/images/emote-smile.png" alt=":-)" width="16" height="16" />')
+      html.gsub!(':-P', '<img src="/images/emote-tongue.png" alt=":-P" width="16" height="16" />')
+      html.gsub!(':-D', '<img src="/images/emote-grin.png" alt=":-D" width="16" height="16" />')
+      html.gsub!(':-(', '<img src="/images/emote-sad.png" alt=":-(" width="16" height="16" />')
+      html.gsub!(':-@', '<img src="/images/emote-angry.png" alt=":-@" width="16" height="16" />')
+      html.gsub!(';-)', '<img src="/images/emote-wink.png" alt=";-)" width="16" height="16" />')
+    end
+    
+    # remap relative urls
+    if @base_url
+      html.gsub!('"/images/', "\"#{@base_url}/images/")
+      html.gsub!('<a href="/', "<a href=\"#{@base_url}/")
+    end
+    
+    # remap headings down a few notches
+    if @map_headings > 0
+      html.gsub!(/<(\/)?h(\d)>/) { |match| "<#{$1}h#{$2.to_i + @map_headings}>" }
+    end
+    
+    # add the js for swfobject
+    if @swfobject
+      swfobjects = []
+      1.upto(@next_flash_id).each do |n|
+        swfobjects << "swfobject.registerObject(\"swf-#{n}\", \"#{@swfobject[:version]}\");\n"
+      end
+      
+      # html seems to need to go after the swfobject javascript
+      html = "<script type=\"text/javascript\" src=\"#{@swfobject[:src]}\"></script><script type=\"text/javascript\">\n/*<![CDATA[*/\n#{swfobjects}/*]]>*/\n</script>\n#{html}"
+    end
+    
+    html
+  end
+  
+  # Process some text in Markdown format
+  def self.text_to_html text, args = {}    
+    Moredown.new(text, args).to_html
+  end
+  
+  
+  protected
+    def flash_tag url, args = {}
+      args = {:width => 400, :height => 300, :fallback => 'Flash is not available.'}.merge args
+      
+      if url.include? 'youtube.com'
+        fallback = "<a href=\"#{url}\"><img src=\"http://img.youtube.com/vi/#{url.split('/').last}/default.jpg\" alt=\"\" /></a>"
+      elsif @swfobject
+        fallback = @swfobject[:fallback]
+      else
+        fallback = args[:fallback]
+      end        
+      
+      return "<object id=\"swf-#{@next_flash_id += 1}\" classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" width=\"#{args[:width]}\" height=\"#{args[:height]}\">" \
+        +"<param name=\"movie\" value=\"#{url}\" />" \
+        +"<!--[if !IE]>-->" \
+        +"<object type=\"application/x-shockwave-flash\" data=\"#{url}\" width=\"#{args[:width]}\" height=\"#{args[:height]}\">" \
+          +"<!--<![endif]-->#{fallback}<!--[if !IE]>-->" \
+        +"</object>" \
+        +"<!--<![endif]-->" \
+      +"</object>"
+    end
+end

data/lib/rdiscount.rb

@@ -0,0 +1,72 @@
+# 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 = '1.3.5'
+
+  # Original Markdown formatted text.
+  attr_reader :text
+
+  # Set true to have smarty-like quote translation performed.
+  attr_accessor :smart
+
+  # Do not output <style> 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 Table Of Contents generation
+  attr_accessor :generate_toc
+
+  # 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).
+  #
+  # NOTE: The <tt>:filter_styles</tt> extension is not yet implemented.
+  def initialize(text, *extensions)
+    @text  = text
+    @smart = nil
+    @filter_styles = nil
+    @filter_html = nil
+    @fold_lines = nil
+    extensions.each { |e| send("#{e}=", true) }
+  end
+
+end
+
+Markdown = RDiscount unless defined? Markdown
+
+require 'rdiscount.so'