home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDOK.C < prev    next >
C/C++ Source or Header  |  1990-03-28  |  871b  |  38 lines
  1. /*    
  2.     sdok.c
  3.  
  4.     % sed_Ok
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1986, 1987, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.  
  13.     10/30/86 jmd:    removed ifdefs     
  14.      4/03/87 jmd:    added xmin, ymin check.
  15.      4/08/88 jmd     changed sed->fieldcount to sed_GetFieldCount()
  16.                     reorganized comparison.
  17.      7/07/87 jmd:    removed xmin, ymin check.
  18.     10/05/88 jmd    added check for NULL menu.
  19.  
  20.      3/24/89 jmd    added sed_ macros
  21.      3/28/90 jmd    ansi-fied
  22. */
  23.  
  24. #include "sed.h"
  25.  
  26. boolean sed_Ok(sed_type sed)
  27. {
  28.     if ((sed == NULL) || (sed_GetMenu(sed) == NULL) ||
  29.         ( (sed_GetFieldCount(sed) > 0) && 
  30.           (sed_GetFieldNo(sed) < -1 || sed_GetFieldNo(sed) >= sed_GetFieldCount(sed) || sed_GetRecordPos(sed) < -1)) ) {
  31.  
  32.         cs_Assert(sed_GetFieldNo(sed) != -5368, CS_SD_OK_SED, 0);
  33.         return(FALSE);
  34.     }
  35.     return(TRUE);            
  36. }                                                                         
  37.  
  38.