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); }