quakeforge/tools/qwaq/main.c

192 lines
3.7 KiB
C
Raw Normal View History

2001-09-28 07:09:38 +00:00
/*
#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
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <stdlib.h>
#include "QF/cbuf.h"
#include "QF/cmd.h"
#include "QF/cvar.h"
#include "QF/gib.h"
#include "QF/idparse.h"
#include "QF/progs.h"
#include "QF/qargs.h"
#include "QF/quakefs.h"
#include "QF/ruamoko.h"
#include "QF/sys.h"
2002-11-12 02:30:08 +00:00
#include "QF/va.h"
#include "QF/zone.h"
#include "qwaq.h"
#define MAX_EDICTS 1024
2002-11-12 02:30:08 +00:00
static progs_t pr;
cbuf_t *qwaq_cbuf;
2002-11-12 02:30:08 +00:00
static QFile *
open_file (const char *path, int *len)
{
QFile *file = Qopen (path, "rbz");
2002-11-12 02:30:08 +00:00
if (!file) {
perror (path);
return 0;
}
*len = Qfilesize (file);
return file;
}
2002-11-12 02:30:08 +00:00
static void *
load_file (progs_t *pr, const char *name, off_t *_size)
{
2002-11-12 02:30:08 +00:00
QFile *file;
int size;
char *sym;
2002-11-12 02:30:08 +00:00
file = open_file (name, &size);
if (!file) {
file = open_file (va ("%s.gz", name), &size);
if (!file) {
return 0;
}
}
sym = malloc (size + 1);
sym[size] = 0;
2002-11-12 02:30:08 +00:00
Qread (file, sym, size);
*_size = size;
2002-11-12 02:30:08 +00:00
return sym;
}
static void *
allocate_progs_mem (progs_t *pr, int size)
{
return malloc (size);
}
static void
free_progs_mem (progs_t *pr, void *mem)
{
free (mem);
}
2002-11-12 02:30:08 +00:00
static void
init_qf (void)
{
qwaq_cbuf = Cbuf_New (&id_interp);
Sys_Init ();
COM_ParseConfig ();
//Cvar_Set (developer, "1");
Memory_Init (malloc (8 * 1024 * 1024), 8 * 1024 * 1024);
2007-06-09 09:43:21 +00:00
Cvar_Get ("pr_debug", "2", 0, 0, 0);
Cvar_Get ("pr_boundscheck", "0", 0, 0, 0);
2002-11-12 02:30:08 +00:00
pr.load_file = load_file;
pr.allocate_progs_mem = allocate_progs_mem;
pr.free_progs_mem = free_progs_mem;
pr.no_exec_limit = 1;
2001-07-14 23:52:56 +00:00
PR_Init_Cvars ();
PR_Init (&pr);
RUA_Init (&pr, 0);
PR_Cmds_Init (&pr);
2002-11-12 02:30:08 +00:00
BI_Init (&pr);
}
static int
load_progs (const char *name)
{
QFile *file;
int size;
file = open_file (name, &size);
if (!file) {
return 0;
}
2002-11-12 02:30:08 +00:00
pr.progs_name = name;
pr.max_edicts = 1;
pr.zone_size = 1024*1024;
PR_LoadProgsFile (&pr, file, size);
2002-11-12 02:30:08 +00:00
Qclose (file);
if (!PR_RunLoadFuncs (&pr))
2002-11-12 02:30:08 +00:00
PR_Error (&pr, "unable to load %s", pr.progs_name);
return 1;
}
int
main (int argc, const char **argv)
2002-11-12 02:30:08 +00:00
{
dfunction_t *dfunc;
func_t main_func = 0;
const char *name = "qwaq-app.dat";
2002-11-12 02:56:10 +00:00
string_t *pr_argv;
int pr_argc = 1, i;
2002-11-12 02:30:08 +00:00
COM_InitArgv (argc, argv);
2002-11-12 02:30:08 +00:00
init_qf ();
if (argc > 1)
name = argv[1];
if (!load_progs (name)) {
2018-10-11 04:39:48 +00:00
Sys_Error ("couldn't load %s", name);
}
PR_PushFrame (&pr);
2002-11-12 02:56:10 +00:00
if (argc > 2)
pr_argc = argc - 1;
pr_argv = PR_Zone_Malloc (&pr, (pr_argc + 1) * 4);
pr_argv[0] = PR_SetTempString (&pr, name);
2002-11-12 02:56:10 +00:00
for (i = 1; i < pr_argc; i++)
pr_argv[i] = PR_SetTempString (&pr, argv[1 + i]);
2002-11-12 02:56:10 +00:00
pr_argv[i] = 0;
if ((dfunc = PR_FindFunction (&pr, ".main"))
|| (dfunc = PR_FindFunction (&pr, "main")))
main_func = dfunc - pr.pr_functions;
else
PR_Undefined (&pr, "function", "main");
PR_RESET_PARAMS (&pr);
P_INT (&pr, 0) = pr_argc;
P_POINTER (&pr, 1) = PR_SetPointer (&pr, pr_argv);
pr.pr_argc = 2;
2002-11-12 02:30:08 +00:00
PR_ExecuteProgram (&pr, main_func);
PR_PopFrame (&pr);
Sys_Shutdown ();
return R_INT (&pr);
}