rexx/lstring/lastpos.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:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ---------------- Llastpos --------------- */
  15 long
  16 Llastpos( const PLstr needle, const PLstr haystack, long p)
  17 {
  18         Lstr    N;
  19         Lstr    H;
  20
  21         L2STR(needle);
  22         L2STR(haystack);
  23
  24         if (p<0 || p>=LLEN(*haystack)) p = LLEN(*haystack);
  25
  26         if (!LLEN(*needle)) {
  27                 if (LLEN(*haystack))
  28                         return (p>0)?p:1;
  29                 else
  30                         return LNOTFOUND;
  31         }
  32
  33         LINITSTR(N);    Lstrcpy(&N,needle);
  34         LINITSTR(H);    Lstrcpy(&H,haystack);
  35
  36         Lreverse(&N);
  37         Lreverse(&H);
  38
  39         if (p>0) p = LLEN(H) - p + 1;
  40
  41         p = Lindex(&H, &N, p);
  42         if (p!=LNOTFOUND)  p = LLEN(H)-(p+LLEN(N))+2;
  43
  44         LFREESTR(N);
  45         LFREESTR(H);
  46
  47         return p;
  48 } /* Llastpos */