quakeforge/include/QF/progs.h

/*
	progs.h

	Progs VM Engine interface.

	Copyright (C) 1996-1997  Id Software, Inc.

	This program is free software; 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.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

	See the GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to:

		Free Software Foundation, Inc.
		59 Temple Place - Suite 330
		Boston, MA  02111-1307, USA

*/

#ifndef __QF_progs_h
#define __QF_progs_h

/** \defgroup progs QuakeC Virtual Machine (VM)
	\image html vm-mem.svg
	\image latex vm-mem.eps "VM memory map"
*/

#include "QF/math/bitop.h"
#include "QF/progs/pr_comp.h"
#include "QF/progs/pr_debug.h"

struct QFile_s;

/** \ingroup progs */
///@{
typedef struct progs_s progs_t;
typedef struct pr_resource_s pr_resource_t;
typedef struct edict_s edict_t;
///@}

//============================================================================

/** \defgroup progs_misc Miscelaneous functions
	\ingroup progs
*/
///@{

/** Initialize the progs engine.

	The first call will initialize subsystems common to all progs instances.

	\param pr		The progs engine instance to initialize.
*/
void PR_Init (progs_t *pr);

/** Shut down the progs engine.

	Shuts down only the specified progs engine. Frees resources allocated
	during progs init.

	\param pr		The progs engine instance to shut down.
*/
void PR_Shutdown (progs_t *pr);

/** Initialize the Cvars for the progs engine. Call before calling PR_Init().
*/
void PR_Init_Cvars (void);

void PR_Error (progs_t *pr, const char *error, ...) __attribute__((format(PRINTF,2,3), noreturn));
void PR_RunError (progs_t *pr, const char *error, ...) __attribute__((format(PRINTF,2,3), noreturn));

///@}

/** \defgroup progs_execution Execution
	\ingroup progs
*/
///@{

/** Ensure P_* macros point to the right place for passing parameters to progs
	functions.
	\param pr		pointer to ::progs_t VM struct

	\warning Failure to use this macro before assigning to the P_* macros can
	cause corruption of the VM data due to "register" based calling. Can be
	safely ignored for parameterless functions, or forwarding parameters
	though a builtin. However, it is ok (and encouraged) to call
	PR_SetupParams instead, as this macro calls PR_SetupParams with
	PR_MAX_PARAMS and 1 for the alignment.

	\hideinitializer
*/
#define PR_RESET_PARAMS(pr)	PR_SetupParams (pr, PR_MAX_PARAMS, 1)

/**	\name Detouring Function Calls

	These functions allow a builtin function that uses PR_CallFunction() to
	safely insert a call to another VM function. The +initialize diversion
	required by Objective-QuakeC uses this.

		PR_PushFrame (pr);
		__auto_type params = PR_SaveParams (pr);
		... set up parameters to detour_function
		PR_ExecuteProgram (pr, detour_function)
		PR_RestoreParams (pr, params);
		PR_PopFrame (pr);

*/
///@{
typedef struct pr_stashed_params_s {
	pr_type_t  *param_ptrs[2];
	int         argc;
	pr_type_t   params[1];
} pr_stashed_params_t;

/** Save the current parameters to the provided stash.

	\warning	The memory for the parameter stash is allocated using
				alloca().

	\param pr		pointer to ::progs_t VM struct
	\return			Pointer to a newly allocated and initialized parameter
					stash that has the current parameters saved to it.
	\hideinitializer
*/
#define PR_SaveParams(pr) \
	_PR_SaveParams((pr), \
				   alloca (field_offset (pr_stashed_params_t, \
										 params[(pr)->pr_argc \
												* (pr)->pr_param_size])))

/** [INTERNAL] Save the current parameters to the provided stash.

	\warning	Requires \a params to be correctly allocated. Use
				PR_SaveParams instead as it will create a suitable stash for
				saving the parameters.

	\param pr		pointer to ::progs_t VM struct
	\param params	location to save the parameters, must be of adequade size
					to hold \a pr_argc * \a pr_param_size words in \a params
	\return			\a params Allows the likes of:
						__auto_type params = PR_SaveParams (pr);
*/
pr_stashed_params_t *_PR_SaveParams (progs_t *pr, pr_stashed_params_t *params);

/** Restore the parameters saved by PR_SaveParams().
	\param pr		pointer to ::progs_t VM struct
	\param params	pointer to stash created by PR_SaveParams()
*/
void PR_RestoreParams (progs_t *pr, pr_stashed_params_t *params);
///@}

/** Push an execution frame onto the VM stack. Saves current execution state.
	\param pr		pointer to ::progs_t VM struct
*/
void PR_PushFrame (progs_t *pr);

/** Reserve space on the data stack and set up the param pointers.

	For v6p progs, this only sets up the param pointers as v6p progs do not
	have a data stack.

	For Ruamoko progs, space for at least \a num_params (each being 4 words)
	is created on the stack, with a minimum alignment of min_alignment words,
	or 4, whichever is larger.

	\param pr		pointer to ::progs_t VM struct
	\param num_params Number of parameter slots needed for the function call.
					Each slot is 4 words. dvec4 and lvec4 parameters require
					8 words and must be 8-word aligned. dvec3 and lvec3
					also require 8 words due to the minimum 4 word alignment,
					but have no alignment requirements themselves. Be sure to
					take this into account in size calculations.
	\param min_alignment Minimum number of words to which the stack will be
					aligned. Must be a power of two. Note that when passing
					dvec4 or lvec4 parameters, they have a hardware-enforced
					requirement of 8 word alignment. This means that for
					something like (int, lvec4), there will be an unused
					parameter slot between the int and the lvec4.
					Ignored for v6p progs.
	\return 		Pointer to the base of the created parameter area. For
					v6p progs, this is just .param_0, but for Ruamoko progs
					this will be the current top of the the data stack after
					adjustment for the parameter space.
	\note Attempting to pass more than PR_MAX_PARAMS parameters to v6p progs
	is a hard error.
*/
pr_type_t *PR_SetupParams (progs_t *pr, int num_params, int min_alignment);

/** Pop an execution frame from the VM stack. Restores execution state. Also
	frees any temporary strings allocated in this frame (via
	PR_FreeTempStrings()).
	\param pr		pointer to ::progs_t VM struct
*/
void PR_PopFrame (progs_t *pr);

/** Run a progs function. If \p fnum is a builtin rather than a progs
	function, PR_ExecuteProgram() will call the function and then immediately
	return to the caller. Nested calls are fully supported.
	\param pr		pointer to ::progs_t VM struct
	\param fnum		number of the function to call
	\note Calls PR_CallFunction()
*/
void PR_ExecuteProgram (progs_t *pr, pr_func_t fnum);

/** Setup to call a function. If \p fnum is a builtin rather than a progs
	function, then the function is called immediately. When called from a
	builtin function, and \p fnum is not a builtin, the progs function will
	execute upon return of control to PR_ExecuteProgram().
	\param pr		pointer to ::progs_t VM struct
	\param fnum		number of the function to call
	\param return_ptr pointer to location in which return values will be
					written
	\return			true if \p fnum was a progs function, false if \p fnum was
					a builtin
	\note Called by PR_ExecuteProgram, so the only time this should be called
	is in a builtin function that calls a progs function and returns
	immediately (eg, to implement `return progsfunc();`).
*/
int PR_CallFunction (progs_t *pr, pr_func_t fnum, pr_type_t *return_ptr);

///@}

/** \defgroup progs_load Loading
	\ingroup progs
*/
///@{

/** Type of functions that are called at progs load.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure
*/
typedef int pr_load_func_t (progs_t *pr);

/** Initialize a ::progs_t VM struct from an already open file.
	\param pr		pointer to ::progs_t VM struct
	\param file		handle of file from which to read progs data
	\param size		bytes of \p file to read

	\note \e All runtime strings (permanent or temporary) are allocated from
	the VM's dynamic memory space, so be sure \p zone is of sufficient size
	(by setting pr->zone_size prior to calling).  So far, 1MB has proven more
	than sufficient for Quakeword, even when using Ruamoko objects.
	\note If entities are used, ensure pr->max_edicts is set appropriately
	prior to calling.
*/
void PR_LoadProgsFile (progs_t *pr, struct QFile_s *file, int size);

