static int new_exception_hook (SLFUTURE_CONST char *name, SLFUTURE_CONST char *desc, int err_code)
{
SLang_IConstant_Type *ic;
(void) desc;
if (NULL != (ic = (SLang_IConstant_Type *)_pSLlocate_name (name)))
{
if ((ic->name_type != SLANG_ICONSTANT)
|| (ic->value != err_code))
{
_pSLang_verror (SL_RunTime_Error, "Exception %s already exists and may not be redefined", name);
return -1;
}
return 0;
}
if (-1 == SLns_add_iconstant (NULL, name, SLANG_INT_TYPE, err_code))
return -1;
return 0;
}
static void intrin_get_reference (char *name)
{
if (*name == '&') name++;
_pSLang_push_nt_as_ref (_pSLlocate_name (name));
}
