19fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream/* 29fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamCopyright (C) 1996-1997 Id Software, Inc. 39fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 49fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamThis program is free software; you can redistribute it and/or 59fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreammodify it under the terms of the GNU General Public License 69fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamas published by the Free Software Foundation; either version 2 79fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamof the License, or (at your option) any later version. 89fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 99fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamThis program is distributed in the hope that it will be useful, 109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreambut WITHOUT ANY WARRANTY; without even the implied warranty of 119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamSee the GNU General Public License for more details. 149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamYou should have received a copy of the GNU General Public License 169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamalong with this program; if not, write to the Free Software 179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamFoundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream*/ 209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream// this file is shared by quake and qcc 229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef int func_t; 249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef int string_t; 259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 26cabb5dd768714a7df34469a096b5e1aa815a2c22Jack Palevichtypedef enum {ev_void, ev_string, ev_float, ev_vector, ev_entity, ev_field, ev_function, ev_pointer, 27cabb5dd768714a7df34469a096b5e1aa815a2c22Jack Palevich etype_t_max = 1 << 30} etype_t; 289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_NULL 0 319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_RETURN 1 329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM0 4 // leave 3 ofs for each parm to hold vectors 339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM1 7 349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM2 10 359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM3 13 369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM4 16 379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM5 19 389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM6 22 399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define OFS_PARM7 25 409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define RESERVED_OFS 28 419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamenum { 449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_DONE, 459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_MUL_F, 469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_MUL_V, 479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_MUL_FV, 489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_MUL_VF, 499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_DIV_F, 509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_ADD_F, 519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_ADD_V, 529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_SUB_F, 539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_SUB_V, 549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_EQ_F, 569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_EQ_V, 579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_EQ_S, 589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_EQ_E, 599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_EQ_FNC, 609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NE_F, 629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NE_V, 639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NE_S, 649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NE_E, 659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NE_FNC, 669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LE, 689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_GE, 699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LT, 709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_GT, 719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_F, 739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_V, 749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_S, 759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_ENT, 769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_FLD, 779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_LOAD_FNC, 789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_ADDRESS, 809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_F, 829fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_V, 839fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_S, 849fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_ENT, 859fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_FLD, 869fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STORE_FNC, 879fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 889fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_F, 899fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_V, 909fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_S, 919fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_ENT, 929fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_FLD, 939fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STOREP_FNC, 949fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 959fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_RETURN, 969fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NOT_F, 979fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NOT_V, 989fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NOT_S, 999fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NOT_ENT, 1009fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_NOT_FNC, 1019fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_IF, 1029fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_IFNOT, 1039fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL0, 1049fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL1, 1059fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL2, 1069fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL3, 1079fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL4, 1089fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL5, 1099fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL6, 1109fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL7, 1119fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_CALL8, 1129fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_STATE, 1139fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_GOTO, 1149fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_AND, 1159fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_OR, 1169fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1179fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_BITAND, 1189fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream OP_BITOR 1199fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream}; 1209fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1219fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1229fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef struct statement_s 1239fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1249fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream unsigned short op; 1259fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream short a,b,c; 1269fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} dstatement_t; 1279fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1289fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef struct 1299fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1309fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream unsigned short type; // if DEF_SAVEGLOBGAL bit is set 1319fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream // the variable needs to be saved in savegames 1329fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream unsigned short ofs; 1339fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int s_name; 1349fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} ddef_t; 1359fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define DEF_SAVEGLOBAL (1<<15) 1369fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1379fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define MAX_PARMS 8 1389fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1399fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef struct 1409fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1419fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int first_statement; // negative numbers are builtins 1429fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int parm_start; 1439fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int locals; // total ints of parms + locals 1449fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1459fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int profile; // runtime 1469fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1479fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int s_name; 1489fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int s_file; // source file defined in 1499fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1509fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numparms; 1519fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream byte parm_size[MAX_PARMS]; 1529fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} dfunction_t; 1539fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1549fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1559fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream#define PROG_VERSION 6 1569fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstreamtypedef struct 1579fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream{ 1589fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int version; 1599fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int crc; // check of header file 1609fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1619fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_statements; 1629fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numstatements; // statement 0 is an error 1639fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1649fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_globaldefs; 1659fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numglobaldefs; 1669fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1679fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_fielddefs; 1689fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numfielddefs; 1699fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1709fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_functions; 1719fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numfunctions; // function 0 is an empty 1729fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1739fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_strings; 1749fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numstrings; // first string is a null string 1759fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1769fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int ofs_globals; 1779fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int numglobals; 1789fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 1799fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream int entityfields; 1809fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream} dprograms_t; 1819fd67c44777b350dc56f3e70c88963b0d966ffc7quake upstream 182