factor/extra/crypto/timing/timing.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math threads system calendar ;
IN: crypto.timing

: with-timing ( quot n -- )
    #! force the quotation to execute in, at minimum, n milliseconds
    millis 2slip millis - + milliseconds sleep ; inline
clean up extra crypto a bit 2008-12-07 00:01:17 -05:00			`! Copyright (C) 2008 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part 2008-11-19 02:50:05 -05:00			`USING: kernel math threads system calendar ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: crypto.timing`

cleanup in aisle crypto 2008-04-03 14:57:33 -04:00			`: with-timing ( quot n -- )`
Initial import 2007-09-20 18:09:08 -04:00			`#! force the quotation to execute in, at minimum, n milliseconds`
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part 2008-11-19 02:50:05 -05:00			`millis 2slip millis - + milliseconds sleep ; inline`