/** Convenience wrapper for PR_LoadProgsFile() and PR_RunLoadFuncs().
	Searches for the specified file in the Quake filesystem.
	\param pr		pointer to ::progs_t VM struct
	\param progsname name of the file to load as progs data
*/
void PR_LoadProgs (progs_t *pr, const char *progsname);

/** Register a primary function to be called after the progs code has been
	loaded. These functions are remembered across progs loads. They will be
	called in order of registration.
	\param pr		pointer to ::progs_t VM struct
	\param func		function to call
*/
void PR_AddLoadFunc (progs_t *pr, pr_load_func_t *func);

/** Register a secondary function to be called after the progs code has been
	loaded. These functions will be forgotten after each load. They will be
	called in \e reverse order of being registered.
	\param pr		pointer to ::progs_t VM struct
	\param func		function to call
*/
void PR_AddLoadFinishFunc (progs_t *pr, pr_load_func_t *func);

/** Run all load functions. Any load function returning false will abort the
	load operation.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure

	Calls the first set of internal load functions followed by the supplied
	symbol resolution function, if any (progs_t::resolve), then the second set
	of internal load functions. After that, any primary load functions are
	called in order of registration, and if there is no debug handler,
	PR_RunPostLoadFuncs() is called.
*/
int PR_RunLoadFuncs (progs_t *pr);

/** Run any progs-dependent load functions.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure
	This means any \c .ctor functions in the progs, followed by any secondary
	load functions registered by either the primary load functions or the
	\.c ctor functions in \e reverse order of registration. This is called
	automatically by PR_RunLoadFuncs() if there is no debug handler, otherwise
	it is up to the host to call this function.
*/
int PR_RunPostLoadFuncs (progs_t *pr);

/** Validate the opcodes and statement addresses in the progs. This is an
	internal load function.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure

	\todo should this be elsewhere?
*/
int PR_Check_Opcodes (progs_t *pr);
int PR_Check_v6p_Opcodes (progs_t *pr);

void PR_BoundsCheckSize (progs_t *pr, pr_ptr_t addr, unsigned size);
void PR_BoundsCheck (progs_t *pr, int addr, etype_t type);

///@}

/** \defgroup progs_edict Edict management
	\ingroup progs
*/
///@{

struct edict_s {
	bool        free;
	progs_t    *pr;				///< progs owning this edict
	pr_uint_t   entnum;			///< number of this entity
	pr_uint_t   edict;			///< offset of this entity in pr_edict_area
	float       freetime;		///< sv.time when the object was freed
	void       *edata;			///< external per-edict data
};

// pr_edict.c
void ED_ClearEdict (progs_t *pr, edict_t *e, int val);
edict_t *ED_Alloc (progs_t *pr);
void ED_Free (progs_t *pr, edict_t *ed);
edict_t *ED_EdictNum(progs_t *pr, pr_uint_t n) __attribute__((pure));
pr_uint_t ED_NumForEdict(progs_t *pr, edict_t *e) __attribute__((pure));
void ED_Count (progs_t *pr);
bool PR_EdictValid (progs_t *pr, pr_uint_t e) __attribute__((pure));

// pr_debug.c
void ED_Print (progs_t *pr, edict_t *ed, const char *fieldname);
void ED_PrintEdicts (progs_t *pr, const char *fieldval);
void ED_PrintNum (progs_t *pr, pr_int_t ent, const char *fieldname);

// pr_parse.c
struct script_s;
struct plitem_s;
struct hashctx_s;
bool ED_ParseEpair (progs_t *pr, pr_type_t *base, pr_def_t *key,
						const char *s);
struct plitem_s *ED_EntityDict (progs_t *pr, edict_t *ed);
struct plitem_s *ED_GlobalsDict (progs_t *pr);
void ED_InitGlobals (progs_t *pr, struct plitem_s *globals);
void ED_InitEntity (progs_t *pr, struct plitem_s *entity, edict_t *ent);
struct plitem_s *ED_ConvertToPlist (struct script_s *script, int nohack,
									struct hashctx_s **hashctx);
struct plitem_s *ED_Parse (progs_t *pr, const char *data);
void ED_LoadFromFile (progs_t *pr, const char *data);
void ED_EntityParseFunction (progs_t *pr, void *data);

#define PR_edicts(p)		(*(p)->pr_edicts)

#define NEXT_EDICT(p,e)		((e) ? (e) + 1 : 0)
#define EDICT_TO_PROG(p,e)	((e) ? (e)->entnum * (p)->pr_edict_size : 0)
#define PROG_TO_EDICT(p,e)	(&PR_edicts(p)[(e) / (p)->pr_edict_size])
#define NUM_FOR_BAD_EDICT(p,e) ((e) ? (e)->entnum : 0)
#ifndef PR_PARANOID_PROGS
# define EDICT_NUM(p,n)		(PR_edicts (p) + (n))
# define NUM_FOR_EDICT(p,e)	NUM_FOR_BAD_EDICT ((p), (e))
#else
# define EDICT_NUM(p,n)		ED_EdictNum ((p), (n))
# define NUM_FOR_EDICT(p,e)	ED_NumForEdict ((p), (e))
#endif

///@}

/** \defgroup pr_symbols Symbol Management
	\ingroup progs
	Lookup functions for symbol name resolution.
*/
///@{

pr_def_t *PR_SearchDefs (pr_def_t *defs, unsigned num_defs, pr_ptr_t offset)
	__attribute__((pure));
pr_def_t *PR_FieldAtOfs (progs_t *pr, pr_ptr_t ofs) __attribute__((pure));
pr_def_t *PR_GlobalAtOfs (progs_t *pr, pr_ptr_t ofs) __attribute__((pure));

pr_def_t *PR_FindField (progs_t *pr, const char *name);
pr_def_t *PR_FindGlobal (progs_t *pr, const char *name);
dfunction_t *PR_FindFunction (progs_t *pr, const char *name);

int PR_ResolveGlobals (progs_t *pr);

int PR_AccessField (progs_t *pr, const char *name, etype_t type,
					const char *file, int line);

void PR_Undefined (progs_t *pr, const char *type, const char *name) __attribute__((noreturn));
///@}

//============================================================================

/** \defgroup progs_data_access Data Access
	\ingroup progs
	Macros for accessing data in the VM address space
*/

/** \defgroup prda_globals Globals
	\ingroup progs_data_access
	Typed global access macros. No checking is done against the QC type, but
	the appropriate C type will be used.
*/
///@{

/** Access a global as an arbitray type.

	More direct than G_STRUCT
	\par QC type:
		\c struct etc small enough to fit in a single parameter
	\param p		pointer to ::progs_t VM struct
	\param t		C type of the structure
	\param o		offset into global data space
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define G_PACKED(p,t,o)	(*(t *) &(p)->pr_globals[o])

/** \internal
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\param t		typename prefix (see pr_type_u)
	\return			lvalue of the appropriate type

	\hideinitializer
*/
#define G_var(p,o,t)	G_PACKED(p, pr_##t##_t, o)

/** Access a float global. Can be assigned to.

	\par QC type:
		\c float
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			float lvalue

	\hideinitializer
*/
#define G_FLOAT(p,o)	G_var (p, o, float)

/** Access a double global. Can be assigned to.

	\par QC type:
		\c double
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			double lvalue

	\hideinitializer
*/
#define G_DOUBLE(p,o)	G_var (p, o, double)

/** Access an int global. Can be assigned to.

	\par QC type:
		\c int
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			int lvalue

	\hideinitializer
*/
#define G_INT(p,o)		G_var (p, o, int)

/** Access an unsigned int global. Can be assigned to.

	\par QC type:
		\c uint
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			unsigned int lvalue

	\hideinitializer
*/
#define G_UINT(p,o)		G_var (p, o, uint)

/** Access a long global. Can be assigned to.

	\par QC type:
		\c long
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			long lvalue

	\hideinitializer
*/
#define G_LONG(p,o)		G_var (p, o, long)

/** Access an unsigned long global. Can be assigned to.

	\par QC type:
		\c ulong
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			unsigned long lvalue

	\hideinitializer
*/
#define G_ULONG(p,o)	G_var (p, o, ulong)

