discount 1.2.6

data/COPYING

@@ -0,0 +1,52 @@
+The core Discount C sources are
+Copyright (C) 2007 David Loren Parsons.
+
+The Discount Ruby extension sources are
+Copyright (C) 2008 Ryan Tomayko.
+
+All rights reserved.
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation files
+(the "Software"), to deal in the Software without restriction,
+including without limitation the rights to use, copy, modify, merge,
+publish, distribute, sublicence, and/or sell copies of the Software,
+and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+ 1. Redistributions of source code must retain the above copyright
+    notice, this list of conditions, and the following disclaimer.
+
+ 2. Redistributions in binary form must reproduce the above
+    copyright notice, this list of conditions and the following
+    disclaimer in the documentation and/or other materials provided
+    with the distribution, and in the same place and form as other
+    copyright, license and disclaimer information.
+
+ 3. The end-user documentation included with the redistribution, if
+    any, must include the following acknowledgment:
+
+        This product includes software developed by
+        David Loren Parsons <http://www.pell.portland.or.us/~orc>
+
+    in the same place and form as other third-party acknowledgments.
+    Alternately, this acknowledgment may appear in the software
+    itself, in the same form and location as other such third-party
+    acknowledgments.
+
+ 4. Except as contained in this notice, the name of David Loren
+    Parsons shall not be used in advertising or otherwise to promote
+    the sale, use or other dealings in this Software without prior
+    written authorization from David Loren Parsons.
+
+THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
+WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL DAVID LOREN PARSONS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+OF THE POSSIBILITY OF SUCH DAMAGE.

data/README

@@ -0,0 +1,17 @@
+Discount (For Ruby)
+===================
+
+Discount is a implementation of John Gruber's Markdown markup
+language in C. It implements all of the language as described in
+<http://daringfireball.net/projects/markdown/syntax>
+and passes the Markdown test suite at
+<http://daringfireball.net/projects/downloads/MarkdownTest_1.0.zip>
+
+Discount was developed by
+David Loren Parsons <http://www.pell.portland.or.us/~orc>. The Ruby
+extension was developed by Ryan Tomayko <http://tomayko.com/>.
+
+Discount is free software;  it is released under a BSD-style license
+that allows you to do as you wish with it as long as you don't attempt
+to claim it as your own work. The Ruby Discount extension adopts
+Discount's license verbatim. See the file COPYING for more information.

data/Rakefile

