rexx/lstring/insert.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 12:52:25  bnv
   8  * Space
   9  *
  10  * Revision 1.1  1998/07/02 17:18:00  bnv
  11  * Initial Version
  12  *
  13  */
  14
  15 #include <lstring.h>
  16
  17 /* ------------------ Linsert ------------------- */
  18 void
  19 Linsert( const PLstr to, const PLstr newstr, const PLstr target,
  20                         long n, long length, const char pad)
  21 {
  22         Lstr    tmp;
  23
  24         LINITSTR(tmp);
  25
  26         L2STR(newstr);
  27         L2STR(target);
  28
  29         if (n<0) n = 0;
  30
  31         if (length==0) {
  32                 Lstrcpy(to,target);
  33                 return;
  34         }
  35
  36         if (length<0) length = LLEN(*newstr);
  37
  38         if (n>=1)
  39                 Lsubstr(to,target,1,n,pad);
  40         else
  41                 LZEROSTR(*to);
  42
  43         Lsubstr(&tmp,newstr,1,length,pad);
  44         Lstrcat(to,&tmp);
  45         if (n <= LLEN(*target)) {
  46                 _Lsubstr(&tmp, target, (size_t)n+1, 0);
  47                 Lstrcat(to,&tmp);
  48         }
  49
  50         LFREESTR(tmp);
  51 } /* Linsert */