xref: /csrg-svn/usr.bin/pascal/libpc/MAX.c (revision 1664)
1*1664Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1664Smckusick 
3*1664Smckusick static char sccsid[] = "@(#)MAX.c 1.1 10/30/80";
4*1664Smckusick 
5*1664Smckusick #include "h00vars.h"
6*1664Smckusick #include "h01errs.h"
7*1664Smckusick 
8*1664Smckusick MAX(width, reduce, min)
9*1664Smckusick 
10*1664Smckusick 	register int	width;		/* requested width */
11*1664Smckusick 	int		reduce;		/* amount of extra space required */
12*1664Smckusick 	int		min;		/* minimum amount of space needed */
13*1664Smckusick {
14*1664Smckusick 	if (width < 0) {
15*1664Smckusick 		ERROR(EFMTSIZE, width);
16*1664Smckusick 		return;
17*1664Smckusick 	}
18*1664Smckusick 	if ((width -= reduce) >= min)
19*1664Smckusick 		return width;
20*1664Smckusick 	return min;
21*1664Smckusick }
22