Lines Matching defs:r1

141 rel(int oper, char *r1, char *r2)
145 	if(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$"))
146 		i = atol(r1) - atol(r2);
148 		i = strcmp(r1, r2);
172 char *arith(oper, r1, r2) char *r1, *r2;
177 	if(!(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$")))
179 	i1 = atol(r1);
207 char *conj(oper, r1, r2) char *r1, *r2;
214 		if(EQL(r1, "0")
215 		    || EQL(r1, ""))
222 			rv = r1;
225 		if(EQL(r1, "0")
226 		    || EQL(r1, ""))
232 			rv = r1;