86768b1363
* NEW: CygWin needs a -no-undefined flag when linking. [INFORMER] * BUG: Use dlopen() on CygWin. [INTERPRETER] * BUG: Fix some misuse of signed char. [GB.DB] * BUG: Fix some misuse of signed char. [GB.EVAL] * BUG: Fix some misuse of signed char. git-svn-id: svn://localhost/gambas/trunk@2749 867c0c6c-44f3-4631-809d-bfa615b0a4ec
570 lines
10 KiB
C
570 lines
10 KiB
C
/***************************************************************************
|
|
|
|
gb_table_temp.h
|
|
|
|
(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 __TABLE_C
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
|
|
#include "gb_common.h"
|
|
#include "gb_error.h"
|
|
#include "gb_alloc.h"
|
|
#include "gb_limit.h"
|
|
|
|
#include "gb_table.h"
|
|
|
|
|
|
#define SYM(table, ind) (TABLE_get_symbol(table, ind))
|
|
#define SSYM(_symbol, _pos, _size) ((SYMBOL *)((char *)_symbol + _pos * _size))
|
|
|
|
|
|
static char _buffer[MAX_SYMBOL_LEN + 1];
|
|
|
|
int TABLE_compare(const char *s1, int len1, const char *s2, int len2)
|
|
{
|
|
int i;
|
|
int len = (len1 < len2) ? len1 : len2;
|
|
register char c1;
|
|
register char c2;
|
|
|
|
for (i = 0; i < len; i++)
|
|
{
|
|
c1 = s1[i];
|
|
c2 = s2[i];
|
|
|
|
if (c1 > c2) return 1;
|
|
if (c1 < c2) return -1;
|
|
}
|
|
|
|
if (len1 < len2)
|
|
return -1;
|
|
else if (len1 > len2)
|
|
return 1;
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
int TABLE_compare_ignore_case(const char *s1, int len1, const char *s2, int len2)
|
|
{
|
|
unsigned int len = (len1 < len2) ? len1 : len2;
|
|
unsigned int i;
|
|
int result;
|
|
|
|
for(i = 0;;i++)
|
|
{
|
|
result = toupper(s1[i]) - toupper(s2[i]);
|
|
if (result)
|
|
return result; // < 0 ? -1 : 1;
|
|
if (--len == 0)
|
|
break;
|
|
}
|
|
|
|
if (len1 < len2)
|
|
return -1;
|
|
else if (len1 > len2)
|
|
return 1;
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
int TABLE_compare_ignore_case_len(const char *s1, int len1, const char *s2, int len2)
|
|
{
|
|
int result;
|
|
|
|
if (len1 < len2)
|
|
return -1;
|
|
else if (len1 > len2)
|
|
return 1;
|
|
|
|
while (len1)
|
|
{
|
|
result = tolower(*s1++) - tolower(*s2++);
|
|
if (result)
|
|
return result; // < 0 ? -1 : 1;
|
|
--len1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static bool search(void *symbol, int n_symbol, size_t size, int flag, const char *name, int len, int *index)
|
|
{
|
|
int pos, deb, fin;
|
|
SYMBOL *sym;
|
|
int slen, l;
|
|
|
|
pos = 0;
|
|
deb = 0;
|
|
fin = n_symbol; //ARRAY_count(table->symbol);
|
|
|
|
if (flag == TF_IGNORE_CASE)
|
|
{
|
|
for(;;)
|
|
{
|
|
if (deb >= fin)
|
|
{
|
|
*index = deb;
|
|
return FALSE;
|
|
}
|
|
|
|
pos = (deb + fin) >> 1;
|
|
|
|
//sym = SYM(table, SYM(table, pos)->sort); /*&table->symbol[table->symbol[pos].sort];*/
|
|
|
|
sym = SSYM(symbol, pos, size);
|
|
sym = SSYM(symbol, sym->sort, size);
|
|
|
|
slen = sym->len;
|
|
|
|
if (len < slen)
|
|
goto __T_LOWER;
|
|
else if (len > slen)
|
|
goto __T_GREATER;
|
|
|
|
if (len)
|
|
{
|
|
const uchar *s1 = (uchar *)name;
|
|
const uchar *s2 = (uchar *)sym->name;
|
|
int result;
|
|
|
|
l = len;
|
|
|
|
for(;;)
|
|
{
|
|
result = tolower(*s1++) - tolower(*s2++);
|
|
|
|
if (result < 0)
|
|
goto __T_LOWER;
|
|
else if (result > 0)
|
|
goto __T_GREATER;
|
|
|
|
if (--l == 0)
|
|
break;
|
|
}
|
|
|
|
}
|
|
|
|
*index = pos;
|
|
return TRUE;
|
|
|
|
__T_LOWER: fin = pos; continue;
|
|
__T_GREATER: deb = pos + 1; continue;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for(;;)
|
|
{
|
|
if (deb >= fin)
|
|
{
|
|
*index = deb;
|
|
return FALSE;
|
|
}
|
|
|
|
pos = (deb + fin) >> 1;
|
|
|
|
sym = SSYM(symbol, pos, size);
|
|
sym = SSYM(symbol, sym->sort, size);
|
|
|
|
slen = sym->len;
|
|
|
|
if (len < slen)
|
|
goto __B_LOWER;
|
|
else if (len > slen)
|
|
goto __B_GREATER;
|
|
|
|
if (len)
|
|
{
|
|
const uchar *s1 = (uchar *)name;
|
|
const uchar *s2 = (uchar *)sym->name;
|
|
int result;
|
|
|
|
l = len;
|
|
|
|
for(;;)
|
|
{
|
|
result = *s1++ - *s2++;
|
|
|
|
if (result < 0)
|
|
goto __B_LOWER;
|
|
else if (result > 0)
|
|
goto __B_GREATER;
|
|
|
|
if (--l == 0)
|
|
break;
|
|
}
|
|
}
|
|
|
|
*index = pos;
|
|
return TRUE;
|
|
|
|
__B_LOWER: fin = pos; continue;
|
|
__B_GREATER: deb = pos + 1; continue;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
bool SYMBOL_find(void *symbol, int n_symbol, size_t s_symbol, int flag,
|
|
const char *name, int len, const char *prefix, int *result)
|
|
{
|
|
int index;
|
|
int len_prefix;
|
|
|
|
if (prefix)
|
|
{
|
|
len_prefix = strlen(prefix);
|
|
|
|
if ((len + len_prefix) > MAX_SYMBOL_LEN)
|
|
ERROR_panic("SYMBOL_find: prefixed symbol too long");
|
|
|
|
strcpy(_buffer, prefix);
|
|
strcpy(&_buffer[len_prefix], name);
|
|
len += len_prefix;
|
|
name = _buffer;
|
|
}
|
|
|
|
if (search(symbol, n_symbol, s_symbol, flag, name, len, &index))
|
|
{
|
|
//*result = ((SYMBOL *)((char *)symbol + s_symbol * index))->sort;
|
|
*result = SSYM(symbol, index, s_symbol)->sort;
|
|
return TRUE;
|
|
}
|
|
else
|
|
{
|
|
*result = NO_SYMBOL;
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
bool SYMBOL_find_old(void *symbol, int n_symbol, size_t s_symbol, int flag,
|
|
const char *name, int len, const char *prefix, int *result)
|
|
{
|
|
int pos, deb, fin;
|
|
int cmp;
|
|
int (*cmp_func)(const char *, int, const char *, int);
|
|
SYMBOL *sym;
|
|
int index;
|
|
int len_prefix;
|
|
|
|
cmp_func = ((flag == TF_IGNORE_CASE) ? TABLE_compare_ignore_case : TABLE_compare);
|
|
|
|
pos = 0;
|
|
deb = 0;
|
|
fin = n_symbol;
|
|
|
|
if (prefix)
|
|
{
|
|
len_prefix = strlen(prefix);
|
|
|
|
if ((len + len_prefix) > MAX_SYMBOL_LEN)
|
|
ERROR_panic("SYMBOL_find: prefixed symbol too long");
|
|
|
|
strcpy(_buffer, prefix);
|
|
strcpy(&_buffer[len_prefix], name);
|
|
len += len_prefix;
|
|
name = _buffer;
|
|
}
|
|
|
|
for(;;)
|
|
{
|
|
if (deb >= fin)
|
|
{
|
|
*result = NO_SYMBOL;
|
|
return FALSE;
|
|
}
|
|
|
|
pos = (deb + fin) >> 1;
|
|
|
|
index = ((SYMBOL *)((char *)symbol + s_symbol * pos))->sort;
|
|
sym = (SYMBOL *)((char *)symbol + s_symbol * index);
|
|
|
|
cmp = (*cmp_func)(name, len, sym->name, sym->len);
|
|
|
|
if (cmp == 0)
|
|
{
|
|
*result = index;
|
|
return TRUE;
|
|
}
|
|
|
|
if (cmp < 0)
|
|
fin = pos;
|
|
else
|
|
deb = pos + 1;
|
|
}
|
|
}
|
|
|
|
const char *TABLE_get_symbol_name(TABLE *table, int index)
|
|
{
|
|
SYMBOL *sym;
|
|
|
|
if ((index < 0) || (index >= ARRAY_count(table->symbol)))
|
|
strcpy(_buffer, "?");
|
|
else
|
|
{
|
|
sym = SYM(table, index);
|
|
memcpy(_buffer, sym->name, Min(MAX_SYMBOL_LEN, sym->len));
|
|
_buffer[sym->len] = 0;
|
|
}
|
|
|
|
return _buffer;
|
|
}
|
|
|
|
|
|
const char *TABLE_get_symbol_name_suffix(TABLE *table, int index, const char* suffix)
|
|
{
|
|
TABLE_get_symbol_name(table, index);
|
|
strcat(_buffer, suffix);
|
|
return _buffer;
|
|
}
|
|
|
|
|
|
void TABLE_create_static(TABLE *table, size_t size, TABLE_FLAG flag)
|
|
{
|
|
ARRAY_create_with_size(&table->symbol, Max(size, sizeof(SYMBOL)), 16);
|
|
table->flag = flag;
|
|
}
|
|
|
|
|
|
void TABLE_create(TABLE **result, size_t size, TABLE_FLAG flag)
|
|
{
|
|
TABLE *table;
|
|
|
|
ALLOC(&table, sizeof(TABLE), "TABLE_create");
|
|
TABLE_create_static(table, size, flag);
|
|
|
|
*result = table;
|
|
}
|
|
|
|
|
|
void TABLE_create_from(TABLE **result, size_t size, const char *sym_list[], TABLE_FLAG flag)
|
|
{
|
|
TABLE *table;
|
|
|
|
TABLE_create(&table, size, flag);
|
|
|
|
while (*sym_list)
|
|
{
|
|
TABLE_add_symbol(table, *sym_list, strlen(*sym_list), NULL, NULL);
|
|
sym_list++;
|
|
}
|
|
|
|
*result = table;
|
|
}
|
|
|
|
|
|
void TABLE_delete_static(TABLE *table)
|
|
{
|
|
ARRAY_delete(&table->symbol);
|
|
}
|
|
|
|
|
|
void TABLE_delete(TABLE **p_table)
|
|
{
|
|
if (*p_table)
|
|
{
|
|
TABLE_delete_static(*p_table);
|
|
FREE(p_table, "TABLE_delete");
|
|
}
|
|
}
|
|
|
|
|
|
int TABLE_count(TABLE *table)
|
|
{
|
|
return ARRAY_count(table->symbol);
|
|
}
|
|
|
|
|
|
bool TABLE_find_symbol(TABLE *table, const char *name, int len, SYMBOL **symbol, int *index)
|
|
{
|
|
int ind;
|
|
bool result;
|
|
SYMBOL *tsym, *sym;
|
|
int count;
|
|
size_t size;
|
|
|
|
tsym = table->symbol;
|
|
count = ARRAY_count(tsym);
|
|
size = ARRAY_size(tsym);
|
|
|
|
result = search(tsym, count, size, table->flag, name, len, &ind);
|
|
|
|
if (result)
|
|
{
|
|
sym = SSYM(tsym, ind, size);
|
|
ind = sym->sort;
|
|
|
|
if (index)
|
|
*index = ind;
|
|
|
|
if (symbol)
|
|
{
|
|
sym = SSYM(tsym, ind, size);
|
|
*symbol = sym;
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
void TABLE_add_new_symbol_without_sort(TABLE *table, const char *name, int len, int sort, SYMBOL **symbol, int *index)
|
|
{
|
|
SYMBOL *sym;
|
|
int count;
|
|
|
|
len = Min(len, MAX_SYMBOL_LEN);
|
|
|
|
count = ARRAY_count(table->symbol);
|
|
|
|
sym = (SYMBOL *)ARRAY_add_void(&table->symbol);
|
|
|
|
sym->name = (char *)name;
|
|
sym->len = len;
|
|
sym->sort = sort;
|
|
|
|
if (symbol) *symbol = sym; /*&table->symbol[ind];*/
|
|
if (index) *index = count;
|
|
}
|
|
|
|
|
|
bool TABLE_add_symbol(TABLE *table, const char *name, int len, SYMBOL **symbol, int *index)
|
|
{
|
|
int ind;
|
|
int i;
|
|
bool result;
|
|
SYMBOL *sym;
|
|
int count;
|
|
SYMBOL *s1, *s2;
|
|
size_t size;
|
|
|
|
/*len = Min(len, MAX_SYMBOL_LEN);*/
|
|
len = Min(len, 65535);
|
|
|
|
count = ARRAY_count(table->symbol);
|
|
size = ARRAY_size(table->symbol);
|
|
|
|
result = search(table->symbol, count, size, table->flag, name, len, &ind);
|
|
|
|
if (!result)
|
|
{
|
|
sym = (SYMBOL *)ARRAY_add_void(&table->symbol);
|
|
|
|
sym->name = (char *)name;
|
|
sym->len = (ushort)len;
|
|
|
|
/*
|
|
printf("TABLE_add_symbol: %.*s %d %d\n", len, name, ((CLASS_SYMBOL *)sym)->global.type,
|
|
((CLASS_SYMBOL *)sym)->local.type);
|
|
*/
|
|
|
|
//s1 = (SYMBOL *)((char *)table->symbol + count * size);
|
|
s1 = SSYM(table->symbol, count, size);
|
|
s2 = (SYMBOL *)((char *)s1 - size);
|
|
|
|
for (i = count; i > ind; i--)
|
|
{
|
|
s1->sort = s2->sort;
|
|
s1 = s2;
|
|
s2 = (SYMBOL *)((char *)s2 - size);
|
|
}
|
|
|
|
//SYM(table, ind)->sort = (ushort)count;
|
|
s1->sort = (ushort)count;
|
|
ind = count;
|
|
}
|
|
else
|
|
ind = SYM(table, ind)->sort; /*table->symbol[ind].sort;*/
|
|
|
|
if (symbol) *symbol = SYM(table, ind); /*&table->symbol[ind];*/
|
|
if (index) *index = ind;
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
|
|
void TABLE_print(TABLE *table, bool sort)
|
|
{
|
|
int i;
|
|
SYMBOL *sym;
|
|
|
|
fprintf(stderr, "capacity %i\n", ARRAY_count(table->symbol));
|
|
|
|
/*
|
|
for (i = 0; i < ARRAY_count(table->symbol); i++)
|
|
{
|
|
sym = SYM(table, i);
|
|
printf("%*s (%li) ", (int)sym->len, sym->name, sym->sort);
|
|
}
|
|
|
|
printf("\n");
|
|
*/
|
|
|
|
for (i = 0; i < ARRAY_count(table->symbol); i++)
|
|
{
|
|
if (sort)
|
|
{
|
|
sym = SYM(table, SYM(table, i)->sort);
|
|
fprintf(stderr, "%.*s ", (int)sym->len, sym->name);
|
|
}
|
|
else
|
|
{
|
|
sym = SYM(table, i);
|
|
fprintf(stderr, "%d %.*s ", (int)sym->sort, (int)sym->len, sym->name);
|
|
}
|
|
|
|
//if ((i > 0) && (!(i & 0xF)))
|
|
// fprintf(stderr, "\n");
|
|
}
|
|
|
|
fprintf(stderr, "\n\n");
|
|
}
|
|
|
|
|
|
void TABLE_copy_symbol_with_prefix(TABLE *table, int ind_src, char prefix, SYMBOL **symbol, int *index)
|
|
{
|
|
SYMBOL *sym;
|
|
unsigned char *ptr;
|
|
|
|
sym = TABLE_get_symbol(table, ind_src);
|
|
|
|
ptr = (unsigned char *)sym->name - 1;
|
|
|
|
if (!isspace(*ptr))
|
|
ERROR_panic("Cannot add prefix to symbol");
|
|
|
|
*ptr = prefix;
|
|
|
|
TABLE_add_symbol(table, ptr, sym->len + 1, symbol, index);
|
|
}
|
|
|
|
|
|
SYMBOL *TABLE_get_symbol_sort(TABLE *table, int index)
|
|
{
|
|
SYMBOL *sym = TABLE_get_symbol(table, index);
|
|
|
|
return TABLE_get_symbol(table, sym->sort);
|
|
}
|
|
|