Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Modified code to account for numeric tower, fixed up number->string

Browse source
This commit is contained in:
Justin Ethier 2015-04-09 21:52:49 -04:00
parent cac2144f76
commit 010d3e6a18
2 changed files with 15 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
cgen.scm
View file

@ -351,13 +351,6 @@
(c-code "nil"))
((pair? exp)
(c-compile-scalars exp))
((real? exp)
(let ((cvar-name (mangle (gensym 'c))))
(c-code/vars
(string-append "&" cvar-name) ; Code is just the variable name
(list ; Allocate on the C stack
(string-append
"make_double(" cvar-name ", " (number->string exp) ");")))))
((integer? exp)
(let ((cvar-name (mangle (gensym 'c))))
(c-code/vars
@ -365,6 +358,13 @@
(list ; Allocate integer on the C stack
(string-append
"make_int(" cvar-name ", " (number->string exp) ");")))))
((real? exp)
(let ((cvar-name (mangle (gensym 'c))))
(c-code/vars
(string-append "&" cvar-name) ; Code is just the variable name
(list ; Allocate on the C stack
(string-append
"make_double(" cvar-name ", " (number->string exp) ");")))))
((boolean? exp)
(c-code (string-append
(if exp "boolean_t" "boolean_f"))))

19
runtime.h
View file

@ -531,9 +531,7 @@ static object Cyc_is_number(object o){
return boolean_f;}
static object Cyc_is_real(object o){
if (!nullp(o) && !is_value_type(o) && type_of(o) == double_tag)
return boolean_t;
return boolean_f;}
return Cyc_is_number(o);}
static object Cyc_is_integer(object o){
if (!nullp(o) && !is_value_type(o) && type_of(o) == integer_tag)
@ -615,14 +613,13 @@ static integer_type Cyc_length(object l){
static string_type Cyc_number2string(object n) {
char buffer[1024];
snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
//TODO: if (type_of(n) == integer_tag) {
//TODO: snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
//TODO: } else if (type_of(n) == double_tag) {
//TODO: snprintf(buffer, 1024, "%lf", ((double_type *)n)->value);
//TODO: } else {
//TODO: buffer[0] = '\0'; // TODO: throw error instead
//TODO: }
if (type_of(n) == integer_tag) {
snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
} else if (type_of(n) == double_tag) {
snprintf(buffer, 1024, "%lf", ((double_type *)n)->value);
} else {
buffer[0] = '\0'; // TODO: throw error instead
}
make_string(str, buffer);
return str;
}