a simple time profiler for prvm_profile, cvar: prvm_timeprofiling
[xonotic/darkplaces.git] / prvm_edict.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
12
13 See the GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19 */
20 // AK new vm
21
22 #include "quakedef.h"
23 #include "progsvm.h"
24
25 prvm_prog_t *prog;
26
27 static prvm_prog_t prog_list[PRVM_MAXPROGS];
28
29 int             prvm_type_size[8] = {1,sizeof(string_t)/4,1,3,1,1,sizeof(func_t)/4,sizeof(void *)/4};
30
31 ddef_t *PRVM_ED_FieldAtOfs(int ofs);
32 qboolean PRVM_ED_ParseEpair(prvm_edict_t *ent, ddef_t *key, const char *s, qboolean parsebackslash);
33
34 cvar_t prvm_language = {0, "prvm_language", "", "when set, loads progs.dat.LANGUAGENAME.po for string translations; when set to dump, progs.dat.dump.po is written from the strings in the progs"};
35 // LordHavoc: prints every opcode as it executes - warning: this is significant spew
36 cvar_t prvm_traceqc = {0, "prvm_traceqc", "0", "prints every QuakeC statement as it is executed (only for really thorough debugging!)"};
37 // LordHavoc: counts usage of each QuakeC statement
38 cvar_t prvm_statementprofiling = {0, "prvm_statementprofiling", "0", "counts how many times each QuakeC statement has been executed, these counts are displayed in prvm_printfunction output (if enabled)"};
39 cvar_t prvm_timeprofiling = {0, "prvm_timeprofiling", "0", "counts how long each function has been executed, these counts are displayed in prvm_profile output (if enabled)"};
40 cvar_t prvm_backtraceforwarnings = {0, "prvm_backtraceforwarnings", "0", "print a backtrace for warnings too"};
41 cvar_t prvm_leaktest = {0, "prvm_leaktest", "0", "try to detect memory leaks in strings or entities"};
42 cvar_t prvm_leaktest_ignore_classnames = {0, "prvm_leaktest_ignore_classnames", "", "classnames of entities to NOT leak check because they are found by find(world, classname, ...) but are actually spawned by QC code (NOT map entities)"};
43 cvar_t prvm_errordump = {0, "prvm_errordump", "0", "write a savegame on crash to crash-server.dmp"};
44 cvar_t prvm_reuseedicts_startuptime = {0, "prvm_reuseedicts_startuptime", "2", "allows immediate re-use of freed entity slots during start of new level (value in seconds)"};
45 cvar_t prvm_reuseedicts_neverinsameframe = {0, "prvm_reuseedicts_neverinsameframe", "1", "never allows re-use of freed entity slots during same frame"};
46
47 static double prvm_reuseedicts_always_allow = 0;
48 qboolean prvm_runawaycheck = true;
49
50 extern sizebuf_t vm_tempstringsbuf;
51
52 //============================================================================
53 // mempool handling
54
55 /*
56 ===============
57 PRVM_MEM_Alloc
58 ===============
59 */
60 void PRVM_MEM_Alloc(void)
61 {
62         int i;
63
64         // reserve space for the null entity aka world
65         // check bound of max_edicts
66         prog->max_edicts = bound(1 + prog->reserved_edicts, prog->max_edicts, prog->limit_edicts);
67         prog->num_edicts = bound(1 + prog->reserved_edicts, prog->num_edicts, prog->max_edicts);
68
69         // edictprivate_size has to be min as big prvm_edict_private_t
70         prog->edictprivate_size = max(prog->edictprivate_size,(int)sizeof(prvm_edict_private_t));
71
72         // alloc edicts
73         prog->edicts = (prvm_edict_t *)Mem_Alloc(prog->progs_mempool,prog->limit_edicts * sizeof(prvm_edict_t));
74
75         // alloc edict private space
76         prog->edictprivate = Mem_Alloc(prog->progs_mempool, prog->max_edicts * prog->edictprivate_size);
77
78         // alloc edict fields
79         prog->entityfieldsarea = prog->entityfields * prog->max_edicts;
80         prog->edictsfields = (vec_t *)Mem_Alloc(prog->progs_mempool, prog->entityfieldsarea * sizeof(vec_t));
81
82         // set edict pointers
83         for(i = 0; i < prog->max_edicts; i++)
84         {
85                 prog->edicts[i].priv.required = (prvm_edict_private_t *)((unsigned char  *)prog->edictprivate + i * prog->edictprivate_size);
86                 prog->edicts[i].fields.vp = prog->edictsfields + i * prog->entityfields;
87         }
88 }
89
90 /*
91 ===============
92 PRVM_MEM_IncreaseEdicts
93 ===============
94 */
95 void PRVM_MEM_IncreaseEdicts(void)
96 {
97         int             i;
98
99         if(prog->max_edicts >= prog->limit_edicts)
100                 return;
101
102         PRVM_GCALL(begin_increase_edicts)();
103
104         // increase edicts
105         prog->max_edicts = min(prog->max_edicts + 256, prog->limit_edicts);
106
107         prog->entityfieldsarea = prog->entityfields * prog->max_edicts;
108         prog->edictsfields = (vec_t*)Mem_Realloc(prog->progs_mempool, (void *)prog->edictsfields, prog->entityfieldsarea * sizeof(vec_t));
109         prog->edictprivate = (void *)Mem_Realloc(prog->progs_mempool, (void *)prog->edictprivate, prog->max_edicts * prog->edictprivate_size);
110
111         //set e and v pointers
112         for(i = 0; i < prog->max_edicts; i++)
113         {
114                 prog->edicts[i].priv.required  = (prvm_edict_private_t *)((unsigned char  *)prog->edictprivate + i * prog->edictprivate_size);
115                 prog->edicts[i].fields.vp = prog->edictsfields + i * prog->entityfields;
116         }
117
118         PRVM_GCALL(end_increase_edicts)();
119 }
120
121 //============================================================================
122 // normal prvm
123
124 int PRVM_ED_FindFieldOffset(const char *field)
125 {
126         ddef_t *d;
127         d = PRVM_ED_FindField(field);
128         if (!d)
129                 return -1;
130         return d->ofs;
131 }
132
133 int PRVM_ED_FindGlobalOffset(const char *global)
134 {
135         ddef_t *d;
136         d = PRVM_ED_FindGlobal(global);
137         if (!d)
138                 return -1;
139         return d->ofs;
140 }
141
142 func_t PRVM_ED_FindFunctionOffset(const char *function)
143 {
144         mfunction_t *f;
145         f = PRVM_ED_FindFunction(function);
146         if (!f)
147                 return 0;
148         return (func_t)(f - prog->functions);
149 }
150
151 qboolean PRVM_ProgLoaded(int prognr)
152 {
153         if(prognr < 0 || prognr >= PRVM_MAXPROGS)
154                 return FALSE;
155
156         return (prog_list[prognr].loaded ? TRUE : FALSE);
157 }
158
159 /*
160 =================
161 PRVM_SetProgFromString
162 =================
163 */
164 // perhaps add a return value when the str doesnt exist
165 qboolean PRVM_SetProgFromString(const char *str)
166 {
167         int i = 0;
168         for(; i < PRVM_MAXPROGS ; i++)
169                 if(prog_list[i].name && !strcmp(prog_list[i].name,str))
170                 {
171                         if(prog_list[i].loaded)
172                         {
173                                 prog = &prog_list[i];
174                                 return TRUE;
175                         }
176                         else
177                         {
178                                 Con_Printf("%s not loaded !\n",PRVM_NAME);
179                                 return FALSE;
180                         }
181                 }
182
183         Con_Printf("Invalid program name %s !\n", str);
184         return FALSE;
185 }
186
187 /*
188 =================
189 PRVM_SetProg
190 =================
191 */
192 void PRVM_SetProg(int prognr)
193 {
194         if(0 <= prognr && prognr < PRVM_MAXPROGS)
195         {
196                 if(prog_list[prognr].loaded)
197                         prog = &prog_list[prognr];
198                 else
199                         PRVM_ERROR("%i not loaded !", prognr);
200                 return;
201         }
202         PRVM_ERROR("Invalid program number %i", prognr);
203 }
204
205 /*
206 =================
207 PRVM_ED_ClearEdict
208
209 Sets everything to NULL
210 =================
211 */
212 void PRVM_ED_ClearEdict (prvm_edict_t *e)
213 {
214         memset (e->fields.vp, 0, prog->progs->entityfields * 4);
215         e->priv.required->free = false;
216
217         // AK: Let the init_edict function determine if something needs to be initialized
218         PRVM_GCALL(init_edict)(e);
219 }
220
221 const char *PRVM_AllocationOrigin(void)
222 {
223         char *buf = NULL;
224         if(prog->leaktest_active)
225         if(prog->depth > 0) // actually in QC code and not just parsing the entities block of a map/savegame
226         {
227                 buf = (char *)PRVM_Alloc(128);
228                 PRVM_ShortStackTrace(buf, 128);
229         }
230         return buf;
231 }
232
233 /*
234 =================
235 PRVM_ED_CanAlloc
236
237 Returns if this particular edict could get allocated by PRVM_ED_Alloc
238 =================
239 */
240 qboolean PRVM_ED_CanAlloc(prvm_edict_t *e)
241 {
242         if(!e->priv.required->free)
243                 return false;
244         if(prvm_reuseedicts_always_allow == realtime)
245                 return true;
246         if(realtime <= e->priv.required->freetime && prvm_reuseedicts_neverinsameframe.integer)
247                 return false; // never allow reuse in same frame (causes networking trouble)
248         if(e->priv.required->freetime < prog->starttime + prvm_reuseedicts_startuptime.value)
249                 return true;
250         if(realtime > e->priv.required->freetime + 1)
251                 return true;
252         return false; // entity slot still blocked because the entity was freed less than one second ago
253 }
254
255 /*
256 =================
257 PRVM_ED_Alloc
258
259 Either finds a free edict, or allocates a new one.
260 Try to avoid reusing an entity that was recently freed, because it
261 can cause the client to think the entity morphed into something else
262 instead of being removed and recreated, which can cause interpolated
263 angles and bad trails.
264 =================
265 */
266 prvm_edict_t *PRVM_ED_Alloc (void)
267 {
268         int                     i;
269         prvm_edict_t            *e;
270
271         // the client qc dont need maxclients
272         // thus it doesnt need to use svs.maxclients
273         // AK:  changed i=svs.maxclients+1
274         // AK:  changed so the edict 0 wont spawn -> used as reserved/world entity
275         //              although the menu/client has no world
276         for (i = prog->reserved_edicts + 1;i < prog->num_edicts;i++)
277         {
278                 e = PRVM_EDICT_NUM(i);
279                 if(PRVM_ED_CanAlloc(e))
280                 {
281                         PRVM_ED_ClearEdict (e);
282                         e->priv.required->allocation_origin = PRVM_AllocationOrigin();
283                         return e;
284                 }
285         }
286
287         if (i == prog->limit_edicts)
288                 PRVM_ERROR ("%s: PRVM_ED_Alloc: no free edicts",PRVM_NAME);
289
290         prog->num_edicts++;
291         if (prog->num_edicts >= prog->max_edicts)
292                 PRVM_MEM_IncreaseEdicts();
293
294         e = PRVM_EDICT_NUM(i);
295         PRVM_ED_ClearEdict (e);
296
297         e->priv.required->allocation_origin = PRVM_AllocationOrigin();
298
299         return e;
300 }
301
302 /*
303 =================
304 PRVM_ED_Free
305
306 Marks the edict as free
307 FIXME: walk all entities and NULL out references to this entity
308 =================
309 */
310 void PRVM_ED_Free (prvm_edict_t *ed)
311 {
312         // dont delete the null entity (world) or reserved edicts
313         if(PRVM_NUM_FOR_EDICT(ed) <= prog->reserved_edicts )
314                 return;
315
316         PRVM_GCALL(free_edict)(ed);
317
318         ed->priv.required->free = true;
319         ed->priv.required->freetime = realtime;
320         if(ed->priv.required->allocation_origin)
321         {
322                 PRVM_Free((char *)ed->priv.required->allocation_origin);
323                 ed->priv.required->allocation_origin = NULL;
324         }
325 }
326
327 //===========================================================================
328
329 /*
330 ============
331 PRVM_ED_GlobalAtOfs
332 ============
333 */
334 ddef_t *PRVM_ED_GlobalAtOfs (int ofs)
335 {
336         ddef_t          *def;
337         int                     i;
338
339         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
340         {
341                 def = &prog->globaldefs[i];
342                 if (def->ofs == ofs)
343                         return def;
344         }
345         return NULL;
346 }
347
348 /*
349 ============
350 PRVM_ED_FieldAtOfs
351 ============
352 */
353 ddef_t *PRVM_ED_FieldAtOfs (int ofs)
354 {
355         ddef_t          *def;
356         int                     i;
357
358         for (i=0 ; i<prog->progs->numfielddefs ; i++)
359         {
360                 def = &prog->fielddefs[i];
361                 if (def->ofs == ofs)
362                         return def;
363         }
364         return NULL;
365 }
366
367 /*
368 ============
369 PRVM_ED_FindField
370 ============
371 */
372 ddef_t *PRVM_ED_FindField (const char *name)
373 {
374         ddef_t *def;
375         int i;
376
377         for (i=0 ; i<prog->progs->numfielddefs ; i++)
378         {
379                 def = &prog->fielddefs[i];
380                 if (!strcmp(PRVM_GetString(def->s_name), name))
381                         return def;
382         }
383         return NULL;
384 }
385
386 /*
387 ============
388 PRVM_ED_FindGlobal
389 ============
390 */
391 ddef_t *PRVM_ED_FindGlobal (const char *name)
392 {
393         ddef_t *def;
394         int i;
395
396         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
397         {
398                 def = &prog->globaldefs[i];
399                 if (!strcmp(PRVM_GetString(def->s_name), name))
400                         return def;
401         }
402         return NULL;
403 }
404
405
406 /*
407 ============
408 PRVM_ED_FindFunction
409 ============
410 */
411 mfunction_t *PRVM_ED_FindFunction (const char *name)
412 {
413         mfunction_t             *func;
414         int                             i;
415
416         for (i=0 ; i<prog->progs->numfunctions ; i++)
417         {
418                 func = &prog->functions[i];
419                 if (!strcmp(PRVM_GetString(func->s_name), name))
420                         return func;
421         }
422         return NULL;
423 }
424
425
426 /*
427 ============
428 PRVM_ValueString
429
430 Returns a string describing *data in a type specific manner
431 =============
432 */
433 char *PRVM_ValueString (etype_t type, prvm_eval_t *val)
434 {
435         static char line[MAX_INPUTLINE];
436         ddef_t *def;
437         mfunction_t *f;
438         int n;
439
440         type = (etype_t)((int) type & ~DEF_SAVEGLOBAL);
441
442         switch (type)
443         {
444         case ev_string:
445                 strlcpy (line, PRVM_GetString (val->string), sizeof (line));
446                 break;
447         case ev_entity:
448                 n = val->edict;
449                 if (n < 0 || n >= prog->max_edicts)
450                         dpsnprintf (line, sizeof(line), "entity %i (invalid!)", n);
451                 else
452                         dpsnprintf (line, sizeof(line), "entity %i", n);
453                 break;
454         case ev_function:
455                 f = prog->functions + val->function;
456                 dpsnprintf (line, sizeof(line), "%s()", PRVM_GetString(f->s_name));
457                 break;
458         case ev_field:
459                 def = PRVM_ED_FieldAtOfs ( val->_int );
460                 dpsnprintf (line, sizeof(line), ".%s", PRVM_GetString(def->s_name));
461                 break;
462         case ev_void:
463                 dpsnprintf (line, sizeof(line), "void");
464                 break;
465         case ev_float:
466                 // LordHavoc: changed from %5.1f to %10.4f
467                 dpsnprintf (line, sizeof(line), "%10.4f", val->_float);
468                 break;
469         case ev_vector:
470                 // LordHavoc: changed from %5.1f to %10.4f
471                 dpsnprintf (line, sizeof(line), "'%10.4f %10.4f %10.4f'", val->vector[0], val->vector[1], val->vector[2]);
472                 break;
473         case ev_pointer:
474                 dpsnprintf (line, sizeof(line), "pointer");
475                 break;
476         default:
477                 dpsnprintf (line, sizeof(line), "bad type %i", (int) type);
478                 break;
479         }
480
481         return line;
482 }
483
484 /*
485 ============
486 PRVM_UglyValueString
487
488 Returns a string describing *data in a type specific manner
489 Easier to parse than PR_ValueString
490 =============
491 */
492 char *PRVM_UglyValueString (etype_t type, prvm_eval_t *val)
493 {
494         static char line[MAX_INPUTLINE];
495         int i;
496         const char *s;
497         ddef_t *def;
498         mfunction_t *f;
499
500         type = (etype_t)((int)type & ~DEF_SAVEGLOBAL);
501
502         switch (type)
503         {
504         case ev_string:
505                 // Parse the string a bit to turn special characters
506                 // (like newline, specifically) into escape codes,
507                 // this fixes saving games from various mods
508                 s = PRVM_GetString (val->string);
509                 for (i = 0;i < (int)sizeof(line) - 2 && *s;)
510                 {
511                         if (*s == '\n')
512                         {
513                                 line[i++] = '\\';
514                                 line[i++] = 'n';
515                         }
516                         else if (*s == '\r')
517                         {
518                                 line[i++] = '\\';
519                                 line[i++] = 'r';
520                         }
521                         else if (*s == '\\')
522                         {
523                                 line[i++] = '\\';
524                                 line[i++] = '\\';
525                         }
526                         else if (*s == '"')
527                         {
528                                 line[i++] = '\\';
529                                 line[i++] = '"';
530                         }
531                         else
532                                 line[i++] = *s;
533                         s++;
534                 }
535                 line[i] = '\0';
536                 break;
537         case ev_entity:
538                 dpsnprintf (line, sizeof (line), "%i", PRVM_NUM_FOR_EDICT(PRVM_PROG_TO_EDICT(val->edict)));
539                 break;
540         case ev_function:
541                 f = prog->functions + val->function;
542                 strlcpy (line, PRVM_GetString (f->s_name), sizeof (line));
543                 break;
544         case ev_field:
545                 def = PRVM_ED_FieldAtOfs ( val->_int );
546                 dpsnprintf (line, sizeof (line), ".%s", PRVM_GetString(def->s_name));
547                 break;
548         case ev_void:
549                 dpsnprintf (line, sizeof (line), "void");
550                 break;
551         case ev_float:
552                 dpsnprintf (line, sizeof (line), "%.9g", val->_float);
553                 break;
554         case ev_vector:
555                 dpsnprintf (line, sizeof (line), "%.9g %.9g %.9g", val->vector[0], val->vector[1], val->vector[2]);
556                 break;
557         default:
558                 dpsnprintf (line, sizeof (line), "bad type %i", type);
559                 break;
560         }
561
562         return line;
563 }
564
565 /*
566 ============
567 PRVM_GlobalString
568
569 Returns a string with a description and the contents of a global,
570 padded to 20 field width
571 ============
572 */
573 char *PRVM_GlobalString (int ofs)
574 {
575         char    *s;
576         //size_t        i;
577         ddef_t  *def;
578         void    *val;
579         static char     line[128];
580
581         val = (void *)&prog->globals.generic[ofs];
582         def = PRVM_ED_GlobalAtOfs(ofs);
583         if (!def)
584                 dpsnprintf (line, sizeof(line), "GLOBAL%i", ofs);
585         else
586         {
587                 s = PRVM_ValueString ((etype_t)def->type, (prvm_eval_t *)val);
588                 dpsnprintf (line, sizeof(line), "%s (=%s)", PRVM_GetString(def->s_name), s);
589         }
590
591         //i = strlen(line);
592         //for ( ; i<20 ; i++)
593         //      strcat (line," ");
594         //strcat (line," ");
595
596         return line;
597 }
598
599 char *PRVM_GlobalStringNoContents (int ofs)
600 {
601         //size_t        i;
602         ddef_t  *def;
603         static char     line[128];
604
605         def = PRVM_ED_GlobalAtOfs(ofs);
606         if (!def)
607                 dpsnprintf (line, sizeof(line), "GLOBAL%i", ofs);
608         else
609                 dpsnprintf (line, sizeof(line), "%s", PRVM_GetString(def->s_name));
610
611         //i = strlen(line);
612         //for ( ; i<20 ; i++)
613         //      strcat (line," ");
614         //strcat (line," ");
615
616         return line;
617 }
618
619
620 /*
621 =============
622 PRVM_ED_Print
623
624 For debugging
625 =============
626 */
627 // LordHavoc: optimized this to print out much more quickly (tempstring)
628 // LordHavoc: changed to print out every 4096 characters (incase there are a lot of fields to print)
629 void PRVM_ED_Print(prvm_edict_t *ed, const char *wildcard_fieldname)
630 {
631         size_t  l;
632         ddef_t  *d;
633         int             *v;
634         int             i, j;
635         const char      *name;
636         int             type;
637         char    tempstring[MAX_INPUTLINE], tempstring2[260]; // temporary string buffers
638
639         if (ed->priv.required->free)
640         {
641                 Con_Printf("%s: FREE\n",PRVM_NAME);
642                 return;
643         }
644
645         tempstring[0] = 0;
646         dpsnprintf(tempstring, sizeof(tempstring), "\n%s EDICT %i:\n", PRVM_NAME, PRVM_NUM_FOR_EDICT(ed));
647         for (i=1 ; i<prog->progs->numfielddefs ; i++)
648         {
649                 d = &prog->fielddefs[i];
650                 name = PRVM_GetString(d->s_name);
651                 if (name[strlen(name)-2] == '_')
652                         continue;       // skip _x, _y, _z vars
653
654                 // Check Field Name Wildcard
655                 if(wildcard_fieldname)
656                         if( !matchpattern(name, wildcard_fieldname, 1) )
657                                 // Didn't match; skip
658                                 continue;
659
660                 v = (int *)(ed->fields.vp + d->ofs);
661
662         // if the value is still all 0, skip the field
663                 type = d->type & ~DEF_SAVEGLOBAL;
664
665                 for (j=0 ; j<prvm_type_size[type] ; j++)
666                         if (v[j])
667                                 break;
668                 if (j == prvm_type_size[type])
669                         continue;
670
671                 if (strlen(name) > sizeof(tempstring2)-4)
672                 {
673                         memcpy (tempstring2, name, sizeof(tempstring2)-4);
674                         tempstring2[sizeof(tempstring2)-4] = tempstring2[sizeof(tempstring2)-3] = tempstring2[sizeof(tempstring2)-2] = '.';
675                         tempstring2[sizeof(tempstring2)-1] = 0;
676                         name = tempstring2;
677                 }
678                 strlcat(tempstring, name, sizeof(tempstring));
679                 for (l = strlen(name);l < 14;l++)
680                         strlcat(tempstring, " ", sizeof(tempstring));
681                 strlcat(tempstring, " ", sizeof(tempstring));
682
683                 name = PRVM_ValueString((etype_t)d->type, (prvm_eval_t *)v);
684                 if (strlen(name) > sizeof(tempstring2)-4)
685                 {
686                         memcpy (tempstring2, name, sizeof(tempstring2)-4);
687                         tempstring2[sizeof(tempstring2)-4] = tempstring2[sizeof(tempstring2)-3] = tempstring2[sizeof(tempstring2)-2] = '.';
688                         tempstring2[sizeof(tempstring2)-1] = 0;
689                         name = tempstring2;
690                 }
691                 strlcat(tempstring, name, sizeof(tempstring));
692                 strlcat(tempstring, "\n", sizeof(tempstring));
693                 if (strlen(tempstring) >= sizeof(tempstring)/2)
694                 {
695                         Con_Print(tempstring);
696                         tempstring[0] = 0;
697                 }
698         }
699         if (tempstring[0])
700                 Con_Print(tempstring);
701 }
702
703 /*
704 =============
705 PRVM_ED_Write
706
707 For savegames
708 =============
709 */
710 extern cvar_t developer_entityparsing;
711 void PRVM_ED_Write (qfile_t *f, prvm_edict_t *ed)
712 {
713         ddef_t  *d;
714         int             *v;
715         int             i, j;
716         const char      *name;
717         int             type;
718
719         FS_Print(f, "{\n");
720
721         if (ed->priv.required->free)
722         {
723                 FS_Print(f, "}\n");
724                 return;
725         }
726
727         for (i=1 ; i<prog->progs->numfielddefs ; i++)
728         {
729                 d = &prog->fielddefs[i];
730                 name = PRVM_GetString(d->s_name);
731
732                 if(developer_entityparsing.integer)
733                         Con_Printf("PRVM_ED_Write: at entity %d field %s\n", PRVM_NUM_FOR_EDICT(ed), name);
734
735                 if (name[strlen(name)-2] == '_')
736                         continue;       // skip _x, _y, _z vars
737
738                 v = (int *)(ed->fields.vp + d->ofs);
739
740         // if the value is still all 0, skip the field
741                 type = d->type & ~DEF_SAVEGLOBAL;
742                 for (j=0 ; j<prvm_type_size[type] ; j++)
743                         if (v[j])
744                                 break;
745                 if (j == prvm_type_size[type])
746                         continue;
747
748                 FS_Printf(f,"\"%s\" ",name);
749                 prog->statestring = va("PRVM_ED_Write, ent=%d, name=%s", i, name);
750                 FS_Printf(f,"\"%s\"\n", PRVM_UglyValueString((etype_t)d->type, (prvm_eval_t *)v));
751                 prog->statestring = NULL;
752         }
753
754         FS_Print(f, "}\n");
755 }
756
757 void PRVM_ED_PrintNum (int ent, const char *wildcard_fieldname)
758 {
759         PRVM_ED_Print(PRVM_EDICT_NUM(ent), wildcard_fieldname);
760 }
761
762 /*
763 =============
764 PRVM_ED_PrintEdicts_f
765
766 For debugging, prints all the entities in the current server
767 =============
768 */
769 void PRVM_ED_PrintEdicts_f (void)
770 {
771         int             i;
772         const char *wildcard_fieldname;
773
774         if(Cmd_Argc() < 2 || Cmd_Argc() > 3)
775         {
776                 Con_Print("prvm_edicts <program name> <optional field name wildcard>\n");
777                 return;
778         }
779
780         PRVM_Begin;
781         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
782                 return;
783
784         if( Cmd_Argc() == 3)
785                 wildcard_fieldname = Cmd_Argv(2);
786         else
787                 wildcard_fieldname = NULL;
788
789         Con_Printf("%s: %i entities\n", PRVM_NAME, prog->num_edicts);
790         for (i=0 ; i<prog->num_edicts ; i++)
791                 PRVM_ED_PrintNum (i, wildcard_fieldname);
792
793         PRVM_End;
794 }
795
796 /*
797 =============
798 PRVM_ED_PrintEdict_f
799
800 For debugging, prints a single edict
801 =============
802 */
803 void PRVM_ED_PrintEdict_f (void)
804 {
805         int             i;
806         const char      *wildcard_fieldname;
807
808         if(Cmd_Argc() < 3 || Cmd_Argc() > 4)
809         {
810                 Con_Print("prvm_edict <program name> <edict number> <optional field name wildcard>\n");
811                 return;
812         }
813
814         PRVM_Begin;
815         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
816                 return;
817
818         i = atoi (Cmd_Argv(2));
819         if (i >= prog->num_edicts)
820         {
821                 Con_Print("Bad edict number\n");
822                 PRVM_End;
823                 return;
824         }
825         if( Cmd_Argc() == 4)
826                 // Optional Wildcard Provided
827                 wildcard_fieldname = Cmd_Argv(3);
828         else
829                 // Use All
830                 wildcard_fieldname = NULL;
831         PRVM_ED_PrintNum (i, wildcard_fieldname);
832
833         PRVM_End;
834 }
835
836 /*
837 =============
838 PRVM_ED_Count
839
840 For debugging
841 =============
842 */
843 // 2 possibilities : 1. just displaying the active edict count
844 //                                       2. making a function pointer [x]
845 void PRVM_ED_Count_f (void)
846 {
847         int             i;
848         prvm_edict_t    *ent;
849         int             active;
850
851         if(Cmd_Argc() != 2)
852         {
853                 Con_Print("prvm_count <program name>\n");
854                 return;
855         }
856
857         PRVM_Begin;
858         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
859                 return;
860
861         if(prog->count_edicts)
862                 prog->count_edicts();
863         else
864         {
865                 active = 0;
866                 for (i=0 ; i<prog->num_edicts ; i++)
867                 {
868                         ent = PRVM_EDICT_NUM(i);
869                         if (ent->priv.required->free)
870                                 continue;
871                         active++;
872                 }
873
874                 Con_Printf("num_edicts:%3i\n", prog->num_edicts);
875                 Con_Printf("active    :%3i\n", active);
876         }
877
878         PRVM_End;
879 }
880
881 /*
882 ==============================================================================
883
884                                         ARCHIVING GLOBALS
885
886 FIXME: need to tag constants, doesn't really work
887 ==============================================================================
888 */
889
890 /*
891 =============
892 PRVM_ED_WriteGlobals
893 =============
894 */
895 void PRVM_ED_WriteGlobals (qfile_t *f)
896 {
897         ddef_t          *def;
898         int                     i;
899         const char              *name;
900         int                     type;
901
902         FS_Print(f,"{\n");
903         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
904         {
905                 def = &prog->globaldefs[i];
906                 type = def->type;
907                 if ( !(def->type & DEF_SAVEGLOBAL) )
908                         continue;
909                 type &= ~DEF_SAVEGLOBAL;
910
911                 if (type != ev_string && type != ev_float && type != ev_entity)
912                         continue;
913
914                 name = PRVM_GetString(def->s_name);
915
916                 if(developer_entityparsing.integer)
917                         Con_Printf("PRVM_ED_WriteGlobals: at global %s\n", name);
918
919                 prog->statestring = va("PRVM_ED_WriteGlobals, name=%s", name);
920                 FS_Printf(f,"\"%s\" ", name);
921                 FS_Printf(f,"\"%s\"\n", PRVM_UglyValueString((etype_t)type, (prvm_eval_t *)&prog->globals.generic[def->ofs]));
922                 prog->statestring = NULL;
923         }
924         FS_Print(f,"}\n");
925 }
926
927 /*
928 =============
929 PRVM_ED_ParseGlobals
930 =============
931 */
932 void PRVM_ED_ParseGlobals (const char *data)
933 {
934         char keyname[MAX_INPUTLINE];
935         ddef_t *key;
936
937         while (1)
938         {
939                 // parse key
940                 if (!COM_ParseToken_Simple(&data, false, false))
941                         PRVM_ERROR ("PRVM_ED_ParseGlobals: EOF without closing brace");
942                 if (com_token[0] == '}')
943                         break;
944
945                 if (developer_entityparsing.integer)
946                         Con_Printf("Key: \"%s\"", com_token);
947
948                 strlcpy (keyname, com_token, sizeof(keyname));
949
950                 // parse value
951                 if (!COM_ParseToken_Simple(&data, false, true))
952                         PRVM_ERROR ("PRVM_ED_ParseGlobals: EOF without closing brace");
953
954                 if (developer_entityparsing.integer)
955                         Con_Printf(" \"%s\"\n", com_token);
956
957                 if (com_token[0] == '}')
958                         PRVM_ERROR ("PRVM_ED_ParseGlobals: closing brace without data");
959
960                 key = PRVM_ED_FindGlobal (keyname);
961                 if (!key)
962                 {
963                         Con_DPrintf("'%s' is not a global on %s\n", keyname, PRVM_NAME);
964                         continue;
965                 }
966
967                 if (!PRVM_ED_ParseEpair(NULL, key, com_token, true))
968                         PRVM_ERROR ("PRVM_ED_ParseGlobals: parse error");
969         }
970 }
971
972 //============================================================================
973
974
975 /*
976 =============
977 PRVM_ED_ParseEval
978
979 Can parse either fields or globals
980 returns false if error
981 =============
982 */
983 qboolean PRVM_ED_ParseEpair(prvm_edict_t *ent, ddef_t *key, const char *s, qboolean parsebackslash)
984 {
985         int i, l;
986         char *new_p;
987         ddef_t *def;
988         prvm_eval_t *val;
989         mfunction_t *func;
990
991         if (ent)
992                 val = (prvm_eval_t *)(ent->fields.vp + key->ofs);
993         else
994                 val = (prvm_eval_t *)(prog->globals.generic + key->ofs);
995         switch (key->type & ~DEF_SAVEGLOBAL)
996         {
997         case ev_string:
998                 l = (int)strlen(s) + 1;
999                 val->string = PRVM_AllocString(l, &new_p);
1000                 for (i = 0;i < l;i++)
1001                 {
1002                         if (s[i] == '\\' && s[i+1] && parsebackslash)
1003                         {
1004                                 i++;
1005                                 if (s[i] == 'n')
1006                                         *new_p++ = '\n';
1007                                 else if (s[i] == 'r')
1008                                         *new_p++ = '\r';
1009                                 else
1010                                         *new_p++ = s[i];
1011                         }
1012                         else
1013                                 *new_p++ = s[i];
1014                 }
1015                 break;
1016
1017         case ev_float:
1018                 while (*s && ISWHITESPACE(*s))
1019                         s++;
1020                 val->_float = atof(s);
1021                 break;
1022
1023         case ev_vector:
1024                 for (i = 0;i < 3;i++)
1025                 {
1026                         while (*s && ISWHITESPACE(*s))
1027                                 s++;
1028                         if (!*s)
1029                                 break;
1030                         val->vector[i] = atof(s);
1031                         while (!ISWHITESPACE(*s))
1032                                 s++;
1033                         if (!*s)
1034                                 break;
1035                 }
1036                 break;
1037
1038         case ev_entity:
1039                 while (*s && ISWHITESPACE(*s))
1040                         s++;
1041                 i = atoi(s);
1042                 if (i >= prog->limit_edicts)
1043                         Con_Printf("PRVM_ED_ParseEpair: ev_entity reference too large (edict %u >= MAX_EDICTS %u) on %s\n", (unsigned int)i, prog->limit_edicts, PRVM_NAME);
1044                 while (i >= prog->max_edicts)
1045                         PRVM_MEM_IncreaseEdicts();
1046                 // if IncreaseEdicts was called the base pointer needs to be updated
1047                 if (ent)
1048                         val = (prvm_eval_t *)(ent->fields.vp + key->ofs);
1049                 val->edict = PRVM_EDICT_TO_PROG(PRVM_EDICT_NUM((int)i));
1050                 break;
1051
1052         case ev_field:
1053                 if (*s != '.')
1054                 {
1055                         Con_DPrintf("PRVM_ED_ParseEpair: Bogus field name %s in %s\n", s, PRVM_NAME);
1056                         return false;
1057                 }
1058                 def = PRVM_ED_FindField(s + 1);
1059                 if (!def)
1060                 {
1061                         Con_DPrintf("PRVM_ED_ParseEpair: Can't find field %s in %s\n", s, PRVM_NAME);
1062                         return false;
1063                 }
1064                 val->_int = def->ofs;
1065                 break;
1066
1067         case ev_function:
1068                 func = PRVM_ED_FindFunction(s);
1069                 if (!func)
1070                 {
1071                         Con_Printf("PRVM_ED_ParseEpair: Can't find function %s in %s\n", s, PRVM_NAME);
1072                         return false;
1073                 }
1074                 val->function = func - prog->functions;
1075                 break;
1076
1077         default:
1078                 Con_Printf("PRVM_ED_ParseEpair: Unknown key->type %i for key \"%s\" on %s\n", key->type, PRVM_GetString(key->s_name), PRVM_NAME);
1079                 return false;
1080         }
1081         return true;
1082 }
1083
1084 /*
1085 =============
1086 PRVM_GameCommand_f
1087
1088 Console command to send a string to QC function GameCommand of the
1089 indicated progs
1090
1091 Usage:
1092   sv_cmd adminmsg 3 "do not teamkill"
1093   cl_cmd someclientcommand
1094   menu_cmd somemenucommand
1095
1096 All progs can support this extension; sg calls it in server QC, cg in client
1097 QC, mg in menu QC.
1098 =============
1099 */
1100 void PRVM_GameCommand(const char *whichprogs, const char *whichcmd)
1101 {
1102         if(Cmd_Argc() < 1)
1103         {
1104                 Con_Printf("%s text...\n", whichcmd);
1105                 return;
1106         }
1107
1108         PRVM_Begin;
1109         if(!PRVM_SetProgFromString(whichprogs))
1110         // note: this is not PRVM_SetProg because that one aborts "hard" using PRVM_Error
1111         // also, it makes printing error messages easier!
1112         {
1113                 Con_Printf("%s program not loaded.\n", whichprogs);
1114                 return;
1115         }
1116
1117         if(!prog->funcoffsets.GameCommand)
1118         {
1119                 Con_Printf("%s program do not support GameCommand!\n", whichprogs);
1120         }
1121         else
1122         {
1123                 int restorevm_tempstringsbuf_cursize;
1124                 const char *s;
1125
1126                 s = Cmd_Args();
1127
1128                 restorevm_tempstringsbuf_cursize = vm_tempstringsbuf.cursize;
1129                 PRVM_G_INT(OFS_PARM0) = PRVM_SetTempString(s ? s : "");
1130                 PRVM_ExecuteProgram (prog->funcoffsets.GameCommand, "QC function GameCommand is missing");
1131                 vm_tempstringsbuf.cursize = restorevm_tempstringsbuf_cursize;
1132         }
1133
1134         PRVM_End;
1135 }
1136 void PRVM_GameCommand_Server_f(void)
1137 {
1138         PRVM_GameCommand("server", "sv_cmd");
1139 }
1140 void PRVM_GameCommand_Client_f(void)
1141 {
1142         PRVM_GameCommand("client", "cl_cmd");
1143 }
1144 void PRVM_GameCommand_Menu_f(void)
1145 {
1146         PRVM_GameCommand("menu", "menu_cmd");
1147 }
1148
1149 /*
1150 =============
1151 PRVM_ED_EdictGet_f
1152
1153 Console command to load a field of a specified edict
1154 =============
1155 */
1156 void PRVM_ED_EdictGet_f(void)
1157 {
1158         prvm_edict_t *ed;
1159         ddef_t *key;
1160         const char *s;
1161         prvm_eval_t *v;
1162
1163         if(Cmd_Argc() != 4 && Cmd_Argc() != 5)
1164         {
1165                 Con_Print("prvm_edictget <program name> <edict number> <field> [<cvar>]\n");
1166                 return;
1167         }
1168
1169         PRVM_Begin;
1170         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
1171         {
1172                 Con_Printf("Wrong program name %s !\n", Cmd_Argv(1));
1173                 return;
1174         }
1175
1176         ed = PRVM_EDICT_NUM(atoi(Cmd_Argv(2)));
1177
1178         if((key = PRVM_ED_FindField(Cmd_Argv(3))) == 0)
1179         {
1180                 Con_Printf("Key %s not found !\n", Cmd_Argv(3));
1181                 goto fail;
1182         }
1183
1184         v = (prvm_eval_t *)(ed->fields.vp + key->ofs);
1185         s = PRVM_UglyValueString((etype_t)key->type, v);
1186         if(Cmd_Argc() == 5)
1187         {
1188                 cvar_t *cvar = Cvar_FindVar(Cmd_Argv(4));
1189                 if (cvar && cvar->flags & CVAR_READONLY)
1190                 {
1191                         Con_Printf("prvm_edictget: %s is read-only\n", cvar->name);
1192                         goto fail;
1193                 }
1194                 Cvar_Get(Cmd_Argv(4), s, 0, NULL);
1195         }
1196         else
1197                 Con_Printf("%s\n", s);
1198
1199 fail:
1200         PRVM_End;
1201 }
1202
1203 void PRVM_ED_GlobalGet_f(void)
1204 {
1205         ddef_t *key;
1206         const char *s;
1207         prvm_eval_t *v;
1208
1209         if(Cmd_Argc() != 3 && Cmd_Argc() != 4)
1210         {
1211                 Con_Print("prvm_globalget <program name> <global> [<cvar>]\n");
1212                 return;
1213         }
1214
1215         PRVM_Begin;
1216         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
1217         {
1218                 Con_Printf("Wrong program name %s !\n", Cmd_Argv(1));
1219                 return;
1220         }
1221
1222         key = PRVM_ED_FindGlobal(Cmd_Argv(2));
1223         if(!key)
1224         {
1225                 Con_Printf( "No global '%s' in %s!\n", Cmd_Argv(2), Cmd_Argv(1) );
1226                 goto fail;
1227         }
1228
1229         v = (prvm_eval_t *) &prog->globals.generic[key->ofs];
1230         s = PRVM_UglyValueString((etype_t)key->type, v);
1231         if(Cmd_Argc() == 4)
1232         {
1233                 cvar_t *cvar = Cvar_FindVar(Cmd_Argv(3));
1234                 if (cvar && cvar->flags & CVAR_READONLY)
1235                 {
1236                         Con_Printf("prvm_globalget: %s is read-only\n", cvar->name);
1237                         goto fail;
1238                 }
1239                 Cvar_Get(Cmd_Argv(3), s, 0, NULL);
1240         }
1241         else
1242                 Con_Printf("%s\n", s);
1243
1244 fail:
1245         PRVM_End;
1246 }
1247
1248 /*
1249 =============
1250 PRVM_ED_EdictSet_f
1251
1252 Console command to set a field of a specified edict
1253 =============
1254 */
1255 void PRVM_ED_EdictSet_f(void)
1256 {
1257         prvm_edict_t *ed;
1258         ddef_t *key;
1259
1260         if(Cmd_Argc() != 5)
1261         {
1262                 Con_Print("prvm_edictset <program name> <edict number> <field> <value>\n");
1263                 return;
1264         }
1265
1266         PRVM_Begin;
1267         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
1268         {
1269                 Con_Printf("Wrong program name %s !\n", Cmd_Argv(1));
1270                 return;
1271         }
1272
1273         ed = PRVM_EDICT_NUM(atoi(Cmd_Argv(2)));
1274
1275         if((key = PRVM_ED_FindField(Cmd_Argv(3))) == 0)
1276                 Con_Printf("Key %s not found !\n", Cmd_Argv(3));
1277         else
1278                 PRVM_ED_ParseEpair(ed, key, Cmd_Argv(4), true);
1279
1280         PRVM_End;
1281 }
1282
1283 /*
1284 ====================
1285 PRVM_ED_ParseEdict
1286
1287 Parses an edict out of the given string, returning the new position
1288 ed should be a properly initialized empty edict.
1289 Used for initial level load and for savegames.
1290 ====================
1291 */
1292 const char *PRVM_ED_ParseEdict (const char *data, prvm_edict_t *ent)
1293 {
1294         ddef_t *key;
1295         qboolean anglehack;
1296         qboolean init;
1297         char keyname[256];
1298         size_t n;
1299
1300         init = false;
1301
1302 // go through all the dictionary pairs
1303         while (1)
1304         {
1305         // parse key
1306                 if (!COM_ParseToken_Simple(&data, false, false))
1307                         PRVM_ERROR ("PRVM_ED_ParseEdict: EOF without closing brace");
1308                 if (developer_entityparsing.integer)
1309                         Con_Printf("Key: \"%s\"", com_token);
1310                 if (com_token[0] == '}')
1311                         break;
1312
1313                 // anglehack is to allow QuakeEd to write single scalar angles
1314                 // and allow them to be turned into vectors. (FIXME...)
1315                 if (!strcmp(com_token, "angle"))
1316                 {
1317                         strlcpy (com_token, "angles", sizeof(com_token));
1318                         anglehack = true;
1319                 }
1320                 else
1321                         anglehack = false;
1322
1323                 // FIXME: change light to _light to get rid of this hack
1324                 if (!strcmp(com_token, "light"))
1325                         strlcpy (com_token, "light_lev", sizeof(com_token));    // hack for single light def
1326
1327                 strlcpy (keyname, com_token, sizeof(keyname));
1328
1329                 // another hack to fix keynames with trailing spaces
1330                 n = strlen(keyname);
1331                 while (n && keyname[n-1] == ' ')
1332                 {
1333                         keyname[n-1] = 0;
1334                         n--;
1335                 }
1336
1337         // parse value
1338                 if (!COM_ParseToken_Simple(&data, false, false))
1339                         PRVM_ERROR ("PRVM_ED_ParseEdict: EOF without closing brace");
1340                 if (developer_entityparsing.integer)
1341                         Con_Printf(" \"%s\"\n", com_token);
1342
1343                 if (com_token[0] == '}')
1344                         PRVM_ERROR ("PRVM_ED_ParseEdict: closing brace without data");
1345
1346                 init = true;
1347
1348                 // ignore attempts to set key "" (this problem occurs in nehahra neh1m8.bsp)
1349                 if (!keyname[0])
1350                         continue;
1351
1352 // keynames with a leading underscore are used for utility comments,
1353 // and are immediately discarded by quake
1354                 if (keyname[0] == '_')
1355                         continue;
1356
1357                 key = PRVM_ED_FindField (keyname);
1358                 if (!key)
1359                 {
1360                         Con_DPrintf("%s: '%s' is not a field\n", PRVM_NAME, keyname);
1361                         continue;
1362                 }
1363
1364                 if (anglehack)
1365                 {
1366                         char    temp[32];
1367                         strlcpy (temp, com_token, sizeof(temp));
1368                         dpsnprintf (com_token, sizeof(com_token), "0 %s 0", temp);
1369                 }
1370
1371                 if (!PRVM_ED_ParseEpair(ent, key, com_token, strcmp(keyname, "wad") != 0))
1372                         PRVM_ERROR ("PRVM_ED_ParseEdict: parse error");
1373         }
1374
1375         if (!init)
1376                 ent->priv.required->free = true;
1377
1378         return data;
1379 }
1380
1381
1382 /*
1383 ================
1384 PRVM_ED_LoadFromFile
1385
1386 The entities are directly placed in the array, rather than allocated with
1387 PRVM_ED_Alloc, because otherwise an error loading the map would have entity
1388 number references out of order.
1389
1390 Creates a server's entity / program execution context by
1391 parsing textual entity definitions out of an ent file.
1392
1393 Used for both fresh maps and savegame loads.  A fresh map would also need
1394 to call PRVM_ED_CallSpawnFunctions () to let the objects initialize themselves.
1395 ================
1396 */
1397 void PRVM_ED_LoadFromFile (const char *data)
1398 {
1399         prvm_edict_t *ent;
1400         int parsed, inhibited, spawned, died;
1401         const char *funcname;
1402         mfunction_t *func;
1403
1404         parsed = 0;
1405         inhibited = 0;
1406         spawned = 0;
1407         died = 0;
1408
1409         prvm_reuseedicts_always_allow = realtime;
1410
1411 // parse ents
1412         while (1)
1413         {
1414 // parse the opening brace
1415                 if (!COM_ParseToken_Simple(&data, false, false))
1416                         break;
1417                 if (com_token[0] != '{')
1418                         PRVM_ERROR ("PRVM_ED_LoadFromFile: %s: found %s when expecting {", PRVM_NAME, com_token);
1419
1420                 // CHANGED: this is not conform to PR_LoadFromFile
1421                 if(prog->loadintoworld)
1422                 {
1423                         prog->loadintoworld = false;
1424                         ent = PRVM_EDICT_NUM(0);
1425                 }
1426                 else
1427                         ent = PRVM_ED_Alloc();
1428
1429                 // clear it
1430                 if (ent != prog->edicts)        // hack
1431                         memset (ent->fields.vp, 0, prog->progs->entityfields * 4);
1432
1433                 data = PRVM_ED_ParseEdict (data, ent);
1434                 parsed++;
1435
1436                 // remove the entity ?
1437                 if(prog->load_edict && !prog->load_edict(ent))
1438                 {
1439                         PRVM_ED_Free(ent);
1440                         inhibited++;
1441                         continue;
1442                 }
1443
1444                 if (prog->funcoffsets.SV_OnEntityPreSpawnFunction)
1445                 {
1446                         // self = ent
1447                         PRVM_GLOBALFIELDVALUE(prog->globaloffsets.self)->edict = PRVM_EDICT_TO_PROG(ent);
1448                         PRVM_ExecuteProgram (prog->funcoffsets.SV_OnEntityPreSpawnFunction, "QC function SV_OnEntityPreSpawnFunction is missing");
1449                 }
1450
1451                 if(ent->priv.required->free)
1452                 {
1453                         inhibited++;
1454                         continue;
1455                 }
1456
1457 //
1458 // immediately call spawn function, but only if there is a self global and a classname
1459 //
1460                 if(!ent->priv.required->free)
1461                 if(prog->globaloffsets.self >= 0 && prog->fieldoffsets.classname >= 0)
1462                 {
1463                         string_t handle =  PRVM_EDICTFIELDVALUE(ent, prog->fieldoffsets.classname)->string;
1464                         if (!handle)
1465                         {
1466                                 Con_Print("No classname for:\n");
1467                                 PRVM_ED_Print(ent, NULL);
1468                                 PRVM_ED_Free (ent);
1469                                 continue;
1470                         }
1471
1472                         // look for the spawn function
1473                         funcname = PRVM_GetString(handle);
1474                         func = PRVM_ED_FindFunction (va("spawnfunc_%s", funcname));
1475                         if(!func)
1476                                 if(prog->globaloffsets.require_spawnfunc_prefix < 0)
1477                                         func = PRVM_ED_FindFunction (funcname);
1478
1479                         if (!func)
1480                         {
1481                                 // check for OnEntityNoSpawnFunction
1482                                 if (prog->funcoffsets.SV_OnEntityNoSpawnFunction)
1483                                 {
1484                                         // self = ent
1485                                         PRVM_GLOBALFIELDVALUE(prog->globaloffsets.self)->edict = PRVM_EDICT_TO_PROG(ent);
1486                                         PRVM_ExecuteProgram (prog->funcoffsets.SV_OnEntityNoSpawnFunction, "QC function SV_OnEntityNoSpawnFunction is missing");
1487                                 }
1488                                 else
1489                                 {
1490                                         if (developer.integer > 0) // don't confuse non-developers with errors
1491                                         {
1492                                                 Con_Print("No spawn function for:\n");
1493                                                 PRVM_ED_Print(ent, NULL);
1494                                         }
1495                                         PRVM_ED_Free (ent);
1496                                         continue; // not included in "inhibited" count
1497                                 }
1498                         }
1499                         else
1500                         {
1501                                 // self = ent
1502                                 PRVM_GLOBALFIELDVALUE(prog->globaloffsets.self)->edict = PRVM_EDICT_TO_PROG(ent);
1503                                 PRVM_ExecuteProgram (func - prog->functions, "");
1504                         }
1505                 }
1506
1507                 if(!ent->priv.required->free)
1508                 if (prog->funcoffsets.SV_OnEntityPostSpawnFunction)
1509                 {
1510                         // self = ent
1511                         PRVM_GLOBALFIELDVALUE(prog->globaloffsets.self)->edict = PRVM_EDICT_TO_PROG(ent);
1512                         PRVM_ExecuteProgram (prog->funcoffsets.SV_OnEntityPostSpawnFunction, "QC function SV_OnEntityPostSpawnFunction is missing");
1513                 }
1514
1515                 spawned++;
1516                 if (ent->priv.required->free)
1517                         died++;
1518         }
1519
1520         Con_DPrintf("%s: %i new entities parsed, %i new inhibited, %i (%i new) spawned (whereas %i removed self, %i stayed)\n", PRVM_NAME, parsed, inhibited, prog->num_edicts, spawned, died, spawned - died);
1521
1522         prvm_reuseedicts_always_allow = 0;
1523 }
1524
1525 void PRVM_FindOffsets(void)
1526 {
1527         // field and global searches use -1 for NULL
1528         memset(&prog->fieldoffsets, -1, sizeof(prog->fieldoffsets));
1529         memset(&prog->globaloffsets, -1, sizeof(prog->globaloffsets));
1530         // functions use 0 for NULL
1531         memset(&prog->funcoffsets, 0, sizeof(prog->funcoffsets));
1532
1533         // server and client qc use a lot of similar fields, so this is combined
1534         prog->fieldoffsets.SendEntity                     = PRVM_ED_FindFieldOffset("SendEntity");
1535         prog->fieldoffsets.SendFlags                      = PRVM_ED_FindFieldOffset("SendFlags");
1536         prog->fieldoffsets.Version                        = PRVM_ED_FindFieldOffset("Version");
1537         prog->fieldoffsets.alpha                          = PRVM_ED_FindFieldOffset("alpha");
1538         prog->fieldoffsets.ammo_cells1                    = PRVM_ED_FindFieldOffset("ammo_cells1");
1539         prog->fieldoffsets.ammo_lava_nails                = PRVM_ED_FindFieldOffset("ammo_lava_nails");
1540         prog->fieldoffsets.ammo_multi_rockets             = PRVM_ED_FindFieldOffset("ammo_multi_rockets");
1541         prog->fieldoffsets.ammo_nails1                    = PRVM_ED_FindFieldOffset("ammo_nails1");
1542         prog->fieldoffsets.ammo_plasma                    = PRVM_ED_FindFieldOffset("ammo_plasma");
1543         prog->fieldoffsets.ammo_rockets1                  = PRVM_ED_FindFieldOffset("ammo_rockets1");
1544         prog->fieldoffsets.ammo_shells1                   = PRVM_ED_FindFieldOffset("ammo_shells1");
1545         prog->fieldoffsets.angles                         = PRVM_ED_FindFieldOffset("angles");
1546         prog->fieldoffsets.button3                        = PRVM_ED_FindFieldOffset("button3");
1547         prog->fieldoffsets.button4                        = PRVM_ED_FindFieldOffset("button4");
1548         prog->fieldoffsets.button5                        = PRVM_ED_FindFieldOffset("button5");
1549         prog->fieldoffsets.button6                        = PRVM_ED_FindFieldOffset("button6");
1550         prog->fieldoffsets.button7                        = PRVM_ED_FindFieldOffset("button7");
1551         prog->fieldoffsets.button8                        = PRVM_ED_FindFieldOffset("button8");
1552         prog->fieldoffsets.button9                        = PRVM_ED_FindFieldOffset("button9");
1553         prog->fieldoffsets.button10                       = PRVM_ED_FindFieldOffset("button10");
1554         prog->fieldoffsets.button11                       = PRVM_ED_FindFieldOffset("button11");
1555         prog->fieldoffsets.button12                       = PRVM_ED_FindFieldOffset("button12");
1556         prog->fieldoffsets.button13                       = PRVM_ED_FindFieldOffset("button13");
1557         prog->fieldoffsets.button14                       = PRVM_ED_FindFieldOffset("button14");
1558         prog->fieldoffsets.button15                       = PRVM_ED_FindFieldOffset("button15");
1559         prog->fieldoffsets.button16                       = PRVM_ED_FindFieldOffset("button16");
1560         prog->fieldoffsets.buttonchat                     = PRVM_ED_FindFieldOffset("buttonchat");
1561         prog->fieldoffsets.buttonuse                      = PRVM_ED_FindFieldOffset("buttonuse");
1562         prog->fieldoffsets.chain                          = PRVM_ED_FindFieldOffset("chain");
1563         prog->fieldoffsets.classname                      = PRVM_ED_FindFieldOffset("classname");
1564         prog->fieldoffsets.clientcamera                   = PRVM_ED_FindFieldOffset("clientcamera");
1565         prog->fieldoffsets.clientcolors                   = PRVM_ED_FindFieldOffset("clientcolors");
1566         prog->fieldoffsets.clientstatus                   = PRVM_ED_FindFieldOffset("clientstatus");
1567         prog->fieldoffsets.color                          = PRVM_ED_FindFieldOffset("color");
1568         prog->fieldoffsets.colormod                       = PRVM_ED_FindFieldOffset("colormod");
1569         prog->fieldoffsets.contentstransition             = PRVM_ED_FindFieldOffset("contentstransition");
1570         prog->fieldoffsets.cursor_active                  = PRVM_ED_FindFieldOffset("cursor_active");
1571         prog->fieldoffsets.cursor_screen                  = PRVM_ED_FindFieldOffset("cursor_screen");
1572         prog->fieldoffsets.cursor_trace_endpos            = PRVM_ED_FindFieldOffset("cursor_trace_endpos");
1573         prog->fieldoffsets.cursor_trace_ent               = PRVM_ED_FindFieldOffset("cursor_trace_ent");
1574         prog->fieldoffsets.cursor_trace_start             = PRVM_ED_FindFieldOffset("cursor_trace_start");
1575         prog->fieldoffsets.customizeentityforclient       = PRVM_ED_FindFieldOffset("customizeentityforclient");
1576         prog->fieldoffsets.dimension_hit                  = PRVM_ED_FindFieldOffset("dimension_hit");
1577         prog->fieldoffsets.dimension_solid                = PRVM_ED_FindFieldOffset("dimension_solid");
1578         prog->fieldoffsets.disableclientprediction        = PRVM_ED_FindFieldOffset("disableclientprediction");
1579         prog->fieldoffsets.discardabledemo                = PRVM_ED_FindFieldOffset("discardabledemo");
1580         prog->fieldoffsets.dphitcontentsmask              = PRVM_ED_FindFieldOffset("dphitcontentsmask");
1581         prog->fieldoffsets.drawonlytoclient               = PRVM_ED_FindFieldOffset("drawonlytoclient");
1582         prog->fieldoffsets.exteriormodeltoclient          = PRVM_ED_FindFieldOffset("exteriormodeltoclient");
1583         prog->fieldoffsets.fatness                        = PRVM_ED_FindFieldOffset("fatness");
1584         prog->fieldoffsets.forceshader                    = PRVM_ED_FindFieldOffset("forceshader");
1585         prog->fieldoffsets.frame                          = PRVM_ED_FindFieldOffset("frame");
1586         prog->fieldoffsets.frame1time                     = PRVM_ED_FindFieldOffset("frame1time");
1587         prog->fieldoffsets.frame2                         = PRVM_ED_FindFieldOffset("frame2");
1588         prog->fieldoffsets.frame2time                     = PRVM_ED_FindFieldOffset("frame2time");
1589         prog->fieldoffsets.frame3                         = PRVM_ED_FindFieldOffset("frame3");
1590         prog->fieldoffsets.frame3time                     = PRVM_ED_FindFieldOffset("frame3time");
1591         prog->fieldoffsets.frame4                         = PRVM_ED_FindFieldOffset("frame4");
1592         prog->fieldoffsets.frame4time                     = PRVM_ED_FindFieldOffset("frame4time");
1593         prog->fieldoffsets.fullbright                     = PRVM_ED_FindFieldOffset("fullbright");
1594         prog->fieldoffsets.glow_color                     = PRVM_ED_FindFieldOffset("glow_color");
1595         prog->fieldoffsets.glow_size                      = PRVM_ED_FindFieldOffset("glow_size");
1596         prog->fieldoffsets.glow_trail                     = PRVM_ED_FindFieldOffset("glow_trail");
1597         prog->fieldoffsets.glowmod                        = PRVM_ED_FindFieldOffset("glowmod");
1598         prog->fieldoffsets.gravity                        = PRVM_ED_FindFieldOffset("gravity");
1599         prog->fieldoffsets.groundentity                   = PRVM_ED_FindFieldOffset("groundentity");
1600         prog->fieldoffsets.hull                           = PRVM_ED_FindFieldOffset("hull");
1601         prog->fieldoffsets.ideal_yaw                      = PRVM_ED_FindFieldOffset("ideal_yaw");
1602         prog->fieldoffsets.idealpitch                     = PRVM_ED_FindFieldOffset("idealpitch");
1603         prog->fieldoffsets.items2                         = PRVM_ED_FindFieldOffset("items2");
1604         prog->fieldoffsets.lerpfrac                       = PRVM_ED_FindFieldOffset("lerpfrac");
1605         prog->fieldoffsets.lerpfrac3                      = PRVM_ED_FindFieldOffset("lerpfrac3");
1606         prog->fieldoffsets.lerpfrac4                      = PRVM_ED_FindFieldOffset("lerpfrac4");
1607         prog->fieldoffsets.light_lev                      = PRVM_ED_FindFieldOffset("light_lev");
1608         prog->fieldoffsets.message                        = PRVM_ED_FindFieldOffset("message");
1609         prog->fieldoffsets.modelflags                     = PRVM_ED_FindFieldOffset("modelflags");
1610         prog->fieldoffsets.movement                       = PRVM_ED_FindFieldOffset("movement");
1611         prog->fieldoffsets.movetypesteplandevent          = PRVM_ED_FindFieldOffset("movetypesteplandevent");
1612         prog->fieldoffsets.netaddress                     = PRVM_ED_FindFieldOffset("netaddress");
1613         prog->fieldoffsets.nextthink                      = PRVM_ED_FindFieldOffset("nextthink");
1614         prog->fieldoffsets.nodrawtoclient                 = PRVM_ED_FindFieldOffset("nodrawtoclient");
1615         prog->fieldoffsets.pflags                         = PRVM_ED_FindFieldOffset("pflags");
1616         prog->fieldoffsets.ping                           = PRVM_ED_FindFieldOffset("ping");
1617         prog->fieldoffsets.packetloss                     = PRVM_ED_FindFieldOffset("ping_packetloss");
1618         prog->fieldoffsets.movementloss                   = PRVM_ED_FindFieldOffset("ping_movementloss");
1619         prog->fieldoffsets.pitch_speed                    = PRVM_ED_FindFieldOffset("pitch_speed");
1620         prog->fieldoffsets.playermodel                    = PRVM_ED_FindFieldOffset("playermodel");
1621         prog->fieldoffsets.playerskin                     = PRVM_ED_FindFieldOffset("playerskin");
1622         prog->fieldoffsets.pmodel                         = PRVM_ED_FindFieldOffset("pmodel");
1623         prog->fieldoffsets.punchvector                    = PRVM_ED_FindFieldOffset("punchvector");
1624         prog->fieldoffsets.renderamt                      = PRVM_ED_FindFieldOffset("renderamt"); // HalfLife support
1625         prog->fieldoffsets.renderflags                    = PRVM_ED_FindFieldOffset("renderflags");
1626         prog->fieldoffsets.rendermode                     = PRVM_ED_FindFieldOffset("rendermode"); // HalfLife support
1627         prog->fieldoffsets.scale                          = PRVM_ED_FindFieldOffset("scale");
1628         prog->fieldoffsets.shadertime                     = PRVM_ED_FindFieldOffset("shadertime");
1629         prog->fieldoffsets.skeletonindex                  = PRVM_ED_FindFieldOffset("skeletonindex");
1630         prog->fieldoffsets.style                          = PRVM_ED_FindFieldOffset("style");
1631         prog->fieldoffsets.tag_entity                     = PRVM_ED_FindFieldOffset("tag_entity");
1632         prog->fieldoffsets.tag_index                      = PRVM_ED_FindFieldOffset("tag_index");
1633         prog->fieldoffsets.think                          = PRVM_ED_FindFieldOffset("think");
1634         prog->fieldoffsets.viewmodelforclient             = PRVM_ED_FindFieldOffset("viewmodelforclient");
1635         prog->fieldoffsets.viewzoom                       = PRVM_ED_FindFieldOffset("viewzoom");
1636         prog->fieldoffsets.yaw_speed                      = PRVM_ED_FindFieldOffset("yaw_speed");
1637         prog->fieldoffsets.bouncefactor                   = PRVM_ED_FindFieldOffset("bouncefactor");
1638         prog->fieldoffsets.bouncestop                     = PRVM_ED_FindFieldOffset("bouncestop");
1639
1640         prog->fieldoffsets.solid                          = PRVM_ED_FindFieldOffset("solid");
1641         prog->fieldoffsets.movetype                       = PRVM_ED_FindFieldOffset("movetype");
1642         prog->fieldoffsets.modelindex                     = PRVM_ED_FindFieldOffset("modelindex");
1643         prog->fieldoffsets.mins                           = PRVM_ED_FindFieldOffset("mins");
1644         prog->fieldoffsets.maxs                           = PRVM_ED_FindFieldOffset("maxs");
1645         prog->fieldoffsets.mass                           = PRVM_ED_FindFieldOffset("mass");
1646         prog->fieldoffsets.origin                         = PRVM_ED_FindFieldOffset("origin");
1647         prog->fieldoffsets.velocity                       = PRVM_ED_FindFieldOffset("velocity");
1648         //prog->fieldoffsets.axis_forward                   = PRVM_ED_FindFieldOffset("axis_forward");
1649         //prog->fieldoffsets.axis_left                      = PRVM_ED_FindFieldOffset("axis_left");
1650         //prog->fieldoffsets.axis_up                        = PRVM_ED_FindFieldOffset("axis_up");
1651         //prog->fieldoffsets.spinvelocity                   = PRVM_ED_FindFieldOffset("spinvelocity");
1652         prog->fieldoffsets.angles                         = PRVM_ED_FindFieldOffset("angles");
1653         prog->fieldoffsets.avelocity                      = PRVM_ED_FindFieldOffset("avelocity");
1654         prog->fieldoffsets.aiment                         = PRVM_ED_FindFieldOffset("aiment");
1655         prog->fieldoffsets.enemy                          = PRVM_ED_FindFieldOffset("enemy");
1656         prog->fieldoffsets.jointtype                      = PRVM_ED_FindFieldOffset("jointtype");
1657         prog->fieldoffsets.movedir                        = PRVM_ED_FindFieldOffset("movedir");
1658
1659         prog->fieldoffsets.camera_transform               = PRVM_ED_FindFieldOffset("camera_transform");
1660         prog->fieldoffsets.userwavefunc_param0            = PRVM_ED_FindFieldOffset("userwavefunc_param0");
1661         prog->fieldoffsets.userwavefunc_param1            = PRVM_ED_FindFieldOffset("userwavefunc_param1");
1662         prog->fieldoffsets.userwavefunc_param2            = PRVM_ED_FindFieldOffset("userwavefunc_param2");
1663         prog->fieldoffsets.userwavefunc_param3            = PRVM_ED_FindFieldOffset("userwavefunc_param3");
1664
1665         prog->funcoffsets.CSQC_ConsoleCommand             = PRVM_ED_FindFunctionOffset("CSQC_ConsoleCommand");
1666         prog->funcoffsets.CSQC_Ent_Remove                 = PRVM_ED_FindFunctionOffset("CSQC_Ent_Remove");
1667         prog->funcoffsets.CSQC_Ent_Spawn                  = PRVM_ED_FindFunctionOffset("CSQC_Ent_Spawn");
1668         prog->funcoffsets.CSQC_Ent_Update                 = PRVM_ED_FindFunctionOffset("CSQC_Ent_Update");
1669         prog->funcoffsets.CSQC_Event                      = PRVM_ED_FindFunctionOffset("CSQC_Event");
1670         prog->funcoffsets.CSQC_Event_Sound                = PRVM_ED_FindFunctionOffset("CSQC_Event_Sound");
1671         prog->funcoffsets.CSQC_Init                       = PRVM_ED_FindFunctionOffset("CSQC_Init");
1672         prog->funcoffsets.CSQC_InputEvent                 = PRVM_ED_FindFunctionOffset("CSQC_InputEvent");
1673         prog->funcoffsets.CSQC_Parse_CenterPrint          = PRVM_ED_FindFunctionOffset("CSQC_Parse_CenterPrint");
1674         prog->funcoffsets.CSQC_Parse_Print                = PRVM_ED_FindFunctionOffset("CSQC_Parse_Print");
1675         prog->funcoffsets.CSQC_Parse_StuffCmd             = PRVM_ED_FindFunctionOffset("CSQC_Parse_StuffCmd");
1676         prog->funcoffsets.CSQC_Parse_TempEntity           = PRVM_ED_FindFunctionOffset("CSQC_Parse_TempEntity");
1677         prog->funcoffsets.CSQC_Shutdown                   = PRVM_ED_FindFunctionOffset("CSQC_Shutdown");
1678         prog->funcoffsets.CSQC_UpdateView                 = PRVM_ED_FindFunctionOffset("CSQC_UpdateView");
1679         prog->funcoffsets.EndFrame                        = PRVM_ED_FindFunctionOffset("EndFrame");
1680         prog->funcoffsets.GameCommand                     = PRVM_ED_FindFunctionOffset("GameCommand");
1681         prog->funcoffsets.Gecko_Query                     = PRVM_ED_FindFunctionOffset("Gecko_Query");
1682         prog->funcoffsets.RestoreGame                     = PRVM_ED_FindFunctionOffset("RestoreGame");
1683         prog->funcoffsets.SV_ChangeTeam                   = PRVM_ED_FindFunctionOffset("SV_ChangeTeam");
1684         prog->funcoffsets.SV_OnEntityNoSpawnFunction      = PRVM_ED_FindFunctionOffset("SV_OnEntityNoSpawnFunction");
1685         prog->funcoffsets.SV_OnEntityPostSpawnFunction    = PRVM_ED_FindFunctionOffset("SV_OnEntityPostSpawnFunction");
1686         prog->funcoffsets.SV_OnEntityPreSpawnFunction     = PRVM_ED_FindFunctionOffset("SV_OnEntityPreSpawnFunction");
1687         prog->funcoffsets.SV_ParseClientCommand           = PRVM_ED_FindFunctionOffset("SV_ParseClientCommand");
1688         prog->funcoffsets.SV_PausedTic                    = PRVM_ED_FindFunctionOffset("SV_PausedTic");
1689         prog->funcoffsets.SV_PlayerPhysics                = PRVM_ED_FindFunctionOffset("SV_PlayerPhysics");
1690         prog->funcoffsets.SV_Shutdown                     = PRVM_ED_FindFunctionOffset("SV_Shutdown");
1691         prog->funcoffsets.URI_Get_Callback                = PRVM_ED_FindFunctionOffset("URI_Get_Callback");
1692         prog->globaloffsets.SV_InitCmd                    = PRVM_ED_FindGlobalOffset("SV_InitCmd");
1693         prog->globaloffsets.coop                          = PRVM_ED_FindGlobalOffset("coop");
1694         prog->globaloffsets.deathmatch                    = PRVM_ED_FindGlobalOffset("deathmatch");
1695         prog->globaloffsets.dmg_origin                    = PRVM_ED_FindGlobalOffset("dmg_origin");
1696         prog->globaloffsets.dmg_save                      = PRVM_ED_FindGlobalOffset("dmg_save");
1697         prog->globaloffsets.dmg_take                      = PRVM_ED_FindGlobalOffset("dmg_take");
1698         prog->globaloffsets.drawfont                      = PRVM_ED_FindGlobalOffset("drawfont");
1699         prog->globaloffsets.drawfontscale                 = PRVM_ED_FindGlobalOffset("drawfontscale");
1700         prog->globaloffsets.gettaginfo_forward            = PRVM_ED_FindGlobalOffset("gettaginfo_forward");
1701         prog->globaloffsets.gettaginfo_name               = PRVM_ED_FindGlobalOffset("gettaginfo_name");
1702         prog->globaloffsets.gettaginfo_offset             = PRVM_ED_FindGlobalOffset("gettaginfo_offset");
1703         prog->globaloffsets.gettaginfo_parent             = PRVM_ED_FindGlobalOffset("gettaginfo_parent");
1704         prog->globaloffsets.gettaginfo_right              = PRVM_ED_FindGlobalOffset("gettaginfo_right");
1705         prog->globaloffsets.gettaginfo_up                 = PRVM_ED_FindGlobalOffset("gettaginfo_up");
1706         prog->globaloffsets.transparent_offset            = PRVM_ED_FindGlobalOffset("transparent_offset");
1707         prog->globaloffsets.intermission                  = PRVM_ED_FindGlobalOffset("intermission");
1708         prog->globaloffsets.require_spawnfunc_prefix      = PRVM_ED_FindGlobalOffset("require_spawnfunc_prefix");
1709         prog->globaloffsets.sb_showscores                 = PRVM_ED_FindGlobalOffset("sb_showscores");
1710         prog->globaloffsets.self                          = PRVM_ED_FindGlobalOffset("self");
1711         prog->globaloffsets.serverdeltatime               = PRVM_ED_FindGlobalOffset("serverdeltatime");
1712         prog->globaloffsets.serverprevtime                = PRVM_ED_FindGlobalOffset("serverprevtime");
1713         prog->globaloffsets.servertime                    = PRVM_ED_FindGlobalOffset("servertime");
1714         prog->globaloffsets.time                          = PRVM_ED_FindGlobalOffset("time");
1715         prog->globaloffsets.trace_allsolid                = PRVM_ED_FindGlobalOffset("trace_allsolid");
1716         prog->globaloffsets.trace_dphitcontents           = PRVM_ED_FindGlobalOffset("trace_dphitcontents");
1717         prog->globaloffsets.trace_dphitq3surfaceflags     = PRVM_ED_FindGlobalOffset("trace_dphitq3surfaceflags");
1718         prog->globaloffsets.trace_dphittexturename        = PRVM_ED_FindGlobalOffset("trace_dphittexturename");
1719         prog->globaloffsets.trace_dpstartcontents         = PRVM_ED_FindGlobalOffset("trace_dpstartcontents");
1720         prog->globaloffsets.trace_endpos                  = PRVM_ED_FindGlobalOffset("trace_endpos");
1721         prog->globaloffsets.trace_ent                     = PRVM_ED_FindGlobalOffset("trace_ent");
1722         prog->globaloffsets.trace_fraction                = PRVM_ED_FindGlobalOffset("trace_fraction");
1723         prog->globaloffsets.trace_inopen                  = PRVM_ED_FindGlobalOffset("trace_inopen");
1724         prog->globaloffsets.trace_inwater                 = PRVM_ED_FindGlobalOffset("trace_inwater");
1725         prog->globaloffsets.trace_networkentity           = PRVM_ED_FindGlobalOffset("trace_networkentity");
1726         prog->globaloffsets.trace_plane_dist              = PRVM_ED_FindGlobalOffset("trace_plane_dist");
1727         prog->globaloffsets.trace_plane_normal            = PRVM_ED_FindGlobalOffset("trace_plane_normal");
1728         prog->globaloffsets.trace_startsolid              = PRVM_ED_FindGlobalOffset("trace_startsolid");
1729         prog->globaloffsets.v_forward                     = PRVM_ED_FindGlobalOffset("v_forward");
1730         prog->globaloffsets.v_right                       = PRVM_ED_FindGlobalOffset("v_right");
1731         prog->globaloffsets.v_up                          = PRVM_ED_FindGlobalOffset("v_up");
1732         prog->globaloffsets.view_angles                   = PRVM_ED_FindGlobalOffset("view_angles");
1733         prog->globaloffsets.worldstatus                   = PRVM_ED_FindGlobalOffset("worldstatus");
1734         prog->globaloffsets.particles_alphamin            = PRVM_ED_FindGlobalOffset("particles_alphamin");
1735         prog->globaloffsets.particles_alphamax            = PRVM_ED_FindGlobalOffset("particles_alphamax");
1736         prog->globaloffsets.particles_colormin            = PRVM_ED_FindGlobalOffset("particles_colormin");
1737         prog->globaloffsets.particles_colormax            = PRVM_ED_FindGlobalOffset("particles_colormax");
1738
1739         // menu qc only uses some functions, nothing else
1740         prog->funcoffsets.m_draw                          = PRVM_ED_FindFunctionOffset("m_draw");
1741         prog->funcoffsets.m_init                          = PRVM_ED_FindFunctionOffset("m_init");
1742         prog->funcoffsets.m_keydown                       = PRVM_ED_FindFunctionOffset("m_keydown");
1743         prog->funcoffsets.m_keyup                         = PRVM_ED_FindFunctionOffset("m_keyup");
1744         prog->funcoffsets.m_shutdown                      = PRVM_ED_FindFunctionOffset("m_shutdown");
1745         prog->funcoffsets.m_toggle                        = PRVM_ED_FindFunctionOffset("m_toggle");
1746 }
1747
1748 // not used
1749 /*
1750 typedef struct dpfield_s
1751 {
1752         int type;
1753         char *string;
1754 }
1755 dpfield_t;
1756
1757 #define DPFIELDS (sizeof(dpfields) / sizeof(dpfield_t))
1758
1759 dpfield_t dpfields[] =
1760 {
1761 };
1762 */
1763
1764 /*
1765 ===============
1766 PRVM_ResetProg
1767 ===============
1768 */
1769
1770 #define PO_HASHSIZE 16384
1771 typedef struct po_string_s
1772 {
1773         char *key, *value;
1774         struct po_string_s *nextonhashchain;
1775 }
1776 po_string_t;
1777 typedef struct po_s
1778 {
1779         po_string_t *hashtable[PO_HASHSIZE];
1780 }
1781 po_t;
1782 void PRVM_PO_UnparseString(char *out, const char *in, size_t outsize)
1783 {
1784         for(;;)
1785         {
1786                 switch(*in)
1787                 {
1788                         case 0:
1789                                 *out++ = 0;
1790                                 return;
1791                         case '\a': if(outsize >= 2) { *out++ = '\\'; *out++ = 'a'; outsize -= 2; } break;
1792                         case '\b': if(outsize >= 2) { *out++ = '\\'; *out++ = 'b'; outsize -= 2; } break;
1793                         case '\t': if(outsize >= 2) { *out++ = '\\'; *out++ = 't'; outsize -= 2; } break;
1794                         case '\r': if(outsize >= 2) { *out++ = '\\'; *out++ = 'r'; outsize -= 2; } break;
1795                         case '\n': if(outsize >= 2) { *out++ = '\\'; *out++ = 'n'; outsize -= 2; } break;
1796                         case '\\': if(outsize >= 2) { *out++ = '\\'; *out++ = '\\'; outsize -= 2; } break;
1797                         case '"': if(outsize >= 2) { *out++ = '\\'; *out++ = '"'; outsize -= 2; } break;
1798                         default:
1799                                 if(*in >= 0 && *in <= 0x1F)
1800                                 {
1801                                         if(outsize >= 4)
1802                                         {
1803                                                 *out++ = '\\';
1804                                                 *out++ = '0' + ((*in & 0700) >> 6);
1805                                                 *out++ = '0' + ((*in & 0070) >> 3);
1806                                                 *out++ = '0' + ((*in & 0007));
1807                                                 outsize -= 4;
1808                                         }
1809                                 }
1810                                 else
1811                                 {
1812                                         if(outsize >= 1)
1813                                         {
1814                                                 *out++ = *in;
1815                                                 outsize -= 1;
1816                                         }
1817                                 }
1818                                 break;
1819                 }
1820                 ++in;
1821         }
1822 }
1823 void PRVM_PO_ParseString(char *out, const char *in, size_t outsize)
1824 {
1825         for(;;)
1826         {
1827                 switch(*in)
1828                 {
1829                         case 0:
1830                                 *out++ = 0;
1831                                 return;
1832                         case '\\':
1833                                 ++in;
1834                                 switch(*in)
1835                                 {
1836                                         case 'a': if(outsize > 0) { *out++ = '\a'; --outsize; } break;
1837                                         case 'b': if(outsize > 0) { *out++ = '\b'; --outsize; } break;
1838                                         case 't': if(outsize > 0) { *out++ = '\t'; --outsize; } break;
1839                                         case 'r': if(outsize > 0) { *out++ = '\r'; --outsize; } break;
1840                                         case 'n': if(outsize > 0) { *out++ = '\n'; --outsize; } break;
1841                                         case '\\': if(outsize > 0) { *out++ = '\\'; --outsize; } break;
1842                                         case '"': if(outsize > 0) { *out++ = '"'; --outsize; } break;
1843                                         case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7':
1844                                                 if(outsize > 0) 
1845                                                         *out = *in - '0';
1846                                                 ++in;
1847                                                 if(*in >= '0' && *in <= '7')
1848                                                 {
1849                                                         if(outsize > 0)
1850                                                                 *out = (*out << 3) | (*in - '0');
1851                                                         ++in;
1852                                                 }
1853                                                 if(*in >= '0' && *in <= '7')
1854                                                 {
1855                                                         if(outsize > 0)
1856                                                                 *out = (*out << 3) | (*in - '0');
1857                                                         ++in;
1858                                                 }
1859                                                 --in;
1860                                                 if(outsize > 0)
1861                                                 {
1862                                                         ++out;
1863                                                         --outsize;
1864                                                 }
1865                                                 break;
1866                                         default:
1867                                                 if(outsize > 0) { *out++ = *in; --outsize; }
1868                                                 break;
1869                                 }
1870                                 break;
1871                         default:
1872                                 if(outsize > 0)
1873                                 {
1874                                         *out++ = *in;
1875                                         --outsize;
1876                                 }
1877                                 break;
1878                 }
1879                 ++in;
1880         }
1881 }
1882 po_t *PRVM_PO_Load(const char *filename, mempool_t *pool)
1883 {
1884         po_t *po;
1885         const char *p, *q;
1886         int mode;
1887         char inbuf[MAX_INPUTLINE];
1888         char decodedbuf[MAX_INPUTLINE];
1889         size_t decodedpos;
1890         int hashindex;
1891         po_string_t thisstr;
1892         const char *buf = (const char *) FS_LoadFile(filename, pool, true, NULL);
1893
1894         if(!buf)
1895                 return NULL;
1896
1897         memset(&thisstr, 0, sizeof(thisstr)); // hush compiler warning
1898
1899         po = (po_t *)Mem_Alloc(pool, sizeof(*po));
1900         memset(po, 0, sizeof(*po));
1901
1902         p = buf;
1903         while(*p)
1904         {
1905                 if(*p == '#')
1906                 {
1907                         // skip to newline
1908                         p = strchr(p, '\n');
1909                         if(!p)
1910                                 break;
1911                         ++p;
1912                         continue;
1913                 }
1914                 if(*p == '\r' || *p == '\n')
1915                 {
1916                         ++p;
1917                         continue;
1918                 }
1919                 if(!strncmp(p, "msgid \"", 7))
1920                 {
1921                         mode = 0;
1922                         p += 6;
1923                 }
1924                 else if(!strncmp(p, "msgstr \"", 8))
1925                 {
1926                         mode = 1;
1927                         p += 7;
1928                 }
1929                 else
1930                 {
1931                         p = strchr(p, '\n');
1932                         if(!p)
1933                                 break;
1934                         ++p;
1935                         continue;
1936                 }
1937                 decodedpos = 0;
1938                 while(*p == '"')
1939                 {
1940                         ++p;
1941                         q = strchr(p, '\n');
1942                         if(!q)
1943                                 break;
1944                         if(*(q-1) == '\r')
1945                                 --q;
1946                         if(*(q-1) != '"')
1947                                 break;
1948                         if((size_t)(q - p) >= (size_t) sizeof(inbuf))
1949                                 break;
1950                         strlcpy(inbuf, p, q - p); // not - 1, because this adds a NUL
1951                         PRVM_PO_ParseString(decodedbuf + decodedpos, inbuf, sizeof(decodedbuf) - decodedpos);
1952                         decodedpos += strlen(decodedbuf + decodedpos);
1953                         if(*q == '\r')
1954                                 ++q;
1955                         if(*q == '\n')
1956                                 ++q;
1957                         p = q;
1958                 }
1959                 if(mode == 0)
1960                 {
1961                         if(thisstr.key)
1962                                 Mem_Free(thisstr.key);
1963                         thisstr.key = (char *)Mem_Alloc(pool, decodedpos + 1);
1964                         memcpy(thisstr.key, decodedbuf, decodedpos + 1);
1965                 }
1966                 else if(decodedpos > 0 && thisstr.key) // skip empty translation results
1967                 {
1968                         thisstr.value = (char *)Mem_Alloc(pool, decodedpos + 1);
1969                         memcpy(thisstr.value, decodedbuf, decodedpos + 1);
1970                         hashindex = CRC_Block((const unsigned char *) thisstr.key, strlen(thisstr.key)) % PO_HASHSIZE;
1971                         thisstr.nextonhashchain = po->hashtable[hashindex];
1972                         po->hashtable[hashindex] = (po_string_t *)Mem_Alloc(pool, sizeof(thisstr));
1973                         memcpy(po->hashtable[hashindex], &thisstr, sizeof(thisstr));
1974                         memset(&thisstr, 0, sizeof(thisstr));
1975                 }
1976         }
1977         
1978         Mem_Free((char *) buf);
1979         return po;
1980 }
1981 const char *PRVM_PO_Lookup(po_t *po, const char *str)
1982 {
1983         int hashindex = CRC_Block((const unsigned char *) str, strlen(str)) % PO_HASHSIZE;
1984         po_string_t *p = po->hashtable[hashindex];
1985         while(p)
1986         {
1987                 if(!strcmp(str, p->key))
1988                         return p->value;
1989                 p = p->nextonhashchain;
1990         }
1991         return NULL;
1992 }
1993 void PRVM_PO_Destroy(po_t *po)
1994 {
1995         int i;
1996         for(i = 0; i < PO_HASHSIZE; ++i)
1997         {
1998                 po_string_t *p = po->hashtable[i];
1999                 while(p)
2000                 {
2001                         po_string_t *q = p;
2002                         p = p->nextonhashchain;
2003                         Mem_Free(q->key);
2004                         Mem_Free(q->value);
2005                         Mem_Free(q);
2006                 }
2007         }
2008         Mem_Free(po);
2009 }
2010
2011 void PRVM_LeakTest(void);
2012 void PRVM_ResetProg(void)
2013 {
2014         PRVM_LeakTest();
2015         PRVM_GCALL(reset_cmd)();
2016         Mem_FreePool(&prog->progs_mempool);
2017         if(prog->po)
2018                 PRVM_PO_Destroy((po_t *) prog->po);
2019         memset(prog,0,sizeof(prvm_prog_t));
2020         prog->starttime = Sys_DoubleTime();
2021 }
2022
2023 /*
2024 ===============
2025 PRVM_LoadLNO
2026 ===============
2027 */
2028 void PRVM_LoadLNO( const char *progname ) {
2029         fs_offset_t filesize;
2030         unsigned char *lno;
2031         unsigned int *header;
2032         char filename[512];
2033
2034         FS_StripExtension( progname, filename, sizeof( filename ) );
2035         strlcat( filename, ".lno", sizeof( filename ) );
2036
2037         lno = FS_LoadFile( filename, tempmempool, false, &filesize );
2038         if( !lno ) {
2039                 return;
2040         }
2041
2042 /*
2043 <Spike>    SafeWrite (h, &lnotype, sizeof(int));
2044 <Spike>    SafeWrite (h, &version, sizeof(int));
2045 <Spike>    SafeWrite (h, &numglobaldefs, sizeof(int));
2046 <Spike>    SafeWrite (h, &numpr_globals, sizeof(int));
2047 <Spike>    SafeWrite (h, &numfielddefs, sizeof(int));
2048 <Spike>    SafeWrite (h, &numstatements, sizeof(int));
2049 <Spike>    SafeWrite (h, statement_linenums, numstatements*sizeof(int));
2050 */
2051         if( (unsigned) filesize < (6 + prog->progs->numstatements) * sizeof( int ) ) {
2052                 Mem_Free(lno);
2053                 return;
2054         }
2055
2056         header = (unsigned int *) lno;
2057         if( header[ 0 ] == *(unsigned int *) "LNOF" &&
2058                 LittleLong( header[ 1 ] ) == 1 &&
2059                 (unsigned int)LittleLong( header[ 2 ] ) == (unsigned int)prog->progs->numglobaldefs &&
2060                 (unsigned int)LittleLong( header[ 3 ] ) == (unsigned int)prog->progs->numglobals &&
2061                 (unsigned int)LittleLong( header[ 4 ] ) == (unsigned int)prog->progs->numfielddefs &&
2062                 (unsigned int)LittleLong( header[ 5 ] ) == (unsigned int)prog->progs->numstatements )
2063         {
2064                 prog->statement_linenums = (int *)Mem_Alloc(prog->progs_mempool, prog->progs->numstatements * sizeof( int ) );
2065                 memcpy( prog->statement_linenums, (int *) lno + 6, prog->progs->numstatements * sizeof( int ) );
2066         }
2067         Mem_Free( lno );
2068 }
2069
2070 /*
2071 ===============
2072 PRVM_LoadProgs
2073 ===============
2074 */
2075 void PRVM_LoadProgs (const char * filename, int numrequiredfunc, char **required_func, int numrequiredfields, prvm_required_field_t *required_field, int numrequiredglobals, char **required_global)
2076 {
2077         int i;
2078         dstatement_t *st;
2079         ddef_t *infielddefs;
2080         dfunction_t *dfunctions;
2081         fs_offset_t filesize;
2082
2083         if( prog->loaded ) {
2084                 PRVM_ERROR ("PRVM_LoadProgs: there is already a %s program loaded!", PRVM_NAME );
2085         }
2086
2087         prog->progs = (dprograms_t *)FS_LoadFile (filename, prog->progs_mempool, false, &filesize);
2088         if (prog->progs == NULL || filesize < (fs_offset_t)sizeof(dprograms_t))
2089                 PRVM_ERROR ("PRVM_LoadProgs: couldn't load %s for %s", filename, PRVM_NAME);
2090         // TODO bounds check header fields (e.g. numstatements), they must never go behind end of file
2091
2092         Con_DPrintf("%s programs occupy %iK.\n", PRVM_NAME, (int)(filesize/1024));
2093
2094         prog->filecrc = CRC_Block((unsigned char *)prog->progs, filesize);
2095
2096 // byte swap the header
2097         for (i = 0;i < (int) sizeof(*prog->progs) / 4;i++)
2098                 ((int *)prog->progs)[i] = LittleLong ( ((int *)prog->progs)[i] );
2099
2100         if (prog->progs->version != PROG_VERSION)
2101                 PRVM_ERROR ("%s: %s has wrong version number (%i should be %i)", PRVM_NAME, filename, prog->progs->version, PROG_VERSION);
2102         if (prog->progs->crc != prog->headercrc && prog->progs->crc != prog->headercrc2)
2103                 PRVM_ERROR ("%s: %s system vars have been modified (CRC of progs.dat systemvars %i != engine %i), progdefs.h is out of date", PRVM_NAME, filename, prog->progs->crc, prog->headercrc);
2104
2105         //prog->functions = (dfunction_t *)((unsigned char *)progs + progs->ofs_functions);
2106         dfunctions = (dfunction_t *)((unsigned char *)prog->progs + prog->progs->ofs_functions);
2107
2108         if (prog->progs->ofs_strings + prog->progs->numstrings >= (int)filesize)
2109                 PRVM_ERROR ("%s: %s strings go past end of file", PRVM_NAME, filename);
2110         prog->strings = (char *)prog->progs + prog->progs->ofs_strings;
2111         prog->stringssize = prog->progs->numstrings;
2112
2113         prog->numknownstrings = 0;
2114         prog->maxknownstrings = 0;
2115         prog->knownstrings = NULL;
2116         prog->knownstrings_freeable = NULL;
2117
2118         Mem_ExpandableArray_NewArray(&prog->stringbuffersarray, prog->progs_mempool, sizeof(prvm_stringbuffer_t), 64);
2119
2120         prog->globaldefs = (ddef_t *)((unsigned char *)prog->progs + prog->progs->ofs_globaldefs);
2121
2122         // we need to expand the fielddefs list to include all the engine fields,
2123         // so allocate a new place for it
2124         infielddefs = (ddef_t *)((unsigned char *)prog->progs + prog->progs->ofs_fielddefs);
2125         //                                                                                              ( + DPFIELDS                       )
2126         prog->fielddefs = (ddef_t *)Mem_Alloc(prog->progs_mempool, (prog->progs->numfielddefs + numrequiredfields) * sizeof(ddef_t));
2127
2128         prog->statements = (dstatement_t *)((unsigned char *)prog->progs + prog->progs->ofs_statements);
2129
2130         prog->statement_profile = (double *)Mem_Alloc(prog->progs_mempool, prog->progs->numstatements * sizeof(*prog->statement_profile));
2131
2132         //pr_global_struct = (globalvars_t *)((unsigned char *)progs + progs->ofs_globals);
2133         prog->globals.generic = (float *)((unsigned char *)prog->progs + prog->progs->ofs_globals);
2134
2135 // byte swap the lumps
2136         for (i=0 ; i<prog->progs->numstatements ; i++)
2137         {
2138                 prog->statements[i].op = LittleShort(prog->statements[i].op);
2139                 prog->statements[i].a = LittleShort(prog->statements[i].a);
2140                 prog->statements[i].b = LittleShort(prog->statements[i].b);
2141                 prog->statements[i].c = LittleShort(prog->statements[i].c);
2142         }
2143
2144         prog->functions = (mfunction_t *)Mem_Alloc(prog->progs_mempool, sizeof(mfunction_t) * prog->progs->numfunctions);
2145         for (i = 0;i < prog->progs->numfunctions;i++)
2146         {
2147                 prog->functions[i].first_statement = LittleLong (dfunctions[i].first_statement);
2148                 prog->functions[i].parm_start = LittleLong (dfunctions[i].parm_start);
2149                 prog->functions[i].s_name = LittleLong (dfunctions[i].s_name);
2150                 prog->functions[i].s_file = LittleLong (dfunctions[i].s_file);
2151                 prog->functions[i].numparms = LittleLong (dfunctions[i].numparms);
2152                 prog->functions[i].locals = LittleLong (dfunctions[i].locals);
2153                 memcpy(prog->functions[i].parm_size, dfunctions[i].parm_size, sizeof(dfunctions[i].parm_size));
2154                 if(prog->functions[i].first_statement >= prog->progs->numstatements)
2155                         PRVM_ERROR("PRVM_LoadProgs: out of bounds function statement (function %d) in %s", i, PRVM_NAME);
2156                 // TODO bounds check parm_start, s_name, s_file, numparms, locals, parm_size
2157         }
2158
2159         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
2160         {
2161                 prog->globaldefs[i].type = LittleShort (prog->globaldefs[i].type);
2162                 prog->globaldefs[i].ofs = LittleShort (prog->globaldefs[i].ofs);
2163                 prog->globaldefs[i].s_name = LittleLong (prog->globaldefs[i].s_name);
2164                 // TODO bounds check ofs, s_name
2165         }
2166
2167         // copy the progs fields to the new fields list
2168         for (i = 0;i < prog->progs->numfielddefs;i++)
2169         {
2170                 prog->fielddefs[i].type = LittleShort (infielddefs[i].type);
2171                 if (prog->fielddefs[i].type & DEF_SAVEGLOBAL)
2172                         PRVM_ERROR ("PRVM_LoadProgs: prog->fielddefs[i].type & DEF_SAVEGLOBAL in %s", PRVM_NAME);
2173                 prog->fielddefs[i].ofs = LittleShort (infielddefs[i].ofs);
2174                 prog->fielddefs[i].s_name = LittleLong (infielddefs[i].s_name);
2175                 // TODO bounds check ofs, s_name
2176         }
2177
2178         // append the required fields
2179         for (i = 0;i < (int) numrequiredfields;i++)
2180         {
2181                 prog->fielddefs[prog->progs->numfielddefs].type = required_field[i].type;
2182                 prog->fielddefs[prog->progs->numfielddefs].ofs = prog->progs->entityfields;
2183                 prog->fielddefs[prog->progs->numfielddefs].s_name = PRVM_SetEngineString(required_field[i].name);
2184                 // TODO bounds check ofs, s_name
2185                 if (prog->fielddefs[prog->progs->numfielddefs].type == ev_vector)
2186                         prog->progs->entityfields += 3;
2187                 else
2188                         prog->progs->entityfields++;
2189                 prog->progs->numfielddefs++;
2190         }
2191         prog->entityfields = prog->progs->entityfields;
2192
2193         // check required functions
2194         for(i=0 ; i < numrequiredfunc ; i++)
2195                 if(PRVM_ED_FindFunction(required_func[i]) == 0)
2196                         PRVM_ERROR("%s: %s not found in %s",PRVM_NAME, required_func[i], filename);
2197
2198         // check required globals
2199         for(i=0 ; i < numrequiredglobals ; i++)
2200                 if(PRVM_ED_FindGlobal(required_global[i]) == 0)
2201                         PRVM_ERROR("%s: %s not found in %s",PRVM_NAME, required_global[i], filename);
2202
2203         for (i=0 ; i<prog->progs->numglobals ; i++)
2204                 ((int *)prog->globals.generic)[i] = LittleLong (((int *)prog->globals.generic)[i]);
2205
2206         // LordHavoc: bounds check anything static
2207         for (i = 0,st = prog->statements;i < prog->progs->numstatements;i++,st++)
2208         {
2209                 switch (st->op)
2210                 {
2211                 case OP_IF:
2212                 case OP_IFNOT:
2213                         if ((unsigned short) st->a >= prog->progs->numglobals || st->b + i < 0 || st->b + i >= prog->progs->numstatements)
2214                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds IF/IFNOT (statement %d) in %s", i, PRVM_NAME);
2215                         break;
2216                 case OP_GOTO:
2217                         if (st->a + i < 0 || st->a + i >= prog->progs->numstatements)
2218                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds GOTO (statement %d) in %s", i, PRVM_NAME);
2219                         break;
2220                 // global global global
2221                 case OP_ADD_F:
2222                 case OP_ADD_V:
2223                 case OP_SUB_F:
2224                 case OP_SUB_V:
2225                 case OP_MUL_F:
2226                 case OP_MUL_V:
2227                 case OP_MUL_FV:
2228                 case OP_MUL_VF:
2229                 case OP_DIV_F:
2230                 case OP_BITAND:
2231                 case OP_BITOR:
2232                 case OP_GE:
2233                 case OP_LE:
2234                 case OP_GT:
2235                 case OP_LT:
2236                 case OP_AND:
2237                 case OP_OR:
2238                 case OP_EQ_F:
2239                 case OP_EQ_V:
2240                 case OP_EQ_S:
2241                 case OP_EQ_E:
2242                 case OP_EQ_FNC:
2243                 case OP_NE_F:
2244                 case OP_NE_V:
2245                 case OP_NE_S:
2246                 case OP_NE_E:
2247                 case OP_NE_FNC:
2248                 case OP_ADDRESS:
2249                 case OP_LOAD_F:
2250                 case OP_LOAD_FLD:
2251                 case OP_LOAD_ENT:
2252                 case OP_LOAD_S:
2253                 case OP_LOAD_FNC:
2254                 case OP_LOAD_V:
2255                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->b >= prog->progs->numglobals || (unsigned short) st->c >= prog->progs->numglobals)
2256                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d)", i);
2257                         break;
2258                 // global none global
2259                 case OP_NOT_F:
2260                 case OP_NOT_V:
2261                 case OP_NOT_S:
2262                 case OP_NOT_FNC:
2263                 case OP_NOT_ENT:
2264                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->c >= prog->progs->numglobals)
2265                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d) in %s", i, PRVM_NAME);
2266                         break;
2267                 // 2 globals
2268                 case OP_STOREP_F:
2269                 case OP_STOREP_ENT:
2270                 case OP_STOREP_FLD:
2271                 case OP_STOREP_S:
2272                 case OP_STOREP_FNC:
2273                 case OP_STORE_F:
2274                 case OP_STORE_ENT:
2275                 case OP_STORE_FLD:
2276                 case OP_STORE_S:
2277                 case OP_STORE_FNC:
2278                 case OP_STATE:
2279                 case OP_STOREP_V:
2280                 case OP_STORE_V:
2281                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->b >= prog->progs->numglobals)
2282                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d) in %s", i, PRVM_NAME);
2283                         break;
2284                 // 1 global
2285                 case OP_CALL0:
2286                 case OP_CALL1:
2287                 case OP_CALL2:
2288                 case OP_CALL3:
2289                 case OP_CALL4:
2290                 case OP_CALL5:
2291                 case OP_CALL6:
2292                 case OP_CALL7:
2293                 case OP_CALL8:
2294                 case OP_DONE:
2295                 case OP_RETURN:
2296                         if ((unsigned short) st->a >= prog->progs->numglobals)
2297                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d) in %s", i, PRVM_NAME);
2298                         break;
2299                 default:
2300                         Con_DPrintf("PRVM_LoadProgs: unknown opcode %d at statement %d in %s\n", st->op, i, PRVM_NAME);
2301                         break;
2302                 }
2303         }
2304         if(prog->progs->numstatements < 1)
2305         {
2306                 PRVM_ERROR("PRVM_LoadProgs: empty program in %s", PRVM_NAME);
2307         }
2308         else switch(prog->statements[prog->progs->numstatements - 1].op)
2309         {
2310                 case OP_RETURN:
2311                 case OP_GOTO:
2312                 case OP_DONE:
2313                         break;
2314                 default:
2315                         PRVM_ERROR("PRVM_LoadProgs: program may fall off the edge (does not end with RETURN, GOTO or DONE) in %s", PRVM_NAME);
2316                         break;
2317         }
2318
2319         PRVM_LoadLNO(filename);
2320
2321         PRVM_Init_Exec();
2322
2323         if(*prvm_language.string)
2324         // in CSQC we really shouldn't be able to change how stuff works... sorry for now
2325         // later idea: include a list of authorized .po file checksums with the csprogs
2326         {
2327                 qboolean deftrans = !!strcmp(PRVM_NAME, "client");
2328                 if(deftrans) // once we have dotranslate_ strings, ALWAYS use the opt-in method!
2329                 {
2330                         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
2331                         {
2332                                 const char *name;
2333                                 name = PRVM_GetString(prog->globaldefs[i].s_name);
2334                                 if((prog->globaldefs[i].type & ~DEF_SAVEGLOBAL) == ev_string)
2335                                 if(name && !strncmp(name, "dotranslate_", 12))
2336                                 {
2337                                         deftrans = false;
2338                                         break;
2339                                 }
2340                         }
2341                 }
2342                 if(!strcmp(prvm_language.string, "dump"))
2343                 {
2344                         qfile_t *f = FS_OpenRealFile(va("%s.%s.po", filename, prvm_language.string), "w", false);
2345                         Con_Printf("Dumping to %s.%s.po\n", filename, prvm_language.string);
2346                         if(f)
2347                         {
2348                                 for (i=0 ; i<prog->progs->numglobaldefs ; i++)
2349                                 {
2350                                         const char *name;
2351                                         name = PRVM_GetString(prog->globaldefs[i].s_name);
2352                                         if((prog->globaldefs[i].type & ~DEF_SAVEGLOBAL) == ev_string)
2353                                         if(deftrans ? (!name || strncmp(name, "notranslate_", 12)) : (name && !strncmp(name, "dotranslate_", 12)))
2354                                         {
2355                                                 prvm_eval_t *val = (prvm_eval_t *)(prog->globals.generic + prog->globaldefs[i].ofs);
2356                                                 const char *value = PRVM_GetString(val->string);
2357                                                 if(*value)
2358                                                 {
2359                                                         char buf[MAX_INPUTLINE];
2360                                                         PRVM_PO_UnparseString(buf, value, sizeof(buf));
2361                                                         FS_Printf(f, "msgid \"%s\"\nmsgstr \"\"\n\n", buf);
2362                                                 }
2363                                         }
2364                                 }
2365                                 FS_Close(f);
2366                         }
2367                 }
2368                 else
2369                 {
2370                         po_t *po = PRVM_PO_Load(va("%s.%s.po", filename, prvm_language.string), prog->progs_mempool);
2371                         if(po)
2372                         {
2373                                 for (i=0 ; i<prog->progs->numglobaldefs ; i++)
2374                                 {
2375                                         const char *name;
2376                                         name = PRVM_GetString(prog->globaldefs[i].s_name);
2377                                         if(deftrans ? (!name || strncmp(name, "notranslate_", 12)) : (name && !strncmp(name, "dotranslate_", 12)))
2378                                         if((prog->globaldefs[i].type & ~DEF_SAVEGLOBAL) == ev_string)
2379                                         {
2380                                                 prvm_eval_t *val = (prvm_eval_t *)(prog->globals.generic + prog->globaldefs[i].ofs);
2381                                                 const char *value = PRVM_GetString(val->string);
2382                                                 if(*value)
2383                                                 {
2384                                                         value = PRVM_PO_Lookup(po, value);
2385                                                         if(value)
2386                                                                 val->string = PRVM_SetEngineString(value);
2387                                                 }
2388                                         }
2389                                 }
2390                         }
2391                 }
2392         }
2393
2394         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
2395         {
2396                 const char *name;
2397                 name = PRVM_GetString(prog->globaldefs[i].s_name);
2398                 //Con_Printf("found var %s\n", name);
2399                 if(name
2400                         && !strncmp(name, "autocvar_", 9)
2401                         && !(strlen(name) > 1 && name[strlen(name)-2] == '_' && (name[strlen(name)-1] == 'x' || name[strlen(name)-1] == 'y' || name[strlen(name)-1] == 'z'))
2402                 )
2403                 {
2404                         prvm_eval_t *val = (prvm_eval_t *)(prog->globals.generic + prog->globaldefs[i].ofs);
2405                         cvar_t *cvar = Cvar_FindVar(name + 9);
2406                         //Con_Printf("PRVM_LoadProgs: autocvar global %s in %s, processing...\n", name, PRVM_NAME);
2407                         if(!cvar)
2408                         {
2409                                 const char *value;
2410                                 char buf[64];
2411                                 Con_Printf("PRVM_LoadProgs: no cvar for autocvar global %s in %s, creating...\n", name, PRVM_NAME);
2412                                 switch(prog->globaldefs[i].type & ~DEF_SAVEGLOBAL)
2413                                 {
2414                                         case ev_float:
2415                                                 if((float)((int)(val->_float)) == val->_float)
2416                                                         dpsnprintf(buf, sizeof(buf), "%i", (int)(val->_float));
2417                                                 else
2418                                                         dpsnprintf(buf, sizeof(buf), "%.9g", val->_float);
2419                                                 value = buf;
2420                                                 break;
2421                                         case ev_vector:
2422                                                 dpsnprintf(buf, sizeof(buf), "%.9g %.9g %.9g", val->vector[0], val->vector[1], val->vector[2]); value = buf;
2423                                                 break;
2424                                         case ev_string:
2425                                                 value = PRVM_GetString(val->string);
2426                                                 break;
2427                                         default:
2428                                                 Con_Printf("PRVM_LoadProgs: invalid type of autocvar global %s in %s\n", name, PRVM_NAME);
2429                                                 goto fail;
2430                                 }
2431                                 cvar = Cvar_Get(name + 9, value, 0, NULL);
2432                                 if((prog->globaldefs[i].type & ~DEF_SAVEGLOBAL) == ev_string)
2433                                 {
2434                                         val->string = PRVM_SetEngineString(cvar->string);
2435                                         cvar->globaldefindex_stringno[prog - prog_list] = val->string;
2436                                 }
2437                                 if(!cvar)
2438                                         PRVM_ERROR("PRVM_LoadProgs: could not create cvar for autocvar global %s in %s", name, PRVM_NAME);
2439                                 cvar->globaldefindex_progid[prog - prog_list] = prog->id;
2440                                 cvar->globaldefindex[prog - prog_list] = i;
2441                         }
2442                         else if((cvar->flags & CVAR_PRIVATE) == 0)
2443                         {
2444                                 // MUST BE SYNCED WITH cvar.c Cvar_Set
2445                                 int j;
2446                                 const char *s;
2447                                 switch(prog->globaldefs[i].type & ~DEF_SAVEGLOBAL)
2448                                 {
2449                                         case ev_float:
2450                                                 val->_float = cvar->value;
2451                                                 break;
2452                                         case ev_vector:
2453                                                 s = cvar->string;
2454                                                 VectorClear(val->vector);
2455                                                 for (j = 0;j < 3;j++)
2456                                                 {
2457                                                         while (*s && ISWHITESPACE(*s))
2458                                                                 s++;
2459                                                         if (!*s)
2460                                                                 break;
2461                                                         val->vector[j] = atof(s);
2462                                                         while (!ISWHITESPACE(*s))
2463                                                                 s++;
2464                                                         if (!*s)
2465                                                                 break;
2466                                                 }
2467                                                 break;
2468                                         case ev_string:
2469                                                 val->string = PRVM_SetEngineString(cvar->string);
2470                                                 cvar->globaldefindex_stringno[prog - prog_list] = val->string;
2471                                                 break;
2472                                         default:
2473                                                 Con_Printf("PRVM_LoadProgs: invalid type of autocvar global %s in %s\n", name, PRVM_NAME);
2474                                                 goto fail;
2475                                 }
2476                                 cvar->globaldefindex_progid[prog - prog_list] = prog->id;
2477                                 cvar->globaldefindex[prog - prog_list] = i;
2478                         }
2479                         else
2480                                 Con_Printf("PRVM_LoadProgs: private cvar for autocvar global %s in %s\n", name, PRVM_NAME);
2481                 }
2482 fail:
2483                 ;
2484         }
2485
2486         prog->loaded = TRUE;
2487
2488         // set flags & ddef_ts in prog
2489
2490         prog->flag = 0;
2491
2492         PRVM_FindOffsets();
2493
2494         PRVM_GCALL(init_cmd)();
2495
2496         // init mempools
2497         PRVM_MEM_Alloc();
2498 }
2499
2500
2501 void PRVM_Fields_f (void)
2502 {
2503         int i, j, ednum, used, usedamount;
2504         int *counts;
2505         char tempstring[MAX_INPUTLINE], tempstring2[260];
2506         const char *name;
2507         prvm_edict_t *ed;
2508         ddef_t *d;
2509         int *v;
2510
2511         // TODO
2512         /*
2513         if (!sv.active)
2514         {
2515                 Con_Print("no progs loaded\n");
2516                 return;
2517         }
2518         */
2519
2520         if(Cmd_Argc() != 2)
2521         {
2522                 Con_Print("prvm_fields <program name>\n");
2523                 return;
2524         }
2525
2526         PRVM_Begin;
2527         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
2528                 return;
2529
2530         counts = (int *)Mem_Alloc(tempmempool, prog->progs->numfielddefs * sizeof(int));
2531         for (ednum = 0;ednum < prog->max_edicts;ednum++)
2532         {
2533                 ed = PRVM_EDICT_NUM(ednum);
2534                 if (ed->priv.required->free)
2535                         continue;
2536                 for (i = 1;i < prog->progs->numfielddefs;i++)
2537                 {
2538                         d = &prog->fielddefs[i];
2539                         name = PRVM_GetString(d->s_name);
2540                         if (name[strlen(name)-2] == '_')
2541                                 continue;       // skip _x, _y, _z vars
2542                         v = (int *)(ed->fields.vp + d->ofs);
2543                         // if the value is still all 0, skip the field
2544                         for (j = 0;j < prvm_type_size[d->type & ~DEF_SAVEGLOBAL];j++)
2545                         {
2546                                 if (v[j])
2547                                 {
2548                                         counts[i]++;
2549                                         break;
2550                                 }
2551                         }
2552                 }
2553         }
2554         used = 0;
2555         usedamount = 0;
2556         tempstring[0] = 0;
2557         for (i = 0;i < prog->progs->numfielddefs;i++)
2558         {
2559                 d = &prog->fielddefs[i];
2560                 name = PRVM_GetString(d->s_name);
2561                 if (name[strlen(name)-2] == '_')
2562                         continue;       // skip _x, _y, _z vars
2563                 switch(d->type & ~DEF_SAVEGLOBAL)
2564                 {
2565                 case ev_string:
2566                         strlcat(tempstring, "string   ", sizeof(tempstring));
2567                         break;
2568                 case ev_entity:
2569                         strlcat(tempstring, "entity   ", sizeof(tempstring));
2570                         break;
2571                 case ev_function:
2572                         strlcat(tempstring, "function ", sizeof(tempstring));
2573                         break;
2574                 case ev_field:
2575                         strlcat(tempstring, "field    ", sizeof(tempstring));
2576                         break;
2577                 case ev_void:
2578                         strlcat(tempstring, "void     ", sizeof(tempstring));
2579                         break;
2580                 case ev_float:
2581                         strlcat(tempstring, "float    ", sizeof(tempstring));
2582                         break;
2583                 case ev_vector:
2584                         strlcat(tempstring, "vector   ", sizeof(tempstring));
2585                         break;
2586                 case ev_pointer:
2587                         strlcat(tempstring, "pointer  ", sizeof(tempstring));
2588                         break;
2589                 default:
2590                         dpsnprintf (tempstring2, sizeof(tempstring2), "bad type %i ", d->type & ~DEF_SAVEGLOBAL);
2591                         strlcat(tempstring, tempstring2, sizeof(tempstring));
2592                         break;
2593                 }
2594                 if (strlen(name) > sizeof(tempstring2)-4)
2595                 {
2596                         memcpy (tempstring2, name, sizeof(tempstring2)-4);
2597                         tempstring2[sizeof(tempstring2)-4] = tempstring2[sizeof(tempstring2)-3] = tempstring2[sizeof(tempstring2)-2] = '.';
2598                         tempstring2[sizeof(tempstring2)-1] = 0;
2599                         name = tempstring2;
2600                 }
2601                 strlcat(tempstring, name, sizeof(tempstring));
2602                 for (j = (int)strlen(name);j < 25;j++)
2603                         strlcat(tempstring, " ", sizeof(tempstring));
2604                 dpsnprintf(tempstring2, sizeof(tempstring2), "%5d", counts[i]);
2605                 strlcat(tempstring, tempstring2, sizeof(tempstring));
2606                 strlcat(tempstring, "\n", sizeof(tempstring));
2607                 if (strlen(tempstring) >= sizeof(tempstring)/2)
2608                 {
2609                         Con_Print(tempstring);
2610                         tempstring[0] = 0;
2611                 }
2612                 if (counts[i])
2613                 {
2614                         used++;
2615                         usedamount += prvm_type_size[d->type & ~DEF_SAVEGLOBAL];
2616                 }
2617         }
2618         Mem_Free(counts);
2619         Con_Printf("%s: %i entity fields (%i in use), totalling %i bytes per edict (%i in use), %i edicts allocated, %i bytes total spent on edict fields (%i needed)\n", PRVM_NAME, prog->progs->entityfields, used, prog->progs->entityfields * 4, usedamount * 4, prog->max_edicts, prog->progs->entityfields * 4 * prog->max_edicts, usedamount * 4 * prog->max_edicts);
2620
2621         PRVM_End;
2622 }
2623
2624 void PRVM_Globals_f (void)
2625 {
2626         int i;
2627         const char *wildcard;
2628         int numculled;
2629                 numculled = 0;
2630         // TODO
2631         /*if (!sv.active)
2632         {
2633                 Con_Print("no progs loaded\n");
2634                 return;
2635         }*/
2636         if(Cmd_Argc () < 2 || Cmd_Argc() > 3)
2637         {
2638                 Con_Print("prvm_globals <program name> <optional name wildcard>\n");
2639                 return;
2640         }
2641
2642         PRVM_Begin;
2643         if(!PRVM_SetProgFromString (Cmd_Argv (1)))
2644                 return;
2645
2646         if( Cmd_Argc() == 3)
2647                 wildcard = Cmd_Argv(2);
2648         else
2649                 wildcard = NULL;
2650
2651         Con_Printf("%s :", PRVM_NAME);
2652
2653         for (i = 0;i < prog->progs->numglobaldefs;i++)
2654         {
2655                 if(wildcard)
2656                         if( !matchpattern( PRVM_GetString(prog->globaldefs[i].s_name), wildcard, 1) )
2657                         {
2658                                 numculled++;
2659                                 continue;
2660                         }
2661                 Con_Printf("%s\n", PRVM_GetString(prog->globaldefs[i].s_name));
2662         }
2663         Con_Printf("%i global variables, %i culled, totalling %i bytes\n", prog->progs->numglobals, numculled, prog->progs->numglobals * 4);
2664
2665         PRVM_End;
2666 }
2667
2668 /*
2669 ===============
2670 PRVM_Global
2671 ===============
2672 */
2673 void PRVM_Global_f(void)
2674 {
2675         ddef_t *global;
2676         if( Cmd_Argc() != 3 ) {
2677                 Con_Printf( "prvm_global <program name> <global name>\n" );
2678                 return;
2679         }
2680
2681         PRVM_Begin;
2682         if( !PRVM_SetProgFromString( Cmd_Argv(1) ) )
2683                 return;
2684
2685         global = PRVM_ED_FindGlobal( Cmd_Argv(2) );
2686         if( !global )
2687                 Con_Printf( "No global '%s' in %s!\n", Cmd_Argv(2), Cmd_Argv(1) );
2688         else
2689                 Con_Printf( "%s: %s\n", Cmd_Argv(2), PRVM_ValueString( (etype_t)global->type, (prvm_eval_t *) &prog->globals.generic[ global->ofs ] ) );
2690         PRVM_End;
2691 }
2692
2693 /*
2694 ===============
2695 PRVM_GlobalSet
2696 ===============
2697 */
2698 void PRVM_GlobalSet_f(void)
2699 {
2700         ddef_t *global;
2701         if( Cmd_Argc() != 4 ) {
2702                 Con_Printf( "prvm_globalset <program name> <global name> <value>\n" );
2703                 return;
2704         }
2705
2706         PRVM_Begin;
2707         if( !PRVM_SetProgFromString( Cmd_Argv(1) ) )
2708                 return;
2709
2710         global = PRVM_ED_FindGlobal( Cmd_Argv(2) );
2711         if( !global )
2712                 Con_Printf( "No global '%s' in %s!\n", Cmd_Argv(2), Cmd_Argv(1) );
2713         else
2714                 PRVM_ED_ParseEpair( NULL, global, Cmd_Argv(3), true );
2715         PRVM_End;
2716 }
2717
2718 /*
2719 ===============
2720 PRVM_Init
2721 ===============
2722 */
2723 void PRVM_Init (void)
2724 {
2725         Cmd_AddCommand ("prvm_edict", PRVM_ED_PrintEdict_f, "print all data about an entity number in the selected VM (server, client, menu)");
2726         Cmd_AddCommand ("prvm_edicts", PRVM_ED_PrintEdicts_f, "prints all data about all entities in the selected VM (server, client, menu)");
2727         Cmd_AddCommand ("prvm_edictcount", PRVM_ED_Count_f, "prints number of active entities in the selected VM (server, client, menu)");
2728         Cmd_AddCommand ("prvm_profile", PRVM_Profile_f, "prints execution statistics about the most used QuakeC functions in the selected VM (server, client, menu)");
2729         Cmd_AddCommand ("prvm_childprofile", PRVM_ChildProfile_f, "prints execution statistics about the most used QuakeC functions in the selected VM (server, client, menu), sorted by time taken in function with child calls");
2730         Cmd_AddCommand ("prvm_callprofile", PRVM_CallProfile_f, "prints execution statistics about the most time consuming QuakeC calls from the engine in the selected VM (server, client, menu)");
2731         Cmd_AddCommand ("prvm_fields", PRVM_Fields_f, "prints usage statistics on properties (how many entities have non-zero values) in the selected VM (server, client, menu)");
2732         Cmd_AddCommand ("prvm_globals", PRVM_Globals_f, "prints all global variables in the selected VM (server, client, menu)");
2733         Cmd_AddCommand ("prvm_global", PRVM_Global_f, "prints value of a specified global variable in the selected VM (server, client, menu)");
2734         Cmd_AddCommand ("prvm_globalset", PRVM_GlobalSet_f, "sets value of a specified global variable in the selected VM (server, client, menu)");
2735         Cmd_AddCommand ("prvm_edictset", PRVM_ED_EdictSet_f, "changes value of a specified property of a specified entity in the selected VM (server, client, menu)");
2736         Cmd_AddCommand ("prvm_edictget", PRVM_ED_EdictGet_f, "retrieves the value of a specified property of a specified entity in the selected VM (server, client menu) into a cvar or to the console");
2737         Cmd_AddCommand ("prvm_globalget", PRVM_ED_GlobalGet_f, "retrieves the value of a specified global variable in the selected VM (server, client menu) into a cvar or to the console");
2738         Cmd_AddCommand ("prvm_printfunction", PRVM_PrintFunction_f, "prints a disassembly (QuakeC instructions) of the specified function in the selected VM (server, client, menu)");
2739         Cmd_AddCommand ("cl_cmd", PRVM_GameCommand_Client_f, "calls the client QC function GameCommand with the supplied string as argument");
2740         Cmd_AddCommand ("menu_cmd", PRVM_GameCommand_Menu_f, "calls the menu QC function GameCommand with the supplied string as argument");
2741         Cmd_AddCommand ("sv_cmd", PRVM_GameCommand_Server_f, "calls the server QC function GameCommand with the supplied string as argument");
2742
2743         Cvar_RegisterVariable (&prvm_language);
2744         Cvar_RegisterVariable (&prvm_traceqc);
2745         Cvar_RegisterVariable (&prvm_statementprofiling);
2746         Cvar_RegisterVariable (&prvm_timeprofiling);
2747         Cvar_RegisterVariable (&prvm_backtraceforwarnings);
2748         Cvar_RegisterVariable (&prvm_leaktest);
2749         Cvar_RegisterVariable (&prvm_leaktest_ignore_classnames);
2750         Cvar_RegisterVariable (&prvm_errordump);
2751         Cvar_RegisterVariable (&prvm_reuseedicts_startuptime);
2752         Cvar_RegisterVariable (&prvm_reuseedicts_neverinsameframe);
2753
2754         // COMMANDLINEOPTION: PRVM: -norunaway disables the runaway loop check (it might be impossible to exit DarkPlaces if used!)
2755         prvm_runawaycheck = !COM_CheckParm("-norunaway");
2756
2757         //VM_Cmd_Init();
2758 }
2759
2760 /*
2761 ===============
2762 PRVM_InitProg
2763 ===============
2764 */
2765 void PRVM_InitProg(int prognr)
2766 {
2767         static unsigned int progid = 0;
2768
2769         if(prognr < 0 || prognr >= PRVM_MAXPROGS)
2770                 Sys_Error("PRVM_InitProg: Invalid program number %i",prognr);
2771
2772         prog = &prog_list[prognr];
2773
2774         if(prog->loaded)
2775                 PRVM_ResetProg();
2776
2777         memset(prog, 0, sizeof(prvm_prog_t));
2778         prog->starttime = Sys_DoubleTime();
2779         prog->id = ++progid;
2780
2781         prog->error_cmd = Host_Error;
2782         prog->leaktest_active = prvm_leaktest.integer != 0;
2783 }
2784
2785 int PRVM_GetProgNr(void)
2786 {
2787         return prog - prog_list;
2788 }
2789
2790 void *_PRVM_Alloc(size_t buffersize, const char *filename, int fileline)
2791 {
2792         return _Mem_Alloc(prog->progs_mempool, NULL, buffersize, 16, filename, fileline);
2793 }
2794
2795 void _PRVM_Free(void *buffer, const char *filename, int fileline)
2796 {
2797         _Mem_Free(buffer, filename, fileline);
2798 }
2799
2800 void _PRVM_FreeAll(const char *filename, int fileline)
2801 {
2802         prog->progs = NULL;
2803         prog->fielddefs = NULL;
2804         prog->functions = NULL;
2805         _Mem_EmptyPool(prog->progs_mempool, filename, fileline);
2806 }
2807
2808 // LordHavoc: turned PRVM_EDICT_NUM into a #define for speed reasons
2809 unsigned int PRVM_EDICT_NUM_ERROR(unsigned int n, char *filename, int fileline)
2810 {
2811         PRVM_ERROR ("PRVM_EDICT_NUM: %s: bad number %i (called at %s:%i)", PRVM_NAME, n, filename, fileline);
2812         return 0;
2813 }
2814
2815 sizebuf_t vm_tempstringsbuf;
2816 #define PRVM_KNOWNSTRINGBASE 0x40000000
2817
2818 const char *PRVM_GetString(int num)
2819 {
2820         if (num < 0)
2821         {
2822                 // invalid
2823                 VM_Warning("PRVM_GetString: Invalid string offset (%i < 0)\n", num);
2824                 return "";
2825         }
2826         else if (num < prog->stringssize)
2827         {
2828                 // constant string from progs.dat
2829                 return prog->strings + num;
2830         }
2831         else if (num <= prog->stringssize + vm_tempstringsbuf.maxsize)
2832         {
2833                 // tempstring returned by engine to QC (becomes invalid after returning to engine)
2834                 num -= prog->stringssize;
2835                 if (num < vm_tempstringsbuf.cursize)
2836                         return (char *)vm_tempstringsbuf.data + num;
2837                 else
2838                 {
2839                         VM_Warning("PRVM_GetString: Invalid temp-string offset (%i >= %i vm_tempstringsbuf.cursize)\n", num, vm_tempstringsbuf.cursize);
2840                         return "";
2841                 }
2842         }
2843         else if (num & PRVM_KNOWNSTRINGBASE)
2844         {
2845                 // allocated string
2846                 num = num - PRVM_KNOWNSTRINGBASE;
2847                 if (num >= 0 && num < prog->numknownstrings)
2848                 {
2849                         if (!prog->knownstrings[num])
2850                         {
2851                                 VM_Warning("PRVM_GetString: Invalid zone-string offset (%i has been freed)\n", num);
2852                                 return "";
2853                         }
2854                         return prog->knownstrings[num];
2855                 }
2856                 else
2857                 {
2858                         VM_Warning("PRVM_GetString: Invalid zone-string offset (%i >= %i)\n", num, prog->numknownstrings);
2859                         return "";
2860                 }
2861         }
2862         else
2863         {
2864                 // invalid string offset
2865                 VM_Warning("PRVM_GetString: Invalid constant-string offset (%i >= %i prog->stringssize)\n", num, prog->stringssize);
2866                 return "";
2867         }
2868 }
2869
2870 const char *PRVM_ChangeEngineString(int i, const char *s)
2871 {
2872         const char *old;
2873         i = i - PRVM_KNOWNSTRINGBASE;
2874         if(i < 0 || i >= prog->numknownstrings)
2875                 PRVM_ERROR("PRVM_ChangeEngineString: s is not an engine string");
2876         old = prog->knownstrings[i];
2877         prog->knownstrings[i] = s;
2878         return old;
2879 }
2880
2881 int PRVM_SetEngineString(const char *s)
2882 {
2883         int i;
2884         if (!s)
2885                 return 0;
2886         if (s >= prog->strings && s <= prog->strings + prog->stringssize)
2887                 PRVM_ERROR("PRVM_SetEngineString: s in prog->strings area");
2888         // if it's in the tempstrings area, use a reserved range
2889         // (otherwise we'd get millions of useless string offsets cluttering the database)
2890         if (s >= (char *)vm_tempstringsbuf.data && s < (char *)vm_tempstringsbuf.data + vm_tempstringsbuf.maxsize)
2891 #if 1
2892                 return prog->stringssize + (s - (char *)vm_tempstringsbuf.data);
2893 #endif
2894         // see if it's a known string address
2895         for (i = 0;i < prog->numknownstrings;i++)
2896                 if (prog->knownstrings[i] == s)
2897                         return PRVM_KNOWNSTRINGBASE + i;
2898         // new unknown engine string
2899         if (developer_insane.integer)
2900                 Con_DPrintf("new engine string %p = \"%s\"\n", s, s);
2901         for (i = prog->firstfreeknownstring;i < prog->numknownstrings;i++)
2902                 if (!prog->knownstrings[i])
2903                         break;
2904         if (i >= prog->numknownstrings)
2905         {
2906                 if (i >= prog->maxknownstrings)
2907                 {
2908                         const char **oldstrings = prog->knownstrings;
2909                         const unsigned char *oldstrings_freeable = prog->knownstrings_freeable;
2910                         const char **oldstrings_origin = prog->knownstrings_origin;
2911                         prog->maxknownstrings += 128;
2912                         prog->knownstrings = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
2913                         prog->knownstrings_freeable = (unsigned char *)PRVM_Alloc(prog->maxknownstrings * sizeof(unsigned char));
2914                         if(prog->leaktest_active)
2915                                 prog->knownstrings_origin = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
2916                         if (prog->numknownstrings)
2917                         {
2918                                 memcpy((char **)prog->knownstrings, oldstrings, prog->numknownstrings * sizeof(char *));
2919                                 memcpy((char **)prog->knownstrings_freeable, oldstrings_freeable, prog->numknownstrings * sizeof(unsigned char));
2920                                 if(prog->leaktest_active)
2921                                         memcpy((char **)prog->knownstrings_origin, oldstrings_origin, prog->numknownstrings * sizeof(char *));
2922                         }
2923                 }
2924                 prog->numknownstrings++;
2925         }
2926         prog->firstfreeknownstring = i + 1;
2927         prog->knownstrings[i] = s;
2928         prog->knownstrings_freeable[i] = false;
2929         if(prog->leaktest_active)
2930                 prog->knownstrings_origin[i] = NULL;
2931         return PRVM_KNOWNSTRINGBASE + i;
2932 }
2933
2934 // temp string handling
2935
2936 // all tempstrings go into this buffer consecutively, and it is reset
2937 // whenever PRVM_ExecuteProgram returns to the engine
2938 // (technically each PRVM_ExecuteProgram call saves the cursize value and
2939 //  restores it on return, so multiple recursive calls can share the same
2940 //  buffer)
2941 // the buffer size is automatically grown as needed
2942
2943 int PRVM_SetTempString(const char *s)
2944 {
2945         int size;
2946         char *t;
2947         if (!s)
2948                 return 0;
2949         size = (int)strlen(s) + 1;
2950         if (developer_insane.integer)
2951                 Con_DPrintf("PRVM_SetTempString: cursize %i, size %i\n", vm_tempstringsbuf.cursize, size);
2952         if (vm_tempstringsbuf.maxsize < vm_tempstringsbuf.cursize + size)
2953         {
2954                 sizebuf_t old = vm_tempstringsbuf;
2955                 if (vm_tempstringsbuf.cursize + size >= 1<<28)
2956                         PRVM_ERROR("PRVM_SetTempString: ran out of tempstring memory!  (refusing to grow tempstring buffer over 256MB, cursize %i, size %i)\n", vm_tempstringsbuf.cursize, size);
2957                 vm_tempstringsbuf.maxsize = max(vm_tempstringsbuf.maxsize, 65536);
2958                 while (vm_tempstringsbuf.maxsize < vm_tempstringsbuf.cursize + size)
2959                         vm_tempstringsbuf.maxsize *= 2;
2960                 if (vm_tempstringsbuf.maxsize != old.maxsize || vm_tempstringsbuf.data == NULL)
2961                 {
2962                         Con_DPrintf("PRVM_SetTempString: enlarging tempstrings buffer (%iKB -> %iKB)\n", old.maxsize/1024, vm_tempstringsbuf.maxsize/1024);
2963                         vm_tempstringsbuf.data = (unsigned char *) Mem_Alloc(sv_mempool, vm_tempstringsbuf.maxsize);
2964                         if (old.cursize)
2965                                 memcpy(vm_tempstringsbuf.data, old.data, old.cursize);
2966                         if (old.data)
2967                                 Mem_Free(old.data);
2968                 }
2969         }
2970         t = (char *)vm_tempstringsbuf.data + vm_tempstringsbuf.cursize;
2971         memcpy(t, s, size);
2972         vm_tempstringsbuf.cursize += size;
2973         return PRVM_SetEngineString(t);
2974 }
2975
2976 int PRVM_AllocString(size_t bufferlength, char **pointer)
2977 {
2978         int i;
2979         if (!bufferlength)
2980                 return 0;
2981         for (i = prog->firstfreeknownstring;i < prog->numknownstrings;i++)
2982                 if (!prog->knownstrings[i])
2983                         break;
2984         if (i >= prog->numknownstrings)
2985         {
2986                 if (i >= prog->maxknownstrings)
2987                 {
2988                         const char **oldstrings = prog->knownstrings;
2989                         const unsigned char *oldstrings_freeable = prog->knownstrings_freeable;
2990                         const char **oldstrings_origin = prog->knownstrings_origin;
2991                         prog->maxknownstrings += 128;
2992                         prog->knownstrings = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
2993                         prog->knownstrings_freeable = (unsigned char *)PRVM_Alloc(prog->maxknownstrings * sizeof(unsigned char));
2994                         if(prog->leaktest_active)
2995                                 prog->knownstrings_origin = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
2996                         if (prog->numknownstrings)
2997                         {
2998                                 memcpy((char **)prog->knownstrings, oldstrings, prog->numknownstrings * sizeof(char *));
2999                                 memcpy((char **)prog->knownstrings_freeable, oldstrings_freeable, prog->numknownstrings * sizeof(unsigned char));
3000                                 if(prog->leaktest_active)
3001                                         memcpy((char **)prog->knownstrings_origin, oldstrings_origin, prog->numknownstrings * sizeof(char *));
3002                         }
3003                         if (oldstrings)
3004                                 Mem_Free((char **)oldstrings);
3005                         if (oldstrings_freeable)
3006                                 Mem_Free((unsigned char *)oldstrings_freeable);
3007                         if (oldstrings_origin)
3008                                 Mem_Free((char **)oldstrings_origin);
3009                 }
3010                 prog->numknownstrings++;
3011         }
3012         prog->firstfreeknownstring = i + 1;
3013         prog->knownstrings[i] = (char *)PRVM_Alloc(bufferlength);
3014         prog->knownstrings_freeable[i] = true;
3015         if(prog->leaktest_active)
3016                 prog->knownstrings_origin[i] = PRVM_AllocationOrigin();
3017         if (pointer)
3018                 *pointer = (char *)(prog->knownstrings[i]);
3019         return PRVM_KNOWNSTRINGBASE + i;
3020 }
3021
3022 void PRVM_FreeString(int num)
3023 {
3024         if (num == 0)
3025                 PRVM_ERROR("PRVM_FreeString: attempt to free a NULL string");
3026         else if (num >= 0 && num < prog->stringssize)
3027                 PRVM_ERROR("PRVM_FreeString: attempt to free a constant string");
3028         else if (num >= PRVM_KNOWNSTRINGBASE && num < PRVM_KNOWNSTRINGBASE + prog->numknownstrings)
3029         {
3030                 num = num - PRVM_KNOWNSTRINGBASE;
3031                 if (!prog->knownstrings[num])
3032                         PRVM_ERROR("PRVM_FreeString: attempt to free a non-existent or already freed string");
3033                 if (!prog->knownstrings_freeable[num])
3034                         PRVM_ERROR("PRVM_FreeString: attempt to free a string owned by the engine");
3035                 PRVM_Free((char *)prog->knownstrings[num]);
3036                 if(prog->leaktest_active)
3037                         if(prog->knownstrings_origin[num])
3038                                 PRVM_Free((char *)prog->knownstrings_origin[num]);
3039                 prog->knownstrings[num] = NULL;
3040                 prog->knownstrings_freeable[num] = false;
3041                 prog->firstfreeknownstring = min(prog->firstfreeknownstring, num);
3042         }
3043         else
3044                 PRVM_ERROR("PRVM_FreeString: invalid string offset %i", num);
3045 }
3046
3047 static qboolean PRVM_IsStringReferenced(string_t string)
3048 {
3049         int i, j;
3050
3051         for (i = 0;i < prog->progs->numglobaldefs;i++)
3052         {
3053                 ddef_t *d = &prog->globaldefs[i];
3054                 if((etype_t)((int) d->type & ~DEF_SAVEGLOBAL) != ev_string)
3055                         continue;
3056                 if(string == ((prvm_eval_t *) &prog->globals.generic[d->ofs])->string)
3057                         return true;
3058         }
3059
3060         for(j = 0; j < prog->num_edicts; ++j)
3061         {
3062                 prvm_edict_t *ed = PRVM_EDICT_NUM(j);
3063                 if (ed->priv.required->free)
3064                         continue;
3065                 for (i=0; i<prog->progs->numfielddefs; ++i)
3066                 {
3067                         ddef_t *d = &prog->fielddefs[i];
3068                         if((etype_t)((int) d->type & ~DEF_SAVEGLOBAL) != ev_string)
3069                                 continue;
3070                         if(string == ((prvm_eval_t *) &ed->fields.vp[d->ofs])->string)
3071                                 return true;
3072                 }
3073         }
3074
3075         return false;
3076 }
3077
3078 static qboolean PRVM_IsEdictRelevant(prvm_edict_t *edict)
3079 {
3080         if(PRVM_NUM_FOR_EDICT(edict) <= prog->reserved_edicts)
3081                 return true; // world or clients
3082         switch(prog - prog_list)
3083         {
3084                 case PRVM_SERVERPROG:
3085                         {
3086                                 entvars_t *ev = edict->fields.server;
3087                                 if(ev->solid) // can block other stuff, or is a trigger?
3088                                         return true;
3089                                 if(ev->modelindex) // visible ent?
3090                                         return true;
3091                                 if(ev->effects) // particle effect?
3092                                         return true;
3093                                 if(ev->think) // has a think function?
3094                                         if(ev->nextthink > 0) // that actually will eventually run?
3095                                                 return true;
3096                                 if(ev->takedamage)
3097                                         return true;
3098                                 if(*prvm_leaktest_ignore_classnames.string)
3099                                 {
3100                                         if(strstr(va(" %s ", prvm_leaktest_ignore_classnames.string), va(" %s ", PRVM_GetString(ev->classname))))
3101                                                 return true;
3102                                 }
3103                         }
3104                         break;
3105                 case PRVM_CLIENTPROG:
3106                         {
3107                                 // TODO someone add more stuff here
3108                                 cl_entvars_t *ev = edict->fields.client;
3109                                 if(ev->entnum) // csqc networked
3110                                         return true;
3111                                 if(ev->modelindex) // visible ent?
3112                                         return true;
3113                                 if(ev->effects) // particle effect?
3114                                         return true;
3115                                 if(ev->think) // has a think function?
3116                                         if(ev->nextthink > 0) // that actually will eventually run?
3117                                                 return true;
3118                                 if(*prvm_leaktest_ignore_classnames.string)
3119                                 {
3120                                         if(strstr(va(" %s ", prvm_leaktest_ignore_classnames.string), va(" %s ", PRVM_GetString(ev->classname))))
3121                                                 return true;
3122                                 }
3123                         }
3124                         break;
3125                 case PRVM_MENUPROG:
3126                         // menu prog does not have classnames
3127                         break;
3128         }
3129         return false;
3130 }
3131
3132 static qboolean PRVM_IsEdictReferenced(prvm_edict_t *edict, int mark)
3133 {
3134         int i, j;
3135         int edictnum = PRVM_NUM_FOR_EDICT(edict);
3136         const char *targetname = NULL;
3137
3138         switch(prog - prog_list)
3139         {
3140                 case PRVM_SERVERPROG:
3141                         targetname = PRVM_GetString(edict->fields.server->targetname);
3142                         break;
3143         }
3144
3145         if(targetname)
3146                 if(!*targetname) // ""
3147                         targetname = NULL;
3148
3149         for (i = 0;i < prog->progs->numglobaldefs;i++)
3150         {
3151                 ddef_t *d = &prog->globaldefs[i];
3152                 if((etype_t)((int) d->type & ~DEF_SAVEGLOBAL) != ev_entity)
3153                         continue;
3154                 if(edictnum == ((prvm_eval_t *) &prog->globals.generic[d->ofs])->edict)
3155                         return true;
3156         }
3157
3158         for(j = 0; j < prog->num_edicts; ++j)
3159         {
3160                 prvm_edict_t *ed = PRVM_EDICT_NUM(j);
3161                 if (ed->priv.required->mark < mark)
3162                         continue;
3163                 if(ed == edict)
3164                         continue;
3165                 if(targetname)
3166                 {
3167                         const char *target = PRVM_GetString(ed->fields.server->target);
3168                         if(target)
3169                                 if(!strcmp(target, targetname))
3170                                         return true;
3171                 }
3172                 for (i=0; i<prog->progs->numfielddefs; ++i)
3173                 {
3174                         ddef_t *d = &prog->fielddefs[i];
3175                         if((etype_t)((int) d->type & ~DEF_SAVEGLOBAL) != ev_entity)
3176                                 continue;
3177                         if(edictnum == ((prvm_eval_t *) &ed->fields.vp[d->ofs])->edict)
3178                                 return true;
3179                 }
3180         }
3181
3182         return false;
3183 }
3184
3185 static void PRVM_MarkReferencedEdicts(void)
3186 {
3187         int j;
3188         qboolean found_new;
3189         int stage;
3190
3191         for(j = 0; j < prog->num_edicts; ++j)
3192         {
3193                 prvm_edict_t *ed = PRVM_EDICT_NUM(j);
3194                 if(ed->priv.required->free)
3195                         continue;
3196                 ed->priv.required->mark = PRVM_IsEdictRelevant(ed) ? 1 : 0;
3197         }
3198
3199         stage = 1;
3200         do
3201         {
3202                 found_new = false;
3203                 for(j = 0; j < prog->num_edicts; ++j)
3204                 {
3205                         prvm_edict_t *ed = PRVM_EDICT_NUM(j);
3206                         if(ed->priv.required->free)
3207                                 continue;
3208                         if(ed->priv.required->mark)
3209                                 continue;
3210                         if(PRVM_IsEdictReferenced(ed, stage))
3211                         {
3212                                 ed->priv.required->mark = stage + 1;
3213                                 found_new = true;
3214                         }
3215                 }
3216                 ++stage;
3217         }
3218         while(found_new);
3219         Con_DPrintf("leak check used %d stages to find all references\n", stage);
3220 }
3221
3222 void PRVM_LeakTest(void)
3223 {
3224         int i, j;
3225         qboolean leaked = false;
3226
3227         if(!prog->leaktest_active)
3228                 return;
3229
3230         // 1. Strings
3231         for (i = 0; i < prog->numknownstrings; ++i)
3232         {
3233                 if(prog->knownstrings[i])
3234                 if(prog->knownstrings_freeable[i])
3235                 if(prog->knownstrings_origin[i])
3236                 if(!PRVM_IsStringReferenced(-1 - i))
3237                 {
3238                         Con_Printf("Unreferenced string found!\n  Value: %s\n  Origin: %s\n", prog->knownstrings[i], prog->knownstrings_origin[i]);
3239                         leaked = true;
3240                 }
3241         }
3242
3243         // 2. Edicts
3244         PRVM_MarkReferencedEdicts();
3245         for(j = 0; j < prog->num_edicts; ++j)
3246         {
3247                 prvm_edict_t *ed = PRVM_EDICT_NUM(j);
3248                 if(ed->priv.required->free)
3249                         continue;
3250                 if(!ed->priv.required->mark)
3251                 if(ed->priv.required->allocation_origin)
3252                 {
3253                         Con_Printf("Unreferenced edict found!\n  Allocated at: %s\n", ed->priv.required->allocation_origin);
3254                         PRVM_ED_Print(ed, NULL);
3255                         Con_Print("\n");
3256                         leaked = true;
3257                 }
3258         }
3259
3260         for (i = 0; i < (int)Mem_ExpandableArray_IndexRange(&prog->stringbuffersarray); ++i)
3261         {
3262                 prvm_stringbuffer_t *stringbuffer = (prvm_stringbuffer_t*) Mem_ExpandableArray_RecordAtIndex(&prog->stringbuffersarray, i);
3263                 if(stringbuffer)
3264                 if(stringbuffer->origin)
3265                 {
3266                         Con_Printf("Open string buffer handle found!\n  Allocated at: %s\n", stringbuffer->origin);
3267                         leaked = true;
3268                 }
3269         }
3270
3271         for(i = 0; i < PRVM_MAX_OPENFILES; ++i)
3272         {
3273                 if(prog->openfiles[i])
3274                 if(prog->openfiles_origin[i])
3275                 {
3276                         Con_Printf("Open file handle found!\n  Allocated at: %s\n", prog->openfiles_origin[i]);
3277                         leaked = true;
3278                 }
3279         }
3280
3281         for(i = 0; i < PRVM_MAX_OPENSEARCHES; ++i)
3282         {
3283                 if(prog->opensearches[i])
3284                 if(prog->opensearches_origin[i])
3285                 {
3286                         Con_Printf("Open search handle found!\n  Allocated at: %s\n", prog->opensearches_origin[i]);
3287                         leaked = true;
3288                 }
3289         }
3290
3291         if(!leaked)
3292                 Con_Printf("Congratulations. No leaks found.\n");
3293 }