steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Put farkup words in private

db4
Slava Pestov 2008-04-14 03:54:51 -05:00
parent 421085c516
commit e31f03db4a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/farkup/farkup.factor
View File

@ -6,6 +6,8 @@ io.streams.string html peg.parsers html.elements sequences.deep
unicode.categories ; unicode.categories ;
IN: farkup IN: farkup
<PRIVATE
: delimiters ( -- string ) : delimiters ( -- string )
"*_^~%[-=|\\\n" ; inline "*_^~%[-=|\\\n" ; inline
@ -144,6 +146,8 @@ MEMO: paragraph ( -- parser )
[ "<p>" swap "</p>" 3array ] unless [ "<p>" swap "</p>" 3array ] unless
] action ; ] action ;
PRIVATE>
PEG: parse-farkup ( -- parser ) PEG: parse-farkup ( -- parser )
[ [
list , table , h1 , h2 , h3 , h4 , code , paragraph , 2nl , nl , list , table , h1 , h2 , h3 , h4 , code , paragraph , 2nl , nl ,