home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDXFLDS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  532 b   |  27 lines
  1. /*
  2.     sdxflds.c
  3.  
  4.     % sed_ExchangeFields(sed, f1, f2)
  5.  
  6.     exchanges the fields number, but not position
  7.  
  8.     C-scape 3.2
  9.     Copyright (c) 1988, 1989 by Oakland Group, Inc.
  10.     ALL RIGHTS RESERVED.
  11.  
  12.     Revision History:
  13.     -----------------
  14.      3/28/90 jmd    ansi-fied
  15. */
  16.  
  17. #include "sed.h"
  18.  
  19. void sed_ExchangeFields(sed_type sed, int f1, int f2)
  20. {
  21.     menu_ExchangeFields(sed_GetMenu(sed), f1, f2);
  22.  
  23.     if (sed_GetFieldNo(sed) == f1 || sed_GetFieldNo(sed) == f2) {
  24.         sed_SetCurrField(sed, sed_GetField(sed, sed_GetFieldNo(sed)));
  25.     }
  26. }
  27.