bin/gawk/eval.c

361 				tree = t->lnode;
368 				if (tree->lnode == NULL ||
369 				    eval_condition(tree->lnode)) {
370 					/* using the lnode exec_count is kludgey */
371 					if (tree->lnode != NULL)
372 						INCREMENT(tree->lnode->exec_count);
394 			(void) interpret(t->lnode);
399 		if (eval_condition(tree->lnode)) {
401 			(void) interpret(tree->rnode->lnode);
421 		switch_value = tree_eval(stable_tree->lnode);
423 		case_list = switch_body->lnode;
427 			case_stmt = case_list->lnode;
436 				else if (case_stmt->lnode->type == Node_regex) {
441 					rp = re_update(case_stmt->lnode);
447 					match_found = (cmp_nodes(switch_value, case_stmt->lnode) == 0);
483 				case_stmt = case_list->lnode;
511 		while (eval_condition(stable_tree->lnode)) {
546 		} while (eval_condition(stable_tree->lnode));
558 				(void) interpret(stable_tree->lnode);
629 				(void) interpret(stable_tree->lnode);
716 		do_delete(tree->lnode, tree->rnode);
721 		do_delete_loop(tree->lnode, tree->rnode);
763 		if (tree->lnode != NULL) {
764 			t = tree_eval(tree->lnode);
773 		t = tree_eval(tree->lnode);
863 		return tmp_number((AWKNUM) (eval_condition(tree->lnode)
867 		return tmp_number((AWKNUM) (eval_condition(tree->lnode)
871 		return tmp_number((AWKNUM) ! eval_condition(tree->lnode));
881 		return tmp_number((AWKNUM) (in_array(tree->lnode, tree->rnode) != NULL));
917 		if (eval_condition(tree->lnode))
918 			return tree_eval(tree->rnode->lnode);
959 				tree = tree->lnode)
969 			tree = tree->lnode;
1034 		lhs = get_lhs(tree->lnode, &after_assign, FALSE);
1063 	t1 = dupnode(tree_eval(tree->lnode));
1170 		 * lnode field (more properly, the condpair field) is a node
1171 		 * of a Node_cond_pair; whether we evaluate the lnode of that
1174 		 * lnode; if that returns true, we set the triggered word.
1182 			if (! eval_condition(tree->condpair->lnode))
1285 	lhs = get_lhs(tree->lnode, &after_assign, TRUE);
1548 		arg = argp->lnode;
1566 			r->lnode = dupnode(n);
1590 			arg = argp->lnode;
1623 	/* tree->lnode is Node_expression_list of calling args. */
1625 	arg_list = tree->lnode;
1641 	push_args(f->lnode->param_cnt, arg_list, stack_ptr, name->stptr,
1864 		n = tree_eval(ptr->lnode);
1889 		n = get_array(ptr->lnode);
1932 		t1 = force_string(tree_eval(tree->lnode));