3602400731
* contrib/hbcups/*.[c|h]
* contrib/hbcurl/*.[c|h]
* contrib/hbdroid/*.[c|h]
* contrib/hbfbird/*.[c|h]
* contrib/hbfimage/*.[c|h]
* contrib/hbgd/*.[c|h]
* contrib/hbgs/*.[c|h]
* contrib/hbgt/*.[c|h]
* contrib/hbhpdf/*.[c|h]
* contrib/hblzf/*.[c|h]
* contrib/hbmagic/*.[c|h]
* contrib/hbmisc/*.[c|h]
* contrib/hbmlzo/*.[c|h]
* contrib/hbmxml/*.[c|h]
* contrib/hbodbc/*.[c|h]
* contrib/hbpgsql/*.[c|h]
* contrib/hbtip/*.[c|h]
* contrib/hbxdiff/*.[c|h]
* uncrustified
53 lines
1.0 KiB
C
53 lines
1.0 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* GT CLIPPER STANDARD HEADER
|
|
*
|
|
* File......: strdiff.c
|
|
* Author....: Andy M Leighton
|
|
* BBS.......: The Dark Knight Returns
|
|
* Net/Node..: 050/069
|
|
* User Name.: Andy Leighton
|
|
* Date......: 24/05/93
|
|
* Revision..: 1.00
|
|
*
|
|
* This is an original work by Andy Leighton and is placed in the
|
|
* public domain.
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
|
|
HB_FUNC( GT_STRDIFF )
|
|
{
|
|
const char * s1, * s2;
|
|
HB_ISIZ pos, len;
|
|
|
|
if( HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
|
|
{
|
|
s1 = hb_parc( 1 );
|
|
s2 = hb_parc( 2 );
|
|
len = hb_parclen( 2 );
|
|
|
|
/*
|
|
loop through comparing both strings
|
|
|
|
NOTE: pos starts at 1, so as to return a string index
|
|
for CLIPPER
|
|
*/
|
|
|
|
for( pos = 1; ( pos <= len ) && ( *s1 == *s2 ); s2++, s1++ )
|
|
pos++;
|
|
|
|
if( pos > len ) /* strings match exactly!!! */
|
|
hb_retc_null();
|
|
else
|
|
hb_retc( s2 );
|
|
}
|
|
else
|
|
{
|
|
hb_ret(); /* parameter mismatch - error return NIL */
|
|
}
|
|
}
|