quakeforge/libs/gib/gib_thread.c

201 lines
3.7 KiB
C
Raw Normal View History

/*
#FILENAME#
#DESCRIPTION#
Copyright (C) 2002 #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
2003-02-14 22:42:11 +00:00
static __attribute__ ((unused))
const char rcsid[] = "$Id$";
2003-02-14 22:42:11 +00:00
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
2003-02-14 22:42:11 +00:00
#include "QF/sys.h"
#include "QF/cbuf.h"
#include "QF/gib.h"
#include "QF/dstring.h"
#include "QF/hash.h"
#include "gib_handle.h"
#include "gib_tree.h"
#include "gib_function.h"
#include "gib_thread.h"
gib_thread_t *gib_thread_first = 0;
gib_thread_t *gib_thread_last = 0;
unsigned short int gib_thread_class;
hashtab_t *gib_events;
void
2003-02-14 22:42:11 +00:00
GIB_Thread_Add (gib_thread_t * thread)
{
if (!gib_thread_first)
gib_thread_first = thread;
thread->prev = gib_thread_last;
if (!gib_thread_last)
gib_thread_last = thread;
else {
gib_thread_last->next = thread;
gib_thread_last = thread;
}
}
void
2003-02-14 22:42:11 +00:00
GIB_Thread_Remove (gib_thread_t * thread)
{
if (thread->prev)
thread->prev->next = thread->next;
else
gib_thread_first = thread->next;
if (thread->next)
thread->next->prev = thread->prev;
else
gib_thread_last = thread->next;
}
gib_thread_t *
GIB_Thread_New (void)
{
2003-02-14 22:42:11 +00:00
gib_thread_t *new = calloc (1, sizeof (gib_thread_t));
new->cbuf = Cbuf_New (GIB_Interpreter ());
new->id = GIB_Handle_New (new, gib_thread_class);
return new;
}
void
2003-02-14 22:42:11 +00:00
GIB_Thread_Delete (gib_thread_t * thread)
{
Cbuf_DeleteStack (thread->cbuf);
GIB_Handle_Free (thread->id, gib_thread_class);
free (thread);
}
void
GIB_Thread_Execute (void)
{
gib_thread_t *cur, *tmp;
2003-02-14 22:42:11 +00:00
if (!gib_thread_first)
return;
2003-02-14 22:42:11 +00:00
for (cur = gib_thread_first; cur; cur = tmp) {
tmp = cur->next;
if (GIB_DATA(cur->cbuf)->program)
Cbuf_Execute_Stack (cur->cbuf);
else {
GIB_Thread_Remove (cur);
GIB_Thread_Delete (cur);
}
}
}
void
GIB_Thread_Init (void)
{
gib_thread_class = GIB_Handle_Class_New ();
}
static const char *
GIB_Event_Get_Key (void *ele, void *ptr)
{
2003-02-14 22:42:11 +00:00
return ((gib_event_t *) ele)->name;
}
static void
GIB_Event_Free (void *ele, void *ptr)
{
2003-02-14 22:42:11 +00:00
gib_event_t *ev = (gib_event_t *) ele;
free ((void *) ev->name);
free (ev);
}
gib_event_t *
GIB_Event_New (const char *name)
{
gib_event_t *new;
2003-02-14 22:42:11 +00:00
new = calloc (1, sizeof (gib_event_t));
new->name = strdup (name);
Hash_Add (gib_events, new);
return new;
}
int
2003-02-14 22:42:11 +00:00
GIB_Event_Register (const char *name, gib_function_t * func)
{
gib_event_t *ev;
2003-02-14 22:42:11 +00:00
if (!(ev = Hash_Find (gib_events, name)))
return -1;
ev->func = func;
return 0;
}
void
2003-02-14 22:42:11 +00:00
GIB_Event_Callback (gib_event_t * event, unsigned int argc, ...)
{
gib_function_t *f = event->func;
gib_thread_t *thread;
cbuf_args_t *args;
2003-02-14 22:42:11 +00:00
va_list ap;
unsigned int i;
2003-02-14 22:42:11 +00:00
if (!f)
return;
2003-02-14 22:42:11 +00:00
thread = GIB_Thread_New ();
args = Cbuf_ArgsNew ();
2003-02-14 22:42:11 +00:00
va_start (ap, argc);
2003-02-14 22:42:11 +00:00
Cbuf_ArgsAdd (args, f->name);
for (i = 0; i < argc; i++)
2003-02-14 22:42:11 +00:00
Cbuf_ArgsAdd (args, va_arg (ap, const char *));
va_end (ap);
2003-02-14 22:42:11 +00:00
GIB_Function_Execute_D (thread->cbuf, f, args->argv, args->argc);
GIB_Thread_Add (thread);
Cbuf_ArgsDelete (args);
2002-08-27 06:46:49 +00:00
}
void
GIB_Event_Init (void)
{
gib_events = Hash_NewTable (1024, GIB_Event_Get_Key, GIB_Event_Free, 0);
}