jeremy-RedCloth 4.1.1

data/bin/redcloth

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+$:.unshift(File.dirname(__FILE__) + '/../lib/')
+require 'optparse'
+require 'redcloth'
+
+if %w(--version -v).include? ARGV.first
+  puts "#{RedCloth::NAME} #{RedCloth::VERSION}"
+  exit(0)
+end
+
+output_as = "html"
+opts = OptionParser.new do |opts|
+    opts.banner = "Usage: redcloth [options] [redcloth_formatted.txt]"
+    opts.separator "If no file specified, STDIN will be used. If you are typing input, you can send an EOF by pressing ^D (^Z on Windows)"
+    opts.separator ""
+    opts.on("-o", "--output STYLE", "Output format (defaults to #{output_as})") do |o|
+        output_as = o
+    end
+end
+opts.parse! ARGV
+
+red = RedCloth.new( ARGF.read )
+out_meth = "to_#{ output_as }"
+if red.respond_to? out_meth
+    puts red.method( out_meth ).call
+else
+    abort "** No to_#{ output_as } method found for the `#{ output_as }' format"
+end

data/ext/mingw-rbconfig.rb

@@ -0,0 +1,176 @@
+
+# This rbconfig.rb corresponds to a Ruby installation for win32 cross-compiled
+# with mingw under i686-linux. It can be used to cross-compile extensions for
+# win32 using said toolchain.
+# 
+# This file assumes that a cross-compiled mingw32 build (compatible with the
+# mswin32 builds) is installed under $HOME/ruby-mingw32.
+
+module Config
+  #RUBY_VERSION == "1.8.5" or
+  #  raise "ruby lib version (1.8.5) doesn't match executable version (#{RUBY_VERSION})"
+
+  mingw32 = ENV['MINGW32_RUBY'] || "#{ENV["HOME"]}/ruby-mingw32"
+  mingwpre = ENV['MINGW32_PREFIX']
+  TOPDIR = File.dirname(__FILE__).chomp!("/lib/ruby/1.8/i386-mingw32")
+  DESTDIR = '' unless defined? DESTDIR
+  CONFIG = {}
+  CONFIG["DESTDIR"] = DESTDIR
+  CONFIG["INSTALL"] = "/usr/bin/install -c"
+  CONFIG["prefix"] = (TOPDIR || DESTDIR + mingw32)
+  CONFIG["EXEEXT"] = ".exe"
+  CONFIG["ruby_install_name"] = "ruby"
+  CONFIG["RUBY_INSTALL_NAME"] = "ruby"
+  CONFIG["RUBY_SO_NAME"] = "msvcrt-ruby18"
+  CONFIG["SHELL"] = "/bin/sh"
+  CONFIG["PATH_SEPARATOR"] = ":"
+  CONFIG["PACKAGE_NAME"] = ""
+  CONFIG["PACKAGE_TARNAME"] = ""
+  CONFIG["PACKAGE_VERSION"] = ""
+  CONFIG["PACKAGE_STRING"] = ""
+  CONFIG["PACKAGE_BUGREPORT"] = ""
+  CONFIG["exec_prefix"] = "$(prefix)"
+  CONFIG["bindir"] = "$(exec_prefix)/bin"
+  CONFIG["sbindir"] = "$(exec_prefix)/sbin"
+  CONFIG["libexecdir"] = "$(exec_prefix)/libexec"
+  CONFIG["datadir"] = "$(prefix)/share"
+  CONFIG["sysconfdir"] = "$(prefix)/etc"
+  CONFIG["sharedstatedir"] = "$(prefix)/com"
+  CONFIG["localstatedir"] = "$(prefix)/var"
+  CONFIG["libdir"] = "$(exec_prefix)/lib"
+  CONFIG["includedir"] = "$(prefix)/include"
+  CONFIG["oldincludedir"] = "/usr/include"
+  CONFIG["infodir"] = "$(prefix)/info"
+  CONFIG["mandir"] = "$(prefix)/man"
+  CONFIG["build_alias"] = "i686-linux"
+  CONFIG["host_alias"] = "#{mingwpre}"
+  CONFIG["target_alias"] = "i386-mingw32"
+  CONFIG["ECHO_C"] = ""
+  CONFIG["ECHO_N"] = "-n"
+  CONFIG["ECHO_T"] = ""
+  CONFIG["LIBS"] = "-lwsock32 "
+  CONFIG["MAJOR"] = "1"
+  CONFIG["MINOR"] = "8"
+  CONFIG["TEENY"] = "4"
+  CONFIG["build"] = "i686-pc-linux"
+  CONFIG["build_cpu"] = "i686"
+  CONFIG["build_vendor"] = "pc"
+  CONFIG["build_os"] = "linux"
+  CONFIG["host"] = "i586-pc-mingw32msvc"
+  CONFIG["host_cpu"] = "i586"
+  CONFIG["host_vendor"] = "pc"
+  CONFIG["host_os"] = "mingw32msvc"
+  CONFIG["target"] = "i386-pc-mingw32"
+  CONFIG["target_cpu"] = "i386"
+  CONFIG["target_vendor"] = "pc"
+  CONFIG["target_os"] = "mingw32"
+  CONFIG["CC"] = "#{mingwpre}-gcc"
+  CONFIG["CFLAGS"] = "-g "
+  CONFIG["LDFLAGS"] = ""
+  CONFIG["CPPFLAGS"] = ""
+  CONFIG["OBJEXT"] = "o"
+  CONFIG["CPP"] = "#{mingwpre}-gcc -E"
+  CONFIG["EGREP"] = "grep -E"
+  CONFIG["GNU_LD"] = "yes"
+  CONFIG["CPPOUTFILE"] = "-o conftest.i"
+  CONFIG["OUTFLAG"] = "-o "
+  CONFIG["YACC"] = "bison -y"
+  CONFIG["RANLIB"] = "#{mingwpre}-ranlib"
+  CONFIG["AR"] = "#{mingwpre}-ar"
+  CONFIG["NM"] = "#{mingwpre}-nm"
+  CONFIG["WINDRES"] = "#{mingwpre}-windres"
+  CONFIG["DLLWRAP"] = "#{mingwpre}-dllwrap"
+  CONFIG["OBJDUMP"] = "#{mingwpre}-objdump"
+  CONFIG["LN_S"] = "ln -s"
+  CONFIG["SET_MAKE"] = ""
+  CONFIG["INSTALL_PROGRAM"] = "$(INSTALL)"
+  CONFIG["INSTALL_SCRIPT"] = "$(INSTALL)"
+  CONFIG["INSTALL_DATA"] = "$(INSTALL) -m 644"
+  CONFIG["RM"] = "rm -f"
+  CONFIG["CP"] = "cp"
+  CONFIG["MAKEDIRS"] = "mkdir -p"
+  CONFIG["LIBOBJS"] = " fileblocks$(U).o crypt$(U).o flock$(U).o acosh$(U).o win32$(U).o"
+  CONFIG["ALLOCA"] = ""
+  CONFIG["DLDFLAGS"] = " -Wl,--enable-auto-import,--export-all"
+  CONFIG["ARCH_FLAG"] = ""
+  CONFIG["STATIC"] = ""
+  CONFIG["CCDLFLAGS"] = ""
+  CONFIG["LDSHARED"] = "#{mingwpre}-gcc -shared -s"
+  CONFIG["DLEXT"] = "so"
+  CONFIG["DLEXT2"] = "dll"
+  CONFIG["LIBEXT"] = "a"
+  CONFIG["LINK_SO"] = ""
+  CONFIG["LIBPATHFLAG"] = " -L\"%s\""
+  CONFIG["RPATHFLAG"] = ""
+  CONFIG["LIBPATHENV"] = ""
+  CONFIG["TRY_LINK"] = ""
+  CONFIG["STRIP"] = "strip"
+  CONFIG["EXTSTATIC"] = ""
+  CONFIG["setup"] = "Setup"
+  CONFIG["MINIRUBY"] = "ruby -rfake"
+  CONFIG["PREP"] = "fake.rb"
+  CONFIG["RUNRUBY"] = "$(MINIRUBY) -I`cd $(srcdir)/lib; pwd`"
+  CONFIG["EXTOUT"] = ".ext"
+  CONFIG["ARCHFILE"] = ""
+  CONFIG["RDOCTARGET"] = ""
+  CONFIG["XCFLAGS"] = " -DRUBY_EXPORT"
+  CONFIG["XLDFLAGS"] = " -Wl,--stack,0x02000000 -L."
+  CONFIG["LIBRUBY_LDSHARED"] = "#{mingwpre}-gcc -shared -s"
+  CONFIG["LIBRUBY_DLDFLAGS"] = " -Wl,--enable-auto-import,--export-all -Wl,--out-implib=$(LIBRUBY)"
+  CONFIG["rubyw_install_name"] = "rubyw"
+  CONFIG["RUBYW_INSTALL_NAME"] = "rubyw"
+  CONFIG["LIBRUBY_A"] = "lib$(RUBY_SO_NAME)-static.a"
+  CONFIG["LIBRUBY_SO"] = "$(RUBY_SO_NAME).dll"
+  CONFIG["LIBRUBY_ALIASES"] = ""
+  CONFIG["LIBRUBY"] = "lib$(LIBRUBY_SO).a"
+  CONFIG["LIBRUBYARG"] = "$(LIBRUBYARG_SHARED)"
+  CONFIG["LIBRUBYARG_STATIC"] = "-l$(RUBY_SO_NAME)-static"
+  CONFIG["LIBRUBYARG_SHARED"] = "-l$(RUBY_SO_NAME)"
+  CONFIG["SOLIBS"] = "$(LIBS)"
+  CONFIG["DLDLIBS"] = ""
+  CONFIG["ENABLE_SHARED"] = "yes"
+  CONFIG["MAINLIBS"] = ""
+  CONFIG["COMMON_LIBS"] = "m"
+  CONFIG["COMMON_MACROS"] = ""
+  CONFIG["COMMON_HEADERS"] = "windows.h winsock.h"
+  CONFIG["EXPORT_PREFIX"] = ""
+  CONFIG["MINIOBJS"] = "dmydln.o"
+  CONFIG["MAKEFILES"] = "Makefile GNUmakefile"
+  CONFIG["arch"] = "i386-mingw32"
+  CONFIG["sitearch"] = "i386-msvcrt"
+  CONFIG["sitedir"] = "$(prefix)/lib/ruby/site_ruby"
+  CONFIG["configure_args"] = "'--host=#{mingwpre}' '--target=i386-mingw32' '--build=i686-linux' '--prefix=#{mingw32}' 'build_alias=i686-linux' 'host_alias=#{mingwpre}' 'target_alias=i386-mingw32'"
+  CONFIG["NROFF"] = "/usr/bin/nroff"
+  CONFIG["MANTYPE"] = "doc"
+  CONFIG["LTLIBOBJS"] = " fileblocks$(U).lo crypt$(U).lo flock$(U).lo acosh$(U).lo win32$(U).lo"
+  CONFIG["ruby_version"] = "$(MAJOR).$(MINOR)"
+  CONFIG["rubylibdir"] = "$(libdir)/ruby/$(ruby_version)"
+  CONFIG["archdir"] = "$(rubylibdir)/$(arch)"
+  CONFIG["sitelibdir"] = "$(sitedir)/$(ruby_version)"
+  CONFIG["sitearchdir"] = "$(sitelibdir)/$(sitearch)"
+  CONFIG["topdir"] = File.dirname(__FILE__)
+  MAKEFILE_CONFIG = {}
+  CONFIG.each{|k,v| MAKEFILE_CONFIG[k] = v.dup}
+  def Config::expand(val, config = CONFIG)
+    val.gsub!(/\$\$|\$\(([^()]+)\)|\$\{([^{}]+)\}/) do |var|
+      if !(v = $1 || $2)
+	'$'
+      elsif key = config[v = v[/\A[^:]+(?=(?::(.*?)=(.*))?\z)/]]
+	pat, sub = $1, $2
+	config[v] = false
+	Config::expand(key, config)
+	config[v] = key
+	key = key.gsub(/#{Regexp.quote(pat)}(?=\s|\z)/n) {sub} if pat
+	key
+      else
+	var
+      end
+    end
+    val
+  end
+  CONFIG.each_value do |val|
+    Config::expand(val)
+  end
+end
+RbConfig = Config # compatibility for ruby-1.9
+CROSS_COMPILING = nil unless defined? CROSS_COMPILING

data/ext/redcloth_scan/extconf.rb

@@ -0,0 +1,9 @@
+require 'mkmf'
+
+$CFLAGS << " -O2 "
+
+### It seems to work fine without these
+# dir_config("redcloth_scan")
+# have_library("c", "main")
+
+create_makefile("redcloth_scan")

data/ext/redcloth_scan/redcloth.h

@@ -0,0 +1,178 @@
+#ifndef redcloth_h
+#define redcloth_h
+
+/* Backward compatibility with Ruby < 1.8.6 */
+#ifndef RSTRING_LEN
+#define RSTRING_LEN(x) (RSTRING(x)->len)
+#endif
+#ifndef RSTRING_PTR
+#define RSTRING_PTR(x) (RSTRING(x)->ptr)
+#endif
+
+/* variable defs */
+#ifndef redcloth_scan_c
+extern VALUE super_ParseError, mRedCloth, super_RedCloth;
+extern int SYM_escape_preformatted;
+#endif
+
+/* function defs */
+void rb_str_cat_escaped(VALUE self, VALUE str, char *ts, char *te);
+void rb_str_cat_escaped_for_preformatted(VALUE self, VALUE str, char *ts, char *te);
+VALUE redcloth_inline(VALUE, char *, char *, VALUE);
+VALUE redcloth_inline2(VALUE, VALUE, VALUE);
+VALUE redcloth_attribute_parser(int, VALUE, char *, char *);
+VALUE redcloth_attributes(VALUE, VALUE);
+VALUE redcloth_link_attributes(VALUE, VALUE);
+VALUE redcloth_transform(VALUE, char *, char *, VALUE);
+VALUE redcloth_transform2(VALUE, VALUE);
+void red_inc(VALUE, VALUE);
+VALUE red_block(VALUE, VALUE, VALUE, VALUE);
+VALUE red_blockcode(VALUE, VALUE, VALUE);
+VALUE red_pass(VALUE, VALUE, VALUE, ID, VALUE);
+VALUE red_pass_code(VALUE, VALUE, VALUE, ID);
+
+/* parser macros */
+#define CLEAR_REGS()   regs = rb_hash_new();
+#define RESET_REG()    reg = NULL
+#define CAT(H)         rb_str_cat(H, ts, te-ts)
+#define CLEAR(H)       H = rb_str_new2("")
+#define SET_PLAIN_BLOCK(T) plain_block = rb_str_new2(T)
+#define RESET_TYPE(T)  rb_hash_aset(regs, ID2SYM(rb_intern("type")), plain_block)
+#define INLINE(H, T)   rb_str_append(H, rb_funcall(self, rb_intern(T), 1, regs))
+#define DONE(H)        rb_str_append(html, H); CLEAR(H); CLEAR_REGS()
+#define PASS(H, A, T)  rb_str_append(H, red_pass(self, regs, ID2SYM(rb_intern(A)), rb_intern(T), refs))
+#define PARSE_ATTR(A)  red_parse_attr(self, regs, ID2SYM(rb_intern(A)))
+#define PARSE_LINK_ATTR(A)  red_parse_link_attr(self, regs, ID2SYM(rb_intern(A)))
+#define PASS_CODE(H, A, T, O) rb_str_append(H, red_pass_code(self, regs, ID2SYM(rb_intern(A)), rb_intern(T)))
+#define ADD_BLOCK() \
+  rb_str_append(html, red_block(self, regs, block, refs)); \
+  extend = Qnil; \
+  CLEAR(block); \
+  CLEAR_REGS()
+#define ADD_EXTENDED_BLOCK()    rb_str_append(html, red_block(self, regs, block, refs)); CLEAR(block);
+#define END_EXTENDED()     extend = Qnil; CLEAR_REGS();
+#define IS_NOT_EXTENDED()     NIL_P(extend)
+#define ADD_BLOCKCODE()    rb_str_append(html, red_blockcode(self, regs, block)); CLEAR(block); CLEAR_REGS()
+#define ADD_EXTENDED_BLOCKCODE()    rb_str_append(html, red_blockcode(self, regs, block)); CLEAR(block);
+#define ASET(T, V)     rb_hash_aset(regs, ID2SYM(rb_intern(T)), rb_str_new2(V));
+#define AINC(T)        red_inc(regs, ID2SYM(rb_intern(T)));
+#define SET_ATTRIBUTES() \
+  VALUE buf = Qnil; \
+  SET_ATTRIBUTE("class_buf", "class"); \
+  SET_ATTRIBUTE("id_buf", "id"); \
+  SET_ATTRIBUTE("lang_buf", "lang"); \
+  SET_ATTRIBUTE("style_buf", "style");
+#define SET_ATTRIBUTE(B, A) \
+  buf = rb_hash_aref(regs, ID2SYM(rb_intern(B))); \
+  if (buf != Qnil) rb_hash_aset(regs, ID2SYM(rb_intern(A)), buf);
+#define TRANSFORM(T) \
+  if (p > reg && reg >= ts) { \
+    VALUE str = redcloth_transform(self, reg, p, refs); \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), str); \
+  /*  printf("TRANSFORM(" T ") '%s' (p:'%d' reg:'%d')\n", RSTRING(str)->ptr, p, reg);*/  \
+  } else { \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), Qnil); \
+  }
+#define STORE(T)  \
+  if (p > reg && reg >= ts) { \
+    VALUE str = rb_str_new(reg, p-reg); \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), str); \
+  /*  printf("STORE(" T ") '%s' (p:'%d' reg:'%d')\n", RSTRING(str)->ptr, p, reg);*/  \
+  } else { \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), Qnil); \
+  }
+#define STORE_B(T)  \
+  if (p > bck && bck >= ts) { \
+    VALUE str = rb_str_new(bck, p-bck); \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), str); \
+  /*  printf("STORE_B(" T ") '%s' (p:'%d' reg:'%d')\n", RSTRING(str)->ptr, p, reg);*/  \
+  } else { \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), Qnil); \
+  }
+#define STORE_URL(T) \
+  if (p > reg && reg >= ts) { \
+    char punct = 1; \
+    while (p > reg && punct == 1) { \
+      switch (*(p - 1)) { \
+        case ')': \
+          { /*needed to keep inside chars scoped for less memory usage*/\
+            char *temp_p = p - 1; \
+            char level = -1; \
+            while (temp_p > reg) { \
+              switch(*(temp_p - 1)) { \
+                case '(': ++level; break; \
+                case ')': --level; break; \
+              } \
+              --temp_p; \
+            } \
+            if (level == 0) { punct = 0; } else { --p; } \
+          } \
+          break;  \
+        case '!': case '"': case '#': case '$': case '%': case ']': case '[': case '&': case '\'': \
+        case '*': case '+': case ',': case '-': case '.': case '(':  case ':':  \
+        case ';': case '=': case '?': case '@': case '\\': case '^': case '_': \
+        case '`': case '|': case '~': p--; break; \
+        default: punct = 0; \
+      } \
+    } \
+    te = p; \
+  } \
+  STORE(T); \
+  if ( !NIL_P(refs) && rb_funcall(refs, rb_intern("has_key?"), 1, rb_hash_aref(regs, ID2SYM(rb_intern(T)))) ) { \
+    rb_hash_aset(regs, ID2SYM(rb_intern(T)), rb_hash_aref(refs, rb_hash_aref(regs, ID2SYM(rb_intern(T))))); \
+  }
+#define STORE_LINK_ALIAS() \
+  rb_hash_aset(refs_found, rb_hash_aref(regs, ID2SYM(rb_intern("text"))), rb_hash_aref(regs, ID2SYM(rb_intern("href"))))
+#define CLEAR_LIST() list_layout = rb_ary_new()
+#define LIST_ITEM() \
+    int aint = 0; \
+    VALUE aval = rb_ary_entry(list_index, nest-1); \
+    if (aval != Qnil) aint = NUM2INT(aval); \
+    if (strcmp(list_type, "ol") == 0) \
+    { \
+      rb_ary_store(list_index, nest-1, INT2NUM(aint + 1)); \
+    } \
+    if (nest > RARRAY_LEN(list_layout)) \
+    { \
+      sprintf(listm, "%s_open", list_type); \
+      if (list_continue == 1) \
+      { \
+        list_continue = 0; \
+        rb_hash_aset(regs, ID2SYM(rb_intern("start")), rb_ary_entry(list_index, nest-1)); \
+      } \
+      else \
+      { \
+        VALUE start = rb_hash_aref(regs, ID2SYM(rb_intern("start"))); \
+        if (NIL_P(start) ) \
+        { \
+          rb_ary_store(list_index, nest-1, INT2NUM(1)); \
+        } \
+        else \
+        { \
+          VALUE start_num = rb_funcall(start,rb_intern("to_i"),0); \
+          rb_ary_store(list_index, nest-1, start_num); \
+        } \
+      } \
+      rb_hash_aset(regs, ID2SYM(rb_intern("nest")), INT2NUM(nest)); \
+      rb_str_append(html, rb_funcall(self, rb_intern(listm), 1, regs)); \
+      rb_ary_store(list_layout, nest-1, rb_str_new2(list_type)); \
+      CLEAR_REGS(); \
+      ASET("first", "true"); \
+    } \
+    LIST_CLOSE(); \
+    rb_hash_aset(regs, ID2SYM(rb_intern("nest")), INT2NUM(RARRAY_LEN(list_layout))); \
+    ASET("type", "li_open")
+#define LIST_CLOSE() \
+    while (nest < RARRAY_LEN(list_layout)) \
+    { \
+      rb_hash_aset(regs, ID2SYM(rb_intern("nest")), INT2NUM(RARRAY_LEN(list_layout))); \
+      VALUE end_list = rb_ary_pop(list_layout); \
+      if (!NIL_P(end_list)) \
+      { \
+        StringValue(end_list); \
+        sprintf(listm, "%s_close", RSTRING_PTR(end_list)); \
+        rb_str_append(html, rb_funcall(self, rb_intern(listm), 1, regs)); \
+      } \
+    }
+
+#endif

