rexx/lstring/chars.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:37  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.2  1999/11/26 09:53:28  bnv
   8  * Changed: To use the new macros.
   9  *
  10  * Revision 1.1  1998/07/02 17:17:00  bnv
  11  * Initial revision
  12  *
  13  */
  14
  15 #include <lstring.h>
  16
  17 /* ---------------- Lchars ------------------- */
  18 long
  19 Lchars( FILEP f )
  20 {
  21 #if defined(WCE) && !defined(__BORLANDC__)
  22         return GetFileSize(f->handle,NULL) - FTELL(f);
  23 #else
  24         long    l,chs;
  25
  26         l = FTELL(f);           /* read current position */
  27         FSEEK(f,0L,SEEK_END);   /* seek at the end */
  28         chs = FTELL(f) - l ;
  29         FSEEK(f,l,SEEK_SET);
  30         return chs;
  31 #endif
  32 } /* Lchars */