root/NEWT0/trunk/src/newt_core/NewtNSOF.c

/*------------------------------------------------------------------------*/
/**
 * @file    NewtNSOF.c
 * @brief   Newton Streamed Object Format
 *
 * @author  M.Nukui
 * @date    2005-04-01
 *
 * Copyright (C) 2005 M.Nukui All rights reserved.
 */


/* ヘッダファイル */
#include <string.h>

#include "NewtNSOF.h"
#include "NewtErrs.h"
#include "NewtObj.h"
#include "NewtEnv.h"
#include "NewtFns.h"
#include "NewtVM.h"
#include "NewtIconv.h"

#include "utils/endian_utils.h"

/* マクロ */
#define NSOFIsNOS(verno)    ((verno == 1) || (verno == 2))  ///< Newton OS　互換の NSOF



/* 型宣言 */

/// NSOF変換に使用する iconv変換ディスクリプター
#ifdef HAVE_LIBICONV
typedef struct {
    iconv_t     utf16be;    ///< iconv変換ディスクリプター（UTF16-BE）
    iconv_t     macroman;   ///< iconv変換ディスクリプター（MACROMAN）
} nsof_iconv_t;
#endif /* HAVE_LIBICONV */

/// NSOFストリーム構造体
typedef struct {
    int32_t     verno;          ///< NSOFバージョン番号
    uint8_t *   data;           ///< データ
    uint32_t    len;            ///< データの長さ
    uint32_t    offset;         ///< 作業中の位置
    newtRefVar  precedents;     ///< 出現済みオブジェクトのリスト
    newtErr     lastErr;        ///< 最後のエラーコード

#ifdef HAVE_LIBICONV
    struct {
        nsof_iconv_t    to;     ///< NSOFエンコーディングへの変換用
        nsof_iconv_t    from;   ///< NSOFエンコーディングからの変換用
    } cd; ///< iconv変換ディスクリプター
#endif /* HAVE_LIBICONV */
} nsof_stream_t;


/* 関数プロトタイプ */
static bool         NewtRefIsByte(newtRefArg r);
static bool         NewtRefIsSmallRect(newtRefArg r);
static int32_t      NewtArraySearch(newtRefArg array, newtRefArg r);

static newtErr      NSOFWriteByte(nsof_stream_t * nsof, uint8_t value);
static newtErr      NSOFWriteXlong(nsof_stream_t * nsof, int32_t value);
static uint8_t      NSOFReadByte(nsof_stream_t * nsof);
static int32_t      NSOFReadXlong(nsof_stream_t * nsof);