/** Access a vector global. Can be assigned to.

	\par QC type:
		\c vector
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			vec3_t lvalue

	\hideinitializer
*/
#define G_VECTOR(p,o)	(&G_var (p, o, float))

/** Access a quaternion global. Can be assigned to.

	\par QC type:
		\c quaternion
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			quat_t lvalue

	\hideinitializer
*/
#define G_QUAT(p,o)		(&G_var (p, o, float))

/** Access a string index global. Can be assigned to.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			pr_string_t lvalue

	\hideinitializer
*/
#define G_STRING(p,o)	G_var (p, o, string)

/** Access a function global. Can be assigned to.

	\par QC type:
		\c void()
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			pr_func_t lvalue

	\hideinitializer
*/
#define G_FUNCTION(p,o)	G_var (p, o, func)

/** Access a pointer global. Can be assigned to.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			pr_ptr_t lvalue

	\hideinitializer
*/
#define G_POINTER(p,o)	G_var (p, o, ptr)

/** Access a field global.

	\par QC type:
		\c field
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			field offset

	\hideinitializer
*/
#define G_FIELD(p,o)	G_var (p, o, field)

/** Access an entity global.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			entity "pointer"

	\hideinitializer
*/
#define G_ENTITY(p,o)	G_var (p, o, entity)

/** Access an entity global.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			C pointer to the entity

	\hideinitializer
*/
#define G_EDICT(p,o)	PROG_TO_EDICT ((p), G_INT (p, o))

/** Access an entity global.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			the entity number

	\hideinitializer
*/
#define G_EDICTNUM(p,o)	NUM_FOR_EDICT(p, G_EDICT (p, o))

/** Access a string global, converting it to a C string. Kills the program
	if the string is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			const char * to the string

	\hideinitializer
*/
#define G_GSTRING(p,o)	PR_GetString (p, G_STRING (p, o))

/** Access a dstring global. Kills the program if the dstring is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			dstring_t * to the dstring

	\hideinitializer
*/
#define G_DSTRING(p,o)	PR_GetMutableString (p, G_STRING (p, o))

/** Access a pointer parameter.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			C pointer represented by the parameter. 0 offset -> NULL

	\hideinitializer
*/
#define G_GPOINTER(p,o)	PR_GetPointer (p, o)

/** Access a structure global. Can be assigned to.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param t		C type of the structure
	\param o		offset into global data space
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define G_STRUCT(p,t,o)	(*(t *)G_GPOINTER (p, o))
///@}

/** \defgroup prda_parameters Parameters
	\ingroup progs_data_access
	Typed parameter access macros. No checking is done against the QC type, but
	the appropriate C type will be used.
*/
///@{

/** Access a parameter as an arbitray type.

	\par QC type:
		\c struct etc small enough to fit in a single parameter
	\param p		pointer to ::progs_t VM struct
	\param t		C type of the structure
	\param n		parameter number (0-7)
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define P_PACKED(p,t,n)	(*(t *) (p)->pr_params[n])

/** \internal
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\param t		typename prefix (see pr_type_u)
	\return			lvalue of the appropriate type

	\hideinitializer
*/
#define P_var(p,n,t)	P_PACKED(p, pr_##t##_t, n)

/** Access a float parameter. Can be assigned to.

	\par QC type:
		\c float
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			float lvalue

	\hideinitializer
*/
#define P_FLOAT(p,n)	P_var (p, n, float)

/** Access a double parameter. Can be assigned to.

	\par QC type:
		\c double
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			double lvalue

	\hideinitializer
*/
#define P_DOUBLE(p,n)	P_var (p, n, double)

/** Access an int parameter. Can be assigned to.

	\par QC type:
		\c int
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			int lvalue

	\hideinitializer
*/
#define P_INT(p,n)		P_var (p, n, int)

/** Access an unsigned int parameter. Can be assigned to.

	\par QC type:
		\c uint
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			unsigned int lvalue

	\hideinitializer
*/
#define P_UINT(p,n)		P_var (p, n, uint)

/** Access a long parameter. Can be assigned to.

	\par QC type:
		\c long
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			long lvalue

	\hideinitializer
*/
#define P_LONG(p,n)		P_var (p, n, long)

/** Access an unsigned long parameter. Can be assigned to.

	\par QC type:
		\c ulong
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			unsigned long lvalue

	\hideinitializer
*/
#define P_ULONG(p,n)	P_var (p, n, ulong)

/** Access a vector parameter. Can be used any way a vec3_t variable can.

	\par QC type:
		\c vector
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			vec3_t lvalue

	\hideinitializer
*/
#define P_VECTOR(p,n)	(&P_var (p, n, float))

/** Access a quaterion parameter. Can be used any way a quat_t variable can.

	\par QC type:
		\c quaterion
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			quat_t lvalue

	\hideinitializer
*/
#define P_QUAT(p,n)		(&P_var (p, n, float))

/** Access a string index parameter. Can be assigned to.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			pr_string_t lvalue

	\hideinitializer
*/
#define P_STRING(p,n)	P_var (p, n, string)

/** Access a function parameter. Can be assigned to.

	\par QC type:
		\c void()
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			pr_func_t lvalue

	\hideinitializer
*/
#define P_FUNCTION(p,n)	P_var (p, n, func)

/** Access a pointer parameter. Can be assigned to.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			pr_ptr_t lvalue

	\hideinitializer
*/
#define P_POINTER(p,n)	P_var (p, n, ptr)

/** Access an entity parameter.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			C pointer to the entity

	\hideinitializer
*/
#define P_EDICT(p,n)	PROG_TO_EDICT ((p), P_INT (p, n))

/** Access an entity parameter.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			the entity number

	\hideinitializer
*/
#define P_EDICTNUM(p,n)	NUM_FOR_EDICT (p, P_EDICT (p, n))

/** Access a string parameter, converting it to a C string. Kills the program
	if the string is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			const char * to the string

	\hideinitializer
*/
#define P_GSTRING(p,n)	PR_GetString (p, P_STRING (p, n))

/** Access a dstring parameter. Kills the program if the dstring is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			dstring_t * to the dstring

	\hideinitializer
*/
#define P_DSTRING(p,n)	PR_GetMutableString (p, P_STRING (p, n))

/** Access a pointer parameter.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param n		parameter number (0-7)
	\return			C pointer represented by the parameter. 0 offset -> NULL

	\hideinitializer
*/
#define P_GPOINTER(p,n)	PR_GetPointer (p, P_POINTER (p, n))

/** Access a structure pointer parameter.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param t		C type of the structure
	\param n		parameter number (0-7)
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define P_STRUCT(p,t,n)	(*(t *)P_GPOINTER (p, n))
///@}

/** \defgroup prda_return Return Values
	\ingroup progs_data_access
	Typed return value access. These macros are used to access the value
	returned by an interpreted VM function, and to return values from engine
	functions into progs space (that is, builtins).
	\warning No checking is performed against progs types; for example, if you
	ask for an \c int from a function that returned a \c float, you're asking
	for trouble.
*/
///@{

/** Access the VM function return value as an arbitray type.

	\par QC type:
		\c struct etc small enough to fit in the return slot
	\param p		pointer to ::progs_t VM struct
	\param t		C type of the structure
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define R_PACKED(p,t)	(*(t *) (p)->pr_return)

/** \internal
	\param p		pointer to ::progs_t VM struct
	\param t		typename prefix (see pr_type_u)
	\return			lvalue of the appropriate type

	\hideinitializer
*/
#define R_var(p,t)		R_PACKED(p, pr_##t##_t)

/** Access the VM function return value as a \c float

	\par QC type:
		\c float
	\param p		pointer to ::progs_t VM struct
	\return			float lvalue

	\hideinitializer
*/
#define R_FLOAT(p)		R_var (p, float)

/** Access the VM function return value as a \c double

	\par QC type:
		\c double
	\param p		pointer to ::progs_t VM struct
	\return			double lvalue

	\hideinitializer
*/
#define R_DOUBLE(p)		R_var  (p, double)

