/*
 * BBS.......: The Dark Knight Returns
 * Date......: 1993-05-23
 *
 * This is an original work by Andy M Leighton and is placed in the
 * public domain.
 */

#include "hbapi.h"

HB_FUNC( GT_STRLEFT )
{
   if( HB_ISCHAR( 1 ) && HB_ISCHAR( 2 ) )
   {
      const char * string = hb_parc( 1 );
      const char * cset   = hb_parc( 2 );
      HB_ISIZ      l1     = hb_parclen( 1 );
      HB_ISIZ      l2     = hb_parclen( 2 );
      HB_ISIZ      p1, p2;

      for( p1 = 0; p1 < l1; p1++ )
      {
         for( p2 = 0; p2 < l2 && cset[ p2 ] != string[ p1 ]; p2++ )
            ;

         if( p2 == l2 )
            break;
      }
      hb_retns( p1 );
   }
   else
      hb_retns( -1 );
}
