NewtType.h

説明を見る。

/*------------------------------------------------------------------------*/
#ifndef NEWTTYPE_H
#define NEWTTYPE_H


/* ヘッダファイル */
#include "platform.h"

#if HAVE_STDINT_H
    #include <stdint.h>
#else
    #include <inttypes.h>
#endif

#include <stdbool.h>
#include <stdlib.h>

#include "NewtConf.h"


/* マクロ */

// Newton Refs Constant
#define kNewtRefNIL         0x0002      
#define kNewtRefTRUE        0x001A      
#define kNewtSymbolClass    0x55552     

#define kNewtRefUnbind      0xFFF2      


/* 定数 */

enum {
    kNewtUnknownType        = 0,    
    kNewtInt30,                     
    kNewtPointer,                   
    kNewtCharacter,                 
    kNewtSpecial,                   
    kNewtNil,                       
    kNewtTrue,                      
    kNewtUnbind,                    
    kNewtMagicPointer,              

    //　ポインタ参照
    kNewtBinary,                    
    kNewtArray,                     
    kNewtFrame,                     

    //　バイナリオブジェクト
    kNewtInt32,                     
    kNewtReal,                      
    kNewtSymbol,                    
    kNewtString                     
};


enum {
    kNewtObjSlotted     = 0x01,     
    kNewtObjFrame       = 0x02,     

    kNewtObjLiteral     = 0x40,     
    kNewtObjSweep       = 0x80      
};


enum {
    kNewtMapSorted      = 0x01,     
    kNewtMapProto       = 0x04      
};


enum {
    kNSOFImmediate          = 0,    
    kNSOFCharacter          = 1,    
    kNSOFUnicodeCharacter   = 2,    
    kNSOFBinaryObject       = 3,    
    kNSOFArray              = 4,    
    kNSOFPlainArray         = 5,    
    kNSOFFrame              = 6,    
    kNSOFSymbol             = 7,    
    kNSOFString             = 8,    
    kNSOFPrecedent          = 9,    
    kNSOFNIL                = 10,   
    kNSOFSmallRect          = 11,   
    kNSOFLargeBinary        = 12,   

    kNSOFNamedMagicPointer  = 0x10, 
};


/* 型宣言 */

// Ref(Integer, Pointer, Charcter, Spatial, Magic pointer)
typedef uint32_t        newtRef;        
typedef newtRef         newtRefVar;     
typedef const newtRef   newtRefArg;     


typedef struct newtObj *    newtObjRef;

typedef struct {
    uint32_t    h;      
    newtObjRef  nextp;  
} newtObjHeader;


typedef struct newtObj {
    newtObjHeader   header; 

    union {
        newtRef klass;      
        newtRef map;        
    } as;
} newtObj;


typedef struct {
    uint32_t    hash;       
    char        name[1];    
} newtSymData;

typedef newtSymData *   newtSymDataRef;


typedef int32_t     newtErr;


#endif /* NEWTTYPE_H */

---