NewtVM.h

説明を見る。

/*------------------------------------------------------------------------*/
#ifndef NEWTVM_H
#define NEWTVM_H


/* ヘッダファイル */
#include <stdio.h>
#include "NewtType.h"
#include "NewtMem.h"


/* 定数 */

enum {
    kIterIndex      = 0,    
    kIterValue,             
    kIterObj,               
    kIterDeeply,            
    kIterPos,               
    kIterMax,               
    kIterMap,               

    //
    kIterALength            
};


typedef struct {
    newtRefVar  func;   
    uint32_t    pc;     
    uint32_t    sp;     
    newtRefVar  locals; 
    newtRefVar  rcvr;   
    newtRefVar  impl;   
} vm_reg_t;


typedef struct {
    uint32_t    callsp;     
    uint32_t    excppc;     

    newtRefVar  sym;        
    uint32_t    pc;         
} vm_excp_t;


typedef struct {
    // バイトコード
    uint8_t *   bc;         
    uint32_t    bclen;      

    // レジスタ
    vm_reg_t    reg;        

    // スタック
    newtStack   stack;      
    newtStack   callstack;  
    newtStack   excpstack;  

    // 例外
    newtRefVar  currexcp;   

    // VM 管理
    uint16_t    level;      
} vm_env_t;


extern vm_env_t     vm_env; 


/* 関数プロトタイプ */

#ifdef __cplusplus
extern "C" {
#endif


newtRef     NVMSelf(void);
newtRef     NVMCurrentFunction(void);
newtRef     NVMCurrentImplementor(void);
bool        NVMHasVar(newtRefArg name);
void        NVMThrowData(newtRefArg name, newtRefArg data);
void        NVMThrow(newtRefArg name, newtRefArg data);
void        NVMRethrow(void);
newtRef     NVMCurrentException(void);
void        NVMClearException(void);

bool        NVMFuncCheckNumArgs(newtRefArg fn, int16_t numArgs);

void        NVMDumpInstName(FILE * f, uint8_t a, int16_t b);
void        NVMDumpCode(FILE * f, uint8_t * bc, uint32_t len);
void        NVMDumpBC(FILE * f, newtRefArg instructions);
void        NVMDumpFn(FILE * f, newtRefArg fn);
void        NVMDumpStackTop(FILE * f, char * s);
void        NVMDumpStacks(FILE * f);

void        NVMFnCall(newtRefArg fn, int16_t numArgs);
newtRef     NVMInterpret(newtRefArg fn, newtErr * errP);
newtErr     NVMInfo(const char * name);

newtRef     NVMCall(newtRefArg fn, int16_t numArgs, newtErr * errP);
newtRef     NVMInterpretFile(const char * path, newtErr * errP);
newtRef     NVMInterpretStr(const char * s, newtErr * errP);

newtRef     NVMMessageSendWithArgArray(newtRefArg inImpl, newtRefArg inRcvr,
                newtRefArg inFunction, newtRefArg inArgs);

#ifdef __cplusplus
}
#endif


#endif /* NEWTVM_H */

---