sjs/lake
1
0
Fork 0
mirror of https://github.com/samsonjs/lake.git synced 2026-03-25 08:55:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add int_repr

Browse source
This commit is contained in:
Sami Samhuri 2011-04-24 20:39:22 -07:00
parent 4299c51021
commit 6ef5fcb299
3 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/int.c
View file

@ -22,9 +22,7 @@ static LakeInt *int_alloc(void)
LakeInt *int_make(void) LakeInt *int_make(void)
{ {
LakeInt *i = int_alloc(); return int_from_c(0);
i->val = 0;
return i;
} }
LakeInt *int_from_c(int n) LakeInt *int_from_c(int n)
@ -34,9 +32,14 @@ LakeInt *int_from_c(int n)
return i; return i;
} }
char *int_repr(LakeInt *i)
{
return g_strdup_printf("%d", i->val);
}
LakeStr *int_to_str(LakeInt *i) LakeStr *int_to_str(LakeInt *i)
{ {
char *s = g_strdup_printf("%d", i->val); char *s = int_repr(i);
LakeStr *str = str_from_c(s); LakeStr *str = str_from_c(s);
g_free(s); g_free(s);
return str; return str;

1
src/int.h
View file

@ -15,5 +15,6 @@
LakeInt *int_make(void); LakeInt *int_make(void);
LakeInt *int_from_c(int n); LakeInt *int_from_c(int n);
LakeStr *int_to_str(LakeInt *i); LakeStr *int_to_str(LakeInt *i);
char *int_repr(LakeInt *i);
#endif #endif

5
src/lake.c
View file

@ -25,7 +25,6 @@ char *lake_repr(LakeVal *expr)
if (expr == NULL) return g_strdup("(null)"); if (expr == NULL) return g_strdup("(null)");
char *s = NULL; char *s = NULL;
LakeStr *str;
switch (expr->type) { switch (expr->type) {
@ -38,9 +37,7 @@ char *lake_repr(LakeVal *expr)
break; break;
case TYPE_INT: case TYPE_INT:
str = int_to_str(INT(expr)); s = int_repr(INT(expr));
s = str_val(str);
str_free(str);
break; break;
case TYPE_STR: case TYPE_STR: