home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / TEDLINE.C < prev    next >
C/C++ Source or Header  |  1990-03-28  |  482b  |  36 lines
  1. /*
  2.     tedline.c
  3.  
  4.     % ted_line
  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.      3/28/90 jmd    ansi-fied
  14. */
  15.  
  16. #include "ted.h"
  17.  
  18. int ted_line(sed_type sed, int mode)
  19. {
  20.     tb_type tb;
  21.  
  22.     tb = sed_GetTextbuf(sed);    
  23.  
  24.     if (tb->bbc->b->row != sed_GetCRow(sed)) {
  25.         return(0);
  26.     }
  27.  
  28.     if (mode == TED_LEN) {
  29.         return(tb->len);
  30.     }
  31.     else {
  32.         return(tb->nend);
  33.     }
  34. }
  35.  
  36.