ejs.h

samba最新软件

/*
 *	ejs.h - EJScript Language (ECMAScript) header.
 */

/********************************* Copyright **********************************/
/*
 *	@copy	default.g
 *	
 *	Copyright (c) Mbedthis Software LLC, 2003-2006. All Rights Reserved.
 *	Copyright (c) Michael O'Brien, 1994-1995. All Rights Reserved.
 *	Portions Copyright (c) GoAhead Software, 1995-2000. All Rights Reserved.
 *	
 *	This software is distributed under commercial and open source licenses.
 *	You may use the GPL open source license described below or you may acquire 
 *	a commercial license from Mbedthis Software. You agree to be fully bound 
 *	by the terms of either license. Consult the LICENSE.TXT distributed with 
 *	this software for full details.
 *	
 *	This software is open source; you can redistribute it and/or modify it 
 *	under the terms of the GNU General Public License as published by the 
 *	Free Software Foundation; either version 2 of the License, or (at your 
 *	option) any later version. See the GNU General Public License for more 
 *	details at: http://www.mbedthis.com/downloads/gplLicense.html
 *	
 *	This program is distributed WITHOUT ANY WARRANTY; without even the 
 *	implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
 *	
 *	This GPL license does NOT permit incorporating this software into 
 *	proprietary programs. If you are unable to comply with the GPL, you must
 *	acquire a commercial license to use this software. Commercial licenses 
 *	for this software and support services are available from Mbedthis 
 *	Software at http://www.mbedthis.com 
 *	
 *	@end
 */
/********************************** Includes **********************************/

#ifndef _h_EJS
#define _h_EJS 1

#include	"mpr.h"
#include	"ejsVar.h"

