4 * Revision 1.1 2001/04/04 05:43:37 wang
5 * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
7 * Revision 1.1 1998/07/02 17:17:00 bnv
14 /* ------------------- Lcompare --------------------- *
15 * compares the two strings and returns the position *
16 * of the non matching character [1,largest length] *
17 * returns 0 if strings are equal *
18 * -------------------------------------------------- */
20 Lcompare( const PLstr A
, const PLstr B
, const char pad
)
28 if (LLEN(*A
) < LLEN(*B
)) {
35 for (i
=0; i
<LLEN(*a
); i
++)
36 if (LSTR(*a
)[i
] != LSTR(*b
)[i
]) return i
+1;
37 for (; i
<LLEN(*b
); i
++)
38 if (pad
!= LSTR(*b
)[i
]) return i
+1;