conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* removed old flonum->string Scheme code and supporting C code.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-10 10:35:45 +03:00
parent cccdd1122c
commit 7246be795d
4 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

30
bin/ikarus-flonums.c
View File

@ -125,8 +125,6 @@ ikrt_fx_sqrt(ikp x, ikpcb* pcb){
return r; return r;
} }
ikp ikp
ikrt_fx_atan(ikp x, ikpcb* pcb){ ikrt_fx_atan(ikp x, ikpcb* pcb){
ikp r = ik_alloc(pcb, flonum_size) + vector_tag; ikp r = ik_alloc(pcb, flonum_size) + vector_tag;
@ -144,34 +142,6 @@ ikrt_fx_log(ikp x, ikpcb* pcb){
} }
ikp
ikrt_flonum_to_bytevector(ikp x, ikp bv, ikpcb* pcb){
if(tagof(x) == vector_tag){
if(ref(x,-vector_tag) == flonum_tag){
char* buff = (char*) bv + off_bytevector_data;
int len = unfix(ref(bv, off_bytevector_data));
int n = snprintf(buff, len-2, "%.12G", flonum_data(x));
if(n >= 0){
int i=0;
while ((i<n) && (buff[i] != '.')){ i++; }
if(i == n){
buff[i] = '.';
buff[i+1] = '0';
buff[i+2] = 0;
n += 2;
} else {
buff[n] = 0;
}
ref(bv, off_bytevector_length) = fix(n);
return bv;
}
}
}
return false_object;
}
ikp ikp
ikrt_fixnum_to_flonum(ikp x, ikpcb* pcb){ ikrt_fixnum_to_flonum(ikp x, ikpcb* pcb){
ikp r = ik_alloc(pcb, flonum_size) + vector_tag; ikp r = ik_alloc(pcb, flonum_size) + vector_tag;

BIN
src/ikarus.boot
View File

Binary file not shown.

6
src/ikarus.numerics.ss
View File

@ -1295,12 +1295,6 @@
(only (ikarus flonums) flonum-parts) (only (ikarus flonums) flonum-parts)
(except (ikarus) flonum->string string->flonum )) (except (ikarus) flonum->string string->flonum ))
;(define (flonum->string x)
; (utf8-bytevector->string
; (or (foreign-call "ikrt_flonum_to_bytevector" x
; ($make-bytevector 80))
; (error 'flonum->string "~s is not a flonum" x))))
(define (even? n) (define (even? n)
(= (remainder n 2) 0)) (= (remainder n 2) 0))