mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-11 15:51:36 +00:00
142 lines
3.6 KiB
C
142 lines
3.6 KiB
C
/*
|
|
#FILENAME#
|
|
|
|
#DESCRIPTION#
|
|
|
|
Copyright (C) 2001 #AUTHOR#
|
|
|
|
Author: #AUTHOR#
|
|
Date: #DATE#
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License
|
|
as published by the Free Software Foundation; either version 2
|
|
of the License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to:
|
|
|
|
Free Software Foundation, Inc.
|
|
59 Temple Place - Suite 330
|
|
Boston, MA 02111-1307, USA
|
|
|
|
*/
|
|
static const char rcsid[] =
|
|
"$Id$";
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <QF/cmd.h>
|
|
#include <QF/cvar.h>
|
|
#include <QF/progs.h>
|
|
#include <QF/vfs.h>
|
|
#include <QF/sys.h>
|
|
#include <QF/zone.h>
|
|
|
|
#define MAX_EDICTS 1024
|
|
|
|
progs_t progs;
|
|
void *membase;
|
|
int memsize = 16*1024*1024;
|
|
|
|
edict_t *edicts;
|
|
int num_edicts;
|
|
int reserved_edicts;
|
|
|
|
void BI_Init (progs_t *progs);
|
|
|
|
extern int *read_result; //FIXME: eww
|
|
|
|
int
|
|
main ()
|
|
{
|
|
func_t main_func;
|
|
FILE *f;
|
|
int len;
|
|
int i;
|
|
|
|
Cvar_Init_Hash ();
|
|
Cmd_Init_Hash ();
|
|
membase = malloc (memsize);
|
|
if (!membase)
|
|
Sys_Error ("Memory Allocation Failure\n");
|
|
Memory_Init (membase, memsize);
|
|
Cvar_Init ();
|
|
Cbuf_Init ();
|
|
Cmd_Init ();
|
|
|
|
Cvar_Get ("pr_debug", "1", 0, 0, 0);
|
|
Cvar_Get ("pr_boundscheck", "0", 0, 0, 0);
|
|
Cvar_Get ("fs_basegame", ".", 0, 0, 0);
|
|
Cvar_Get ("fs_userpath", ".", 0, 0, 0);
|
|
Cvar_Get ("fs_sharepath", ".", 0, 0, 0);
|
|
developer = Cvar_Get ("developer", "1", 0, 0, 0);
|
|
|
|
PR_Init_Cvars ();
|
|
COM_Filesystem_Init_Cvars ();
|
|
COM_Filesystem_Init ();
|
|
PR_Init ();
|
|
BI_Init (&progs);
|
|
|
|
progs.edicts = &edicts;
|
|
progs.num_edicts = &num_edicts;
|
|
progs.reserved_edicts = &reserved_edicts;
|
|
progs.no_exec_limit = 1;
|
|
progs.progs_name = "qwaq.dat";
|
|
|
|
f = fopen (progs.progs_name, "rb");
|
|
if (f) {
|
|
fseek (f, 0, SEEK_END);
|
|
len = ftell (f);
|
|
fseek (f, 0, SEEK_SET);
|
|
progs.progs = Hunk_AllocName (len, "qwaq.dat");
|
|
fread (progs.progs, 1, len, f);
|
|
fclose (f);
|
|
com_filesize = len;
|
|
if (progs.progs)
|
|
PR_LoadProgs (&progs, progs.progs_name);
|
|
}
|
|
if (!progs.progs)
|
|
Sys_Error ("couldn't load %s\n", "qwaq.dat");
|
|
PR_RelocateBuiltins (&progs);
|
|
|
|
*progs.edicts = PR_InitEdicts (&progs, MAX_EDICTS);
|
|
for (i = 0; i < progs.progs->numstatements; i++) {
|
|
PR_PrintStatement (&progs, &progs.pr_statements[i]);
|
|
}
|
|
printf ("\n");
|
|
for (i = 0; i < progs.progs->numfunctions; i++) {
|
|
dfunction_t *func = &progs.pr_functions[i];
|
|
int j;
|
|
|
|
printf ("%d %d %d %d %d %s %s %d", func->first_statement, func->parm_start, func->numparms, func->locals, func->profile, PR_GetString (&progs, func->s_name), PR_GetString (&progs, func->s_file), func->numparms);
|
|
for (j = 0; j < func->numparms; j++)
|
|
printf (" %d", func->parm_size[j]);
|
|
printf ("\n");
|
|
}
|
|
printf ("\n");
|
|
for (i = 0; i < progs.progs->numglobaldefs; i++) {
|
|
ddef_t *def = &progs.pr_globaldefs[i];
|
|
|
|
printf ("%s %d %d %s\n", pr_type_name[def->type & ~DEF_SAVEGLOBAL], (def->type & DEF_SAVEGLOBAL) != 0, def->ofs, PR_GetString (&progs, def->s_name));
|
|
}
|
|
printf ("\n");
|
|
#if 0
|
|
for (i = 0; i < progs.progs->numfielddefs; i++) {
|
|
ddef_t *def = &progs.pr_fielddefs[i];
|
|
|
|
printf ("%s %d %d %s\n", pr_type_name[def->type & ~DEF_SAVEGLOBAL], (def->type & DEF_SAVEGLOBAL) != 0, def->ofs, PR_GetString (&progs, def->s_name));
|
|
}
|
|
printf ("\n");
|
|
#endif
|
|
read_result = (int*)PR_GetGlobalPointer (&progs, "read_result");
|
|
main_func = PR_GetFunctionIndex (&progs, "main");
|
|
PR_ExecuteProgram (&progs, main_func);
|
|
return G_FLOAT (&progs, OFS_RETURN);
|
|
}
|