le * eval_cb_enum( lithp_burrito * lb, const int argc, le * branch )
{
le * current;
int count = -1;
char value[16];
if (!branch || argc < 2) return( leNew( "NIL" ) );
current = branch->list_next;
while ( current ) {
if (current->data) {
sprintf( value, "%d", ++count);
lb->mainVarList = variableSetString(
lb->mainVarList,
current->data,
value
);
}
current = current->list_next;
}
if (count == -1) return( leNew( "NIL" ) );
else return( evalCastIntToLe(count) );
}
void variableSetNumber(le **varlist, char *key, int value)
{
char *buf;
zasprintf(&buf, "%d", value);
variableSetString(varlist, key, buf);
free(buf);
}
void set_variable(char *var, char *val)
{
variableSetString(&mainVarList, var, val);
}
