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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-04-15 15:17:40 -05:00
parent db6938915b 8bbc3d577e
commit c304660fa9
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/help/html/html.factor
View File

@ -4,11 +4,12 @@ USING: io.encodings.utf8 io.encodings.ascii io.encodings.binary
io.files io.files.temp io.directories html.streams help kernel io.files io.files.temp io.directories html.streams help kernel
assocs sequences make words accessors arrays help.topics vocabs assocs sequences make words accessors arrays help.topics vocabs
tools.vocabs help.vocabs namespaces prettyprint io tools.vocabs help.vocabs namespaces prettyprint io
vocabs.loader serialize fry memoize unicode.case math.order vocabs.loader serialize fry memoize ascii unicode.case math.order
sorting debugger html xml.syntax xml.writer ; sorting debugger html xml.syntax xml.writer math.parser ;
IN: help.html IN: help.html
: escape-char ( ch -- ) : escape-char ( ch -- )
dup ascii? [
dup H{ dup H{
{ CHAR: " "__quo__" } { CHAR: " "__quo__" }
{ CHAR: * "__star__" } { CHAR: * "__star__" }
@ -21,7 +22,8 @@ IN: help.html
{ CHAR: / "__slash__" } { CHAR: / "__slash__" }
{ CHAR: , "__comma__" } { CHAR: , "__comma__" }
{ CHAR: @ "__at__" } { CHAR: @ "__at__" }
} at [ % ] [ , ] ?if ; } at [ % ] [ , ] ?if
] [ number>string "__" "__" surround % ] if ;
: escape-filename ( string -- filename ) : escape-filename ( string -- filename )
[ [ escape-char ] each ] "" make ; [ [ escape-char ] each ] "" make ;