BBRedCloth 0.8.8 → 0.9.0.alpha1

data/ext/redcloth_scan/redcloth_attributes.rl

@@ -1,33 +0,0 @@
-/*
- * redcloth_attributes.rl
- *
- * Copyright (C) 2008 Jason Garber
- */
-%%{
-
-  machine redcloth_attributes;
-  
-  C2_CLAS = ( "(" ( [^)#]+ >A %{ STORE("class_buf"); } )? ("#" [^)]+ >A %{STORE("id_buf");} )? ")" ) ;
-  C2_LNGE = ( "[" [^\]]+ >A %{ STORE("lang_buf"); } "]" ) ;
-  C2_STYL = ( "{" [^}]+ >A %{ STORE("style_buf"); } "}" ) ;
-  C2 = ( C2_CLAS | C2_STYL | C2_LNGE )+ ;
-
-  mtext_with_attributes = ( C2 mtext >A %T ) >X ;
-
-  inline := |*
-
-    mtext_with_attributes { SET_ATTRIBUTES(); } ;
-
-  *|;
-
-  link_text_with_attributes = C2 "."* " "* ( mtext+ ) >A %{ STORE("name"); } ;
-  link_text_without_attributes = ( mtext+ ) >B %{ STORE_B("name_without_attributes"); } ;
-
-  link_says := |*
-
-    link_text_with_attributes { SET_ATTRIBUTES(); } ;
-    link_text_without_attributes { SET_ATTRIBUTE("name_without_attributes", "name"); } ;
-
-  *|;
-
-}%%;

data/ext/redcloth_scan/redcloth_bbcode.c.rl

@@ -1,60 +0,0 @@
-/*
- * redcloth_bbcode.c.rl
- *
- * Copyright (C) 2009 Ryan Alyea
- */
-#include <ruby.h>
-#include "redcloth.h"
-
-%%{
-  
-  machine redcloth_bbcode;
-  include redcloth_common "redcloth_common.c.rl";
-  include redcloth_bbcode "redcloth_bbcode.rl";
-  
-}%%
-
-%% write data nofinal;
-
-VALUE
-redcloth_bbcode(self, p, pe, refs)
-  VALUE self;
-  char *p, *pe;
-  VALUE refs;
-{
-  int cs, act, nest;
-  char *ts = NULL, *te = NULL, *reg = NULL, *bck = NULL, *eof = NULL;
-  char *orig_p = p, *orig_pe = pe;
-  VALUE block = STR_NEW2("");
-  VALUE regs = Qnil; CLEAR_REGS()
-  unsigned int opts = 0;
-  VALUE buf = Qnil;
-  VALUE hash = Qnil;
-  
-  VALUE html = STR_NEW2("");
-  VALUE failed_start = STR_NEW2("");
-  char *failed_start_point_p = NULL, *failed_start_point_ts = NULL, *failed_start_point_te = NULL;
-  int stack[CALL_STACK_SIZE],top,nested_quote = 0, nested_spoiler = 0, store_cite = 1, store_title = 1;
-  
-  %% write init;
-
-  %% write exec;
-  
-  if (RSTRING_LEN(block) > 0)
-  {
-    rb_hash_aset(regs, ID2SYM(rb_intern("text")), block);
-    rb_str_append(html, rb_funcall(self, rb_intern("p"), 1, regs));
-    CLEAR(block); 
-    CLEAR_REGS()
-  }
-
-  return rb_funcall(html, rb_intern("strip"), 0);
-}
-
-VALUE
-redcloth_bbcode2(self, str, refs)
-  VALUE self, str, refs;
-{
-  StringValue(str);
-  return redcloth_bbcode(self, RSTRING_PTR(str), RSTRING_PTR(str) + RSTRING_LEN(str) + 1, refs);
-}

data/ext/redcloth_scan/redcloth_bbcode.rl

