f520342b5392f76e07a50f3edf8501bb52aadb64
[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);
33
34 // LordHavoc: optional runtime bounds checking (speed drain, but worth it for security, on by default - breaks most QCCX features (used by CRMod and others))
35 cvar_t  prvm_boundscheck = {0, "prvm_boundscheck", "1"};
36 // LordHavoc: prints every opcode as it executes - warning: this is significant spew
37 cvar_t  prvm_traceqc = {0, "prvm_traceqc", "0"};
38
39 //============================================================================
40 // mempool handling
41
42 /*
43 ===============
44 PRVM_MEM_Alloc
45 ===============
46 */
47 void PRVM_MEM_Alloc(void)
48 {
49         int i;
50
51         // reserve space for the null entity aka world
52         // check bound of max_edicts
53         prog->max_edicts = bound(1 + prog->reserved_edicts, prog->max_edicts, prog->limit_edicts);
54         prog->num_edicts = bound(1 + prog->reserved_edicts, prog->num_edicts, prog->max_edicts);
55
56         // edictprivate_size has to be min as big prvm_edict_private_t
57         prog->edictprivate_size = max(prog->edictprivate_size,(int)sizeof(prvm_edict_private_t));
58
59         // alloc edicts
60         prog->edicts = (prvm_edict_t *)Mem_Alloc(prog->progs_mempool,prog->limit_edicts * sizeof(prvm_edict_t));
61
62         // alloc edict private space
63         prog->edictprivate = Mem_Alloc(prog->progs_mempool, prog->max_edicts * prog->edictprivate_size);
64
65         // alloc edict fields
66         prog->edictsfields = Mem_Alloc(prog->progs_mempool, prog->max_edicts * prog->edict_size);
67
68         // set edict pointers
69         for(i = 0; i < prog->max_edicts; i++)
70         {
71                 prog->edicts[i].priv.required = (prvm_edict_private_t *)((unsigned char  *)prog->edictprivate + i * prog->edictprivate_size);
72                 prog->edicts[i].fields.vp = (void*)((unsigned char *)prog->edictsfields + i * prog->edict_size);
73         }
74 }
75
76 /*
77 ===============
78 PRVM_MEM_IncreaseEdicts
79 ===============
80 */
81 void PRVM_MEM_IncreaseEdicts(void)
82 {
83         int             i;
84         int             oldmaxedicts = prog->max_edicts;
85         void    *oldedictsfields = prog->edictsfields;
86         void    *oldedictprivate = prog->edictprivate;
87
88         if(prog->max_edicts >= prog->limit_edicts)
89                 return;
90
91         PRVM_GCALL(begin_increase_edicts)();
92
93         // increase edicts
94         prog->max_edicts = min(prog->max_edicts + 256, prog->limit_edicts);
95
96         prog->edictsfields = Mem_Alloc(prog->progs_mempool, prog->max_edicts * prog->edict_size);
97         prog->edictprivate = Mem_Alloc(prog->progs_mempool, prog->max_edicts * prog->edictprivate_size);
98
99         memcpy(prog->edictsfields, oldedictsfields, oldmaxedicts * prog->edict_size);
100         memcpy(prog->edictprivate, oldedictprivate, oldmaxedicts * prog->edictprivate_size);
101
102         //set e and v pointers
103         for(i = 0; i < prog->max_edicts; i++)
104         {
105                 prog->edicts[i].priv.required  = (prvm_edict_private_t *)((unsigned char  *)prog->edictprivate + i * prog->edictprivate_size);
106                 prog->edicts[i].fields.vp = (void*)((unsigned char *)prog->edictsfields + i * prog->edict_size);
107         }
108
109         PRVM_GCALL(end_increase_edicts)();
110
111         Mem_Free(oldedictsfields);
112         Mem_Free(oldedictprivate);
113 }
114
115 //============================================================================
116 // normal prvm
117
118 int PRVM_ED_FindFieldOffset(const char *field)
119 {
120         ddef_t *d;
121         d = PRVM_ED_FindField(field);
122         if (!d)
123                 return 0;
124         return d->ofs*4;
125 }
126
127 qboolean PRVM_ProgLoaded(int prognr)
128 {
129         if(prognr < 0 || prognr >= PRVM_MAXPROGS)
130                 return FALSE;
131
132         return (prog_list[prognr].loaded ? TRUE : FALSE);
133 }
134
135 /*
136 =================
137 PRVM_SetProgFromString
138 =================
139 */
140 // perhaps add a return value when the str doesnt exist
141 qboolean PRVM_SetProgFromString(const char *str)
142 {
143         int i = 0;
144         for(; i < PRVM_MAXPROGS ; i++)
145                 if(prog_list[i].name && !strcmp(prog_list[i].name,str))
146                 {
147                         if(prog_list[i].loaded)
148                         {
149                                 prog = &prog_list[i];
150                                 return TRUE;
151                         }
152                         else
153                         {
154                                 Con_Printf("%s not loaded !\n",PRVM_NAME);
155                                 return FALSE;
156                         }
157                 }
158
159         Con_Printf("Invalid program name %s !\n", str);
160         return FALSE;
161 }
162
163 /*
164 =================
165 PRVM_SetProg
166 =================
167 */
168 void PRVM_SetProg(int prognr)
169 {
170         if(0 <= prognr && prognr < PRVM_MAXPROGS)
171         {
172                 if(prog_list[prognr].loaded)
173                         prog = &prog_list[prognr];
174                 else
175                         PRVM_ERROR("%i not loaded !\n", prognr);
176                 return;
177         }
178         PRVM_ERROR("Invalid program number %i\n", prognr);
179 }
180
181 /*
182 =================
183 PRVM_ED_ClearEdict
184
185 Sets everything to NULL
186 =================
187 */
188 void PRVM_ED_ClearEdict (prvm_edict_t *e)
189 {
190         memset (e->fields.vp, 0, prog->progs->entityfields * 4);
191         e->priv.required->free = false;
192
193         // AK: Let the init_edict function determine if something needs to be initialized
194         PRVM_GCALL(init_edict)(e);
195 }
196
197 /*
198 =================
199 PRVM_ED_Alloc
200
201 Either finds a free edict, or allocates a new one.
202 Try to avoid reusing an entity that was recently freed, because it
203 can cause the client to think the entity morphed into something else
204 instead of being removed and recreated, which can cause interpolated
205 angles and bad trails.
206 =================
207 */
208 prvm_edict_t *PRVM_ED_Alloc (void)
209 {
210         int                     i;
211         prvm_edict_t            *e;
212
213         // the client qc dont need maxclients
214         // thus it doesnt need to use svs.maxclients
215         // AK:  changed i=svs.maxclients+1
216         // AK:  changed so the edict 0 wont spawn -> used as reserved/world entity
217         //              although the menu/client has no world
218         for (i = prog->reserved_edicts + 1;i < prog->num_edicts;i++)
219         {
220                 e = PRVM_EDICT_NUM(i);
221                 // the first couple seconds of server time can involve a lot of
222                 // freeing and allocating, so relax the replacement policy
223                 if (e->priv.required->free && ( e->priv.required->freetime < 2 || (*prog->time - e->priv.required->freetime) > 0.5 ) )
224                 {
225                         PRVM_ED_ClearEdict (e);
226                         return e;
227                 }
228         }
229
230         if (i == prog->limit_edicts)
231                 PRVM_ERROR ("%s: PRVM_ED_Alloc: no free edicts",PRVM_NAME);
232
233         prog->num_edicts++;
234         if (prog->num_edicts >= prog->max_edicts)
235                 PRVM_MEM_IncreaseEdicts();
236
237         e = PRVM_EDICT_NUM(i);
238         PRVM_ED_ClearEdict (e);
239
240         return e;
241 }
242
243 /*
244 =================
245 PRVM_ED_Free
246
247 Marks the edict as free
248 FIXME: walk all entities and NULL out references to this entity
249 =================
250 */
251 void PRVM_ED_Free (prvm_edict_t *ed)
252 {
253         // dont delete the null entity (world) or reserved edicts
254         if(PRVM_NUM_FOR_EDICT(ed) <= prog->reserved_edicts )
255                 return;
256
257         PRVM_GCALL(free_edict)(ed);
258
259         ed->priv.required->free = true;
260         ed->priv.required->freetime = *prog->time;
261 }
262
263 //===========================================================================
264
265 /*
266 ============
267 PRVM_ED_GlobalAtOfs
268 ============
269 */
270 ddef_t *PRVM_ED_GlobalAtOfs (int ofs)
271 {
272         ddef_t          *def;
273         int                     i;
274
275         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
276         {
277                 def = &prog->globaldefs[i];
278                 if (def->ofs == ofs)
279                         return def;
280         }
281         return NULL;
282 }
283
284 /*
285 ============
286 PRVM_ED_FieldAtOfs
287 ============
288 */
289 ddef_t *PRVM_ED_FieldAtOfs (int ofs)
290 {
291         ddef_t          *def;
292         int                     i;
293
294         for (i=0 ; i<prog->progs->numfielddefs ; i++)
295         {
296                 def = &prog->fielddefs[i];
297                 if (def->ofs == ofs)
298                         return def;
299         }
300         return NULL;
301 }
302
303 /*
304 ============
305 PRVM_ED_FindField
306 ============
307 */
308 ddef_t *PRVM_ED_FindField (const char *name)
309 {
310         ddef_t *def;
311         int i;
312
313         for (i=0 ; i<prog->progs->numfielddefs ; i++)
314         {
315                 def = &prog->fielddefs[i];
316                 if (!strcmp(PRVM_GetString(def->s_name), name))
317                         return def;
318         }
319         return NULL;
320 }
321
322 /*
323 ============
324 PRVM_ED_FindGlobal
325 ============
326 */
327 ddef_t *PRVM_ED_FindGlobal (const char *name)
328 {
329         ddef_t *def;
330         int i;
331
332         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
333         {
334                 def = &prog->globaldefs[i];
335                 if (!strcmp(PRVM_GetString(def->s_name), name))
336                         return def;
337         }
338         return NULL;
339 }
340
341
342 /*
343 ============
344 PRVM_ED_FindFunction
345 ============
346 */
347 mfunction_t *PRVM_ED_FindFunction (const char *name)
348 {
349         mfunction_t             *func;
350         int                             i;
351
352         for (i=0 ; i<prog->progs->numfunctions ; i++)
353         {
354                 func = &prog->functions[i];
355                 if (!strcmp(PRVM_GetString(func->s_name), name))
356                         return func;
357         }
358         return NULL;
359 }
360
361
362 /*
363 ============
364 PRVM_ValueString
365
366 Returns a string describing *data in a type specific manner
367 =============
368 */
369 char *PRVM_ValueString (etype_t type, prvm_eval_t *val)
370 {
371         static char line[1024]; // LordHavoc: enlarged a bit (was 256)
372         ddef_t *def;
373         mfunction_t *f;
374         int n;
375
376         type = (etype_t)((int) type & ~DEF_SAVEGLOBAL);
377
378         switch (type)
379         {
380         case ev_string:
381                 strlcpy (line, PRVM_GetString (val->string), sizeof (line));
382                 break;
383         case ev_entity:
384                 n = val->edict;
385                 if (n < 0 || n >= prog->limit_edicts)
386                         sprintf (line, "entity %i (invalid!)", n);
387                 else
388                         sprintf (line, "entity %i", n);
389                 break;
390         case ev_function:
391                 f = prog->functions + val->function;
392                 sprintf (line, "%s()", PRVM_GetString(f->s_name));
393                 break;
394         case ev_field:
395                 def = PRVM_ED_FieldAtOfs ( val->_int );
396                 sprintf (line, ".%s", PRVM_GetString(def->s_name));
397                 break;
398         case ev_void:
399                 sprintf (line, "void");
400                 break;
401         case ev_float:
402                 // LordHavoc: changed from %5.1f to %10.4f
403                 sprintf (line, "%10.4f", val->_float);
404                 break;
405         case ev_vector:
406                 // LordHavoc: changed from %5.1f to %10.4f
407                 sprintf (line, "'%10.4f %10.4f %10.4f'", val->vector[0], val->vector[1], val->vector[2]);
408                 break;
409         case ev_pointer:
410                 sprintf (line, "pointer");
411                 break;
412         default:
413                 sprintf (line, "bad type %i", type);
414                 break;
415         }
416
417         return line;
418 }
419
420 /*
421 ============
422 PRVM_UglyValueString
423
424 Returns a string describing *data in a type specific manner
425 Easier to parse than PR_ValueString
426 =============
427 */
428 char *PRVM_UglyValueString (etype_t type, prvm_eval_t *val)
429 {
430         static char line[4096];
431         int i;
432         const char *s;
433         ddef_t *def;
434         mfunction_t *f;
435
436         type = (etype_t)((int)type & ~DEF_SAVEGLOBAL);
437
438         switch (type)
439         {
440         case ev_string:
441                 // Parse the string a bit to turn special characters
442                 // (like newline, specifically) into escape codes,
443                 // this fixes saving games from various mods
444                 s = PRVM_GetString (val->string);
445                 for (i = 0;i < (int)sizeof(line) - 2 && *s;)
446                 {
447                         if (*s == '\n')
448                         {
449                                 line[i++] = '\\';
450                                 line[i++] = 'n';
451                         }
452                         else if (*s == '\r')
453                         {
454                                 line[i++] = '\\';
455                                 line[i++] = 'r';
456                         }
457                         else
458                                 line[i++] = *s;
459                         s++;
460                 }
461                 line[i] = '\0';
462                 break;
463         case ev_entity:
464                 dpsnprintf (line, sizeof (line), "%i", PRVM_NUM_FOR_EDICT(PRVM_PROG_TO_EDICT(val->edict)));
465                 break;
466         case ev_function:
467                 f = prog->functions + val->function;
468                 strlcpy (line, PRVM_GetString (f->s_name), sizeof (line));
469                 break;
470         case ev_field:
471                 def = PRVM_ED_FieldAtOfs ( val->_int );
472                 dpsnprintf (line, sizeof (line), ".%s", PRVM_GetString(def->s_name));
473                 break;
474         case ev_void:
475                 dpsnprintf (line, sizeof (line), "void");
476                 break;
477         case ev_float:
478                 dpsnprintf (line, sizeof (line), "%f", val->_float);
479                 break;
480         case ev_vector:
481                 dpsnprintf (line, sizeof (line), "%f %f %f", val->vector[0], val->vector[1], val->vector[2]);
482                 break;
483         default:
484                 dpsnprintf (line, sizeof (line), "bad type %i", type);
485                 break;
486         }
487
488         return line;
489 }
490
491 /*
492 ============
493 PRVM_GlobalString
494
495 Returns a string with a description and the contents of a global,
496 padded to 20 field width
497 ============
498 */
499 char *PRVM_GlobalString (int ofs)
500 {
501         char    *s;
502         size_t  i;
503         ddef_t  *def;
504         void    *val;
505         static char     line[128];
506
507         val = (void *)&prog->globals.generic[ofs];
508         def = PRVM_ED_GlobalAtOfs(ofs);
509         if (!def)
510                 sprintf (line,"%i(?)", ofs);
511         else
512         {
513                 s = PRVM_ValueString ((etype_t)def->type, (prvm_eval_t *)val);
514                 sprintf (line,"%i(%s)%s", ofs, PRVM_GetString(def->s_name), s);
515         }
516
517         i = strlen(line);
518         for ( ; i<20 ; i++)
519                 strcat (line," ");
520         strcat (line," ");
521
522         return line;
523 }
524
525 char *PRVM_GlobalStringNoContents (int ofs)
526 {
527         size_t  i;
528         ddef_t  *def;
529         static char     line[128];
530
531         def = PRVM_ED_GlobalAtOfs(ofs);
532         if (!def)
533                 sprintf (line,"%i(?)", ofs);
534         else
535                 sprintf (line,"%i(%s)", ofs, PRVM_GetString(def->s_name));
536
537         i = strlen(line);
538         for ( ; i<20 ; i++)
539                 strcat (line," ");
540         strcat (line," ");
541
542         return line;
543 }
544
545
546 /*
547 =============
548 PRVM_ED_Print
549
550 For debugging
551 =============
552 */
553 // LordHavoc: optimized this to print out much more quickly (tempstring)
554 // LordHavoc: changed to print out every 4096 characters (incase there are a lot of fields to print)
555 void PRVM_ED_Print(prvm_edict_t *ed)
556 {
557         size_t  l;
558         ddef_t  *d;
559         int             *v;
560         int             i, j;
561         const char      *name;
562         int             type;
563         char    tempstring[8192], tempstring2[260]; // temporary string buffers
564
565         if (ed->priv.required->free)
566         {
567                 Con_Printf("%s: FREE\n",PRVM_NAME);
568                 return;
569         }
570
571         tempstring[0] = 0;
572         sprintf(tempstring, "\n%s EDICT %i:\n", PRVM_NAME, PRVM_NUM_FOR_EDICT(ed));
573         for (i=1 ; i<prog->progs->numfielddefs ; i++)
574         {
575                 d = &prog->fielddefs[i];
576                 name = PRVM_GetString(d->s_name);
577                 if (name[strlen(name)-2] == '_')
578                         continue;       // skip _x, _y, _z vars
579
580                 v = (int *)((char *)ed->fields.vp + d->ofs*4);
581
582         // if the value is still all 0, skip the field
583                 type = d->type & ~DEF_SAVEGLOBAL;
584
585                 for (j=0 ; j<prvm_type_size[type] ; j++)
586                         if (v[j])
587                                 break;
588                 if (j == prvm_type_size[type])
589                         continue;
590
591                 if (strlen(name) > 256)
592                 {
593                         memcpy (tempstring2, name, 256);
594                         tempstring2[256] = tempstring2[257] = tempstring2[258] = '.';
595                         tempstring2[259] = 0;
596                         name = tempstring2;
597                 }
598                 strcat(tempstring, name);
599                 for (l = strlen(name);l < 14;l++)
600                         strcat(tempstring, " ");
601                 strcat(tempstring, " ");
602
603                 name = PRVM_ValueString((etype_t)d->type, (prvm_eval_t *)v);
604                 if (strlen(name) > 256)
605                 {
606                         memcpy (tempstring2, name, 256);
607                         tempstring2[256] = tempstring2[257] = tempstring2[258] = '.';
608                         tempstring2[259] = 0;
609                         name = tempstring2;
610                 }
611                 strcat(tempstring, name);
612                 strcat(tempstring, "\n");
613                 if (strlen(tempstring) >= 4096)
614                 {
615                         Con_Print(tempstring);
616                         tempstring[0] = 0;
617                 }
618         }
619         if (tempstring[0])
620                 Con_Print(tempstring);
621 }
622
623 /*
624 =============
625 PRVM_ED_Write
626
627 For savegames
628 =============
629 */
630 void PRVM_ED_Write (qfile_t *f, prvm_edict_t *ed)
631 {
632         ddef_t  *d;
633         int             *v;
634         int             i, j;
635         const char      *name;
636         int             type;
637
638         FS_Print(f, "{\n");
639
640         if (ed->priv.required->free)
641         {
642                 FS_Print(f, "}\n");
643                 return;
644         }
645
646         for (i=1 ; i<prog->progs->numfielddefs ; i++)
647         {
648                 d = &prog->fielddefs[i];
649                 name = PRVM_GetString(d->s_name);
650                 if (name[strlen(name)-2] == '_')
651                         continue;       // skip _x, _y, _z vars
652
653                 v = (int *)((char *)ed->fields.vp + d->ofs*4);
654
655         // if the value is still all 0, skip the field
656                 type = d->type & ~DEF_SAVEGLOBAL;
657                 for (j=0 ; j<prvm_type_size[type] ; j++)
658                         if (v[j])
659                                 break;
660                 if (j == prvm_type_size[type])
661                         continue;
662
663                 FS_Printf(f,"\"%s\" ",name);
664                 FS_Printf(f,"\"%s\"\n", PRVM_UglyValueString((etype_t)d->type, (prvm_eval_t *)v));
665         }
666
667         FS_Print(f, "}\n");
668 }
669
670 void PRVM_ED_PrintNum (int ent)
671 {
672         PRVM_ED_Print(PRVM_EDICT_NUM(ent));
673 }
674
675 /*
676 =============
677 PRVM_ED_PrintEdicts_f
678
679 For debugging, prints all the entities in the current server
680 =============
681 */
682 void PRVM_ED_PrintEdicts_f (void)
683 {
684         int             i;
685
686         if(Cmd_Argc() != 2)
687         {
688                 Con_Print("prvm_edicts <program name>\n");
689                 return;
690         }
691
692         PRVM_Begin;
693         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
694                 return;
695
696         Con_Printf("%s: %i entities\n", PRVM_NAME, prog->num_edicts);
697         for (i=0 ; i<prog->num_edicts ; i++)
698                 PRVM_ED_PrintNum (i);
699
700         PRVM_End;
701 }
702
703 /*
704 =============
705 PRVM_ED_PrintEdict_f
706
707 For debugging, prints a single edict
708 =============
709 */
710 void PRVM_ED_PrintEdict_f (void)
711 {
712         int             i;
713
714         if(Cmd_Argc() != 3)
715         {
716                 Con_Print("prvm_edict <program name> <edict number>\n");
717                 return;
718         }
719
720         PRVM_Begin;
721         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
722                 return;
723
724         i = atoi (Cmd_Argv(2));
725         if (i >= prog->num_edicts)
726         {
727                 Con_Print("Bad edict number\n");
728                 PRVM_End;
729                 return;
730         }
731         PRVM_ED_PrintNum (i);
732
733         PRVM_End;
734 }
735
736 /*
737 =============
738 PRVM_ED_Count
739
740 For debugging
741 =============
742 */
743 // 2 possibilities : 1. just displaying the active edict count
744 //                                       2. making a function pointer [x]
745 void PRVM_ED_Count_f (void)
746 {
747         int             i;
748         prvm_edict_t    *ent;
749         int             active;
750
751         if(Cmd_Argc() != 2)
752         {
753                 Con_Print("prvm_count <program name>\n");
754                 return;
755         }
756
757         PRVM_Begin;
758         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
759                 return;
760
761         if(prog->count_edicts)
762                 prog->count_edicts();
763         else
764         {
765                 active = 0;
766                 for (i=0 ; i<prog->num_edicts ; i++)
767                 {
768                         ent = PRVM_EDICT_NUM(i);
769                         if (ent->priv.required->free)
770                                 continue;
771                         active++;
772                 }
773
774                 Con_Printf("num_edicts:%3i\n", prog->num_edicts);
775                 Con_Printf("active    :%3i\n", active);
776         }
777
778         PRVM_End;
779 }
780
781 /*
782 ==============================================================================
783
784                                         ARCHIVING GLOBALS
785
786 FIXME: need to tag constants, doesn't really work
787 ==============================================================================
788 */
789
790 /*
791 =============
792 PRVM_ED_WriteGlobals
793 =============
794 */
795 void PRVM_ED_WriteGlobals (qfile_t *f)
796 {
797         ddef_t          *def;
798         int                     i;
799         const char              *name;
800         int                     type;
801
802         FS_Print(f,"{\n");
803         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
804         {
805                 def = &prog->globaldefs[i];
806                 type = def->type;
807                 if ( !(def->type & DEF_SAVEGLOBAL) )
808                         continue;
809                 type &= ~DEF_SAVEGLOBAL;
810
811                 if (type != ev_string && type != ev_float && type != ev_entity)
812                         continue;
813
814                 name = PRVM_GetString(def->s_name);
815                 FS_Printf(f,"\"%s\" ", name);
816                 FS_Printf(f,"\"%s\"\n", PRVM_UglyValueString((etype_t)type, (prvm_eval_t *)&prog->globals.generic[def->ofs]));
817         }
818         FS_Print(f,"}\n");
819 }
820
821 /*
822 =============
823 PRVM_ED_ParseGlobals
824 =============
825 */
826 void PRVM_ED_ParseGlobals (const char *data)
827 {
828         char keyname[1024]; // LordHavoc: good idea? bad idea?  was 64
829         ddef_t *key;
830
831         while (1)
832         {
833                 // parse key
834                 if (!COM_ParseToken(&data, false))
835                         PRVM_ERROR ("PRVM_ED_ParseEntity: EOF without closing brace");
836                 if (com_token[0] == '}')
837                         break;
838
839                 strcpy (keyname, com_token);
840
841                 // parse value
842                 if (!COM_ParseToken(&data, false))
843                         PRVM_ERROR ("PRVM_ED_ParseEntity: EOF without closing brace");
844
845                 if (com_token[0] == '}')
846                         PRVM_ERROR ("PRVM_ED_ParseEntity: closing brace without data");
847
848                 key = PRVM_ED_FindGlobal (keyname);
849                 if (!key)
850                 {
851                         Con_DPrintf("'%s' is not a global on %s\n", keyname, PRVM_NAME);
852                         continue;
853                 }
854
855                 if (!PRVM_ED_ParseEpair(NULL, key, com_token))
856                         PRVM_ERROR ("PRVM_ED_ParseGlobals: parse error");
857         }
858 }
859
860 //============================================================================
861
862
863 /*
864 =============
865 PRVM_ED_ParseEval
866
867 Can parse either fields or globals
868 returns false if error
869 =============
870 */
871 qboolean PRVM_ED_ParseEpair(prvm_edict_t *ent, ddef_t *key, const char *s)
872 {
873         int i, l;
874         char *new_p;
875         ddef_t *def;
876         prvm_eval_t *val;
877         mfunction_t *func;
878
879         if (ent)
880                 val = (prvm_eval_t *)((int *)ent->fields.vp + key->ofs);
881         else
882                 val = (prvm_eval_t *)((int *)prog->globals.generic + key->ofs);
883         switch (key->type & ~DEF_SAVEGLOBAL)
884         {
885         case ev_string:
886                 l = (int)strlen(s) + 1;
887                 val->string = PRVM_AllocString(l, &new_p);
888                 for (i = 0;i < l;i++)
889                 {
890                         if (s[i] == '\\' && i < l-1)
891                         {
892                                 i++;
893                                 if (s[i] == 'n')
894                                         *new_p++ = '\n';
895                                 else if (s[i] == 'r')
896                                         *new_p++ = '\r';
897                                 else
898                                         *new_p++ = s[i];
899                         }
900                         else
901                                 *new_p++ = s[i];
902                 }
903                 break;
904
905         case ev_float:
906                 while (*s && *s <= ' ')
907                         s++;
908                 val->_float = atof(s);
909                 break;
910
911         case ev_vector:
912                 for (i = 0;i < 3;i++)
913                 {
914                         while (*s && *s <= ' ')
915                                 s++;
916                         if (!*s)
917                                 break;
918                         val->vector[i] = atof(s);
919                         while (*s > ' ')
920                                 s++;
921                         if (!*s)
922                                 break;
923                 }
924                 break;
925
926         case ev_entity:
927                 while (*s && *s <= ' ')
928                         s++;
929                 i = atoi(s);
930                 if (i >= prog->limit_edicts)
931                         Con_Printf("PRVM_ED_ParseEpair: ev_entity reference too large (edict %u >= MAX_EDICTS %u) on %s\n", (unsigned int)i, (unsigned int)MAX_EDICTS, PRVM_NAME);
932                 while (i >= prog->max_edicts)
933                         PRVM_MEM_IncreaseEdicts();
934                         //SV_IncreaseEdicts();
935                 // if SV_IncreaseEdicts was called the base pointer needs to be updated
936                 if (ent)
937                         val = (prvm_eval_t *)((int *)ent->fields.vp + key->ofs);
938                 val->edict = PRVM_EDICT_TO_PROG(PRVM_EDICT_NUM((int)i));
939                 break;
940
941         case ev_field:
942                 def = PRVM_ED_FindField(s);
943                 if (!def)
944                 {
945                         Con_DPrintf("PRVM_ED_ParseEpair: Can't find field %s in %s\n", s, PRVM_NAME);
946                         return false;
947                 }
948                 val->_int = def->ofs;
949                 break;
950
951         case ev_function:
952                 func = PRVM_ED_FindFunction(s);
953                 if (!func)
954                 {
955                         Con_Printf("PRVM_ED_ParseEpair: Can't find function %s in %s\n", s, PRVM_NAME);
956                         return false;
957                 }
958                 val->function = func - prog->functions;
959                 break;
960
961         default:
962                 Con_Printf("PRVM_ED_ParseEpair: Unknown key->type %i for key \"%s\" on %s\n", key->type, PRVM_GetString(key->s_name), PRVM_NAME);
963                 return false;
964         }
965         return true;
966 }
967
968 /*
969 =============
970 PRVM_ED_EdictSet_f
971
972 Console command to set a field of a specified edict
973 =============
974 */
975 void PRVM_ED_EdictSet_f(void)
976 {
977         prvm_edict_t *ed;
978         ddef_t *key;
979
980         if(Cmd_Argc() != 5)
981         {
982                 Con_Print("prvm_edictset <program name> <edict number> <field> <value>\n");
983                 return;
984         }
985
986         PRVM_Begin;
987         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
988         {
989                 Con_Printf("Wrong program name %s !\n", Cmd_Argv(1));
990                 return;
991         }
992
993         ed = PRVM_EDICT_NUM(atoi(Cmd_Argv(2)));
994
995         if((key = PRVM_ED_FindField(Cmd_Argv(3))) == 0)
996                 Con_Printf("Key %s not found !\n", Cmd_Argv(3));
997         else
998                 PRVM_ED_ParseEpair(ed, key, Cmd_Argv(4));
999
1000         PRVM_End;
1001 }
1002
1003 /*
1004 ====================
1005 PRVM_ED_ParseEdict
1006
1007 Parses an edict out of the given string, returning the new position
1008 ed should be a properly initialized empty edict.
1009 Used for initial level load and for savegames.
1010 ====================
1011 */
1012 const char *PRVM_ED_ParseEdict (const char *data, prvm_edict_t *ent)
1013 {
1014         ddef_t *key;
1015         qboolean anglehack;
1016         qboolean init;
1017         char keyname[256];
1018         size_t n;
1019
1020         init = false;
1021
1022 // go through all the dictionary pairs
1023         while (1)
1024         {
1025         // parse key
1026                 if (!COM_ParseToken(&data, false))
1027                         PRVM_ERROR ("PRVM_ED_ParseEntity: EOF without closing brace");
1028                 if (com_token[0] == '}')
1029                         break;
1030
1031                 // anglehack is to allow QuakeEd to write single scalar angles
1032                 // and allow them to be turned into vectors. (FIXME...)
1033                 if (!strcmp(com_token, "angle"))
1034                 {
1035                         strcpy (com_token, "angles");
1036                         anglehack = true;
1037                 }
1038                 else
1039                         anglehack = false;
1040
1041                 // FIXME: change light to _light to get rid of this hack
1042                 if (!strcmp(com_token, "light"))
1043                         strcpy (com_token, "light_lev");        // hack for single light def
1044
1045                 strcpy (keyname, com_token);
1046
1047                 // another hack to fix keynames with trailing spaces
1048                 n = strlen(keyname);
1049                 while (n && keyname[n-1] == ' ')
1050                 {
1051                         keyname[n-1] = 0;
1052                         n--;
1053                 }
1054
1055         // parse value
1056                 if (!COM_ParseToken(&data, false))
1057                         PRVM_ERROR ("PRVM_ED_ParseEntity: EOF without closing brace");
1058
1059                 if (com_token[0] == '}')
1060                         PRVM_ERROR ("PRVM_ED_ParseEntity: closing brace without data");
1061
1062                 init = true;
1063
1064                 // ignore attempts to set key "" (this problem occurs in nehahra neh1m8.bsp)
1065                 if (!keyname[0])
1066                         continue;
1067
1068 // keynames with a leading underscore are used for utility comments,
1069 // and are immediately discarded by quake
1070                 if (keyname[0] == '_')
1071                         continue;
1072
1073                 key = PRVM_ED_FindField (keyname);
1074                 if (!key)
1075                 {
1076                         Con_DPrintf("%s: '%s' is not a field\n", PRVM_NAME, keyname);
1077                         continue;
1078                 }
1079
1080                 if (anglehack)
1081                 {
1082                         char    temp[32];
1083                         strcpy (temp, com_token);
1084                         sprintf (com_token, "0 %s 0", temp);
1085                 }
1086
1087                 if (!PRVM_ED_ParseEpair(ent, key, com_token))
1088                         PRVM_ERROR ("PRVM_ED_ParseEdict: parse error");
1089         }
1090
1091         if (!init)
1092                 ent->priv.required->free = true;
1093
1094         return data;
1095 }
1096
1097
1098 /*
1099 ================
1100 PRVM_ED_LoadFromFile
1101
1102 The entities are directly placed in the array, rather than allocated with
1103 PRVM_ED_Alloc, because otherwise an error loading the map would have entity
1104 number references out of order.
1105
1106 Creates a server's entity / program execution context by
1107 parsing textual entity definitions out of an ent file.
1108
1109 Used for both fresh maps and savegame loads.  A fresh map would also need
1110 to call PRVM_ED_CallSpawnFunctions () to let the objects initialize themselves.
1111 ================
1112 */
1113 void PRVM_ED_LoadFromFile (const char *data)
1114 {
1115         prvm_edict_t *ent;
1116         int parsed, inhibited, spawned, died;
1117         mfunction_t *func;
1118
1119         parsed = 0;
1120         inhibited = 0;
1121         spawned = 0;
1122         died = 0;
1123
1124
1125 // parse ents
1126         while (1)
1127         {
1128 // parse the opening brace
1129                 if (!COM_ParseToken(&data, false))
1130                         break;
1131                 if (com_token[0] != '{')
1132                         PRVM_ERROR ("PRVM_ED_LoadFromFile: %s: found %s when expecting {", PRVM_NAME, com_token);
1133
1134                 // CHANGED: this is not conform to PR_LoadFromFile
1135                 if(prog->loadintoworld)
1136                 {
1137                         prog->loadintoworld = false;
1138                         ent = PRVM_EDICT_NUM(0);
1139                 }
1140                 else
1141                         ent = PRVM_ED_Alloc();
1142
1143                 // clear it
1144                 if (ent != prog->edicts)        // hack
1145                         memset (ent->fields.vp, 0, prog->progs->entityfields * 4);
1146
1147                 data = PRVM_ED_ParseEdict (data, ent);
1148                 parsed++;
1149
1150                 // remove the entity ?
1151                 if(prog->load_edict && !prog->load_edict(ent))
1152                 {
1153                         PRVM_ED_Free(ent);
1154                         inhibited++;
1155                         continue;
1156                 }
1157
1158 //
1159 // immediately call spawn function, but only if there is a self global and a classname
1160 //
1161                 if(prog->self && prog->flag & PRVM_FE_CLASSNAME)
1162                 {
1163                         string_t handle =  *(string_t*)&((unsigned char*)ent->fields.vp)[PRVM_ED_FindFieldOffset("classname")];
1164                         if (!handle)
1165                         {
1166                                 Con_Print("No classname for:\n");
1167                                 PRVM_ED_Print(ent);
1168                                 PRVM_ED_Free (ent);
1169                                 continue;
1170                         }
1171
1172                         // look for the spawn function
1173                         func = PRVM_ED_FindFunction (PRVM_GetString(handle));
1174
1175                         if (!func)
1176                         {
1177                                 if (developer.integer) // don't confuse non-developers with errors
1178                                 {
1179                                         Con_Print("No spawn function for:\n");
1180                                         PRVM_ED_Print(ent);
1181                                 }
1182                                 PRVM_ED_Free (ent);
1183                                 continue;
1184                         }
1185
1186                         // self = ent
1187                         PRVM_G_INT(prog->self->ofs) = PRVM_EDICT_TO_PROG(ent);
1188                         PRVM_ExecuteProgram (func - prog->functions, "");
1189                 }
1190
1191                 spawned++;
1192                 if (ent->priv.required->free)
1193                         died++;
1194         }
1195
1196         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);
1197 }
1198
1199 // not used
1200 /*
1201 typedef struct dpfield_s
1202 {
1203         int type;
1204         char *string;
1205 }
1206 dpfield_t;
1207
1208 #define DPFIELDS (sizeof(dpfields) / sizeof(dpfield_t))
1209
1210 dpfield_t dpfields[] =
1211 {
1212 };
1213 */
1214
1215 /*
1216 ===============
1217 PRVM_ResetProg
1218 ===============
1219 */
1220
1221 void PRVM_ResetProg()
1222 {
1223         PRVM_GCALL(reset_cmd)();
1224         Mem_FreePool(&prog->progs_mempool);
1225         memset(prog,0,sizeof(prvm_prog_t));
1226 }
1227
1228 /*
1229 ===============
1230 PRVM_LoadLNO
1231 ===============
1232 */
1233 void PRVM_LoadLNO( const char *progname ) {
1234         fs_offset_t filesize;
1235         unsigned char *lno;
1236         unsigned int *header;
1237         char filename[512];
1238
1239         FS_StripExtension( progname, filename, sizeof( filename ) );
1240         strlcat( filename, ".lno", sizeof( filename ) );
1241
1242         lno = FS_LoadFile( filename, tempmempool, false, &filesize );
1243         if( !lno ) {
1244                 return;
1245         }
1246
1247 /*
1248 <Spike>    SafeWrite (h, &lnotype, sizeof(int));
1249 <Spike>    SafeWrite (h, &version, sizeof(int));
1250 <Spike>    SafeWrite (h, &numglobaldefs, sizeof(int));
1251 <Spike>    SafeWrite (h, &numpr_globals, sizeof(int));
1252 <Spike>    SafeWrite (h, &numfielddefs, sizeof(int));
1253 <Spike>    SafeWrite (h, &numstatements, sizeof(int));
1254 <Spike>    SafeWrite (h, statement_linenums, numstatements*sizeof(int));
1255 */
1256         if( (unsigned) filesize < (6 + prog->progs->numstatements) * sizeof( int ) ) {
1257         return;
1258         }
1259
1260         header = (unsigned int *) lno;
1261         if( header[ 0 ] == *(unsigned int *) "LNOF" &&
1262                 LittleLong( header[ 1 ] ) == 1 &&
1263                 (unsigned int)LittleLong( header[ 2 ] ) == (unsigned int)prog->progs->numglobaldefs &&
1264                 (unsigned int)LittleLong( header[ 3 ] ) == (unsigned int)prog->progs->numglobals &&
1265                 (unsigned int)LittleLong( header[ 4 ] ) == (unsigned int)prog->progs->numfielddefs &&
1266                 (unsigned int)LittleLong( header[ 5 ] ) == (unsigned int)prog->progs->numstatements )
1267         {
1268                 prog->statement_linenums = (int *)Mem_Alloc(prog->progs_mempool, prog->progs->numstatements * sizeof( int ) );
1269                 memcpy( prog->statement_linenums, (int *) lno + 6, prog->progs->numstatements * sizeof( int ) );
1270         }
1271         Mem_Free( lno );
1272 }
1273
1274 /*
1275 ===============
1276 PRVM_LoadProgs
1277 ===============
1278 */
1279 void PRVM_LoadProgs (const char * filename, int numrequiredfunc, char **required_func, int numrequiredfields, prvm_required_field_t *required_field)
1280 {
1281         int i;
1282         dstatement_t *st;
1283         ddef_t *infielddefs;
1284         dfunction_t *dfunctions;
1285         fs_offset_t filesize;
1286
1287         if( prog->loaded ) {
1288                 PRVM_ERROR ("PRVM_LoadProgs: there is already a %s program loaded!\n", PRVM_NAME );
1289         }
1290
1291         prog->progs = (dprograms_t *)FS_LoadFile (filename, prog->progs_mempool, false, &filesize);
1292         if (prog->progs == NULL || filesize < (fs_offset_t)sizeof(dprograms_t))
1293                 PRVM_ERROR ("PRVM_LoadProgs: couldn't load %s for %s", filename, PRVM_NAME);
1294
1295         Con_DPrintf("%s programs occupy %iK.\n", PRVM_NAME, filesize/1024);
1296
1297         prog->filecrc = CRC_Block((unsigned char *)prog->progs, filesize);
1298
1299 // byte swap the header
1300         for (i = 0;i < (int) sizeof(*prog->progs) / 4;i++)
1301                 ((int *)prog->progs)[i] = LittleLong ( ((int *)prog->progs)[i] );
1302
1303         if (prog->progs->version != PROG_VERSION)
1304                 PRVM_ERROR ("%s: %s has wrong version number (%i should be %i)", PRVM_NAME, filename, prog->progs->version, PROG_VERSION);
1305         if (prog->progs->crc != prog->headercrc)
1306                 PRVM_ERROR ("%s: %s system vars have been modified, progdefs.h is out of date", PRVM_NAME, filename);
1307
1308         //prog->functions = (dfunction_t *)((unsigned char *)progs + progs->ofs_functions);
1309         dfunctions = (dfunction_t *)((unsigned char *)prog->progs + prog->progs->ofs_functions);
1310
1311         prog->strings = (char *)prog->progs + prog->progs->ofs_strings;
1312         prog->stringssize = 0;
1313         for (i = 0;i < prog->progs->numstrings;i++)
1314         {
1315                 if (prog->progs->ofs_strings + prog->stringssize >= (int)filesize)
1316                         PRVM_ERROR ("%s: %s strings go past end of file\n", PRVM_NAME, filename);
1317                 prog->stringssize += (int)strlen (prog->strings + prog->stringssize) + 1;
1318         }
1319         prog->numknownstrings = 0;
1320         prog->maxknownstrings = 0;
1321         prog->knownstrings = NULL;
1322         prog->knownstrings_freeable = NULL;
1323
1324         prog->globaldefs = (ddef_t *)((unsigned char *)prog->progs + prog->progs->ofs_globaldefs);
1325
1326         // we need to expand the fielddefs list to include all the engine fields,
1327         // so allocate a new place for it
1328         infielddefs = (ddef_t *)((unsigned char *)prog->progs + prog->progs->ofs_fielddefs);
1329         //                                                                                              ( + DPFIELDS                       )
1330         prog->fielddefs = (ddef_t *)Mem_Alloc(prog->progs_mempool, (prog->progs->numfielddefs + numrequiredfields) * sizeof(ddef_t));
1331
1332         prog->statements = (dstatement_t *)((unsigned char *)prog->progs + prog->progs->ofs_statements);
1333
1334         // moved edict_size calculation down below field adding code
1335
1336         //pr_global_struct = (globalvars_t *)((unsigned char *)progs + progs->ofs_globals);
1337         prog->globals.generic = (float *)((unsigned char *)prog->progs + prog->progs->ofs_globals);
1338
1339 // byte swap the lumps
1340         for (i=0 ; i<prog->progs->numstatements ; i++)
1341         {
1342                 prog->statements[i].op = LittleShort(prog->statements[i].op);
1343                 prog->statements[i].a = LittleShort(prog->statements[i].a);
1344                 prog->statements[i].b = LittleShort(prog->statements[i].b);
1345                 prog->statements[i].c = LittleShort(prog->statements[i].c);
1346         }
1347
1348         prog->functions = (mfunction_t *)Mem_Alloc(prog->progs_mempool, sizeof(mfunction_t) * prog->progs->numfunctions);
1349         for (i = 0;i < prog->progs->numfunctions;i++)
1350         {
1351                 prog->functions[i].first_statement = LittleLong (dfunctions[i].first_statement);
1352                 prog->functions[i].parm_start = LittleLong (dfunctions[i].parm_start);
1353                 prog->functions[i].s_name = LittleLong (dfunctions[i].s_name);
1354                 prog->functions[i].s_file = LittleLong (dfunctions[i].s_file);
1355                 prog->functions[i].numparms = LittleLong (dfunctions[i].numparms);
1356                 prog->functions[i].locals = LittleLong (dfunctions[i].locals);
1357                 memcpy(prog->functions[i].parm_size, dfunctions[i].parm_size, sizeof(dfunctions[i].parm_size));
1358         }
1359
1360         for (i=0 ; i<prog->progs->numglobaldefs ; i++)
1361         {
1362                 prog->globaldefs[i].type = LittleShort (prog->globaldefs[i].type);
1363                 prog->globaldefs[i].ofs = LittleShort (prog->globaldefs[i].ofs);
1364                 prog->globaldefs[i].s_name = LittleLong (prog->globaldefs[i].s_name);
1365         }
1366
1367         // copy the progs fields to the new fields list
1368         for (i = 0;i < prog->progs->numfielddefs;i++)
1369         {
1370                 prog->fielddefs[i].type = LittleShort (infielddefs[i].type);
1371                 if (prog->fielddefs[i].type & DEF_SAVEGLOBAL)
1372                         PRVM_ERROR ("PRVM_LoadProgs: prog->fielddefs[i].type & DEF_SAVEGLOBAL in %s", PRVM_NAME);
1373                 prog->fielddefs[i].ofs = LittleShort (infielddefs[i].ofs);
1374                 prog->fielddefs[i].s_name = LittleLong (infielddefs[i].s_name);
1375         }
1376
1377         // append the required fields
1378         for (i = 0;i < (int) numrequiredfields;i++)
1379         {
1380                 prog->fielddefs[prog->progs->numfielddefs].type = required_field[i].type;
1381                 prog->fielddefs[prog->progs->numfielddefs].ofs = prog->progs->entityfields;
1382                 prog->fielddefs[prog->progs->numfielddefs].s_name = PRVM_SetEngineString(required_field[i].name);
1383                 if (prog->fielddefs[prog->progs->numfielddefs].type == ev_vector)
1384                         prog->progs->entityfields += 3;
1385                 else
1386                         prog->progs->entityfields++;
1387                 prog->progs->numfielddefs++;
1388         }
1389
1390         // check required functions
1391         for(i=0 ; i < numrequiredfunc ; i++)
1392                 if(PRVM_ED_FindFunction(required_func[i]) == 0)
1393                         PRVM_ERROR("%s: %s not found in %s\n",PRVM_NAME, required_func[i], filename);
1394
1395         for (i=0 ; i<prog->progs->numglobals ; i++)
1396                 ((int *)prog->globals.generic)[i] = LittleLong (((int *)prog->globals.generic)[i]);
1397
1398         // moved edict_size calculation down here, below field adding code
1399         // LordHavoc: this no longer includes the prvm_edict_t header
1400         prog->edict_size = prog->progs->entityfields * 4;
1401         prog->edictareasize = prog->edict_size * prog->limit_edicts;
1402
1403         // LordHavoc: bounds check anything static
1404         for (i = 0,st = prog->statements;i < prog->progs->numstatements;i++,st++)
1405         {
1406                 switch (st->op)
1407                 {
1408                 case OP_IF:
1409                 case OP_IFNOT:
1410                         if ((unsigned short) st->a >= prog->progs->numglobals || st->b + i < 0 || st->b + i >= prog->progs->numstatements)
1411                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds IF/IFNOT (statement %d) in %s\n", i, PRVM_NAME);
1412                         break;
1413                 case OP_GOTO:
1414                         if (st->a + i < 0 || st->a + i >= prog->progs->numstatements)
1415                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds GOTO (statement %d) in %s\n", i, PRVM_NAME);
1416                         break;
1417                 // global global global
1418                 case OP_ADD_F:
1419                 case OP_ADD_V:
1420                 case OP_SUB_F:
1421                 case OP_SUB_V:
1422                 case OP_MUL_F:
1423                 case OP_MUL_V:
1424                 case OP_MUL_FV:
1425                 case OP_MUL_VF:
1426                 case OP_DIV_F:
1427                 case OP_BITAND:
1428                 case OP_BITOR:
1429                 case OP_GE:
1430                 case OP_LE:
1431                 case OP_GT:
1432                 case OP_LT:
1433                 case OP_AND:
1434                 case OP_OR:
1435                 case OP_EQ_F:
1436                 case OP_EQ_V:
1437                 case OP_EQ_S:
1438                 case OP_EQ_E:
1439                 case OP_EQ_FNC:
1440                 case OP_NE_F:
1441                 case OP_NE_V:
1442                 case OP_NE_S:
1443                 case OP_NE_E:
1444                 case OP_NE_FNC:
1445                 case OP_ADDRESS:
1446                 case OP_LOAD_F:
1447                 case OP_LOAD_FLD:
1448                 case OP_LOAD_ENT:
1449                 case OP_LOAD_S:
1450                 case OP_LOAD_FNC:
1451                 case OP_LOAD_V:
1452                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->b >= prog->progs->numglobals || (unsigned short) st->c >= prog->progs->numglobals)
1453                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d)\n", i);
1454                         break;
1455                 // global none global
1456                 case OP_NOT_F:
1457                 case OP_NOT_V:
1458                 case OP_NOT_S:
1459                 case OP_NOT_FNC:
1460                 case OP_NOT_ENT:
1461                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->c >= prog->progs->numglobals)
1462                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d) in %s\n", i, PRVM_NAME);
1463                         break;
1464                 // 2 globals
1465                 case OP_STOREP_F:
1466                 case OP_STOREP_ENT:
1467                 case OP_STOREP_FLD:
1468                 case OP_STOREP_S:
1469                 case OP_STOREP_FNC:
1470                 case OP_STORE_F:
1471                 case OP_STORE_ENT:
1472                 case OP_STORE_FLD:
1473                 case OP_STORE_S:
1474                 case OP_STORE_FNC:
1475                 case OP_STATE:
1476                 case OP_STOREP_V:
1477                 case OP_STORE_V:
1478                         if ((unsigned short) st->a >= prog->progs->numglobals || (unsigned short) st->b >= prog->progs->numglobals)
1479                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d)\n in %s", i, PRVM_NAME);
1480                         break;
1481                 // 1 global
1482                 case OP_CALL0:
1483                 case OP_CALL1:
1484                 case OP_CALL2:
1485                 case OP_CALL3:
1486                 case OP_CALL4:
1487                 case OP_CALL5:
1488                 case OP_CALL6:
1489                 case OP_CALL7:
1490                 case OP_CALL8:
1491                 case OP_DONE:
1492                 case OP_RETURN:
1493                         if ((unsigned short) st->a >= prog->progs->numglobals)
1494                                 PRVM_ERROR("PRVM_LoadProgs: out of bounds global index (statement %d) in %s\n", i, PRVM_NAME);
1495                         break;
1496                 default:
1497                         PRVM_ERROR("PRVM_LoadProgs: unknown opcode %d at statement %d in %s\n", st->op, i, PRVM_NAME);
1498                         break;
1499                 }
1500         }
1501
1502         PRVM_LoadLNO(filename);
1503
1504         PRVM_Init_Exec();
1505
1506         prog->loaded = TRUE;
1507
1508         // set flags & ddef_ts in prog
1509
1510         prog->flag = 0;
1511
1512         prog->self = PRVM_ED_FindGlobal("self");
1513
1514         if( PRVM_ED_FindGlobal("time") && PRVM_ED_FindGlobal("time")->type & ev_float )
1515                 prog->time = &PRVM_G_FLOAT(PRVM_ED_FindGlobal("time")->ofs);
1516
1517         if(PRVM_ED_FindField ("chain"))
1518                 prog->flag |= PRVM_FE_CHAIN;
1519
1520         if(PRVM_ED_FindField ("classname"))
1521                 prog->flag |= PRVM_FE_CLASSNAME;
1522
1523         if(PRVM_ED_FindField ("nextthink") && PRVM_ED_FindField ("frame") && PRVM_ED_FindField ("think")
1524                 && prog->flag && prog->self)
1525                 prog->flag |= PRVM_OP_STATE;
1526
1527         PRVM_GCALL(init_cmd)();
1528
1529         // init mempools
1530         PRVM_MEM_Alloc();
1531 }
1532
1533
1534 void PRVM_Fields_f (void)
1535 {
1536         int i, j, ednum, used, usedamount;
1537         int *counts;
1538         char tempstring[5000], tempstring2[260];
1539         const char *name;
1540         prvm_edict_t *ed;
1541         ddef_t *d;
1542         int *v;
1543
1544         // TODO
1545         /*
1546         if (!sv.active)
1547         {
1548                 Con_Print("no progs loaded\n");
1549                 return;
1550         }
1551         */
1552
1553         if(Cmd_Argc() != 2)
1554         {
1555                 Con_Print("prvm_fields <program name>\n");
1556                 return;
1557         }
1558
1559         PRVM_Begin;
1560         if(!PRVM_SetProgFromString(Cmd_Argv(1)))
1561                 return;
1562
1563         counts = (int *)Mem_Alloc(tempmempool, prog->progs->numfielddefs * sizeof(int));
1564         for (ednum = 0;ednum < prog->max_edicts;ednum++)
1565         {
1566                 ed = PRVM_EDICT_NUM(ednum);
1567                 if (ed->priv.required->free)
1568                         continue;
1569                 for (i = 1;i < prog->progs->numfielddefs;i++)
1570                 {
1571                         d = &prog->fielddefs[i];
1572                         name = PRVM_GetString(d->s_name);
1573                         if (name[strlen(name)-2] == '_')
1574                                 continue;       // skip _x, _y, _z vars
1575                         v = (int *)((char *)ed->fields.vp + d->ofs*4);
1576                         // if the value is still all 0, skip the field
1577                         for (j = 0;j < prvm_type_size[d->type & ~DEF_SAVEGLOBAL];j++)
1578                         {
1579                                 if (v[j])
1580                                 {
1581                                         counts[i]++;
1582                                         break;
1583                                 }
1584                         }
1585                 }
1586         }
1587         used = 0;
1588         usedamount = 0;
1589         tempstring[0] = 0;
1590         for (i = 0;i < prog->progs->numfielddefs;i++)
1591         {
1592                 d = &prog->fielddefs[i];
1593                 name = PRVM_GetString(d->s_name);
1594                 if (name[strlen(name)-2] == '_')
1595                         continue;       // skip _x, _y, _z vars
1596                 switch(d->type & ~DEF_SAVEGLOBAL)
1597                 {
1598                 case ev_string:
1599                         strcat(tempstring, "string   ");
1600                         break;
1601                 case ev_entity:
1602                         strcat(tempstring, "entity   ");
1603                         break;
1604                 case ev_function:
1605                         strcat(tempstring, "function ");
1606                         break;
1607                 case ev_field:
1608                         strcat(tempstring, "field    ");
1609                         break;
1610                 case ev_void:
1611                         strcat(tempstring, "void     ");
1612                         break;
1613                 case ev_float:
1614                         strcat(tempstring, "float    ");
1615                         break;
1616                 case ev_vector:
1617                         strcat(tempstring, "vector   ");
1618                         break;
1619                 case ev_pointer:
1620                         strcat(tempstring, "pointer  ");
1621                         break;
1622                 default:
1623                         sprintf (tempstring2, "bad type %i ", d->type & ~DEF_SAVEGLOBAL);
1624                         strcat(tempstring, tempstring2);
1625                         break;
1626                 }
1627                 if (strlen(name) > 256)
1628                 {
1629                         memcpy (tempstring2, name, 256);
1630                         tempstring2[256] = tempstring2[257] = tempstring2[258] = '.';
1631                         tempstring2[259] = 0;
1632                         name = tempstring2;
1633                 }
1634                 strcat(tempstring, name);
1635                 for (j = (int)strlen(name);j < 25;j++)
1636                         strcat(tempstring, " ");
1637                 sprintf(tempstring2, "%5d", counts[i]);
1638                 strcat(tempstring, tempstring2);
1639                 strcat(tempstring, "\n");
1640                 if (strlen(tempstring) >= 4096)
1641                 {
1642                         Con_Print(tempstring);
1643                         tempstring[0] = 0;
1644                 }
1645                 if (counts[i])
1646                 {
1647                         used++;
1648                         usedamount += prvm_type_size[d->type & ~DEF_SAVEGLOBAL];
1649                 }
1650         }
1651         Mem_Free(counts);
1652         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);
1653
1654         PRVM_End;
1655 }
1656
1657 void PRVM_Globals_f (void)
1658 {
1659         int i;
1660         // TODO
1661         /*if (!sv.active)
1662         {
1663                 Con_Print("no progs loaded\n");
1664                 return;
1665         }*/
1666         if(Cmd_Argc () != 2)
1667         {
1668                 Con_Print("prvm_globals <program name>\n");
1669                 return;
1670         }
1671
1672         PRVM_Begin;
1673         if(!PRVM_SetProgFromString (Cmd_Argv (1)))
1674                 return;
1675
1676         Con_Printf("%s :", PRVM_NAME);
1677
1678         for (i = 0;i < prog->progs->numglobaldefs;i++)
1679                 Con_Printf("%s\n", PRVM_GetString(prog->globaldefs[i].s_name));
1680         Con_Printf("%i global variables, totalling %i bytes\n", prog->progs->numglobals, prog->progs->numglobals * 4);
1681
1682         PRVM_End;
1683 }
1684
1685 /*
1686 ===============
1687 PRVM_Global
1688 ===============
1689 */
1690 void PRVM_Global_f(void)
1691 {
1692         ddef_t *global;
1693         if( Cmd_Argc() != 3 ) {
1694                 Con_Printf( "prvm_global <program name> <global name>\n" );
1695                 return;
1696         }
1697
1698         PRVM_Begin;
1699         if( !PRVM_SetProgFromString( Cmd_Argv(1) ) )
1700                 return;
1701
1702         global = PRVM_ED_FindGlobal( Cmd_Argv(2) );
1703         if( !global )
1704                 Con_Printf( "No global '%s' in %s!\n", Cmd_Argv(2), Cmd_Argv(1) );
1705         else
1706                 Con_Printf( "%s: %s\n", Cmd_Argv(2), PRVM_ValueString( (etype_t)global->type, (prvm_eval_t *) &prog->globals.generic[ global->ofs ] ) );
1707         PRVM_End;
1708 }
1709
1710 /*
1711 ===============
1712 PRVM_GlobalSet
1713 ===============
1714 */
1715 void PRVM_GlobalSet_f(void)
1716 {
1717         ddef_t *global;
1718         if( Cmd_Argc() != 4 ) {
1719                 Con_Printf( "prvm_globalset <program name> <global name> <value>\n" );
1720                 return;
1721         }
1722
1723         PRVM_Begin;
1724         if( !PRVM_SetProgFromString( Cmd_Argv(1) ) )
1725                 return;
1726
1727         global = PRVM_ED_FindGlobal( Cmd_Argv(2) );
1728         if( !global )
1729                 Con_Printf( "No global '%s' in %s!\n", Cmd_Argv(2), Cmd_Argv(1) );
1730         else
1731                 PRVM_ED_ParseEpair( NULL, global, Cmd_Argv(3) );
1732         PRVM_End;
1733 }
1734
1735 /*
1736 ===============
1737 PRVM_Init
1738 ===============
1739 */
1740 void PRVM_Init (void)
1741 {
1742         Cmd_AddCommand ("prvm_edict", PRVM_ED_PrintEdict_f);
1743         Cmd_AddCommand ("prvm_edicts", PRVM_ED_PrintEdicts_f);
1744         Cmd_AddCommand ("prvm_edictcount", PRVM_ED_Count_f);
1745         Cmd_AddCommand ("prvm_profile", PRVM_Profile_f);
1746         Cmd_AddCommand ("prvm_fields", PRVM_Fields_f);
1747         Cmd_AddCommand ("prvm_globals", PRVM_Globals_f);
1748         Cmd_AddCommand ("prvm_global", PRVM_Global_f);
1749         Cmd_AddCommand ("prvm_globalset", PRVM_GlobalSet_f);
1750         Cmd_AddCommand ("prvm_edictset", PRVM_ED_EdictSet_f);
1751         // LordHavoc: optional runtime bounds checking (speed drain, but worth it for security, on by default - breaks most QCCX features (used by CRMod and others))
1752         Cvar_RegisterVariable (&prvm_boundscheck);
1753         Cvar_RegisterVariable (&prvm_traceqc);
1754
1755         //VM_Cmd_Init();
1756 }
1757
1758 /*
1759 ===============
1760 PRVM_InitProg
1761 ===============
1762 */
1763 void PRVM_InitProg(int prognr)
1764 {
1765         if(prognr < 0 || prognr >= PRVM_MAXPROGS)
1766                 Sys_Error("PRVM_InitProg: Invalid program number %i\n",prognr);
1767
1768         prog = &prog_list[prognr];
1769
1770         if(prog->loaded)
1771                 PRVM_ResetProg();
1772
1773         memset(prog, 0, sizeof(prvm_prog_t));
1774
1775         prog->time = &prog->_time;
1776         prog->error_cmd = Host_Error;
1777 }
1778
1779 int PRVM_GetProgNr()
1780 {
1781         return prog - prog_list;
1782 }
1783
1784 void *_PRVM_Alloc(size_t buffersize, const char *filename, int fileline)
1785 {
1786         return _Mem_Alloc(prog->progs_mempool, buffersize, filename, fileline);
1787 }
1788
1789 void _PRVM_Free(void *buffer, const char *filename, int fileline)
1790 {
1791         _Mem_Free(buffer, filename, fileline);
1792 }
1793
1794 void _PRVM_FreeAll(const char *filename, int fileline)
1795 {
1796         prog->progs = NULL;
1797         prog->fielddefs = NULL;
1798         prog->functions = NULL;
1799         _Mem_EmptyPool(prog->progs_mempool, filename, fileline);
1800 }
1801
1802 // LordHavoc: turned PRVM_EDICT_NUM into a #define for speed reasons
1803 prvm_edict_t *PRVM_EDICT_NUM_ERROR(int n, char *filename, int fileline)
1804 {
1805         PRVM_ERROR ("PRVM_EDICT_NUM: %s: bad number %i (called at %s:%i)", PRVM_NAME, n, filename, fileline);
1806         return NULL;
1807 }
1808
1809 /*
1810 int NUM_FOR_EDICT_ERROR(prvm_edict_t *e)
1811 {
1812         PRVM_ERROR ("PRVM_NUM_FOR_EDICT: bad pointer %p (world is %p, entity number would be %i)", e, prog->edicts, e - prog->edicts);
1813         return 0;
1814 }
1815
1816 int PRVM_NUM_FOR_EDICT(prvm_edict_t *e)
1817 {
1818         int n;
1819         n = e - prog->edicts;
1820         if ((unsigned int)n >= prog->limit_edicts)
1821                 Host_Error ("PRVM_NUM_FOR_EDICT: bad pointer");
1822         return n;
1823 }
1824
1825 //int NoCrash_NUM_FOR_EDICT(prvm_edict_t *e)
1826 //{
1827 //      return e - prog->edicts;
1828 //}
1829
1830 //#define       PRVM_EDICT_TO_PROG(e) ((unsigned char *)(((prvm_edict_t *)e)->v) - (unsigned char *)(prog->edictsfields))
1831 //#define PRVM_PROG_TO_EDICT(e) (prog->edicts + ((e) / (progs->entityfields * 4)))
1832 int PRVM_EDICT_TO_PROG(prvm_edict_t *e)
1833 {
1834         int n;
1835         n = e - prog->edicts;
1836         if ((unsigned int)n >= (unsigned int)prog->max_edicts)
1837                 Host_Error("PRVM_EDICT_TO_PROG: invalid edict %8p (number %i compared to world at %8p)\n", e, n, prog->edicts);
1838         return n;// EXPERIMENTAL
1839         //return (unsigned char *)e->v - (unsigned char *)prog->edictsfields;
1840 }
1841 prvm_edict_t *PRVM_PROG_TO_EDICT(int n)
1842 {
1843         if ((unsigned int)n >= (unsigned int)prog->max_edicts)
1844                 Host_Error("PRVM_PROG_TO_EDICT: invalid edict number %i\n", n);
1845         return prog->edicts + n; // EXPERIMENTAL
1846         //return prog->edicts + ((n) / (progs->entityfields * 4));
1847 }
1848 */
1849
1850
1851 const char *PRVM_GetString(int num)
1852 {
1853         if (num >= 0 && num < prog->stringssize)
1854                 return prog->strings + num;
1855         else if (num < 0 && num >= -prog->numknownstrings)
1856         {
1857                 num = -1 - num;
1858                 if (!prog->knownstrings[num])
1859                         PRVM_ERROR("PRVM_GetString: attempt to get string that is already freed\n");
1860                 return prog->knownstrings[num];
1861         }
1862         else
1863         {
1864                 PRVM_ERROR("PRVM_GetString: invalid string offset %i\n", num);
1865                 return "";
1866         }
1867 }
1868
1869 int PRVM_SetEngineString(const char *s)
1870 {
1871         int i;
1872         if (!s)
1873                 return 0;
1874         if (s >= prog->strings && s <= prog->strings + prog->stringssize)
1875                 PRVM_ERROR("PRVM_SetEngineString: s in prog->strings area\n");
1876         for (i = 0;i < prog->numknownstrings;i++)
1877                 if (prog->knownstrings[i] == s)
1878                         return -1 - i;
1879         // new unknown engine string
1880         if (developer.integer >= 3)
1881                 Con_Printf("new engine string %p\n", s);
1882         for (i = prog->firstfreeknownstring;i < prog->numknownstrings;i++)
1883                 if (!prog->knownstrings[i])
1884                         break;
1885         if (i >= prog->numknownstrings)
1886         {
1887                 if (i >= prog->maxknownstrings)
1888                 {
1889                         const char **oldstrings = prog->knownstrings;
1890                         const unsigned char *oldstrings_freeable = prog->knownstrings_freeable;
1891                         prog->maxknownstrings += 128;
1892                         prog->knownstrings = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
1893                         prog->knownstrings_freeable = (unsigned char *)PRVM_Alloc(prog->maxknownstrings * sizeof(unsigned char));
1894                         if (prog->numknownstrings)
1895                         {
1896                                 memcpy((char **)prog->knownstrings, oldstrings, prog->numknownstrings * sizeof(char *));
1897                                 memcpy((char **)prog->knownstrings_freeable, oldstrings_freeable, prog->numknownstrings * sizeof(unsigned char));
1898                         }
1899                 }
1900                 prog->numknownstrings++;
1901         }
1902         prog->firstfreeknownstring = i + 1;
1903         prog->knownstrings[i] = s;
1904         return -1 - i;
1905 }
1906
1907 int PRVM_AllocString(size_t bufferlength, char **pointer)
1908 {
1909         int i;
1910         if (!bufferlength)
1911                 return 0;
1912         for (i = prog->firstfreeknownstring;i < prog->numknownstrings;i++)
1913                 if (!prog->knownstrings[i])
1914                         break;
1915         if (i >= prog->numknownstrings)
1916         {
1917                 if (i >= prog->maxknownstrings)
1918                 {
1919                         const char **oldstrings = prog->knownstrings;
1920                         const unsigned char *oldstrings_freeable = prog->knownstrings_freeable;
1921                         prog->maxknownstrings += 128;
1922                         prog->knownstrings = (const char **)PRVM_Alloc(prog->maxknownstrings * sizeof(char *));
1923                         prog->knownstrings_freeable = (unsigned char *)PRVM_Alloc(prog->maxknownstrings * sizeof(unsigned char));
1924                         if (prog->numknownstrings)
1925                         {
1926                                 memcpy((char **)prog->knownstrings, oldstrings, prog->numknownstrings * sizeof(char *));
1927                                 memcpy((char **)prog->knownstrings_freeable, oldstrings_freeable, prog->numknownstrings * sizeof(unsigned char));
1928                         }
1929                 }
1930                 prog->numknownstrings++;
1931         }
1932         prog->firstfreeknownstring = i + 1;
1933         prog->knownstrings[i] = (char *)PRVM_Alloc(bufferlength);
1934         prog->knownstrings_freeable[i] = true;
1935         if (pointer)
1936                 *pointer = (char *)(prog->knownstrings[i]);
1937         return -1 - i;
1938 }
1939
1940 void PRVM_FreeString(int num)
1941 {
1942         if (num == 0)
1943                 PRVM_ERROR("PRVM_FreeString: attempt to free a NULL string\n");
1944         else if (num >= 0 && num < prog->stringssize)
1945                 PRVM_ERROR("PRVM_FreeString: attempt to free a constant string\n");
1946         else if (num < 0 && num >= -prog->numknownstrings)
1947         {
1948                 num = -1 - num;
1949                 if (!prog->knownstrings[num])
1950                         PRVM_ERROR("PRVM_FreeString: attempt to free a non-existent or already freed string\n");
1951                 if (!prog->knownstrings[num])
1952                         PRVM_ERROR("PRVM_FreeString: attempt to free a string owned by the engine\n");
1953                 PRVM_Free((char *)prog->knownstrings[num]);
1954                 prog->knownstrings[num] = NULL;
1955                 prog->knownstrings_freeable[num] = false;
1956                 prog->firstfreeknownstring = min(prog->firstfreeknownstring, num);
1957         }
1958         else
1959                 PRVM_ERROR("PRVM_FreeString: invalid string offset %i\n", num);
1960 }
1961