/* Copyright (C) 2025 Aryadev Chavali * This program is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS * FOR A PARTICULAR PURPOSE. See the Unlicense for details. * You may distribute and modify this code under the terms of the Unlicense, * which you should have received a copy of along with this program. If not, * please go to . * Created: 2025-08-19 * Description: Entrypoint */ #include #include #include #include "./base.h" sv_t sv_copy(sv_t old) { char *newstr = calloc(1, old.size * sizeof(*newstr)); memcpy(newstr, old.data, old.size); return SV(newstr, old.size); } int main(void) { i64 numbers[] = { 1, 1024, -200, 1LU << 32, INT_MAX, INT_MIN, }; for (u64 i = 0; i < ARRSIZE(numbers); ++i) { i64 num = numbers[i]; lisp_t *lisp = tag_int(num); i64 ret = as_int(lisp); printf("%#16lx => %#16lx => %#16lx\n", num, lisp, ret); } return 0; }