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

Optimize the way random IDs are generated for the callback responder 

It's about 10x more efficient this way
release
Doug Coleman 2007-10-31 19:04:13 -05:00
parent 0aeb676866
commit 688ccb8a14
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/http/server/responders/callback/callback.factor
View File

@ -2,8 +2,7 @@
! Copyright (C) 2006 Slava Pestov. ! Copyright (C) 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: html http http.server.responders io kernel math namespaces USING: html http http.server.responders io kernel math namespaces
continuations random system sequences assocs ; prettyprint continuations random system sequences assocs ;
IN: http.server.responders.callback IN: http.server.responders.callback
#! Name of the variable holding the continuation used to exit #! Name of the variable holding the continuation used to exit
@ -58,7 +57,7 @@ TUPLE: request stream exitcc method url raw-query query header response ;
: get-random-id ( -- id ) : get-random-id ( -- id )
#! Generate a random id to use for continuation URL's #! Generate a random id to use for continuation URL's
"ID" 32 [ drop 9 random CHAR: 0 + ] map append ; 4 big-random unparse ;
: callback-table ( -- <hashtable> ) : callback-table ( -- <hashtable> )
#! Return the global table of continuations #! Return the global table of continuations