From c1ac44abe594337b766d816c64fa3102c12929a3 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sun, 14 Nov 2010 13:19:21 +0000
Subject: [PATCH] 2010-11-14 14:18 UTC+0100 Viktor Szakats (harbour.01
 syenar.hu)   * contrib/hbhpdf/harupdf.ch   * contrib/hbhpdf/harupdf.c     +
 Added HPDF_PDFA_SETPDFACONFORMANCE(). Patch from Tamas.     + Added
 HPDF_PDFA_GENERATEID().

---
 harbour/ChangeLog                 |  6 ++++++
 harbour/contrib/hbhpdf/harupdf.c  | 26 ++++++++++++++++++++++++++
 harbour/contrib/hbhpdf/harupdf.ch |  9 +++++++++
 3 files changed, 41 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6491627e34..df28229475 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-11-14 14:18 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbhpdf/harupdf.ch
+  * contrib/hbhpdf/harupdf.c
+    + Added HPDF_PDFA_SETPDFACONFORMANCE(). Patch from Tamas.
+    + Added HPDF_PDFA_GENERATEID().
+
 2010-11-13 19:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbzebra/tests/testhpdf.prg
     * Fixed wrong drawing of 2D barcodes (Mindaugas).
diff --git a/harbour/contrib/hbhpdf/harupdf.c b/harbour/contrib/hbhpdf/harupdf.c
index f7d30bdfca..b5768b8e7e 100644
--- a/harbour/contrib/hbhpdf/harupdf.c
+++ b/harbour/contrib/hbhpdf/harupdf.c
@@ -2679,4 +2679,30 @@ HB_FUNC( HPDF_LOADICCPROFILEFROMFILE )
 #endif
 }
 
+/*
+HPDF_STATUS
+HPDF_PDFA_SetPDFAConformance (HPDF_Doc pdf,HPDF_PDFAType pdfatype)
+*/
+HB_FUNC( HPDF_PDFA_SETPDFACONFORMANCE )
+{
+#if HB_HPDF_VERS( 2, 2, 0 )
+   hb_retnl( HPDF_PDFA_SetPDFAConformance( HPDF_Doc_par( 1 ), ( HPDF_PDFAType ) hb_parni( 2 ) ) );
+#else
+   hb_retnl( -1 );
+#endif
+}
+
+/*
+HPDF_STATUS
+HPDF_PDFA_GenerateID(HPDF_Doc pdf)
+*/
+HB_FUNC( HPDF_PDFA_GENERATEID )
+{
+#if HB_HPDF_VERS( 2, 2, 0 )
+   hb_retnl( HPDF_PDFA_GenerateID( HPDF_Doc_par( 1 ) ) );
+#else
+   hb_retnl( -1 );
+#endif
+}
+
 /*----------------------------------------------------------------------*/
diff --git a/harbour/contrib/hbhpdf/harupdf.ch b/harbour/contrib/hbhpdf/harupdf.ch
index e2386b6b8c..23a2e7bf1a 100644
--- a/harbour/contrib/hbhpdf/harupdf.ch
+++ b/harbour/contrib/hbhpdf/harupdf.ch
@@ -809,4 +809,13 @@
 
 //----------------------------------------------------------------------//
 
+/*----------------------------------------------------------------------------*/
+/*----- PDF/A mode -----------------------------------------------------------*/
+
+#define HPDF_PDFA_1A                        0
+#define HPDF_PDFA_1B                        1
+
+//----------------------------------------------------------------------//
+
+
 #endif // _HARUPDF_CH