xref: /csrg-svn/usr.bin/pascal/libpc/MAX.c (revision 3011)
11664Smckusick /* Copyright (c) 1979 Regents of the University of California */
21664Smckusick 
3*3011Smckusic static char sccsid[] = "@(#)MAX.c 1.2 03/07/81";
41664Smckusick 
51664Smckusick #include "h00vars.h"
61664Smckusick #include "h01errs.h"
71664Smckusick 
8*3011Smckusic long
91664Smckusick MAX(width, reduce, min)
101664Smckusick 
11*3011Smckusic 	register long	width;		/* requested width */
12*3011Smckusic 	long		reduce;		/* amount of extra space required */
13*3011Smckusic 	long		min;		/* minimum amount of space needed */
141664Smckusick {
151664Smckusick 	if (width < 0) {
161664Smckusick 		ERROR(EFMTSIZE, width);
171664Smckusick 		return;
181664Smckusick 	}
191664Smckusick 	if ((width -= reduce) >= min)
201664Smckusick 		return width;
211664Smckusick 	return min;
221664Smckusick }
23