alias tokentest {
var %char = 25, %endchar = 40, %iterations = 100000, %items = ••• ––– ˜˜˜ ™™™ œœœ
ECHO -agtc info * Test of %iterations $!istok-iterations on chars $!chr( $+ %char $+ ) to $!chr( $+ %endchar $+ )
; loop chars
while (%char <= %endchar) {
; build string of %items
var %nr = 1, %string
while $gettok(%items,%nr,32) {
var %string = $addtok(%string,$v1,%char)
inc %nr
}
; bench: iterative istok on string of %items
var %a = 1, %start = $ticks
while (%a <= %iterations) {
.ECHO -q $istok(%string,˜˜˜,%char)
inc %a
}
ECHO -ag $!chr( $+ %char $+ ): $calc($ticks - %start) ticks
inc %char
}
ECHO -agtc info * done.
}