Permalink
Fetching contributors…
Cannot retrieve contributors at this time
198 lines (174 sloc) 9.42 KB
/*
* redcloth_scan.rl
*
* Copyright (C) 2009 Jason Garber
*/
%%{
machine redcloth_scan;
# blocks
notextile_tag = notextile (LF+ | EOF) ;
noparagraph_line_start = " "+ ;
notextile_block_start = ( "notextile" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " "+ ) %SET_ATTR ;
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 | "" ) " " ) %SET_ATTR ;
bc_start = ( "bc" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " " ) %SET_ATTR ;
bq_start = ( "bq" >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) ( ":" %A uri %{ STORE("cite"); } )? " "+ ) %SET_ATTR ;
non_ac_btype = ( "bq" | "bc" | "pre" | "notextile" | "table" );
btype = (alpha alnum*) -- (non_ac_btype | "fn" digit+);
block_start = ( btype >A %{ STORE("type"); } A C :> "." ( "." %extend | "" ) " "+ ) >B %{ STORE_B("fallback"); } %SET_ATTR ;
all_btypes = btype | non_ac_btype;
next_block_start = ( all_btypes A_noactions C_noactions :> "."+ " " ) >A @{ fexec(reg); } ;
double_return = LF [ \t]* LF LF* ;
block_end = ( double_return | EOF );
ftype = ( "fn" >A %{ STORE("type"); } digit+ >A %{ STORE("id"); } ) ;
footnote_start = ( ftype A C :> dotspace ) %SET_ATTR ;
ul = "*" %{NEST(); SET_LIST_TYPE("ul");};
ol = "#" %{NEST(); SET_LIST_TYPE("ol");};
ul_start = ( ul | ol )* ul A_HLGN_noactions* C_noactions :> " "+ ;
ol_start = ( ul | ol )* ol N A_HLGN_noactions* C_noactions :> " "+ ;
list_start = " "* A_HLGN* C ( ul_start | ol_start ) >B >{RESET_NEST();} @{ fexec(bck); } ;
dt_start = "-" . " "+ ;
dd_start = ":=" ;
long_dd = dd_start " "* LF %{ ADD_BLOCK(); ASET("type", "dd"); } any+ >A %{ TRANSFORM("text"); } :>> "=:" ;
dl_start = (dt_start mtext (LF dt_start mtext)* " "* dd_start) ;
blank_line = LF;
link_alias = ( "[" >{ ASET("type", "ignore"); } %A chars %T "]" %A uri %{ STORE_URL("href"); } ) ;
horizontal_rule = '*'{3,} | '-'{3,} | '_'{3,} ;
# image lookahead
IMG_A_LEFT = "<" %{ ASET("float", "left"); } ;
IMG_A_RIGHT = ">" %{ ASET("float", "right"); } ;
aligned_image = ( "["? "!" (IMG_A_LEFT | IMG_A_RIGHT) ) >A @{ fexec(reg); } ;
# html blocks
BlockTagName = Name - ("pre" | "notextile" | "a" | "applet" | "basefont" | "bdo" | "br" | "font" | "iframe" | "img" | "map" | "object" | "param" | "embed" | "q" | "script" | "span" | "sub" | "sup" | "abbr" | "acronym" | "cite" | "code" | "del" | "dfn" | "em" | "ins" | "kbd" | "samp" | "strong" | "var" | "b" | "big" | "i" | "s" | "small" | "strike" | "tt" | "u");
block_start_tag = "<" BlockTagName space+ AttrSet* (AttrEnd)? ">" | "<" BlockTagName ">";
block_empty_tag = "<" BlockTagName space+ AttrSet* (AttrEnd)? "/>" | "<" BlockTagName "/>" ;
block_end_tag = "</" BlockTagName space* ">" ;
html_start = indent >B %{STORE_B("indent_before_start");} block_start_tag >B %{STORE_B("start_tag");} indent >B %{STORE_B("indent_after_start");} ;
html_end = indent >B %{STORE_B("indent_before_end");} block_end_tag >B %{STORE_B("end_tag");} (indent LF?) >B %{STORE_B("indent_after_end");} ;
standalone_html = indent (block_start_tag | block_empty_tag | block_end_tag) indent (LF+ | EOF);
html_end_terminating_block = ( LF indent block_end_tag ) >A @{ fexec(reg); } ;
# tables
td_text = (default - LF)+ ;
btext = (td_text (LF td_text)* ( LF{2} )?) | [\t ]* ;
tddef = ( D? S A C :> dotspace ) %SET_ATTR ;
td = ( tddef? btext >A %T :> "|" >{PASS(table, "text", "td");} ) >X ;
trdef = ( A C :> dotspace ) %SET_ATTR ;
tr = ( trdef? "|" %{INLINE(table, "tr_open");} td+ ) >X %{INLINE(table, "tr_close");} ;
trows = ( tr (LF >X tr)* ) ;
tdef = ( "table" %X A C :> dotspace LF ) %SET_ATTR ;
table = ( tdef? trows >{CLEAR(table); INLINE(table, "table_open"); RESET_REG();} ) ;
# info
redcloth_version = ("RedCloth" >A ("::" | " " ) "VERSION"i ":"? " ")? %{STORE("prefix");} "RedCloth::VERSION" (LF* EOF | double_return) ;
pre_tag := |*
pre_tag_end { CAT(block); DONE(block); fgoto main; };
default => esc_pre;
*|;
pre_block := |*
EOF { ADD_BLOCKCODE(); fgoto main; };
double_return when extended { ADD_EXTENDED_BLOCKCODE(); };
double_return when not_extended { ADD_BLOCKCODE(); fgoto main; } ;
double_return next_block_start when extended { ADD_EXTENDED_BLOCKCODE(); END_EXTENDED(); fgoto main; };
double_return next_block_start when not_extended { ADD_BLOCKCODE(); fgoto main; };
default => esc_pre;
*|;
script_tag := |*
script_tag_end { CAT(block); ASET("type", "ignore"); ADD_BLOCK(); fgoto main; };
EOF { ASET("type", "ignore"); ADD_BLOCK(); fgoto main; };
default => cat;
*|;
noparagraph_line := |*
LF { ADD_BLOCK(); fgoto main; };
default => cat;
*|;
notextile_block := |*
EOF { ADD_BLOCK(); fgoto main; };
double_return when extended { CAT(block); ADD_EXTENDED_BLOCK(); CAT(html); };
double_return when not_extended { ADD_BLOCK(); CAT(html); fgoto main; } ;
double_return next_block_start when extended { CAT(block); ADD_EXTENDED_BLOCK(); END_EXTENDED(); fgoto main; };
double_return next_block_start when not_extended { ADD_BLOCK(); CAT(html); fgoto main; };
default => cat;
*|;
html := |*
html_end { ADD_BLOCK(); fgoto main; };
default => cat;
*|;
bc := |*
EOF { ADD_BLOCKCODE(); INLINE(html, "bc_close"); SET_PLAIN_BLOCK("p"); fgoto main; };
double_return when extended { ADD_EXTENDED_BLOCKCODE(); CAT(html); };
double_return when not_extended { ADD_BLOCKCODE(); INLINE(html, "bc_close"); SET_PLAIN_BLOCK("p"); fgoto main; };
double_return next_block_start when extended { ADD_EXTENDED_BLOCKCODE(); CAT(html); RSTRIP_BANG(html); INLINE(html, "bc_close"); SET_PLAIN_BLOCK("p"); END_EXTENDED(); fgoto main; };
double_return next_block_start when not_extended { ADD_BLOCKCODE(); INLINE(html, "bc_close"); SET_PLAIN_BLOCK("p"); fgoto main; };
default => esc_pre;
*|;
bq := |*
EOF { ADD_BLOCK(); INLINE(html, "bq_close"); fgoto main; };
double_return when extended { ADD_EXTENDED_BLOCK(); };
double_return when not_extended { ADD_BLOCK(); INLINE(html, "bq_close"); fgoto main; };
double_return next_block_start when extended { ADD_EXTENDED_BLOCK(); INLINE(html, "bq_close"); END_EXTENDED(); fgoto main; };
double_return next_block_start when not_extended { ADD_BLOCK(); INLINE(html, "bq_close"); fgoto main; };
html_end_terminating_block when extended { ADD_EXTENDED_BLOCK(); INLINE(html, "bq_close"); END_EXTENDED(); fgoto main; };
html_end_terminating_block when not_extended { ADD_BLOCK(); INLINE(html, "bq_close"); fgoto main; };
default => cat;
*|;
block := |*
EOF { ADD_BLOCK(); fgoto main; };
double_return when extended { ADD_EXTENDED_BLOCK(); };
double_return when not_extended { ADD_BLOCK(); fgoto main; };
double_return next_block_start when extended { ADD_EXTENDED_BLOCK(); END_EXTENDED(); fgoto main; };
double_return next_block_start when not_extended { ADD_BLOCK(); fgoto main; };
html_end_terminating_block when extended { ADD_EXTENDED_BLOCK(); END_EXTENDED(); fgoto main; };
html_end_terminating_block when not_extended { ADD_BLOCK(); fgoto main; };
LF list_start { ADD_BLOCK(); CLEAR_LIST(); LIST_LAYOUT(); fgoto list_item; };
default => cat;
*|;
footnote := |*
block_end { ADD_BLOCK(); fgoto main; };
default => cat;
*|;
ul_item = ( ul | ol )* ul A_HLGN* C :> " "+ ;
ol_item = ( ul | ol )* ol N_noactions A_HLGN* C :> " "+ ;
list_item := (" "* ( ul_item | ol_item )) @{ SET_ATTRIBUTES(); fgoto list_content; } ;
list_content := |*
LF list_start { ADD_BLOCK(); LIST_LAYOUT(); fgoto list_item; };
block_end { ADD_BLOCK(); RESET_NEST(); LIST_LAYOUT(); fgoto main; };
default => cat;
*|;
dl := |*
LF dt_start { ADD_BLOCK(); ASET("type", "dt"); };
dd_start { ADD_BLOCK(); ASET("type", "dd"); };
long_dd { INLINE(html, "dd"); CLEAR_REGS(); };
block_end { ADD_BLOCK(); INLINE(html, "dl_close"); fgoto main; };
default => cat;
*|;
main := |*
noparagraph_line_start { ASET("type", "ignored_line"); fgoto noparagraph_line; };
notextile_tag { INLINE(html, "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; };
pre_block_start { fgoto pre_block; };
standalone_html { ASET("type", "html"); CAT(block); ADD_BLOCK(); };
html_start { ASET("type", "html_block"); fgoto html; };
bc_start { INLINE(html, "bc_open"); ASET("type", "code"); SET_PLAIN_BLOCK("code"); fgoto bc; };
bq_start { INLINE(html, "bq_open"); ASET("type", "p"); fgoto bq; };
block_start { fgoto block; };
footnote_start { fgoto footnote; };
horizontal_rule { INLINE(html, "hr"); };
list_start { CLEAR_LIST(); LIST_LAYOUT(); fgoto list_item; };
dl_start { fexec(ts + 1); INLINE(html, "dl_open"); ASET("type", "dt"); fgoto dl; };
table { INLINE(table, "table_close"); DONE(table); fgoto block; };
link_alias { STORE_LINK_ALIAS(); DONE(block); };
aligned_image { RESET_TYPE(); fgoto block; };
redcloth_version { INLINE(html, "redcloth_version"); };
blank_line => cat;
default
{
CLEAR_REGS();
RESET_TYPE();
CAT(block);
fgoto block;
};
EOF;
*|;
}%%;