@@ -1,127 +0,0 @@
-/*
- * redcloth_bbcode.rl
- *
- * Copyright (C) 2009 Ryan Alyea
- */
-%%{
-
-  machine redcloth_bbcode;
-  include redcloth_bbcode_inline 'redcloth_bbcode_inline.rl';
-  
-  #bb_pre_tag_start = "[pre" [^\]]* "]" (space* "[code]")? ;
-  #bb_pre_tag_end = ("[/code]" space*)? "[/pre]" LF? ;
-  
-  bb_quote_title = " title"? "=" bbmtext %{ if(store_cite) STORE("cite"); } >A;
-  bb_quote_tag_start = LF? ("[quote" bb_quote_title? "]") ;
-  bb_quote_tag_end =  "[/quote]" LF? ;
-  
-  bb_spoiler_tag_title = " title"? "=" bbmtext %{ if(store_title) STORE("title"); } >A;
-  bb_spoiler_tag_start = ("[spoiler" bb_spoiler_tag_title? "]") ;
-  bb_spoiler_tag_end =  "[/spoiler]" LF? ;
-  
-  bbcode_tag = "[";
-  bbcode_tag_not_quote_end = bbcode_tag -- bb_quote_tag_end;
-  
-  blank_line = LF;
-  double_return = LF{2,} ;
-  
-  direct_uri = "http" "s"? "://" uchar+ absolute_path?;
-  automatic_url = direct_uri >X >A %{ STORE_URL("href"); } ;
-  
-  bb_pre_tag := |*
-    bb_pre_tag_end {
-      rb_hash_aset(regs, ID2SYM(rb_intern("text")), rb_funcall(self, rb_intern("escape_pre"), 1, rb_funcall(block,rb_intern("strip"),0)));
-      rb_str_append(html,rb_funcall(self, rb_intern("bb_block_pre"), 1, regs));
-      CLEAR(block);
-      CLEAR_REGS();
-      fgoto main;
-    };
-    default => cat;
-    EOF => { CLEAR(block); CLEAR_REGS(); rb_str_append(block,failed_start); failed_start = STR_NEW2(""); p = failed_start_point_p; ts = failed_start_point_ts; te = failed_start_point_te; fgoto done; };
-  *|;
-  
-  bb_quote_tag := |*
-    bb_quote_tag_start => { CAT(block); ++nested_quote; };
-    bb_quote_tag_end {
-      if (nested_quote-- == 0) {
-        //printf("\n\nQUOTE TAG: %s \n\n",RSTRING_PTR(rb_funcall(block,rb_intern("strip"),0)));
-        rb_hash_aset(regs, ID2SYM(rb_intern("text")), redcloth_bbcode2(self,rb_funcall(block,rb_intern("strip"),0),rb_hash_new()));
-        rb_str_append(html,rb_funcall(self, rb_intern("bbquote"), 1, regs));
-        nested_quote = 0;
-        store_cite = 1;
-        CLEAR(block);
-        CLEAR_REGS();
-        fgoto main;
-      }
-      else { CAT(block); }
-    };
-    default => cat;
-    EOF => { CLEAR(block); CLEAR_REGS(); rb_str_append(block,failed_start); failed_start = STR_NEW2(""); p = failed_start_point_p; ts = failed_start_point_ts; te = failed_start_point_te; fgoto done; };
-  *|;
-  
-  bb_spoiler_tag := |*
-    bb_spoiler_tag_start => { CAT(block); ++nested_spoiler; };
-    bb_spoiler_tag_end {
-      if (nested_spoiler-- == 0) {
-        rb_hash_aset(regs, ID2SYM(rb_intern("text")), redcloth_bbcode2(self,rb_funcall(block,rb_intern("strip"),0),rb_hash_new()));
-        rb_str_append(html,rb_funcall(self, rb_intern("bb_block_spoiler"), 1, regs));
-        nested_spoiler = 0;
-        store_title = 1;
-        CLEAR(block);
-        CLEAR_REGS();
-        fgoto main;
-      }
-      else { CAT(block); }
-    };
-    default => cat;
-    EOF => { CLEAR(block); CLEAR_REGS(); rb_str_append(block,failed_start); failed_start = STR_NEW2(""); p = failed_start_point_p; ts = failed_start_point_ts; te = failed_start_point_te; fgoto done; };
-  *|;
-  
-  done := |*
-    EOF;
-  *|;
-  
-  block := |*
-    EOF { 
-      rb_hash_aset(regs, ID2SYM(rb_intern("text")), rb_funcall(block,rb_intern("strip"),0));
-      rb_str_append(html, rb_funcall(self, rb_intern("p"), 1, regs));
-      CLEAR(block); 
-      CLEAR_REGS()
-      fgoto main;
-    };
-    bb_quote_tag_start {
-      rb_hash_aset(regs, ID2SYM(rb_intern("text")), rb_funcall(block,rb_intern("strip"),0));
-      rb_str_append(html, rb_funcall(self, rb_intern("p"), 1, regs));
-      CLEAR(block); 
-      CLEAR_REGS()
-      failed_start_point_p = p; failed_start_point_ts = ts; failed_start_point_te = te;
-      fgoto bb_quote_tag;
-    };
-    automatic_url { UNLESS_DISABLED_INLINE(block,link,PASS(block, "name", "link");) };
-    bbcode_tag => {
-      fhold;
-      fcall bbcode_inline;
-    };
-    double_return {
-      rb_hash_aset(regs, ID2SYM(rb_intern("text")), rb_funcall(block,rb_intern("strip"),0));
-      rb_str_append(html, rb_funcall(self, rb_intern("p"), 1, regs));
-      CLEAR(block); 
-      CLEAR_REGS()
-      fgoto main; 
-    };
-    default => esc;
-  *|;
-  
-  main := |*
-    #bbcode_tag => {
-    #  fhold;
-    #  fcall bbcode_inline;
-    #};
-    bb_pre_tag_start => { rb_str_append(failed_start,STR_NEW(ts,te-ts)); failed_start_point_p = p; failed_start_point_ts = ts; failed_start_point_te = te; fgoto bb_pre_tag; };
-    bb_quote_tag_start => { rb_str_append(failed_start,STR_NEW(ts,te-ts)); failed_start_point_p = p; failed_start_point_ts = ts; failed_start_point_te = te; store_cite = 0; fgoto bb_quote_tag; };
-    bb_spoiler_tag_start => { rb_str_append(failed_start,STR_NEW(ts,te-ts)); failed_start_point_p = p; failed_start_point_ts = ts; failed_start_point_te = te; store_title = 0; fgoto bb_spoiler_tag; };
-    blank_line => cat;
-    default => { fhold; fgoto block; };
-  *|;
-
-}%%;

