From 3343571ea7f548381a8907c540643af8e93d7274 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 25 Apr 2012 14:17:00 +0000
Subject: [PATCH] 2012-04-25 16:16 UTC+0200 Viktor Szakats (harbour syenar.net)
   * include/harbour.hbx   * src/rtl/cdpapihb.c     + added HB_CDPISUTF8(
 <cCDPID> ) -> <lResult>

---
 harbour/ChangeLog           | 5 +++++
 harbour/include/harbour.hbx | 1 +
 harbour/src/rtl/cdpapihb.c  | 5 +++++
 3 files changed, 11 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6d180594ab..0a813bb404 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/include/harbour.hbx b/harbour/include/harbour.hbx
index 90a996e5c7..64744db9f2 100644
--- a/harbour/include/harbour.hbx
+++ b/harbour/include/harbour.hbx
@@ -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
diff --git a/harbour/src/rtl/cdpapihb.c b/harbour/src/rtl/cdpapihb.c
index 5031896088..6f7c8c6ded 100644
--- a/harbour/src/rtl/cdpapihb.c
+++ b/harbour/src/rtl/cdpapihb.c
@@ -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();