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

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2016-03-17 02:00:48 -04:00
parent b3b29ae15f
commit 8f4e66a7f7
2 changed files with 0 additions and 62 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -161,8 +161,6 @@ object Cyc_number2string(void *d, object cont, object n);
object Cyc_symbol2string(void *d, object cont, object sym) ;
object Cyc_string2symbol(void *d, object str);
object Cyc_list2string(void *d, object cont, object lst);
common_type Cyc_string2number(void *d, object str);
common_type Cyc_string2number2(void *data, int argc, object str, ...);
object Cyc_string2number_(void *d, object cont, object str);
object Cyc_string2number2_(void *data, object cont, int argc, object str, ...);
int binstr2int(const char *str);

60
runtime.c
View file

@ -1111,65 +1111,6 @@ object Cyc_string2number_(void *data, object cont, object str){
Cyc_rt_raise2(data, "Expected string but received", str);
}
common_type Cyc_string2number2(void *data, int argc, object str, ...)
{
object base = nil;
common_type result;
va_list ap;
va_start(ap, str);
if (argc > 1) {
base = va_arg(ap, object);
Cyc_check_int(data, base);
}
va_end(ap);
if (base) {
Cyc_check_str(data, str);
result.integer_t.hdr.mark = gc_color_red;
result.integer_t.hdr.grayed = 0;
result.integer_t.tag = integer_tag;
if (integer_value(base) == 2) {
result.integer_t.value = binstr2int(string_str(str));
return result;
}else if (integer_value(base) == 8) {
result.integer_t.value = octstr2int(string_str(str));
return result;
}else if (integer_value(base) == 16) {
result.integer_t.value = hexstr2int(string_str(str));
return result;
}
}
return Cyc_string2number(data, str);
}
common_type Cyc_string2number(void *data, object str){
common_type result;
double n;
Cyc_check_obj(data, string_tag, str);
Cyc_check_str(data, str);
if (type_of(str) == string_tag &&
((string_type *) str)->str){
n = atof(((string_type *) str)->str);
if (ceilf(n) == n) {
result.integer_t.hdr.mark = gc_color_red;
result.integer_t.hdr.grayed = 0;
result.integer_t.tag = integer_tag;
result.integer_t.value = (int)n;
}
else {
result.double_t.hdr.mark = gc_color_red;
result.double_t.hdr.grayed = 0;
result.double_t.tag = double_tag;
result.double_t.value = n;
}
} else {
// TODO: not good enough because we do pointer comparisons to #f
//result.boolean_t = boolean_f;
}
return result;
}
int binstr2int(const char *str)
{
int num = 0;
@ -2171,7 +2112,6 @@ void _call_95cc(void *data, object cont, object args){
* @param args - A list of arguments to the function
*/
object apply(void *data, object cont, object func, object args){
common_type buf;
object count;
//printf("DEBUG apply: ");