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

help.html: change back to the old naming scheme because we have too many links to existing doc articles all over the net

db4
Slava Pestov 2011-12-04 13:46:13 -08:00
parent e75a4c13b4
commit 72fdb8c5fb
1 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,16 +1,38 @@
! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: checksums checksums.sha io.encodings.utf8
io.encodings.binary io.encodings.string io.files io.files.temp
io.directories html.streams help help.home kernel assocs
sequences make words accessors arrays help.topics vocabs
vocabs.hierarchy help.vocabs namespaces io vocabs.loader
serialize fry memoize unicode.case math.order sorting debugger
html xml.syntax xml.writer math.parser sets hashtables ;
USING: io.encodings.utf8 io.encodings.binary io.files
io.files.temp io.directories html.streams help help.home kernel
assocs sequences make words accessors arrays help.topics vocabs
vocabs.hierarchy help.vocabs namespaces prettyprint io
vocabs.loader serialize fry memoize unicode.case math.order
sorting debugger html xml.syntax xml.writer math.parser
sets hashtables ;
FROM: io.encodings.ascii => ascii ;
FROM: ascii => ascii? ;
IN: help.html
: escape-char ( ch -- )
dup ascii? [
dup H{
{ CHAR: " "__quo__" }
{ CHAR: * "__star__" }
{ CHAR: : "__colon__" }
{ CHAR: < "__lt__" }
{ CHAR: > "__gt__" }
{ CHAR: ? "__que__" }
{ CHAR: \\ "__back__" }
{ CHAR: | "__pipe__" }
{ CHAR: / "__slash__" }
{ CHAR: , "__comma__" }
{ CHAR: @ "__at__" }
{ CHAR: # "__hash__" }
{ CHAR: % "__percent__" }
} at [ % ] [ , ] ?if
] [ number>string "__" "__" surround % ] if ;
: escape-filename ( string -- filename )
[ [ escape-char ] each ] "" make ;
GENERIC: topic>filename* ( topic -- name prefix )
M: word topic>filename*
@ -29,9 +51,10 @@ M: f topic>filename* drop \ f topic>filename* ;
topic>filename* dup [
[
% "-" %
dup array? [ "," join ] when
utf8 encode sha1 checksum-bytes hex-string
% ".html" %
dup array?
[ [ escape-filename ] map "," join ]
[ escape-filename ]
if % ".html" %
] "" make
] [ 2drop f ] if ;