trunk/npl/npl.c

// npl.c -- 全般的な関数群

#include "npl.h"

/*  npl_init() -- NPLライブラリを初期化する
 *
 *  説明：
 *    NPLライブラリを使用する前に必要な
 *    準備を行う。
 */
int npl_init(void)
{
        if (NPL_setlocale(LC_ALL, "") == NULL)
                return 1;  // error
        
        return 0;
}

// NPLライブラリの終了処理を行う
int npl_final(void)
{
        return 0;
}

// ワイド文字列をマルチバイト文字列に
// 変換したものを返す。
// この関数が返すポインタは使用後に
// free() で解放する必要がある。
char* npl_convert_to_mbs(const wchar_t *s)
{
        size_t bytes;
        char *str;

        if (s == NULL)
                return NULL;

        if ((bytes = NPL_wcstombs(NULL, s, 0)) == (size_t)-1)
                return NULL;
        if ((bytes += 1) < 1)
                return NULL;
        if ((str = NPL_malloc(bytes)) == NULL)
                return NULL;
        NPL_memset(str, 0, bytes);
        if (NPL_wcstombs(str, s, bytes) == (size_t)-1) {
                NPL_free(str);
                return NULL;
        }

        return str;
}

// マルチバイト文字列をワイド文字列に
// 変換して返す。
// この関数が返すポインタは、
// 使用後に free() で解放する必要がある。
wchar_t* npl_convert_to_wcs(const char *s)
{
        size_t len, bytes;
        wchar_t *str;

        if (s == NULL)
                return NULL;

        if ((len = NPL_mbstowcs(NULL, s, 0)) == (size_t)-1)
                return NULL;
        if ((len += 1) < 1)
                return NULL;
        if (len > (SIZE_MAX / sizeof(wchar_t)))
                return NULL;
        bytes = sizeof(wchar_t) * len;
        if ((str = NPL_malloc(bytes)) == NULL)
                return NULL;
        NPL_memset(str, 0, bytes);
        if (NPL_mbstowcs(str, s, len) == (size_t)-1) {
                NPL_free(str);
                return NULL;
        }

        return str;
}

// a + b を計算する。　結果は r に格納する。
// 結果がオーバーフローするとエラーになる。
int npl_add(size_t a, size_t b, size_t *r)
{
        size_t n = a;

        n += b;
        if (n < b)
                return 1;  // overflow

        if (r != NULL)
                *r = n;

        return 0;
}

// a - b を計算する。　結果は r に格納する。
// 結果がオーバーフローするとエラーになる。
int npl_sub(size_t a, size_t b, size_t *r)
{
        if (a < b)
                return 1;  // overflow
        if (r != NULL)
                *r = a - b;

        return 0;
}

//  a * b を計算する。　結果は r に格納する。
//  結果がオーバーフローするとエラーになる。
int npl_mul(size_t a, size_t b, size_t *r)
{
        size_t n;

        if (a == 0 || b == 0) {
                n = 0;
        } else {
                if (b > (SIZE_MAX / a))
                        return 1;  // overflow
                n = a * b;
        }

        if (r != NULL)
                *r = n;

        return 0;
}

void* _npl_cast(
        void *p,
        npl_type_t *type,
        const char *file_name,
        const char *func_name,
        unsigned int line_no)
{
        npl_head_t *head = p;
        npl_type_t *t, *t2;
        size_t i;

        if (p == NULL)
                return NULL;

        // 継承関係を調べる
        t = head->type;
        while (t != NULL) {
                if (t == type)
                        return p;
                t = t->parent;
        }

        // オブジェクトの場合、
        // インターフェースも調べる。
        if (head->type->ctype == NPL_CT_OBJECT) {
                t = head->type;
                while (t != NULL) {
                        if (t->ifaces != NULL) {
                                i = 0;
                                while (t->ifaces[i] != NULL) {
                                        t2 = t->ifaces[i];
                                        while (t2 != NULL) {
                                                if (t2 == type)
                                                        return p;
                                                t2 = t2->parent;
                                        }
                                        i++;
                                }
                        }
                        t = t->parent;
                }
        }

        // プログラミングが間違っていることを通知し強制終了
        NPL_fprintf(NPL_stderr, "[NPL_TYPE_ERROR]: %s - %u: %s\n",
                file_name, line_no, func_name);
        NPL_abort();
        return NULL;
}

// ライブラリ・モジュールに存在する型情報
static npl_type_t *_types[] = {
        &_npl_unset_type,
        &_npl_bool_type,
        &_npl_byte_type,
        &_npl_size_type,
        &_npl_int_type,
        &_npl_uint_type,
        &_npl_long_type,
        &_npl_ulong_type,
        &_npl_float_type,
        &_npl_wchar_type,
        &_npl_mbchar_type,
        &_npl_ws_type,
        &_npl_mbs_type,
        &_npl_type_type,
        &_npl_struct_type,
        &_npl_args_type,
        &_npl_state_event_type,
        &_npl_cmd_event_type,
        &_npl_iface_type,
        &_npl_uniface_type,
        &_npl_stream_type,
        &_npl_iptr_type,
        &_npl_istate_type,
        &_npl_object_type,
        &_npl_chunk_type,
        &_npl_def_type,
        &_npl_value_type,
        &_npl_str_type,
        &_npl_mbstr_type,
        &_npl_var_type,
        &_npl_ptr_type,
        &_npl_tuple_type,
        &_npl_buffer_type,
        &_npl_list_type,
        &_npl_dict_type,
        &_npl_func_type,
        &_npl_listener_type,
        &_npl_vstack_type,
        &_npl_state_type,
        &_npl_file_type,
        &_npl_cmd_type,
        NULL,
};

// NPLライブラリ・モジュールの設定
npl_mod_t _npl_module = {
        .types = _types,
};

npl_mod_t *npl_module = &_npl_module;
