src/interp/alloc.c
/*================================
 * while_node -- Create while node
 *  pactx: [I/O] pointer to parseinfo structure (parse globals)
 *  cond:  [IN]  conditional expression governing while loop
 *  body:  [IN]  body statements of while loop
 *==============================*/
- Create while node
pactx: [I/O] pointer to parseinfo structure (parse globals)
cond:  [IN]  conditional expression governing while loop
body:  [IN]  body statements of while loop
- Create while node pactx : [ I / O ] pointer to parseinfo structure ( parse globals ) cond : [ IN ] conditional expression governing while loop body : [ IN ] body statements of while loop
PNODE
while_node (PACTX pactx, PNODE cond, PNODE body)
{
	PNODE node = create_pnode(pactx, IWHILE);
	node->vars.iwhile.icond = cond;
	node->vars.iwhile.ibody = body;
	set_parents(body, node);
	return node;
}
PNODE while_node ( PACTX pactx , PNODE cond , PNODE body ) { PNODE node = create_pnode ( pactx , IWHILE ) ; node -> vars . iwhile . icond = cond ; node -> vars . iwhile . ibody = body ; set_parents ( body , node ) ; return node ; }
while_node -- Create while node
  pactx: [I/O] pointer to parseinfo structure (parse globals)
  cond:  [IN]  conditional expression governing while loop
  body:  [IN]  body statements of while loop
while_node -- Create while node pactx : [ I / O ] pointer to parseinfo structure ( parse globals ) cond : [ IN ] conditional expression governing while loop body : [ IN ] body statements of while loop