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

2012-04-25 16:16 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* include/harbour.hbx
  * src/rtl/cdpapihb.c
    + added HB_CDPISUTF8( <cCDPID> ) -> <lResult>
This commit is contained in:
Viktor Szakats
2012-04-25 14:17:00 +00:00
parent bbf6425d07
commit 3343571ea7
3 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-25 16:16 UTC+0200 Viktor Szakats (harbour syenar.net)
* include/harbour.hbx
* src/rtl/cdpapihb.c
+ added HB_CDPISUTF8( <cCDPID> ) -> <lResult>
2012-04-25 14:44 UTC+0200 Viktor Szakats (harbour syenar.net)
* config/global.mk
! missed from prev

1
harbour/include/harbour.hbx
View File

@@ -336,6 +336,7 @@ DYNAMIC hb_ByteSwapLL
DYNAMIC hb_ByteSwapU
DYNAMIC hb_ByteSwapW
DYNAMIC hb_cdpInfo
DYNAMIC hb_cdpIsUTF8
DYNAMIC hb_cdpList
DYNAMIC hb_cdpSelect
DYNAMIC hb_cdpUniID

5
harbour/src/rtl/cdpapihb.c
View File

@@ -106,6 +106,11 @@ HB_FUNC( HB_CDPINFO )
hb_retc( cdp ? cdp->info : NULL );
}
HB_FUNC( HB_CDPISUTF8 )
{
hb_retl( hb_cdpIsUTF8( hb_cdpFindExt( hb_parcx( 1 ) ) ) );
}
HB_FUNC( HB_CDPLIST )
{
const char ** list = hb_cdpList();