@@ -0,0 +1,126 @@
+require 'rake/clean'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+
+task :default => 'test:unit'
+
+DLEXT = Config::CONFIG['DLEXT']
+VERS = '1.2.6'
+
+spec =
+  Gem::Specification.new do |s|
+    s.name              = "discount"
+    s.version           = VERS
+    s.summary           = "Discount Implementation of Gruber's Markdown"
+    s.files             = FileList['README','COPYING','Rakefile','test/**/*','{lib,ext}/**.rb','ext/*.{c,h}']
+    s.bindir            = 'bin'
+    s.require_path      = 'lib'
+    s.has_rdoc          = true
+    s.extra_rdoc_files  = ['README', 'COPYING']
+    s.test_files        = Dir['test.rb']
+    s.extensions        = ['ext/extconf.rb']
+
+    s.author            = 'Ryan Tomayko'
+    s.email             = 'r@tomayko.com'
+    s.homepage          = 'http://github.com/rtomayko/rdiscount'
+    s.rubyforge_project = 'wink'
+  end
+
+  Rake::GemPackageTask.new(spec) do |p|
+    p.gem_spec = spec
+    p.need_tar_gz = true
+    p.need_tar = false
+    p.need_zip = false
+  end
+
+namespace :submodule do
+  desc 'Init the upstream submodule'
+  task :init do |t|
+    unless File.exist? 'discount/markdown.c'
+      rm_rf 'discount'
+      sh 'git submodule init discount'
+      sh 'git submodule update discount'
+    end
+  end
+
+  desc 'Update the discount submodule'
+  task :update => :init do
+    sh 'git submodule update discount' unless File.symlink?('discount')
+  end
+
+  file 'discount/markdown.c' do
+    Rake::Task['submodule:init'].invoke
+  end
+  task :exist => 'discount/markdown.c'
+end
+
+desc 'Gather required discount sources into extension directory'
+task :gather => 'submodule:exist' do |t|
+  files =
+    FileList[
+      'discount/{markdown,mkdio,amalloc,cstring}.h',
+      'discount/{markdown,docheader,dumptree,generate,mkdio,resource}.c'
+    ]
+  cp files, 'ext/',
+    :preserve => true,
+    :verbose => true
+end
+
+
+file 'ext/Makefile' => FileList['ext/{*.c,*.h,*.rb}'] do
+  chdir('ext') { ruby 'extconf.rb' }
+end
+CLEAN.include 'ext/Makefile'
+
+file "ext/discount.#{DLEXT}" => FileList['ext/Makefile', 'ext/*.{c,h,rb}'] do |f|
+  sh 'cd ext && make'
+end
+CLEAN.include 'ext/*.{o,bundle,so,dll}'
+
+file "lib/discount.#{DLEXT}" => "ext/discount.#{DLEXT}" do |f|
+  cp f.prerequisites, "lib/", :preserve => true
+end
+
+desc 'Build the discount extension'
+task :build => "lib/discount.#{DLEXT}"
+
+desc 'Run unit tests'
+task 'test:unit' => [:build] do |t|
+  ruby 'test.rb'
+end
+
+desc 'Run conformance tests (MARKDOWN_TEST_VER=1.0)'
+task 'test:conformance' => [:build] do |t|
+  script = "#{pwd}/bin/rdiscount"
+  test_version = ENV['MARKDOWN_TEST_VER'] || '1.0'
+  chdir("test/MarkdownTest_#{test_version}") do
+    sh "./MarkdownTest.pl --script='#{script}' --tidy"
+  end
+end
+
+desc 'Run version 1.0 conformance suite'
+task 'test:conformance:1.0' => 'test:conformance'
+
+desc 'Run 1.0.3 conformance suite'
+task 'test:conformance:1.0.3' => [:build] do |t|
+  ENV['MARKDOWN_TEST_VER'] = '1.0.3'
+  Rake::Task['test:conformance'].invoke
+end
+
+desc 'Run unit and conformance tests'
+task :test => %w[test:unit test:conformance]
+
+
+# ==========================================================
+# Rubyforge
+# ==========================================================
+
+PKGNAME = "pkg/discount-#{VERS}"
+
+desc 'Publish new release to rubyforge'
+task :release => [ "#{PKGNAME}.gem", "#{PKGNAME}.tar.gz" ] do |t|
+  sh <<-end
+    rubyforge add_release wink discount #{VERS} #{PKGNAME}.gem &&
+    rubyforge add_file    wink discount #{VERS} #{PKGNAME}.tar.gz
+  end
+end

data/ext/amalloc.h

@@ -0,0 +1,29 @@
+/*
+ * debugging malloc()/realloc()/calloc()/free() that attempts
+ * to keep track of just what's been allocated today.
+ */
+#ifndef AMALLOC_D
+#define AMALLOC_D
+
+#include "config.h"
+
+#ifdef USE_AMALLOC
+
+extern void *amalloc(int);
+extern void *acalloc(int,int);
+extern void *arealloc(void*,int);
+extern void afree(void*);
+extern void adump();
+
+#define malloc	amalloc
+#define	calloc	acalloc
+#define realloc	arealloc
+#define free	afree
+
+#else
+
+#define adump()	(void)1
+
+#endif
+
+#endif/*AMALLOC_D*/

data/ext/config.h

@@ -0,0 +1,14 @@
+
+/* rdiscount extension configuration */
+
+#undef USE_AMALLOC
+
+#define TABSTOP 4
+
+#define COINTOSS() (random()&1)
+
+#define HAVE_SRANDOM 1
+
+#define INITRNG(x) srandom((unsigned int)x)
+
+#define HAVE_RANDOM 1

data/ext/cstring.h