/** Access the VM function return value as a \c ::pr_int_t (AKA int32_t)

	\par QC type:
		\c int
	\param p		pointer to ::progs_t VM struct
	\return			::pr_int_t lvalue

	\hideinitializer
*/
#define R_INT(p)		R_var (p, int)

/** Access the VM function return value as a \c ::pr_uint_t (AKA uint32_t)

	\par QC type:
		\c uint
	\param p		pointer to ::progs_t VM struct
	\return			::pr_int_t lvalue

	\hideinitializer
*/
#define R_UINT(p)		R_var (p, uint)

/** Access the VM function return value as a \c ::pr_long_t (AKA int32_t)

	\par QC type:
		\c long
	\param p		pointer to ::progs_t VM struct
	\return			::pr_long_t lvalue

	\hideinitializer
*/
#define R_LONG(p)		R_var (p, long)

/** Access the VM function return value as a \c ::pr_ulong_t (AKA uint32_t)

	\par QC type:
		\c ulong
	\param p		pointer to ::progs_t VM struct
	\return			::pr_long_t lvalue

	\hideinitializer
*/
#define R_ULONG(p)		R_var (p, ulong)

/** Access the VM function return value as a \c ::vec3_t vector.

	\par QC type:
		\c vector
	\param p		pointer to ::progs_t VM struct
	\return			::vec3_t lvalue

	\hideinitializer
*/
#define R_VECTOR(p)		(&R_var (p, float))

/** Access the VM function return value as a \c ::quat_t quaternion.

	\par QC type:
		\c quaternion
	\param p		pointer to ::progs_t VM struct
	\return			::quat_t lvalue

	\hideinitializer
*/
#define R_QUAT(p)		(&R_var (p, float))

/** Access the VM function return value as a ::pr_string_t (a VM string reference).

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\return			::pr_string_t lvalue

	\hideinitializer
*/
#define R_STRING(p)		R_var (p, string)

/** Access the VM function return value as a ::pr_func_t (a VM function reference)

	\par QC type:
		\c void()
	\param p		pointer to ::progs_t VM struct
	\return			::pr_func_t lvalue

	\hideinitializer
*/
#define R_FUNCTION(p)	R_var (p, func)

/** Access the VM function return value as a ::pr_ptr_t (a VM "pointer")

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\return			::pr_ptr_t lvalue

	\hideinitializer
*/
#define R_POINTER(p)	R_var (p, ptr)


/** Set the return value to the given C string. The returned string will
	eventually be garbage collected (see PR_SetReturnString()).

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param s		C string to be returned

	\hideinitializer
*/
#define RETURN_STRING(p,s)		(R_STRING (p) = PR_SetReturnString((p), s))

/** Set the return value to the given C entity pointer. The pointer is
	converted into a progs entity address.

	\par QC type:
		\c entity
	\param p		pointer to ::progs_t VM struct
	\param e		C entity pointer to be returned

	\hideinitializer
*/
#define RETURN_EDICT(p,e)		(R_INT (p) = EDICT_TO_PROG(p, e))

/** Set the return value to the given C pointer. NULL is converted to 0.

	\par QC type:
		\c void *
	\param p		pointer to ::progs_t VM struct
	\param ptr		C entity pointer to be returned

	\hideinitializer
*/
#define RETURN_POINTER(p,ptr)	(R_POINTER (p) = PR_SetPointer (p, ptr))

/** Set the return value to the given vector.

	\par QC type:
		\c vector
	\param p		pointer to ::progs_t VM struct
	\param v		vector to be returned

	\hideinitializer
*/
#define RETURN_VECTOR(p,v)		VectorCopy (v, R_VECTOR (p))

/** Set the return value to the given quaterion.

	\par QC type:
		\c vector
	\param p		pointer to ::progs_t VM struct
	\param q		quaternion to be returned

	\hideinitializer
*/
#define RETURN_QUAT(p,q)		QuatCopy (q, R_QUAT (p))
///@}

/** \defgroup prda_entity_fields Entity Fields
	\ingroup progs_data_access
	Typed entity field access macros. No checking is done against the QC type,
	but the appropriate C type will be used.
*/
///@{

/** \internal
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			lvalue of the appropriate type

	\hideinitializer
*/
#define E_fld(e,o)	((e)->pr->pr_edict_area[(e)->edict + (o)])

/** Access an entity field as an arbitray type.

	\par QC type:
		\c struct etc small enough to fit in a single parameter
	\param e		pointer to the entity
	\param t		C type of the structure
	\param o		field offset into entity data space
	\return			structure lvalue. use & to make a pointer of the
					appropriate type.

	\hideinitializer
*/
#define E_PACKED(e,t,o)	(*(t *) &E_fld (e, o))

/** \internal
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\param t		typename prefix (see pr_type_u)
	\return			lvalue of the appropriate type

	\hideinitializer
*/
#define E_var(e,o,t)	E_PACKED (e, pr_##t##_t,o)


/** Access a float entity field. Can be assigned to.

	\par QC type:
		\c float
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			float lvalue

	\hideinitializer
*/
#define E_FLOAT(e,o)	E_var (e, o, float)

/** Access a double entity field. Can be assigned to.

	\par QC type:
		\c double
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			double lvalue

	\hideinitializer
*/
#define E_DOUBLE(e,o)	E_var (e, o, double)

/** Access an int entity field. Can be assigned to.

	\par QC type:
		\c int
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			int lvalue

	\hideinitializer
*/
#define E_INT(e,o)		E_var (e, o, int)

/** Access an unsigned int entity field. Can be assigned to.

	\par QC type:
		\c uint
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			unsigned int lvalue

	\hideinitializer
*/
#define E_UINT(e,o)		E_var (e, o, uint)

/** Access a long entity field. Can be assigned to.

	\par QC type:
		\c long
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			long lvalue

	\hideinitializer
*/
#define E_LONG(e,o)		E_var (e, o, long)

/** Access an unsigned long entity field. Can be assigned to.

	\par QC type:
		\c ulong
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			unsigned long lvalue

	\hideinitializer
*/
#define E_ULONG(e,o)	E_var (e, o, ulong)

/** Access a vector entity field. Can be used any way a vec3_t variable can.

	\par QC type:
		\c vector
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			vec3_t lvalue

	\hideinitializer
*/
#define E_VECTOR(e,o)	(&E_var (e, o, float))

/** Access a quaternion entity field. Can be used any way a quat_t variable
	can.

	\par QC type:
		\c quaterion
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			quat_t lvalue

	\hideinitializer
*/
#define E_QUAT(e,o)		E_var (e, o, float)

/** Access a string index entity field. Can be assigned to.

	\par QC type:
		\c string
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			pr_string_t lvalue

	\hideinitializer
*/
#define E_STRING(e,o)	E_var (e, o, string)

/** Access a function entity field. Can be assigned to.

	\par QC type:
		\c void()
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			pr_func_t lvalue

	\hideinitializer
*/
#define E_FUNCTION(e,o)	E_var (e, o, func)

/** Access a pointer entity field. Can be assigned to.

	\par QC type:
		\c void *
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			pr_ptr_t lvalue

	\hideinitializer
*/
#define E_POINTER(e,o)	E_var (e, o, ptr)


/** Access a string entity field, converting it to a C string. Kills the
	program if the string is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			const char * to the string

	\hideinitializer
*/
#define E_GSTRING(p,e,o) (PR_GetString (p, E_STRING (e, o)))

/** Access a dstring entity field. Kills the program if the dstring is invalid.

	\par QC type:
		\c string
	\param p		pointer to ::progs_t VM struct
	\param e		pointer to the entity
	\param o		field offset into entity data space
	\return			dstring_t * to the dstring

	\hideinitializer
*/
#define E_DSTRING(p,e,o) (PR_GetMutableString (p, E_STRING (e, o)))
///@}

/** \defgroup pr_builtins VM Builtin functions
	\ingroup progs
	Builtin management functions.

	Builtins are arranged into groups of 65536 to allow for diffent expantion
	sets. eg, stock id is 0x0000xxxx, quakeforge is 0x000fxxxx. predefined
	groups go up to 0x0fffxxxx allowing 4096 different groups. Builtins
	0x10000000 to 0x7fffffff are reserved for auto-allocation. The range
	0x8000000 to 0xffffffff is unavailable due to the builtin number being
	a negative statement address.
*/
///@{

