13b7203622 2011-02-23        kinaba: //--- K.I.LIB ---
13b7203622 2011-02-23        kinaba: // kl_rythp.h : interpretor for simple script langauage 'Rythp'
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: #ifndef AFX_KIRYTHPVM_H__4F3C28A9_7EFE_4605_A149_2C0B9A9236E5__INCLUDED_
13b7203622 2011-02-23        kinaba: #define AFX_KIRYTHPVM_H__4F3C28A9_7EFE_4605_A149_2C0B9A9236E5__INCLUDED_
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: /*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*/
13b7203622 2011-02-23        kinaba: // kiVar : Rythp用のVariant変数型。ほとんどただのkiStr。
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: class kiVar : public kiStr
13b7203622 2011-02-23        kinaba: {
13b7203622 2011-02-23        kinaba: public:
13b7203622 2011-02-23        kinaba: 	kiVar() : kiStr(20) {}
13b7203622 2011-02-23        kinaba: 	explicit kiVar( const char* s ) : kiStr( s, 20 ){}
13b7203622 2011-02-23        kinaba: 	explicit kiVar( const kiStr& s ) : kiStr( s, 20 ){}
13b7203622 2011-02-23        kinaba: 	explicit kiVar( const kiVar& s ) : kiStr( s, 20 ){}
13b7203622 2011-02-23        kinaba: 	void operator = ( const char* s ){ kiStr::operator =(s); }
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: 	int getInt();
13b7203622 2011-02-23        kinaba: 	kiVar& quote();
13b7203622 2011-02-23        kinaba: 	kiVar& unquote();
13b7203622 2011-02-23        kinaba: };
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: /*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*/
13b7203622 2011-02-23        kinaba: // kiRythpVM : 最小限Rythp。実用には、派生して独自の exec_function を実装すべし
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: class kiRythpVM
13b7203622 2011-02-23        kinaba: {
13b7203622 2011-02-23        kinaba: public:
13b7203622 2011-02-23        kinaba: 	kiRythpVM();
13b7203622 2011-02-23        kinaba: 	virtual ~kiRythpVM() {}
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: public:
13b7203622 2011-02-23        kinaba: 	// eval
13b7203622 2011-02-23        kinaba: 	void eval( char* str, kiVar* ans=NULL );
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: protected:
13b7203622 2011-02-23        kinaba: 	// 引数を適当にevalや変数置き換えをした形で取得
13b7203622 2011-02-23        kinaba: 	void getarg( char* a, bool b, kiVar* arg );
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: 	// function実行。[ bool=処理したか？、 name=function名、 a,b,c=引数、 r=返値 ]
13b7203622 2011-02-23        kinaba: 	virtual bool exec_function( const kiVar& name,
13b7203622 2011-02-23        kinaba: 		const CharArray& a, const BoolArray& b,int c, kiVar* r );
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: private:
13b7203622 2011-02-23        kinaba: 	// 変数
13b7203622 2011-02-23        kinaba: 	kiVar ele[256];
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: 	// パラメータ分割
13b7203622 2011-02-23        kinaba: 	static char* split_tonext( char* p );
13b7203622 2011-02-23        kinaba: 	static char* split_toend( char* p );
13b7203622 2011-02-23        kinaba: 	static bool split( char* buf, CharArray& argv, BoolArray& argb, int& argc );
13b7203622 2011-02-23        kinaba: };
13b7203622 2011-02-23        kinaba: 
13b7203622 2011-02-23        kinaba: #endif