/* sys.c: System management
 * Created: 2025-08-20
 * Author: Aryadev Chavali
 * License: See end of file
 * Commentary:
 */

#include <assert.h>
#include <malloc.h>
#include <string.h>

#include <alisp/lisp.h>
#include <alisp/tag.h>

void sys_init(sys_t *sys)
{
  memset(sys, 0, sizeof(*sys));
}

void sys_register(sys_t *sys, lisp_t *ptr)
{
  // Simply append it to the list of currently active conses
  vec_append(&sys->memory, &ptr, sizeof(&ptr));
}

void sys_cleanup(sys_t *sys)
{
  static_assert(NUM_TAGS == 5);

  sym_table_cleanup(&sys->symtable);
  if (sys->memory.size == 0)
    return;

  // Iterate through each cell of memory currently allocated and free them
  for (size_t i = 0; i < VEC_SIZE(&sys->memory, lisp_t **); ++i)
  {
    lisp_t *allocated = VEC_GET(&sys->memory, i, lisp_t *);
    switch (get_tag(allocated))
    {
    case TAG_CONS:
      // Delete the cons
      free(as_cons(allocated));
      break;
    case TAG_VEC:
    {
      vec_t *vec = as_vec(allocated);
      vec_free(vec);
      free(vec);
      break;
    }
    case TAG_NIL:
    case TAG_INT:
    case TAG_SYM:
    case NUM_TAGS:
      // shouldn't be dealt with (either constant or dealt with elsewhere)
      break;
    }
  }

  // Free the container
  vec_free(&sys->memory);

  // Ensure no one treats this as active in any sense
  memset(sys, 0, sizeof(*sys));
}

/* Copyright (C) 2025, 2026 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 <https://unlicense.org/>.

 */