data/ext/redcloth_scan/redcloth_bbcode_inline.c.rl

@@ -1,72 +0,0 @@
-/*
- * redcloth_bbcode_inline.c.rl
- *
- * Copyright (C) 2009 Ryan Alyea
- */
-#include <ruby.h>
-#include "redcloth.h"
-
-%%{
-  
-  machine redcloth_bbcode_inline;
-  include redcloth_common "redcloth_common.c.rl";
-  include redcloth_bbcode_inline "redcloth_bbcode_inline.rl";
-  
-  bbcode_tag = "[";
-  
-  dim_digit = [0-9.]+ ;
-  prime = ("'" | '"')?;
-  dim_noactions = dim_digit prime (("x" | " x ") dim_digit prime) %T (("x" | " x ") dim_digit prime)? ;
-  
-  other_phrase = phrase -- dim_noactions;
-  
-  main := |*
-    bbcode_tag => {
-      fhold;
-      fcall bbcode_inline;
-    };
-    other_phrase => esc;
-    PUNCT => esc;
-    space => esc;
-    
-    EOF;
-  *|;
-  
-}%%
-
-%% write data nofinal;
-
-VALUE
-redcloth_bbcode_inline(self, p, pe, refs)
-  VALUE self;
-  char *p, *pe;
-  VALUE refs;
-{
-  int cs, act, nest;
-  char *ts = NULL, *te = NULL, *reg = NULL, *bck = NULL, *eof = NULL;
-  char *orig_p = p, *orig_pe = pe;
-  VALUE block = STR_NEW2("");
-  VALUE regs = Qnil; CLEAR_REGS()
-  unsigned int opts = 0;
-  VALUE buf = Qnil;
-  VALUE hash = Qnil;
-
-  VALUE html = STR_NEW2("");
-  VALUE failed_start = STR_NEW2("");
-  char *failed_start_point_p = NULL, *failed_start_point_ts = NULL, *failed_start_point_te = NULL;
-  int stack[CALL_STACK_SIZE],top,nested_quote = 0, nested_spoiler = 0, store_cite = 1, store_title = 1;
-
-  %% write init;
-
-  %% write exec;
-
-  return block;
-}
-
-VALUE
-redcloth_bbcode_inline2(self, str, refs)
-  VALUE self, str, refs;
-{
-  StringValue(str);
-  return redcloth_bbcode_inline(self, RSTRING_PTR(str), RSTRING_PTR(str) + RSTRING_LEN(str) + 1, refs);
-}

