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

fix farkup

db4
Doug Coleman 2008-09-06 19:13:48 -05:00
parent ad890e8a31
commit e0f7e508aa
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/farkup/farkup.factor
View File

@ -102,7 +102,12 @@ list = ((list-item nl)+ list-item? | list-item)
code = '[' (!('{' | nl | '[').)+ '{' (!("}]").)+ "}]" code = '[' (!('{' | nl | '[').)+ '{' (!("}]").)+ "}]"
=> [[ [ second >string ] [ fourth >string ] bi code boa ]] => [[ [ second >string ] [ fourth >string ] bi code boa ]]
stand-alone = (code | heading | list | table | paragraph | nl)* simple-code
= "[{" (!("}]").)+ "}]"
=> [[ second f swap code boa ]]
stand-alone
= (code | simple-code | heading | list | table | paragraph | nl)*
;EBNF ;EBNF
@ -137,7 +142,7 @@ stand-alone = (code | heading | list | table | paragraph | nl)*
] [ ] [
escape-link escape-link
>r "<img src=\"" write write "\"" write r> >r "<img src=\"" write write "\"" write r>
dup empty? [ drop ] [ " alt=\"" write write "\"" write ] if [ " alt=\"" write write "\"" write ] unless-empty
"/>" write "/>" write
] if ; ] if ;