#define PR_RANGE_SHIFT	16
#define PR_RANGE_MASK	0xffff0000

#define PR_RANGE_QF		0x000f

#define PR_RANGE_AUTO	0x1000
#define PR_RANGE_MAX	0x7fff
#define PR_RANGE_NONE	0xffff
#define PR_AUTOBUILTIN	(PR_RANGE_AUTO << PR_RANGE_SHIFT)

typedef void (*builtin_proc) (progs_t *pr, void *data);

/** Create a static array of these and pass the array to PR_RegisterBuiltins()
	to register the module's QC builtin functions.
*/
typedef struct {
	/// QC name of the builtin. Must be an exact match for automatically
	/// resolved builtins (func = \#0 in QC). NULL indicates end of array for
	/// PR_RegisterBuiltins()
	const char *name;
	/// Pointer to the C implementation of the builtin function.
	builtin_proc proc;
	/// The number of the builtin for \#N in QC. -1 for automatic allocation.
	/// 0 or >= ::PR_AUTOBUILTIN is invalid.
	pr_int_t    binum;
	/// The number of parameters the builtin takes. Negative numbers mean
	/// varargs with ~num_params (-num_params - 1) being the number of real
	/// parameters.
	pr_int_t    num_params;
	/// Parameter size specificiation.
	///
	/// Up to 8 parameters are supported for automatic parameter setup because
	/// that's all that v6p progs can pass. Builtins taking more than 8
	/// parameters are already Ruamoko-only and thus know how to deal with the
	/// parameters being on the data stack.
	///
	/// The encoding is the same as for progs functions, with 3:5 for
	/// alignment:size (size 0 means 32 words).
	dparmsize_t params[PR_MAX_PARAMS];

	/// Data passed to builtin functions. Set by PR_RegisterBuiltins
	void       *data;
} builtin_t;

#define PR_PARAM(type) { \
	.size = PR_SIZEOF(type) & 0x1f, \
	.alignment = BITOP_LOG2(PR_ALIGNOF(type)), \
}

/** Duplicate the dfunction_t descriptor with the addition of a pointer to the
	builtin function. Avoids a level of indirection when calling a builtin
	function.
*/
typedef struct {
	pr_int_t    first_statement;
	pr_int_t    numparams;
	pr_ulong_t   profile;
	union {
		struct {
			dparmsize_t param_size[PR_MAX_PARAMS];
			dfunction_t *descriptor;
			pr_uint_t   params_start;
			pr_uint_t   locals;
		};
		struct {
			// although Ruamoko progs support more than PR_MAX_PARAMS
			// arguments, only the first PR_MAX_PARAMS parameter pointers
			// are initialized. This keeps builtins meant for both ISAs
			// simple as they either will never accept more tha PR_MAX_PARAMS
			// arugments, or they'll be modified to do the right thing.
			pr_ushort_t  param_offsets[PR_MAX_PARAMS];
			builtin_proc func;
			void        *data;	///< extra data passed to the builtin
		};
	};
} bfunction_t;

/** Register a set of builtin functions with the VM. Different VMs within the
	same program can have different builtin sets. May be called multiple times
	for the same VM, but redefining a builtin is an error.
	\param pr		pointer to ::progs_t VM struct
	\param builtins	array of builtin_t builtins
	\param data		pointer to builtin-specific data. Usually the resources
					struct registered with PR_Resources_Register
*/
void PR_RegisterBuiltins (progs_t *pr, builtin_t *builtins, void *data);

/** Lookup a builtin function referred by name.
	\param pr		pointer to ::progs_t VM struct
	\param name		name of the builtin function to lookup
	\return			pointer to the builtin function entry, or NULL if not found
*/
builtin_t *PR_FindBuiltin (progs_t *pr, const char *name);

/** Lookup a builtin function by builtin number.
	\param pr		pointer to ::progs_t VM struct
	\param num		number of the builtin function to lookup
	\return			pointer to the builtin function entry, or NULL if not found
*/
builtin_t *PR_FindBuiltinNum (progs_t *pr, pr_int_t num);

/** Fixup all automatically resolved builtin functions (func = #0 in QC).
	Performs any necessary builtin function number mapping. Also builds the
	bfunction_t table. Called automatically during progs load.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure
*/
int PR_RelocateBuiltins (progs_t *pr);

///@}

/** \defgroup pr_strings String Management
	\ingroup progs
	Strings management functions.

	All strings accessable by the VM are stored within the VM address space.
	These functions provide facilities to set permanent, dynamic and
	temporary strings, as well as mutable strings using dstrings.

	Permanent strings are either supplied by the progs (+ve string index) or
	set by the main program using PR_SetString(). Permanent strings can never
	be altered and will exist until the next progs load.

	Dynamic strings can be freed at any time, but not altered.

	Temporary strings are always set by the main program using
	PR_SetTempString() or PR_CatStrings(). They will be freed when the
	current progs stack frame is cleared. Use PR_PushFrame() and PR_PopFrame()
	around the calls to PR_SetTempString() and PR_ExecuteProgram() when using
	strings as parameters to a progs function.

	Mutable strings are dstrings (dstring_t) mapped into the VM address space.
	They can be created, altered, and destroyed at any time by the main
	program (or the progs code via an appropriate builtin function).
*/
///@{

/** Initialize the string management subsystem.

	\param pr		The VM of which the string management subsystem will be
					initialized;
*/
void PR_Strings_Init (progs_t *pr);

/**	Initialize the string tables using the strings supplied by the progs.
	Called automatically during progs load.
	\param pr		pointer to ::progs_t VM struct
	\return			true for success, false for failure
*/
int PR_LoadStrings (progs_t *pr);

/** Check the validity of a string index.
	\param pr		pointer to ::progs_t VM struct
	\param num		string index to be validated
	\return			true if the index is valid, false otherwise
*/
bool PR_StringValid (progs_t *pr, pr_string_t num) __attribute__((pure));

/** Check if a string is valid and mutable.
	\param pr		pointer to ::progs_t VM struct
	\param num		string index to be checked
	\return			true if the string is valid and mutable, false otherwise
*/
bool PR_StringMutable (progs_t *pr, pr_string_t num) __attribute__((pure));

/** Convert a string index to a C string.
	\param pr		pointer to ::progs_t VM struct
	\param num		string index to be converted
	\return			C pointer to the string.
*/
const char *PR_GetString(progs_t *pr, pr_string_t num) __attribute__((pure));

/** Retrieve the dstring_t associated with a mutable string.
	\param pr		pointer to ::progs_t VM struct
	\param num		string index of the mutable string
	\return			the dstring implementing the mutable string
*/
struct dstring_s *PR_GetMutableString(progs_t *pr, pr_string_t num) __attribute__((pure));

/** Make a permanent progs string from the given C string. Will not create a
	duplicate permanent string (temporary and mutable strings are not checked).
	\param pr		pointer to ::progs_t VM struct
	\param s		C string to be made into a permanent progs string
	\return			string index of the progs string
*/
pr_string_t PR_SetString(progs_t *pr, const char *s);

/**	Get the progs string if it exists.
	Only static strings are searched.
	\param pr		pointer to ::progs_t VM struct
	\param s		C string to be found
	\return			string index of the progs string if it exists, otherwise
					0 (ambiguous with "").
*/
pr_string_t PR_FindString(progs_t *pr, const char *s);

/** Make a temporary progs string that will survive across function returns.
	Will not duplicate a permanent string. If a new progs string is created,
	it will be freed after ::PR_RS_SLOTS calls to this function. ie, up to
	::PR_RS_SLOTS return strings can exist at a time.
	\param pr		pointer to ::progs_t VM struct
	\param s		C string to be returned to the progs code
	\return			string index of the progs string
*/
pr_string_t PR_SetReturnString(progs_t *pr, const char *s);

/** Make a temporary progs string that will be freed when the current progs
	stack frame is exited. Will not duplicate a permantent string.
	\param pr		pointer to ::progs_t VM struct
	\param s		C string
	\return			string index of the progs string
*/
pr_string_t PR_SetTempString(progs_t *pr, const char *s);

