gambas-source-code/main/gbx/gbx_component.c
Benoît Minisini b3db598050 [DEVELOPMENT ENVIRONMENT]
* BUG: Breakpoints are correctly reset when opening a new project.

[INTERPRETER]
* BUG: The GB.NewString(), GB.NewZeroString() and GB.TempString() API 
  signature has changed. All components have been updated accordingly.
* OPT: Many optimizations to speed up the interpreter.

[GB.EVAL]
* NEW: During syntax highlighting, the first character of class names is
  automatically converted to uppercase.


git-svn-id: svn://localhost/gambas/trunk@2992 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2010-06-04 23:48:53 +00:00

326 lines
6 KiB
C

/***************************************************************************
gbx_component.c
(c) 2000-2009 Benoît Minisini <gambas@users.sourceforge.net>
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, 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 the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
***************************************************************************/
#define __GBX_COMPONENT_C
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include "gb_common.h"
#include "gb_common_buffer.h"
#include "gb_common_case.h"
#include "gb_error.h"
#include "gb_alloc.h"
#include "gb_replace.h"
#include "gb_file.h"
#include "gbx_debug.h"
#include <fcntl.h>
#include <stdlib.h>
#include <stdarg.h>
#include <time.h>
#include <ctype.h>
#include "gb_error.h"
#include "gbx_class.h"
#include "gbx_exec.h"
#include "gbx_local.h"
#include "gbx_archive.h"
#include "gbx_library.h"
#include "gbx_project.h"
#include "gbx_component.h"
//#define DEBUG_COMP
/*#define DEBUG_PRELOAD*/
COMPONENT *COMPONENT_current = NULL;
COMPONENT *COMPONENT_main;
int COMPONENT_count = 0;
char *COMPONENT_path;
static COMPONENT *_component_list = NULL;
void COMPONENT_init(void)
{
LIBRARY_init();
ARCHIVE_init();
}
void COMPONENT_exit(void)
{
COMPONENT *comp;
int order;
int max_order = 0;
LIST_for_each(comp, _component_list)
{
if (comp->order > max_order)
max_order = comp->order;
}
for (order = 0; order <= max_order; order++)
{
LIST_for_each(comp, _component_list)
{
if (comp->order == order)
COMPONENT_unload(comp);
}
}
LIST_for_each(comp, _component_list)
{
if (comp->loaded)
COMPONENT_unload(comp);
}
while (_component_list)
COMPONENT_delete(_component_list);
LIBRARY_exit();
ARCHIVE_exit();
STRING_free(&COMPONENT_path);
}
void COMPONENT_load_all(void)
{
COMPONENT *comp;
if (EXEC_debug)
{
COMPONENT_create("gb.eval");
COMPONENT_create("gb.debug");
}
LIST_for_each(comp, _component_list)
{
comp->preload = TRUE;
COMPONENT_load(comp);
}
}
COMPONENT *COMPONENT_find(const char *name)
{
COMPONENT *comp;
/* A null name is the main archive */
if (!name)
return NULL;
LIST_for_each(comp, _component_list)
{
if (strcmp(comp->name, name) == 0)
return comp;
}
return NULL;
}
COMPONENT *COMPONENT_create(const char *name)
{
COMPONENT *comp;
char *path = NULL;
bool can_archive;
bool library = FALSE;
if (*name == '/') // user library
{
library = TRUE;
path = (char *)name;
name = FILE_get_name(name);
}
comp = COMPONENT_find(name);
if (comp)
return comp;
ALLOC_ZERO(&comp, sizeof(COMPONENT), "COMPONENT_create");
comp->class = CLASS_Component;
comp->ref = 1;
comp->name = STRING_new_zero(name);
if (library)
{
comp->archive = ARCHIVE_create(name, path);
}
else
{
// Don't load the archive if it has the same name as the project
if (PROJECT_name)
can_archive = strcmp(name, PROJECT_name);
else
can_archive = TRUE;
// System wide component, located in /usr/local/lib/gambas2 (by default)
path = FILE_buffer();
sprintf(path, LIB_PATTERN, COMPONENT_path, name);
if (FILE_exist(path))
comp->library = LIBRARY_create(name);
if (can_archive)
{
path = FILE_buffer();
sprintf(path, ARCH_PATTERN, COMPONENT_path, name);
if (FILE_exist(path))
comp->archive = ARCHIVE_create(name, NULL);
}
}
LIST_insert(&_component_list, comp, &comp->list);
COMPONENT_count++;
if (!comp->library && !comp->archive)
{
COMPONENT_delete(comp);
THROW(E_LIBRARY, name, "cannot find component");
}
return comp;
}
void COMPONENT_delete(COMPONENT *comp)
{
COMPONENT_unload(comp);
LIST_remove(&_component_list, comp, &comp->list);
COMPONENT_count--;
if (comp->library)
LIBRARY_delete(comp->library);
if (comp->archive)
ARCHIVE_delete(comp->archive);
STRING_free(&comp->name);
FREE(&comp, "COMPONENT_delete");
}
void COMPONENT_load(COMPONENT *comp)
{
COMPONENT *current;
if (comp->loaded)
return;
#if DEBUG_COMP
fprintf(stderr, "Loading component %s\n", comp->name);
#endif
current = COMPONENT_current;
COMPONENT_current = comp;
if (comp->library)
comp->order = LIBRARY_load(comp->library);
if (comp->archive)
ARCHIVE_load(comp->archive);
comp->loaded = TRUE;
COMPONENT_current = current;
}
void COMPONENT_unload(COMPONENT *comp)
{
if (!comp->loaded)
return;
#if DEBUG_COMP
fprintf(stderr, "Unloading component %s [%d]\n", comp->name, comp->order);
#endif
if (comp->library)
LIBRARY_unload(comp->library);
/* Do not exist yet */
//if (comp->archive)
// ARCHIVE_unload(comp->archive);
comp->loaded = FALSE;
}
COMPONENT *COMPONENT_next(COMPONENT *comp)
{
if (comp)
return (COMPONENT *)(comp->list.next);
else
return _component_list;
}
void COMPONENT_translation_must_be_reloaded(void)
{
COMPONENT *comp;
LIST_for_each(comp, _component_list)
{
if (comp->archive)
comp->archive->translation_loaded = FALSE;
}
if (ARCHIVE_main)
ARCHIVE_main->translation_loaded = FALSE;
}
void COMPONENT_signal(int signal, void *param)
{
COMPONENT *comp;
LIST_for_each(comp, _component_list)
{
if (comp->library && comp->library->signal)
(*comp->library->signal)(signal, param);
}
}
bool COMPONENT_get_info(const char *key, void **value)
{
COMPONENT *comp;
LIST_for_each(comp, _component_list)
{
if (comp->library && comp->library->info)
if ((*comp->library->info)(key, value))
return FALSE;
}
return TRUE;
}