data/ext/redcloth_scan/redcloth_bbcode_inline.rl

@@ -1,85 +0,0 @@
-/*
- * redcloth_bbcode_inline.rl
- *
- * Copyright (C) 2009 Ryan Alyea
- */
-%%{
-
-  machine redcloth_bbcode_inline;
-  
-  bbchars = (default - space - "]" - "[")+ ;
-  bbmtext = ( bbchars (mspace bbchars)* ) ;
-  mtext_spaced = ( mspace* chars (mspace chars)* mspace* ) ;
-  bb_uri = (uri -- '[' -- ']') ;
-  
-  bb_b   = "[b]" >X mtext_spaced >A %T :>> "[/b]" ;
-  bb_i   = "[i]" >X mtext_spaced >A %T :>> "[/i]" ;
-  bb_u   = "[u]" >X mtext_spaced >A %T :>> "[/u]" ;
-  bb_s   = "[s]" >X mtext_spaced >A %T :>> "[/s]" ;
-  bb_del = "[del]" >X mtext_spaced >A %T :>> "[/del]" ;
-  bb_ins = "[ins]" >X mtext_spaced >A %T :>> "[/ins]" ;
-  bb_sub = "[sub]" >X mtext_spaced >A %T :>> "[/sub]" ;
-  bb_sup = "[sup]" >X mtext_spaced >A %T :>> "[/sup]" ;
-  bb_notextile = "[notextile]" >X mtext_spaced >A %T :>> "[/notextile]" ;
-  bb_innercolor = ("#"[0-9a-fA-F]{3}|"#"[0-9a-fA-F]{6}|"aqua"|"black"|"blue"|"fuchsia"|"gray"|"green"|"lime"|"maroon"|"navy"|"olive"|"purple"|"red"|"silver"|"teal"|"white"|"yellow"|"orange"|"cyan"|"magenta"|"grey") %{ STORE("color"); };
-  bb_color = ("[color=" >X bb_innercolor >A "]" mtext_spaced >A %T :>> "[/color]") ;
-  bb_innersize = space* ( (digit? "."? digit{1,2} ("em"|"pt"|"px"|"%")? )|("xx-small"|"x-small"|"small"|"medium"|"large"|"x-large"|"xx-large"|"smaller"|"larger")) %{ STORE("size"); } space* ;
-  bb_size = ("[size=" >X bb_innersize >A "]" mtext_spaced >A %T :>> "[/size]")  ;
-  bb_inneralign = space* ("left"|"center"|"right") %{ STORE("bbalign"); } space* ;
-  bb_align = ("[align=" >X bb_inneralign >A "]" mtext_spaced >A %T :>> "[/align]")  ;
-  bb_acronym = ("[acronym=" >X bbmtext %{ STORE("title"); } >A "]" mtext_spaced >A %T :>> "[/acronym]") ;
-  
-  bb_link = "[url]" >X bb_uri %{ STORE("href"); } >A :>> "[/url]" ;
-  bb_link2 = "[url=">X bb_uri %{ STORE("href"); } >A "]" mtext_spaced %{ STORE("name"); } >A :>> "[/url]" ;
-  
-  bb_img = "[img]" >X bb_uri %{ STORE("src"); } >A :>> "[/img]" ;
-  bb_img2 = "[img=">X bb_uri %{ STORE("src"); } >A "]" mtext_spaced{0,1} %{ STORE("title"); } >A :>> "[/img]" ;
-  
-  bb_pre_tag_start = "[pre" [^\]]* "]" (space* "[code]")? ;
-  bb_pre_tag_end = ("[/code]" space*)? "[/pre]" LF? ;
-  
-  bb_spoiler_title = " title"? "=" bbmtext %{ STORE("title"); } >A;
-  bb_spoiler = "[spoiler" >X bb_spoiler_title? "]"  mtext >A %T :>> "[/spoiler]" ;
-  
-  nl = "\n";
-  
-  action bb_cat2html { CAT(html); }
-  action bb_failed4html { rb_str_append(block,failed_start); rb_str_append(block,rb_funcall(self, rb_intern("escape"), 1, html)); fgoto bbcode_inline; }
-  
-  bb_inline_pre_tag := |*
-    bb_pre_tag_end {
-      rb_hash_aset(regs, ID2SYM(rb_intern("text")), rb_funcall(self, rb_intern("escape_pre"), 1, html));
-      rb_str_append(block,rb_funcall(self, rb_intern("bb_pre"), 1, regs));
-      BBDONE();
-      fgoto bbcode_inline;
-    };
-    default => bb_cat2html;
-    EOF => bb_failed4html;
-  *|;
-  
-  bbcode_inline := |*
-    bb_b   { UNLESS_DISABLED_INLINE(block,strong,PASS(block, "text", "strong");) };
-    bb_i   { UNLESS_DISABLED_INLINE(block,em,PASS(block, "text", "em");) };
-    bb_u   { UNLESS_DISABLED_INLINE(block,ins,PASS(block, "text", "ins");) };
-    bb_s   { UNLESS_DISABLED_INLINE(block,s,PASS(block, "text", "del");) };
-    bb_del { UNLESS_DISABLED_INLINE(block,del,PASS(block, "text", "del");) };
-    bb_ins { UNLESS_DISABLED_INLINE(block,ins,PASS(block, "text", "ins");) };
-    bb_sub { UNLESS_DISABLED_INLINE(block,sub,PASS(block, "text", "sub");) };
-    bb_sup { UNLESS_DISABLED_INLINE(block,sup,PASS(block, "text", "sup");) };
-    bb_notextile => ignore;
-    bb_color   { UNLESS_DISABLED_INLINE(block,color,PASS(block, "text", "color");) };
-    bb_size    { UNLESS_DISABLED_INLINE(block,size,PASS(block, "text", "bbsize");) };
-    bb_align   { UNLESS_DISABLED_INLINE(block,align,PASS(block, "text", "bbalign");) };
-    bb_acronym { UNLESS_DISABLED_INLINE(block,acronym,PASS(block, "text", "acronym");) };
-    bb_link    { UNLESS_DISABLED_INLINE(block,link,PASS(block, "name", "link");) };
-    bb_link2   { UNLESS_DISABLED_INLINE(block,link,PASS(block, "name", "link");) };
-    bb_img     { UNLESS_DISABLED_INLINE(block,image,PASS(block, "name", "image");); };
-    bb_img2    { UNLESS_DISABLED_INLINE(block,image,PASS(block, "name", "image");); };
-    bb_spoiler { PASS(block, "name", "bb_spoiler"); CLEAR_REGS();};
-    
-    bb_pre_tag_start     { ASET("type", "notextile"); rb_str_append(failed_start,STR_NEW(ts,te-ts)); fgoto bb_inline_pre_tag; };
-    nl => { fhold; fret; };
-    default => { CAT(block); fret;};
-  *|;
-
-}%%;

