Bug in IsOem()/IsAnsi() function

[Enrico Maria Giordano]

The following sample shows .T. and .F. instead of .F. and .T. (CHR( 128 ) is the Euro symbol and is an ANSI code):

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    ? ISOEM( CHR( 128 ) )
    ? ISANSI( CHR( 128 ) )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

In source\winapi\oemansi.c please implement these changes:

Code: Select all  Expand view  RUN

CLIPPER ISANSI( PARAMS )         // cString    --> lAnsi
{
   LPBYTE pString = ( LPBYTE ) _parc( 1 );
   WORD  w = 0, wLen = _parclen( 1 );
   BOOL  bAnsi = FALSE;

   while( w < wLen && ! bAnsi )
   {
      bAnsi = ( pString[ w ] >= 224 && pString[ w ] <= 255 ) || pString[ w ] == 128;
      w++;
   }

   _retl( bAnsi );
}

//----------------------------------------------------------------------------//

CLIPPER ISOEM( PARAMS )         // cString    --> lOem
{
   LPBYTE pString = ( LPBYTE ) _parc( 1 );
   WORD  w = 0, wLen = _parclen( 1 );
   BOOL  bOem = FALSE;

   while( w < wLen && ! bOem )
   {
      bOem = pString[ w ] > 128 && pString[ w ] <= 168;
      w++;
   }

   _retl( bOem );
}


[Enrico Maria Giordano]

Thank you.

EMG