artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: string->number: Support upper case hex.

Browse source 
* module/mes/scm.mes (string->number): Support upper case hex.
This commit is contained in:
Jan Nieuwenhuizen 2018-05-21 06:51:21 +02:00
parent cfda148e1e
commit 7f712e4555
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
module/mes/scm.mes
View file

@ -246,6 +246,11 @@
(<= i (char->integer #\f))) (<= i (char->integer #\f)))
(let ((d (char->integer #\a))) (let ((d (char->integer #\a)))
(loop (cdr lst) (+ (* n radix) (- i (- d 10)))))) (loop (cdr lst) (+ (* n radix) (- i (- d 10))))))
((and (= radix 16)
(>= i (char->integer #\A))
(<= i (char->integer #\F)))
(let ((d (char->integer #\A)))
(loop (cdr lst) (+ (* n radix) (- i (- d 10))))))
((= i (char->integer #\.)) ; minimal FLOAT support ((= i (char->integer #\.)) ; minimal FLOAT support
(let ((fraction (cdr lst))) (let ((fraction (cdr lst)))
(if (null? fraction) n (if (null? fraction) n