misc/source/fteqcc-src/progsint.h

   1 #ifdef _WIN32
   2         #ifndef _CRT_SECURE_NO_WARNINGS
   3         #define _CRT_SECURE_NO_WARNINGS
   4         #endif
   5         #define _CRT_NONSTDC_NO_WARNINGS
   6         #ifndef AVAIL_ZLIB
   7                 #ifdef _MSC_VER
   8                         //#define AVAIL_ZLIB
   9                 #endif
  10         #endif
  11
  12         #include <windows.h>
  13
  14         enum{false, true};
  15 #else
  16         #include <stdarg.h>
  17         #include <math.h>
  18
  19         #include <stdlib.h>
  20         #include <setjmp.h>
  21         #include <string.h>
  22         #include <ctype.h>
  23
  24         #ifndef __declspec
  25                 #define __declspec(mode)
  26         #endif
  27
  28         typedef enum{false, true} boolean;
  29 //#define _inline inline
  30 #endif
  31 typedef unsigned char qbyte;
  32 #include <stdio.h>
  33
  34 #define DLL_PROG
  35 #ifndef PROGSUSED
  36 #define PROGSUSED
  37 #endif
  38
  39 #include "progtype.h"
  40 #include "progslib.h"
  41
  42 #ifdef _MSC_VER
  43 #pragma warning(disable : 4244)
  44 #pragma warning(disable : 4267)
  45 #endif
  46
  47 //extern progfuncs_t *progfuncs;
  48
  49 #define prinst progfuncs->inst
  50 #define externs progfuncs->parms
  51
  52 #include "pr_comp.h"
  53
  54 #include "qcd.h"
  55
  56 typedef struct
  57 {
  58         int                     targetflags;    //weather we need to mark the progs as a newer version
  59         char            *name;
  60         char            *opname;
  61         int             priority;
  62         enum {ASSOC_LEFT, ASSOC_RIGHT, ASSOC_RIGHT_RESULT}                      associative;
  63         struct QCC_type_s               **type_a, **type_b, **type_c;
  64 } QCC_opcode_t;
  65 extern  QCC_opcode_t    pr_opcodes[];           // sized by initialization
  66
  67
  68
  69
  70 #ifdef _MSC_VER
  71 #define Q_vsnprintf _vsnprintf
  72 #else
  73 #define Q_vsnprintf vsnprintf
  74 #endif
  75
  76
  77 #define sv_num_edicts (*externs->sv_num_edicts)
  78 #define sv_edicts (*externs->sv_edicts)
  79
  80 #define printf externs->printf
  81 #define Sys_Error externs->Sys_Error
  82 #define Abort externs->Abort
  83
  84 #define memalloc externs->memalloc
  85 #define memfree externs->memfree
  86
  87 int PRHunkMark(progfuncs_t *progfuncs);
  88 void PRHunkFree(progfuncs_t *progfuncs, int mark);
  89 void *PRHunkAlloc(progfuncs_t *progfuncs, int size);
  90 void *PRAddressableExtend(progfuncs_t *progfuncs, int ammount);
  91
  92 #ifdef printf
  93 #undef LIKEPRINTF
  94 #define LIKEPRINTF(x)
  95 #endif
  96
  97 //void *HunkAlloc (int size);
  98 char *VARGS qcva (char *text, ...) LIKEPRINTF(1);
  99 void QC_InitShares(progfuncs_t *progfuncs);
 100 void QC_StartShares(progfuncs_t *progfuncs);
 101 void QC_AddSharedVar(progfuncs_t *progfuncs, int num, int type);
 102 void QC_AddSharedFieldVar(progfuncs_t *progfuncs, int num, char *stringtable);
 103 int QC_RegisterFieldVar(progfuncs_t *progfuncs, unsigned int type, char *name, signed long requestedpos, signed long originalofs);
 104 pbool Decompile(progfuncs_t *progfuncs, char *fname);
 105 int PR_ToggleBreakpoint(progfuncs_t *progfuncs, char *filename, int linenum, int flag);
 106 void    StripExtension (char *path);
 107
 108
 109 #define edvars(ed) (((edictrun_t*)ed)->fields)  //pointer to the field vars, given an edict
 110
 111
 112 void SetEndian(void);
 113 extern short   (*PRBigShort) (short l);
 114 extern short   (*PRLittleShort) (short l);
 115 extern int     (*PRBigLong) (int l);
 116 extern int     (*PRLittleLong) (int l);
 117 extern float   (*PRBigFloat) (float l);
 118 extern float   (*PRLittleFloat) (float l);
 119
 120
 121
 122 /*
 123 #ifndef COMPILER
 124 typedef union eval_s
 125 {
 126         string_t                string;
 127         float                   _float;
 128         float                   vector[3];
 129         func_t                  function;
 130         int                             _int;
 131         int                             edict;
 132         progsnum_t              prog;   //so it can easily be changed
 133 } eval_t;
 134 #endif
 135 */
 136
 137 typedef struct edictrun_s
 138 {
 139         pbool   isfree;
 140
 141         float           freetime;                       // realtime when the object was freed
 142         unsigned int entnum;
 143         pbool   readonly;       //causes error when QC tries writing to it. (quake's world entity)
 144         void    *fields;
 145
 146 // other fields from progs come immediately after
 147 } edictrun_t;
 148
 149
 150 int Comp_Begin(progfuncs_t *progfuncs, int nump, char **parms);
 151 int Comp_Continue(progfuncs_t *progfuncs);
 152
 153 char *EvaluateDebugString(progfuncs_t *progfuncs, char *key);
 154 char *SaveEnts(progfuncs_t *progfuncs, char *mem, int *size, int mode);
 155 int LoadEnts(progfuncs_t *progfuncs, char *file, float killonspawnflags);
 156 char *SaveEnt (progfuncs_t *progfuncs, char *buf, int *size, struct edict_s *ed);
 157 struct edict_s *RestoreEnt (progfuncs_t *progfuncs, char *buf, int *size, struct edict_s *ed);
 158 void PR_StackTrace (progfuncs_t *progfuncs);
 159
 160 extern int noextensions;
 161
 162 typedef enum
 163 {
 164         PST_DEFAULT, //16
 165         PST_FTE32, //32
 166         PST_KKQWSV, //24
 167         PST_QTEST,
 168 } progstructtype_t;
 169
 170 #ifndef COMPILER
 171 typedef struct progstate_s
 172 {
 173         dprograms_t             *progs;
 174         dfunction_t             *functions;
 175         char                    *strings;
 176         union {
 177                 ddefXX_t                *globaldefs;
 178                 ddef16_t                *globaldefs16;
 179                 ddef32_t                *globaldefs32;
 180         };
 181         union {
 182                 ddefXX_t                *fielddefs;
 183                 ddef16_t                *fielddefs16;
 184                 ddef32_t                *fielddefs32;
 185         };
 186         void    *statements;
 187 //      void                    *global_struct;
 188         float                   *globals;                       // same as pr_global_struct
 189         int                             globals_size;   // in bytes
 190
 191         typeinfo_t      *types;
 192
 193         int                             edict_size;     // in bytes
 194
 195         char                    filename[128];
 196
 197         builtin_t       *builtins;
 198         int             numbuiltins;
 199
 200         int *linenums;  //debug versions only
 201
 202         progstructtype_t structtype;
 203
 204 #ifdef QCJIT
 205         struct jitstate *jit;
 206 #endif
 207 } progstate_t;
 208
 209 typedef struct extensionbuiltin_s {
 210         char *name;
 211         builtin_t func;
 212         struct extensionbuiltin_s *prev;
 213 } extensionbuiltin_t;
 214
 215 //============================================================================
 216
 217
 218 #define pr_progs                        current_progstate->progs
 219 #define pr_functions            current_progstate->functions
 220 #define pr_strings                      current_progstate->strings
 221 #define pr_globaldefs16         ((ddef16_t*)current_progstate->globaldefs)
 222 #define pr_globaldefs32         ((ddef32_t*)current_progstate->globaldefs)
 223 #define pr_fielddefs16          ((ddef16_t*)current_progstate->fielddefs)
 224 #define pr_fielddefs32          ((ddef32_t*)current_progstate->fielddefs)
 225 #define pr_statements16         ((dstatement16_t*)current_progstate->statements)
 226 #define pr_statements32         ((dstatement32_t*)current_progstate->statements)
 227 //#define       pr_global_struct        current_progstate->global_struct
 228 #define pr_globals                      current_progstate->globals
 229 #define pr_linenums                     current_progstate->linenums
 230 #define pr_types                        current_progstate->types
 231
 232
 233
 234 //============================================================================
 235
 236 void PR_Init (void);
 237
 238 void PR_ExecuteProgram (progfuncs_t *progfuncs, func_t fnum);
 239 int PR_LoadProgs(progfuncs_t *progfncs, char *s, int headercrc, builtin_t *builtins, int numbuiltins);
 240 int PR_ReallyLoadProgs (progfuncs_t *progfuncs, char *filename, int headercrc, progstate_t *progstate, pbool complain);
 241
 242 void *PRHunkAlloc(progfuncs_t *progfuncs, int ammount);
 243
 244 void PR_Profile_f (void);
 245
 246 struct edict_s *ED_Alloc (progfuncs_t *progfuncs);
 247 void ED_Free (progfuncs_t *progfuncs, struct edict_s *ed);
 248
 249 char *ED_NewString (progfuncs_t *progfuncs, char *string, int minlength);
 250 // returns a copy of the string allocated from the server's string heap
 251
 252 void ED_Print (progfuncs_t *progfuncs, struct edict_s *ed);
 253 //void ED_Write (FILE *f, edictrun_t *ed);
 254 char *ED_ParseEdict (progfuncs_t *progfuncs, char *data, edictrun_t *ent);
 255
 256 //void ED_WriteGlobals (FILE *f);
 257 void ED_ParseGlobals (char *data);
 258
 259 //void ED_LoadFromFile (char *data);
 260
 261 //define EDICT_NUM(n) ((edict_t *)(sv.edicts+ (n)*pr_edict_size))
 262 //define NUM_FOR_EDICT(e) (((byte *)(e) - sv.edicts)/pr_edict_size)
 263
 264 struct edict_s *EDICT_NUM(progfuncs_t *progfuncs, unsigned int n);
 265 unsigned int NUM_FOR_EDICT(progfuncs_t *progfuncs, struct edict_s *e);
 266
 267 //#define       NEXT_EDICT(e) ((edictrun_t *)( (byte *)e + pr_edict_size))
 268
 269 #define EDICT_TO_PROG(pf, e) (((edictrun_t*)e)->entnum)
 270 #define PROG_TO_EDICT(pf, e) ((struct edictrun_s *)prinst->edicttable[e])
 271
 272 //============================================================================
 273
 274 #define G_FLOAT(o) (pr_globals[o])
 275 #define G_FLOAT2(o) (pr_globals[OFS_PARM0 + o*3])
 276 #define G_INT(o) (*(int *)&pr_globals[o])
 277 #define G_EDICT(o) ((edict_t *)((qbyte *)sv_edicts+ *(int *)&pr_globals[o]))
 278 #define G_EDICTNUM(o) NUM_FOR_EDICT(G_EDICT(o))
 279 #define G_VECTOR(o) (&pr_globals[o])
 280 #define G_STRING(o) (*(string_t *)&pr_globals[o])
 281 #define G_STRING2(o) ((char*)*(string_t *)&pr_globals[o])
 282 #define GQ_STRING(o) (*(QCC_string_t *)&pr_globals[o])
 283 #define GQ_STRING2(o) ((char*)*(QCC_string_t *)&pr_globals[o])
 284 #define G_FUNCTION(o) (*(func_t *)&pr_globals[o])
 285 #define G_PROG(o) G_FLOAT(o)    //simply so it's nice and easy to change...
 286
 287 #define RETURN_EDICT(e) (((int *)pr_globals)[OFS_RETURN] = EDICT_TO_PROG(e))
 288
 289 #define E_FLOAT(e,o) (((float*)&e->v)[o])
 290 #define E_INT(e,o) (*(int *)&((float*)&e->v)[o])
 291 #define E_VECTOR(e,o) (&((float*)&e->v)[o])
 292 #define E_STRING(e,o) (*(string_t *)&((float*)(e+1))[o])
 293
 294 const extern    unsigned int            type_size[];
 295
 296
 297 extern  unsigned short          pr_crc;
 298
 299 void VARGS PR_RunError (progfuncs_t *progfuncs, char *error, ...) LIKEPRINTF(2);
 300
 301 void ED_PrintEdicts (progfuncs_t *progfuncs);
 302 void ED_PrintNum (progfuncs_t *progfuncs, int ent);
 303
 304
 305 pbool PR_SwitchProgs(progfuncs_t *progfuncs, progsnum_t type);
 306 void PR_MoveParms(progfuncs_t *progfuncs, progsnum_t progs1, progsnum_t progs2);
 307
 308
 309
 310
 311 eval_t *GetEdictFieldValue(progfuncs_t *progfuncs, struct edict_s *ed, char *name, evalc_t *cache);
 312
 313 #endif
 314
 315
 316
 317
 318 #ifndef COMPILER
 319
 320 //this is windows - all files are written with this endian standard
 321 //optimisation
 322 //leave undefined if in doubt over os.
 323 #ifdef _WIN32
 324 #define NOENDIAN
 325 #endif
 326
 327
 328 typedef struct {
 329         int varofs;
 330         int size;
 331 } sharedvar_t;
 332 typedef struct
 333 {
 334         int                             s;
 335         dfunction_t             *f;
 336         int                             progsnum;
 337         int pushed;
 338 } prstack_t;
 339
 340
 341
 342 //pr_multi.c
 343 void PR_SetBuiltins(int type);
 344
 345 #define var(type, name) type name
 346 #define vars(type, name, size) type name[size]
 347
 348 typedef struct prinst_s {
 349         char **tempstrings;
 350         int maxtempstrings;
 351         int numtempstrings;
 352         int numtempstringsstack;
 353
 354         char **allocedstrings;
 355         int maxallocedstrings;
 356         int numallocedstrings;
 357
 358 var(progstate_t *, progstate);
 359 #define pr_progstate prinst->progstate
 360
 361 var(progsnum_t, pr_typecurrent);
 362 #define pr_typecurrent prinst->pr_typecurrent
 363 var(unsigned int, maxprogs);
 364 #define maxprogs prinst->maxprogs
 365
 366 var(progstate_t *,current_progstate);
 367 #define current_progstate prinst->current_progstate
 368
 369 var(unsigned int, numshares);
 370 #define numshares prinst->numshares
 371 var(sharedvar_t *,shares);      //shared globals, not including parms
 372 #define shares prinst->shares
 373 var(unsigned int, maxshares);
 374 #define maxshares prinst->maxshares
 375
 376 var(struct prmemb_s     *, memblocks);
 377 #define memb prinst->memblocks
 378
 379 var(unsigned int, maxfields);
 380 #define maxfields prinst->maxfields
 381 var(unsigned int, numfields);
 382 #define numfields prinst->numfields
 383 var(fdef_t*, field);    //biggest size
 384 #define field prinst->field
 385
 386 int reorganisefields;
 387
 388
 389 //pr_exec.c
 390 #define MAX_STACK_DEPTH         64
 391 vars(prstack_t, pr_stack, MAX_STACK_DEPTH);
 392 #define pr_stack prinst->pr_stack
 393 var(int, pr_depth);
 394 #define pr_depth prinst->pr_depth
 395 var(int, spushed);
 396 #define pr_spushed prinst->spushed
 397
 398 #define LOCALSTACK_SIZE         4096
 399 vars(int, localstack, LOCALSTACK_SIZE);
 400 #define localstack prinst->localstack
 401 var(int, localstack_used);
 402 #define localstack_used prinst->localstack_used
 403
 404 var(int, continuestatement);
 405 var(int, exitdepth);
 406
 407 var(int, pr_trace);
 408 #define pr_trace prinst->pr_trace
 409 var(dfunction_t *, pr_xfunction);
 410 #define pr_xfunction prinst->pr_xfunction
 411 var(int, pr_xstatement);
 412 #define pr_xstatement prinst->pr_xstatement
 413
 414 var(int, pr_argc);
 415 #define pr_argc prinst->pr_argc
 416
 417 //pr_edict.c
 418
 419 var(unsigned int, maxedicts);
 420 #define maxedicts prinst->maxedicts
 421
 422 var(evalc_t, spawnflagscache);
 423 #define spawnflagscache prinst->spawnflagscache
 424
 425
 426
 427
 428 var(unsigned int, fields_size); // in bytes
 429 #define fields_size prinst->fields_size
 430 var(unsigned int, max_fields_size);
 431 #define max_fields_size prinst->max_fields_size
 432
 433
 434 //initlib.c
 435 int mfreelist;
 436 var(char *, addressablehunk);
 437 var(unsigned int, addressableused);
 438 var(unsigned int, addressablesize);
 439
 440
 441 //var(extensionbuiltin_t *, extensionbuiltin);
 442 //#define extensionbuiltin prinst->extensionbuiltin
 443
 444         struct edict_s **edicttable;
 445 } prinst_t;
 446 extern vec3_t vec3_origin;
 447
 448 eval_t *PR_FindGlobal(progfuncs_t *prfuncs, char *globname, progsnum_t pnum, etype_t *type);
 449 ddef16_t *ED_FindTypeGlobalFromProgs16 (progfuncs_t *progfuncs, char *name, progsnum_t prnum, int type);
 450 ddef32_t *ED_FindTypeGlobalFromProgs32 (progfuncs_t *progfuncs, char *name, progsnum_t prnum, int type);
 451 ddef16_t *ED_FindGlobalFromProgs16 (progfuncs_t *progfuncs, char *name, progsnum_t prnum);
 452 ddef32_t *ED_FindGlobalFromProgs32 (progfuncs_t *progfuncs, char *name, progsnum_t prnum);
 453 fdef_t *ED_FindField (progfuncs_t *progfuncs, char *name);
 454 fdef_t *ED_FieldAtOfs (progfuncs_t *progfuncs, unsigned int ofs);
 455 dfunction_t *ED_FindFunction (progfuncs_t *progfuncs, char *name, progsnum_t *pnum, progsnum_t fromprogs);
 456 func_t PR_FindFunc(progfuncs_t *progfncs, char *funcname, progsnum_t pnum);
 457 void PR_Configure (progfuncs_t *progfncs, int addressable_size, int max_progs);
 458 int PR_InitEnts(progfuncs_t *progfncs, int maxents);
 459 char *PR_ValueString (progfuncs_t *progfuncs, etype_t type, eval_t *val);
 460 void QC_ClearEdict (progfuncs_t *progfuncs, struct edict_s *ed);
 461 void PRAddressableFlush(progfuncs_t *progfuncs, int totalammount);
 462 void QC_FlushProgsOffsets(progfuncs_t *progfuncs);
 463
 464 ddef16_t *ED_GlobalAtOfs16 (progfuncs_t *progfuncs, int ofs);
 465 ddef16_t *ED_FindGlobal16 (progfuncs_t *progfuncs, char *name);
 466 ddef32_t *ED_FindGlobal32 (progfuncs_t *progfuncs, char *name);
 467 ddef32_t *ED_GlobalAtOfs32 (progfuncs_t *progfuncs, unsigned int ofs);
 468
 469 string_t PR_StringToProgs                       (progfuncs_t *inst, char *str);
 470 char *ASMCALL PR_StringToNative                         (progfuncs_t *inst, string_t str);
 471
 472 void PR_FreeTemps                       (progfuncs_t *progfuncs, int depth);
 473
 474 char *PR_GlobalString (progfuncs_t *progfuncs, int ofs);
 475 char *PR_GlobalStringNoContents (progfuncs_t *progfuncs, int ofs);
 476
 477 pbool CompileFile(progfuncs_t *progfuncs, char *filename);
 478
 479 struct jitstate;
 480 struct jitstate *PR_GenerateJit(progfuncs_t *progfuncs);
 481 void PR_EnterJIT(progfuncs_t *progfuncs, struct jitstate *jitstate, int statement);
 482 void PR_CloseJit(struct jitstate *jit);
 483
 484 char *QCC_COM_Parse (char *data);
 485 extern char     qcc_token[1024];
 486 #endif