NewtParser.h

説明を見る。

/*------------------------------------------------------------------------*/
#ifndef NEWTPARSE_H
#define NEWTPARSE_H

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

#include "NewtType.h"
#include "NewtConf.h"


/* マクロ */

/*
#define kNPSSyntaxNodeMask          0x80000003                                          ///< オブジェクト参照のマスク（構文木ノード用）

#define NPSRefIsSyntaxNode(r)       ((r & kNPSSyntaxNodeMask) == kNPSSyntaxNodeMask)    ///< オブジェクト参照が構文木ノードか？
#define NPSRefToSyntaxNode(r)       (((uint32_t)r & 0x7fffffff) >> 2)                   ///< オブジェクト参照を構文木ノードに変換
#define NPSMakeSyntaxNode(v)        ((v << 2) | kNPSSyntaxNodeMask)                     ///< 構文木ノードのオブジェクト参照を作成
*/

#define kNPSSyntaxNodeMask          0x0000000e                                  

#define NPSRefIsSyntaxNode(r)       ((r & 0x0000000f) == kNPSSyntaxNodeMask)    
#define NPSRefToSyntaxNode(r)       ((uint32_t)r >> 4)                          
#define NPSMakeSyntaxNode(v)        ((v << 4) | kNPSSyntaxNodeMask)             


/* 定数 */

enum {
    kNPS_NOT                = 256,  
    kNPS_DIV,                       
    kNPS_MOD,                       
    kNPS_SHIFT_LEFT,                
    kNPS_SHIFT_RIGHT,               
    kNPS_NOT_EQUAL,                 
    kNPS_GREATER_EQUAL,             
    kNPS_LESS_EQUAL,                
    kNPS_OBJECT_EQUAL,              
    kNPS_CONCAT2,                   
};

enum {
    kNPSPop                 = 000,  
    kNPSDup                 = 001,  
    kNPSReturn              = 002,  
    kNPSPushSelf            = 003,  
    kNPSSetLexScope         = 004,  
    kNPSIterNext            = 005,  
    kNPSIterDone            = 006,  
    kNPSPopHandlers         = 007,  

    kNPSPush                = 0030, 
    kNPSPushConstant        = 0040, 
    kNPSCall                = 0050, 
    kNPSInvoke              = 0060, 
    kNPSSend                = 0070, 
    kNPSSendIfDefined       = 0100, 
    kNPSResend              = 0110, 
    kNPSResendIfDefined     = 0120, 
    kNPSBranch              = 0130, 
    kNPSBranchIfTrue        = 0140, 
    kNPSBranchIfFalse       = 0150, 
    kNPSFindVar             = 0160, 
    kNPSGetVar              = 0170, 
    kNPSMakeFrame           = 0200, 
    kNPSMakeArray           = 0210, 
    kNPSGetPath             = 0220, 
    kNPSSetPath             = 0230, 
    kNPSSetVar              = 0240, 
    kNPSFindAndSetVar       = 0250, 
    kNPSIncrVar             = 0260, 
    kNPSBranchIfLoopNotDone = 0270, 
    kNPSFreqFunc            = 0300, 
    kNPSNewHandlers         = 0310, 

    // 30x freq-func
    kNPSAdd                 = 03000,
    kNPSSubtract,                   
    kNPSAref,                       
    kNPSSetAref,                    
    kNPSEquals,                     
    kNPSNot,                        
    kNPSNotEqual,                   
    kNPSMultiply,                   
    kNPSDivide,                     
    kNPSDiv,                        
    kNPSLessThan,                   
    kNPSGreaterThan,                
    kNPSGreaterOrEqual,             
    kNPSLessOrEqual,                
    kNPSBitAnd,                     
    kNPSBitOr,                      
    kNPSBitNot,                     
    kNPSNewIterator,                
    kNPSLength,                     
    kNPSClone,                      
    kNPSSetClass,                   
    kNPSAddArraySlot,               
    kNPSStringer,                   
    kNPSHasPath,                    
    kNPSClassOf,                    