/** Make a temporary memory block that will be freed when the current progs
	stack frame is exited. The contents may be anything and a new block is
	returned every time, and the block is in VM addressible space. To access
	the contents of the block (for reading, writing, etc), use PR_GetString()
	and cast the pointer as necessary.

	\param pr		pointer to ::progs_t VM struct
	\param size		size of block in bytes
	\return			string index of the block
*/
pr_string_t PR_AllocTempBlock (progs_t *pr, size_t size);

/**	Push a temporary string to the callee stack frame

	This is for when the temp string needs to be freed when the called function
	returns rather than the calling function. It is an error to push a non-temp
	string.

	\param pr		pointer to ::progs_t VM struct
	\param num		string index of the temp string
*/
void PR_PushTempString (progs_t *pr, pr_string_t num);

/** Make a temporary progs string that is the concatenation of two C strings.
	\param pr		pointer to ::progs_t VM struct
	\param a		C string
	\param b		C string
	\return			string index of the progs string that represents the
					concatenation of strings a and b
*/
pr_string_t PR_CatStrings (progs_t *pr, const char *a, const char *b);

/** Convert a mutable string to a temporary string.
	\param pr		pointer to ::progs_t VM struct
	\param str		string index of the mutable string to be converted
*/
void PR_MakeTempString(progs_t *pr, pr_string_t str);

/** Create a new mutable string.
	\param pr		pointer to ::progs_t VM struct
	\return			string index of the newly created mutable string
*/
pr_string_t PR_NewMutableString (progs_t *pr);

/** Make a dynamic progs string from the given C string. Will not create a
	duplicate permanent string (temporary, dynamic and mutable strings are
	not checked).
	\param pr		pointer to ::progs_t VM struct
	\param s		C string to be made into a permanent progs string
	\return			string index of the progs string
*/
pr_string_t PR_SetDynamicString (progs_t *pr, const char *s);

/** Convert an ephemeral string to a dynamic string.

	Valid strings that are not ephemeral (static, dynamic, mutable) will not
	be affected, but temp and return strings will be marked dynamic, requiring
	a call to PR_FreeString to return their memory.

	\param pr		pointer to ::progs_t VM struct
	\param str		The string to be "held" (made non-ephemeral). Safe to call
					on any valid string, but affects only ephemeral strings.
*/
void PR_HoldString (progs_t *pr, pr_string_t str);

/** Destroy a mutable, dynamic or temporary string.
	\param pr		pointer to ::progs_t VM struct
	\param str		string index of the string to be destroyed
*/
void PR_FreeString (progs_t *pr, pr_string_t str);

/** Free all the temporary strings allocated in the current stack frame.
	\param pr		pointer to ::progs_t VM struct
*/
void PR_FreeTempStrings (progs_t *pr);

/** Callback for handling %@ in PR_Sprintf format strings.

	\param pr		pointer to ::progs_t VM struct
	\param at_param	Parameter to be converted to a string. Usually a progs
					pointer value. It is the callee's responsibility to
					interpret the value as a pointer.
	\param data		User data pointer as passed to PR_Sprintf_SetAtHandler
	\return			String to be printed in place of %@
*/
typedef const char *(*prstr_at_handler_t) (progs_t *pr, pr_ptr_t at_param,
										   void *data);

/** Set the at_handler callback and its user data pointer.

	The at_handler callback defaults to null resulting in [ptr] in the output
	string. Setting the callback allows the at_handler to interpret the value
	(nominally pr_ptr_t, but always a 32-bit value) as it chooses.

	\param pr		pointer to ::progs_t VM struct
	\param at_handler Function pointer for callback to interpret the parameter
					corresponding to the %@ format specifier.
	\param data		User data pointer, passed to \a at_handler.
*/
void PR_Sprintf_SetAtHandler (progs_t *pr, prstr_at_handler_t at_handler,
							  void *data);

/** Formatted printing similar to C's vsprintf, but using QC types.
	The format string is a string of characters (other than \c \%) to be
	printed that includes optional format specifiers, one for each arg to be
	printed.
	A format specifier can be one of two forms:
	<ul>
	<li>\c "%%"	print a single \c '\%'
	<li><tt>%[flags][field width][precision](conversion specifier)</tt>	print a
			single arg of the type specified by the conversion specifier using
			the given format.
	</ul>

	<ul>
	<li>flags (optional)
		<ul>
		<li>\c '#'	print the value using an alternat form
		<li>\c '0'	the value should be zero padded
		<li>\c '-'	the value is to be left adjusted on the field bondary.
		<li><tt>' '</tt>	A blank should be left before a positve number (or
					empty string) produced by a signed conversion.
		<li>\c '+'	A sign (+ or -) will always be placed before a number
					produced by a signed conversion.
		</ul>
	<li>field width (optional)
		<ul>
		<li>a string of decimal digits with nonzero first digit.
		</ul>
	<li>precision (optional)
		<ul>
		<li>a string consisting of <tt>'.'</tt> followed by 0 or more decimal
			digits.
		</ul>
	<li>conversion specifier (mandatory)
		<ul>
		<li>\c '@'	\c id Not yet implemented. Silently ignored.
		<li>\c 'e'	\c entity Prints the edict number of the given entity ("%i")
		<li>\c 'i'	\c int Print a int value. ("%i")
		<li>\c 'f'	\c float Print a float value. ("%f")
		<li>\c 'g'	\c float Print a float value. ("%f")
		<li>\c 'p'	\c void * Print a pointer value. ("%#x")
		<li>\c 's'	\c string Print a string value. ("%s")
		<li>\c 'v'	\c vector Print a vector value. ("'%g %g %g'")
		<li>\c 'q'	\c quaternion Print a quaternion value. ("'%g %g %g %g'")
		<li>\c 'x'	\c uint Print an unsigned int value. ("%x")
		</ul>
	</ul>

	For details, refer to the C documentation for printf.

	\param pr		pointer to ::progs_t VM struct
	\param result	dstring to which printing is done
	\param name		name to be reported in case of errors
	\param format	the format string
	\param count	number of args
	\param args		array of pointers to the values to be printed
*/
void PR_Sprintf (progs_t *pr, struct dstring_s *result, const char *name,
				 const char *format, int count, pr_type_t **args);

///@}

/** \defgroup pr_resources Resource Management
	\ingroup progs
	Builtin module private data management.
*/
///@{

/** Initialize the resource management fields.

	\param pr		The VM of which the resource fields will be initialized.
*/
void PR_Resources_Init (progs_t *pr);

void PR_Resources_Shutdown (progs_t *pr);
void PR_Builtins_Shutdown (progs_t *pr);

/** Clear all resources before loading a new progs.

	Calls the clear() callback of all registered resources.

	\param pr		The VM of which the resources will be cleared.
*/
void PR_Resources_Clear (progs_t *pr);

/** Register a resource with a VM.

	\param pr		The VM to which the resource will be associated.
	\param name		The name of the resource. Used for retrieving the
					resource.
	\param data		The resource data.
	\param clear	Callback for performing any necessary cleanup before
					VM reuse. Called by PR_Resources_Clear(). The parameters
					are the current VM (\p pr) and \p data.
	\param destroy	Callback for when the resource is about to be destryed
					due to final VM shutdown. The parameters are the current
					VM (\p pr) and \p data.
	\note			The name should be unique to the VM, but no checking is
					done. If the name is not unique, the previous registered
					resource will break. The name of the sub-system
					registering the resource is a suitable name, and will
					probably be unique.
	\note			During VM shutdown, \a clear is called (for all resources)
					before \a destroy is called.
*/
void PR_Resources_Register (progs_t *pr, const char *name, void *data,
							void (*clear)(progs_t *, void *),
							void (*destroy)(progs_t *, void *));

/** Retrieve a resource registered with the VM.

	\param pr		The VM from which the resource will be retrieved.
	\param name		The name of the resource.
	\return			The resource, or NULL if \p name does not match any
					resource registered with the VM.
*/
void *PR_Resources_Find (progs_t *pr, const char *name);

/** \name Resource Map support

	These macros can be used to create functions for mapping C resources
	to QuakeC int handles.

	Valid handles are always negative.

	\note			\p map is the resource map itself, not a pointer to the
					resource map.
*/
///@{

