home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / TEDGSTR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  604 b   |  36 lines
  1. /*
  2.     tedgstr.c
  3.  
  4.     % ted_GetString
  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.  
  14.      3/28/90 jmd    ansi-fied
  15. */
  16.  
  17. #include "ted.h"
  18.  
  19. unsigned int ted_GetString(sed_type sed, char *buf, unsigned int len)
  20. {
  21.     unsigned int glen = 0;
  22.     tb_type      tb;
  23.  
  24.     tb = sed_GetTextbuf(sed);
  25.  
  26.     if (tb_FindPosition(tb, sed_GetTrow(sed), sed_GetTcol(sed))) {
  27.         glen = (unsigned int)bbc_Get(tb->bbc, tb->cursor - tb->offset, 
  28.                                      buf, (long)len);
  29.     }
  30.     buf[glen] = '\0';
  31.  
  32.     return(glen);
  33. }
  34.  
  35.  
  36.