static newtErr      NSOFWritePrecedent(nsof_stream_t * nsof, int32_t pos);
static newtErr      NSOFWriteImmediate(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteCharacter(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteBinary(nsof_stream_t * nsof, newtRefArg r, uint16_t objtype);
static newtErr      NSOFWriteSymbol(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteNamedMP(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteArray(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteFrame(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NSOFWriteSmallRect(nsof_stream_t * nsof, newtRefArg r);
static newtErr      NewtWriteNSOF(nsof_stream_t * nsof, newtRefArg r);

static newtRef      NSOFReadBinary(nsof_stream_t * nsof, int type);
static newtRef      NSOFReadArray(nsof_stream_t * nsof, int type);
static newtRef      NSOFReadFrame(nsof_stream_t * nsof);
static newtRef      NSOFReadSymbol(nsof_stream_t * nsof);
static newtRef      NSOFReadNamedMP(nsof_stream_t * nsof);
static newtRef      NSOFReadSmallRect(nsof_stream_t * nsof);
static newtRef      NSOFReadNSOF(nsof_stream_t * nsof);


#if 0
#pragma mark -
#endif
/*------------------------------------------------------------------------*/
/** オブジェクトが 0〜255 の整数かチェックする
 *
 * @param r         [in] オブジェクト
 *
 * @retval          true    0〜255 の整数
 * @retval          false   0〜255 の整数でない
 */

bool NewtRefIsByte(newtRefArg r)
{
    if (NewtRefIsInteger(r))
    {
        int32_t     n;

        n = NewtRefToInteger(r);

        if (0 <= n && n <= 255)
            return true;
    }

    return false;
}


/*------------------------------------------------------------------------*/
/** フレームが NSOF(smallRect) の条件を満たすかチェックする
 *
 * @param r         [in] フレームオブジェクト
 *
 * @retval          true    条件を満たす
 * @retval          false   条件を満たさない
 */

bool NewtRefIsSmallRect(newtRefArg r)
{
    if (NewtFrameLength(r) == 4)
    {
        if (NewtRefIsByte(NcGetSlot(r, NSSYM(top))) &&
            NewtRefIsByte(NcGetSlot(r, NSSYM(left))) && 
            NewtRefIsByte(NcGetSlot(r, NSSYM(bottom))) && 
            NewtRefIsByte(NcGetSlot(r, NSSYM(right))))
        {
            return true;
        }
    }

    return false;
}


/*------------------------------------------------------------------------*/
/** 配列からオブジェクトを探す
 *
 * @param array     [in] 配列
 * @param r         [in] フレームオブジェクト
 *
 * @retval          0以上 見つかった位置
 * @retval          -1      見つからなかった
 */

int32_t NewtArraySearch(newtRefArg array, newtRefArg r)
{
    newtRef *   slots;
    uint32_t    len;
    uint32_t    i;

    len = NewtArrayLength(array);
    slots = NewtRefToSlots(array);

    for (i = 0; i < len; i++)
    {
        if (slots[i] == r)
            return i;
    }

    return -1;
}


#if 0
#pragma mark -
#endif
/*------------------------------------------------------------------------*/
/** 1byte を NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param value     [in] 1byte　データ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */
 
newtErr NSOFWriteByte(nsof_stream_t * nsof, uint8_t value)
{
    if (nsof->data)
    {
        if (nsof->len <= nsof->offset)
        {   // バッファを越えた
            nsof->lastErr = kNErrOutOfRange;
            return nsof->lastErr;
        }

        nsof->data[nsof->offset] = value;
    }

    nsof->offset++;

    return kNErrNone;
}


/*------------------------------------------------------------------------*/
/** データを xlong 形式でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param value     [in] データ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteXlong(nsof_stream_t * nsof, int32_t value)
{
    if (0 <= value && value <= 254)
    {
        NSOFWriteByte(nsof, value);
    }
    else
    {
        NSOFWriteByte(nsof, 0xff);
        NSOFWriteByte(nsof, ((uint32_t)value >> 24) & 0xffff);
        NSOFWriteByte(nsof, ((uint32_t)value >> 16) & 0xffff);
        NSOFWriteByte(nsof, ((uint32_t)value >> 8) & 0xffff);
        NSOFWriteByte(nsof, (uint32_t)value & 0xffff);
    }

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** NSOFバッファ からデータを 1byte 読込む
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          1byte データ
 */
 
uint8_t NSOFReadByte(nsof_stream_t * nsof)
{
    uint8_t     result;

    if (nsof->len <= nsof->offset)
    {   // バッファを越えた
        nsof->lastErr = kNErrNotABinaryObject;
        return 0;
    }

    result = nsof->data[nsof->offset];
    nsof->offset++;

    return result;
}


/*------------------------------------------------------------------------*/
/** NSOFバッファ からデータを xlong 形式で読込む
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          データ
 */

int32_t NSOFReadXlong(nsof_stream_t * nsof)
{
    int32_t     value;

    value = NSOFReadByte(nsof);

    if (value == 0xff)
    {
        value  = NSOFReadByte(nsof) << 24;
        value |= NSOFReadByte(nsof) << 16;
        value |= NSOFReadByte(nsof) << 8;
        value |= NSOFReadByte(nsof);
    }

    return value;
}


#if 0
#pragma mark -
#endif
/*------------------------------------------------------------------------*/
/** 出現済みデータを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param pos       [in] 出現位置
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */
 
newtErr NSOFWritePrecedent(nsof_stream_t * nsof, int32_t pos)
{
    NSOFWriteByte(nsof, kNSOFPrecedent);
    NSOFWriteXlong(nsof, pos);

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** 即値データを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] 即値データ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */
 
newtErr NSOFWriteImmediate(nsof_stream_t * nsof, newtRefArg r)
{
    NSOFWriteByte(nsof, kNSOFImmediate);
    NSOFWriteXlong(nsof, r);

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** 文字データを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] 文字データ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteCharacter(nsof_stream_t * nsof, newtRefArg r)
{
    int     c;

    c = NewtRefToCharacter(r);

    if (c < 0x100)
    {
        NSOFWriteByte(nsof, kNSOFCharacter);
        NSOFWriteByte(nsof, c);
    }
    else
    {
        NSOFWriteByte(nsof, kNSOFUnicodeCharacter);
        NSOFWriteByte(nsof, (c >> 8) & 0xff);
        NSOFWriteByte(nsof, c & 0xff);
    }

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** バイナリデータを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] バイナリオブジェクト
 * @param objtype   [in] オブジェクトタイプ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteBinary(nsof_stream_t * nsof, newtRefArg r, uint16_t objtype)
{
    newtRefVar  klass;
    uint32_t    size;
    char *      buff = NULL;
    int         type;

    klass = NcClassOf(r);

    if (klass == NSSYM0(string))
        type = kNSOFString;
    else
        type = kNSOFBinaryObject;

    size = NewtBinaryLength(r);

#ifdef HAVE_LIBICONV
    if (objtype == kNewtString)
    {
        size_t  bufflen;
        char *  s;

        s = NewtRefToString(r);
        buff = NewtIconv(nsof->cd.to.utf16be, (char *)s, size, &bufflen);
        if (buff) size = bufflen;
    }
#endif /* HAVE_LIBICONV */

    NSOFWriteByte(nsof, type);
    NSOFWriteXlong(nsof, size);

    if (type == kNSOFBinaryObject)
    {
        NewtWriteNSOF(nsof, klass);
    }

    if (nsof->data)
    {
        uint8_t *   data;

        data = nsof->data + nsof->offset;

        switch (objtype)
        {
            case kNewtInt32:
                if (NSOFIsNOS(nsof->verno))
                {
                    nsof->lastErr = kNErrNSOFWrite;
                }
                else
                {
                    int32_t n;

                    n = NewtRefToInteger(r);
                    n = htonl(n);
                    memcpy(data, (uint8_t *)&n, sizeof(n));
                }
                break;

            case kNewtReal:
                {
                    double  n;

                    n = NewtRefToReal(r);
                    n = htond(n);
                    memcpy(data, (uint8_t *)&n, sizeof(n));
                }
                break;

            default:
                if (buff)
                    memcpy(data, buff, size);
                else
                    memcpy(data, NewtRefToBinary(r), size);
                break;
        }
    }

    nsof->offset += size;
    if (buff) free(buff);

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** シンボルデータを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] シンボルオブジェクト
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteSymbol(nsof_stream_t * nsof, newtRefArg r)
{
    uint32_t    size;
    char *      buff = NULL;
    char *      name;

    size = NewtSymbolLength(r);
    name = NewtRefToSymbol(r)->name;

#ifdef HAVE_LIBICONV
    {
        size_t      bufflen;

        buff = NewtIconv(nsof->cd.to.macroman, (char *)name, size, &bufflen);

        if (buff)
        {
            name = buff;
            size = bufflen;
        }
    }
#endif /* HAVE_LIBICONV */

    NSOFWriteByte(nsof, kNSOFSymbol);
    NSOFWriteXlong(nsof, size);

    if (nsof->data) memcpy(nsof->data + nsof->offset, name, size);
    nsof->offset += size;

    if (buff) free(buff);

    return nsof->lastErr;
}


#ifdef __NAMED_MAGIC_POINTER__
/*------------------------------------------------------------------------*/
/** 名前付マジックポインタを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] 名前付マジックポインタ
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteNamedMP(nsof_stream_t * nsof, newtRefArg r)
{
    newtRefVar  sym;

    sym = NewtMPToSymbol(r);

    if (NSOFIsNOS(nsof->verno))
    {
        // とりあえずシンボルを書込む
        NSOFWriteSymbol(nsof, sym);
        nsof->lastErr = kNErrNSOFWrite;
    }
    else
    {
        uint32_t    size;

        size = NewtSymbolLength(sym);

        NSOFWriteByte(nsof, kNSOFNamedMagicPointer);
        NSOFWriteXlong(nsof, size);

        if (nsof->data) memcpy(nsof->data + nsof->offset, NewtRefToSymbol(sym)->name, size);
        nsof->offset += size;
    }

    return nsof->lastErr;
}
#endif /* __NAMED_MAGIC_POINTER__ */


/*------------------------------------------------------------------------*/
/** 配列データを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] 配列オブジェクト
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteArray(nsof_stream_t * nsof, newtRefArg r)
{
    newtRefVar  klass;
    newtRef *   slots;
    uint32_t    numSlots;
    uint32_t    i;
    int         type;

    numSlots = NewtArrayLength(r);
    klass = NcClassOf(r);

    if (klass == NSSYM0(array))
        type = kNSOFPlainArray;
    else
        type = kNSOFArray;

    NSOFWriteByte(nsof, type);

    NSOFWriteXlong(nsof, numSlots);

    if (type == kNSOFArray)
    {
        NewtWriteNSOF(nsof, klass);
        if (nsof->lastErr != kNErrNone) return nsof->lastErr;
    }

    slots = NewtRefToSlots(r);

    for (i = 0; i < numSlots; i++)
    {
        NewtWriteNSOF(nsof, slots[i]);
        if (nsof->lastErr != kNErrNone) return nsof->lastErr;
    }

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** フレームデータを NSOF でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] フレームオブジェクト
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteFrame(nsof_stream_t * nsof, newtRefArg r)
{
    newtRefVar  map;
    newtRef *   slots;
    uint32_t    numSlots;
    uint32_t    index;
    uint32_t    i;

    numSlots = NewtFrameLength(r);
    map = NewtFrameMap(r);

    NSOFWriteByte(nsof, kNSOFFrame);
    NSOFWriteXlong(nsof, numSlots);

    slots = NewtRefToSlots(r);

    for (i = 0; i < numSlots; i++)
    {
        index = 0;
        NewtWriteNSOF(nsof, NewtGetMapIndex(map, i, &index));
        if (nsof->lastErr != kNErrNone) return nsof->lastErr;
    }

    for (i = 0; i < numSlots; i++)
    {
        NewtWriteNSOF(nsof, slots[i]);
        if (nsof->lastErr != kNErrNone) return nsof->lastErr;
    }

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** フレームデータを NSOF(smallRect) でバッファに書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] フレームオブジェクト
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NSOFWriteSmallRect(nsof_stream_t * nsof, newtRefArg r)
{
    NSOFWriteByte(nsof, kNSOFSmallRect);
    NSOFWriteByte(nsof, NewtRefToInteger(NcGetSlot(r, NSSYM(top))));
    NSOFWriteByte(nsof, NewtRefToInteger(NcGetSlot(r, NSSYM(left))));
    NSOFWriteByte(nsof, NewtRefToInteger(NcGetSlot(r, NSSYM(bottom))));
    NSOFWriteByte(nsof, NewtRefToInteger(NcGetSlot(r, NSSYM(right))));

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** オブジェクトを NSOFバイナリオブジェクトに変換して書込む
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param r         [in] オブジェクト
 *
 * @return          エラーコード
 *
 * @note            nsof->data が NULL の場合は nsof->offset のみ更新される
 */

newtErr NewtWriteNSOF(nsof_stream_t * nsof, newtRefArg r)
{
    if (NewtRefIsImmediate(r))
    {
        if (r == kNewtRefNIL)
            NSOFWriteByte(nsof, kNSOFNIL);
        else if (NewtRefIsCharacter(r))
            NSOFWriteCharacter(nsof, r);
        else
            NSOFWriteImmediate(nsof, r);
    }
    else
    {
        int32_t foundPrecedent;

        foundPrecedent = NewtArraySearch(nsof->precedents, r);

        if (foundPrecedent < 0)
        {
            uint16_t    objtype;

            NcAddArraySlot(nsof->precedents, r);
            objtype = NewtGetRefType(r, true);

            switch (objtype)
            {
                case kNewtArray:
                    NSOFWriteArray(nsof, r);
                    break;

                case kNewtFrame:
                    if (NewtRefIsSmallRect(r))
                        NSOFWriteSmallRect(nsof, r);
                    else
                        NSOFWriteFrame(nsof, r);
                    break;

                case kNewtSymbol:
                    NSOFWriteSymbol(nsof, r);
                    break;

#ifdef __NAMED_MAGIC_POINTER__
                case kNewtMagicPointer:
                    NSOFWriteNamedMP(nsof, r);
                    break;
#endif /* __NAMED_MAGIC_POINTER__ */

                default:
                    NSOFWriteBinary(nsof, r, objtype);
                    break;
            }
        }
        else
        {
            NSOFWritePrecedent(nsof, foundPrecedent);
        }
    }

    return nsof->lastErr;
}


/*------------------------------------------------------------------------*/
/** オブジェクトを NSOFバイナリオブジェクトに変換する
 *
 * @param rcvr      [in] レシーバ
 * @param r         [in] オブジェクト
 * @param ver       [in] バージョン
 *
 * @return          NSOFバイナリオブジェクト
 */

newtRef NsMakeNSOF(newtRefArg rcvr, newtRefArg r, newtRefArg ver)
{
    nsof_stream_t   nsof;
    newtRefVar  result;

    if (! NewtRefIsInteger(ver))
        return NewtThrow(kNErrNotAnInteger, ver);

    memset(&nsof, 0, sizeof(nsof));

    nsof.verno = NewtRefToInteger(ver);
    nsof.precedents = NewtMakeArray(kNewtRefUnbind, 0);
    nsof.offset = 1;

#ifdef HAVE_LIBICONV
    if (NSOFIsNOS(nsof.verno))
    {
        char *      encoding;

        encoding = NewtDefaultEncoding();
        nsof.cd.to.utf16be = iconv_open("UTF-16BE", encoding);
        nsof.cd.to.macroman = iconv_open("MACROMAN", encoding);
    }
    else
    {
        nsof.cd.to.utf16be = (iconv_t)-1;
        nsof.cd.to.macroman = (iconv_t)-1;
    }
#endif /* HAVE_LIBICONV */

    // 必要なサイズの計算
    NewtWriteNSOF(&nsof, r);

    if (nsof.lastErr == kNErrNone)
    {
        // バイナリオブジェクトの作成
        result = NewtMakeBinary(NSSYM(NSOF), NULL, nsof.offset, false);

        if (NewtRefIsNotNIL(result))
        {   // 実際の書込み
            NewtSetLength(nsof.precedents, 0);
            nsof.data = NewtRefToBinary(result);
            nsof.len = nsof.offset;
            nsof.offset = 0;

            NSOFWriteByte(&nsof, nsof.verno);
            NewtWriteNSOF(&nsof, r);
        }
    }
    else
    {
        result = NewtThrow(nsof.lastErr, r);
    }

#ifdef HAVE_LIBICONV
    if (nsof.cd.to.utf16be != (iconv_t)-1) iconv_close(nsof.cd.to.utf16be);
    if (nsof.cd.to.macroman != (iconv_t)-1) iconv_close(nsof.cd.to.macroman);
#endif /* HAVE_LIBICONV */

    return result;
}


#if 0
#pragma mark -
#endif
/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んでバイナリオブジェクトに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param type      [in] NSOFのタイプ
 *
 * @return          バイナリオブジェクト
 */

newtRef NSOFReadBinary(nsof_stream_t * nsof, int type)
{
    newtRefVar  klass;
    newtRefVar  r = kNewtRefUnbind;
    int32_t     xlen;
    uint8_t *   data;

    xlen = NSOFReadXlong(nsof);

    if (type == kNSOFString)
    {
        klass = NSSYM0(string);
    }
    else
    {
        klass = NSOFReadNSOF(nsof);
        if (nsof->lastErr != kNErrNone) return kNewtRefUnbind;
    }

    data = nsof->data + nsof->offset;

    if (klass == NSSYM0(int32))
    {
        if (NSOFIsNOS(nsof->verno))
        {
            nsof->lastErr = kNErrNSOFRead;
        }
        else
        {
            int32_t n;

            memcpy(&n, data, sizeof(n));
            n = ntohl(n);
            r= NewtMakeInteger(n);
        }
    }
    else if (klass == NSSYM0(real))
    {
        double  n;

        memcpy(&n, data, sizeof(n));
        n = ntohd(n);
        r= NewtMakeReal(n);
    }
#ifdef HAVE_LIBICONV
    else if (NewtIsSubclass(klass, NSSYM0(string)))
    {
        char *  buff;

        buff = NewtIconv(nsof->cd.from.utf16be, (char *)data, xlen, NULL);

        if (buff)
        {
            r = NewtMakeString(buff, false);
            free(buff);
        }
        else
        {
            r = NewtMakeBinary(klass, data, xlen, false);
        }
    }
#endif /* HAVE_LIBICONV */
    else
    {
        r = NewtMakeBinary(klass, data, xlen, false);
    }

    nsof->offset += xlen;

    return r;
}


/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んで配列オブジェクトに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 * @param type      [in] NSOFのタイプ
 *
 * @return          配列オブジェクト
 */

newtRef NSOFReadArray(nsof_stream_t * nsof, int type)
{
    newtRefVar  klass = kNewtRefUnbind;
    newtRefVar  r;
    int32_t     xlen;

    xlen = NSOFReadXlong(nsof);

    if (type == kNSOFArray)
    {
        klass = NSOFReadNSOF(nsof);
        if (nsof->lastErr != kNErrNone) return kNewtRefUnbind;
    }

    r = NewtMakeArray(klass, xlen);
    NcAddArraySlot(nsof->precedents, r);

    if (NewtRefIsNotNIL(r))
    {
        newtRef *   slots;
        int32_t i;

        slots = NewtRefToSlots(r);

        for (i = 0; i < xlen; i++)
        {
            slots[i] = NSOFReadNSOF(nsof);
            if (nsof->lastErr != kNErrNone) break;
        }
    }

    return r;
}


/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んでフレームオブジェクトに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          フレームオブジェクト
 */

newtRef NSOFReadFrame(nsof_stream_t * nsof)
{
    newtRefVar  map;
    newtRefVar  r;
    newtRef *   slots;
    int32_t     xlen;
    int32_t     i;

    xlen = NSOFReadXlong(nsof);

    if (xlen == 0)
        return NcMakeFrame();

    map = NewtMakeMap(kNewtRefNIL, xlen, NULL);
    r = NewtMakeFrame(map, xlen);
    NcAddArraySlot(nsof->precedents, r);

    slots = NewtRefToSlots(map);

    for (i = 1; i <= xlen; i++)
    {
        slots[i] = NSOFReadNSOF(nsof);
        if (nsof->lastErr != kNErrNone) return kNewtRefUnbind;
    }

    slots = NewtRefToSlots(r);

    for (i = 0; i < xlen; i++)
    {
        slots[i] = NSOFReadNSOF(nsof);
        if (nsof->lastErr != kNErrNone) break;
    }

    return r;
}


/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んでシンボルオブジェクトに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          シンボルオブジェクト
 */

newtRef NSOFReadSymbol(nsof_stream_t * nsof)
{
    newtRefVar  r = kNewtRefUnbind;
    int32_t     xlen;
    char *      name;

    xlen = NSOFReadXlong(nsof);
    name = malloc(xlen + 1);

    if (name)
    {
        memcpy(name, nsof->data + nsof->offset, xlen);
        name[xlen] = '\0';

#ifdef HAVE_LIBICONV
        {
            char *  buff;

            buff = NewtIconv(nsof->cd.from.macroman, name, xlen + 1, NULL);

            if (buff)
            {   // 変換された
                r = NewtMakeSymbol(buff);
                free(buff);
            }
        }
#endif /* HAVE_LIBICONV */

        if (r == kNewtRefUnbind)
            r = NewtMakeSymbol(name);

        free(name);
    }

    nsof->offset += xlen;

    return r;
}


#ifdef __NAMED_MAGIC_POINTER__
/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んで名前付マジックポインタに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          名前付マジックポインタ
 */

newtRef NSOFReadNamedMP(nsof_stream_t * nsof)
{
    newtRefVar  r;

    r = NSOFReadSymbol(nsof);

    if (NewtRefIsNotNIL(r))
    {
        if (NSOFIsNOS(nsof->verno))
        {
            nsof->lastErr = kNErrNSOFRead;
            // とりあえずシンボルのまま
        }
        else
        {
            r = NewtSymbolToMP(r);
        }
    }

    return r;
}
#endif /* __NAMED_MAGIC_POINTER__ */


/*------------------------------------------------------------------------*/
/** NSOFバッファを読込んでフレームオブジェクト(smallRect)に変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          フレームオブジェクト(smallRect)
 */

newtRef NSOFReadSmallRect(nsof_stream_t * nsof)
{
    newtRefVar  r;

    r = NcMakeFrame();
    // 将来は map を共有すること

    NcSetSlot(r, NSSYM(top), NewtMakeInteger(NSOFReadByte(nsof)));
    NcSetSlot(r, NSSYM(left), NewtMakeInteger(NSOFReadByte(nsof)));
    NcSetSlot(r, NSSYM(bottom), NewtMakeInteger(NSOFReadByte(nsof)));
    NcSetSlot(r, NSSYM(right), NewtMakeInteger(NSOFReadByte(nsof)));

    return r;
}


/*------------------------------------------------------------------------*/
/** NSOFバイナリオブジェクトを読込んでオブジェクトに変換する
 *
 * @param nsof      [i/o]NSOFバッファ
 *
 * @return          オブジェクト
 */

newtRef NSOFReadNSOF(nsof_stream_t * nsof)
{
    newtRefVar  r = kNewtRefUnbind;
    int32_t     xlen;
    int         type;

    type = NSOFReadByte(nsof);

    switch (type)
    {
        case kNSOFImmediate:
            r = (newtRef)NSOFReadXlong(nsof);
            break;

        case kNSOFCharacter:
            r = NewtMakeCharacter(NSOFReadByte(nsof));
            break;

        case kNSOFUnicodeCharacter:
            r = NewtMakeCharacter((uint32_t)NSOFReadByte(nsof) << 8 | NSOFReadByte(nsof));
            break;

        case kNSOFBinaryObject:
        case kNSOFString:
            r = NSOFReadBinary(nsof, type);
            NcAddArraySlot(nsof->precedents, r);
            break;

        case kNSOFArray:
        case kNSOFPlainArray:
            r = NSOFReadArray(nsof, type);
            break;

        case kNSOFFrame:
            r = NSOFReadFrame(nsof);
            break;

        case kNSOFSymbol:
            r = NSOFReadSymbol(nsof);
            NcAddArraySlot(nsof->precedents, r);
            break;

        case