home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDDELROW.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  1000 b   |  46 lines
  1. /*
  2.     sddelrow.c     4/10/88
  3.  
  4.     % sed_DeleteRows
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      3/24/89 jmd    added sed_ macros
  13.      7/15/89 jdc    added currfield stuff
  14.  
  15.      3/28/90 jmd    ansi-fied
  16. */
  17.  
  18. #include "sed.h"
  19.  
  20. void sed_DeleteRows(sed_type sed, int row, int count)
  21. /*
  22.     Deletes count rows in the sed starting with row.
  23. */
  24. {
  25.     menu_type menu;
  26.  
  27.     menu = sed_GetMenu(sed);
  28.  
  29.     menu_DeleteRows(menu, row, count);
  30.  
  31.     /* adjust fieldno and fieldpos */
  32.     if (menu_GetFieldCount(menu) > 0) {
  33.         if (sed_GetFieldNo(sed) >= menu_GetFieldCount(menu)) {
  34.             sed_SetFieldNo(sed, menu_GetFieldCount(menu) - 1);
  35.             sed_SetRecordPos(sed, menu_GetFirstFieldPos(menu, sed_GetFieldNo(sed)));
  36.         }
  37.         /* reset the current field pointer */
  38.         sed_SetCurrField(sed, menu_GetField(menu, sed_GetFieldNo(sed)));
  39.     }
  40.     else {
  41.         sed_SetFieldNo(sed, -1);
  42.         sed_SetRecordPos(sed, NO_WRITEABLES);
  43.         sed_SetCurrField(sed, NULL);
  44.     }
  45. }
  46.