home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDGTOCHR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  1.0 KB  |  43 lines
  1. /*                  
  2.     sdgtochr.c
  3.  
  4.     % sed_GotoChar
  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/13/86 sng    fixed "too large field pos" cs_Assert for variable length 
  13.                     fields.
  14.     11/18/87 jmd     changed names of some low-level funcs
  15.      4/11/88 jmd    added scrollable field handling
  16.  
  17.      3/24/89 jmd    added sed_ macros
  18.  
  19.      3/28/90 jmd    ansi-fied
  20. */                    
  21.  
  22. #include "sed.h"
  23.  
  24. void sed_GotoChar(sed_type sed, int fieldpos)
  25. /*
  26.     requires:    a field position that's writeable, or -1 (i.e., no writeable
  27.                 positions in field.)
  28.     modifies:   the sed.
  29.     effects:    moves the current field position to the position given.  
  30. */
  31. {
  32.     cs_Assert(sed_Ok(sed), CS_SD_GTC_SED, 0);
  33.     cs_Assert(fieldpos >= 0 || fieldpos == NO_WRITEABLES, CS_SD_GTC_BFP, 0);
  34.     cs_Assert(fieldpos < menu_GetRecordLen(sed_GetMenu(sed), sed_GetFieldNo(sed)), CS_SD_GTC_LFP, 0);
  35.  
  36.     if (sd_goto_char(sed, fieldpos)) {
  37.         /* field scrolled, repaint it */
  38.         sd_refresh_field(sed, sed_GetFieldNo(sed));
  39.     }
  40. }
  41.  
  42.  
  43.