    // 40x syntax
    kNPSConstituentList     = 04000,
    kNPSCommaList,
    kNPSConstant,
    kNPSGlobal,
    kNPSLocal,
    kNPSGlobalFn,
    kNPSFunc,
    kNPSArg,
    kNPSIndefinite,
    kNPSMessage,
    kNPSLvalue,
    kNPSAsign,
    kNPSExists,
    kNPSMethodExists,
    kNPSTry,
    kNPSOnexception,
    kNPSOnexceptionList,
    kNPSIf,
    kNPSLoop,
    kNPSFor,
    kNPSForeach,
    kNPSWhile,
    kNPSRepeat,
    kNPSBreak,
    kNPSSlot,
    kNPSConcat,                             
    kNPSConcat2,                            
    kNPSAnd,                                
    kNPSOr,                                 

    // function
    kNPSMod,                                
    kNPSShiftLeft,                          
    kNPSShiftRight,                         

    // 独自拡張
    kNPSObjectEqual,                        
    kNPSMakeRegex,                          

    // Unknown
    KNPSUnknownCode     = 0xffffffff        
};


enum {
    kNPSKindNone,       
    kNPSKindLink,       
    kNPSKindObject      
};


/* 型宣言 */

typedef newtRef     nps_node_t;


typedef struct {
    uint32_t    code;   
    nps_node_t  op1;    
    nps_node_t  op2;    
} nps_syntax_node_t;


typedef struct {
    bool            first_time;         

    uint16_t        numwarns;           
    uint16_t        numerrs;            

    const char *    fname;              
    uint32_t        lineno;             
    uint32_t        tokenpos;           
    uint16_t        yyleng;             
    char            linebuf[NEWT_LEX_LINEBUFFSIZE];  
} nps_env_t;


/* グローバル変数 */
extern nps_env_t    nps_env;        


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

#ifdef __cplusplus
extern "C" {
#endif


int         nps_yyinput(FILE * yyin, char * buff, int max_size);
void        nps_yyinit(void);
int         nps_yycleanup(void);


newtErr     NPSParse(const char * path, nps_syntax_node_t ** streeP, uint32_t * sizeP, bool is_file);

newtErr     NPSParseFile(const char * path,
                    nps_syntax_node_t ** streeP, uint32_t * sizeP);

newtErr     NPSParseStr(const char * s,
                    nps_syntax_node_t ** streeP, uint32_t * sizeP);

void        NPSCleanup(void);
void        NPSDumpSyntaxTree(FILE * f, nps_syntax_node_t * stree, uint32_t size);

//nps_node_t    NPSGetCX(void);

nps_node_t  NPSGenNode0(uint32_t code);
nps_node_t  NPSGenNode1(uint32_t code, nps_node_t op1);
nps_node_t  NPSGenNode2(uint32_t code, nps_node_t op1, nps_node_t op2);

nps_node_t  NPSGenOP1(uint32_t op, nps_node_t op1);
nps_node_t  NPSGenOP2(uint32_t op, nps_node_t op1, nps_node_t op2);

nps_node_t  NPSGenSend(nps_node_t receiver,
                    uint32_t op, nps_node_t msg, nps_node_t args);
nps_node_t  NPSGenResend(uint32_t op, nps_node_t msg, nps_node_t args);

nps_node_t  NPSGenIfThenElse(nps_node_t cond, nps_node_t ifthen, nps_node_t ifelse);
nps_node_t  NPSGenForLoop(nps_node_t index, nps_node_t v,
                    nps_node_t to, nps_node_t by, nps_node_t expr);
nps_node_t  NPSGenForeach(nps_node_t index, nps_node_t val, nps_node_t obj,
                    nps_node_t deeply, nps_node_t op, nps_node_t expr);
nps_node_t  NPSGenGlobalFn(nps_node_t name, nps_node_t args, nps_node_t expr);

newtRef     NPSMakePathExpr(newtRefArg sym1, newtRefArg sym2);
newtRef     NPSMakeArray(newtRefArg v);
newtRef     NPSAddArraySlot(newtRefArg r, newtRefArg v);
newtRef     NPSInsertArraySlot(newtRefArg r, uint32_t p, newtRefArg v);

newtRef     NPSMakeMap(newtRefArg v);
newtRef     NPSMakeFrame(newtRefArg slot, newtRefArg v);
newtRef     NPSSetSlot(newtRefArg r, newtRefArg slot, newtRefArg v);

newtRef     NPSMakeBinary(newtRefArg v);
newtRef     NPSAddARef(newtRefArg r, newtRefArg v);

void        NPSErrorStr(char c, char * s);
void        NPSError(int32_t err);


#ifdef __cplusplus
}
#endif


#endif /* NEWTPARSE_H */

---