xref: /csrg-svn/usr.bin/pascal/libpc/MAX.c (revision 3867)
11664Smckusick /* Copyright (c) 1979 Regents of the University of California */
21664Smckusick 
3*3867Smckusic static char sccsid[] = "@(#)MAX.c 1.4 06/10/81";
41664Smckusick 
51664Smckusick #include "h00vars.h"
61664Smckusick 
73011Smckusic long
81664Smckusick MAX(width, reduce, min)
91664Smckusick 
103011Smckusic 	register long	width;		/* requested width */
113011Smckusic 	long		reduce;		/* amount of extra space required */
123011Smckusic 	long		min;		/* minimum amount of space needed */
131664Smckusick {
143177Smckusic 	if (width <= 0) {
15*3867Smckusic 		ERROR("Non-positive format width: %D\n", width);
161664Smckusick 		return;
171664Smckusick 	}
181664Smckusick 	if ((width -= reduce) >= min)
191664Smckusick 		return width;
201664Smckusick 	return min;
211664Smckusick }
22