int SLang_init_slang (void) /*{{{*/
{
char name[3];
unsigned int i;
SLFUTURE_CONST char **s;
static SLFUTURE_CONST char *sys_defines [] =
{
#if defined(__os2__)
"OS2",
#endif
#if defined(__MSDOS__)
"MSDOS",
#endif
#if defined(__WIN16__)
"WIN16",
#endif
#if defined (__WIN32__)
"WIN32",
#endif
#if defined(__NT__)
"NT",
#endif
#if defined (VMS)
"VMS",
#endif
#ifdef REAL_UNIX_SYSTEM
"UNIX",
#endif
#if SLANG_HAS_FLOAT
"SLANG_DOUBLE_TYPE",
#endif
NULL
};
if (-1 == _pSLerr_init ())
return -1;
if (-1 == _pSLregister_types ()) return -1;
if ((-1 == SLadd_intrin_fun_table(SLang_Basic_Table, NULL))
|| (-1 == SLadd_intrin_var_table (Intrin_Vars, NULL))
|| (-1 == _pSLang_init_slstrops ())
|| (-1 == _pSLang_init_sltime ())
|| (-1 == _pSLang_init_sllist ())
|| (-1 == _pSLstruct_init ())
#if SLANG_HAS_ASSOC_ARRAYS
|| (-1 == SLang_init_slassoc ())
#endif
#if SLANG_HAS_BOSEOS
|| (-1 == _pSLang_init_boseos ())
#endif
|| (-1 == _pSLang_init_exceptions ())
)
return -1;
/* More nonsense for the windoze loader */
if ((-1 == SLadd_intrinsic_variable ("_NARGS", &SLang_Num_Function_Args, SLANG_INT_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_traceback", &SLang_Traceback, SLANG_INT_TYPE, 0))
|| (-1 == SLadd_intrinsic_variable ("_slang_version", &SLang_Version, SLANG_INT_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_slang_version_string", &SLang_Version_String, SLANG_STRING_TYPE, 1))
|| (-1 == SLadd_intrinsic_variable ("_slang_doc_dir", &SLang_Doc_Dir, SLANG_STRING_TYPE, 1)))
return -1;
SLadd_global_variable (SLANG_SYSTEM_NAME);
s = sys_defines;
while (*s != NULL)
{
if (-1 == SLdefine_for_ifdef (*s)) return -1;
s++;
}
/* give temp global variables $0 --> $9 */
name[2] = 0; name[0] = '$';
for (i = 0; i < 10; i++)
{
name[1] = (char) (i + '0');
SLadd_global_variable (name);
}
SLang_init_case_tables ();
/* Now add a couple of macros */
SLang_load_string (".(_NARGS 1 - Sprintf error)verror");
SLang_load_string (".(_NARGS 1 - Sprintf message)vmessage");
#if SLANG_HAS_SIGNALS
if (-1 == SLang_add_interrupt_hook (_pSLang_check_signals_hook, NULL))
return -1;
#endif
if ((SLang_Doc_Dir != NULL)
&& (*SLang_Doc_Dir != 0))
{
char *docfile = SLpath_dircat (SLang_Doc_Dir, "slangfun.txt");
/* NULL ok */
(void) add_doc_file (docfile);
SLfree (docfile);
}
if (_pSLang_Error)
return -1;
return 0;
}
SLsearch_Type *SLsearch_new (SLuchar_Type *key, int flags)
{
SLsearch_Type *st, *bf_st;
SLuchar_Type *key_upper, *key_lower, *non_ascii;
size_t len, upper_len, lower_len;
if (Case_Tables_Ok == 0)
SLang_init_case_tables ();
if (key == NULL)
return NULL;
if ((0 == (flags & SLSEARCH_CASELESS))
|| (0 == (flags & SLSEARCH_UTF8)))
return bm_open_search (key, flags);
/* Otherwise the key is UTF-8 and the search is case-insensitive */
len = strlen ((char *)key);
key_upper = SLutf8_strup (key, key + len);
if (key_upper == NULL)
return NULL;
upper_len = strlen ((char *)key_upper);
if (is_bm_ok (key_upper, upper_len, &non_ascii))
{
st = bm_open_search (key_upper, flags);
SLang_free_slstring ((char *)key_upper);
return st;
}
/* Tricky part */
if (NULL == (key_lower = SLutf8_strlo (key, key + len)))
{
SLang_free_slstring ((char *)key_upper);
return NULL;
}
lower_len = strlen ((char *)key_lower);
/* Try a case-less search */
if ((lower_len == upper_len)
&& (0 == strcmp ((char *)key_upper, (char *)key_lower)))
{
flags &= ~SLSEARCH_CASELESS;
st = bm_open_search (key_upper, flags);
SLang_free_slstring ((char *)key_upper);
SLang_free_slstring ((char *)key_lower);
return st;
}
/* Now Perform a brute-force search. */
/* If the first few characters of the search string are ascii, then
* use BM for that portion
*/
bf_st = NULL;
if (non_ascii - key_upper >= 3)
{
SLuchar_Type *key1 = (SLuchar_Type *) SLmake_nstring ((char *)key_upper, non_ascii - key_upper);
/* ok to propagate NULL below */
bf_st = SLsearch_new (key1, flags);
SLfree ((char *)key1);
if (bf_st == NULL)
{
SLang_free_slstring ((char *)key_upper);
SLang_free_slstring ((char *)key_lower);
return NULL;
}
key1 = (SLuchar_Type *) SLang_create_slstring ((char *)non_ascii);
non_ascii = key_lower + (non_ascii - key_upper);
SLang_free_slstring ((char *)key_upper);
key_upper = key1;
key1 = (SLuchar_Type *)SLang_create_slstring ((char *)non_ascii);
SLang_free_slstring ((char *)key_lower);
key_lower = key1;
if ((key_lower == NULL) || (key_upper == NULL))
{
SLang_free_slstring ((char *)key_upper);
SLang_free_slstring ((char *)key_lower);
SLsearch_delete (bf_st);
return NULL;
}
upper_len = strlen ((char *)key_upper);
lower_len = strlen ((char *)key_lower);
}
st = (SLsearch_Type *)SLcalloc (sizeof (SLsearch_Type), 1);
if (st == NULL)
goto return_error;
st->free_fun = bf_free;
st->flags = flags;
st->search_fun = bf_search;
st->s.bf.st = bf_st; bf_st = NULL;
if (NULL == (st->s.bf.lower_chars = make_string_array (key_lower, lower_len, &st->s.bf.nlower_chars)))
goto return_error;
if (NULL == (st->s.bf.upper_chars = make_string_array (key_upper, upper_len, &st->s.bf.nupper_chars)))
goto return_error;
SLang_free_slstring ((char *)key_upper);
SLang_free_slstring ((char *)key_lower);
return st;
return_error:
SLsearch_delete (st);
SLsearch_delete (bf_st);
SLang_free_slstring ((char *)key_upper);
SLang_free_slstring ((char *)key_lower);
return NULL;
}