#ifdef __cplusplus
extern "C" {
#endif

/********************************* Prototypes *********************************/
/*
 *	Constants
 */
#if BLD_FEATURE_SQUEEZE
	#define EJS_GC_WORK_QUOTA		160		/* Allocations required before 
											   garbage colllection */

	#define EJS_PARSE_INCR			256		/* Growth factor */
	#define EJS_MAX_RECURSE			25		/* Sanity for maximum recursion */
	#define EJS_SMALL_OBJ_HASH_SIZE	11		/* Small object hash size */
	#define EJS_LIST_INCR			8		/* Growth increment for lists */
	#define EJS_MAX_BACKTRACE		10		/* Recursion limit for assert */

#else
	#define EJS_GC_WORK_QUOTA		500

	#define EJS_PARSE_INCR			1024
	#define EJS_MAX_RECURSE			100
	#define EJS_SMALL_OBJ_HASH_SIZE	11
	#define EJS_LIST_INCR			16
	#define EJS_MAX_BACKTRACE		25

#endif

/*
 *	Allocation increments for the default interpreter
 */
#define EJS_DEFAULT_VAR_INC			8		/* Var allocation increment */
#define EJS_DEFAULT_PROP_INC		96		/* Property allocation increment */
#define EJS_DEFAULT_OBJ_INC			24		/* Object allocation increment */
#define EJS_DEFAULT_STR_INC			64		/* Object allocation increment */

#define EJS_MIN_TIME_FOR_GC			300		/**< Need 1/3 sec for GC */
#define EJS_GC_MIN_WORK_QUOTA		50		/**< Min to stop thrashing */

/*
 *	Allocation increments for all non-default interpreters
 */
#define EJS_VAR_INC					32
#define EJS_PROP_INC				64
#define EJS_OBJ_INC					64
#define EJS_STR_INC					64

#define EJS_INC_FRAMES				8		/* Frame stack increment */
#define EJS_MAX_FRAMES				64		/* Max frame stack */

/*
 *	Lexical analyser tokens
 */
#define EJS_TOK_ERR					-1		/* Any error */
#define EJS_TOK_LPAREN				1		/* ( */
#define EJS_TOK_RPAREN				2		/* ) */
#define EJS_TOK_IF					3		/* if */
#define EJS_TOK_ELSE				4		/* else */
#define EJS_TOK_LBRACE				5		/* { */
#define EJS_TOK_RBRACE				6		/* } */
#define EJS_TOK_LOGICAL				7		/* ||, &&, ! */
#define EJS_TOK_EXPR				8		/* +, -, /, % */
#define EJS_TOK_SEMI				9		/* ; */
#define EJS_TOK_LITERAL				10		/* literal string */
#define EJS_TOK_METHOD_NAME			11		/* methodName( */
#define EJS_TOK_NEWLINE				12		/* newline white space */
#define EJS_TOK_ID					13		/* Identifier */
#define EJS_TOK_EOF					14		/* End of script */
#define EJS_TOK_COMMA				15		/* Comma */
#define EJS_TOK_VAR					16		/* var */
#define EJS_TOK_ASSIGNMENT			17		/* = */
#define EJS_TOK_FOR					18		/* for */
#define EJS_TOK_INC_DEC				19		/* ++, -- */
#define EJS_TOK_RETURN				20		/* return */
#define EJS_TOK_PERIOD				21		/* . */
#define EJS_TOK_LBRACKET			22		/* [ */
#define EJS_TOK_RBRACKET			23		/* ] */
#define EJS_TOK_NEW					24		/* new */
#define EJS_TOK_DELETE				25		/* delete */
#define EJS_TOK_IN					26		/* in */
#define EJS_TOK_FUNCTION			27		/* function */
#define EJS_TOK_NUMBER				28		/* Number */
#define EJS_TOK_CLASS				29		/* class */
#define EJS_TOK_EXTENDS				30		/* extends */
#define EJS_TOK_PUBLIC				31		/* public */
#define EJS_TOK_PRIVATE				32		/* private */
#define EJS_TOK_PROTECTED			33		/* private */
#define EJS_TOK_TRY					34		/* try */
#define EJS_TOK_CATCH				35		/* catch */
#define EJS_TOK_FINALLY				36		/* finally */
#define EJS_TOK_THROW				37		/* throw */
#define EJS_TOK_COLON				38		/* : */
#define EJS_TOK_GET					39		/* get */
#define EJS_TOK_SET					40		/* set */
#define EJS_TOK_MODULE				41		/* module */
#define EJS_TOK_EACH				42		/* each */

/*
 *	Expression operators
 */
#define EJS_EXPR_LESS				1		/* < */
#define EJS_EXPR_LESSEQ				2		/* <= */
#define EJS_EXPR_GREATER			3		/* > */
#define EJS_EXPR_GREATEREQ			4		/* >= */
#define EJS_EXPR_EQ					5		/* == */
#define EJS_EXPR_NOTEQ				6		/* != */
#define EJS_EXPR_PLUS				7		/* + */
#define EJS_EXPR_MINUS				8		/* - */
#define EJS_EXPR_DIV				9		/* / */
#define EJS_EXPR_MOD				10		/* % */
#define EJS_EXPR_LSHIFT				11		/* << */
#define EJS_EXPR_RSHIFT				12		/* >> */
#define EJS_EXPR_MUL				13		/* * */
#define EJS_EXPR_ASSIGNMENT			14		/* = */
#define EJS_EXPR_INC				15		/* ++ */
#define EJS_EXPR_DEC				16		/* -- */
#define EJS_EXPR_BOOL_COMP			17		/* ! */

/*
 *	Conditional operators
 */
#define EJS_COND_AND				1		/* && */
#define EJS_COND_OR					2		/* || */
#define EJS_COND_NOT				3		/* ! */

/**
 *	EJ Parsing States. Error and Return are be negative.
 */
#define EJS_STATE_ERR				-1		/**< Error state */
#define EJS_STATE_RET				-2		/**< Return statement */
#define EJS_STATE_EOF				-3		/**< End of file */
#define EJS_STATE_COND				2		/* Parsing a conditional stmt */
#define EJS_STATE_COND_DONE			3
#define EJS_STATE_RELEXP			4		/* Parsing a relational expr */
#define EJS_STATE_RELEXP_DONE		5
#define EJS_STATE_EXPR				6		/* Parsing an expression */
#define EJS_STATE_EXPR_DONE			7
#define EJS_STATE_STMT				8		/* Parsing General statement */
#define EJS_STATE_STMT_DONE			9
#define EJS_STATE_STMT_BLOCK_DONE	10		/* End of block "}" */
#define EJS_STATE_ARG_LIST			11		/* Method arg list */
#define EJS_STATE_ARG_LIST_DONE		12
#define EJS_STATE_DEC_LIST			16		/* Declaration list */
#define EJS_STATE_DEC_LIST_DONE		17
#define EJS_STATE_DEC				18		/* Declaration statement */
#define EJS_STATE_DEC_DONE			19

#define EJS_STATE_BEGIN				EJS_STATE_STMT

/*
 *	General parsing flags.
 */
#define EJS_FLAGS_EXE				0x1		/* Execute statements */
#define EJS_FLAGS_LOCAL				0x2		/* Get local vars only */
#define EJS_FLAGS_GLOBAL			0x4		/* Get global vars only */
#define EJS_FLAGS_CREATE			0x8		/* Create var */
#define EJS_FLAGS_ASSIGNMENT		0x10	/* In assignment stmt */
#define EJS_FLAGS_DELETE			0x20	/* Deleting a variable */
#define EJS_FLAGS_NEW				0x80	/* In a new stmt() */
#define EJS_FLAGS_EXIT				0x100	/* Must exit */
#define EJS_FLAGS_LHS				0x200	/* Left-hand-side of assignment */
#define EJS_FLAGS_FORIN				0x400	/* In "for (v in ..." */
#define EJS_FLAGS_CLASS_DEC			0x800	/* "class name [extends] name " */
#define EJS_FLAGS_TRY				0x2000	/* In a try {} block */
#define EJS_FLAGS_CATCH				0x4000	/* "catch (variable)" */
#define EJS_FLAGS_DONT_GC			0x8000	/* Don't garbage collect */
#define EJS_FLAGS_NO_ARGS			0x10000	/* Accessors don't use args */
#define EJS_FLAGS_ENUM_HIDDEN		0x20000	/* Enumerate hidden fields */
#define EJS_FLAGS_ENUM_BASE			0x40000	/* Enumerate base classes */
#define EJS_FLAGS_TRACE_ARGS		0x80000	/* Support for printv */
#define EJS_FLAGS_SHARED_SLAB		0x100000/* Using a shared slab */

/*
 *	Exceptions 
 */
#define EJS_ARG_ERROR		"ArgError"		/**< Method argument error */
#define EJS_ASSERT_ERROR	"AssertError"	/**< Assertion error */
#define EJS_EVAL_ERROR		"EvalError"		/**< General evalation error */
#define EJS_INTERNAL_ERROR	"InternalError"	/**< Internal error */
#define EJS_IO_ERROR		"IOError"		/**< IO or data error */
#define EJS_MEMORY_ERROR	"MemoryError"	/**< Memory allocation error */
#define EJS_RANGE_ERROR		"RangeError"	/**< Data out of range (div by 0) */
#define EJS_REFERENCE_ERROR	"ReferenceError"/**< Object or property reference */
#define EJS_SYNTAX_ERROR	"SyntaxError"	/**< Javascript syntax error */
#define EJS_TYPE_ERROR		"TypeError"		/**< Wrong type supplied */

/*
 *	E4X 
 */
#if BLD_FEATURE_EJS_E4X
#if BLD_FEATURE_SQUEEZE
#define E4X_BUF_SIZE				512		/* Initial buffer size for tokens */
#define E4X_BUF_MAX					(32 * 1024) /* Max size for tokens */
#define E4X_MAX_NODE_DEPTH			24		/* Max nesting of tags */
#else
#define E4X_BUF_SIZE				4096
#define E4X_BUF_MAX					(128 * 1024)
#define E4X_MAX_NODE_DEPTH			128
#endif

#define E4X_MAX_ELT_SIZE			(E4X_BUF_MAX-1)
#define E4X_TEXT_PROPERTY 			"-txt"
#define E4X_TAG_NAME_PROPERTY 		"-tag"
#define E4X_COMMENT_PROPERTY 		"-com"
#define E4X_ATTRIBUTES_PROPERTY 	"-att"
#define E4X_PI_PROPERTY				"-pi"
#define E4X_PARENT_PROPERTY			"-parent"
#endif

#if BLD_FEATURE_MULTITHREAD
/**
 *	Multithreaded lock function
 */
typedef void (*EjsLockFn)(void *lockData);
/**
 *	Multithreaded unlock function
 */
typedef void (*EjsUnlockFn)(void *lockData);
#endif

/*
 *	Token limits
 */
#define EJS_MAX_LINE				128		/* Maximum input line buffer */
#define EJS_MAX_TOKEN				640		/* Max input parse token */
#define EJS_TOKEN_STACK				3		/* Put back token stack */

/*
 *	Putback token 
 */

typedef struct EjsToken {
	char		tokbuf[EJS_MAX_TOKEN];
	int			tid;						/* Token ID */
} EjsToken;

/*
 *	EJ evaluation block structure
 */
typedef struct EjsInput {
	EjsToken	putBack[EJS_TOKEN_STACK]; 	/* Put back token stack */
	int			putBackIndex;				/* Top of stack index */
	char		line[EJS_MAX_LINE];			/* Current line */
	char		*fileName;					/* File or script name */
	int			lineLength;					/* Current line length */
	int			lineNumber;					/* Parse line number */
	int			lineColumn;					/* Column in line */
	struct EjsInput *next;					/* Used for backtraces */
	const char  *procName;					/* Gives name in backtrace */
	const char	*script;					/* Input script for parsing */
	char		*scriptServp;				/* Next token in the script */
	int			scriptSize;					/* Length of script */
	char		tokbuf[EJS_MAX_TOKEN];		/* Current token */
	int			tid;						/* Token ID */
	char		*tokEndp;					/* Pointer past end of token */
	char		*tokServp;					/* Pointer to next token char */
	struct EjsInput	*nextInput;				/* Free list of input structs */
} EjsInput;

/*
 *	Method call structure
 */
typedef struct EjsProc {
	MprArray	*args;						/* Args for method */
	EjsVar		*fn;						/* Method definition */
	char		*procName;					/* Method name */
} EjsProc;


/**
 *	@overview EJScript Service structure
 *	@description The EJScript service manages the overall language runtime. It 
 *		is the factory that creates interpreter instances via ejsCreateInterp.
 *		The EJScript service creates a master interpreter that holds the
 *		standard language classes and properties. When user interpreters are
 *		created, they reference (without copying) the master interpreter to
 *		gain access to the standard classes and types.
 *	@stability Prototype.
 *  @library libejs.
 * 	@see ejsOpenService, ejsCloseService, ejsCreateInterp, ejsDestoryInterp
 */
typedef struct EjsService {
	EjsVar		*globalClass;				/* Global class */
	struct Ejs  *master;					/* Master Interp inherited by all */
#if BLD_FEATURE_MULTITHREAD
	EjsLockFn	lock;
	EjsUnlockFn	unlock;
	void		*lockData;
#endif
} EjsService;


/*
 *	Memory statistics
 */
typedef struct EjsMemStats {
	uint		maxMem;
	uint		usedMem;
} EjsMemStats;


/*
 *	Garbage collection block alignment
 */
#define EJS_ALLOC_ALIGN(ptr) \
	(((ptr) + sizeof(void*) - 1) & ~(sizeof(void*) - 1))

/*
 *	Default GC tune factors
 */
#define EJS_GC_START_THRESHOLD	(32 * 1024)

/*
 *	The Garbage collector is a generational collector. It ages blocks and 
 *	optimizes the mark / sweep algorithm to focus on new and recent blocks
 */
typedef enum EjsGeneration {
	EJS_GEN_NEW 			= 0,
	EJS_GEN_RECENT_1 		= 1,
	EJS_GEN_RECENT_2 		= 2,
	EJS_GEN_OLD 			= 3,
	EJS_GEN_PERMANENT 		= 4,
	EJS_GEN_MAX 			= 5,
} EjsGeneration;

/*
 *	Garbage collector control
 */
typedef struct EjsGC {
	bool		enable;
	bool		enableDemandCollect;
	bool		enableIdleCollect;
	/*
 	 *	maxMemory should be set to be 95% of the real max memory limit
	 */
	uint		maxMemory;			/* Above this, Throw Memory exception. */
	int			workQuota;			/* Quota of work before GC */
	int			workDone;			/* Count of allocations */
	int			degraded;			/* Have exceeded maxMemory */

	/*
	 *	Debug Levels 0-N (increases verbosity)
	 *		1 -- Sweep and collection count
	 *		2 -- Trace objects deleted
 	 *		3 -- Trace objects marked
 	 *		4 -- Print alloc report when needing a demand allocation
	 *
	 */
	int			debugLevel;			/* In debug mode */
	int			collecting;			/* Running garbage collection */
	uint		collectionCount;	/* Number of times GC ran */
#if BLD_DEBUG
	int			gcIndent;			/* Indent formatting */
	int			objectsInUse;		/* Objects currently reachable */
	int			propertiesInUse;	/* Properties currently reachable */
#endif
} EjsGC;

/*
 *	Slab memory allocation 
 */
typedef struct EjsSlab {
	uint		allocIncrement;		/* Growth increment in slab */
	uint		size;				/* Size of allocations */
	EjsGCLink	freeList;			/* Free list (only next ptr is used) */
	EjsObj		*lastRecentBlock;	/* Saved for GC age generations phase */
	EjsGCLink	allocList[EJS_GEN_MAX];	/* Allocated block list */

#if BLD_FEATURE_ALLOC_STATS
	uint		totalAlloc;			/* Total count of allocation calls */
	uint		freeCount;			/* Number of blocks on the slab freelist */
	uint		allocCount;			/* Number of allocated blocks */
	uint		peakAllocated;		/* Peak allocated */ 
	uint		peakFree;			/* Peak on the free list */ 
	uint		totalReclaimed;		/* Total blocks reclaimed on sweeps */
	uint		totalSweeps;		/* Total sweeps */
#endif
} EjsSlab;


/**