home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / TBSETMAX.C < prev    next >
C/C++ Source or Header  |  1990-03-28  |  535b  |  36 lines
  1. /*
  2.     tbsetmax.c
  3.  
  4.     % tb_SetMaxSize
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988 by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     ---------------------
  12.      6/10/88 jdc    created
  13.      7/06/89 jdc    size == 0 now turns off limiting
  14.  
  15.      3/28/90 jmd    ansi-fied
  16. */
  17.  
  18. #include "textbuf.h"
  19.  
  20. int tb_SetMaxSize(tb_type tb, long size)
  21. {
  22.     int ret = TRUE;
  23.  
  24.     if ( size <= 0L ) {
  25.         tb->limit = FALSE;
  26.     }
  27.     else if ( size < tb->size ) {
  28.         ret = FALSE;
  29.     }
  30.     else {
  31.         tb->max_size = size;
  32.         tb->limit = TRUE;
  33.     }
  34.     return(ret);
  35. }
  36.