Lines Matching defs:to
13 ;; contributors may be used to endorse or promote products derived
18 ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22 ;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
88 (define (generate-powers from to mantissa-size)
91 (nb-elements (+ (- from) to 1))
97 ;; want to create the matissa of 1/ten^i. However the mantissa must be
98 ;; normalized (start with a 1). -> we have to shift the number.
124 (when (<= i to)
135 (define (print-c powers from to struct-type
184 "// This file is intended to be included inside another .h or .cc files\n"
186 "// GRISU_CACHE_STRUCT: should expand to the name of a struct that will\n"
200 "// exponent offset. It is equal to -cache[0].decimal_exponent.\n"
201 "// GRISU_UINT64_C: used to construct 64-bit values in a platform\n"
202 "// independent way. In order to encode 0x123456789ABCDEF0 the macro\n"
233 (define *to* #f)
251 (("--to" ?to (help "go up to 10^to"))
252 (set! *to* (string->number to)))
260 (when (not *to*)
262 "Missing to"
273 (let ((dividers (generate-powers *from* *to* *mantissa-size*))
278 (with-output-to-port p
280 (print-c dividers *from* *to*
