fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2015-09-07 16:19 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* src/rtl/gtos2/gtos2.c
    + added support for HB_GTI_CODEPAGE
    ! removed code which sets CP437 at application start
      Now the default codepage is the same set by system.
      If someone wants to use CP437 regardless of default OS2 settings
      then he should add to his code:
         hb_gtInfo( HB_GTI_CODEPAGE, 437 )
This commit is contained in:
Przemysław Czerpak
2015-09-07 16:19:22 +02:00
parent 04839f11b4
commit db664c6f61
2 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog.txt
View File

@@ -10,6 +10,15 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2015-09-07 16:19 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/gtos2/gtos2.c
+ added support for HB_GTI_CODEPAGE
! removed code which sets CP437 at application start
Now the default codepage is the same set by system.
If someone wants to use CP437 regardless of default OS2 settings
then he should add to his code:
hb_gtInfo( HB_GTI_CODEPAGE, 437 )
2015-09-06 23:33 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/hbproces.c
* use native OS2 system functions in hb_fsProcessOpen(),

16
src/rtl/gtos2/gtos2.c
View File

@@ -850,6 +850,22 @@ static HB_BOOL hb_gt_os2_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
pInfo->pResult = hb_itemPutL( pInfo->pResult, HB_TRUE );
break;
case HB_GTI_CODEPAGE:
{
USHORT usCodePageNew = ( USHORT ) hb_itemGetNI( pInfo->pNewVal );
USHORT usCodePage = 0;
VioGetCp( 0, &usCodePage, 0 );
pInfo->pResult = hb_itemPutNI( pInfo->pResult, usCodePage );
if( ( hb_itemType( pInfo->pNewVal ) & HB_IT_NUMERIC ) &&
usCodePageNew != usCodePage )
{
if( VioSetCp( 0, usCodePageNew, 0 ) != NO_ERROR )
VioSetCp( 0, usCodePage, 0 );
}
break;
}
default:
return HB_GTSUPER_INFO( pGT, iType, pInfo );
}