char *make_string_var(const char *var_name)
{
int cnt,
msv_index;
char *ret = NULL;
char *copy;
copy = LOCAL_COPY(var_name);
upper(copy);
if ((find_fixed_array_item (irc_variable, sizeof(IrcVariable), NUMBER_OF_VARIABLES, copy, &cnt, &msv_index) == NULL))
return NULL;
if (cnt >= 0)
return NULL;
switch (irc_variable[msv_index].type)
{
case STR_TYPE_VAR:
ret = m_strdup(irc_variable[msv_index].string);
break;
case INT_TYPE_VAR:
ret = m_strdup(ltoa(irc_variable[msv_index].integer));
break;
case BOOL_TYPE_VAR:
ret = m_strdup(var_settings[irc_variable[msv_index].integer]);
break;
case CHAR_TYPE_VAR:
ret = m_dupchar(irc_variable[msv_index].integer);
break;
}
return ret;
}
IrcVariable *fget_var_address(char *var_name)
{
IrcVariable *var = NULL;
int cnt,
msv_index;
char *tmp_var = alloca(strlen(var_name)+1);
strcpy(tmp_var, var_name);
upper(tmp_var);
if ((var = find_ext_fset_var(tmp_var)))
return var;
if ((find_fixed_array_item (fset_array, sizeof(IrcVariable), NUMBER_OF_FSET, tmp_var, &cnt, &msv_index) == NULL))
return NULL;
if (cnt >= 0)
return NULL;
return &fset_array[msv_index];
}
char *make_fstring_var(const char *var_name)
{
IrcVariable *var = NULL;
int cnt,
msv_index;
char *ret = NULL;
char *tmp_var;
tmp_var = LOCAL_COPY(var_name);
upper(tmp_var);
if ((var = find_ext_fset_var(tmp_var)))
return m_strdup(var->string);
if (!strncmp(tmp_var, "FORMAT_", 7))
tmp_var += 7;
if ((find_fixed_array_item (fset_array, sizeof(IrcVariable), NUMBER_OF_FSET, tmp_var, &cnt, &msv_index) == NULL))
{
if ((ret = find_numeric_fset(my_atol(tmp_var))))
return m_strdup(ret);
return NULL;
}
if (cnt >= 0)
return NULL;
switch (fset_array[msv_index].type)
{
case STR_TYPE_VAR:
ret = m_strdup(fset_array[msv_index].string);
break;
case INT_TYPE_VAR:
ret = m_strdup(ltoa(fset_array[msv_index].integer));
break;
case BOOL_TYPE_VAR:
ret = m_strdup(var_settings[fset_array[msv_index].integer]);
break;
case CHAR_TYPE_VAR:
ret = m_dupchar(fset_array[msv_index].integer);
break;
}
return ret;
}
void do_stack_set(int type, char *args)
{
VarStack *aptr = set_stack;
VarStack **aptrptr = &set_stack;
if (!*aptrptr && (type == STACK_POP || type == STACK_LIST))
{
say("Set stack is empty!");
return;
}
if (STACK_PUSH == type)
{
enum VAR_TYPES var_index;
int cnt = 0;
upper(args);
find_fixed_array_item (irc_variable, sizeof(IrcVariable), NUMBER_OF_VARIABLES, args, &cnt, (int *)&var_index);
if (cnt < 0 || cnt == 1)
{
aptr = (VarStack *)new_malloc(sizeof(VarStack));
aptr->next = aptrptr ? *aptrptr : NULL;
*aptrptr = aptr;
aptr->set = (IrcVariable *) new_malloc(sizeof(IrcVariable));
memcpy(aptr->set, &irc_variable[var_index], sizeof(IrcVariable));
aptr->name = m_strdup(irc_variable[var_index].name);
aptr->set->string = m_strdup(irc_variable[var_index].string);
aptr->var_index = var_index;
}
else
say("No such Set [%s]", args);
return;
}
if (STACK_POP == type)
{
VarStack *prev = NULL;
for (aptr = *aptrptr; aptr; prev = aptr, aptr = aptr->next)
{
/* have we found it on the stack? */
if (!my_stricmp(args, aptr->name))
{
/* remove it from the list */
if (prev == NULL)
*aptrptr = aptr->next;
else
prev->next = aptr->next;
new_free(&(irc_variable[aptr->var_index].string));
memcpy(&irc_variable[aptr->var_index], aptr->set, sizeof(IrcVariable));
/* free it */
new_free((char **)&aptr->name);
new_free((char **)&aptr->set);
new_free((char **)&aptr);
return;
}
}
say("%s is not on the %s stack!", args, "Set");
return;
}
if (STACK_LIST == type)
{
VarStack *prev = NULL;
for (aptr = *aptrptr; aptr; prev = aptr, aptr = aptr->next)
{
switch(aptr->set->type)
{
case BOOL_TYPE_VAR:
say("Variable [%s] = %s", aptr->set->name, var_settings[aptr->set->integer]);
break;
case INT_TYPE_VAR:
say("Variable [%s] = %d", aptr->set->name, aptr->set->integer);
break;
case CHAR_TYPE_VAR:
say("Variable [%s] = %c", aptr->set->name, aptr->set->integer);
break;
case STR_TYPE_VAR:
say("Variable [%s] = %s", aptr->set->name, aptr->set->string?aptr->set->string:"<Empty String>");
break;
default:
say("Error in do_stack_set: unknown set type");
}
}
return;
}
say("Unknown STACK type ??");
}
