static expr *create_str_dim(expr_mngr *m, cvalue_list *l, expr *exp, unsigned len, int vid)
{
// Create the DIM expression: [,] X$(len)
expr *dim = expr_new_bin(m, expr_new_var_str(m, vid), create_num(m, l, len), TOK_DS_L_PRN);
if( exp )
return expr_new_bin(m, exp, dim, TOK_COMMA);
else
return dim;
}
int main(void)
{
pid_t pid[NUM];
int count;
for (count=0;count<NUM;count++) {
pid[count] = fork();
if (pid[count] == 0) {
do_child();
}
}
for (count=START;count<=END;count++) {
create_num(count);
}
for (count=0;count<NUM;count++) {
wait(NULL);
}
exit(0);
}
static expr *create_num_assign(expr_mngr *m, cvalue_list *l, expr *prev, double x, int vid)
{
expr *toks = expr_new_bin(m, expr_new_var_num(m, vid), create_num(m, l, x), TOK_F_ASGN);
return expr_new_stmt(m, prev, toks, STMT_LET_INV);
}