/** Type delcaration for the resource map.

	\param type		The type of the resource. The size must be at least
					as large as \c sizeof(type *).
	\note			\a _size is <em>NOT</em> the number of objects in the
					map. It is the number of rows in the map array (each row
					has multiple objects).
*/
#define PR_RESMAP(type) struct { type *_free; type **_map; unsigned _size; }

#define PR_RESDELMAP(map)								\
	do {												\
		for (unsigned i = 0; i < (map)._size; i++) {	\
			free ((map)._map[i]);						\
		}												\
		free ((map)._map);								\
	} while (0)

/** Allocate a new resource from the resource map.

	\param map		The resource map.
	\return			A pointer to the new resource, or null if no more could
					be allocated.
*/
#define PR_RESNEW_NC(map)													\
	({																		\
		__auto_type ret = (map)._free;										\
		do {																\
			if (!(map)._free) {												\
				int         i, size;										\
				(map)._size++;												\
				size = (map)._size * sizeof ((map)._free);					\
				(map)._map = realloc ((map)._map, size);					\
				if (!(map)._map) {											\
					ret = 0;												\
					break;													\
				}															\
				(map)._free = malloc (1024 * sizeof (*(map)._free));		\
				if (!(map)._free) {											\
					ret = 0;												\
					break;													\
				}															\
				(map)._map[(map)._size - 1] = (map)._free;					\
				for (i = 0; i < 1023; i++) {								\
					*(typeof ((map)._free) *) &(map)._free[i]				\
						= &(map)._free[i + 1];								\
				}															\
				*(typeof ((map)._free) *) &(map)._free[i] = 0;				\
			}																\
			ret = (map)._free;												\
			(map)._free = *(typeof ((map)._free) *) ret;					\
		} while (0);														\
		ret;																\
	})

#define PR_RESNEW(map)														\
	({																		\
		__auto_type t = PR_RESNEW_NC (map);									\
		if (t) {															\
			memset (t, 0, sizeof (*(map)._free));							\
		}																	\
		t;																	\
	})

/** Free a resource returning it to the resource map.

	\param map		The resource map.
	\param t		Pointer to the resource to be freed.
*/
#define PR_RESFREE(map,t)									\
	do {													\
		memset (t, 0, sizeof (*(map)._free));				\
		*(typeof ((map)._free) *) t = (map)._free;			\
		(map)._free = t;									\
	} while (0)

/** Free all resources in the resource map.

	Any memory allocated to the resource must be freed before freeing the
	resource.

	A reset resource map is guaranteed to allocate elements sequentially.

	\param map		The resource map.
*/
#define PR_RESRESET(map)													\
	do {																	\
		unsigned    i, j;													\
		if (!(map)._size) {													\
			break;															\
		}																	\
		for (i = 0; i < (map)._size; i++) {									\
			(map)._free = (map)._map[i];									\
			for (j = 0; j < 1023; j++) {									\
				*(typeof ((map)._free) *) &(map)._free[j]					\
					= &(map)._free[j + 1];									\
			}																\
			if (i < (map)._size - 1) {										\
				*(typeof ((map)._free) *) &(map)._free[j]					\
					= &(map)._map[i + 1][0];								\
			} else {														\
				*(typeof ((map)._free) *) &(map)._free[j] = 0;				\
			}																\
		}																	\
		(map)._free = (map)._map[0];										\
	} while (0)

/** Retrieve a resource from the resource map using a handle.

	\param map		The resource map.
	\param ind		The handle.
	\return			A pointer to the resource, or NULL if the handle is
					invalid.
*/
#define PR_RESGET(map,ind)										\
	({															\
		__auto_type ret = (map)._free;							\
		unsigned    row = ~ind / 1024;							\
		unsigned    col = ~ind % 1024;							\
		if (row >= (map)._size) {								\
			ret = 0;											\
		} else {												\
			ret = &(map)._map[row][col];						\
		}														\
		ret;													\
	})

/** Convert a resource pointer to a handle.

	\param map		The resource map.
	\param ptr		The resource pointer.
	\return			The handle or 0 if the pointer is invalid.
*/
#define PR_RESINDEX(map,ptr)									\
	({															\
		unsigned    i;											\
		unsigned    index = 0;									\
		for (i = 0; i < (map)._size; i++) {						\
			long d = ptr - (map)._map[i];						\
			if (d >= 0 && d < 1024)	{							\
				index = ~(i * 1024 + d);						\
				break;											\
			}													\
		}														\
		index;													\
	})
///@}

///@}

/** \defgroup pr_zone VM memory management.
	\ingroup progs

	Used to allocate and free memory in the VM address space.
*/
///@{

void PR_Zone_Init (progs_t *pr);
void PR_Zone_Free (progs_t *pr, void *ptr);
void *PR_Zone_Malloc (progs_t *pr, pr_int_t size);
void *PR_Zone_Realloc (progs_t *pr, void *ptr, pr_int_t size);
void *PR_Zone_TagMalloc (progs_t *pr, int size, int tag);

///@}

/** \defgroup debug VM Debugging
	\ingroup progs
	Progs debugging support.
*/
/// \addtogroup debug
///@{

struct qfot_type_s;

/**	Callback for viewing progs data

	\param type		C pointer to the type definition by which to view the
					data.
	\param value	C pointer to the data to be viewed.
	\param data		User data.
*/
typedef void (*type_view_func) (struct qfot_type_s *type, pr_type_t *value,
								void *data);

/**	Set of callbacks for viewing progs data

	Each possible type has its own callback. Basic types (those for which the
	VM has specific instructions) all have separate callbacks, one for each
	type, but the callbacks for compound types are expected to some
	interpretation on their own, such as displaying a simple identifier or
	the entire contents of the data.
*/
typedef struct type_view_s {
	type_view_func struct_view;
	type_view_func union_view;
	type_view_func enum_view;
	type_view_func array_view;
	type_view_func class_view;
#define EV_TYPE(type) type_view_func type##_view;
#include "QF/progs/pr_type_names.h"
} type_view_t;

void PR_Debug_Init (progs_t *pr);
void PR_Debug_Init_Cvars (void);
void PR_DebugSetSym (progs_t *pr, pr_debug_header_t *debug);
int PR_LoadDebug (progs_t *pr);
const char *PR_Debug_GetBaseDirectory (progs_t *pr, const char *file);
void PR_Debug_Watch (progs_t *pr, const char *expr);
void PR_Debug_Print (progs_t *pr, const char *expr);
const char *PR_Debug_ValueString (progs_t *pr, pr_ptr_t offset,
								  struct qfot_type_s *type,
								  struct dstring_s *dstr);
pr_auxfunction_t *PR_Debug_AuxFunction (progs_t *pr, pr_uint_t func) __attribute__((pure));
pr_auxfunction_t *PR_Debug_MappedAuxFunction (progs_t *pr, pr_uint_t func) __attribute__((pure));
pr_def_t *PR_Debug_LocalDefs (progs_t *pr, pr_auxfunction_t *aux_function) __attribute__((pure));
pr_lineno_t *PR_Debug_Linenos (progs_t *pr, pr_auxfunction_t *aux_function,
							   pr_uint_t *num_linenos);
pr_auxfunction_t *PR_Get_Lineno_Func (progs_t *pr, pr_lineno_t *lineno) __attribute__((pure));
pr_uint_t PR_Get_Lineno_Addr (progs_t *pr, pr_lineno_t *lineno) __attribute__((pure));
pr_uint_t PR_Get_Lineno_Line (progs_t *pr, pr_lineno_t *lineno) __attribute__((pure));
pr_lineno_t *PR_Find_Lineno (progs_t *pr, pr_uint_t addr) __attribute__((pure));
pr_uint_t PR_FindSourceLineAddr (progs_t *pr, const char *file, pr_uint_t line) __attribute__((pure));
const char *PR_Get_Source_File (progs_t *pr, pr_lineno_t *lineno) __attribute__((pure));
const char *PR_Get_Source_Line (progs_t *pr, pr_uint_t addr);
pr_def_t *PR_Get_Param_Def (progs_t *pr, dfunction_t *func, unsigned parm) __attribute__((pure));
pr_def_t *PR_Get_Local_Def (progs_t *pr, pr_ptr_t *offs) __attribute__((pure));
void PR_PrintStatement (progs_t *pr, dstatement_t *s, int contents);
void PR_DumpState (progs_t *pr);
void PR_StackTrace (progs_t *pr);
void PR_Profile (progs_t *pr);

