Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Unparse Fixnums

Browse source
This commit is contained in:
Ekaitz Zarraga 2020-05-21 18:52:13 +02:00
parent 57c5940855
commit bb1fdbb719
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lib/chibi/json.c
View file

@ -314,6 +314,19 @@ sexp sexp_parse_json (sexp ctx, sexp self, sexp_sint_t n, sexp str) {
sexp unparse_json (sexp ctx, sexp self, sexp obj); sexp unparse_json (sexp ctx, sexp self, sexp obj);
sexp unparse_json_fixnum(sexp ctx, sexp self, const sexp obj){
sexp_gc_var2(res, tmp);
sexp_gc_preserve2(ctx, res, tmp);
res = SEXP_NULL;
long num = sexp_unbox_fixnum(obj);
char* buff = alloca( num==0 ? 2 : (log10(abs(num))+3) );
sprintf(buff, "%ld", num);
res = sexp_c_string(ctx, buff, -1);
sexp_gc_release2(ctx);
return res;
}
sexp unparse_json_string(sexp ctx, sexp self, const sexp obj){ sexp unparse_json_string(sexp ctx, sexp self, const sexp obj){
sexp_gc_var2(res, tmp); sexp_gc_var2(res, tmp);
sexp_gc_preserve2(ctx, res, tmp); sexp_gc_preserve2(ctx, res, tmp);
@ -495,8 +508,8 @@ sexp unparse_json (sexp ctx, sexp self, sexp obj){
} else if (sexp_vectorp(obj)){ } else if (sexp_vectorp(obj)){
// ARRAY // ARRAY
res = unparse_json_array(ctx, self, obj); res = unparse_json_array(ctx, self, obj);
} else if(sexp_integerp(obj)){ } else if(sexp_fixnump(obj)){
// FIXNUM NUMBER res = unparse_json_fixnum(ctx, self, obj);
} else if (sexp_numberp(obj)){ } else if (sexp_numberp(obj)){
// FLONUM or RATIONAL // FLONUM or RATIONAL
} else if (obj == SEXP_FALSE){ } else if (obj == SEXP_FALSE){