data/ext/redcloth_scan/redcloth_common.c.rl

@@ -1,19 +0,0 @@
-%%{
-  
-  machine redcloth_common;
-  include redcloth_common "redcloth_common.rl";
-  
-  action esc { rb_str_cat_escaped(self, block, ts, te); }
-  action esc_pre { rb_str_cat_escaped_for_preformatted(self, block, ts, te); }
-  action ignore { rb_str_append(block, rb_funcall(self, rb_intern("ignore"), 1, regs)); }
-  action esc_test {rb_str_cat_escaped_test(self, block, ts, te);}
-  
-  # conditionals
-  action starts_line {
-    p == orig_p || *(p-1) == '\r' || *(p-1) == '\n' || *(p-1) == '\f'
-  }
-  action starts_phrase {
-    p == orig_p || *(p-1) == '\r' || *(p-1) == '\n' || *(p-1) == '\f' || *(p-1) == ' '
-  }
-  
-}%%;

data/ext/redcloth_scan/redcloth_common.java.rl

@@ -1,18 +0,0 @@
-%%{
-
-  machine redcloth_common;
-  include redcloth_common "redcloth_common.rl";
-
-  action esc { strCatEscaped(self, block, data, ts, te); }
-  action esc_pre { strCatEscapedForPreformatted(self, block, data, ts, te); }
-  action ignore { ((RubyString)block).append(self.callMethod(runtime.getCurrentContext(), "ignore", regs)); }
-  
-  # conditionals
-  action starts_line {
-    p == orig_p || data[(p-1)] == '\r' || data[(p-1)] == '\n' || data[(p-1)] == '\f'
-  }
-  action starts_phrase {
-    p == orig_p || data[(p-1)] == '\r' || data[(p-1)] == '\n' || data[(p-1)] == '\f' || data[(p-1)] == ' '
-  }
-
-}%%;

data/ext/redcloth_scan/redcloth_common.rl

@@ -1,111 +0,0 @@
-%%{
-
-  machine redcloth_common;
-
-  action A { reg = p; }
-  action B { bck = p; }
-  action T { STORE("text"); }
-  action X { CLEAR_REGS(); RESET_REG(); }
-  action cat { CAT(block); }
-
-  # simple
-  LF = ( '\n' ) ;
-  default = ^0 ;
-  EOF = 0 ;
-
-  # textile modifiers
-  A_LEFT = "<" %{ UNLESS_DISABLED_ATTRIBUTE(align,ASET("align", "left");) } ;
-  A_RIGHT = ">" %{ UNLESS_DISABLED_ATTRIBUTE(align,ASET("align", "right");) } ;
-  A_JUSTIFIED = "<>" %{ UNLESS_DISABLED_ATTRIBUTE(align,ASET("align", "justify");) } ;
-  A_CENTER = "=" %{ UNLESS_DISABLED_ATTRIBUTE(align,ASET("align", "center");) } ;
-  A_PADLEFT = "(" >A %{ AINC("padding-left"); } ;
-  A_PADRIGHT = ")" >A %{ AINC("padding-right"); } ;
-  A_HLGN = ( A_LEFT | A_RIGHT | A_JUSTIFIED | A_CENTER | A_PADLEFT | A_PADRIGHT ) ;
-  A_LIMIT = ( A_LEFT | A_CENTER | A_RIGHT ) ;
-  A_VLGN = ( "-" %{ ASET("vertical-align", "middle"); } | "^" %{ ASET("vertical-align", "top"); } | "~" %{ ASET("vertical-align", "bottom"); } ) ;
-  C_CLAS = ( "(" ( [^)#]+ >A %{ STORE("class"); } )? ("#" [^)]+ >A %{STORE("id");} )? ")" ) ;
-  C_LNGE = ( "[" [^\]]+ >A %{ STORE("lang"); } "]" ) ;
-  C_STYL = ( "{" [^}]+ >A %{ STORE("style"); } "}" ) ;
-  S_CSPN = ( "\\" [0-9]+ >A %{ STORE("colspan"); } ) ;
-  S_RSPN = ( "/" [0-9]+ >A %{ STORE("rowspan"); } ) ;
-  D_HEADER = "_" %{ ASET("th", "true"); } ;
-  A = ( ( A_HLGN | A_VLGN )* ) ;
-  A2 = ( A_LIMIT? ) ;
-  S = ( S_CSPN | S_RSPN )* ;
-  C = ( C_CLAS | C_STYL | C_LNGE )* ;
-  D = ( D_HEADER ) ;
-  N_CONT = "_" %{ list_continue = 1; };
-  N_NUM = digit+ >A %{ STORE("start"); };
-  N = ( N_CONT | N_NUM )? ;
-  PUNCT = ( "!" | '"' | "#" | "$" | "%" | "&" | "'" | "," | "-" | "." | "/" | ":" | ";" | "=" | "?" | "\\" | "^" | "`" | "|" | "~" | "[" | "]" | "(" | ")" | "<" ) ;
-  dotspace = ("." " "*) ;
-  indent =  [ \t]* ;
-  
-  # very un-DRY; Adrian says an action-stripping macro will come in a future Ragel version
-  A_LEFT_noactions = "<" ;
-  A_RIGHT_noactions = ">" ;
-  A_JUSTIFIED_noactions = "<>" ;
-  A_CENTER_noactions = "=" ;
-  A_PADLEFT_noactions = "(" ;
-  A_PADRIGHT_noactions = ")"  ;
-  A_HLGN_noactions = ( A_LEFT_noactions | A_RIGHT_noactions | A_JUSTIFIED_noactions | A_CENTER_noactions | A_PADLEFT_noactions | A_PADRIGHT_noactions ) ;
-  A_VLGN_noactions = ( "-" | "^" | "~" ) ;
-  C_CLAS_noactions = ( "(" ( [^)#]+ )? ("#" [^)]+ )? ")" ) ;
-  C_LNGE_noactions = ( "[" [^\]]+ "]" ) ;
-  C_STYL_noactions = ( "{" [^}]+ "}" ) ;
-  A_noactions = ( ( A_HLGN_noactions | A_VLGN_noactions )* ) ;
-  C_noactions = ( C_CLAS_noactions | C_STYL_noactions | C_LNGE_noactions )* ;
-  C_noquotes_noactions = C_noactions -- '"' ;
-
-  # text blocks
-  trailing = PUNCT - ("'" | '"') ;
-  chars = (default - space)+ ;
-  phrase = chars -- trailing ;
-
-  # html tags (from Hpricot)
-  NameChar = [\-A-Za-z0-9._:?] ;
-  Name = [A-Za-z_:] NameChar* ;
-  NameAttr = NameChar+ ;
-  Q1Attr = [^']* ;
-  Q2Attr = [^"]* ;
-  UnqAttr = ( space | [^ \t\r\n<>"'] [^ \t\r\n<>]* ) ;
-  Nmtoken = NameChar+ ;
-  Attr =  NameAttr space* "=" space* ('"' Q2Attr '"' | "'" Q1Attr "'" | UnqAttr space+ ) space* ;
-  AttrEnd = ( NameAttr space* "=" space* UnqAttr? | Nmtoken ) ;
-  AttrSet = ( Attr | Nmtoken space+ ) ;
-  
-  script_tag_start = ( "<script" [^>]* ">" ) >X >A %T ;
-  script_tag_end = ( "</script>" >A %T LF? ) >X ;
-  
-
-  # URI tokens (lifted from Mongrel)
-  CTL = (cntrl | 127);
-  safe = ("$" | "-" | "_" | ".");
-  extra = ("!" | "*" | "'" | "(" | ")" | "," | "#");
-  reserved = (";" | "/" | "?" | ":" | "@" | "&" | "=" | "+");
-  unsafe = (CTL | " " | "\"" | "%" | "<" | ">");
-  national = any -- (alpha | digit | reserved | extra | safe | unsafe);
-  unreserved = (alpha | digit | safe | extra | national);
-  escape = ("%" xdigit xdigit);
-  uchar = (unreserved | escape);
-  pchar = (uchar | ":" | "@" | "&" | "=" | "+");
-  scheme = ( alpha | digit | "+" | "-" | "." )+ ;
-  absolute_uri = (scheme ":" (uchar | reserved )*);
-  safepath = (pchar* (alpha | digit | safe) pchar*) ;
-  path = (safepath ( "/" pchar* )*) ;
-  query = ( uchar | reserved )* ;
-  param = ( pchar | "/" )* ;
-  params = (param ( ";" param )*) ;
-  rel_path = (path (";" params)?) ("?" query)?;
-  absolute_path = ("/"+ rel_path?);
-  target = ("#" pchar*) ;
-  uri = (target | absolute_uri | absolute_path | rel_path) ;
-
-  # common
-  title = ( '(' default+ >A %{ STORE("title"); } :> ')' ) ;
-  word = ( alnum | safe | " " ) ;
-  mspace = ( ( " " | "\t" | LF )+ ) -- LF{2} ;
-  mtext = ( chars (mspace chars)* ) ;
-  
-
-}%%;