rexx/lstring/charin.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:14  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 /* ---------------- Lcharin ------------------- */
  18 void
  19 Lcharin( FILEP f, const PLstr line, const long start, const long length )
  20 {
  21         if (start>=1)
  22                 FSEEK(f,start-1,SEEK_SET);
  23         if (length<=0) {
  24                 LZEROSTR(*line);
  25                 return;
  26         }
  27         Lread(f,line,length);
  28 } /* Lcharin */