Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #55 - Support number->string

Browse source
This commit is contained in:
Justin Ethier 2018-05-11 15:47:48 -04:00
parent 89db7cca24
commit 84b2f9c67e
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
runtime.c
View file

@ -1884,6 +1884,21 @@ object Cyc_number2string2(void *data, object cont, int argc, object n, ...)
snprintf(buffer, 1024, "%d", ((integer_type *) n)->value); snprintf(buffer, 1024, "%d", ((integer_type *) n)->value);
} else if (type_of(n) == double_tag) { } else if (type_of(n) == double_tag) {
double2buffer(buffer, 1024, ((double_type *) n)->value); double2buffer(buffer, 1024, ((double_type *) n)->value);
} else if (type_of(n) == complex_num_tag) {
char rbuf[33], ibuf[33];
const char *plus="+", *empty="";
double dreal = creal(((complex_num_type *) n)->value);
double dimag = cimag(((complex_num_type *) n)->value);
double2buffer(rbuf, 32, dreal);
double2buffer(ibuf, 32, dimag);
if (dreal == 0.0) {
snprintf(buffer, 1024, "%si", ibuf);
} else {
snprintf(buffer, 1024, "%s%s%si",
rbuf,
(dimag < 0.0) ? empty : plus,
ibuf);
}
} else { } else {
Cyc_rt_raise2(data, "number->string - Unexpected object", n); Cyc_rt_raise2(data, "number->string - Unexpected object", n);
} }