rexx/lstring/charout.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 /* ---------------- Lcharout ------------------- */
  18 void
  19 Lcharout( FILEP f, const PLstr line, const long start )
  20 {
  21         if (start>=0)
  22                 FSEEK(f,start,SEEK_SET);
  23
  24         Lwrite(f,line,FALSE);
  25 } /* Lcharout */