usr.bin/pascal/pdx/breakpoint/trcond.c
/*
 * Determine if any trace condition on the list is true.
 * If the list is empty, return TRUE.
 */
Determine if any trace condition on the list is true.
If the list is empty, return TRUE.
Determine if any trace condition on the list is true . If the list is empty return TRUE .
BOOLEAN trcond()
{
	register TR_COND_LIST *c;
	BOOLEAN foundcond;
	foundcond = FALSE;
	for (c = cond_list; c != NIL; c = c->next_condition) {
		if (c->trtype == TRPRINT) {
			if (cond(c->trace_condition)) {
				return(TRUE);
			} else {
				foundcond = TRUE;
			}
		}
	}
	return !foundcond;
}
BOOLEAN trcond ( ) { register TR_COND_LIST * c ; BOOLEAN foundcond ; foundcond = FALSE ; for ( c = cond_list ; c != NIL ; c = c -> next_condition ) { if ( c -> trtype == TRPRINT ) { if ( cond ( c -> trace_condition ) ) { return ( TRUE ) ; } else { foundcond = TRUE ; } } } return ! foundcond ; }
Determine if any trace condition on the list is true.
Determine if any trace condition on the list is true .