home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDINCCHR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  1.0 KB  |  55 lines
  1. /*
  2.     sdincchr.c
  3.  
  4.     % sed_IncChar
  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.     11/05/86 jmd    converted to boolean
  13.     11/18/87 jmd     changed names of some low-level funcs
  14.      4/11/88 jmd    added scrollable field handling
  15.  
  16.      3/24/89 jmd    added sed_ macros
  17.  
  18.      3/28/90 jmd    ansi-fied
  19. */
  20.  
  21. #include "sed.h"
  22.  
  23. boolean sed_IncChar(sed_type sed)
  24. /*                                        
  25.     requires:   sed object.
  26.     modifies:   same.
  27.     effects:    goes to the next character in the field.  doesn't wrap 
  28.                 around.
  29. */
  30. {
  31.     int i;
  32.  
  33.     cs_Assert(sed_Ok(sed), CS_SD_IC_SED, 0);
  34.  
  35.     if (sed_GetRecordPos(sed) == NO_WRITEABLES) {
  36.         return(FALSE);
  37.     }
  38.     else {
  39.         i = menu_GetNextFieldPos(sed_GetMenu(sed), sed_GetFieldNo(sed), sed_GetRecordPos(sed));
  40.        
  41.         if (i == AT_END) {
  42.             return(FALSE);
  43.         }
  44.         else {
  45.             if (sd_goto_char(sed, i)) {
  46.                 /* field scrolled, repaint it */
  47.                 sd_refresh_field(sed, sed_GetFieldNo(sed));
  48.             }
  49.         }
  50.     }
  51.     return(TRUE);
  52. }
  53.  
  54.  
  55.