@@ -0,0 +1,68 @@
+/* two template types:  STRING(t) which defines a pascal-style string
+ * of element (t) [STRING(char) is the closest to the pascal string],
+ * and ANCHOR(t) which defines a baseplate that a linked list can be
+ * built up from.   [The linked list /must/ contain a ->next pointer
+ * for linking the list together with.]
+ */
+#ifndef _CSTRING_D
+#define _CSTRING_D
+
+#include <string.h>
+#include <stdlib.h>
+
+#include "amalloc.h"
+
+/* expandable Pascal-style string.
+ */
+#define STRING(type)	struct { type *text; int size, alloc; }
+
+#define CREATE(x)	T(x) = (void*)(S(x) = (x).alloc = 0)
+#define EXPAND(x)	(S(x)++)[(S(x) < (x).alloc) \
+			    ? (T(x)) \
+			    : (T(x) = T(x) ? realloc(T(x), sizeof T(x)[0] * ((x).alloc += 100)) \
+					   : malloc(sizeof T(x)[0] * ((x).alloc += 100)) )]
+
+#define DELETE(x)	(x).alloc ? (free(T(x)), S(x) = (x).alloc = 0) \
+				  : ( S(x) = 0 )
+#define CLIP(t,i,sz)	\
+	    ( ((i) >= 0) && ((sz) > 0) && (((i)+(sz)) <= S(t)) ) ? \
+	    (memmove(&T(t)[i], &T(t)[i+sz], (S(t)-(i+sz)+1)*sizeof(T(t)[0])), \
+		S(t) -= (sz)) : -1
+
+#define RESERVE(x, sz)	T(x) = ((x).alloc > S(x) + (sz) \
+			    ? T(x) \
+			    : T(x) \
+				? realloc(T(x), sizeof T(x)[0] * ((x).alloc = 100+(sz)+S(x))) \
+				: malloc(sizeof T(x)[0] * ((x).alloc = 100+(sz)+S(x))))
+#define SUFFIX(t,p,sz)	\
+	    memcpy(((S(t) += (sz)) - (sz)) + \
+		    (T(t) = T(t) ? realloc(T(t), sizeof T(t)[0] * ((t).alloc += sz)) \
+				 : malloc(sizeof T(t)[0] * ((t).alloc += sz))), \
+		    (p), sizeof(T(t)[0])*(sz))
+
+#define PREFIX(t,p,sz)	\
+	    RESERVE( (t), (sz) ); \
+	    if ( S(t) ) { memmove(T(t)+(sz), T(t), S(t)); } \
+	    memcpy( T(t), (p), (sz) ); \
+	    S(t) += (sz)
+
+/* reference-style links (and images) are stored in an array
+ */
+#define T(x)		(x).text
+#define S(x)		(x).size
+
+/* abstract anchor type that defines a list base
+ * with a function that attaches an element to
+ * the end of the list.
+ *
+ * the list base field is named .text so that the T()
+ * macro will work with it.
+ */
+#define ANCHOR(t)	struct { t *text, *end; }
+
+#define ATTACH(t, p)	( (t).text ?( ((t).end->next = (p)), ((t).end = (p)) ) \
+				   :( ((t).text = (t).end = (p)) ) )
+
+typedef STRING(char) Cstring;
+
+#endif/*_CSTRING_D*/

data/ext/discount.c

@@ -0,0 +1,48 @@
+#include <stdio.h>
+#include "ruby.h"
+#include "mkdio.h"
+#include "rbstrio.h"
+
+static VALUE rb_cDiscount;
+
+static ID id_text;
+static ID id_smart;
+static ID id_notes;
+
+
+static VALUE
+rb_discount_to_html(int argc, VALUE *argv, VALUE self)
+{
+    /* grab char pointer to markdown input text */
+    VALUE text = rb_funcall(self, id_text, 0);
+    Check_Type(text, T_STRING);
+
+    /* allocate a ruby string buffer and wrap it in a stream */
+    VALUE buf = rb_str_buf_new(4096);
+    FILE *stream = rb_str_io_new(buf);
+
+    /* compile flags */
+    int flags = MKD_TABSTOP | MKD_NOHEADER;
+    if (rb_funcall(self, id_smart, 0) != Qtrue )
+        flags = flags | MKD_NOPANTS;
+
+    MMIOT *doc = mkd_string(RSTRING(text)->ptr, RSTRING(text)->len, flags);
+    markdown(doc, stream, flags);
+
+    fclose(stream);
+
+    return buf;
+}
+
+void Init_discount()
+{
+    /* Initialize frequently used Symbols */
+    id_text  = rb_intern("text");
+    id_smart = rb_intern("smart");
+    id_notes = rb_intern("notes");
+
+    rb_cDiscount = rb_define_class("Discount", rb_cObject);
+    rb_define_method(rb_cDiscount, "to_html", rb_discount_to_html, -1);
+}
+
+// vim: ts=4 sw=4

data/ext/docheader.c

