rtomayko-rdiscount 1.3.1.1

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.markdown

@@ -0,0 +1,58 @@
+Discount Markdown Processor for Ruby
+====================================
+
+Discount is an implementation of John Gruber's Markdown markup language in C. It
+implements all of the language described in [the markdown syntax document][1] and
+passes the [Markdown 1.0 test suite][2].
+
+Discount was developed by [David Loren Parsons][3]. The Ruby extension was
+developed by [Ryan Tomayko][4].
+
+[1]: http://daringfireball.net/projects/markdown/syntax
+[2]: http://daringfireball.net/projects/downloads/MarkdownTest_1.0.zip
+[3]: http://www.pell.portland.or.us/~orc
+[4]: http://tomayko.com/
+
+Installation, Hacking
+---------------------
+
+RDiscount Gem releases are published to RubyForge and can be installed as
+follows:
+
+  $ [sudo] gem install rdiscount
+
+The RDiscount sources are available via Git:
+
+  $ git clone git://github.com/rtomayko/rdiscount.git
+  $ cd rdiscount
+  $ rake --tasks
+
+For more information, see [the project page](http://github.com/rtomayko/rdiscount).
+
+Usage
+-----
+
+RDiscount implements the basic protocol popularized by RedCloth and adopted
+by BlueCloth:
+
+  require 'rdiscount'
+  markdown = RDiscount.new("Hello World!")
+  puts markdown.to_html
+
+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
+
+COPYING
+-------
+
+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. RDiscount adopts Discount's license
+verbatim. See the file COPYING for more information.

data/Rakefile

@@ -0,0 +1,198 @@
+require 'rake/clean'
+
+task :default => 'test:unit'
+
+# PACKAGING =================================================================
+
+# Load the gemspec using the same limitations as github
+$spec =
+  begin
+    require 'rubygems/specification'
+    data = File.read('rdiscount.gemspec')
+    spec = nil
+    Thread.new { spec = eval("$SAFE = 3\n#{data}") }.join
+    spec
+  end
+
+def package(ext='')
+  "pkg/rdiscount-#{$spec.version}" + ext
+end
+
+desc 'Build packages'
+task :package => %w[.gem .tar.gz].map {|e| package(e)}
+
+desc 'Build and install as local gem'
+task :install => package('.gem') do
+  sh "gem install #{package('.gem')}"
+end
+
+directory 'pkg/'
+
+file package('.gem') => %w[pkg/ rdiscount.gemspec] + $spec.files do |f|
+  sh "gem build rdiscount.gemspec"
+  mv File.basename(f.name), f.name
+end
+
+file package('.tar.gz') => %w[pkg/] + $spec.files do |f|
+  sh "git archive --format=tar HEAD | gzip > #{f.name}"
+end
+
+# GEMSPEC HELPERS ==========================================================
+
+def source_version
+  line = File.read('lib/rdiscount.rb')[/^\s*VERSION = .*/]
+  line.match(/.*VERSION = '(.*)'/)[1]
+end
+
+file 'rdiscount.gemspec' => FileList['Rakefile','lib/rdiscount.rb'] do |f|
+  # read spec file and split out manifest section
+  spec = File.read(f.name)
+  head, manifest, tail = spec.split("  # = MANIFEST =\n")
+  head.sub!(/\.version = '.*'/, ".version = '#{source_version}'")
+  head.sub!(/\.date = '.*'/, ".date = '#{Date.today.to_s}'")
+  # determine file list from git ls-files
+  files = `git ls-files`.
+    split("\n").
+    sort.
+    reject{ |file| file =~ /^\./ || file =~ /^test\/MarkdownTest/ }.
+    map{ |file| "    #{file}" }.
+    join("\n")
+  # piece file back together and write...
+  manifest = "  s.files = %w[\n#{files}\n  ]\n"
+  spec = [head,manifest,tail].join("  # = MANIFEST =\n")
+  File.open(f.name, 'w') { |io| io.write(spec) }
+  puts "updated #{f.name}"
+end
+
+# ==========================================================
+# Ruby Extension
+# ==========================================================
+
+DLEXT = Config::CONFIG['DLEXT']
+
+file 'ext/Makefile' => FileList['ext/{*.c,*.h,*.rb}'] do
+  chdir('ext') { ruby 'extconf.rb' }
+end
+CLEAN.include 'ext/Makefile', 'ext/mkmf.log'
+
+file "ext/rdiscount.#{DLEXT}" => FileList['ext/Makefile', 'ext/*.{c,h,rb}'] do |f|
+  sh 'cd ext && make'
+end
+CLEAN.include 'ext/*.{o,bundle,so,dll}'
+
+file "lib/rdiscount.#{DLEXT}" => "ext/rdiscount.#{DLEXT}" do |f|
+  cp f.prerequisites, "lib/", :preserve => true
+end
+
+desc 'Build the rdiscount extension'
+task :build => "lib/rdiscount.#{DLEXT}"
+
+# ==========================================================
+# Testing
+# ==========================================================
+
+desc 'Run unit tests'
+task 'test:unit' => [:build] do |t|
+  sh 'testrb test/markdown_test.rb test/rdiscount_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]
+
+desc 'Run benchmarks'
+task :benchmark => :build do |t|
+  $:.unshift 'lib'
+  load 'test/benchmark.rb'
+end
+
+# ==========================================================
+# Documentation
+# ==========================================================
+
+desc 'Generate API documentation'
+task :doc => 'doc/index.html'
+
+file 'doc/index.html' => FileList['lib/*.rb'] do |f|
+  sh((<<-end).gsub(/\s+/, ' '))
+    hanna --charset utf8 \
+          --fmt html \
+          --inline-source \
+          --line-numbers \
+          --main RDiscount \
+          --op doc \
+          --title 'RDiscount API Documentation' \
+          #{f.prerequisites.join(' ')}
+  end
+end
+
+CLEAN.include 'doc'
+
+
+# ==========================================================
+# Rubyforge
+# ==========================================================
+
+desc 'Publish new release to rubyforge'
+task :release => [package('.gem'), package('.tar.gz')] do |t|
+  sh <<-end
+    rubyforge add_release wink rdiscount #{$spec.version} #{package('.gem')} &&
+    rubyforge add_file    wink rdiscount #{$spec.version} #{package('.tar.gz')}
+  end
+end
+
+desc 'Publish API docs to rubyforge'
+task :publish => :doc do |t|
+  sh 'scp -rp doc/. rubyforge.org:/var/www/gforge-projects/wink/rdiscount'
+end
+
+# ==========================================================
+# Update package's Discount sources
+# ==========================================================
+
+desc 'Gather required discount sources into extension directory'
+task :gather => 'discount' 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
+
+# best. task. ever.
+file 'discount' do |f|
+  STDERR.puts((<<-TEXT).gsub(/^ +/, ''))
+    Sorry, this operation requires a human. Tell your human to:
+
+    Grab a discount tarball from:
+    http://www.pell.portland.or.us/~orc/Code/discount/
+
+    Extract here with something like:
+    tar xvzf discount-1.2.9.tar.gz
+
+    Create a discount symlink pointing at the version directory:
+    ln -hsf discount-1.2.9 discount
+
+  TEXT
+  fail "discount sources required."
+end

data/bin/rdiscount

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+$: << File.expand_path(File.dirname(__FILE__) + "/../lib")
+require 'rdiscount'
+STDOUT.write(RDiscount.new(ARGF.read).to_html)

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,9 @@
+
+/* rdiscount extension configuration */
+
+#undef USE_AMALLOC
+
+#define TABSTOP 4
+#define COINTOSS() (random()&1)
+#define INITRNG(x) srandom((unsigned int)x)
+#define RELAXED_EMPHASIS 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/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;
+}

data/ext/extconf.rb

@@ -0,0 +1,14 @@
+require 'mkmf'
+
+dir_config('rdiscount')
+
+HAVE_RANDOM = have_func('random')
+HAVE_SRANDOM = have_func('srandom')
+HAVE_FUNOPEN = have_func('funopen')
+HAVE_FOPENCOOKIE = have_func('fopencookie')
+
+unless HAVE_FUNOPEN || HAVE_FOPENCOOKIE
+  fail "No funopen or fopencookie support available."
+end
+
+create_makefile('rdiscount')