mirror of
https://git.code.sf.net/p/quake/quakeforge
synced 2024-11-05 20:50:43 +00:00
f78b973978
target specific files that I don't build won't compile yet. just put QF/ infront of the offending headers. Also move ver_check into libqfutils
160 lines
3.1 KiB
C
160 lines
3.1 KiB
C
#ifdef HAVE_CONFIG_H
|
|
# include <config.h>
|
|
#endif
|
|
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "QF/cvar.h"
|
|
#include "QF/console.h"
|
|
#include "QF/qargs.h"
|
|
#include "QF/cmd.h"
|
|
#include "QF/zone.h"
|
|
#include "QF/quakefs.h"
|
|
#include "gib.h"
|
|
#include "gib_instructions.h"
|
|
#include "gib_interpret.h"
|
|
#include "gib_modules.h"
|
|
#include "gib_parse.h"
|
|
#include "gib_vars.h"
|
|
|
|
static gib_module_t *gibmodules;
|
|
|
|
void
|
|
GIB_Module_Load (char *name, QFile *f)
|
|
{
|
|
char line[1024];
|
|
gib_module_t *newmod;
|
|
gib_sub_t *newsub;
|
|
int nameofs;
|
|
int namelen;
|
|
|
|
newmod = GIB_Create_Module (name);
|
|
|
|
while (Qgets (f, line, 1024)) {
|
|
if (strncmp ("sub", line, 3) == 0) {
|
|
nameofs = 3;
|
|
while (isspace (line[nameofs]))
|
|
nameofs++;
|
|
namelen = 0;
|
|
while (!(isspace (line[nameofs + namelen]))) {
|
|
namelen++;
|
|
}
|
|
line[nameofs + namelen] = 0;
|
|
newsub = GIB_Create_Sub (newmod, line + nameofs);
|
|
GIB_Read_Sub (newsub, f);
|
|
}
|
|
}
|
|
}
|
|
|
|
gib_module_t *
|
|
GIB_Create_Module (char *name)
|
|
{
|
|
gib_module_t *new;
|
|
|
|
new = malloc (sizeof (gib_module_t));
|
|
new->name = malloc (strlen (name) + 1);
|
|
strcpy (new->name, name);
|
|
new->subs = 0;
|
|
new->vars = 0;
|
|
new->next = gibmodules;
|
|
gibmodules = new;
|
|
return new;
|
|
}
|
|
|
|
gib_sub_t *
|
|
GIB_Create_Sub (gib_module_t * mod, char *name)
|
|
{
|
|
gib_sub_t *new;
|
|
|
|
new = malloc (sizeof (gib_sub_t));
|
|
new->name = malloc (strlen (name) + 1);
|
|
strcpy (new->name, name);
|
|
new->code = 0;
|
|
new->vars = 0;
|
|
new->next = mod->subs;
|
|
mod->subs = new;
|
|
return new;
|
|
}
|
|
|
|
void
|
|
GIB_Read_Sub (gib_sub_t * sub, QFile *f)
|
|
{
|
|
char line[1024];
|
|
fpos_t begin;
|
|
int sublen = 0;
|
|
int insub = 0;
|
|
|
|
while (Qgets (f, line, 1024)) {
|
|
if (strncmp ("}}", line, 2) == 0 && insub == 1) {
|
|
insub = 0;
|
|
break;
|
|
}
|
|
if (insub == 1) {
|
|
sublen += strlen (line);
|
|
}
|
|
if (strncmp ("{{", line, 2) == 0) {
|
|
Qgetpos (f, &begin);
|
|
insub = 1;
|
|
}
|
|
}
|
|
|
|
sub->code = malloc (sublen + 1);
|
|
Qsetpos (f, &begin);
|
|
Qread (f, sub->code, sublen);
|
|
sub->code[sublen] = 0;
|
|
Con_Printf ("Loaded sub %s\n", sub->name);
|
|
}
|
|
|
|
gib_module_t *
|
|
GIB_Find_Module (char *name)
|
|
{
|
|
gib_module_t *mod;
|
|
|
|
if (!(gibmodules))
|
|
return 0;
|
|
for (mod = gibmodules; strcmp (mod->name, name); mod = mod->next)
|
|
if (mod->next == 0)
|
|
return 0;
|
|
return mod;
|
|
}
|
|
|
|
gib_sub_t *
|
|
GIB_Find_Sub (gib_module_t * mod, char *name)
|
|
{
|
|
gib_sub_t *sub;
|
|
|
|
if (!(mod->subs))
|
|
return 0;
|
|
for (sub = mod->subs; strcmp (sub->name, name); sub = sub->next)
|
|
if (sub->next == 0)
|
|
return 0;
|
|
return sub;
|
|
}
|
|
|
|
void
|
|
GIB_Stats_f (void)
|
|
{
|
|
int modc, subc;
|
|
|
|
gib_module_t *mod;
|
|
gib_sub_t *sub;
|
|
|
|
modc = 0;
|
|
Con_Printf ("---=== GIB statistics ===---\n");
|
|
for (mod = gibmodules; mod; mod = mod->next) {
|
|
Con_Printf ("\nSubroutines for module %s:\n", mod->name);
|
|
Con_Printf ("-------------------------------------\n");
|
|
subc = 0;
|
|
for (sub = mod->subs; sub; sub = sub->next) {
|
|
Con_Printf ("%s::%s\n", mod->name, sub->name);
|
|
subc++;
|
|
}
|
|
Con_Printf ("-------------------------------------\nSubroutines: %i\n",
|
|
subc);
|
|
modc++;
|
|
}
|
|
Con_Printf ("Modules installed: %i\n", modc);
|
|
Con_Printf ("---=== GIB statistics ===---\n");
|
|
}
|