@@ -0,0 +1,43 @@
+/*
+ * docheader -- get values from the document header
+ *
+ * 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"
+
+#define afterdle(t)	(T((t)->text) + (t)->dle)
+
+char *
+mkd_doc_title(Document *doc)
+{
+    if ( doc && doc->headers )
+	return afterdle(doc->headers);
+    return 0;
+}
+
+
+char *
+mkd_doc_author(Document *doc)
+{
+    if ( doc && doc->headers && doc->headers->next )
+	return afterdle(doc->headers->next);
+    return 0;
+}
+
+
+char *
+mkd_doc_date(Document *doc)
+{
+    if ( doc && doc->headers && doc->headers->next && doc->headers->next->next )
+	return afterdle(doc->headers->next->next);
+    return 0;
+}

data/ext/dumptree.c

@@ -0,0 +1,147 @@
+/* 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 "markdown.h"
+#include "cstring.h"
+#include "amalloc.h"
+
+struct frame {
+    int indent;
+    char c;
+};
+
+typedef STRING(struct frame) Stack;
+
+static char *
+Pptype(int typ)
+{
+    switch (typ) {
+    case WHITESPACE: return "whitespace";
+    case CODE      : return "code";
+    case QUOTE     : return "quote";
+    case MARKUP    : return "markup";
+    case HTML      : return "html";
+    case DL        : return "dl";
+    case UL        : return "ul";
+    case OL        : return "ol";
+    case LISTITEM  : return "item";
+    case HDR       : return "header";
+    case HR        : return "HR";
+    default        : return "mystery node!";
+    }
+}
+
+static void
+pushpfx(int indent, char c, Stack *sp)
+{
+    struct frame *q = &EXPAND(*sp);
+
+    q->indent = indent;
+    q->c = c;
+}
+
+
+static void
+poppfx(Stack *sp)
+{
+    S(*sp)--;
+}
+
+
+static void
+changepfx(Stack *sp, char c)
+{
+    char ch;
+
+    if ( !S(*sp) ) return;
+
+    ch = T(*sp)[S(*sp)-1].c;
+
+    if ( ch == '+' || ch == '|' )
+	T(*sp)[S(*sp)-1].c = c;
+}
+
+
+static void
+printpfx(Stack *sp, FILE *f)
+{
+    int i;
+    char c;
+
+    if ( !S(*sp) ) return;
+
+    c = T(*sp)[S(*sp)-1].c;
+
+    if ( c == '+' || c == '-' ) {
+	fprintf(f, "--%c", c);
+	T(*sp)[S(*sp)-1].c = (c == '-') ? ' ' : '|';
+    }
+    else
+	for ( i=0; i < S(*sp); i++ ) {
+	    if ( i )
+		fprintf(f, "  ");
+	    fprintf(f, "%*s%c", T(*sp)[i].indent + 2, " ", T(*sp)[i].c);
+	    if ( T(*sp)[i].c == '`' )
+		T(*sp)[i].c = ' ';
+	}
+    fprintf(f, "--");
+}
+
+
+static void
+dumptree(Paragraph *pp, Stack *sp, FILE *f)
+{
+    int count;
+    Line *p;
+    int d;
+    static char *Begin[] = { 0, "P", "center" };
+
+    while ( pp ) {
+	if ( !pp->next )
+	    changepfx(sp, '`');
+	printpfx(sp, f);
+
+	d = fprintf(f, "[%s", Pptype(pp->typ));
+	if ( pp->align )
+	    d += fprintf(f, ", <%s>", Begin[pp->align]);
+
+	for (count=0, p=pp->text; p; ++count, (p = p->next) )
+	    ;
+
+	if ( count )
+	    d += fprintf(f, ", %d line%s", count, (count==1)?"":"s");
+
+	d += fprintf(f, "]");
+
+	if ( pp->down ) {
+	    pushpfx(d, pp->down->next ? '+' : '-', sp);
+	    dumptree(pp->down, sp, f);
+	    poppfx(sp);
+	}
+	else fputc('\n', f);
+	pp = pp->next;
+    }
+}
+
+
+int
+mkd_dump(Document *doc, FILE *out, int flags, char *title)
+{
+    Stack stack;
+
+    if (mkd_compile(doc, flags) ) {
+
+	CREATE(stack);
+	pushpfx(fprintf(out, "%s", title), doc->code->next ? '+' : '-', &stack);
+	dumptree(doc->code, &stack, out);
+	DELETE(stack);
+
+	mkd_cleanup(doc);
+	return 0;
+    }
+    return -1;
+}