leaf *build(char *expr, hashtab *h)
{
lstack s;
char opr;
int i = -1, num;
char str[MAX_STR];
leaf *l = NULL, *r = NULL, *tmp = NULL;
lstack_init(&s, 1024);
while (expr[++i])
{
if (is_digit(expr[i]))
{
num = get_number(expr, &i);
l = new_num_leaf(num, INT, NULL, NULL, -1);
lpush(&s, l);
}
else
if (is_opr(expr[i]))
{
lpop(&s, &r);
lpop(&s, &l);
//Optimization : reducing the amount of registers !!
if ((expr[i] == '+' || expr[i] == '*') && l->typ == INT && r->typ != INT)
tmp = l, l = r, r = tmp;
l = new_num_leaf(expr[i], CHAR, l, r, get_reg_num(l, r));
lpush(&s, l);
}
else
if (is_alpha(expr[i]))
{
get_string(expr, str, &i);
if (search(h, str))
{
lpop(&s, &r);
r->reg = 1; //Premice to register allocation !!!
l = new_str_leaf(str, FUNC, NULL, r, 1);
lpush(&s, l);
}
else //If not a function then a variable identifier ! [extend the grammar]
{
l = new_str_leaf(str, VAR, NULL, NULL, -1);
lpush(&s, l);
}
}
}
lstack_free(&s);
return l;
}
int log_init(struct user_data_log *userdata) {
int err;
log_stream = fopen(userdata->configs->shandler_log, "w");
if(log_stream == NULL) {
return -1;
}
setvbuf(log_stream, NULL, _IONBF, 0);
dup2(fileno(log_stream), STDOUT_FILENO);
dup2(fileno(log_stream), STDERR_FILENO);
if((err = lstack_init(&log_stack, 10 + 4)) != 0) {
errno = err;
return -1;
}
pthread_mutex_lock(&mxq);
if(pthread_create(&log_thread, NULL, log_func, userdata)) {
return -1;
}
return 0;
}
