RedCloth 4.1.1-x86-mswin32-60 → 4.1.9-x86-mswin32-60

data/ext/redcloth_scan/redcloth_inline.java.rl

@@ -1,7 +1,7 @@
 /*
  * redcloth_inline.rl
  *
- * Copyright (C) 2008 Jason Garber
+ * Copyright (C) 2009 Jason Garber
  */
 import java.io.IOException;
 
@@ -53,10 +53,40 @@ public class RedclothInline extends RedclothScanService.Base {
 
   public IRubyObject red_parse_link_attr(IRubyObject self, IRubyObject regs, IRubyObject ref) {
     IRubyObject txt = ((RubyHash)regs).aref(ref);
-    IRubyObject new_regs = RedclothAttributes.link_attributes(self, txt);
+    IRubyObject new_regs = red_parse_title(RedclothAttributes.link_attributes(self, txt), ref);
     return regs.callMethod(runtime.getCurrentContext(), "update", new_regs);
   }
 
+  public IRubyObject red_parse_image_attr(IRubyObject self, IRubyObject regs, IRubyObject ref) {
+    return red_parse_title(regs, ref);
+  }
+
+  public IRubyObject red_parse_title(IRubyObject regs, IRubyObject ref) {
+    IRubyObject name = ((RubyHash)regs).aref(ref);
+    if ( !name.isNil() ) {
+      String s = name.convertToString().toString();
+      int p = s.length();
+      if (s.charAt(p - 1) == ')') {
+        int level = -1;
+        p--;
+        while (p > 0 && level < 0) {
+          switch(s.charAt(p - 1)) {
+            case '(': ++level; break;
+            case ')': --level; break;
+          }
+          --p;
+        }
+        IRubyObject title = runtime.newString(s.substring(p + 1, s.length() - 1));
+        if(p > 0 && s.charAt(p - 1) == ' ') --p;
+        if(p != 0) {
+          ((RubyHash)regs).aset(ref, runtime.newString(s.substring(0, p)));
+          ((RubyHash)regs).aset(runtime.newSymbol("title"), title);
+        }
+      }
+    }
+    return regs;
+  }
+
   public void PASS_CODE(IRubyObject H, String A, String T, int O) {
     ((RubyString)H).append(red_pass_code(self, regs, runtime.newSymbol(A), T));
   }
@@ -69,8 +99,11 @@ public class RedclothInline extends RedclothScanService.Base {
     red_parse_link_attr(self, regs, runtime.newSymbol(A));
   }
 
+  public void PARSE_IMAGE_ATTR(String A) {
+    red_parse_image_attr(self, regs, runtime.newSymbol(A));
+  }
+
   private int opts;
-  private IRubyObject buf;
 
   public RedclothInline(IRubyObject self, byte[] data, int p, int pe, IRubyObject refs) {
     this.runtime = self.getRuntime();
@@ -90,7 +123,6 @@ public class RedclothInline extends RedclothScanService.Base {
     this.block = RubyString.newEmptyString(runtime);
     this.regs = runtime.getNil();
     this.opts = 0;
-    this.buf = runtime.getNil();
   }
 
 

data/ext/redcloth_scan/redcloth_inline.rl

@@ -1,7 +1,7 @@
 /*
  * redcloth_inline.rl
  *
- * Copyright (C) 2008 Jason Garber
+ * Copyright (C) 2009 Jason Garber
  */
 %%{
 
@@ -11,17 +11,18 @@
   mtext_noquotes = mtext -- '"' ;
   quoted_mtext = '"' mtext_noquotes '"' ;
   mtext_including_quotes = (mtext_noquotes ' "' mtext_noquotes '" ' mtext_noquotes?)+ ;
-  link_says = ( C_noactions "."* " "* ((quoted_mtext | mtext_including_quotes | mtext_noquotes) -- '":') ) >A %{ STORE("link_text"); } ;
+  link_says = ( C_noactions "."* " "* ((quoted_mtext | mtext_including_quotes | mtext_noquotes) -- '":') ) >A %{ STORE("name"); } ;
   link_says_noquotes_noactions = ( C_noquotes_noactions "."* " "* ((mtext_noquotes) -- '":') ) ;
   link = ( '"' link_says '":' %A uri %{ STORE_URL("href"); } ) >X ;
   link_noquotes_noactions = ( '"' link_says_noquotes_noactions '":' uri ) ;
   bracketed_link = ( '["' link_says '":' %A uri %{ STORE("href"); } :> "]" ) >X ;
 
   # images
-  image_src = ( uri ) >A %{ STORE("src"); } ;
-  image_is = ( A2 C ". "? image_src :> title? ) ;
+  image_title = ( '(' mtext ')' ) ;
+  image_is = ( A2 C ". "? (uri image_title?) >A %{ STORE("src"); } ) ;
   image_link = ( ":" uri >A %{ STORE_URL("href"); } ) ;
-  image = ( "["? "!" image_is "!" %A image_link? "]"? ) >X ;
+  image = ( "!" image_is "!" %A image_link? ) >X ;
+  bracketed_image = ( "[!" image_is "!" %A image_link? "]" ) >X ;
 
   # footnotes
   footno = "[" >X %A digit+ %T "]" ;
@@ -29,17 +30,14 @@
   # markup
   end_markup_phrase = (" " | PUNCT | EOF | LF) @{ fhold; };
   code = "["? "@" >X mtext >A %T :> "@" "]"? ;
-  code_tag_start = "<code" [^>]* ">" ;
-  code_tag_end = "</code>" ;
   script_tag = ( "<script" [^>]* ">" (default+ -- "</script>") "</script>" LF? ) >X >A %T ;
-  notextile = "<notextile>" >X (default+ -- "</notextile>") >A %T "</notextile>";
   strong = "["? "*" >X mtext >A %T :> "*" "]"? ;
   b = "["? "**" >X mtext >A %T :> "**" "]"? ;
   em = "["? "_" >X mtext >A %T :> "_" "]"? ;
   i = "["? "__" >X mtext >A %T :> "__" "]"? ;
   del = "[-" >X C ( mtext ) >A %T :>> "-]" ;
   emdash_parenthetical_phrase_with_spaces = " -- " mtext " -- " ;
-  del_phrase = (( " " >A %{ STORE("beginning_space"); } "-") >X C ( mtext ) >A %T :>> ( "-" end_markup_phrase )) - emdash_parenthetical_phrase_with_spaces ;
+  del_phrase = (( " " >A %{ STORE("beginning_space"); } "-" | "-" when starts_line) >X C ( mtext ) >A %T :>> ( "-" end_markup_phrase )) - emdash_parenthetical_phrase_with_spaces ;
   ins = "["? "+" >X mtext >A %T :> "+" "]"? ;
   sup = "[^" >X mtext >A %T :> "^]" ;
   sup_phrase = ( "^" when starts_phrase) >X ( mtext ) >A %T :>> ( "^" end_markup_phrase ) ;
@@ -97,10 +95,11 @@
 
   main := |*
     
-    image { INLINE(block, "image"); };
+    image { PARSE_IMAGE_ATTR("src"); INLINE(block, "image"); };
+    bracketed_image { PARSE_IMAGE_ATTR("src"); INLINE(block, "image"); };
     
-    link { PARSE_LINK_ATTR("link_text"); PASS(block, "name", "link"); };
-    bracketed_link { PARSE_LINK_ATTR("link_text"); PASS(block, "name", "link"); };
+    link { PARSE_LINK_ATTR("name"); PASS(block, "name", "link"); };
+    bracketed_link { PARSE_LINK_ATTR("name"); PASS(block, "name", "link"); };
     
     code { PARSE_ATTR("text"); PASS_CODE(block, "text", "code", opts); };
     code_tag_start { CAT(block); fgoto code_tag; };

data/ext/redcloth_scan/redcloth_scan.c.rl

@@ -1,7 +1,7 @@
 /*
  * redcloth_scan.c.rl
  *
- * Copyright (C) 2008 Jason Garber
+ * Copyright (C) 2009 Jason Garber
  */
 #define redcloth_scan_c
 
@@ -31,11 +31,11 @@ redcloth_transform(self, p, pe, refs)
   VALUE refs;
 {
   char *orig_p = p, *orig_pe = pe;
-  int cs, act, nest;
+  int cs, act, nest = 0;
   char *ts = NULL, *te = NULL, *reg = NULL, *bck = NULL, *eof = NULL;
-  VALUE html = rb_str_new2("");
-  VALUE table = rb_str_new2("");
-  VALUE block = rb_str_new2("");
+  VALUE html = STR_NEW2("");
+  VALUE table = STR_NEW2("");
+  VALUE block = STR_NEW2("");
   VALUE regs; CLEAR_REGS()
   
   
@@ -84,7 +84,7 @@ redcloth_html_esc(int argc, VALUE* argv, VALUE self) //(self, str, level)
   
   rb_scan_args(argc, argv, "11", &str, &level);
   
-  VALUE new_str = rb_str_new2("");
+  VALUE new_str = STR_NEW2("");
   if (str == Qnil)
     return new_str;
     
@@ -95,7 +95,7 @@ redcloth_html_esc(int argc, VALUE* argv, VALUE self) //(self, str, level)
   
   char *ts = RSTRING_PTR(str), *te = RSTRING_PTR(str) + RSTRING_LEN(str);
   char *t = ts, *t2 = ts, *ch = NULL;
-  if (te <= ts) return;
+  if (te <= ts) return Qnil;
 
   while (t2 < te) {
     ch = NULL;
@@ -142,7 +142,7 @@ redcloth_html_esc(int argc, VALUE* argv, VALUE self) //(self, str, level)
 static VALUE
 redcloth_latex_esc(VALUE self, VALUE str)
 {  
-  VALUE new_str = rb_str_new2("");
+  VALUE new_str = STR_NEW2("");
   
   if (str == Qnil)
     return new_str;
@@ -154,7 +154,7 @@ redcloth_latex_esc(VALUE self, VALUE str)
   
   char *ts = RSTRING_PTR(str), *te = RSTRING_PTR(str) + RSTRING_LEN(str);
   char *t = ts, *t2 = ts, *ch = NULL;
-  if (te <= ts) return;
+  if (te <= ts) return Qnil;
 
   while (t2 < te) {
     ch = NULL;
@@ -181,7 +181,7 @@ redcloth_latex_esc(VALUE self, VALUE str)
       if (t2 > t)
         rb_str_cat(new_str, t, t2-t);
       VALUE opts = rb_hash_new();
-      rb_hash_aset(opts, ID2SYM(rb_intern("text")), rb_str_new2(ch));
+      rb_hash_aset(opts, ID2SYM(rb_intern("text")), STR_NEW2(ch));
       rb_str_concat(new_str, rb_funcall(self, rb_intern("entity"), 1, opts));
       t = t2 + 1;
     }
@@ -201,12 +201,10 @@ static VALUE
 redcloth_to(self, formatter)
   VALUE self, formatter;
 {
-  char *pe, *p;
-  int len = 0;
-  
-  rb_funcall(self, rb_intern("delete!"), 1, rb_str_new2("\r"));
+  rb_funcall(self, rb_intern("delete!"), 1, STR_NEW2("\r"));
   VALUE working_copy = rb_obj_clone(self);
   rb_extend_object(working_copy, formatter);
+  
   if (rb_funcall(working_copy, rb_intern("lite_mode"), 0) == Qtrue) {
     return redcloth_inline2(working_copy, self, rb_hash_new());
   } else {

data/ext/redcloth_scan/redcloth_scan.java.rl

@@ -1,7 +1,7 @@
 /*
  * redcloth_scan.java.rl
  *
- * Copyright (C) 2008 Jason Garber
+ * Copyright (C) 2009 Jason Garber
  */
 import java.io.IOException;
 
@@ -108,8 +108,20 @@ public class RedclothScanService implements BasicLibraryService {
         boolean punct = true;
         while(p > reg && punct) {
           switch(data[p - 1]) {
+            case ')':
+              int tempP = p - 1;
+              int level = -1;
+              while(tempP > reg) {
+                switch(data[tempP - 1]) {
+                  case '(': ++level; break;
+                  case ')': --level; break;
+                }
+                --tempP;
+              }
+              if (level == 0) { punct = false; } 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 '=': case '?': case '@': case '\\': case '^': case '_':
             case '`': case '|': case '~': p--; break;
             default: punct = false;
@@ -160,7 +172,8 @@ public class RedclothScanService implements BasicLibraryService {
           ((RubyHash)regs).aset(sym_text, inline2(self, block, refs));
         }
 
-        if(self.respondsTo(method.asJavaString())) {
+        IRubyObject formatterMethods = ((RubyObject)self).callMethod(runtime.getCurrentContext(), "formatter_methods");
+        if( ((RubyArray)formatterMethods).includes(runtime.getCurrentContext(), method) ) {
           block = self.callMethod(runtime.getCurrentContext(), method.asJavaString(), regs);
         } else {
           IRubyObject fallback = ((RubyHash)regs).aref(runtime.newSymbol("fallback"));
@@ -229,6 +242,10 @@ public class RedclothScanService implements BasicLibraryService {
       ((RubyString)H).append(self.callMethod(runtime.getCurrentContext(), T, regs));
     }
 
+    public void RSTRIP_BANG(IRubyObject H) {
+      ((RubyString)H).callMethod(runtime.getCurrentContext(), "rstrip!");
+    }
+
     public void DONE(IRubyObject H) {
       ((RubyString)html).append(H);
       CLEAR(H);
@@ -403,6 +420,11 @@ public class RedclothScanService implements BasicLibraryService {
 
     ((RubyObject)workingCopy).extend(new IRubyObject[]{formatter});
     
+    IRubyObject workingCopyMethods = workingCopy.callMethod(runtime.getCurrentContext(), "methods");
+    IRubyObject classInstanceMethods = workingCopy.getType().callMethod(runtime.getCurrentContext(), "instance_methods");
+    IRubyObject customTags = workingCopyMethods.callMethod(runtime.getCurrentContext(), "-", classInstanceMethods);
+    ((RubyObject)workingCopy).setInstanceVariable("@custom_tags", customTags);
+    
     if(workingCopy.callMethod(runtime.getCurrentContext(), "lite_mode").isTrue()) { 
       return inline2(workingCopy, self, RubyHash.newHash(runtime));
     } else {

data/ext/redcloth_scan/redcloth_scan.rl

@@ -1,19 +1,18 @@
 /*
  * redcloth_scan.rl
  *
- * Copyright (C) 2008 Jason Garber
+ * Copyright (C) 2009 Jason Garber
  */
 %%{
 
   machine redcloth_scan;
 
   # blocks
-  notextile_tag_start = "<notextile>" ;
-  notextile_tag_end = "</notextile>" LF? ;
+  notextile_tag = notextile (LF | EOF) ;
   noparagraph_line_start = " "+ ;
   notextile_block_start = ( "notextile" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " "+ ) ;
-  pre_tag_start = "<pre" [^>]* ">" (space* "<code>")? ;
-  pre_tag_end = ("</code>" space*)? "</pre>" LF? ;
+  pre_tag_start = "<pre" [^>]* ">" (space* code_tag_start)? ;
+  pre_tag_end = (code_tag_end space*)? "</pre>" LF? ;
   pre_block_start = ( "pre" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " "+ ) ;
   bc_start = ( "bc" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " "+ ) ;
   bq_start = ( "bq" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) ( ":" %A uri %{ STORE("cite"); } )? " "+ ) ;
@@ -30,7 +29,7 @@
   ol = "#" %{nest++; list_type = "ol";};
   ul_start  = ( ul | ol )* ul A C :> " "+   ;
   ol_start  = ( ul | ol )* ol N A C :> " "+ ;
-  list_start  = ( ul_start | ol_start ) >{nest = 0;} ;
+  list_start  = " "* ( ul_start | ol_start ) >{nest = 0;} ;
   dt_start = "-" . " "+ ;
   dd_start = ":=" ;
   long_dd  = dd_start " "* LF %{ ADD_BLOCK(); ASET("type", "dd"); } any+ >A %{ TRANSFORM("text"); } :>> "=:" ;
@@ -109,11 +108,6 @@
     LF  { ADD_BLOCK(); fgoto main; };
     default => cat;
   *|;
-
-  notextile_tag := |*
-    notextile_tag_end   { ADD_BLOCK(); fgoto main; };
-    default => cat;
-  *|;
   
   notextile_block := |*
     EOF {
@@ -178,6 +172,7 @@
       } else { 
         ADD_EXTENDED_BLOCKCODE(); 
         CAT(html); 
+        RSTRIP_BANG(html);
         INLINE(html, "bc_close"); 
         SET_PLAIN_BLOCK("p");
         END_EXTENDED(); 
@@ -293,7 +288,7 @@
 
   main := |*
     noparagraph_line_start  { ASET("type", "ignored_line"); fgoto noparagraph_line; };
-    notextile_tag_start { ASET("type", "notextile"); fgoto notextile_tag; };
+    notextile_tag   { INLINE(block, "notextile"); };
     notextile_block_start { ASET("type", "notextile"); fgoto notextile_block; };
     script_tag_start { CAT(block); fgoto script_tag; };
     pre_tag_start       { ASET("type", "notextile"); CAT(block); fgoto pre_tag; };

data/lib/redcloth/formatters/base.rb

@@ -1,26 +1,6 @@
 module RedCloth::Formatters
   module Base
     
-    def pba(opts)
-      opts.delete(:style) if filter_styles
-      opts.delete(:class) if filter_classes
-      opts.delete(:id) if filter_ids
-
-      atts = ''
-      opts[:"text-align"] = opts.delete(:align)
-      opts[:style] += ';' if opts[:style] && (opts[:style][-1..-1] != ';')
-      [:float, :"text-align", :"vertical-align"].each do |a|
-        opts[:style] = "#{a}:#{opts[a]};#{opts[:style]}" if opts[a]
-      end
-      [:"padding-right", :"padding-left"].each do |a|
-        opts[:style] = "#{a}:#{opts[a]}em;#{opts[:style]}" if opts[a]
-      end
-      [:style, :class, :lang, :id, :colspan, :rowspan, :title, :start, :align].each do |a|
-        atts << " #{a}=\"#{ html_esc(opts[a].to_s, :html_escape_attributes) }\"" if opts[a]
-      end
-      atts
-    end
-    
     def ignore(opts)
       opts[:text]
     end
@@ -41,6 +21,28 @@ module RedCloth::Formatters
       end
     end
     
+  private
+    
+    def pba(opts)
+      opts.delete(:style) if filter_styles
+      opts.delete(:class) if filter_classes
+      opts.delete(:id) if filter_ids
+
+      atts = ''
+      opts[:"text-align"] = opts.delete(:align)
+      opts[:style] += ';' if opts[:style] && (opts[:style][-1..-1] != ';')
+      [:float, :"text-align", :"vertical-align"].each do |a|
+        opts[:style] = "#{a}:#{opts[a]};#{opts[:style]}" if opts[a]
+      end
+      [:"padding-right", :"padding-left"].each do |a|
+        opts[:style] = "#{a}:#{opts[a]}em;#{opts[:style]}" if opts[a]
+      end
+      [:style, :class, :lang, :id, :colspan, :rowspan, :title, :start, :align].each do |a|
+        atts << " #{a}=\"#{ html_esc(opts[a].to_s, :html_escape_attributes) }\"" if opts[a]
+      end
+      atts
+    end
+    
     def method_missing(method, opts)
       opts[:text] || ""
     end
@@ -52,6 +54,10 @@ module RedCloth::Formatters
     def after_transform(text)
       
     end
+    
+    def formatter_methods
+      singleton_methods.map! {|method| method.to_sym }
+    end
 
   end
 end

data/lib/redcloth/formatters/html.rb

@@ -1,25 +1,6 @@
 module RedCloth::Formatters::HTML
   include RedCloth::Formatters::Base
   
-  # escapement for regular HTML (not in PRE tag)
-  def escape(text)
-    html_esc(text)
-  end
-
-  # escapement for HTML in a PRE tag
-  def escape_pre(text)
-    html_esc(text, :html_escape_preformatted)
-  end
-  
-  # escaping for HTML attributes
-  def escape_attribute(text)
-    html_esc(text, :html_escape_attributes)
-  end
-  
-  def after_transform(text)
-    text.chomp!
-  end
-    
   [:h1, :h2, :h3, :h4, :h5, :h6, :p, :pre, :div].each do |m|
     define_method(m) do |opts|
       "<#{m}#{pba(opts)}>#{opts[:text]}</#{m}>\n"
@@ -129,18 +110,7 @@ module RedCloth::Formatters::HTML
     "</blockquote>\n"
   end
   
-  LINK_TEXT_WITH_TITLE_RE = /
-          ([^"]+?)         # $text
-          \s?
-          \(([^)]+?)\)     # $title
-          $
-      /x
   def link(opts)
-    if opts[:name] =~ LINK_TEXT_WITH_TITLE_RE
-      md = LINK_TEXT_WITH_TITLE_RE.match(opts[:name])
-      opts[:name] = md[1]
-      opts[:title] = md[2]
-    end
     "<a href=\"#{escape_attribute opts[:href]}\"#{pba(opts)}>#{opts[:name]}</a>"
   end
   
@@ -281,6 +251,28 @@ module RedCloth::Formatters::HTML
     opts[:text] + "\n"
   end
   
+private
+  
+  # escapement for regular HTML (not in PRE tag)
+  def escape(text)
+    html_esc(text)
+  end
+
+  # escapement for HTML in a PRE tag
+  def escape_pre(text)
+    html_esc(text, :html_escape_preformatted)
+  end
+  
+  # escaping for HTML attributes
+  def escape_attribute(text)
+    html_esc(text, :html_escape_attributes)
+  end
+  
+  def after_transform(text)
+    text.chomp!
+  end
+  
+  
   def before_transform(text)
     clean_html(text) if sanitize_html
   end