usr.bin/unifdef/unifdef.c

2  * Copyright (c) 2002 - 2011 Tony Finch <dot@dotat.at>
62     "@(#) $Author: Tony Finch (dot@dotat.at) $\n"
63     "@(#) $URL: http://dotat.at/prog/unifdef $\n"
153  * we leave some space at the end of the tline buffer to accommodate this.
734 				/* append the missing newline at eof */
756 static Linetype op_strict(int *p, int v, Linetype at, Linetype bt) {
757 	if(at == LT_IF || bt == LT_IF) return (LT_IF);
760 static Linetype op_lt(int *p, Linetype at, int a, Linetype bt, int b) {
761 	return op_strict(p, a < b, at, bt);
763 static Linetype op_gt(int *p, Linetype at, int a, Linetype bt, int b) {
764 	return op_strict(p, a > b, at, bt);
766 static Linetype op_le(int *p, Linetype at, int a, Linetype bt, int b) {
767 	return op_strict(p, a <= b, at, bt);
769 static Linetype op_ge(int *p, Linetype at, int a, Linetype bt, int b) {
770 	return op_strict(p, a >= b, at, bt);
772 static Linetype op_eq(int *p, Linetype at, int a, Linetype bt, int b) {
773 	return op_strict(p, a == b, at, bt);
775 static Linetype op_ne(int *p, Linetype at, int a, Linetype bt, int b) {
776 	return op_strict(p, a != b, at, bt);
778 static Linetype op_or(int *p, Linetype at, int a, Linetype bt, int b) {
779 	if (!strictlogic && (at == LT_TRUE || bt == LT_TRUE))
781 	return op_strict(p, a || b, at, bt);
783 static Linetype op_and(int *p, Linetype at, int a, Linetype bt, int b) {
784 	if (!strictlogic && (at == LT_FALSE || bt == LT_FALSE))
786 	return op_strict(p, a && b, at, bt);
791  * an element of the precedence table which lists the operators at the current
975  * Skip over comments, strings, and character literals and stop at the