lake/int.c

/** 
  * int.c
  * Lake Scheme
  *
  * Copyright 2011 Sami Samhuri
  * MIT License
  *
  */

#include <stdio.h>
#include <stdlib.h>
#include "bool.h"
#include "int.h"

static LakeInt *int_alloc(void)
{
    LakeInt *i = malloc(sizeof(LakeInt));
    i->base.type = TYPE_INT;
    i->base.size = sizeof(LakeInt);
    return i;
}

LakeInt *int_make(void)
{
    LakeInt *i = int_alloc();
    i->val = 0;
    return i;
}

LakeInt *int_copy(LakeInt *i)
{
    LakeInt *copy = int_alloc();
    copy->val = i->val;
    return copy;
}

LakeInt *int_from_c(int n)
{
    LakeInt *i = int_alloc();
    i->val = n;
    return i;
}

int int_val(LakeInt *i)
{
    return i->val;
}

LakeInt *int_cmp(LakeInt *a, LakeInt *b)
{
    int aN = a->val, bN = b->val;
    LakeInt *result = int_alloc();
    result->val = aN < bN ? -1 : (aN == bN ? 0 : 1);
    return result;
}

LakeSym *int_eq(LakeInt *a, LakeInt *b)
{
    return bool_from_int(a->val == b->val);
}

LakeStr *int_to_str(LakeInt *i)
{
    static int size = 32;
    char s[size];
    snprintf(s, size, "%d", i->val);
    LakeStr *str = str_from_c(s);
    return str;
}