root/lang/c/misc/mlisp/sexp/svect.cpp @ 11387

//=============================================================================
///     S ������/**
        mallloc �Ŋm�ۂ����A�h���X�͂S�̔{���Ɖ���*/
//=============================================================================

#include "svect.h"
#include "inner.h"


SExp make_vector(int size) {
        if (size <= 0)
                return nil;

        unsigned int n = size;
        SVector* p = (SVector*)salloc(sizeof(SVector) + sizeof(SExp) * (n - 1), FALSE);
        p->type = tVect;
        p->size = n;
        for (unsigned int i=0; i<n; ++i) {
                p->buf[i] = nil;
        }

        SExp s;
        s.ptr = (SExpExtU*)p;
        return s;
}

void vector_set(SExp v, int i, SExp val) {
        type_check(v, tVect);
        SVector* p = (SVector*)v.ptr;
        unsigned int idx = i;
        if (idx < p->size) {
                p->buf[idx] = val;
        }
}

SExp vector_ref(SExp v, int i) {
        type_check(v, tVect);
        SVector* p = (SVector*)v.ptr;
        unsigned int idx = i;
        if (idx < p->size) {
                return p->buf[idx];
        } else {
                return nil;
        }
}

int vector_length(SExp v) {
        type_check(v, tVect);
        SVector* p = (SVector*)v.ptr;
        return p->size;
}


void print_vector(SExp v) {
        type_check(v, tVect);
        SVector* p = (SVector*)v.ptr;

        printf("#(");
        unsigned int n = p->size;
        for (unsigned int i = 0; i < n; ++i) {
                print_rec(p->buf[i]);
        }
        printf(")");
}