410db5d6b0
tweak drawtextfield to understand fonts. now available to menuqc too. provide player and full server info to qc server browsers. allow qc to actually use cfg_save. I've been issuing that on quit for a while now and not noticed that it was getting denied. fix some focus issues with cwindows. tweak splitscreens to display centerprints+scoreboards in more suitable places. harder to glitch out. path command can now displays hashes (in tooltips), which can be useful for creating fmf files. fix q3game crash. fix some qcc issues with hexenc and -O0. fix some qccgui unicode issues, now preserves encoding when saving. provide easy upgrade path for qccx syntax to fteqcc: string[%1] -> string+1 (which is still potentially unsafe (tempstrings), and thus generates a compiler warning). rework xmpp plugin to use cwindows for chats and the buddylist. this should make it more intuitive and thus more userfriendly. git-svn-id: https://svn.code.sf.net/p/fteqw/code/trunk@4865 fc73d0e0-1445-4013-8a0c-d673dee63da5
610 lines
11 KiB
C
610 lines
11 KiB
C
// this file is shared by the execution and compiler
|
|
|
|
/*i'm part way through making this work
|
|
I've given up now that I can't work out a way to load pointers.
|
|
Setting them should be fine.
|
|
*/
|
|
#ifndef __PR_COMP_H__
|
|
#define __PR_COMP_H__
|
|
|
|
/*
|
|
#ifdef USE_MSVCRT_DEBUG
|
|
void *BZ_MallocNamed(int size, char *file, int line);
|
|
void *BZ_ReallocNamed(void *data, int newsize, char *file, int line);
|
|
void BZ_Free(void *data);
|
|
#define BZ_Malloc(size) BZ_MallocNamed(size, __FILE__, __LINE__)
|
|
#define BZ_Realloc(ptr, size) BZ_ReallocNamed(ptr, size, __FILE__, __LINE__)
|
|
#define malloc BZ_Malloc
|
|
#define realloc BZ_Realloc
|
|
#define free BZ_Free
|
|
#endif
|
|
*/
|
|
|
|
typedef int dstring_t;
|
|
#define QCC_string_t dstring_t
|
|
|
|
//typedef enum {ev_void, ev_string, ev_float, ev_vector, ev_entity, ev_field, ev_function, ev_pointer, ev_integer, ev_struct, ev_union} etype_t;
|
|
// 0 1 2 3 4 5 6 7 8 9 10
|
|
|
|
#define OFS_NULL 0
|
|
#define OFS_RETURN 1
|
|
#define OFS_PARM0 4 // leave 3 ofs for each parm to hold vectors
|
|
#define OFS_PARM1 7
|
|
#define OFS_PARM2 10
|
|
#define OFS_PARM3 13
|
|
#define OFS_PARM4 16
|
|
#define OFS_PARM5 19
|
|
#define OFS_PARM6 22
|
|
#define OFS_PARM7 25
|
|
#define RESERVED_OFS 28
|
|
|
|
|
|
enum qcop_e {
|
|
OP_DONE, //0
|
|
OP_MUL_F,
|
|
OP_MUL_V,
|
|
OP_MUL_FV,
|
|
OP_MUL_VF,
|
|
OP_DIV_F,
|
|
OP_ADD_F,
|
|
OP_ADD_V,
|
|
OP_SUB_F,
|
|
OP_SUB_V,
|
|
|
|
OP_EQ_F, //10
|
|
OP_EQ_V,
|
|
OP_EQ_S,
|
|
OP_EQ_E,
|
|
OP_EQ_FNC,
|
|
|
|
OP_NE_F,
|
|
OP_NE_V,
|
|
OP_NE_S,
|
|
OP_NE_E,
|
|
OP_NE_FNC,
|
|
|
|
OP_LE_F, //20
|
|
OP_GE_F,
|
|
OP_LT_F,
|
|
OP_GT_F,
|
|
|
|
OP_LOAD_F,
|
|
OP_LOAD_V,
|
|
OP_LOAD_S,
|
|
OP_LOAD_ENT,
|
|
OP_LOAD_FLD,
|
|
OP_LOAD_FNC,
|
|
|
|
OP_ADDRESS, //30
|
|
|
|
OP_STORE_F,
|
|
OP_STORE_V,
|
|
OP_STORE_S,
|
|
OP_STORE_ENT,
|
|
OP_STORE_FLD,
|
|
OP_STORE_FNC,
|
|
|
|
OP_STOREP_F,
|
|
OP_STOREP_V,
|
|
OP_STOREP_S,
|
|
OP_STOREP_ENT, //40
|
|
OP_STOREP_FLD,
|
|
OP_STOREP_FNC,
|
|
|
|
OP_RETURN,
|
|
OP_NOT_F,
|
|
OP_NOT_V,
|
|
OP_NOT_S,
|
|
OP_NOT_ENT,
|
|
OP_NOT_FNC,
|
|
OP_IF_I,
|
|
OP_IFNOT_I, //50
|
|
OP_CALL0, //careful... hexen2 and q1 have different calling conventions
|
|
OP_CALL1, //remap hexen2 calls to OP_CALL2H
|
|
OP_CALL2,
|
|
OP_CALL3,
|
|
OP_CALL4,
|
|
OP_CALL5,
|
|
OP_CALL6,
|
|
OP_CALL7,
|
|
OP_CALL8,
|
|
OP_STATE, //60
|
|
OP_GOTO,
|
|
OP_AND_F,
|
|
OP_OR_F,
|
|
|
|
OP_BITAND_F,
|
|
OP_BITOR_F,
|
|
|
|
|
|
//these following ones are Hexen 2 constants.
|
|
|
|
OP_MULSTORE_F, //66 redundant, for h2 compat
|
|
OP_MULSTORE_VF, //67 redundant, for h2 compat
|
|
OP_MULSTOREP_F, //68
|
|
OP_MULSTOREP_VF,//69
|
|
|
|
OP_DIVSTORE_F, //70 redundant, for h2 compat
|
|
OP_DIVSTOREP_F, //71
|
|
|
|
OP_ADDSTORE_F, //72 redundant, for h2 compat
|
|
OP_ADDSTORE_V, //73 redundant, for h2 compat
|
|
OP_ADDSTOREP_F, //74
|
|
OP_ADDSTOREP_V, //75
|
|
|
|
OP_SUBSTORE_F, //76 redundant, for h2 compat
|
|
OP_SUBSTORE_V, //77 redundant, for h2 compat
|
|
OP_SUBSTOREP_F, //78
|
|
OP_SUBSTOREP_V, //79
|
|
|
|
OP_FETCH_GBL_F, //80
|
|
OP_FETCH_GBL_V, //81
|
|
OP_FETCH_GBL_S, //82
|
|
OP_FETCH_GBL_E, //83
|
|
OP_FETCH_GBL_FNC,//84
|
|
|
|
OP_CSTATE, //85
|
|
OP_CWSTATE, //86
|
|
|
|
OP_THINKTIME, //87
|
|
|
|
OP_BITSETSTORE_F, //88 redundant, for h2 compat
|
|
OP_BITSETSTOREP_F, //89
|
|
OP_BITCLRSTORE_F, //90
|
|
OP_BITCLRSTOREP_F, //91
|
|
|
|
OP_RAND0, //92
|
|
OP_RAND1, //93
|
|
OP_RAND2, //94
|
|
OP_RANDV0, //95
|
|
OP_RANDV1, //96
|
|
OP_RANDV2, //97
|
|
|
|
OP_SWITCH_F, //98
|
|
OP_SWITCH_V, //99
|
|
OP_SWITCH_S, //100
|
|
OP_SWITCH_E, //101
|
|
OP_SWITCH_FNC, //102
|
|
|
|
OP_CASE, //103
|
|
OP_CASERANGE, //104
|
|
|
|
|
|
|
|
|
|
|
|
//the rest are added
|
|
//mostly they are various different ways of adding two vars with conversions.
|
|
|
|
OP_CALL1H,
|
|
OP_CALL2H,
|
|
OP_CALL3H,
|
|
OP_CALL4H,
|
|
OP_CALL5H,
|
|
OP_CALL6H, //110
|
|
OP_CALL7H,
|
|
OP_CALL8H,
|
|
|
|
|
|
OP_STORE_I,
|
|
OP_STORE_IF,
|
|
OP_STORE_FI,
|
|
|
|
OP_ADD_I,
|
|
OP_ADD_FI,
|
|
OP_ADD_IF,
|
|
|
|
OP_SUB_I,
|
|
OP_SUB_FI, //120
|
|
OP_SUB_IF,
|
|
|
|
OP_CONV_ITOF,
|
|
OP_CONV_FTOI,
|
|
OP_CP_ITOF,
|
|
OP_CP_FTOI,
|
|
OP_LOAD_I,
|
|
OP_STOREP_I,
|
|
OP_STOREP_IF,
|
|
OP_STOREP_FI,
|
|
|
|
OP_BITAND_I, //130
|
|
OP_BITOR_I,
|
|
|
|
OP_MUL_I,
|
|
OP_DIV_I,
|
|
OP_EQ_I,
|
|
OP_NE_I,
|
|
|
|
OP_IFNOT_S,
|
|
OP_IF_S,
|
|
|
|
OP_NOT_I,
|
|
|
|
OP_DIV_VF,
|
|
|
|
OP_BITXOR_I, //140
|
|
OP_RSHIFT_I,
|
|
OP_LSHIFT_I,
|
|
|
|
OP_GLOBALADDRESS,
|
|
OP_ADD_PIW, //add B words to A pointer
|
|
|
|
OP_LOADA_F,
|
|
OP_LOADA_V,
|
|
OP_LOADA_S,
|
|
OP_LOADA_ENT,
|
|
OP_LOADA_FLD,
|
|
OP_LOADA_FNC, //150
|
|
OP_LOADA_I,
|
|
|
|
OP_STORE_P, //152... erm.. wait...
|
|
OP_LOAD_P,
|
|
|
|
OP_LOADP_F,
|
|
OP_LOADP_V,
|
|
OP_LOADP_S,
|
|
OP_LOADP_ENT,
|
|
OP_LOADP_FLD,
|
|
OP_LOADP_FNC,
|
|
OP_LOADP_I, //160
|
|
|
|
OP_LE_I,
|
|
OP_GE_I,
|
|
OP_LT_I,
|
|
OP_GT_I,
|
|
|
|
OP_LE_IF,
|
|
OP_GE_IF,
|
|
OP_LT_IF,
|
|
OP_GT_IF,
|
|
|
|
OP_LE_FI,
|
|
OP_GE_FI, //170
|
|
OP_LT_FI,
|
|
OP_GT_FI,
|
|
|
|
OP_EQ_IF,
|
|
OP_EQ_FI,
|
|
|
|
//-------------------------------------
|
|
//string manipulation.
|
|
OP_ADD_SF, //(char*)c = (char*)a + (float)b add_fi->i
|
|
OP_SUB_S, //(float)c = (char*)a - (char*)b sub_ii->f
|
|
OP_STOREP_C,//(float)c = *(char*)b = (float)a
|
|
OP_LOADP_C, //(float)c = *(char*)
|
|
//-------------------------------------
|
|
|
|
|
|
OP_MUL_IF,
|
|
OP_MUL_FI, //180
|
|
OP_MUL_VI,
|
|
OP_MUL_IV,
|
|
OP_DIV_IF,
|
|
OP_DIV_FI,
|
|
OP_BITAND_IF,
|
|
OP_BITOR_IF,
|
|
OP_BITAND_FI,
|
|
OP_BITOR_FI,
|
|
OP_AND_I,
|
|
OP_OR_I, //190
|
|
OP_AND_IF,
|
|
OP_OR_IF,
|
|
OP_AND_FI,
|
|
OP_OR_FI,
|
|
OP_NE_IF,
|
|
OP_NE_FI,
|
|
|
|
//erm... FTEQCC doesn't make use of these... These are for DP.
|
|
OP_GSTOREP_I,
|
|
OP_GSTOREP_F,
|
|
OP_GSTOREP_ENT,
|
|
OP_GSTOREP_FLD, //200
|
|
OP_GSTOREP_S,
|
|
OP_GSTOREP_FNC,
|
|
OP_GSTOREP_V,
|
|
OP_GADDRESS,
|
|
OP_GLOAD_I,
|
|
OP_GLOAD_F,
|
|
OP_GLOAD_FLD,
|
|
OP_GLOAD_ENT,
|
|
OP_GLOAD_S,
|
|
OP_GLOAD_FNC, //210
|
|
|
|
//back to ones that we do use.
|
|
OP_BOUNDCHECK,
|
|
OP_UNUSED, //used to be OP_STOREP_P, which is now emulated with OP_STOREP_I, fteqcc nor fte generated it
|
|
OP_PUSH, //push 4octets onto the local-stack (which is ALWAYS poped on function return). Returns a pointer.
|
|
OP_POP, //pop those ones that were pushed (don't over do it). Needs assembler.
|
|
|
|
OP_SWITCH_I,//hmm.
|
|
OP_GLOAD_V,
|
|
|
|
OP_IF_F,
|
|
OP_IFNOT_F,
|
|
|
|
OP_NUMREALOPS,
|
|
|
|
/*
|
|
These ops are emulated out, always, and are only present in the compiler.
|
|
*/
|
|
|
|
OP_BITSETSTORE_I, //220
|
|
OP_BITSETSTOREP_I,
|
|
OP_BITCLRSTORE_I,
|
|
|
|
OP_MULSTORE_I,
|
|
OP_DIVSTORE_I,
|
|
OP_ADDSTORE_I,
|
|
OP_SUBSTORE_I,
|
|
OP_MULSTOREP_I,
|
|
OP_DIVSTOREP_I,
|
|
OP_ADDSTOREP_I,
|
|
OP_SUBSTOREP_I, //230
|
|
|
|
OP_MULSTORE_IF,
|
|
OP_MULSTOREP_IF,
|
|
OP_DIVSTORE_IF,
|
|
OP_DIVSTOREP_IF,
|
|
OP_ADDSTORE_IF,
|
|
OP_ADDSTOREP_IF,
|
|
OP_SUBSTORE_IF,
|
|
OP_SUBSTOREP_IF,
|
|
|
|
OP_MULSTORE_FI,
|
|
OP_MULSTOREP_FI, //240
|
|
OP_DIVSTORE_FI,
|
|
OP_DIVSTOREP_FI,
|
|
OP_ADDSTORE_FI,
|
|
OP_ADDSTOREP_FI,
|
|
OP_SUBSTORE_FI,
|
|
OP_SUBSTOREP_FI,
|
|
|
|
OP_MULSTORE_VI,
|
|
OP_MULSTOREP_VI,
|
|
|
|
OP_LOADA_STRUCT,
|
|
OP_LOADP_P,
|
|
OP_STOREP_P,
|
|
|
|
OP_BITNOT_F,
|
|
OP_BITNOT_I,
|
|
|
|
OP_EQ_P,
|
|
OP_NE_P,
|
|
OP_LE_P,
|
|
OP_GE_P,
|
|
OP_LT_P,
|
|
OP_GT_P,
|
|
|
|
OP_ANDSTORE_F,
|
|
OP_BITCLR_F,
|
|
OP_BITCLR_I,
|
|
|
|
OP_ADD_SI,
|
|
OP_ADD_PF,
|
|
OP_ADD_FP,
|
|
OP_ADD_PI,
|
|
OP_ADD_IP,
|
|
|
|
OP_SUB_PF,
|
|
OP_SUB_PI,
|
|
|
|
OP_SUB_PP,
|
|
|
|
OP_MOD_F,
|
|
OP_MOD_I,
|
|
OP_MOD_V,
|
|
|
|
OP_BITXOR_F, //140
|
|
OP_RSHIFT_F,
|
|
OP_LSHIFT_F,
|
|
|
|
OP_AND_ANY,
|
|
OP_OR_ANY, //190
|
|
|
|
OP_NUMOPS
|
|
};
|
|
|
|
#define MAX_PARMS 8
|
|
|
|
// qtest structs (used for reordering and not execution)
|
|
typedef struct qtest_statement_s
|
|
{
|
|
unsigned int line; // line number in source code file
|
|
unsigned short op;
|
|
unsigned short a,b,c;
|
|
} qtest_statement_t;
|
|
|
|
typedef struct qtest_def_s
|
|
{
|
|
unsigned int type; // no DEFGLOBAL found in qtest progs
|
|
unsigned int s_name; // different order!
|
|
unsigned int ofs;
|
|
} qtest_def_t;
|
|
|
|
typedef struct qtest_function_s
|
|
{
|
|
int first_statement;
|
|
int unused1;
|
|
int locals; // assumed! (always 0 in real qtest progs)
|
|
int profile; // assumed! (always 0 in real qtest progs)
|
|
|
|
int s_name;
|
|
int s_file;
|
|
|
|
int numparms;
|
|
int parm_start; // different order
|
|
int parm_size[MAX_PARMS]; // ints instead of bytes...
|
|
} qtest_function_t;
|
|
|
|
typedef struct statement16_s
|
|
{
|
|
unsigned short op;
|
|
unsigned short a,b,c;
|
|
} dstatement16_t;
|
|
typedef struct statement32_s
|
|
{
|
|
unsigned int op;
|
|
unsigned int a,b,c;
|
|
} dstatement32_t;
|
|
#define QCC_dstatement16_t dstatement16_t
|
|
#define QCC_dstatement32_t dstatement32_t
|
|
|
|
typedef struct
|
|
{
|
|
struct QCC_def_s *sym;
|
|
unsigned int ofs;
|
|
struct QCC_type_s *cast; //the entire sref is considered null if there is no cast, although it *MAY* have an ofs specified if its part of a jump instruction
|
|
} QCC_sref_t;
|
|
typedef struct qcc_statement_s
|
|
{
|
|
unsigned int op;
|
|
QCC_sref_t a, b, c;
|
|
unsigned int linenum;
|
|
} QCC_statement_t;
|
|
|
|
//these should be the same except the string type
|
|
typedef struct ddef16_s
|
|
{
|
|
unsigned short type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned short ofs;
|
|
string_t s_name;
|
|
} ddef16_t;
|
|
|
|
typedef struct ddef32_s
|
|
{
|
|
unsigned int type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned int ofs;
|
|
string_t s_name;
|
|
} ddef32_t;
|
|
|
|
typedef void *ddefXX_t;
|
|
|
|
typedef struct QCC_ddef16_s
|
|
{
|
|
unsigned short type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned short ofs;
|
|
QCC_string_t s_name;
|
|
} QCC_ddef16_t;
|
|
|
|
typedef struct QCC_ddef32_s
|
|
{
|
|
unsigned int type; // if DEF_SAVEGLOBAL bit is set
|
|
// the variable needs to be saved in savegames
|
|
unsigned int ofs;
|
|
QCC_string_t s_name;
|
|
} QCC_ddef32_t;
|
|
#define QCC_ddef_t QCC_ddef32_t
|
|
|
|
#define DEF_SAVEGLOBAL (1<<15)
|
|
#define DEF_SHARED (1<<14)
|
|
|
|
typedef struct
|
|
{
|
|
int first_statement; // negative numbers are builtins
|
|
int parm_start;
|
|
int locals; // total ints of parms + locals
|
|
|
|
int profile; // runtime
|
|
|
|
string_t s_name;
|
|
string_t s_file; // source file defined in
|
|
|
|
int numparms;
|
|
qbyte parm_size[MAX_PARMS];
|
|
} dfunction_t;
|
|
|
|
typedef struct
|
|
{
|
|
int first_statement; // negative numbers are builtins
|
|
int parm_start;
|
|
int locals; // total ints of parms + locals
|
|
|
|
int profile; //number of qc instructions executed.
|
|
unsigned long long profiletime; //total time inside (cpu cycles)
|
|
unsigned long long profilechildtime; //time inside children (excluding builtins, cpu cycles)
|
|
|
|
string_t s_name;
|
|
string_t s_file; // source file defined in
|
|
|
|
int numparms;
|
|
qbyte parm_size[MAX_PARMS];
|
|
} mfunction_t;
|
|
|
|
#define PROG_QTESTVERSION 3
|
|
#define PROG_VERSION 6
|
|
#define PROG_KKQWSVVERSION 7
|
|
#define PROG_EXTENDEDVERSION 7
|
|
#define PROG_SECONDARYVERSION16 (*(int*)"1FTE" ^ *(int*)"PROG") //something unlikly and still meaningful (to me)
|
|
#define PROG_SECONDARYVERSION32 (*(int*)"1FTE" ^ *(int*)"32B ") //something unlikly and still meaningful (to me)
|
|
typedef struct
|
|
{
|
|
int version;
|
|
int crc; // check of header file
|
|
|
|
unsigned int ofs_statements; //comp 1
|
|
unsigned int numstatements; // statement 0 is an error
|
|
|
|
unsigned int ofs_globaldefs; //comp 2
|
|
unsigned int numglobaldefs;
|
|
|
|
unsigned int ofs_fielddefs; //comp 4
|
|
unsigned int numfielddefs;
|
|
|
|
unsigned int ofs_functions; //comp 8
|
|
unsigned int numfunctions; // function 0 is an empty
|
|
|
|
unsigned int ofs_strings; //comp 16
|
|
unsigned int numstrings; // first string is a null string
|
|
|
|
unsigned int ofs_globals; //comp 32
|
|
unsigned int numglobals;
|
|
|
|
unsigned int entityfields;
|
|
|
|
//debug / version 7 extensions
|
|
unsigned int ofsfiles; //non list format. no comp
|
|
unsigned int ofslinenums; //numstatements big //comp 64
|
|
unsigned int ofsbodylessfuncs; //no comp
|
|
unsigned int numbodylessfuncs;
|
|
|
|
unsigned int ofs_types; //comp 128
|
|
unsigned int numtypes;
|
|
unsigned int blockscompressed;
|
|
|
|
int secondaryversion; //Constant - to say that any version 7 progs are actually ours, not someone else's alterations.
|
|
} dprograms_t;
|
|
#define standard_dprograms_t_size ((size_t)&((dprograms_t*)NULL)->ofsfiles)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct {
|
|
char filename[128];
|
|
int size;
|
|
int compsize;
|
|
int compmethod;
|
|
int ofs;
|
|
} includeddatafile_t;
|
|
|
|
|
|
|
|
|
|
typedef struct typeinfo_s
|
|
{
|
|
etype_t type;
|
|
|
|
int next;
|
|
int aux_type;
|
|
int num_parms;
|
|
|
|
int ofs; //inside a structure.
|
|
int size;
|
|
string_t name;
|
|
} typeinfo_t;
|