rexx/lstring/delstr.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.1  1998/07/02 17:17:00  bnv
   8  * Initial revision
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ---------------- Ldelstr ------------------- */
  15 void
  16 Ldelstr( const PLstr to, const PLstr from, long start, long length )
  17 {
  18         Lstr    tmp;
  19
  20         L2STR(from);
  21
  22         start--;
  23         if (start<0) start = 0;
  24         if (start>=LLEN(*from)) {
  25                 Lstrcpy(to,from);
  26                 return;
  27         }
  28
  29         if (start)
  30                 _Lsubstr(to,from,1,(size_t)start);
  31         else
  32                 LZEROSTR(*to);
  33
  34         if (length>0)
  35         if (start+length < LLEN(*from)) {
  36                 LINITSTR(tmp);
  37                 _Lsubstr(&tmp, from, (size_t)(start+length+1), 0);
  38                 Lstrcat(to,&tmp);
  39                 LFREESTR(tmp);
  40         }
  41 } /* Ldelstr */