data/ext/redcloth_scan/redcloth_attributes.c.rl

@@ -0,0 +1,56 @@
+/*
+ * redcloth_attributes.c.rl
+ *
+ * Copyright (C) 2008 Jason Garber
+ */
+#include <ruby.h>
+#include "redcloth.h"
+
+%%{
+
+  machine redcloth_attributes;
+  include redcloth_common "redcloth_common.c.rl";
+  include redcloth_attributes "redcloth_attributes.rl";
+
+}%%
+
+%% write data nofinal;
+
+
+VALUE
+redcloth_attribute_parser(machine, self, p, pe)
+  int machine;
+  VALUE self;
+  char *p, *pe;
+{
+  int cs, act;
+  char *ts, *te, *reg, *bck, *eof;
+  VALUE regs = rb_hash_new();
+  VALUE buf = Qnil;
+
+  %% write init;
+
+  cs = machine;
+
+  %% write exec;
+
+  return regs;
+}
+
+VALUE
+redcloth_attributes(self, str)
+  VALUE self, str;
+{
+  StringValue(str);
+  int cs = redcloth_attributes_en_inline;
+  return redcloth_attribute_parser(cs, self, RSTRING_PTR(str), RSTRING_PTR(str) + RSTRING_LEN(str) + 1);
+}
+
+VALUE
+redcloth_link_attributes(self, str)
+  VALUE self, str;
+{
+  StringValue(str);
+  int cs = redcloth_attributes_en_link_says;
+  return redcloth_attribute_parser(cs, self, RSTRING_PTR(str), RSTRING_PTR(str) + RSTRING_LEN(str) + 1);
+}