9 lines
171 B
Tcl
9 lines
171 B
Tcl
|
package require critcl
|
||
|
|
critcl::code {
|
||
|
|
#include <math.h>
|
||
|
|
}
|
||
|
|
critcl::cproc tcl::mathfunc::ilogb {double value} int {
|
||
|
|
return ilogb(value);
|
||
|
|
}
|
||
|
|
package provide ilogb 1.0
|