extern int pr_debug;
extern char *pr_source_path;
extern int pr_deadbeef_ents;
extern int pr_deadbeef_locals;
extern int pr_boundscheck;
extern int pr_faultchecks;

///@}

/** \defgroup pr_cmds Quake and Quakeworld common builtins
	\ingroup progs
	\todo This really doesn't belong in progs.
*/
///@{

char *PF_VarString (progs_t *pr, int first, int count);
void PR_Cmds_Init (progs_t *pr);

extern const char *pr_gametype;

///@}

//============================================================================

#define PR_MAX_STACK_DEPTH	64
#define PR_LOCAL_STACK_SIZE	4096
#define PR_RS_SLOTS			16
#define PR_BASE_IND(o, b)	(((o) & OP_##b##_BASE) >> OP_##b##_SHIFT)
#define PR_BASE(p, s, b)	(p->pr_bases[PR_BASE_IND(s->op, b)])

typedef struct strref_s strref_t;

typedef struct {
	pr_uivec4_t bases;				///< base registers on entry to function
	pr_uint_t   staddr;				///< Return statement.
	pr_uint_t   stack_ptr;			///< data stack on entry to function
	bfunction_t *func;				///< Calling function.
	strref_t   *tstr;				///< Linked list of temporary strings.
	pr_type_t  *return_ptr;			///< Saved return address
} prstack_t;

struct progs_s {
	int       (*parse_field) (progs_t *pr, const char *key, const char *value);

	int         null_bad;
	int         no_exec_limit;

	struct hashctx_s **hashctx;
	void      (*file_error) (progs_t *pr, const char *path);
	void     *(*load_file) (progs_t *pr, const char *path, off_t *size);
	void     *(*allocate_progs_mem) (progs_t *pr, int size);
	void      (*free_progs_mem) (progs_t *pr, void *mem);

	int       (*resolve) (progs_t *pr);

	const char *progs_name;

	dprograms_t *progs;
	int         progs_size;
	unsigned short crc;
	int         denorm_found;

	struct memzone_s *zone;
	int         zone_size;			///< set by user

	/// \name builtin functions
	///@{
	struct hashtab_s *builtin_hash;
	struct hashtab_s *builtin_num_hash;
	struct biblock_s *builtin_blocks;
	builtin_t  *bi_no_function;
	unsigned    bi_next;
	unsigned  (*bi_map) (progs_t *pr, unsigned binum);
	///@}

	/// \name symbol management
	///@{
	struct hashtab_s *function_hash;
	struct hashtab_s *global_hash;
	struct hashtab_s *field_hash;
	///@}

	/// \name type encodings
	///@{
	struct hashtab_s *type_hash;
	pr_ptr_t    type_encodings;
	///@}

	/// \name load hooks
	///@{
	int         num_load_funcs;
	int         max_load_funcs;
	pr_load_func_t **load_funcs;

	/// cleared each load
	///@{
	int         num_load_finish_funcs;
	int         max_load_finish_funcs;
	pr_load_func_t **load_finish_funcs;
	///@}
	///@}

	/// \name string management
	///@{
	struct prstr_resources_s *pr_string_resources;
	strref_t   *pr_xtstr;
	strref_t   *pr_pushtstr;
	int         float_promoted;	///< for PR_Sprintf
	///@}

	/// \name memory map
	///@{
	dfunction_t *pr_functions;
	bfunction_t *function_table;
	char       *pr_strings;
	int         pr_stringsize;
	pr_def_t   *pr_globaldefs;
	pr_def_t   *pr_fielddefs;
	dstatement_t *pr_statements;
	pr_type_t  *pr_globals;
	pr_uint_t   globals_size;
	pr_uint_t   null_size;		///< size of block considered null page
	pr_uivec4_t pr_bases;		///< base registers (index in opcode)
	///@}

	/// \name parameter block
	///@{
	pr_type_t  *pr_return;
	pr_type_t  *pr_params[PR_MAX_PARAMS];
	pr_type_t  *pr_real_params[PR_MAX_PARAMS];
	int         pr_param_size;		///< covers both params and return
	int         pr_param_alignment;	///< covers both params and return
	pr_type_t  *pr_return_buffer;	///< for discarded return values
									///< or returning values to C
	///@}

	/// \name edicts
	/// \todo FIXME should this be outside the VM?
	///@{
	edict_t   **pr_edicts;
	pr_uint_t   max_edicts;			///< set by user
	pr_uint_t  *num_edicts;
	pr_uint_t  *reserved_edicts;	///< alloc will start at reserved_edicts+1
	void      (*unlink) (edict_t *ent);
	void      (*flush) (void);
	int       (*prune_edict) (progs_t *pr, edict_t *ent);
	void      (*free_edict) (progs_t *pr, edict_t *ent);
	pr_type_t  *pr_edict_area;
	int         pr_edict_size;		///< # of pr_type_t slots
	pr_uint_t   pr_edict_area_size;	///< for bounds checking, starts at 0
	pr_func_t   edict_parse;
	///@}

	/// \name execution state
	///@{
	int         pr_argc;	//FIXME need a good way to ensure it is correct

	bool        pr_trace;
	int         pr_trace_depth;
	bfunction_t *pr_xfunction;
	int         pr_xstatement;

	prstack_t   pr_stack[PR_MAX_STACK_DEPTH];
	int         pr_depth;

	/// \name progs visible stack
	/// Usable by the progs for any purpose. Will not be accessible unless
	/// a .stack global is found. Space is allocated from the top of the stack
	/// (as is common for hardware). The push and pop instructions will not
	/// be considered valid if there is no .stack global.
	/// \note The return address and saved locals will not ever be on this
	/// stack.
	///@{
	pr_type_t  *stack;
	pr_ptr_t    stack_bottom;
	int         stack_size;			///< set by user
	///@}

	int         localstack[PR_LOCAL_STACK_SIZE];
	int         localstack_used;
	///@}

	/// \name resources
	///@{
	pr_resource_t *resources;
	struct hashtab_s *resource_hash;
	///@}

	/// \name obj info
	///@{
	struct probj_resources_s *pr_objective_resources;
	///@}

	/// \name debugging
	///@{
	struct prdeb_resources_s *pr_debug_resources;
	void      (*debug_handler) (prdebug_t event, void *param, void *data);
	void       *debug_data;
	pr_type_t  *watch;
	int         wp_conditional;
	pr_type_t   wp_val;
	///@}

	/// \name globals and fields needed by the VM
	///@{
	struct {
		double     *dtime;		///< required for OP_STATE d
		float      *ftime;		///< required for OP_STATE f
		pr_uint_t  *self;		///< required for OP_STATE
		pr_ptr_t   *stack;		///< required for OP_(PUSH|POP)*
	} globals;
	struct {
		pr_int_t    nextthink;	///< required for OP_STATE
		pr_int_t    frame;		///< required for OP_STATE
		pr_int_t    think;		///< required for OP_STATE
		pr_int_t    this;		///< optional for entity<->object linking
	} fields;
	///@}
};

/** \addtogroup progs_data_access
*/
///@{

/** Convert a progs offset/pointer to a C pointer.
	\param pr		pointer to ::progs_t VM struct
	\param o		offset into global data space
	\return			C pointer represented by the parameter. 0 offset -> NULL
*/
static inline pr_type_t *
PR_GetPointer (const progs_t *pr, pr_ptr_t o)
{
	return o ? pr->pr_globals + o : 0;
}

/** Convert a C pointer to a progs offset/pointer.
	\param pr		pointer to ::progs_t VM struct
	\param p		C pointer to be converted.
	\return			Progs offset/pointer represented by \c p. NULL -> 0 offset
*/
static inline pr_ptr_t
PR_SetPointer (const progs_t *pr, const void *p)
{
	return p ? (const pr_type_t *) p - pr->pr_globals : 0;
}

///@}

/** \example vm-exec.c
*/

#endif//__QF_progs_h