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

added crypto/timing.factor

erg 2006-08-10 02:54:49 +00:00
parent b19a6672bf
commit 1b44cf1c25
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
contrib/crypto/load.factor
View File

@ -2,6 +2,7 @@ REQUIRES: math ;
PROVIDE: crypto { PROVIDE: crypto {
"common.factor" "common.factor"
"timing.factor"
"base64.factor" "base64.factor"
"barrett.factor" "barrett.factor"
"montgomery.factor" "montgomery.factor"

6
contrib/crypto/timing.factor Normal file
View File

@ -0,0 +1,6 @@
IN: timing
USING: kernel threads ;
: with-timed ( quot n -- )
#! force the quotation to execute in, at minimum, n milliseconds
millis rot call millis swap - - sleep ;